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,PETSC_BINARY_FLOAT_SIZE
26: PetscEnum PETSC_BINARY_CHAR_SIZE
27: PetscEnum PETSC_BINARY_SHORT_SIZE,PETSC_BINARY_DOUBLE_SIZE
28: PetscEnum PETSC_BINARY_SCALAR_SIZE
30: parameter (PETSC_BINARY_INT_SIZE = 4)
31: parameter (PETSC_BINARY_FLOAT_SIZE = 4)
32: parameter (PETSC_BINARY_CHAR_SIZE = 1)
33: parameter (PETSC_BINARY_SHORT_SIZE = 2)
34: parameter (PETSC_BINARY_DOUBLE_SIZE = 8)
35: #if defined(PETSC_USE_COMPLEX)
36: parameter (PETSC_BINARY_SCALAR_SIZE = 16)
37: #else
38: parameter (PETSC_BINARY_SCALAR_SIZE = 8)
39: #endif
41: PetscEnum PETSC_BINARY_SEEK_SET,PETSC_BINARY_SEEK_CUR
42: PetscEnum PETSC_BINARY_SEEK_END
44: parameter (PETSC_BINARY_SEEK_SET = 0,PETSC_BINARY_SEEK_CUR = 1)
45: parameter (PETSC_BINARY_SEEK_END = 2)
47: !
48: ! End of Fortran include file for the System package in PETSc
50: #endif