!
!
!  Additional IS include file for use of PETSc with Fortran 90/HPF
!
      Interface 
        Subroutine ISGetIndicesF90(i,array,ierr)
          integer, pointer :: array(:)
          PetscErrorCode  ierr
          IS       i
        End Subroutine
      End Interface


      Interface 
        Subroutine ISRestoreIndicesF90(i,array,ierr)
          integer, pointer :: array(:)
          PetscErrorCode ierr
          IS      i
        End Subroutine
      End Interface

! ------------------------------------------------------

      Interface 
        Subroutine ISBlockGetIndicesF90(i,array,ierr)
          integer, pointer :: array(:)
          PetscErrorCode  ierr
          IS       i
        End Subroutine
      End Interface


      Interface 
        Subroutine ISBlockRestoreIndicesF90(i,array,ierr)
          integer, pointer :: array(:)
          PetscErrorCode ierr
          IS      i
        End Subroutine
      End Interface

! ------------------------------------------------------
      Interface 
        Subroutine ISColoringGetISF90(ic,n,isa,ierr)
          IS, pointer :: isa(:)
          integer     n
          PetscErrorCode ierr
          ISColoring  ic
        End Subroutine
      End Interface

      Interface 
        Subroutine ISColoringRestoreISF90(ic,isa,ierr)
          IS, pointer :: isa(:)
          PetscErrorCode     ierr
          ISColoring  ic
        End Subroutine
      End Interface

!
!     End of IS Fortran 90 include file for the PETSc package
!
