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 'rand' 20: #define PETSCRAND48 'rand48' 21: #define PETSCSPRNG '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