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