Actual source code: petscsysmod.F
petsc-3.7.3 2016-08-01
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 <petsc/finclude/petscsys.h>
10: #include <petsc/finclude/petscviewer.h>
11: #include <petsc/finclude/ftn-custom/petscviewerdef.h90>
12: #include <petsc/finclude/petscdraw.h>
13: #include <petsc/finclude/petsclog.h>
14: end module
16: module petscsys
17: use petscsysdef
18: #include <petsc/finclude/petscviewer.h90>
19: end module