Actual source code: petscmod.F

  1: #define PETSC_USE_FORTRAN_MODULES

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

 16:         module petscsys
 17:         use petscsysdef
 18: #include "finclude/petscviewer.h90"
 19:         end module