Actual source code: petscis.h
petsc-3.10.5 2019-03-28
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 =                   &
     31:      & tPetscSection(0)
     32:       PetscSectionSym, parameter :: PETSC_NULL_SECTIONSYM =             &
     33:      & tPetscSectionSym(0)

     35:       PetscEnum IS_COLORING_GLOBAL
     36:       PetscEnum IS_COLORING_LOCAL
     37:       parameter (IS_COLORING_GLOBAL = 0,IS_COLORING_LOCAL = 1)

     39:       PetscEnum IS_GENERAL
     40:       PetscEnum IS_STRIDE
     41:       PetscEnum IS_BLOCK
     42:       parameter (IS_GENERAL = 0,IS_STRIDE = 1,IS_BLOCK = 2)

     44:       PetscEnum IS_GTOLM_MASK
     45:       PetscEnum IS_GTOLM_DROP
     46:       parameter (IS_GTOLM_MASK =0,IS_GTOLM_DROP = 1)

     48: !
     49: !  End of Fortran include file for the IS package in PETSc

     51: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
     52: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_IS
     53: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SF
     54: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTION
     55: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_SECTIONSYM
     56: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_GLOBAL
     57: !DEC$ ATTRIBUTES DLLEXPORT::IS_COLORING_LOCAL
     58: !DEC$ ATTRIBUTES DLLEXPORT::IS_GENERAL
     59: !DEC$ ATTRIBUTES DLLEXPORT::IS_STRIDE
     60: !DEC$ ATTRIBUTES DLLEXPORT::IS_BLOCK
     61: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_MASK
     62: !DEC$ ATTRIBUTES DLLEXPORT::IS_GTOLM_DROP
     63: #endif