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:           use petscisdef
  9:           PetscLayout a
 10:           PetscMPIInt b
 11:           PetscErrorCode  z
 12:         End Subroutine
 13:       End Interface

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

 25:       Interface
 26:         Subroutine ISGetIndicesF90(i,array,ierr)
 27:           use petscisdef
 28:           PetscInt, pointer :: array(:)
 29:           PetscErrorCode  ierr
 30:          IS       i
 31:         End Subroutine
 32:       End Interface

 34:       Interface
 35:         Subroutine ISRestoreIndicesF90(i,array,ierr)
 36:           use petscisdef
 37:           PetscInt, pointer :: array(:)
 38:           PetscErrorCode ierr
 39:          IS      i
 40:         End Subroutine
 41:       End Interface

 43:       Interface
 44:         Subroutine ISLocalToGlobalMappingGetIndicesF90(i,array,ierr)
 45:           use petscisdef
 46:           PetscInt, pointer :: array(:)
 47:           PetscErrorCode  ierr
 48:          ISLocalToGlobalMapping       i
 49:         End Subroutine
 50:       End Interface

 52:       Interface
 53:         Subroutine ISLocalToGlobalMappingRestoreIndicesF90(i,array,ierr)
 54:           use petscisdef
 55:           PetscInt, pointer :: array(:)
 56:           PetscErrorCode  ierr
 57:          ISLocalToGlobalMapping       i
 58:         End Subroutine
 59:       End Interface

 61: ! ------------------------------------------------------

 63:       Interface
 64:         Subroutine ISBlockGetIndicesF90(i,array,ierr)
 65:           use petscisdef
 66:           PetscInt, pointer :: array(:)
 67:           PetscErrorCode  ierr
 68:          IS       i
 69:         End Subroutine
 70:       End Interface


 73:       Interface
 74:         Subroutine ISBlockRestoreIndicesF90(i,array,ierr)
 75:           use petscisdef
 76:           PetscInt, pointer :: array(:)
 77:           PetscErrorCode ierr
 78:          IS      i
 79:         End Subroutine
 80:       End Interface

 82: ! ------------------------------------------------------
 83:       Interface
 84:         Subroutine ISColoringGetISF90(ic,n,isa,ierr)
 85:           use petscisdef
 86:           IS, pointer :: isa(:)
 87:           PetscInt     n
 88:           PetscErrorCode ierr
 89:           ISColoring ic
 90:         End Subroutine
 91:       End Interface

 93:       Interface
 94:         Subroutine ISColoringRestoreISF90(ic,isa,ierr)
 95:           use petscisdef
 96:           IS, pointer :: isa(:)
 97:           PetscErrorCode     ierr
 98:           ISColoring ic
 99:         End Subroutine
100:       End Interface

102:       Interface
103:         Subroutine PetscSectionGetConstraintIndicesF90(s,p,a,ierr)
104:           use petscisdef
105:           PetscInt p
106:           PetscInt, pointer :: a(:)
107:           PetscErrorCode  ierr
108:           PetscSection       s
109:         End Subroutine
110:       End Interface

112:       Interface
113:         Subroutine PetscSectionRestoreConstraintIndicesF90(s,p,a,ierr)
114:           use petscisdef
115:           PetscInt p
116:           PetscInt, pointer :: a(:)
117:           PetscErrorCode  ierr
118:           PetscSection       s
119:         End Subroutine
120:       End Interface

122:       Interface
123:         Subroutine PetscSectionSetConstraintIndicesF90(s,p,a,ierr)
124:           use petscisdef
125:           PetscInt p
126:           PetscInt, pointer :: a(:)
127:           PetscErrorCode  ierr
128:           PetscSection       s
129:         End Subroutine
130:       End Interface

132:       Interface
133:       subroutine ISSetType(a,b,z)
134:       use petscisdef
135:        IS a
136:        character(*) b
137:        integer z
138:        end subroutine
139:       end Interface

141:       Interface
142:       subroutine ISView(a,b,z)
143:       use petscisdef
144:        IS a
145:        PetscViewer b
146:        PetscErrorCode z
147:        end subroutine
148:       end Interface