Actual source code: slepceps.h90

slepc-3.16.1 2021-11-17
Report Typos and Errors
  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 EPSGetDimensions
 11:         subroutine EPSGetDimensions000(a,b,c,d,z)
 12:           import tEPS
 13:           EPS a
 14:           PetscInt b
 15:           PetscInt c
 16:           PetscInt d
 17:           PetscErrorCode z
 18:         end subroutine
 19:         subroutine EPSGetDimensions100(a,b,c,d,z)
 20:           import tEPS
 21:           EPS a
 22:           PetscInt b(*)
 23:           PetscInt c
 24:           PetscInt d
 25:           PetscErrorCode z
 26:         end subroutine
 27:         subroutine EPSGetDimensions010(a,b,c,d,z)
 28:           import tEPS
 29:           EPS a
 30:           PetscInt b
 31:           PetscInt c(*)
 32:           PetscInt d
 33:           PetscErrorCode z
 34:         end subroutine
 35:         subroutine EPSGetDimensions001(a,b,c,d,z)
 36:           import tEPS
 37:           EPS a
 38:           PetscInt b
 39:           PetscInt c
 40:           PetscInt d(*)
 41:           PetscErrorCode z
 42:         end subroutine
 43:         subroutine EPSGetDimensions110(a,b,c,d,z)
 44:           import tEPS
 45:           EPS a
 46:           PetscInt b(*)
 47:           PetscInt c(*)
 48:           PetscInt d
 49:           PetscErrorCode z
 50:         end subroutine
 51:         subroutine EPSGetDimensions011(a,b,c,d,z)
 52:           import tEPS
 53:           EPS a
 54:           PetscInt b
 55:           PetscInt c(*)
 56:           PetscInt d(*)
 57:           PetscErrorCode z
 58:         end subroutine
 59:         subroutine EPSGetDimensions101(a,b,c,d,z)
 60:           import tEPS
 61:           EPS a
 62:           PetscInt b(*)
 63:           PetscInt c
 64:           PetscInt d(*)
 65:           PetscErrorCode z
 66:         end subroutine
 67:       end interface EPSGetDimensions

 69:       interface EPSGetEigenpair
 70:         subroutine EPSGetEigenpair00(a,b,c,d,e,f,z)
 71:           import tEPS,tVec
 72:           EPS a
 73:           PetscInt b
 74:           PetscScalar c
 75:           PetscScalar d
 76:           Vec e
 77:           Vec f
 78:           PetscErrorCode z
 79:         end subroutine
 80:         subroutine EPSGetEigenpair10(a,b,c,d,e,f,z)
 81:           import tEPS,tVec
 82:           EPS a
 83:           PetscInt b
 84:           PetscScalar c(*)
 85:           PetscScalar d
 86:           Vec e
 87:           Vec f
 88:           PetscErrorCode z
 89:         end subroutine
 90:         subroutine EPSGetEigenpair01(a,b,c,d,e,f,z)
 91:           import tEPS,tVec
 92:           EPS a
 93:           PetscInt b
 94:           PetscScalar c
 95:           PetscScalar d(*)
 96:           Vec e
 97:           Vec f
 98:           PetscErrorCode z
 99:         end subroutine
100:         subroutine EPSGetEigenpair11(a,b,c,d,e,f,z)
101:           import tEPS,tVec
102:           EPS a
103:           PetscInt b
104:           PetscScalar c(*)
105:           PetscScalar d(*)
106:           Vec e
107:           Vec f
108:           PetscErrorCode z
109:         end subroutine
110:       end interface EPSGetEigenpair

112:       interface EPSGetEigenvalue
113:         subroutine EPSGetEigenvalue00(a,b,c,d,z)
114:           import tEPS
115:           EPS a
116:           PetscInt b
117:           PetscScalar c
118:           PetscScalar d
119:           PetscErrorCode z
120:         end subroutine
121:         subroutine EPSGetEigenvalue10(a,b,c,d,z)
122:           import tEPS
123:           EPS a
124:           PetscInt b
125:           PetscScalar c(*)
126:           PetscScalar d
127:           PetscErrorCode z
128:         end subroutine
129:         subroutine EPSGetEigenvalue01(a,b,c,d,z)
130:           import tEPS
131:           EPS a
132:           PetscInt b
133:           PetscScalar c
134:           PetscScalar d(*)
135:           PetscErrorCode z
136:         end subroutine
137:       end interface EPSGetEigenvalue

