1: ! 2: ! 3: ! Include file for Fortran use of the System package in PETSc 4: ! 5: #include finclude/petscsysdef.h 7: ! 8: ! Random numbers 9: ! 10: #define PETSCRAND 'rand' 11: #define PETSCRAND48 'rand48' 12: #define PETSCSPRNG 'sprng' 13: ! 14: ! 15: ! 16: PetscEnum PETSC_BINARY_INT_SIZE 17: PetscEnum PETSC_BINARY_FLOAT_SIZE 18: PetscEnum PETSC_BINARY_CHAR_SIZE 19: PetscEnum PETSC_BINARY_SHORT_SIZE 20: PetscEnum PETSC_BINARY_DOUBLE_SIZE 21: PetscEnum PETSC_BINARY_SCALAR_SIZE 23: parameter (PETSC_BINARY_INT_SIZE = 4) 24: parameter (PETSC_BINARY_FLOAT_SIZE = 4) 25: parameter (PETSC_BINARY_CHAR_SIZE = 1) 26: parameter (PETSC_BINARY_SHORT_SIZE = 2) 27: parameter (PETSC_BINARY_DOUBLE_SIZE = 8) 28: #if defined(PETSC_USE_COMPLEX) 29: parameter (PETSC_BINARY_SCALAR_SIZE = 16) 30: #else 31: parameter (PETSC_BINARY_SCALAR_SIZE = 8) 32: #endif 34: PetscEnum PETSC_BINARY_SEEK_SET 35: PetscEnum PETSC_BINARY_SEEK_CUR 36: PetscEnum PETSC_BINARY_SEEK_END 38: parameter (PETSC_BINARY_SEEK_SET = 0,PETSC_BINARY_SEEK_CUR = 1) 39: parameter (PETSC_BINARY_SEEK_END = 2) 41: ! 42: ! End of Fortran include file for the System package in PETSc