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