Actual source code: petscsys.h
1: !
2: !
3: ! Include file for Fortran use of the System package in PETSc
4: !
5: #if !defined (__PETSCSYS_H)
8: #define PetscRandom PetscFortranAddr
9: #define PetscRandomType PetscEnum
10: #define PetscBinarySeekType PetscEnum
12: #endif
15: #if !defined (PETSC_AVOID_DECLARATIONS)
16: !
17: ! Random numbers
18: !
19: PetscEnum RANDOM_DEFAULT,RANDOM_DEFAULT_REAL
20: PetscEnum RANDOM_DEFAULT_IMAGINARY
22: parameter (RANDOM_DEFAULT=0,RANDOM_DEFAULT_REAL=1)
23: parameter (RANDOM_DEFAULT_IMAGINARY=2)
24: !
25: !
26: !
27: PetscEnum PETSC_BINARY_INT_SIZE,PETSC_BINARY_FLOAT_SIZE
28: PetscEnum PETSC_BINARY_CHAR_SIZE
29: PetscEnum PETSC_BINARY_SHORT_SIZE,PETSC_BINARY_DOUBLE_SIZE
30: PetscEnum PETSC_BINARY_SCALAR_SIZE
32: parameter (PETSC_BINARY_INT_SIZE = 4)
33: parameter (PETSC_BINARY_FLOAT_SIZE = 4)
34: parameter (PETSC_BINARY_CHAR_SIZE = 1)
35: parameter (PETSC_BINARY_SHORT_SIZE = 2)
36: parameter (PETSC_BINARY_DOUBLE_SIZE = 8)
37: #if defined(PETSC_USE_COMPLEX)
38: parameter (PETSC_BINARY_SCALAR_SIZE = 16)
39: #else
40: parameter (PETSC_BINARY_SCALAR_SIZE = 8)
41: #endif
43: PetscEnum PETSC_BINARY_SEEK_SET,PETSC_BINARY_SEEK_CUR
44: PetscEnum PETSC_BINARY_SEEK_END
46: parameter (PETSC_BINARY_SEEK_SET = 0,PETSC_BINARY_SEEK_CUR = 1)
47: parameter (PETSC_BINARY_SEEK_END = 2)
49: !
50: ! End of Fortran include file for the System package in PETSc
52: #endif