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