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