139:       interface EPSGetTolerances
140:         subroutine EPSGetTolerances00(a,b,c,z)
141:           import tEPS
142:           EPS a
143:           PetscReal b
144:           PetscInt c
145:           PetscErrorCode z
146:         end subroutine
147:         subroutine EPSGetTolerances10(a,b,c,z)
148:           import tEPS
149:           EPS a
150:           PetscReal b(*)
151:           PetscInt c
152:           PetscErrorCode z
153:         end subroutine
154:         subroutine EPSGetTolerances01(a,b,c,z)
155:           import tEPS
156:           EPS a
157:           PetscReal b
158:           PetscInt c(*)
159:           PetscErrorCode z
160:         end subroutine
161:       end interface EPSGetTolerances

163:       interface EPSGetBalance
164:         subroutine EPSGetBalance000(a,b,c,d,z)
165:           import tEPS
166:           EPS a
167:           EPSBalance b
168:           PetscInt c
169:           PetscReal d
170:           PetscErrorCode z
171:         end subroutine
172:         subroutine EPSGetBalance100(a,b,c,d,z)
173:           import tEPS
174:           EPS a
175:           EPSBalance b(*)
176:           PetscInt c
177:           PetscReal d
178:           PetscErrorCode z
179:         end subroutine
180:         subroutine EPSGetBalance010(a,b,c,d,z)
181:           import tEPS
182:           EPS a
183:           EPSBalance b
184:           PetscInt c(*)
185:           PetscReal d
186:           PetscErrorCode z
187:         end subroutine
188:         subroutine EPSGetBalance001(a,b,c,d,z)
189:           import tEPS
190:           EPS a
191:           EPSBalance b
192:           PetscInt c
193:           PetscReal d(*)
194:           PetscErrorCode z
195:         end subroutine
196:         subroutine EPSGetBalance110(a,b,c,d,z)
197:           import tEPS
198:           EPS a
199:           EPSBalance b(*)
200:           PetscInt c(*)
201:           PetscReal d
202:           PetscErrorCode z
203:         end subroutine
204:         subroutine EPSGetBalance011(a,b,c,d,z)
205:           import tEPS
206:           EPS a
207:           EPSBalance b
208:           PetscInt c(*)
209:           PetscReal d(*)
210:           PetscErrorCode z
211:         end subroutine
212:         subroutine EPSGetBalance101(a,b,c,d,z)
213:           import tEPS
214:           EPS a
215:           EPSBalance b(*)
216:           PetscInt c
217:           PetscReal d(*)
218:           PetscErrorCode z
219:         end subroutine
220:       end interface EPSGetBalance

222:       interface EPSSetDeflationSpace
223:         subroutine EPSSetDeflationSpace0(a,b,c,z)
224:           import tEPS,tVec
225:           EPS a
226:           PetscInt b
227:           Vec c
228:           PetscErrorCode z
229:         end subroutine
230:         subroutine EPSSetDeflationSpace1(a,b,c,z)
231:           import tEPS,tVec
232:           EPS a
233:           PetscInt b
234:           Vec c(*)
235:           PetscErrorCode z
236:         end subroutine
237:       end interface EPSSetDeflationSpace

239:       interface EPSSetInitialSpace
240:         subroutine EPSSetInitialSpace0(a,b,c,z)
241:           import tEPS,tVec
242:           EPS a
243:           PetscInt b
244:           Vec c
245:           PetscErrorCode z
246:         end subroutine
247:         subroutine EPSSetInitialSpace1(a,b,c,z)
248:           import tEPS,tVec
249:           EPS a
250:           PetscInt b
251:           Vec c(*)
252:           PetscErrorCode z
253:         end subroutine
254:       end interface EPSSetInitialSpace

256:       interface EPSSetLeftInitialSpace
257:         subroutine EPSSetLeftInitialSpace0(a,b,c,z)
258:           import tEPS,tVec
259:           EPS a
260:           PetscInt b
261:           Vec c
262:           PetscErrorCode z
263:         end subroutine
264:         subroutine EPSSetLeftInitialSpace1(a,b,c,z)
265:           import tEPS,tVec
266:           EPS a
267:           PetscInt b
268:           Vec c(*)
269:           PetscErrorCode z
270:         end subroutine
271:       end interface EPSSetLeftInitialSpace