Actual source code: slepcrg.h90

slepc-3.15.1 2021-05-28
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 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