Actual source code: petscis.h
petsc-3.13.6 2020-09-29
Report Typos and Errors

      1: !
      2: !
      3: !  Include file for Fortran use of the IS (index set) package in PETSc
      4: !
      5: #include "petsc/finclude/petscis.h"

      7:       type tIS
      8:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
      9:       end type tIS
     10:       type tISColoring
     11:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
     12:       end type tISColoring
     13:       type tPetscSection
     14:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
     15:       end type tPetscSection
     16:       type tPetscSectionSym
     17:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
     18:       end type tPetscSectionSym
     19:       type tPetscSF
     20:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
     21:       end type tPetscSF
     22:       type PetscSFNode
     23:         sequence
     24:         PetscInt    rank
     25:         PetscInt    index
     26:       end type PetscSFNode

     28:       IS, parameter :: PETSC_NULL_IS = tIS(0)
     29:       PetscSF, parameter :: PETSC_NULL_SF = tPetscSF(0)
     30:       PetscSection, parameter :: PETSC_NULL_SECTION = tPetscSection(0)
     31:       PetscSectionSym, parameter :: PETSC_NULL_SECTIONSYM = tPetscSectionSym(0)

     33:       PetscEnum, parameter :: IS_COLORING_GLOBAL = 0
     34:       PetscEnum, parameter :: IS_COLORING_LOCAL = 1

     36:       PetscEnum, parameter :: IS_GENERAL = 0
     37:       PetscEnum, parameter :: IS_STRIDE = 1
     38:       PetscEnum, parameter :: IS_BLOCK = 2

     40:       PetscEnum, parameter :: IS_GTOLM_MASK =0
     41:       PetscEnum, parameter :: IS_GTOLM_DROP = 1
     42: !
     43: !  ISInfo; must match those in include/petscis.h
     44: !
     45:       PetscEnum, parameter :: IS_INFO_MIN = -1
     46:       PetscEnum, parameter :: IS_SORTED = 0
     47:       PetscEnum, parameter :: IS_UNIQUE = 1
     48:       PetscEnum, parameter :: IS_PERMUTATION = 2
     49:       PetscEnum, parameter :: IS_INTERVAL = 3
     50:       PetscEnum, parameter :: IS_IDENTITY = 4
     51:       PetscEnum, parameter :: IS_INFO_MAX = 5
     52: !
     53: !  ISInfoType; must match those in include/petscis.h
     54: !
     55:       PetscEnum, parameter :: IS_LOCAL = 0
     56:       PetscEnum, parameter :: IS_GLOBAL = 1
     57: !
     58: !  End of Fortran include file for the IS package in PETSc

     60: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
     61: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_IS
     62: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SF
     63: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTION
     64: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTIONSYM
     65: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_GLOBAL
     66: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_LOCAL
     67: !DEC$ ATTRIBUTES DLLEXPORT::IS_GENERAL
     68: !DEC$ ATTRIBUTES DLLEXPORT::IS_STRIDE
     69: !DEC$ ATTRIBUTES DLLEXPORT::IS_BLOCK
     70: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_MASK
     71: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_DROP
     72: #endif