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

  6:       Interface
  7:         Subroutine ISGetIndicesF90(i,array,ierr)
  8:           use petscisdef
  9:           PetscInt, pointer :: array(:)
 10:           PetscErrorCode  ierr
 11:          IS       i
 12:         End Subroutine
 13:       End Interface


 16:       Interface
 17:         Subroutine ISRestoreIndicesF90(i,array,ierr)
 18:           use petscisdef
 19:           PetscInt, pointer :: array(:)
 20:           PetscErrorCode ierr
 21:          IS      i
 22:         End Subroutine
 23:       End Interface

 25: ! ------------------------------------------------------

 27:       Interface
 28:         Subroutine ISBlockGetIndicesF90(i,array,ierr)
 29:           use petscisdef
 30:           PetscInt, pointer :: array(:)
 31:           PetscErrorCode  ierr
 32:          IS       i
 33:         End Subroutine
 34:       End Interface


 37:       Interface
 38:         Subroutine ISBlockRestoreIndicesF90(i,array,ierr)
 39:           use petscisdef
 40:           PetscInt, pointer :: array(:)
 41:           PetscErrorCode ierr
 42:          IS      i
 43:         End Subroutine
 44:       End Interface

 46: ! ------------------------------------------------------
 47:       Interface
 48:         Subroutine ISColoringGetISF90(ic,n,isa,ierr)
 49:           use petscisdef
 50:           IS, pointer :: isa(:)
 51:           PetscInt     n
 52:           PetscErrorCode ierr
 53:           ISColoring ic
 54:         End Subroutine
 55:       End Interface

 57:       Interface
 58:         Subroutine ISColoringRestoreISF90(ic,isa,ierr)
 59:           use petscisdef
 60:           IS, pointer :: isa(:)
 61:           PetscErrorCode     ierr
 62:           ISColoring ic
 63:         End Subroutine
 64:       End Interface

 66:       Interface
 67:         Subroutine PetscSectionGetConstraintIndicesF90(s,p,a,ierr)
 68:           use petscisdef
 69:           PetscInt p
 70:           PetscInt, pointer :: a(:)
 71:           PetscErrorCode  ierr
 72:           PetscSection       s
 73:         End Subroutine
 74:       End Interface

 76:       Interface
 77:         Subroutine PetscSectionRestoreConstraintIndicesF90(s,p,a,ierr)
 78:           use petscisdef
 79:           PetscInt p
 80:           PetscInt, pointer :: a(:)
 81:           PetscErrorCode  ierr
 82:           PetscSection       s
 83:         End Subroutine
 84:       End Interface

 86:       Interface
 87:         Subroutine PetscSectionSetConstraintIndicesF90(s,p,a,ierr)
 88:           use petscisdef
 89:           PetscInt p
 90:           PetscInt, pointer :: a(:)
 91:           PetscErrorCode  ierr
 92:           PetscSection       s
 93:         End Subroutine
 94:       End Interface