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:           PetscInt 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:           PetscInt b,c
 20:           PetscErrorCode  z
 21:         End Subroutine
 22:       End Interface

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

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

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

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

 60: ! ------------------------------------------------------

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


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

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

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

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

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

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

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

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