Actual source code: petscmod.F

  1: #define PETSC_USE_FORTRAN_MODULES

  3:         module petscdef
  4: #if defined(PETSC_HAVE_MPI_F90MODULE)
  5:         use mpi
  6: #define PETSC_AVOID_MPIF_H
  7: #endif
  8: #include "finclude/petsc.h"
  9: #include "finclude/petscviewer.h"
 10: #include "finclude/ftn-custom/petscviewerdef.h90"
 11: #include "finclude/petscdraw.h"
 12: #include "finclude/petsclog.h"
 13:         end module

 15:         module petsc
 16:         use petscdef
 17: #include "finclude/petscviewer.h90"
 18:         end module

 20:         module petscsys
 21:         use petsc
 22: #include "finclude/petscsys.h"
 23:         end module