Date: 2022-03-04T17:37:41+00:00

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:       PetscEnum, parameter :: SCATTER_LOCAL = 2
     52: !
     53: !  VecOption
     54: !
     55:       PetscEnum, parameter :: VEC_IGNORE_OFF_PROC_ENTRIES = 0
     56:       PetscEnum, parameter :: VEC_IGNORE_NEGATIVE_INDICES = 1
     57:       PetscEnum, parameter :: VEC_SUBSET_OFF_PROC_ENTRIES = 2
     58: !
     59: !  VecOperation
     60: !
     61:       PetscEnum, parameter :: VECOP_DUPLICATE = 0
     62:       PetscEnum, parameter :: VECOP_VIEW = 33
     63:       PetscEnum, parameter :: VECOP_LOAD = 41
     64:       PetscEnum, parameter :: VECOP_VIEWNATIVE = 68
     65:       PetscEnum, parameter :: VECOP_LOADNATIVE = 69

     67: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
     68: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_VEC
     69: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_VECSCATTER
     70: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_VECTAGGER
     71: !DEC$ ATTRIBUTES DLLEXPORT::NORM_1
     72: !DEC$ ATTRIBUTES DLLEXPORT::NORM_2
     73: !DEC$ ATTRIBUTES DLLEXPORT::NORM_FROBENIUS
     74: !DEC$ ATTRIBUTES DLLEXPORT::NORM_INFINITY
     75: !DEC$ ATTRIBUTES DLLEXPORT::NORM_MAX
     76: !DEC$ ATTRIBUTES DLLEXPORT::NORM_1_AND_2
     77: !DEC$ ATTRIBUTES DLLEXPORT::NOT_SET_VALUES
     78: !DEC$ ATTRIBUTES DLLEXPORT::INSERT_VALUES
     79: !DEC$ ATTRIBUTES DLLEXPORT::ADD_VALUES
     80: !DEC$ ATTRIBUTES DLLEXPORT::MAX_VALUES
     81: !DEC$ ATTRIBUTES DLLEXPORT::INSERT_ALL_VALUES
     82: !DEC$ ATTRIBUTES DLLEXPORT::ADD_ALL_VALUES
     83: !DEC$ ATTRIBUTES DLLEXPORT::INSERT_BC_VALUES
     84: !DEC$ ATTRIBUTES DLLEXPORT::ADD_BC_VALUES
     85: !DEC$ ATTRIBUTES DLLEXPORT::SCATTER_FORWARD
     86: !DEC$ ATTRIBUTES DLLEXPORT::SCATTER_REVERSE
     87: !DEC$ ATTRIBUTES DLLEXPORT::SCATTER_FORWARD_LOCAL
     88: !DEC$ ATTRIBUTES DLLEXPORT::SCATTER_REVERSE_LOCAL
     89: !DEC$ ATTRIBUTES DLLEXPORT::SCATTER_LOCAL
     90: !DEC$ ATTRIBUTES DLLEXPORT::VEC_IGNORE_OFF_PROC_ENTRIES
     91: !DEC$ ATTRIBUTES DLLEXPORT::VEC_IGNORE_NEGATIVE_INDICES
     92: !DEC$ ATTRIBUTES DLLEXPORT::VEC_SUBSET_OFF_PROC_ENTRIES
     93: !DEC$ ATTRIBUTES DLLEXPORT::VECOP_DUPLICATE
     94: !DEC$ ATTRIBUTES DLLEXPORT::VECOP_VIEW
     95: !DEC$ ATTRIBUTES DLLEXPORT::VECOP_LOAD
     96: !DEC$ ATTRIBUTES DLLEXPORT::VECOP_VIEWNATIVE
     97: !DEC$ ATTRIBUTES DLLEXPORT::VECOP_LOADNATIVE
     98: #endif