Actual source code: petscvec.h
1: !
2: ! Used by petscvecmod.F90 to create Fortran module file
3: !
4: #include "petsc/finclude/petscvec.h"
6: type tVec
7: sequence
8: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
9: end type tVec
10: type tVecScatter
11: sequence
12: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
13: end type tVecScatter
14: type tVecTagger
15: sequence
16: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
17: end type tVecTagger
19: Vec, parameter :: PETSC_NULL_VEC = tVec(0)
20: VecScatter, parameter :: PETSC_NULL_VECSCATTER = tVecScatter(0)
21: VecTagger, parameter :: PETSC_NULL_VECTAGGER = tVecTagger(0)
22: !
23: !
24: ! Types of vector and matrix norms
25: !
26: PetscEnum, parameter :: NORM_1 = 0
27: PetscEnum, parameter :: NORM_2 = 1
28: PetscEnum, parameter :: NORM_FROBENIUS = 2
29: PetscEnum, parameter :: NORM_INFINITY = 3
30: PetscEnum, parameter :: NORM_MAX = 3
31: PetscEnum, parameter :: NORM_1_AND_2 = 4
32: !
33: ! Flags for VecSetValues() and MatSetValues()
34: !
35: PetscEnum, parameter :: NOT_SET_VALUES = 0
36: PetscEnum, parameter :: INSERT_VALUES = 1
37: PetscEnum, parameter :: ADD_VALUES = 2
38: PetscEnum, parameter :: MAX_VALUES = 3
39: PetscEnum, parameter :: MIN_VALUES = 4
40: PetscEnum, parameter :: INSERT_ALL_VALUES = 5
41: PetscEnum, parameter :: ADD_ALL_VALUES = 6
42: PetscEnum, parameter :: INSERT_BC_VALUES = 7
43: PetscEnum, parameter :: ADD_BC_VALUES = 8
44: !
45: ! Types of vector scatters
46: !
47: PetscEnum, parameter :: SCATTER_FORWARD = 0
48: PetscEnum, parameter :: SCATTER_REVERSE = 1
49: PetscEnum, parameter :: SCATTER_FORWARD_LOCAL = 2
50: PetscEnum, parameter :: SCATTER_REVERSE_LOCAL = 3
51: !
52: ! VecOption
53: !
54: PetscEnum, parameter :: VEC_IGNORE_OFF_PROC_ENTRIES = 0
55: PetscEnum, parameter :: VEC_IGNORE_NEGATIVE_INDICES = 1
56: PetscEnum, parameter :: VEC_SUBSET_OFF_PROC_ENTRIES = 2
57: !
58: ! VecOperation
59: !
60: PetscEnum, parameter :: VECOP_DUPLICATE = 0
61: PetscEnum, parameter :: VECOP_VIEW = 33
62: PetscEnum, parameter :: VECOP_LOAD = 41
63: PetscEnum, parameter :: VECOP_VIEWNATIVE = 68
64: PetscEnum, parameter :: VECOP_LOADNATIVE = 69
66: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
67: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_VEC
68: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_VECSCATTER
69: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_VECTAGGER
70: !DEC$ ATTRIBUTES DLLEXPORT::NORM_1
71: !DEC$ ATTRIBUTES DLLEXPORT::NORM_2
72: !DEC$ ATTRIBUTES DLLEXPORT::NORM_FROBENIUS
73: !DEC$ ATTRIBUTES DLLEXPORT::NORM_INFINITY
74: !DEC$ ATTRIBUTES DLLEXPORT::NORM_MAX
75: !DEC$ ATTRIBUTES DLLEXPORT::NORM_1_AND_2
76: !DEC$ ATTRIBUTES DLLEXPORT::NOT_SET_VALUES
77: !DEC$ ATTRIBUTES DLLEXPORT::INSERT_VALUES
78: !DEC$ ATTRIBUTES DLLEXPORT::ADD_VALUES
79: !DEC$ ATTRIBUTES DLLEXPORT::MAX_VALUES
80: !DEC$ ATTRIBUTES DLLEXPORT::INSERT_ALL_VALUES
81: !DEC$ ATTRIBUTES DLLEXPORT::ADD_ALL_VALUES
82: !DEC$ ATTRIBUTES DLLEXPORT::INSERT_BC_VALUES
83: !DEC$ ATTRIBUTES DLLEXPORT::ADD_BC_VALUES
84: !DEC$ ATTRIBUTES DLLEXPORT::SCATTER_FORWARD
85: !DEC$ ATTRIBUTES DLLEXPORT::SCATTER_REVERSE
86: !DEC$ ATTRIBUTES DLLEXPORT::SCATTER_FORWARD_LOCAL
87: !DEC$ ATTRIBUTES DLLEXPORT::SCATTER_REVERSE_LOCAL
88: !DEC$ ATTRIBUTES DLLEXPORT::VEC_IGNORE_OFF_PROC_ENTRIES
89: !DEC$ ATTRIBUTES DLLEXPORT::VEC_IGNORE_NEGATIVE_INDICES
90: !DEC$ ATTRIBUTES DLLEXPORT::VEC_SUBSET_OFF_PROC_ENTRIES
91: !DEC$ ATTRIBUTES DLLEXPORT::VECOP_DUPLICATE
92: !DEC$ ATTRIBUTES DLLEXPORT::VECOP_VIEW
93: !DEC$ ATTRIBUTES DLLEXPORT::VECOP_LOAD
94: !DEC$ ATTRIBUTES DLLEXPORT::VECOP_VIEWNATIVE
95: !DEC$ ATTRIBUTES DLLEXPORT::VECOP_LOADNATIVE
96: #endif