Actual source code: petscsys.h

  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