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