Actual source code: petscis.h90

  1: !
  2: !  $Id: petscis.h90,v 1.4 2000/05/24 22:17:42 balay Exp $;
  3: !
  4: !  Additional IS include file for use of PETSc with Fortran 90/HPF
  5: !
  6:       Interface
  7:         Subroutine ISGetIndicesF90(i,array,ierr)
  8:           integer, pointer :: array(:)
  9:           integer  ierr
 10:           IS       i
 11:         End Subroutine
 12:       End Interface


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

 23: ! ------------------------------------------------------

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


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

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

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

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