Date: 2013-07-02T14:39:29+00:00

Actual source code: petscsysmod.F
petsc-3.4.2 2013-07-02

      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