1: !
  2: !  $Id: petscsys.h,v 1.24 2001/04/10 22:37:56 balay Exp $;
  3: !
  4: !  Include file for Fortran use of the System package in PETSc
  5: !
  6: #if !defined (__PETSCSYS_H)

  9: #define PetscRandom PetscFortranAddr
 10: #define PetscRandomType integer
 11: #define PetscBinarySeekType integer

 13: #endif


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

 23:       parameter (RANDOM_DEFAULT=0,RANDOM_DEFAULT_REAL=1)
 24:       parameter (RANDOM_DEFAULT_IMAGINARY=2)
 25: !
 26: !
 27: !
 28:       integer PETSC_BINARY_INT_SIZE,PETSC_BINARY_FLOAT_SIZE
 29:       integer PETSC_BINARY_CHAR_SIZE
 30:       integer PETSC_BINARY_SHORT_SIZE,PETSC_BINARY_DOUBLE_SIZE
 31:       integer PETSC_BINARY_SCALAR_SIZE

 33:       parameter (PETSC_BINARY_INT_SIZE = 4)
 34:       parameter (PETSC_BINARY_FLOAT_SIZE = 4)
 35:       parameter (PETSC_BINARY_CHAR_SIZE = 1)
 36:       parameter (PETSC_BINARY_SHORT_SIZE = 2)
 37:       parameter (PETSC_BINARY_DOUBLE_SIZE = 8)
 38: #if defined(PETSC_USE_COMPLEX)
 39:       parameter (PETSC_BINARY_SCALAR_SIZE = 16)
 40: #else
 41:       parameter (PETSC_BINARY_SCALAR_SIZE = 8)
 42: #endif

 44:       integer PETSC_BINARY_SEEK_SET,PETSC_BINARY_SEEK_CUR
 45:       integer 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