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