Actual source code: petscis.h90

  1: !
  2: !
  3: !  Additional IS include file for use of PETSc with Fortran 90/HPF
  4: !
  5: #if !defined (PETSC_AVOID_DECLARATIONS)

  7:       Interface
  8:         Subroutine ISGetIndicesF90(i,array,ierr)
  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:           PetscInt, pointer :: array(:)
 19:           PetscErrorCode ierr
 20:           IS      i
 21:         End Subroutine
 22:       End Interface

 24: ! ------------------------------------------------------

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


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

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

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

 61: #endif
 62: !
 63: !     End of IS Fortran 90 include file for the PETSc package
 64: !