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