Actual source code: slepc.h
1: !
2: ! Include file for Fortran use of the SLEPc package
4: #include "petscconf.h"
5: #include "finclude/petscdef.h"
7: #if !defined (PETSC_AVOID_DECLARATIONS)
8: ! ------------------------------------------------------------------------
9: ! BEGIN COMMON-BLOCK VARIABLES
11: ! Fortran Null
12: !
13: character*(80) SLEPC_NULL_CHARACTER
14: PetscFortranInt SLEPC_NULL_INTEGER
15: PetscFortranDouble SLEPC_NULL_DOUBLE
16: PetscScalar SLEPC_NULL_SCALAR
17: !
18: ! A SLEPC_NULL_FUNCTION pointer
19: !
20: ! external SLEPC_NULL_FUNCTION
21: !
22: ! Common block to store some of the SLEPc constants,
23: ! which can be set only at runtime.
24: ! (A string should be in a different common block.)
25: !
26: common /slepcfortran1/ SLEPC_NULL_CHARACTER
27: common /slepcfortran2/ SLEPC_NULL_INTEGER
28: common /slepcfortran3/ SLEPC_NULL_SCALAR
29: common /slepcfortran4/ SLEPC_NULL_DOUBLE
31: ! END COMMON-BLOCK VARIABLES
32: ! ----------------------------------------------------------------------------
33: !
34: ! End of Fortran include file for the SLEPc package
36: #endif