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: !