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 PetscEnum
 10: #define PetscBinarySeekType PetscEnum

 12: #endif


 15: #if !defined (PETSC_AVOID_DECLARATIONS)
 16: !
 17: !     Random numbers
 18: !
 19:       PetscEnum RANDOM_DEFAULT,RANDOM_DEFAULT_REAL
 20:       PetscEnum RANDOM_DEFAULT_IMAGINARY

 22:       parameter (RANDOM_DEFAULT=0,RANDOM_DEFAULT_REAL=1)
 23:       parameter (RANDOM_DEFAULT_IMAGINARY=2)
 24: !
 25: !
 26: !
 27:       PetscEnum PETSC_BINARY_INT_SIZE,PETSC_BINARY_FLOAT_SIZE
 28:       PetscEnum PETSC_BINARY_CHAR_SIZE
 29:       PetscEnum PETSC_BINARY_SHORT_SIZE,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,PETSC_BINARY_SEEK_CUR
 44:       PetscEnum PETSC_BINARY_SEEK_END

 46:       parameter (PETSC_BINARY_SEEK_SET = 0,PETSC_BINARY_SEEK_CUR = 1)
 47:       parameter (PETSC_BINARY_SEEK_END = 2)

 49: !
 50: !     End of Fortran include file for the System  package in PETSc

 52: #endif