Actual source code: slepcmod.F

  1: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  2: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
  3: !  Copyright (c) 2002-2010, Universidad 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 slepcepsdef
 48:         use slepcst
 49:         use slepcip
 50: #include "finclude/slepceps.h"
 51: #include "finclude/ftn-custom/slepcepsdef.h90"
 52:         end module

 54:         module slepceps
 55:         use slepcepsdef
 56: #include "finclude/slepceps.h90"
 57:         end module

 59:         module slepcsvddef
 60:         use slepcip
 61:         use slepceps
 62: #include "finclude/slepcsvd.h"
 63: #include "finclude/ftn-custom/slepcsvddef.h90"
 64:         end module

 66:         module slepcsvd
 67:         use slepcsvddef
 68: #include "finclude/slepcsvd.h90"
 69:         end module

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

 78:         module slepcqep
 79:         use slepcqepdef
 80: #include "finclude/slepcqep.h90"
 81:         end module