Actual source code: slepcrg.h90
slepc-3.16.3 2022-04-11
1: !
2: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3: ! SLEPc - Scalable Library for Eigenvalue Problem Computations
4: ! Copyright (c) 2002-2021, Universitat Politecnica de Valencia, Spain
5: !
6: ! This file is part of SLEPc.
7: ! SLEPc is distributed under a 2-clause BSD license (see LICENSE).
8: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
9: !
10: interface RGEllipseGetParameters
11: subroutine RGEllipseGetParameters000(a,b,c,d,z)
12: import tRG
13: RG a
14: PetscScalar b
15: PetscReal c
16: PetscReal d
17: PetscErrorCode z
18: end subroutine
19: subroutine RGEllipseGetParameters100(a,b,c,d,z)
20: import tRG
21: RG a
22: PetscScalar b(*)
23: PetscReal c
24: PetscReal d
25: PetscErrorCode z
26: end subroutine
27: subroutine RGEllipseGetParameters010(a,b,c,d,z)
28: import tRG
29: RG a
30: PetscScalar b
31: PetscReal c(*)
32: PetscReal d
33: PetscErrorCode z
34: end subroutine
35: subroutine RGEllipseGetParameters110(a,b,c,d,z)
36: import tRG
37: RG a
38: PetscScalar b(*)
39: PetscReal c(*)
40: PetscReal d
41: PetscErrorCode z
42: end subroutine
43: subroutine RGEllipseGetParameters001(a,b,c,d,z)
44: import tRG
45: RG a
46: PetscScalar b
47: PetscReal c
48: PetscReal d(*)
49: PetscErrorCode z
50: end subroutine
51: subroutine RGEllipseGetParameters101(a,b,c,d,z)
52: import tRG
53: RG a
54: PetscScalar b(*)
55: PetscReal c
56: PetscReal d(*)
57: PetscErrorCode z
58: end subroutine
59: subroutine RGEllipseGetParameters011(a,b,c,d,z)
60: import tRG
61: RG a
62: PetscScalar b
63: PetscReal c(*)
64: PetscReal d(*)
65: PetscErrorCode z
66: end subroutine
67: end interface RGEllipseGetParameters
69: interface RGIntervalGetEndpoints
70: subroutine RGIntervalGetEndpoints0000(a,b,c,d,e,z)
71: import tRG
72: RG a
73: PetscReal b
74: PetscReal c
75: PetscReal d
76: PetscReal e
77: PetscErrorCode z
78: end subroutine
79: subroutine RGIntervalGetEndpoints1000(a,b,c,d,e,z)
80: import tRG
81: RG a
82: PetscReal b(*)
83: PetscReal c
84: PetscReal d
85: PetscReal e
86: PetscErrorCode z
87: end subroutine
88: subroutine RGIntervalGetEndpoints0100(a,b,c,d,e,z)
89: import tRG
90: RG a
91: PetscReal b
92: PetscReal c(*)
93: PetscReal d
94: PetscReal e
95: PetscErrorCode z
96: end subroutine
97: subroutine RGIntervalGetEndpoints1100(a,b,c,d,e,z)
98: import tRG
99: RG a
100: PetscReal b(*)
101: PetscReal c(*)
102: PetscReal d
103: PetscReal e
104: PetscErrorCode z
105: end subroutine
106: subroutine RGIntervalGetEndpoints0010(a,b,c,d,e,z)
107: import tRG
108: RG a
109: PetscReal b
110: PetscReal c
111: PetscReal d(*)
112: PetscReal e
113: PetscErrorCode z
114: end subroutine
115: subroutine RGIntervalGetEndpoints1010(a,b,c,d,e,z)
116: import tRG
117: RG a
118: PetscReal b(*)
119: PetscReal c
120: PetscReal d(*)
121: PetscReal e
122: PetscErrorCode z
123: end subroutine
124: subroutine RGIntervalGetEndpoints0110(a,b,c,d,e,z)
125: import tRG
126: RG a
127: PetscReal b
128: PetscReal c(*)
129: PetscReal d(*)
130: PetscReal e
131: PetscErrorCode z
132: end subroutine
133: subroutine RGIntervalGetEndpoints1110(a,b,c,d,e,z)
134: import tRG
135: RG a
136: PetscReal b(*)
137: PetscReal c(*)
138: PetscReal d(*)
139: PetscReal e
140: PetscErrorCode z
141: end subroutine
142: subroutine RGIntervalGetEndpoints0001(a,b,c,d,e,z)
143: import tRG
144: RG a
145: PetscReal b
146: PetscReal c
147: PetscReal d
148: PetscReal e(*)
149: PetscErrorCode z
150: end subroutine
151: subroutine RGIntervalGetEndpoints1001(a,b,c,d,e,z)
152: import tRG
153: RG a
154: PetscReal b(*)
155: PetscReal c
156: PetscReal d
157: PetscReal e(*)
158: PetscErrorCode z
159: end subroutine
160: subroutine RGIntervalGetEndpoints0101(a,b,c,d,e,z)
161: import tRG
162: RG a
163: PetscReal b
164: PetscReal c(*)
165: PetscReal d
166: PetscReal e(*)
167: PetscErrorCode z
168: end subroutine
169: subroutine RGIntervalGetEndpoints1101(a,b,c,d,e,z)
170: import tRG
171: RG a
172: PetscReal b(*)
173: PetscReal c(*)
174: PetscReal d
175: PetscReal e(*)
176: PetscErrorCode z
177: end subroutine
178: subroutine RGIntervalGetEndpoints0011(a,b,c,d,e,z)
179: import tRG
180: RG a
181: PetscReal b
182: PetscReal c
183: PetscReal d(*)
184: PetscReal e(*)
185: PetscErrorCode z
186: end subroutine
187: subroutine RGIntervalGetEndpoints1011(a,b,c,d,e,z)
188: import tRG
189: RG a
190: PetscReal b(*)
191: PetscReal c
192: PetscReal d(*)
193: PetscReal e(*)
194: PetscErrorCode z
195: end subroutine
196: subroutine RGIntervalGetEndpoints0111(a,b,c,d,e,z)
197: import tRG
198: RG a
199: PetscReal b
200: PetscReal c(*)
201: PetscReal d(*)
202: PetscReal e(*)
203: PetscErrorCode z
204: end subroutine
205: end interface RGIntervalGetEndpoints
207: interface RGPolygonGetVertices
208: subroutine RGPolygonGetVertices0(a,b,c,d,z)
209: import tRG
210: RG a
211: PetscInt b
212: PetscScalar c(*)
213: PetscScalar d(*)
214: PetscErrorCode z
215: end subroutine
216: subroutine RGPolygonGetVertices1(a,b,c,d,z)
217: import tRG
218: RG a
219: PetscInt b(*)
220: PetscScalar c(*)
221: PetscScalar d(*)
222: PetscErrorCode z
223: end subroutine
224: end interface RGPolygonGetVertices
226: interface
227: subroutine RGDestroy(a,z)
228: import tRG
229: RG a
230: PetscErrorCode z
231: end subroutine
232: end interface