Date: 2013-09-02T10:10:03+00:00

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