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