Actual source code: petscvec.h

  1: !
  2: !  $Id: petscvec.h,v 1.35 2001/04/10 22:37:56 balay 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 Map 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 VEC_SEQ 'seq'
 23: #define VEC_MPI 'mpi'
 24: #define VEC_FETI 'feti'
 25: #define VEC_SHARED 'shared'

 27: #endif

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

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

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

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

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

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

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

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

 84: #endif