Actual source code: petscsysmod.F

petsc-3.7.3 2016-08-01
Report Typos and Errors
  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