Actual source code: petscksp.h90
petsc-3.14.6 2021-03-30
3: Interface
4: subroutine KSPSetType(a,b,z)
5: use petsckspdef
6: KSP a
7: character(*) b
8: PetscErrorCode z
9: end subroutine
10: end Interface
12: Interface
13: subroutine KSPView(a,b,z)
14: use petsckspdef
15: KSP a
16: PetscViewer b
17: PetscErrorCode z
18: end subroutine
19: end Interface
21: Interface PCBJacobiGetSubKSP
22: subroutine PCBJacobiGetSubKSP1(a,b,c,d,z)
23: use petsckspdef
24: PC a ! PC
25: PetscInt b ! PetscInt
26: PetscInt c ! PetscInt
27: KSP d ! KSP
28: PetscErrorCode z
29: end subroutine
30: subroutine PCBJacobiGetSubKSP2(a,b,c,d,z)
31: use petsckspdef
32: PC a ! PC
33: PetscInt b ! PetscInt
34: PetscInt c ! PetscInt
35: KSP d(*) ! KSP
36: PetscErrorCode z
37: end subroutine
38: end Interface
40: Interface PCASMGetSubKSP
41: subroutine PCASMGetSubKSP1(a,b,c,d,z)
42: use petsckspdef
43: PC a ! PC
44: PetscInt b ! PetscInt
45: PetscInt c ! PetscInt
46: KSP d ! KSP
47: PetscErrorCode z
48: end subroutine
49: subroutine PCASMGetSubKSP2(a,b,c,d,z)
50: use petsckspdef
51: PC a ! PC
52: PetscInt b ! PetscInt
53: PetscInt c ! PetscInt
54: KSP d(*) ! KSP
55: PetscErrorCode z
56: end subroutine
57: subroutine PCASMGetSubKSP3(a,b,c,d,z)
58: use petsckspdef
59: PC a ! PC
60: PetscInt b(*) ! PetscInt
61: PetscInt c ! PetscInt
62: KSP d ! KSP
63: PetscErrorCode z
64: end subroutine
65: subroutine PCASMGetSubKSP4(a,b,c,d,z)
66: use petsckspdef
67: PC a ! PC
68: PetscInt b(*) ! PetscInt
69: PetscInt c ! PetscInt
70: KSP d(*) ! KSP
71: PetscErrorCode z
72: end subroutine
73: subroutine PCASMGetSubKSP5(a,b,c,d,z)
74: use petsckspdef
75: PC a ! PC
76: PetscInt b ! PetscInt
77: PetscInt c(*) ! PetscInt
78: KSP d ! KSP
79: PetscErrorCode z
80: end subroutine
81: subroutine PCASMGetSubKSP6(a,b,c,d,z)
82: use petsckspdef
83: PC a ! PC
84: PetscInt b ! PetscInt
85: PetscInt c(*) ! PetscInt
86: KSP d(*) ! KSP
87: PetscErrorCode z
88: end subroutine
89: subroutine PCASMGetSubKSP7(a,b,c,d,z)
90: use petsckspdef
91: PC a ! PC
92: PetscInt b(*) ! PetscInt
93: PetscInt c(*) ! PetscInt
94: KSP d ! KSP
95: PetscErrorCode z
96: end subroutine
97: subroutine PCASMGetSubKSP8(a,b,c,d,z)
98: use petsckspdef
99: PC a ! PC
100: PetscInt b(*) ! PetscInt
101: PetscInt c(*) ! PetscInt
102: KSP d(*) ! KSP
103: PetscErrorCode z
104: end subroutine
105: end Interface
107: Interface PCGASMGetSubKSP
108: subroutine PCGASMGetSubKSP1(a,b,c,d,z)
109: use petsckspdef
110: PC a ! PC
111: PetscInt b ! PetscInt
112: PetscInt c ! PetscInt
113: KSP d ! KSP
114: PetscErrorCode z
115: end subroutine
116: subroutine PCGASMGetSubKSP2(a,b,c,d,z)
117: use petsckspdef
118: PC a ! PC
119: PetscInt b ! PetscInt
120: PetscInt c ! PetscInt
121: KSP d(*) ! KSP
122: PetscErrorCode z
123: end subroutine
124: subroutine PCGASMGetSubKSP3(a,b,c,d,z)
125: use petsckspdef
126: PC a ! PC
127: PetscInt b(*) ! PetscInt
128: PetscInt c ! PetscInt
129: KSP d ! KSP
130: PetscErrorCode z
131: end subroutine
132: subroutine PCGASMGetSubKSP4(a,b,c,d,z)
133: use petsckspdef
134: PC a ! PC
135: PetscInt b(*) ! PetscInt
136: PetscInt c ! PetscInt
137: KSP d(*) ! KSP
138: PetscErrorCode z
139: end subroutine
140: subroutine PCGASMGetSubKSP5(a,b,c,d,z)
141: use petsckspdef
142: PC a ! PC
143: PetscInt b ! PetscInt
144: PetscInt c(*) ! PetscInt
145: KSP d ! KSP
146: PetscErrorCode z
147: end subroutine
148: subroutine PCGASMGetSubKSP6(a,b,c,d,z)
149: use petsckspdef
150: PC a ! PC
151: PetscInt b ! PetscInt
152: PetscInt c(*) ! PetscInt
153: KSP d(*) ! KSP
154: PetscErrorCode z
155: end subroutine
156: subroutine PCGASMGetSubKSP7(a,b,c,d,z)
157: use petsckspdef
158: PC a ! PC
159: PetscInt b(*) ! PetscInt
160: PetscInt c(*) ! PetscInt
161: KSP d ! KSP
162: PetscErrorCode z
163: end subroutine
164: subroutine PCGASMGetSubKSP8(a,b,c,d,z)
165: use petsckspdef
166: PC a ! PC
167: PetscInt b(*) ! PetscInt
168: PetscInt c(*) ! PetscInt
169: KSP d(*) ! KSP
170: PetscErrorCode z
171: end subroutine
172: end Interface