1: !
  2: !
  3: !  Include file for Fortran use of the Vec package in PETSc
  4: !
 5:  #include finclude/petscvecdef.h
  6: !
  7: !
  8: !  Types of vector and matrix norms
  9: !
 10:       PetscEnum NORM_1
 11:       PetscEnum NORM_2
 12:       PetscEnum NORM_FROBENIUS
 13:       PetscEnum NORM_INFINITY
 14:       PetscEnum NORM_MAX
 15:       PetscEnum NORM_1_AND_2

 17:       parameter (NORM_1=0,NORM_2=1,NORM_FROBENIUS=2,NORM_INFINITY=3)
 18:       parameter (NORM_MAX=3,NORM_1_AND_2=4)
 19: !
 20: !  Flags for VecSetValues() and MatSetValues()
 21: !
 22:       PetscEnum NOT_SET_VALUES
 23:       PetscEnum INSERT_VALUES
 24:       PetscEnum ADD_VALUES
 25:       PetscEnum MAX_VALUES
 26:       PetscEnum INSERT_ALL_VALUES
 27:       PetscEnum ADD_ALL_VALUES
 28:       PetscEnum INSERT_BC_VALUES
 29:       PetscEnum ADD_BC_VALUES

 31:       parameter (NOT_SET_VALUES=0,INSERT_VALUES=1,ADD_VALUES=2)
 32:       parameter (MAX_VALUES=3)
 33:       parameter (INSERT_ALL_VALUES=4,ADD_ALL_VALUES=5)
 34:       parameter (INSERT_BC_VALUES=6,ADD_BC_VALUES=7)
 35: !
 36: !  Types of vector scatters
 37: !
 38:       PetscEnum SCATTER_FORWARD
 39:       PetscEnum SCATTER_REVERSE
 40:       PetscEnum SCATTER_FORWARD_LOCAL
 41:       PetscEnum SCATTER_REVERSE_LOCAL
 42:       PetscEnum SCATTER_LOCAL

 44:       parameter (SCATTER_FORWARD=0,SCATTER_REVERSE=1)
 45:       parameter (SCATTER_FORWARD_LOCAL=2,SCATTER_REVERSE_LOCAL=3)
 46:       parameter (SCATTER_LOCAL=2)
 47: !
 48: !  VecOption
 49: !
 50:       PetscEnum VEC_IGNORE_OFF_PROC_ENTRIES
 51:       PetscEnum VEC_IGNORE_NEGATIVE_INDICES

 53:       parameter (VEC_IGNORE_OFF_PROC_ENTRIES=0)
 54:       parameter (VEC_IGNORE_NEGATIVE_INDICES=1)

 56: !
 57: !  VecOperation
 58: !
 59:       PetscEnum VECOP_VIEW
 60:       PetscEnum VECOP_LOADINTOVECTOR

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