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