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 character*(80)
10: #define PetscBinarySeekType PetscEnum
12: #endif
15: #if !defined (PETSC_AVOID_DECLARATIONS)
16: !
17: ! Random numbers
18: !
19: #define PETSCRAND 'petscrand'
20: #define PETSCRAND48 'petscrand48'
21: #define SPRNG 'sprng'
22: !
23: !
24: !
25: PetscEnum PETSC_BINARY_INT_SIZE
26: PetscEnum PETSC_BINARY_FLOAT_SIZE
27: PetscEnum PETSC_BINARY_CHAR_SIZE
28: PetscEnum PETSC_BINARY_SHORT_SIZE
29: PetscEnum 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
44: PetscEnum PETSC_BINARY_SEEK_CUR
45: PetscEnum PETSC_BINARY_SEEK_END
47: parameter (PETSC_BINARY_SEEK_SET = 0,PETSC_BINARY_SEEK_CUR = 1)
48: parameter (PETSC_BINARY_SEEK_END = 2)
50: !
51: ! End of Fortran include file for the System package in PETSc
53: #endif