Actual source code: slepcmod.F

  1: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  2: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
  3: !  Copyright (c) 2002-2013, Universitat Politecnica de Valencia, Spain
  4: !
  5: !  This file is part of SLEPc.
  6: !
  7: !  SLEPc is free software: you can redistribute it and/or modify it under  the
  8: !  terms of version 3 of the GNU Lesser General Public License as published by
  9: !  the Free Software Foundation.
 10: !
 11: !  SLEPc  is  distributed in the hope that it will be useful, but WITHOUT  ANY
 12: !  WARRANTY;  without even the implied warranty of MERCHANTABILITY or  FITNESS
 13: !  FOR  A  PARTICULAR PURPOSE. See the GNU Lesser General Public  License  for
 14: !  more details.
 15: !
 16: !  You  should have received a copy of the GNU Lesser General  Public  License
 17: !  along with SLEPc. If not, see <http://www.gnu.org/licenses/>.
 18: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 20: #define PETSC_USE_FORTRAN_MODULES

 22: #include "finclude/petscdef.h"
 23: #include "finclude/slepcdef.h"

 25:         module slepcstdef
 26:         use petscksp
 27: #include "finclude/slepcst.h"
 28: #include "finclude/ftn-custom/slepcstdef.h90"
 29:         end module

 31:         module slepcst
 32:         use slepcstdef
 33: #include "finclude/slepcst.h90"
 34:         end module

 36:         module slepcipdef
 37:         use petscsys
 38: #include "finclude/slepcip.h"
 39: #include "finclude/ftn-custom/slepcipdef.h90"
 40:         end module

 42:         module slepcip
 43:         use slepcipdef
 44: #include "finclude/slepcip.h90"
 45:         end module

 47:         module slepcdsdef
 48:         use petscsys
 49: #include "finclude/slepcds.h"
 50: #include "finclude/ftn-custom/slepcdsdef.h90"
 51:         end module

 53:         module slepcds
 54:         use slepcdsdef
 55: #include "finclude/slepcds.h90"
 56:         end module

 58:         module slepcepsdef
 59:         use slepcst
 60:         use slepcip
 61:         use slepcds
 62: #include "finclude/slepceps.h"
 63: #include "finclude/ftn-custom/slepcepsdef.h90"
 64:         end module

 66:         module slepceps
 67:         use slepcepsdef
 68: #include "finclude/slepceps.h90"
 69:         end module

 71:         module slepcsvddef
 72:         use slepcip
 73:         use slepceps
 74: #include "finclude/slepcsvd.h"
 75: #include "finclude/ftn-custom/slepcsvddef.h90"
 76:         end module

 78:         module slepcsvd
 79:         use slepcsvddef
 80: #include "finclude/slepcsvd.h90"
 81:         end module

 83:         module slepcqepdef
 84:         use slepcip
 85:         use slepceps
 86: #include "finclude/slepcqep.h"
 87: #include "finclude/ftn-custom/slepcqepdef.h90"
 88:         end module

 90:         module slepcqep
 91:         use slepcqepdef
 92: #include "finclude/slepcqep.h90"
 93:         end module

 95:         module slepcnepdef
 96:         use slepcip
 97:         use slepceps
 98: #include "finclude/slepcnep.h"
 99: #include "finclude/ftn-custom/slepcnepdef.h90"
100:         end module

102:         module slepcnep
103:         use slepcnepdef
104: #include "finclude/slepcnep.h90"
105:         end module

107:         module slepcmfndef
108:         use slepcip
109:         use slepcds
110: #include "finclude/slepcmfn.h"
111: #include "finclude/ftn-custom/slepcmfndef.h90"
112:         end module

114:         module slepcmfn
115:         use slepcmfndef
116: #include "finclude/slepcmfn.h90"
117:         end module