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

Actual source code: petscis.h90

      1: !
      2: !  These are Fortran interfaces that are custom hand coded because
      3: !  they cannot currently be generated automatically
      4: !

      6:       Interface
      7:         Subroutine PetscLayoutFindOwner(a,b,z)
      8:           PetscLayout a
      9:           PetscMPIInt b
     10:           PetscErrorCode  z
     11:         End Subroutine
     12:       End Interface

     14:       Interface
     15:         Subroutine PetscLayoutFindOwnerIndex(a,b,c,z)
     16:           PetscLayout a
     17:           PetscMPIInt b
     18:           PetscInt c
     19:           PetscErrorCode  z
     20:         End Subroutine
     21:       End Interface

     23:       Interface
     24:         Subroutine ISGetIndicesF90(i,array,ierr)
     25:           import tIS
     26:           PetscInt, pointer :: array(:)
     27:           PetscErrorCode  ierr
     28:          IS       i
     29:         End Subroutine
     30:       End Interface

     32:       Interface
     33:         Subroutine ISRestoreIndicesF90(i,array,ierr)
     34:           import tIS
     35:           PetscInt, pointer :: array(:)
     36:           PetscErrorCode ierr
     37:          IS      i
     38:         End Subroutine
     39:       End Interface

     41:       Interface
     42:         Subroutine ISLocalToGlobalMappingGetIndicesF90(i,array,ierr)
     43:           PetscInt, pointer :: array(:)
     44:           PetscErrorCode  ierr
     45:          ISLocalToGlobalMapping       i
     46:         End Subroutine
     47:       End Interface

     49:       Interface
     50:         Subroutine ISLocalToGlobalMappingRestoreIndicesF90(i,array,ierr)
     51:           PetscInt, pointer :: array(:)
     52:           PetscErrorCode  ierr
     53:          ISLocalToGlobalMapping       i
     54:         End Subroutine
     55:       End Interface

     57: ! ------------------------------------------------------

     59:       Interface
     60:         Subroutine ISBlockGetIndicesF90(i,array,ierr)
     61:           import tIS
     62:           PetscInt, pointer :: array(:)
     63:           PetscErrorCode  ierr
     64:          IS       i
     65:         End Subroutine
     66:       End Interface

     69:       Interface
     70:         Subroutine ISBlockRestoreIndicesF90(i,array,ierr)
     71:           import tIS
     72:           PetscInt, pointer :: array(:)
     73:           PetscErrorCode ierr
     74:          IS      i
     75:         End Subroutine
     76:       End Interface

     78: ! ------------------------------------------------------
     79:       Interface
     80:         Subroutine ISColoringGetISF90(ic,n,isa,ierr)
     81:           import tIS,tISColoring
     82:           IS, pointer :: isa(:)
     83:           PetscInt     n
     84:           PetscErrorCode ierr
     85:           ISColoring ic
     86:         End Subroutine
     87:       End Interface

     89:       Interface
     90:         Subroutine ISColoringRestoreISF90(ic,isa,ierr)
     91:           import tIS,tISColoring
     92:           IS, pointer :: isa(:)
     93:           PetscErrorCode     ierr
     94:           ISColoring ic
     95:         End Subroutine
     96:       End Interface

     98:       Interface
     99:         Subroutine PetscSectionGetConstraintIndicesF90(s,p,a,ierr)
    100:           import tPetscSection
    101:           PetscInt p
    102:           PetscInt, pointer :: a(:)
    103:           PetscErrorCode  ierr
    104:           PetscSection       s
    105:         End Subroutine
    106:       End Interface

    108:       Interface
    109:         Subroutine PetscSectionRestoreConstraintIndicesF90(s,p,a,ierr)
    110:           import tPetscSection
    111:           PetscInt p
    112:           PetscInt, pointer :: a(:)
    113:           PetscErrorCode  ierr
    114:           PetscSection       s
    115:         End Subroutine
    116:       End Interface

    118:       Interface
    119:         Subroutine PetscSectionSetConstraintIndicesF90(s,p,a,ierr)
    120:           import tPetscSection
    121:           PetscInt p
    122:           PetscInt, pointer :: a(:)
    123:           PetscErrorCode  ierr
    124:           PetscSection       s
    125:         End Subroutine
    126:       End Interface

    128:       Interface
    129:       subroutine ISSetType(a,b,z)
    130:        import tIS
    131:        IS a
    132:        character(*) b
    133:        integer z
    134:        end subroutine
    135:       end Interface

    137:       Interface
    138:       subroutine ISView(a,b,z)
    139:        import tIS,tPetscViewer
    140:        IS a
    141:        PetscViewer b
    142:        PetscErrorCode z
    143:        end subroutine
    144:       end Interface