Actual source code: petscis.h90
petsc-3.9.4 2018-09-11
1: !
2: ! These are Fortran interfaces that are custom hand coded because
3: ! they cannot currently be generated automatically
4: !
6: Interface
7: Subroutine PetscLayoutFindOwner(a,b,z)
8: use petscisdef
9: PetscLayout a
10: PetscInt b
11: PetscErrorCode z
12: End Subroutine
13: End Interface
15: Interface
16: Subroutine PetscLayoutFindOwnerIndex(a,b,c,z)
17: use petscisdef
18: PetscLayout a
19: PetscInt b,c
20: PetscErrorCode z
21: End Subroutine
22: End Interface
24: Interface
25: Subroutine ISGetIndicesF90(i,array,ierr)
26: use petscisdef
27: PetscInt, pointer :: array(:)
28: PetscErrorCode ierr
29: IS i
30: End Subroutine
31: End Interface
34: Interface
35: Subroutine ISRestoreIndicesF90(i,array,ierr)
36: use petscisdef
37: PetscInt, pointer :: array(:)
38: PetscErrorCode ierr
39: IS i
40: End Subroutine
41: End Interface
43: ! ------------------------------------------------------
45: Interface
46: Subroutine ISBlockGetIndicesF90(i,array,ierr)
47: use petscisdef
48: PetscInt, pointer :: array(:)
49: PetscErrorCode ierr
50: IS i
51: End Subroutine
52: End Interface
55: Interface
56: Subroutine ISBlockRestoreIndicesF90(i,array,ierr)
57: use petscisdef
58: PetscInt, pointer :: array(:)
59: PetscErrorCode ierr
60: IS i
61: End Subroutine
62: End Interface
64: ! ------------------------------------------------------
65: Interface
66: Subroutine ISColoringGetISF90(ic,n,isa,ierr)
67: use petscisdef
68: IS, pointer :: isa(:)
69: PetscInt n
70: PetscErrorCode ierr
71: ISColoring ic
72: End Subroutine
73: End Interface
75: Interface
76: Subroutine ISColoringRestoreISF90(ic,isa,ierr)
77: use petscisdef
78: IS, pointer :: isa(:)
79: PetscErrorCode ierr
80: ISColoring ic
81: End Subroutine
82: End Interface
84: Interface
85: Subroutine PetscSectionGetConstraintIndicesF90(s,p,a,ierr)
86: use petscisdef
87: PetscInt p
88: PetscInt, pointer :: a(:)
89: PetscErrorCode ierr
90: PetscSection s
91: End Subroutine
92: End Interface
94: Interface
95: Subroutine PetscSectionRestoreConstraintIndicesF90(s,p,a,ierr)
96: use petscisdef
97: PetscInt p
98: PetscInt, pointer :: a(:)
99: PetscErrorCode ierr
100: PetscSection s
101: End Subroutine
102: End Interface
104: Interface
105: Subroutine PetscSectionSetConstraintIndicesF90(s,p,a,ierr)
106: use petscisdef
107: PetscInt p
108: PetscInt, pointer :: a(:)
109: PetscErrorCode ierr
110: PetscSection s
111: End Subroutine
112: End Interface
114: Interface
115: subroutine ISSetType(a,b,z)
116: use petscisdef
117: IS a
118: character(*) b
119: integer z
120: end subroutine
121: end Interface
123: Interface
124: subroutine ISView(a,b,z)
125: use petscisdef
126: IS a
127: PetscViewer b
128: integer z
129: end subroutine
130: end Interface