Actual source code: petscksp.h90
3: Interface
4: subroutine KSPSetType(a,b,z)
5: import tKSP
6: KSP a
7: character(*) b
8: PetscErrorCode z
9: end subroutine
10: end Interface
12: Interface
13: subroutine KSPView(a,b,z)
14: import tKSP,tPetscViewer
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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: import tKSP,tPC
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
174: Interface
175: subroutine KSPDestroy(a,z)
176: import tKSP
177: KSP a
178: PetscErrorCode z
179: end subroutine
180: end Interface