Actual source code: petscsysmod.F
petsc-3.5.4 2015-05-23
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