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