1: !
  2: !
  3: !  Include file for Fortran use of the Vec package in PETSc
  4: !
  5: #if !defined (__PETSCVEC_H)

  8: #define Vec PetscFortranAddr
  9: #define VecScatter PetscFortranAddr
 10: #define NormType PetscEnum
 11: #define InsertMode PetscEnum
 12: #define ScatterMode PetscEnum 
 13: #define VecOption PetscEnum
 14: #define VecType character*(80)
 15: #define VecOperation PetscEnum

 17: #define VECSEQ 'seq'
 18: #define VECMPI 'mpi'
 19: #define VECFETI 'feti'
 20: #define VECSHARED 'shared'
 21: #define VECESI 'esi'
 22: #define VECPETSCESI 'petscesi'

 24: #endif

 26: #if !defined (PETSC_AVOID_DECLARATIONS)
 27: !
 28: !
 29: !  Types of vector and matrix norms
 30: !
 31:       PetscEnum NORM_1,NORM_2,NORM_FROBENIUS,NORM_INFINITY
 32:       PetscEnum NORM_MAX,NORM_1_AND_2

 34:       parameter (NORM_1=0,NORM_2=1,NORM_FROBENIUS=2,NORM_INFINITY=3)
 35:       parameter (NORM_MAX=3,NORM_1_AND_2=4)
 36: !
 37: !  Flags for VecSetValues() and MatSetValues()
 38: !
 39:       PetscEnum NOT_SET_VALUES,INSERT_VALUES,ADD_VALUES,MAX_VALUES

 41:       parameter (NOT_SET_VALUES=0,INSERT_VALUES=1,ADD_VALUES=2)
 42:       parameter (MAX_VALUES=3)
 43: !
 44: !  Types of vector scatters
 45: !
 46:       PetscEnum SCATTER_FORWARD,SCATTER_REVERSE,SCATTER_FORWARD_LOCAL
 47:       PetscEnum SCATTER_REVERSE_LOCAL,SCATTER_LOCAL

 49:       parameter (SCATTER_FORWARD=0,SCATTER_REVERSE=1)
 50:       parameter (SCATTER_FORWARD_LOCAL=2,SCATTER_REVERSE_LOCAL=3)
 51:       parameter (SCATTER_LOCAL=2)
 52: !
 53: !  VecOption
 54: !
 55:       PetscEnum VEC_IGNORE_OFF_PROC_ENTRIES

 57:       parameter (VEC_IGNORE_OFF_PROC_ENTRIES=0)
 58: !
 59: !  VecOperation
 60: !
 61:       PetscEnum VECOP_VIEW,VECOP_LOADINTOVECTOR

 63:       parameter (VECOP_VIEW=33,VECOP_LOADINTOVECTOR=40)
 64: !
 65: !  End of Fortran include file for the Vec package in PETSc

 67: #endif