Actual source code: petscmod.F

  1: #define PETSC_USE_FORTRAN_MODULES

  3: #include "finclude/petscalldef.h"

  5:         module petscdef
  6: #if defined(PETSC_HAVE_MPI_F90MODULE)
  7:         use mpi
  8: #define PETSC_AVOID_MPIF_H
  9: #endif
 10: #include "finclude/petsc.h"
 11: #include "finclude/petscviewer.h"
 12: #include "finclude/ftn-custom/petscviewerdef.h90"
 13: #include "finclude/petscdraw.h"
 14: #include "finclude/petsclog.h"
 15:         end module

 17:         module petsc
 18:         use petscdef
 19: #include "finclude/petscviewer.h90"
 20:         end module

 22:         module petscsys
 23:         use petsc
 24: #include "finclude/petscsys.h"
 25:         end module

 27:         module petscisdef
 28:         use petsc
 29: #include "finclude/petscis.h"
 30: #include "finclude/ftn-custom/petscisdef.h90"
 31:         end module

 33:         module petscis
 34:         use petscisdef
 35: #include "finclude/petscis.h90"
 36:         end module

 38:         module petscvecdef
 39:         use petscis
 40: #include "finclude/petscvec.h"
 41: #include "finclude/ftn-custom/petscvecdef.h90"
 42:         end module

 44:         module petscvec
 45:         use petscvecdef
 46: #include "finclude/petscvec.h90"
 47:         end module

 49:         module petscmatdef
 50:         use petscvec
 51: #include "finclude/petscmat.h"
 52: #include "finclude/ftn-custom/petscmatdef.h90"
 53:         end module

 55:         module petscmat
 56:         use petscmatdef
 57: #include "finclude/petscmat.h90"
 58:         end module

 60:         module petscao
 61:         use petscmat
 62: #include "finclude/petscao.h"
 63:         end module

 65:         module petscpcdef
 66:         use petscmat
 67: #include "finclude/petscpc.h"
 68: #include "finclude/ftn-custom/petscpcdef.h90"
 69:         end module

 71:         module petscpc
 72:         use petscpcdef
 73: #include "finclude/petscpc.h90"
 74:         end module

 76:         module petsckspdef
 77:         use petscpc
 78: #include "finclude/petscksp.h"
 79: #include "finclude/ftn-custom/petsckspdef.h90"
 80:         end module

 82:         module petscksp
 83:         use petsckspdef
 84: #include "finclude/petscksp.h90"
 85:         end module

 87:         module petscmgdef
 88:         use petscksp
 89: #include "finclude/petscmg.h"
 90:         end module

 92:         module petscmg
 93:         use petscmgdef
 94:         end module

 96:         module petscdadef
 97:         use petscksp
 98: #include "finclude/petscda.h"
 99: #include "finclude/ftn-custom/petscdadef.h90"
100:         end module

102:         module petscda
103:         use petscdadef
104: #include "finclude/petscda.h90"
105:         end module


108:         module petscsnesdef
109:         use petscksp
110: #include "finclude/petscsnes.h"
111: #include "finclude/ftn-custom/petscsnesdef.h90"
112:         end module

114:         module petscsnes
115:         use petscsnesdef
116: #include "finclude/petscsnes.h90"
117:         end module

119:         module petsctsdef
120:         use petscsnes
121: #include "finclude/petscts.h"
122: #include "finclude/ftn-custom/petsctsdef.h90"
123:         end module

125:         module petscts
126:         use petsctsdef
127: #include "finclude/petscts.h90"
128:         end module