! ! ! Base include file for Fortran use of the PETSc package. ! #include "petscconf.h" #include "petscversion.h" #include "petsc/finclude/petscsys.h" ! ! The following block allows one to write constants that match the ! precision of PetscReal as, for example, x = .7_PETSC_REAL_KIND ! PetscReal,Parameter :: PetscReal_Private = 1.0 Integer,Parameter :: PETSC_REAL_KIND = Selected_Real_Kind(Precision(PetscReal_Private)) type :: tPetscObject PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE end type tPetscObject PetscObject, parameter :: PETSC_NULL_OBJECT = tPetscObject(0) #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_OBJECT #endif type, extends(tPetscObject) :: tPetscOptions end type tPetscOptions PetscOptions, parameter :: PETSC_NULL_OPTIONS = tPetscOptions(0) #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_OPTIONS #endif type, extends(tPetscObject) :: tPetscBench end type tPetscBench PetscBench, parameter :: PETSC_NULL_BENCH = tPetscBench(0) #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_BENCH #endif type :: tPetscDevice PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE end type tPetscDevice PetscDevice, parameter :: PETSC_NULL_DEVICE = tPetscDevice(0) #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_DEVICE #endif type, extends(tPetscObject) :: tPetscDeviceContext end type tPetscDeviceContext PetscDeviceContext, parameter :: PETSC_NULL_DEVICE_CONTEXT = tPetscDeviceContext(0) #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL__DEVICE_CONTEXT #endif type, extends(tPetscObject) :: tPetscMatlabEngine end type tPetscMatlabEngine PetscMatlabEngine, parameter :: PETSC_NULL_MATLAB_ENGINE = tPetscMatlabEngine(0) #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_MATLAB_ENGINE #endif ! ------------------------------------------------------------------------ ! Non Common block Stuff declared first ! ! Flags ! PetscBool, parameter :: PETSC_TRUE = .true. PetscBool, parameter :: PETSC_FALSE = .false. PetscBool3, parameter :: PETSC_BOOL3_TRUE = 1 PetscBool3, parameter :: PETSC_BOOL3_FALSE = 0 PetscBool3, parameter :: PETSC_BOOL3_UNKNOWN = -1 PetscInt, parameter :: PETSC_DECIDE = -1 PetscInt, parameter :: PETSC_DECIDE_INTEGER = -1 PetscReal, parameter :: PETSC_DECIDE_REAL = -1.0d0 #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PETSC_DECIDE !DEC$ ATTRIBUTES DLLEXPORT::PETSC_DECIDE_INTEGER !DEC$ ATTRIBUTES DLLEXPORT::PETSC_DECIDE_REAL #endif PetscInt, parameter :: PETSC_DETERMINE = -1 PetscInt, parameter :: PETSC_DETERMINE_INTEGER = -1 PetscReal, parameter :: PETSC_DETERMINE_REAL = -1.0d0 #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PETSC_DETERMINE !DEC$ ATTRIBUTES DLLEXPORT::PETSC_DETERMINE_INTEGER !DEC$ ATTRIBUTES DLLEXPORT::PETSC_DETERMINE_REAL #endif PetscInt, parameter :: PETSC_CURRENT = -2 PetscInt, parameter :: PETSC_CURRENT_INTEGER = -2 PetscReal, parameter :: PETSC_CURRENT_REAL = -2.0d0 #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PETSC_CURRENT !DEC$ ATTRIBUTES DLLEXPORT::PETSC_CURRENT_INTEGER !DEC$ ATTRIBUTES DLLEXPORT::PETSC_CURRENT_REAL #endif PetscInt, parameter :: PETSC_DEFAULT = -2 PetscInt, parameter :: PETSC_DEFAULT_INTEGER = -2 PetscReal, parameter :: PETSC_DEFAULT_REAL = -2.0d0 #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PETSC_DEFAULT !DEC$ ATTRIBUTES DLLEXPORT::PETSC_DEFAULT_INTEGER !DEC$ ATTRIBUTES DLLEXPORT::PETSC_DEFAULT_REAL #endif PetscEnum, parameter :: PETSC_FP_TRAP_OFF = 0 PetscEnum, parameter :: PETSC_FP_TRAP_ON = 55 PetscEnum, parameter :: PETSC_FP_TRAP_INDIV = 1 PetscEnum, parameter :: PETSC_FP_TRAP_FLTOPERR = 2 PetscEnum, parameter :: PETSC_FP_TRAP_FLTOVF = 4 PetscEnum, parameter :: PETSC_FP_TRAP_FLTUND = 8 PetscEnum, parameter :: PETSC_FP_TRAP_FLTDIV = 16 PetscEnum, parameter :: PETSC_FP_TRAP_FLTINEX =32 PetscFortranAddr, parameter :: PETSC_STDOUT = 0 ! ! PETSc DataTypes ! #if defined(PETSC_USE_REAL_SINGLE) #define PETSC_REAL PETSC_FLOAT #elif defined(PETSC_USE_REAL___FLOAT128) #define PETSC_REAL PETSC___FLOAT128 #else #define PETSC_REAL PETSC_DOUBLE #endif #define PETSC_FORTRANADDR PETSC_LONG PetscEnum, parameter :: PETSC_DATATYPE_UNKNOWN = 0 PetscEnum, parameter :: PETSC_DOUBLE = 1 PetscEnum, parameter :: PETSC_COMPLEX = 2 PetscEnum, parameter :: PETSC_LONG = 3 PetscEnum, parameter :: PETSC_SHORT = 4 PetscEnum, parameter :: PETSC_FLOAT = 5 PetscEnum, parameter :: PETSC_CHAR = 6 PetscEnum, parameter :: PETSC_BIT_LOGICAL = 7 PetscEnum, parameter :: PETSC_ENUM = 8 PetscEnum, parameter :: PETSC_BOOL = 9 PetscEnum, parameter :: PETSC___FLOAT128 = 10 PetscEnum, parameter :: PETSC_OBJECT = 11 PetscEnum, parameter :: PETSC_FUNCTION = 12 PetscEnum, parameter :: PETSC_STRING = 13 PetscEnum, parameter :: PETSC___FP16 = 14 PetscEnum, parameter :: PETSC_STRUCT = 15 PetscEnum, parameter :: PETSC_INT = 16 ! ! ! PetscEnum, parameter :: PETSC_COPY_VALUES = 0 PetscEnum, parameter :: PETSC_OWN_POINTER = 1 PetscEnum, parameter :: PETSC_USE_POINTER = 2 ! ! ------------------------------------------------------------------------ ! PETSc mathematics include file. Defines certain basic mathematical ! constants and functions for working with single and double precision ! floating point numbers as well as complex and integers. ! ! Representation of complex i ! #if defined(PETSC_USE_REAL_SINGLE) PetscFortranComplex, parameter :: PETSC_i = (0.0e0,1.0e0) #else PetscFortranComplex, parameter :: PETSC_i = (0.0d0,1.0d0) #endif ! A PETSC_NULL_FUNCTION pointer ! external PETSC_NULL_FUNCTION ! ! Possible arguments to PetscPushErrorHandler() ! external PETSCTRACEBACKERRORHANDLER external PETSCABORTERRORHANDLER external PETSCEMACSCLIENTERRORHANDLER external PETSCATTACHDEBUGGERERRORHANDLER external PETSCIGNOREERRORHANDLER ! external PetscIsInfOrNanScalar external PetscIsInfOrNanReal PetscBool PetscIsInfOrNanScalar PetscBool PetscIsInfOrNanReal ! ---------------------------------------------------------------------------- ! ! Random numbers ! type, extends(tPetscObject) :: tPetscRandom end type tPetscRandom PetscRandom, parameter :: PETSC_NULL_RANDOM = tPetscRandom(0) #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_RANDOM #endif ! #define PETSCRAND 'rand' #define PETSCRAND48 'rand48' #define PETSCSPRNG 'sprng' #define PETSCRANDER48 'rander48' ! ! ! PetscEnum, parameter :: PETSC_BINARY_INT_SIZE = 4 PetscEnum, parameter :: PETSC_BINARY_FLOAT_SIZE = 4 PetscEnum, parameter :: PETSC_BINARY_CHAR_SIZE = 1 PetscEnum, parameter :: PETSC_BINARY_SHORT_SIZE = 2 PetscEnum, parameter :: PETSC_BINARY_DOUBLE_SIZE = 8 #if defined(PETSC_USE_COMPLEX) PetscEnum, parameter :: PETSC_BINARY_SCALAR_SIZE = 16 #else PetscEnum, parameter :: PETSC_BINARY_SCALAR_SIZE = 8 #endif PetscEnum, parameter :: PETSC_BINARY_SEEK_SET = 0 PetscEnum, parameter :: PETSC_BINARY_SEEK_CUR = 1 PetscEnum, parameter :: PETSC_BINARY_SEEK_END = 2 PetscEnum, parameter :: PETSC_BUILDTWOSIDED_ALLREDUCE = 0 PetscEnum, parameter :: PETSC_BUILDTWOSIDED_IBARRIER = 1 PetscEnum, parameter :: PETSC_BUILDTWOSIDED_REDSCATTER = 2 type tPetscSubcomm PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE end type tPetscSubcomm PetscSubcomm, parameter :: PETSC_NULL_SUBCOMM = tPetscSubcomm(0) #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SUBCOMM #endif ! ! PetscSubcommType ! PetscEnum, parameter :: PETSC_SUBCOMM_GENERAL = 0 PetscEnum, parameter :: PETSC_SUBCOMM_CONTIGUOUS = 1 PetscEnum, parameter :: PETSC_SUBCOMM_INTERLACED = 2 #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) !DEC$ ATTRIBUTES DLLEXPORT::PetscReal_Private !DEC$ ATTRIBUTES DLLEXPORT::PETSC_REAL_KIND !DEC$ ATTRIBUTES DLLEXPORT::PETSC_TRUE !DEC$ ATTRIBUTES DLLEXPORT::PETSC_FALSE !DEC$ ATTRIBUTES DLLEXPORT::PETSC_FP_TRAP_OFF !DEC$ ATTRIBUTES DLLEXPORT::PETSC_FP_TRAP_ON !DEC$ ATTRIBUTES DLLEXPORT::PETSC_STDOUT !DEC$ ATTRIBUTES DLLEXPORT::PETSC_INT !DEC$ ATTRIBUTES DLLEXPORT::PETSC_DOUBLE !DEC$ ATTRIBUTES DLLEXPORT::PETSC_COMPLEX !DEC$ ATTRIBUTES DLLEXPORT::PETSC_LONG !DEC$ ATTRIBUTES DLLEXPORT::PETSC_SHORT !DEC$ ATTRIBUTES DLLEXPORT::PETSC_FLOAT !DEC$ ATTRIBUTES DLLEXPORT::PETSC_CHAR !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BIT_LOGICAL !DEC$ ATTRIBUTES DLLEXPORT::PETSC_ENUM !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BOOL !DEC$ ATTRIBUTES DLLEXPORT::PETSC___FLOAT128 !DEC$ ATTRIBUTES DLLEXPORT::PETSC_OBJECT !DEC$ ATTRIBUTES DLLEXPORT::PETSC_FUNCTION !DEC$ ATTRIBUTES DLLEXPORT::PETSC_STRING !DEC$ ATTRIBUTES DLLEXPORT::PETSC_STRUC !DEC$ ATTRIBUTES DLLEXPORT::PETSC_DATATYPE_UNKNOWN !DEC$ ATTRIBUTES DLLEXPORT::PETSC_COPY_VALUES !DEC$ ATTRIBUTES DLLEXPORT::PETSC_OWN_POINTER !DEC$ ATTRIBUTES DLLEXPORT::PETSC_USE_POINTER !DEC$ ATTRIBUTES DLLEXPORT::PETSC_i !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BINARY_INT_SIZE !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BINARY_FLOAT_SIZE !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BINARY_CHAR_SIZE !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BINARY_SHORT_SIZE !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BINARY_DOUBLE_SIZE !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BINARY_SCALAR_SIZE !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BINARY_SEEK_SET !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BINARY_SEEK_CUR !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BINARY_SEEK_END !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BUILDTWOSIDED_ALLREDUCE !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BUILDTWOSIDED_IBARRIER !DEC$ ATTRIBUTES DLLEXPORT::PETSC_BUILDTWOSIDED_REDSCATTER !DEC$ ATTRIBUTES DLLEXPORT::PETSC_SUBCOMM_GENERAL !DEC$ ATTRIBUTES DLLEXPORT::PETSC_SUBCOMM_CONTIGUOUS !DEC$ ATTRIBUTES DLLEXPORT::PETSC_SUBCOMM_INTERLACED #endif ! ---------------------------------------------------------------------------- ! ! PetscInfoCommFlag Enum ! ! ! PetscInfoCommFlag ! PetscEnum PETSC_INFO_COMM_ALL PetscEnum PETSC_INFO_COMM_NO_SELF PetscEnum PETSC_INFO_COMM_ONLY_SELF parameter(PETSC_INFO_COMM_ALL=-1) parameter(PETSC_INFO_COMM_NO_SELF=0) parameter(PETSC_INFO_COMM_ONLY_SELF=1)