1: !
  2: !  $Id: petscvec.h,v 1.36 2001/07/20 21:27:44 bsmith Exp $;
  3: !
  4: !  Include file for Fortran use of the Vec package in PETSc
  5: !
  6: #if !defined (__PETSCVEC_H)

  9: #define Vec PetscFortranAddr
 10: #define VecScatter PetscFortranAddr
 11: #define PetscMap PetscFortranAddr
 12: #define NormType integer
 13: #define InsertMode integer
 14: #define ScatterMode integer 
 15: #define VecOption integer
 16: #define VecType character*(80)
 17: #define PipelineDirection integer
 18: #define PipelineType integer
 19: #define VecPipeline integer
 20: #define VecOperation integer

 22: #define VECSEQ 'seq'
 23: #define VECMPI 'mpi'
 24: #define VECFETI 'feti'
 25: #define VECSHARED 'shared'
 26: #define VECESI 'esi'
 27: #define VECPETSCESI 'petscesi'

 29: #endif

 31: #if !defined (PETSC_AVOID_DECLARATIONS)
 32: !
 33: !
 34: !  Types of vector and matrix norms
 35: !
 36:       integer NORM_1,NORM_2,NORM_FROBENIUS,NORM_INFINITY
 37:       integer NORM_MAX,NORM_1_AND_2

 39:       parameter (NORM_1=1,NORM_2=2,NORM_FROBENIUS=3,NORM_INFINITY=4)
 40:       parameter (NORM_MAX=4,NORM_1_AND_2=5)
 41: !
 42: !  Flags for VecSetValues() and MatSetValues()
 43: !
 44:       integer NOT_SET_VALUES,INSERT_VALUES,ADD_VALUES,MAX_VALUES

 46:       parameter (NOT_SET_VALUES=0,INSERT_VALUES=1,ADD_VALUES=2)
 47:       parameter (MAX_VALUES=3)
 48: !
 49: !  Types of vector scatters
 50: !
 51:       integer SCATTER_FORWARD,SCATTER_REVERSE,SCATTER_FORWARD_LOCAL
 52:       integer SCATTER_REVERSE_LOCAL,SCATTER_LOCAL

 54:       parameter (SCATTER_FORWARD=0,SCATTER_REVERSE=1)
 55:       parameter (SCATTER_FORWARD_LOCAL=2,SCATTER_REVERSE_LOCAL=3)
 56:       parameter (SCATTER_LOCAL=2)
 57: !
 58: !  PipelineDirection
 59: !
 60:       integer PIPELINE_DOWN,PIPELINE_UP

 62:       parameter (PIPELINE_DOWN=0,PIPELINE_UP=1)
 63: !
 64: !  PipelineType
 65: !
 66:       integer PIPELINE_NONE,PIPELINE_SEQUENTIAL,PIPELINE_REDBLACK
 67:       integer PIPELINE_MULTICOLOR

 69:       parameter (PIPELINE_NONE=1,PIPELINE_SEQUENTIAL=2)
 70:       parameter (PIPELINE_REDBLACK=3,PIPELINE_MULTICOLOR=4)
 71: !
 72: !  VecOption
 73: !
 74:       integer VEC_IGNORE_OFF_PROC_ENTRIES

 76:       parameter (VEC_IGNORE_OFF_PROC_ENTRIES=0)
 77: !
 78: !  VecOperation
 79: !
 80:       integer VECOP_VIEW,VECOP_LOADINTOVECTOR

 82:       parameter (VECOP_VIEW=33,VECOP_LOADINTOVECTOR=40)
 83: !
 84: !  End of Fortran include file for the Vec package in PETSc

 86: #endif