Actual source code: petscis.h90

  1: !
  2: !
  3: !  Additional IS include file for use of PETSc with Fortran 90/HPF
  4: !
  5:       Interface
  6:         Subroutine ISGetIndicesF90(i,array,ierr)
  7:           integer, pointer :: array(:)
  8:           PetscErrorCode  ierr
  9:           IS       i
 10:         End Subroutine
 11:       End Interface


 14:       Interface
 15:         Subroutine ISRestoreIndicesF90(i,array,ierr)
 16:           integer, pointer :: array(:)
 17:           PetscErrorCode ierr
 18:           IS      i
 19:         End Subroutine
 20:       End Interface

 22: ! ------------------------------------------------------

 24:       Interface
 25:         Subroutine ISBlockGetIndicesF90(i,array,ierr)
 26:           integer, pointer :: array(:)
 27:           PetscErrorCode  ierr
 28:           IS       i
 29:         End Subroutine
 30:       End Interface


 33:       Interface
 34:         Subroutine ISBlockRestoreIndicesF90(i,array,ierr)
 35:           integer, pointer :: array(:)
 36:           PetscErrorCode ierr
 37:           IS      i
 38:         End Subroutine
 39:       End Interface

 41: ! ------------------------------------------------------
 42:       Interface
 43:         Subroutine ISColoringGetISF90(ic,n,isa,ierr)
 44:           IS, pointer :: isa(:)
 45:           integer     n
 46:           PetscErrorCode ierr
 47:           ISColoring  ic
 48:         End Subroutine
 49:       End Interface

 51:       Interface
 52:         Subroutine ISColoringRestoreISF90(ic,isa,ierr)
 53:           IS, pointer :: isa(:)
 54:           PetscErrorCode     ierr
 55:           ISColoring  ic
 56:         End Subroutine
 57:       End Interface

 59: !
 60: !     End of IS Fortran 90 include file for the PETSc package
 61: !