Actual source code: petscis.h90

petsc-3.15.0 2021-03-30
Report Typos and Errors
  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