mathlib-arpack.c
1 //! @file mathlib-arpack.c
2 //
3 //! @section copyright
4 //
5 // This file is part of VIF - vintage fortran compiler.
6 // Copyright 2020-2025 J. Marcel van der Veer <algol68g@xs4all.nl>.
7 //
8 //! @section license
9 //
10 // This program is free software; you can redistribute it and/or modify it
11 // under the terms of the gnu general public license as published by the
12 // free software foundation; either version 3 of the license, or
13 // (at your option) any later version.
14 //
15 // This program is distributed in the hope that it will be useful, but
16 // without any warranty; without even the implied warranty of merchantability
17 // or fitness for a particular purpose. See the GNU general public license for
18 // more details. you should have received a copy of the GNU general public
19 // license along with this program. If not, see <http://www.gnu.org/licenses/>.
20 //
21 //! @Synopsis
22 //
23 //! Subprograms from ARPACK
24
25 // Compiled from Fortran source code by VIF.
26
27 // ARPACK, the ARnoldi PACKage, is a numerical software library written in FORTRAN
28 // 77 for solving large scale eigenvalue problems. The package is designed to
29 // compute a few eigenvalues and corresponding eigenvectors of large sparse or
30 // structured matrices, using the Implicitly Restarted Arnoldi Method (IRAM) or,
31 // in the case of symmetric matrices, the corresponding variant of the Lanczos
32 // algorithm. It is used by many popular numerical computing environments such as
33 // SciPy, Mathematica, GNU Octave and MATLAB to provide this functionality.
34
35 // The license for ARPACK Fortran source code is:
36 //
37 // BSD Software License
38 //
39 // Pertains to ARPACK and P_ARPACK
40 //
41 // Copyright (c) 1996-2008 Rice University.
42 // Developed by D.C. Sorensen, R.B. Lehoucq, C. Yang, and K. Maschhoff.
43 // All rights reserved.
44 //
45 // Redistribution and use in source and binary forms, with or without
46 // modification, are permitted provided that the following conditions are
47 // met:
48 //
49 // - Redistributions of source code must retain the above copyright
50 // notice, this list of conditions and the following disclaimer.
51 //
52 // - Redistributions in binary form must reproduce the above copyright
53 // notice, this list of conditions and the following disclaimer listed
54 // in this license in the documentation and/or other materials
55 // provided with the distribution.
56 //
57 // - Neither the name of the copyright holders nor the names of its
58 // contributors may be used to endorse or promote products derived from
59 // this software without specific prior written permission.
60 //
61 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
62 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
63 // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
64 // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
65 // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
66 // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
67 // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
68 // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
69 // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
70 // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
71 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
72
73 // VIF THU 20 NOV 2025 22:18:35 ** MARCEL ** ARPACK PAGE 00001
74
75
76
77 // M M A RRRRRR CCCCC EEEEEEE L
78 // MM MM A A R R C C E L
79 // M M M M A A R R C E L
80 // M M M A A RRRRRR C EEEEE L
81 // M M AAAAAAA R R C E L
82 // M M A A R R C C E L
83 // M M A A R R CCCCC EEEEEEE LLLLLLL
84
85 // A RRRRRR PPPPPP A CCCCC K K
86 // A A R R P P A A C C K K
87 // A A R R P P A A C K K
88 // A A RRRRRR PPPPPP A A C KKK
89 // AAAAAAA R R P AAAAAAA C K K
90 // A A R R P A A C C K K
91 // A A R R P A A CCCCC K K
92
93
94
95
96 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
97
98 // ** linker ** object size 2675888 bytes
99 // ** statistics ** 82 subprograms, no errors, no warnings
100
101
102 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
103
104
105 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
106
107
108
109 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
110
111 /*
112 Generated by VIF - experimental VIntage Fortran compiler.
113 VIF release 1.4.1
114 */
115
116 #if defined (__GNUC__)
117 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
118 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
119 #if (__GNUC__ >= 14)
120 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
121 #pragma GCC diagnostic ignored "-Wimplicit-int"
122 #pragma GCC diagnostic ignored "-Wint-conversion"
123 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
124 #endif
125 #else
126 #error VIF requires GCC
127 #endif
128
129 #include <vif.h>
130
131 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
132
133
134 #define _dc_0 "g"
135 #define _dc_1 "i"
136 #define _dc_2 "c"
137 #define _dc_3 "n"
138 #define _dc_4 "_getv0: re-orthonalization ; rnorm0 is"
139 #define _dc_5 "_getv0: re-orthonalization ; rnorm is"
140 #define _dc_6 "_getv0: b-norm of initial / restarted starting vector"
141 #define _dc_7 "_getv0: initial / restarted starting vector"
142 #define _dc_8 "o"
143 #define _dc_9 "l"
144 #define _dc_10 "-"
145 #define _dc_11 " "
146 #define _dc_12 " "
147 #define _dc_13 " "
148 #define _dc_14 " "
149 #define _dc_15 " "
150 #define _dc_16 " "
151 #define _dc_17 " "
152 #define _dc_18 " row"
153 #define _dc_19 ":"
154 #define _dc_20 "("
155 #define _dc_21 ","
156 #define _dc_22 ") "
157 #define _dc_23 ")"
158 #define _dc_24 "safe minimum"
159 #define _dc_25 "precision"
160 #define _dc_26 "_naitr: generating arnoldi vector number"
161 #define _dc_27 "_naitr: b-norm of the current residual is"
162 #define _dc_28 "_naitr: ****** restart at step ******"
163 #define _dc_29 "general"
164 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00005
165
166 #define _dc_30 "_naitr: re-orthogonalization; wnorm and rnorm are"
167 #define _dc_31 "_naitr: j-th column of h"
168 #define _dc_32 "_naitr: iterative refinement for arnoldi residual"
169 #define _dc_33 "_naitr: iterative refinement ; rnorm and rnorm1 are"
170 #define _dc_34 "1"
171 #define _dc_35 "_naitr: final upper hessenberg matrix h of order k+np"
172 #define _dc_36 "all"
173 #define _dc_37 "_napps: shift number."
174 #define _dc_38 "_napps: value of the shift "
175 #define _dc_39 "_napps: matrix splitting at row/column no."
176 #define _dc_40 "_napps: matrix splitting with shift number."
177 #define _dc_41 "_napps: off diagonal element."
178 #define _dc_42 "_napps: start of current block "
179 #define _dc_43 "_napps: end of current block "
180 #define _dc_44 "a"
181 #define _dc_45 "_napps: sigmak = (e_{kev+p}^t*q)*e_{kev}"
182 #define _dc_46 "_napps: betak = e_{kev+1}^t*h*e_{kev}"
183 #define _dc_47 "_napps: order of the final hessenberg matrix "
184 #define _dc_48 "_napps: updated hessenberg matrix h for next iteration"
185 #define _dc_49 "epsilon-machine"
186 #define _dc_50 "_naup2: **** start of major iteration number ****"
187 #define _dc_51 "_naup2: the length of the current arnoldi factorization"
188 #define _dc_52 "_naup2: extend the arnoldi factorization by"
189 #define _dc_53 "_naup2: corresponding b-norm of the residual"
190 #define _dc_54 "_naup2: nev, np, nconv are"
191 #define _dc_55 "_naup2: the eigenvalues of h"
192 #define _dc_56 "_naup2: ritz estimates of the current ncv ritz values"
193 #define _dc_57 "_naup2: eigenvalues computed by _neigh:"
194 #define _dc_58 "_naup2: ritz estimates computed by _neigh:"
195 #define _dc_59 "lm"
196 #define _dc_60 "sm"
197 #define _dc_61 "lr"
198 #define _dc_62 "sr"
199 #define _dc_63 "li"
200 #define _dc_64 "si"
201 #define _dc_65 "_naup2: sorted eigenvalues"
202 #define _dc_66 "_naup2: sorted ritz estimates."
203 #define _dc_67 "_naup2: no. of \"converged\" ritz values at this iter."
204 #define _dc_68 "_naup2: nev and np are"
205 #define _dc_69 "_naup2: \"wanted\" ritz values "
206 #define _dc_70 "_naup2: ritz estimates of the \"wanted\" values "
207 #define _dc_71 "_naup2: the number of shifts to apply "
208 #define _dc_72 "_naup2: values of the shifts"
209 #define _dc_73 "_naup2: ritz estimates of the shifts"
210 #define _dc_74 "_naup2: b-norm of residual for compressed factorization"
211 #define _dc_75 "_naup2: compressed upper hessenberg matrix h"
212 #define _dc_76 "epsmach"
213 #define _dc_77 "_naupd: number of update iterations taken"
214 #define _dc_78 "_naupd: number of wanted \"converged\" ritz values"
215 #define _dc_79 "_naupd: the final ritz values"
216 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00006
217
218 #define _dc_80 "_naupd: associated ritz estimates"
219 #define _dc_81 " "
220 #define _dc_82 "============================================="
221 #define _dc_83 "= complex implicit arnoldi update code ="
222 #define _dc_84 "= version number: "
223 #define _dc_85 " 2.3"
224 #define _dc_86 " "
225 #define _dc_87 " ="
226 #define _dc_88 "= version date: "
227 #define _dc_89 " 07/31/96"
228 #define _dc_90 " "
229 #define _dc_91 "= summary of timing statistics ="
230 #define _dc_92 "total number update iterations = "
231 #define _dc_93 "total number of op*x operations = "
232 #define _dc_94 "total number of b*x operations = "
233 #define _dc_95 "total number of reorthogonalization steps = "
234 #define _dc_96 "total number of iterative refinement steps = "
235 #define _dc_97 "total number of restart steps = "
236 #define _dc_98 "total time in user op*x operation = "
237 #define _dc_99 "total time in user b*x operation = "
238 #define _dc_100 "total time in arnoldi update routine = "
239 #define _dc_101 "total time in naup2 routine = "
240 #define _dc_102 "total time in basic arnoldi iteration loop = "
241 #define _dc_103 "total time in reorthogonalization phase = "
242 #define _dc_104 "total time in (re)start vector generation = "
243 #define _dc_105 "total time in hessenberg eig. subproblem = "
244 #define _dc_106 "total time in getting the shifts = "
245 #define _dc_107 "total time in applying the shifts = "
246 #define _dc_108 "total time in convergence testing = "
247 #define _dc_109 "total time in computing final ritz vectors = "
248 #define _dc_110 "_neigh: entering upper hessenberg matrix h "
249 #define _dc_111 "_neigh: last row of the schur matrix for h"
250 #define _dc_112 "right"
251 #define _dc_113 "back"
252 #define _dc_114 "_neigh: last row of the eigenvector matrix for h"
253 #define _dc_115 "_neigh: the eigenvalues of h"
254 #define _dc_116 "_neigh: ritz estimates for the eigenvalues of h"
255 #define _dc_117 "p"
256 #define _dc_118 "s"
257 #define _dc_119 "regulr"
258 #define _dc_120 "shifti"
259 #define _dc_121 "_neupd: ritz values passed in from _naupd."
260 #define _dc_122 "_neupd: ritz estimates passed in from _naupd."
261 #define _dc_123 "_neupd: ritz values after calling _ngets."
262 #define _dc_124 "_neupd: ritz value indices after calling _ngets."
263 #define _dc_125 "_neupd: number of specified eigenvalues"
264 #define _dc_126 "_neupd: number of \"converged\" eigenvalues"
265 #define _dc_127 "_neupd: eigenvalues of h"
266 #define _dc_128 "_neupd: last row of the schur vector matrix"
267 #define _dc_129 "_neupd: the upper triangular matrix "
268 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00007
269
270 #define _dc_130 "none"
271 #define _dc_131 "v"
272 #define _dc_132 "_neupd: eigenvalues of h--reordered"
273 #define _dc_133 "_neupd: triangular matrix after re-ordering"
274 #define _dc_134 "notranspose"
275 #define _dc_135 "select"
276 #define _dc_136 "_neupd: last row of the eigenvector matrix for t"
277 #define _dc_137 "_neupd: the eigenvector matrix for t"
278 #define _dc_138 "upper"
279 #define _dc_139 "no transpose"
280 #define _dc_140 "non-unit"
281 #define _dc_141 "_neupd: untransformed ritz values."
282 #define _dc_142 "_neupd: ritz estimates of the untransformed ritz values."
283 #define _dc_143 "_neupd: converged ritz values."
284 #define _dc_144 "_neupd: associated ritz estimates."
285 #define _dc_145 "_ngets: kev is"
286 #define _dc_146 "_ngets: np is"
287 #define _dc_147 "_ngets: eigenvalues of current h matrix "
288 #define _dc_148 "_ngets: ritz estimates of the current kev+np ritz values"
289 #define _dc_149 " - "
290 #define _dc_150 "t"
291 #define _dc_151 " "
292 #define _dc_152 " "
293 #define _dc_153 " "
294 #define _dc_154 " "
295 #define _dc_155 "_naitr: re-orthonalization; wnorm and rnorm are"
296 #define _dc_156 "_napps: the real part of the shift "
297 #define _dc_157 "_napps: the imaginary part of the shift "
298 #define _dc_158 "left"
299 #define _dc_159 "_naup2: nev, np, numcnv, nconv are"
300 #define _dc_160 "_naup2: real part of the eigenvalues of h"
301 #define _dc_161 "_naup2: imaginary part of the eigenvalues of h"
302 #define _dc_162 "_naup2: real part of the eig computed by _neigh:"
303 #define _dc_163 "_naup2: imag part of the eig computed by _neigh:"
304 #define _dc_164 "_naup2: ritz eistmates computed by _neigh:"
305 #define _dc_165 "_naup2: sorted real part of the eigenvalues"
306 #define _dc_166 "_naup2: sorted imaginary part of the eigenvalues"
307 #define _dc_167 "_naup2: \"wanted\" ritz values -- real part"
308 #define _dc_168 "_naup2: \"wanted\" ritz values -- imag part"
309 #define _dc_169 "_naup2: real part of the shifts"
310 #define _dc_170 "_naup2: imaginary part of the shifts"
311 #define _dc_171 "_naupd: real part of the final ritz values"
312 #define _dc_172 "_naupd: imaginary part of the final ritz values"
313 #define _dc_173 "= nonsymmetric implicit arnoldi update code ="
314 #define _dc_174 " 2.4"
315 #define _dc_175 "r"
316 #define _dc_176 "_neigh: real part of the eigenvalues of h"
317 #define _dc_177 "_neigh: imaginary part of the eigenvalues of h"
318 #define _dc_178 "realpt"
319 #define _dc_179 "imagpt"
320 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00008
321
322 #define _dc_180 "_neupd: real part of ritz values passed in from _naupd."
323 #define _dc_181 "_neupd: imag part of ritz values passed in from _naupd."
324 #define _dc_182 "_neupd: real part of ritz values after calling _ngets."
325 #define _dc_183 "_neupd: imag part of ritz values after calling _ngets."
326 #define _dc_184 "_neupd: real part of the eigenvalues of h"
327 #define _dc_185 "_neupd: imaginary part of the eigenvalues of h"
328 #define _dc_186 "_neupd: the upper quasi-triangular matrix "
329 #define _dc_187 "_neupd: real part of the eigenvalues of h--reordered"
330 #define _dc_188 "_neupd: imag part of the eigenvalues of h--reordered"
331 #define _dc_189 "_neupd: quasi-triangular matrix after re-ordering"
332 #define _dc_190 "_neupd: untransformed real part of the ritz valuess."
333 #define _dc_191 "_neupd: untransformed imag part of the ritz valuess."
334 #define _dc_192 "_neupd: ritz estimates of untransformed ritz values."
335 #define _dc_193 "_neupd: real parts of converged ritz values."
336 #define _dc_194 "_neupd: imag parts of converged ritz values."
337 #define _dc_195 "_ngets: eigenvalues of current h matrix -- real part"
338 #define _dc_196 "_ngets: eigenvalues of current h matrix -- imag part"
339 #define _dc_197 "safmin"
340 #define _dc_198 "_saitr: generating arnoldi vector no."
341 #define _dc_199 "_saitr: b-norm of the current residual ="
342 #define _dc_200 "_saitr: ****** restart at step ******"
343 #define _dc_201 "_saitr: re-orthonalization ; wnorm and rnorm are"
344 #define _dc_202 "_saitr: iterative refinement for arnoldi residual"
345 #define _dc_203 "_saitr: iterative refinement ; rnorm and rnorm1 are"
346 #define _dc_204 "_saitr: main diagonal of matrix h of step k+np."
347 #define _dc_205 "_saitr: sub diagonal of matrix h of step k+np."
348 #define _dc_206 "_sapps: deflation at row/column no."
349 #define _dc_207 "_sapps: occured before shift number."
350 #define _dc_208 "_sapps: the corresponding off diagonal element"
351 #define _dc_209 "_sapps: sigmak of the updated residual vector"
352 #define _dc_210 "_sapps: betak of the updated residual vector"
353 #define _dc_211 "_sapps: updated main diagonal of h for next iteration"
354 #define _dc_212 "_sapps: updated sub diagonal of h for next iteration"
355 #define _dc_213 "_saup2: **** start of major iteration number ****"
356 #define _dc_214 "_saup2: the length of the current lanczos factorization"
357 #define _dc_215 "_saup2: extend the lanczos factorization by"
358 #define _dc_216 "_saup2: current b-norm of residual for factorization"
359 #define _dc_217 "_saup2: nev, np, nconv are"
360 #define _dc_218 "_saup2: the eigenvalues of h"
361 #define _dc_219 "_saup2: ritz estimates of the current ncv ritz values"
362 #define _dc_220 "be"
363 #define _dc_221 "sa"
364 #define _dc_222 "la"
365 #define _dc_223 "_saup2: sorted ritz values."
366 #define _dc_224 "_saup2: sorted ritz estimates."
367 #define _dc_225 "_saup2: no. of \"converged\" ritz values at this iter."
368 #define _dc_226 "_saup2: nev and np are"
369 #define _dc_227 "_saup2: \"wanted\" ritz values."
370 #define _dc_228 "_saup2: ritz estimates of the \"wanted\" values "
371 #define _dc_229 "_saup2: the number of shifts to apply "
372 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00009
373
374 #define _dc_230 "_saup2: shifts selected"
375 #define _dc_231 "_saup2: corresponding ritz estimates"
376 #define _dc_232 "_saup2: b-norm of residual for nev factorization"
377 #define _dc_233 "_saup2: main diagonal of compressed h matrix"
378 #define _dc_234 "_saup2: subdiagonal of compressed h matrix"
379 #define _dc_235 "_saupd: number of update iterations taken"
380 #define _dc_236 "_saupd: number of \"converged\" ritz values"
381 #define _dc_237 "_saupd: final ritz values"
382 #define _dc_238 "_saupd: corresponding error bounds"
383 #define _dc_239 "=========================================="
384 #define _dc_240 "= symmetric implicit arnoldi update code ="
385 #define _dc_241 "= version number:"
386 #define _dc_242 " "
387 #define _dc_243 "= version date: "
388 #define _dc_244 " "
389 #define _dc_245 "= summary of timing statistics ="
390 #define _dc_246 "total time in saup2 routine = "
391 #define _dc_247 "total time in trid eigenvalue subproblem = "
392 #define _dc_248 "_seigt: main diagonal of matrix h"
393 #define _dc_249 "_seigt: sub diagonal of matrix h"
394 #define _dc_250 "_seigt: last row of the eigenvector matrix for h"
395 #define _dc_251 "buckle"
396 #define _dc_252 "cayley"
397 #define _dc_253 "_seupd: ritz values passed in from _saupd."
398 #define _dc_254 "_seupd: ritz estimates passed in from _saupd."
399 #define _dc_255 "_seupd: ritz values after calling _sgets."
400 #define _dc_256 "_seupd: ritz value indices after calling _sgets."
401 #define _dc_257 "_seupd: number of specified eigenvalues"
402 #define _dc_258 "_seupd: number of \"converged\" eigenvalues"
403 #define _dc_259 "identity"
404 #define _dc_260 "_seupd: ncv ritz values of the final h matrix"
405 #define _dc_261 "_seupd: last row of the eigenvector matrix for h"
406 #define _dc_262 "_seupd: the eigenvalues of h--reordered"
407 #define _dc_263 "transpose"
408 #define _dc_264 "_seupd: untransformed converged ritz values"
409 #define _dc_265 "_seupd: ritz estimates of the untransformed ritz values"
410 #define _dc_266 "_seupd: converged ritz values"
411 #define _dc_267 "_seupd: associated ritz estimates"
412 #define _dc_268 "_sgets: kev is"
413 #define _dc_269 "_sgets: np is"
414 #define _dc_270 "_sgets: eigenvalues of current h matrix"
415 #define _dc_271 "_sgets: associated ritz estimates"
416 #define _dc_272 "e"
417 #define _dc_273 "b"
418 #define _dc_274 "f"
419
420
421
422 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00010
423
424 static FORMAT *__fmt_a = NULL;
425 typedef char char_1[2];
426 typedef char char_3[4];
427 typedef char char_7[8];
428 typedef char char_15[16];
429 typedef char char_31[32];
430 typedef char char_63[64];
431 typedef char char_127[128];
432
433
434 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00011
435
436 #define __ncalls 83
437 static CALLS __calls[__ncalls] = {
438 { // ** body not listed **"cgetv0", 0}, // subroutine
440 { // ** body not listed **"cnaitr", 0}, // subroutine
442 { // ** body not listed **"cnaup2", 0}, // subroutine
444 { // ** body not listed **"cneigh", 0}, // subroutine
446 { // ** body not listed **"cngets", 0}, // subroutine
448 { // ** body not listed **"cstatn", 0}, // subroutine
450 { // ** body not listed **"dgetv0", 0}, // subroutine
452 { // ** body not listed **"dmout", 0}, // subroutine
454 { // ** body not listed **"dnapps", 0}, // subroutine
456 { // ** body not listed **"dnaupd", 0}, // subroutine
458 { // ** body not listed **"dneigh", 0}, // subroutine
460 { // ** body not listed **"dngets", 0}, // subroutine
462 { // ** body not listed **"dsapps", 0}, // subroutine
464 { // ** body not listed **"dsaupd", 0}, // subroutine
466 { // ** body not listed **"dseigt", 0}, // subroutine
468 { // ** body not listed **"dseupd", 0}, // subroutine
470 { // ** body not listed **"dsortc", 0}, // subroutine
472 { // ** body not listed **"dstatn", 0}, // subroutine
474 { // ** body not listed **"dstqrb", 0}, // subroutine
476 { // ** body not listed **"icnteq", 0}, // integer*4 function
478 { // ** body not listed **"iset", 0}, // subroutine
480 { // ** body not listed **"ivout", 0}, // subroutine
482 { // ** body not listed **"sgetv0", 0}, // subroutine
484 { // ** body not listed **"smout", 0}, // subroutine
488 { // ** body not listed **"snapps", 0}, // subroutine
490 { // ** body not listed **"snaupd", 0}, // subroutine
492 { // ** body not listed **"sneigh", 0}, // subroutine
494 { // ** body not listed **"sngets", 0}, // subroutine
496 { // ** body not listed **"ssapps", 0}, // subroutine
498 { // ** body not listed **"ssaupd", 0}, // subroutine
500 { // ** body not listed **"sseigt", 0}, // subroutine
502 { // ** body not listed **"sseupd", 0}, // subroutine
504 { // ** body not listed **"ssortc", 0}, // subroutine
506 { // ** body not listed **"sstatn", 0}, // subroutine
508 { // ** body not listed **"sstqrb", 0}, // subroutine
510 { // ** body not listed **"zgetv0", 0}, // subroutine
512 { // ** body not listed **"znaitr", 0}, // subroutine
514 { // ** body not listed **"znaup2", 0}, // subroutine
516 { // ** body not listed **"zneigh", 0}, // subroutine
518 { // ** body not listed **"zngets", 0}, // subroutine
520 { // ** body not listed **"zstatn", 0}, // subroutine
522 { // ** body not listed **NULL, 0}
523 };
534 } debug_;
535
536 // common /timing_/
537 static struct {
538 int_4 nopx_, nbx_, nrorth_, nitref_, nrstrt_;
539 real_4 tsaupd_, tsaup2_, tsaitr_, tseigt_, tsgets_, tsapps_, tsconv_, tnaupd_, tnaup2_, tnaitr_, tneigh_, tngets_,
540 tnapps_, tnconv_, tcaupd_, tcaup2_, tcaitr_, tceigh_, tcgets_, tcapps_, tcconv_, tmvopx_, tmvbx_, tgetv0_, titref_,
541 trvec_;
542 } timing_;
543
544
545 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00014
546
547
548 prototype int_4 _cgetv0 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ itry_, logical_4 _p_ initv_, int_4 _p_ n_, int_4 _p_
549 j_, complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ resid_, real_4 _p_ rnorm_, int_4 _p_ ipntr_, complex_8 _p_ workd_,
550 int_4 _p_ ierr_);
551 prototype int_4 _cmout (int_4 _p_ lout_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_
552 idigit_, char _p_ ifmt_);
553 prototype int_4 _cnaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ nb_,
554 complex_8 _p_ resid_, real_4 _p_ rnorm_, complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ h_, int_4 _p_ ldh_, int_4 _p_
555 ipntr_, complex_8 _p_ workd_, int_4 _p_ info_);
556 prototype int_4 _cnapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, complex_8 _p_ shift_, complex_8 _p_ v_, int_4 _p_
557 ldv_, complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ resid_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_,
558 complex_8 _p_ workd_);
559 prototype int_4 _cnaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_,
560 real_4 _p_ tol_, complex_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_,
561 complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ ritz_, complex_8 _p_ bounds_,
562 complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_, int_4 _p_ ipntr_, complex_8 _p_ workd_, real_4 _p_ rwork_,
563 int_4 _p_ info_);
564 prototype int_4 _cnaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_
565 , complex_8 _p_ resid_, int_4 _p_ ncv_, complex_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_,
566 complex_8 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_);
567 prototype int_4 _cneigh (real_4 _p_ rnorm_, int_4 _p_ n_, complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ ritz_,
568 complex_8 _p_ bounds_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_, real_4 _p_ rwork_, int_4 _p_ ierr_);
569 prototype int_4 _cneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, complex_8 _p_ d_, complex_8 _p_
570 z_, int_4 _p_ ldz_, complex_8 _p_ sigma_, complex_8 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4
571 _p_ nev_, real_4 _p_ tol_, complex_8 _p_ resid_, int_4 _p_ ncv_, complex_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_,
572 int_4 _p_ ipntr_, complex_8 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_);
573 prototype int_4 _cngets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, complex_8 _p_ ritz_,
574 complex_8 _p_ bounds_);
575 prototype int_4 _csortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, complex_8 _p_ x_, complex_8 _p_ y_);
576 prototype int_4 _cstatn (void);
577 prototype int_4 _cvout (int_4 _p_ lout_, int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ idigit_, char _p_ ifmt_);
578 prototype int_4 _dgetv0 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ itry_, logical_4 _p_ initv_, int_4 _p_ n_, int_4 _p_
579 j_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ resid_, real_8 _p_ rnorm_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_
580 ierr_);
581 prototype int_4 _dlaqrb (logical_4 _p_ wantt_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_, real_8 _p_ h_, int_4 _p_
582 ldh_, real_8 _p_ wr_, real_8 _p_ wi_, real_8 _p_ z_, int_4 _p_ info_);
583 prototype int_4 _dmout (int_4 _p_ lout_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ idigit_,
584 char _p_ ifmt_);
585 prototype int_4 _dnaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ nb_,
586 real_8 _p_ resid_, real_8 _p_ rnorm_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_,
587 real_8 _p_ workd_, int_4 _p_ info_);
588 prototype int_4 _dnapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, real_8 _p_ shiftr_, real_8 _p_ shifti_, real_8
589 _p_ v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ resid_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_
590 workl_, real_8 _p_ workd_);
591 prototype int_4 _dnaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_,
592 real_8 _p_ tol_, real_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_8 _p_
593 v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ ritzr_, real_8 _p_ ritzi_, real_8 _p_ bounds_, real_8 _p_
594 q_, int_4 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_);
595 prototype int_4 _dnaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_
596 , real_8 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_
597 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00015
598
599 workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
600 prototype int_4 _dnconv (int_4 _p_ n_, real_8 _p_ ritzr_, real_8 _p_ ritzi_, real_8 _p_ bounds_, real_8 _p_ tol_, int_4
601 _p_ nconv_);
602 prototype int_4 _dneigh (real_8 _p_ rnorm_, int_4 _p_ n_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ ritzr_, real_8 _p_
603 ritzi_, real_8 _p_ bounds_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ierr_);
604 prototype int_4 _dneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, real_8 _p_ dr_, real_8 _p_ di_,
605 real_8 _p_ z_, int_4 _p_ ldz_, real_8 _p_ sigmar_, real_8 _p_ sigmai_, real_8 _p_ workev_, char _p_ bmat_, int_4 _p_ n_
606 , char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_, real_8 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_,
607 int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
608 prototype int_4 _dngets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, real_8 _p_ ritzr_, real_8
609 _p_ ritzi_, real_8 _p_ bounds_, real_8 _p_ shiftr_, real_8 _p_ shifti_);
610 prototype int_4 _dsaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ mode_,
611 real_8 _p_ resid_, real_8 _p_ rnorm_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_,
612 real_8 _p_ workd_, int_4 _p_ info_);
613 prototype int_4 _dsapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, real_8 _p_ shift_, real_8 _p_ v_, int_4 _p_ ldv_,
614 real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ resid_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workd_);
615 prototype int_4 _dsaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_,
616 real_8 _p_ tol_, real_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_8 _p_
617 v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ ritz_, real_8 _p_ bounds_, real_8 _p_ q_, int_4 _p_ ldq_,
618 real_8 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_);
619 prototype int_4 _dsaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_
620 , real_8 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_
621 workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
622 prototype int_4 _dsconv (int_4 _p_ n_, real_8 _p_ ritz_, real_8 _p_ bounds_, real_8 _p_ tol_, int_4 _p_ nconv_);
623 prototype int_4 _dseigt (real_8 _p_ rnorm_, int_4 _p_ n_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ eig_, real_8 _p_
624 bounds_, real_8 _p_ workl_, int_4 _p_ ierr_);
625 prototype int_4 _dsesrt (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ na_, real_8 _p_
626 a_, int_4 _p_ lda_);
627 prototype int_4 _dseupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, real_8 _p_ d_, real_8 _p_ z_,
628 int_4 _p_ ldz_, real_8 _p_ sigma_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_,
629 real_8 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_
630 workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
631 prototype int_4 _dsgets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, real_8 _p_ ritz_, real_8
632 _p_ bounds_, real_8 _p_ shifts_);
633 prototype int_4 _dsortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_8 _p_ xreal_, real_8 _p_ ximag_,
634 real_8 _p_ y_);
635 prototype int_4 _dsortr (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_8 _p_ x1_, real_8 _p_ x2_);
636 prototype int_4 _dstatn (void);
637 prototype int_4 _dstats (void);
638 prototype int_4 _dstqrb (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ z_, real_8 _p_ work_, int_4 _p_ info_);
639 prototype int_4 _dvout (int_4 _p_ lout_, int_4 _p_ n_, real_8 _p_ sx_, int_4 _p_ idigit_, char _p_ ifmt_);
640 prototype int_4 _icnteq (int_4 _p_ n_, int_4 _p_ array_, int_4 _p_ value_);
641 prototype int_4 _icopy (int_4 _p_ n_, int_4 _p_ lx_, int_4 _p_ incx_, int_4 _p_ ly_, int_4 _p_ incy_);
642 prototype int_4 _iset (int_4 _p_ n_, int_4 _p_ value_, int_4 _p_ array_, int_4 _p_ inc_);
643 prototype int_4 _iswap (int_4 _p_ n_, int_4 _p_ sx_, int_4 _p_ incx_, int_4 _p_ sy_, int_4 _p_ incy_);
644 prototype int_4 _ivout (int_4 _p_ lout_, int_4 _p_ n_, int_4 _p_ ix_, int_4 _p_ idigit_, char _p_ ifmt_);
645 prototype int_4 _second (real_4 _p_ t_);
646 prototype int_4 _sgetv0 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ itry_, logical_4 _p_ initv_, int_4 _p_ n_, int_4 _p_
647 j_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ resid_, real_4 _p_ rnorm_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_
648 ierr_);
649 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00016
650
651 prototype int_4 _slaqrb (logical_4 _p_ wantt_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_, real_4 _p_ h_, int_4 _p_
652 ldh_, real_4 _p_ wr_, real_4 _p_ wi_, real_4 _p_ z_, int_4 _p_ info_);
653 prototype int_4 _smout (int_4 _p_ lout_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ idigit_,
654 char _p_ ifmt_);
655 prototype int_4 _snaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ nb_,
656 real_4 _p_ resid_, real_4 _p_ rnorm_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_,
657 real_4 _p_ workd_, int_4 _p_ info_);
658 prototype int_4 _snapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, real_4 _p_ shiftr_, real_4 _p_ shifti_, real_4
659 _p_ v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ resid_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_
660 workl_, real_4 _p_ workd_);
661 prototype int_4 _snaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_,
662 real_4 _p_ tol_, real_4 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_4 _p_
663 v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ ritzr_, real_4 _p_ ritzi_, real_4 _p_ bounds_, real_4 _p_
664 q_, int_4 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_);
665 prototype int_4 _snaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_
666 , real_4 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_
667 workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
668 prototype int_4 _snconv (int_4 _p_ n_, real_4 _p_ ritzr_, real_4 _p_ ritzi_, real_4 _p_ bounds_, real_4 _p_ tol_, int_4
669 _p_ nconv_);
670 prototype int_4 _sneigh (real_4 _p_ rnorm_, int_4 _p_ n_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ ritzr_, real_4 _p_
671 ritzi_, real_4 _p_ bounds_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ierr_);
672 prototype int_4 _sneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, real_4 _p_ dr_, real_4 _p_ di_,
673 real_4 _p_ z_, int_4 _p_ ldz_, real_4 _p_ sigmar_, real_4 _p_ sigmai_, real_4 _p_ workev_, char _p_ bmat_, int_4 _p_ n_
674 , char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_, real_4 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_,
675 int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
676 prototype int_4 _sngets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, real_4 _p_ ritzr_, real_4
677 _p_ ritzi_, real_4 _p_ bounds_, real_4 _p_ shiftr_, real_4 _p_ shifti_);
678 prototype int_4 _ssaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ mode_,
679 real_4 _p_ resid_, real_4 _p_ rnorm_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_,
680 real_4 _p_ workd_, int_4 _p_ info_);
681 prototype int_4 _ssapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, real_4 _p_ shift_, real_4 _p_ v_, int_4 _p_ ldv_,
682 real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ resid_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workd_);
683 prototype int_4 _ssaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_,
684 real_4 _p_ tol_, real_4 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_4 _p_
685 v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ ritz_, real_4 _p_ bounds_, real_4 _p_ q_, int_4 _p_ ldq_,
686 real_4 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_);
687 prototype int_4 _ssaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_
688 , real_4 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_
689 workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
690 prototype int_4 _ssconv (int_4 _p_ n_, real_4 _p_ ritz_, real_4 _p_ bounds_, real_4 _p_ tol_, int_4 _p_ nconv_);
691 prototype int_4 _sseigt (real_4 _p_ rnorm_, int_4 _p_ n_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ eig_, real_4 _p_
692 bounds_, real_4 _p_ workl_, int_4 _p_ ierr_);
693 prototype int_4 _ssesrt (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ na_, real_4 _p_
694 a_, int_4 _p_ lda_);
695 prototype int_4 _sseupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, real_4 _p_ d_, real_4 _p_ z_,
696 int_4 _p_ ldz_, real_4 _p_ sigma_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_,
697 real_4 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_
698 workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
699 prototype int_4 _ssgets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, real_4 _p_ ritz_, real_4
700 _p_ bounds_, real_4 _p_ shifts_);
701 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00017
702
703 prototype int_4 _ssortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_4 _p_ xreal_, real_4 _p_ ximag_,
704 real_4 _p_ y_);
705 prototype int_4 _ssortr (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_4 _p_ x1_, real_4 _p_ x2_);
706 prototype int_4 _sstatn (void);
707 prototype int_4 _sstats (void);
708 prototype int_4 _sstqrb (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ z_, real_4 _p_ work_, int_4 _p_ info_);
709 prototype int_4 _svout (int_4 _p_ lout_, int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ idigit_, char _p_ ifmt_);
710 prototype int_4 _zgetv0 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ itry_, logical_4 _p_ initv_, int_4 _p_ n_, int_4 _p_
711 j_, complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ resid_, real_8 _p_ rnorm_, int_4 _p_ ipntr_, complex_16 _p_
712 workd_, int_4 _p_ ierr_);
713 prototype int_4 _zmout (int_4 _p_ lout_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_
714 idigit_, char _p_ ifmt_);
715 prototype int_4 _znaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ nb_,
716 complex_16 _p_ resid_, real_8 _p_ rnorm_, complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, int_4
717 _p_ ipntr_, complex_16 _p_ workd_, int_4 _p_ info_);
718 prototype int_4 _znapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, complex_16 _p_ shift_, complex_16 _p_ v_, int_4
719 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ resid_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_
720 workl_, complex_16 _p_ workd_);
721 prototype int_4 _znaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_,
722 real_8 _p_ tol_, complex_16 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_,
723 complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ ritz_, complex_16 _p_ bounds_,
724 complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_, int_4 _p_ ipntr_, complex_16 _p_ workd_, real_8 _p_ rwork_,
725 int_4 _p_ info_);
726 prototype int_4 _znaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_
727 , complex_16 _p_ resid_, int_4 _p_ ncv_, complex_16 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_,
728 complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4 _p_ info_);
729 prototype int_4 _zneigh (real_8 _p_ rnorm_, int_4 _p_ n_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ ritz_,
730 complex_16 _p_ bounds_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_, real_8 _p_ rwork_, int_4 _p_ ierr_);
731 prototype int_4 _zneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, complex_16 _p_ d_, complex_16
732 _p_ z_, int_4 _p_ ldz_, complex_16 _p_ sigma_, complex_16 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_,
733 int_4 _p_ nev_, real_8 _p_ tol_, complex_16 _p_ resid_, int_4 _p_ ncv_, complex_16 _p_ v_, int_4 _p_ ldv_, int_4 _p_
734 iparam_, int_4 _p_ ipntr_, complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4
735 _p_ info_);
736 prototype int_4 _zngets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, complex_16 _p_ ritz_,
737 complex_16 _p_ bounds_);
738 prototype int_4 _zsortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, complex_16 _p_ x_, complex_16 _p_ y_);
739 prototype int_4 _zstatn (void);
740 prototype int_4 _zvout (int_4 _p_ lout_, int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ idigit_, char _p_ ifmt_);
741
742
743
744
745
746
747
748
749
750
751
752
753 // VIF THU 20 NOV 2025 22:18:35 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00018
754
755
756 // VIF THU 20 NOV 2025 22:18:35 ** CGETV0 ** CGETV0 PAGE 00019
757
758 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
759 // S S U U B B R R O O U U T I NN N E
760 // S U U B B R R O O U U T I N N N E
761 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
762 // S U U B B R R O O U U T I N N N E
763 // S S U U B B R R O O U U T I N NN E
764 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
765
766 // CCCCC GGGGG EEEEEEE TTTTTTT V V 000
767 // C C G G E T V V 0 0
768 // C G E T V V 0 0
769 // C G GGGG EEEEE T V V 0 0
770 // C G G E T V V 0 0
771 // C C G G E T V V 0 0
772 // CCCCC GGGGG EEEEEEE T V 000
773
774
775 // VIF THU 20 NOV 2025 22:18:35 ** CGETV0 ** DIAGNOSTICS PAGE 00020
776
777
778 // VIF THU 20 NOV 2025 22:18:35 ** CGETV0 ** GENERATED CODE PAGE 00021
779
780 int_4 _cgetv0 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ itry_, logical_4 _p_ initv_, int_4 _p_ n_, int_4 _p_ j_,
781 complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ resid_, real_4 _p_ rnorm_, int_4 _p_ ipntr_, complex_8 _p_ workd_,
782 int_4 _p_ ierr_)
783 { // ** body not listed **
943 }
944
945 // VIF THU 20 NOV 2025 22:18:35 ** CMOUT ** CMOUT PAGE 00025
946
947 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
948 // S S U U B B R R O O U U T I NN N E
949 // S U U B B R R O O U U T I N N N E
950 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
951 // S U U B B R R O O U U T I N N N E
952 // S S U U B B R R O O U U T I N NN E
953 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
954
955 // CCCCC M M OOOOO U U TTTTTTT
956 // C C MM MM O O U U T
957 // C M M M M O O U U T
958 // C M M M O O U U T
959 // C M M O O U U T
960 // C C M M O O U U T
961 // CCCCC M M OOOOO UUUUU T
962
963
964 // VIF THU 20 NOV 2025 22:18:35 ** CMOUT ** DIAGNOSTICS PAGE 00026
965
966
967 // VIF THU 20 NOV 2025 22:18:35 ** CMOUT ** GENERATED CODE PAGE 00027
968
969 int_4 _cmout (int_4 _p_ lout_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ idigit_, char
970 _p_ ifmt_)
971 { // ** body not listed **
3548 }
3549
3550 // VIF THU 20 NOV 2025 22:18:35 ** CNAITR ** CNAITR PAGE 00077
3551
3552 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3553 // S S U U B B R R O O U U T I NN N E
3554 // S U U B B R R O O U U T I N N N E
3555 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3556 // S U U B B R R O O U U T I N N N E
3557 // S S U U B B R R O O U U T I N NN E
3558 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3559
3560 // CCCCC N N A III TTTTTTT RRRRRR
3561 // C C NN N A A I T R R
3562 // C N N N A A I T R R
3563 // C N N N A A I T RRRRRR
3564 // C N N N AAAAAAA I T R R
3565 // C C N NN A A I T R R
3566 // CCCCC N N A A III T R R
3567
3568
3569 // VIF THU 20 NOV 2025 22:18:35 ** CNAITR ** DIAGNOSTICS PAGE 00078
3570
3571
3572 // VIF THU 20 NOV 2025 22:18:35 ** CNAITR ** GENERATED CODE PAGE 00079
3573
3574 int_4 _cnaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ nb_, complex_8 _p_
3575 resid_, real_4 _p_ rnorm_, complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_,
3576 complex_8 _p_ workd_, int_4 _p_ info_)
3577 { // ** body not listed **
3877 }
3878
3879 // VIF THU 20 NOV 2025 22:18:35 ** CNAPPS ** CNAPPS PAGE 00085
3880
3881 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3882 // S S U U B B R R O O U U T I NN N E
3883 // S U U B B R R O O U U T I N N N E
3884 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3885 // S U U B B R R O O U U T I N N N E
3886 // S S U U B B R R O O U U T I N NN E
3887 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3888
3889 // CCCCC N N A PPPPPP PPPPPP SSSSS
3890 // C C NN N A A P P P P S S
3891 // C N N N A A P P P P S
3892 // C N N N A A PPPPPP PPPPPP SSSSS
3893 // C N N N AAAAAAA P P S
3894 // C C N NN A A P P S S
3895 // CCCCC N N A A P P SSSSS
3896
3897
3898 // VIF THU 20 NOV 2025 22:18:35 ** CNAPPS ** DIAGNOSTICS PAGE 00086
3899
3900
3901 // VIF THU 20 NOV 2025 22:18:35 ** CNAPPS ** GENERATED CODE PAGE 00087
3902
3903 int_4 _cnapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, complex_8 _p_ shift_, complex_8 _p_ v_, int_4 _p_ ldv_,
3904 complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ resid_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_,
3905 complex_8 _p_ workd_)
3906 { // ** body not listed **
4094 }
4095
4096 // VIF THU 20 NOV 2025 22:18:35 ** CNAUP2 ** CNAUP2 PAGE 00091
4097
4098 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4099 // S S U U B B R R O O U U T I NN N E
4100 // S U U B B R R O O U U T I N N N E
4101 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4102 // S U U B B R R O O U U T I N N N E
4103 // S S U U B B R R O O U U T I N NN E
4104 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4105
4106 // CCCCC N N A U U PPPPPP 22222
4107 // C C NN N A A U U P P 2 2
4108 // C N N N A A U U P P 2
4109 // C N N N A A U U PPPPPP 22222
4110 // C N N N AAAAAAA U U P 2
4111 // C C N NN A A U U P 2
4112 // CCCCC N N A A UUUUU P 2222222
4113
4114
4115 // VIF THU 20 NOV 2025 22:18:35 ** CNAUP2 ** DIAGNOSTICS PAGE 00092
4116
4117
4118 // VIF THU 20 NOV 2025 22:18:35 ** CNAUP2 ** GENERATED CODE PAGE 00093
4119
4120 int_4 _cnaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_, real_4 _p_
4121 tol_, complex_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, complex_8 _p_ v_,
4122 int_4 _p_ ldv_, complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ ritz_, complex_8 _p_ bounds_, complex_8 _p_ q_, int_4
4123 _p_ ldq_, complex_8 _p_ workl_, int_4 _p_ ipntr_, complex_8 _p_ workd_, real_4 _p_ rwork_, int_4 _p_ info_)
4124 { // ** body not listed **
4401 }
4402
4403 // VIF THU 20 NOV 2025 22:18:35 ** CNAUPD ** CNAUPD PAGE 00099
4404
4405 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4406 // S S U U B B R R O O U U T I NN N E
4407 // S U U B B R R O O U U T I N N N E
4408 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4409 // S U U B B R R O O U U T I N N N E
4410 // S S U U B B R R O O U U T I N NN E
4411 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4412
4413 // CCCCC N N A U U PPPPPP DDDDDD
4414 // C C NN N A A U U P P D D
4415 // C N N N A A U U P P D D
4416 // C N N N A A U U PPPPPP D D
4417 // C N N N AAAAAAA U U P D D
4418 // C C N NN A A U U P D D
4419 // CCCCC N N A A UUUUU P DDDDDD
4420
4421
4422 // VIF THU 20 NOV 2025 22:18:35 ** CNAUPD ** DIAGNOSTICS PAGE 00100
4423
4424
4425 // VIF THU 20 NOV 2025 22:18:35 ** CNAUPD ** GENERATED CODE PAGE 00101
4426
4427 int_4 _cnaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_,
4428 complex_8 _p_ resid_, int_4 _p_ ncv_, complex_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, complex_8
4429 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_)
4430 { // ** body not listed **
5053 }
5054
5055 // VIF THU 20 NOV 2025 22:18:35 ** CNEIGH ** CNEIGH PAGE 00114
5056
5057 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5058 // S S U U B B R R O O U U T I NN N E
5059 // S U U B B R R O O U U T I N N N E
5060 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5061 // S U U B B R R O O U U T I N N N E
5062 // S S U U B B R R O O U U T I N NN E
5063 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5064
5065 // CCCCC N N EEEEEEE III GGGGG H H
5066 // C C NN N E I G G H H
5067 // C N N N E I G H H
5068 // C N N N EEEEE I G GGGG HHHHHHH
5069 // C N N N E I G G H H
5070 // C C N NN E I G G H H
5071 // CCCCC N N EEEEEEE III GGGGG H H
5072
5073
5074 // VIF THU 20 NOV 2025 22:18:35 ** CNEIGH ** DIAGNOSTICS PAGE 00115
5075
5076
5077 // VIF THU 20 NOV 2025 22:18:35 ** CNEIGH ** GENERATED CODE PAGE 00116
5078
5079 int_4 _cneigh (real_4 _p_ rnorm_, int_4 _p_ n_, complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ ritz_, complex_8 _p_
5080 bounds_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_, real_4 _p_ rwork_, int_4 _p_ ierr_)
5081 { // ** body not listed **
5136 }
5137
5138 // VIF THU 20 NOV 2025 22:18:35 ** CNEUPD ** CNEUPD PAGE 00118
5139
5140 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5141 // S S U U B B R R O O U U T I NN N E
5142 // S U U B B R R O O U U T I N N N E
5143 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5144 // S U U B B R R O O U U T I N N N E
5145 // S S U U B B R R O O U U T I N NN E
5146 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5147
5148 // CCCCC N N EEEEEEE U U PPPPPP DDDDDD
5149 // C C NN N E U U P P D D
5150 // C N N N E U U P P D D
5151 // C N N N EEEEE U U PPPPPP D D
5152 // C N N N E U U P D D
5153 // C C N NN E U U P D D
5154 // CCCCC N N EEEEEEE UUUUU P DDDDDD
5155
5156
5157 // VIF THU 20 NOV 2025 22:18:35 ** CNEUPD ** DIAGNOSTICS PAGE 00119
5158
5159
5160 // VIF THU 20 NOV 2025 22:18:35 ** CNEUPD ** GENERATED CODE PAGE 00120
5161
5162 int_4 _cneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, complex_8 _p_ d_, complex_8 _p_ z_, int_4
5163 _p_ ldz_, complex_8 _p_ sigma_, complex_8 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_,
5164 real_4 _p_ tol_, complex_8 _p_ resid_, int_4 _p_ ncv_, complex_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_
5165 ipntr_, complex_8 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_)
5166 { // ** body not listed **
5430 }
5431
5432 // VIF THU 20 NOV 2025 22:18:35 ** CNGETS ** CNGETS PAGE 00126
5433
5434 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5435 // S S U U B B R R O O U U T I NN N E
5436 // S U U B B R R O O U U T I N N N E
5437 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5438 // S U U B B R R O O U U T I N N N E
5439 // S S U U B B R R O O U U T I N NN E
5440 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5441
5442 // CCCCC N N GGGGG EEEEEEE TTTTTTT SSSSS
5443 // C C NN N G G E T S S
5444 // C N N N G E T S
5445 // C N N N G GGGG EEEEE T SSSSS
5446 // C N N N G G E T S
5447 // C C N NN G G E T S S
5448 // CCCCC N N GGGGG EEEEEEE T SSSSS
5449
5450
5451 // VIF THU 20 NOV 2025 22:18:35 ** CNGETS ** DIAGNOSTICS PAGE 00127
5452
5453
5454 // VIF THU 20 NOV 2025 22:18:35 ** CNGETS ** GENERATED CODE PAGE 00128
5455
5456 int_4 _cngets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, complex_8 _p_ ritz_, complex_8 _p_
5457 bounds_)
5458 { // ** body not listed **
5479 }
5480
5481 // VIF THU 20 NOV 2025 22:18:35 ** CSORTC ** CSORTC PAGE 00129
5482
5483 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5484 // S S U U B B R R O O U U T I NN N E
5485 // S U U B B R R O O U U T I N N N E
5486 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5487 // S U U B B R R O O U U T I N N N E
5488 // S S U U B B R R O O U U T I N NN E
5489 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5490
5491 // CCCCC SSSSS OOOOO RRRRRR TTTTTTT CCCCC
5492 // C C S S O O R R T C C
5493 // C S O O R R T C
5494 // C SSSSS O O RRRRRR T C
5495 // C S O O R R T C
5496 // C C S S O O R R T C C
5497 // CCCCC SSSSS OOOOO R R T CCCCC
5498
5499
5500 // VIF THU 20 NOV 2025 22:18:35 ** CSORTC ** DIAGNOSTICS PAGE 00130
5501
5502
5503 // VIF THU 20 NOV 2025 22:18:35 ** CSORTC ** GENERATED CODE PAGE 00131
5504
5505 int_4 _csortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, complex_8 _p_ x_, complex_8 _p_ y_)
5506 { // ** body not listed **
5716 }
5717
5718 // VIF THU 20 NOV 2025 22:18:35 ** CSTATN ** CSTATN PAGE 00136
5719
5720 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5721 // S S U U B B R R O O U U T I NN N E
5722 // S U U B B R R O O U U T I N N N E
5723 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5724 // S U U B B R R O O U U T I N N N E
5725 // S S U U B B R R O O U U T I N NN E
5726 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5727
5728 // CCCCC SSSSS TTTTTTT A TTTTTTT N N
5729 // C C S S T A A T NN N
5730 // C S T A A T N N N
5731 // C SSSSS T A A T N N N
5732 // C S T AAAAAAA T N N N
5733 // C C S S T A A T N NN
5734 // CCCCC SSSSS T A A T N N
5735
5736
5737 // VIF THU 20 NOV 2025 22:18:35 ** CSTATN ** DIAGNOSTICS PAGE 00137
5738
5739
5740 // VIF THU 20 NOV 2025 22:18:35 ** CSTATN ** GENERATED CODE PAGE 00138
5741
5742 int_4 _cstatn (void)
5743 { // ** body not listed **
5764 }
5765
5766 // VIF THU 20 NOV 2025 22:18:35 ** CVOUT ** CVOUT PAGE 00139
5767
5768 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5769 // S S U U B B R R O O U U T I NN N E
5770 // S U U B B R R O O U U T I N N N E
5771 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5772 // S U U B B R R O O U U T I N N N E
5773 // S S U U B B R R O O U U T I N NN E
5774 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5775
5776 // CCCCC V V OOOOO U U TTTTTTT
5777 // C C V V O O U U T
5778 // C V V O O U U T
5779 // C V V O O U U T
5780 // C V V O O U U T
5781 // C C V V O O U U T
5782 // CCCCC V OOOOO UUUUU T
5783
5784
5785 // VIF THU 20 NOV 2025 22:18:35 ** CVOUT ** DIAGNOSTICS PAGE 00140
5786
5787
5788 // VIF THU 20 NOV 2025 22:18:35 ** CVOUT ** GENERATED CODE PAGE 00141
5789
5790 int_4 _cvout (int_4 _p_ lout_, int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ idigit_, char _p_ ifmt_)
5791 { // ** body not listed **
8194 }
8195
8196 // VIF THU 20 NOV 2025 22:18:35 ** DGETV0 ** DGETV0 PAGE 00188
8197
8198 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8199 // S S U U B B R R O O U U T I NN N E
8200 // S U U B B R R O O U U T I N N N E
8201 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8202 // S U U B B R R O O U U T I N N N E
8203 // S S U U B B R R O O U U T I N NN E
8204 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8205
8206 // DDDDDD GGGGG EEEEEEE TTTTTTT V V 000
8207 // D D G G E T V V 0 0
8208 // D D G E T V V 0 0
8209 // D D G GGGG EEEEE T V V 0 0
8210 // D D G G E T V V 0 0
8211 // D D G G E T V V 0 0
8212 // DDDDDD GGGGG EEEEEEE T V 000
8213
8214
8215 // VIF THU 20 NOV 2025 22:18:35 ** DGETV0 ** DIAGNOSTICS PAGE 00189
8216
8217
8218 // VIF THU 20 NOV 2025 22:18:35 ** DGETV0 ** GENERATED CODE PAGE 00190
8219
8220 int_4 _dgetv0 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ itry_, logical_4 _p_ initv_, int_4 _p_ n_, int_4 _p_ j_,
8221 real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ resid_, real_8 _p_ rnorm_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_
8222 ierr_)
8223 { // ** body not listed **
8385 }
8386
8387 // VIF THU 20 NOV 2025 22:18:35 ** DLAQRB ** DLAQRB PAGE 00194
8388
8389 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8390 // S S U U B B R R O O U U T I NN N E
8391 // S U U B B R R O O U U T I N N N E
8392 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8393 // S U U B B R R O O U U T I N N N E
8394 // S S U U B B R R O O U U T I N NN E
8395 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8396
8397 // DDDDDD L A QQQQQ RRRRRR BBBBBB
8398 // D D L A A Q Q R R B B
8399 // D D L A A Q Q R R B B
8400 // D D L A A Q Q RRRRRR BBBBBB
8401 // D D L AAAAAAA Q Q Q R R B B
8402 // D D L A A Q Q R R B B
8403 // DDDDDD LLLLLLL A A QQQQ Q R R BBBBBB
8404
8405
8406 // VIF THU 20 NOV 2025 22:18:35 ** DLAQRB ** DIAGNOSTICS PAGE 00195
8407
8408
8409 // VIF THU 20 NOV 2025 22:18:35 ** DLAQRB ** GENERATED CODE PAGE 00196
8410
8411 int_4 _dlaqrb (logical_4 _p_ wantt_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_, real_8 _p_ h_, int_4 _p_ ldh_,
8412 real_8 _p_ wr_, real_8 _p_ wi_, real_8 _p_ z_, int_4 _p_ info_)
8413 { // ** body not listed **
8619 }
8620
8621 // VIF THU 20 NOV 2025 22:18:35 ** DMOUT ** DMOUT PAGE 00201
8622
8623 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8624 // S S U U B B R R O O U U T I NN N E
8625 // S U U B B R R O O U U T I N N N E
8626 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8627 // S U U B B R R O O U U T I N N N E
8628 // S S U U B B R R O O U U T I N NN E
8629 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8630
8631 // DDDDDD M M OOOOO U U TTTTTTT
8632 // D D MM MM O O U U T
8633 // D D M M M M O O U U T
8634 // D D M M M O O U U T
8635 // D D M M O O U U T
8636 // D D M M O O U U T
8637 // DDDDDD M M OOOOO UUUUU T
8638
8639
8640 // VIF THU 20 NOV 2025 22:18:35 ** DMOUT ** DIAGNOSTICS PAGE 00202
8641
8642
8643 // VIF THU 20 NOV 2025 22:18:35 ** DMOUT ** GENERATED CODE PAGE 00203
8644
8645 int_4 _dmout (int_4 _p_ lout_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ idigit_, char _p_
8646 ifmt_)
8647 { // ** body not listed **
9990 }
9991
9992 // VIF THU 20 NOV 2025 22:18:35 ** DNAITR ** DNAITR PAGE 00229
9993
9994 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9995 // S S U U B B R R O O U U T I NN N E
9996 // S U U B B R R O O U U T I N N N E
9997 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9998 // S U U B B R R O O U U T I N N N E
9999 // S S U U B B R R O O U U T I N NN E
10000 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10001
10002 // DDDDDD N N A III TTTTTTT RRRRRR
10003 // D D NN N A A I T R R
10004 // D D N N N A A I T R R
10005 // D D N N N A A I T RRRRRR
10006 // D D N N N AAAAAAA I T R R
10007 // D D N NN A A I T R R
10008 // DDDDDD N N A A III T R R
10009
10010
10011 // VIF THU 20 NOV 2025 22:18:35 ** DNAITR ** DIAGNOSTICS PAGE 00230
10012
10013
10014 // VIF THU 20 NOV 2025 22:18:35 ** DNAITR ** GENERATED CODE PAGE 00231
10015
10016 int_4 _dnaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ nb_, real_8 _p_
10017 resid_, real_8 _p_ rnorm_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_, real_8 _p_
10018 workd_, int_4 _p_ info_)
10019 { // ** body not listed **
10309 }
10310
10311 // VIF THU 20 NOV 2025 22:18:35 ** DNAPPS ** DNAPPS PAGE 00237
10312
10313 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10314 // S S U U B B R R O O U U T I NN N E
10315 // S U U B B R R O O U U T I N N N E
10316 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10317 // S U U B B R R O O U U T I N N N E
10318 // S S U U B B R R O O U U T I N NN E
10319 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10320
10321 // DDDDDD N N A PPPPPP PPPPPP SSSSS
10322 // D D NN N A A P P P P S S
10323 // D D N N N A A P P P P S
10324 // D D N N N A A PPPPPP PPPPPP SSSSS
10325 // D D N N N AAAAAAA P P S
10326 // D D N NN A A P P S S
10327 // DDDDDD N N A A P P SSSSS
10328
10329
10330 // VIF THU 20 NOV 2025 22:18:35 ** DNAPPS ** DIAGNOSTICS PAGE 00238
10331
10332
10333 // VIF THU 20 NOV 2025 22:18:35 ** DNAPPS ** GENERATED CODE PAGE 00239
10334
10335 int_4 _dnapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, real_8 _p_ shiftr_, real_8 _p_ shifti_, real_8 _p_ v_,
10336 int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ resid_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workl_,
10337 real_8 _p_ workd_)
10338 { // ** body not listed **
10575 }
10576
10577 // VIF THU 20 NOV 2025 22:18:35 ** DNAUP2 ** DNAUP2 PAGE 00244
10578
10579 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10580 // S S U U B B R R O O U U T I NN N E
10581 // S U U B B R R O O U U T I N N N E
10582 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10583 // S U U B B R R O O U U T I N N N E
10584 // S S U U B B R R O O U U T I N NN E
10585 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10586
10587 // DDDDDD N N A U U PPPPPP 22222
10588 // D D NN N A A U U P P 2 2
10589 // D D N N N A A U U P P 2
10590 // D D N N N A A U U PPPPPP 22222
10591 // D D N N N AAAAAAA U U P 2
10592 // D D N NN A A U U P 2
10593 // DDDDDD N N A A UUUUU P 2222222
10594
10595
10596 // VIF THU 20 NOV 2025 22:18:35 ** DNAUP2 ** DIAGNOSTICS PAGE 00245
10597
10598
10599 // VIF THU 20 NOV 2025 22:18:35 ** DNAUP2 ** GENERATED CODE PAGE 00246
10600
10601 int_4 _dnaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_, real_8 _p_
10602 tol_, real_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_8 _p_ v_, int_4
10603 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ ritzr_, real_8 _p_ ritzi_, real_8 _p_ bounds_, real_8 _p_ q_, int_4
10604 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_)
10605 { // ** body not listed **
10903 }
10904
10905 // VIF THU 20 NOV 2025 22:18:35 ** DNAUPD ** DNAUPD PAGE 00252
10906
10907 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10908 // S S U U B B R R O O U U T I NN N E
10909 // S U U B B R R O O U U T I N N N E
10910 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10911 // S U U B B R R O O U U T I N N N E
10912 // S S U U B B R R O O U U T I N NN E
10913 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10914
10915 // DDDDDD N N A U U PPPPPP DDDDDD
10916 // D D NN N A A U U P P D D
10917 // D D N N N A A U U P P D D
10918 // D D N N N A A U U PPPPPP D D
10919 // D D N N N AAAAAAA U U P D D
10920 // D D N NN A A U U P D D
10921 // DDDDDD N N A A UUUUU P DDDDDD
10922
10923
10924 // VIF THU 20 NOV 2025 22:18:35 ** DNAUPD ** DIAGNOSTICS PAGE 00253
10925
10926
10927 // VIF THU 20 NOV 2025 22:18:35 ** DNAUPD ** GENERATED CODE PAGE 00254
10928
10929 int_4 _dnaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_, real_8
10930 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_,
10931 real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
10932 { // ** body not listed **
11561 }
11562
11563 // VIF THU 20 NOV 2025 22:18:35 ** DNCONV ** DNCONV PAGE 00267
11564
11565 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11566 // S S U U B B R R O O U U T I NN N E
11567 // S U U B B R R O O U U T I N N N E
11568 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11569 // S U U B B R R O O U U T I N N N E
11570 // S S U U B B R R O O U U T I N NN E
11571 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11572
11573 // DDDDDD N N CCCCC OOOOO N N V V
11574 // D D NN N C C O O NN N V V
11575 // D D N N N C O O N N N V V
11576 // D D N N N C O O N N N V V
11577 // D D N N N C O O N N N V V
11578 // D D N NN C C O O N NN V V
11579 // DDDDDD N N CCCCC OOOOO N N V
11580
11581
11582 // VIF THU 20 NOV 2025 22:18:35 ** DNCONV ** DIAGNOSTICS PAGE 00268
11583
11584
11585 // VIF THU 20 NOV 2025 22:18:35 ** DNCONV ** GENERATED CODE PAGE 00269
11586
11587 int_4 _dnconv (int_4 _p_ n_, real_8 _p_ ritzr_, real_8 _p_ ritzi_, real_8 _p_ bounds_, real_8 _p_ tol_, int_4 _p_
11588 nconv_)
11589 { // ** body not listed **
11609 }
11610
11611 // VIF THU 20 NOV 2025 22:18:35 ** DNEIGH ** DNEIGH PAGE 00270
11612
11613 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11614 // S S U U B B R R O O U U T I NN N E
11615 // S U U B B R R O O U U T I N N N E
11616 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11617 // S U U B B R R O O U U T I N N N E
11618 // S S U U B B R R O O U U T I N NN E
11619 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11620
11621 // DDDDDD N N EEEEEEE III GGGGG H H
11622 // D D NN N E I G G H H
11623 // D D N N N E I G H H
11624 // D D N N N EEEEE I G GGGG HHHHHHH
11625 // D D N N N E I G G H H
11626 // D D N NN E I G G H H
11627 // DDDDDD N N EEEEEEE III GGGGG H H
11628
11629
11630 // VIF THU 20 NOV 2025 22:18:35 ** DNEIGH ** DIAGNOSTICS PAGE 00271
11631
11632
11633 // VIF THU 20 NOV 2025 22:18:35 ** DNEIGH ** GENERATED CODE PAGE 00272
11634
11635 int_4 _dneigh (real_8 _p_ rnorm_, int_4 _p_ n_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ ritzr_, real_8 _p_ ritzi_,
11636 real_8 _p_ bounds_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ierr_)
11637 { // ** body not listed **
11719 }
11720
11721 // VIF THU 20 NOV 2025 22:18:35 ** DNEUPD ** DNEUPD PAGE 00274
11722
11723 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11724 // S S U U B B R R O O U U T I NN N E
11725 // S U U B B R R O O U U T I N N N E
11726 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11727 // S U U B B R R O O U U T I N N N E
11728 // S S U U B B R R O O U U T I N NN E
11729 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11730
11731 // DDDDDD N N EEEEEEE U U PPPPPP DDDDDD
11732 // D D NN N E U U P P D D
11733 // D D N N N E U U P P D D
11734 // D D N N N EEEEE U U PPPPPP D D
11735 // D D N N N E U U P D D
11736 // D D N NN E U U P D D
11737 // DDDDDD N N EEEEEEE UUUUU P DDDDDD
11738
11739
11740 // VIF THU 20 NOV 2025 22:18:35 ** DNEUPD ** DIAGNOSTICS PAGE 00275
11741
11742
11743 // VIF THU 20 NOV 2025 22:18:35 ** DNEUPD ** GENERATED CODE PAGE 00276
11744
11745 int_4 _dneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, real_8 _p_ dr_, real_8 _p_ di_, real_8 _p_
11746 z_, int_4 _p_ ldz_, real_8 _p_ sigmar_, real_8 _p_ sigmai_, real_8 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_
11747 which_, int_4 _p_ nev_, real_8 _p_ tol_, real_8 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_
11748 iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
11749 { // ** body not listed **
12099 }
12100
12101 // VIF THU 20 NOV 2025 22:18:35 ** DNGETS ** DNGETS PAGE 00283
12102
12103 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12104 // S S U U B B R R O O U U T I NN N E
12105 // S U U B B R R O O U U T I N N N E
12106 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12107 // S U U B B R R O O U U T I N N N E
12108 // S S U U B B R R O O U U T I N NN E
12109 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12110
12111 // DDDDDD N N GGGGG EEEEEEE TTTTTTT SSSSS
12112 // D D NN N G G E T S S
12113 // D D N N N G E T S
12114 // D D N N N G GGGG EEEEE T SSSSS
12115 // D D N N N G G E T S
12116 // D D N NN G G E T S S
12117 // DDDDDD N N GGGGG EEEEEEE T SSSSS
12118
12119
12120 // VIF THU 20 NOV 2025 22:18:35 ** DNGETS ** DIAGNOSTICS PAGE 00284
12121
12122
12123 // VIF THU 20 NOV 2025 22:18:35 ** DNGETS ** GENERATED CODE PAGE 00285
12124
12125 int_4 _dngets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, real_8 _p_ ritzr_, real_8 _p_ ritzi_,
12126 real_8 _p_ bounds_, real_8 _p_ shiftr_, real_8 _p_ shifti_)
12127 { // ** body not listed **
12173 }
12174
12175 // VIF THU 20 NOV 2025 22:18:35 ** DSAITR ** DSAITR PAGE 00286
12176
12177 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12178 // S S U U B B R R O O U U T I NN N E
12179 // S U U B B R R O O U U T I N N N E
12180 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12181 // S U U B B R R O O U U T I N N N E
12182 // S S U U B B R R O O U U T I N NN E
12183 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12184
12185 // DDDDDD SSSSS A III TTTTTTT RRRRRR
12186 // D D S S A A I T R R
12187 // D D S A A I T R R
12188 // D D SSSSS A A I T RRRRRR
12189 // D D S AAAAAAA I T R R
12190 // D D S S A A I T R R
12191 // DDDDDD SSSSS A A III T R R
12192
12193
12194 // VIF THU 20 NOV 2025 22:18:35 ** DSAITR ** DIAGNOSTICS PAGE 00287
12195
12196
12197 // VIF THU 20 NOV 2025 22:18:35 ** DSAITR ** GENERATED CODE PAGE 00288
12198
12199 int_4 _dsaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ mode_, real_8 _p_
12200 resid_, real_8 _p_ rnorm_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_, real_8 _p_
12201 workd_, int_4 _p_ info_)
12202 { // ** body not listed **
12506 }
12507
12508 // VIF THU 20 NOV 2025 22:18:35 ** DSAPPS ** DSAPPS PAGE 00294
12509
12510 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12511 // S S U U B B R R O O U U T I NN N E
12512 // S U U B B R R O O U U T I N N N E
12513 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12514 // S U U B B R R O O U U T I N N N E
12515 // S S U U B B R R O O U U T I N NN E
12516 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12517
12518 // DDDDDD SSSSS A PPPPPP PPPPPP SSSSS
12519 // D D S S A A P P P P S S
12520 // D D S A A P P P P S
12521 // D D SSSSS A A PPPPPP PPPPPP SSSSS
12522 // D D S AAAAAAA P P S
12523 // D D S S A A P P S S
12524 // DDDDDD SSSSS A A P P SSSSS
12525
12526
12527 // VIF THU 20 NOV 2025 22:18:35 ** DSAPPS ** DIAGNOSTICS PAGE 00295
12528
12529
12530 // VIF THU 20 NOV 2025 22:18:35 ** DSAPPS ** GENERATED CODE PAGE 00296
12531
12532 int_4 _dsapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, real_8 _p_ shift_, real_8 _p_ v_, int_4 _p_ ldv_, real_8
12533 _p_ h_, int_4 _p_ ldh_, real_8 _p_ resid_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workd_)
12534 { // ** body not listed **
12698 }
12699
12700 // VIF THU 20 NOV 2025 22:18:35 ** DSAUP2 ** DSAUP2 PAGE 00300
12701
12702 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12703 // S S U U B B R R O O U U T I NN N E
12704 // S U U B B R R O O U U T I N N N E
12705 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12706 // S U U B B R R O O U U T I N N N E
12707 // S S U U B B R R O O U U T I N NN E
12708 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12709
12710 // DDDDDD SSSSS A U U PPPPPP 22222
12711 // D D S S A A U U P P 2 2
12712 // D D S A A U U P P 2
12713 // D D SSSSS A A U U PPPPPP 22222
12714 // D D S AAAAAAA U U P 2
12715 // D D S S A A U U P 2
12716 // DDDDDD SSSSS A A UUUUU P 2222222
12717
12718
12719 // VIF THU 20 NOV 2025 22:18:35 ** DSAUP2 ** DIAGNOSTICS PAGE 00301
12720
12721
12722 // VIF THU 20 NOV 2025 22:18:35 ** DSAUP2 ** GENERATED CODE PAGE 00302
12723
12724 int_4 _dsaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_, real_8 _p_
12725 tol_, real_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_8 _p_ v_, int_4
12726 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ ritz_, real_8 _p_ bounds_, real_8 _p_ q_, int_4 _p_ ldq_, real_8
12727 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_)
12728 { // ** body not listed **
13002 }
13003
13004 // VIF THU 20 NOV 2025 22:18:35 ** DSAUPD ** DSAUPD PAGE 00308
13005
13006 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13007 // S S U U B B R R O O U U T I NN N E
13008 // S U U B B R R O O U U T I N N N E
13009 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13010 // S U U B B R R O O U U T I N N N E
13011 // S S U U B B R R O O U U T I N NN E
13012 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13013
13014 // DDDDDD SSSSS A U U PPPPPP DDDDDD
13015 // D D S S A A U U P P D D
13016 // D D S A A U U P P D D
13017 // D D SSSSS A A U U PPPPPP D D
13018 // D D S AAAAAAA U U P D D
13019 // D D S S A A U U P D D
13020 // DDDDDD SSSSS A A UUUUU P DDDDDD
13021
13022
13023 // VIF THU 20 NOV 2025 22:18:35 ** DSAUPD ** DIAGNOSTICS PAGE 00309
13024
13025
13026 // VIF THU 20 NOV 2025 22:18:35 ** DSAUPD ** GENERATED CODE PAGE 00310
13027
13028 int_4 _dsaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_, real_8
13029 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_,
13030 real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
13031 { // ** body not listed **
13630 }
13631
13632 // VIF THU 20 NOV 2025 22:18:35 ** DSCONV ** DSCONV PAGE 00322
13633
13634 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13635 // S S U U B B R R O O U U T I NN N E
13636 // S U U B B R R O O U U T I N N N E
13637 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13638 // S U U B B R R O O U U T I N N N E
13639 // S S U U B B R R O O U U T I N NN E
13640 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13641
13642 // DDDDDD SSSSS CCCCC OOOOO N N V V
13643 // D D S S C C O O NN N V V
13644 // D D S C O O N N N V V
13645 // D D SSSSS C O O N N N V V
13646 // D D S C O O N N N V V
13647 // D D S S C C O O N NN V V
13648 // DDDDDD SSSSS CCCCC OOOOO N N V
13649
13650
13651 // VIF THU 20 NOV 2025 22:18:35 ** DSCONV ** DIAGNOSTICS PAGE 00323
13652
13653
13654 // VIF THU 20 NOV 2025 22:18:35 ** DSCONV ** GENERATED CODE PAGE 00324
13655
13656 int_4 _dsconv (int_4 _p_ n_, real_8 _p_ ritz_, real_8 _p_ bounds_, real_8 _p_ tol_, int_4 _p_ nconv_)
13657 { // ** body not listed **
13677 }
13678
13679 // VIF THU 20 NOV 2025 22:18:35 ** DSEIGT ** DSEIGT PAGE 00325
13680
13681 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13682 // S S U U B B R R O O U U T I NN N E
13683 // S U U B B R R O O U U T I N N N E
13684 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13685 // S U U B B R R O O U U T I N N N E
13686 // S S U U B B R R O O U U T I N NN E
13687 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13688
13689 // DDDDDD SSSSS EEEEEEE III GGGGG TTTTTTT
13690 // D D S S E I G G T
13691 // D D S E I G T
13692 // D D SSSSS EEEEE I G GGGG T
13693 // D D S E I G G T
13694 // D D S S E I G G T
13695 // DDDDDD SSSSS EEEEEEE III GGGGG T
13696
13697
13698 // VIF THU 20 NOV 2025 22:18:35 ** DSEIGT ** DIAGNOSTICS PAGE 00326
13699
13700
13701 // VIF THU 20 NOV 2025 22:18:35 ** DSEIGT ** GENERATED CODE PAGE 00327
13702
13703 int_4 _dseigt (real_8 _p_ rnorm_, int_4 _p_ n_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ eig_, real_8 _p_ bounds_,
13704 real_8 _p_ workl_, int_4 _p_ ierr_)
13705 { // ** body not listed **
13735 }
13736
13737 // VIF THU 20 NOV 2025 22:18:35 ** DSESRT ** DSESRT PAGE 00328
13738
13739 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13740 // S S U U B B R R O O U U T I NN N E
13741 // S U U B B R R O O U U T I N N N E
13742 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13743 // S U U B B R R O O U U T I N N N E
13744 // S S U U B B R R O O U U T I N NN E
13745 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13746
13747 // DDDDDD SSSSS EEEEEEE SSSSS RRRRRR TTTTTTT
13748 // D D S S E S S R R T
13749 // D D S E S R R T
13750 // D D SSSSS EEEEE SSSSS RRRRRR T
13751 // D D S E S R R T
13752 // D D S S E S S R R T
13753 // DDDDDD SSSSS EEEEEEE SSSSS R R T
13754
13755
13756 // VIF THU 20 NOV 2025 22:18:35 ** DSESRT ** DIAGNOSTICS PAGE 00329
13757
13758
13759 // VIF THU 20 NOV 2025 22:18:35 ** DSESRT ** GENERATED CODE PAGE 00330
13760
13761 int_4 _dsesrt (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ na_, real_8 _p_ a_, int_4
13762 _p_ lda_)
13763 { // ** body not listed **
13891 }
13892
13893 // VIF THU 20 NOV 2025 22:18:35 ** DSEUPD ** DSEUPD PAGE 00333
13894
13895 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13896 // S S U U B B R R O O U U T I NN N E
13897 // S U U B B R R O O U U T I N N N E
13898 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13899 // S U U B B R R O O U U T I N N N E
13900 // S S U U B B R R O O U U T I N NN E
13901 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13902
13903 // DDDDDD SSSSS EEEEEEE U U PPPPPP DDDDDD
13904 // D D S S E U U P P D D
13905 // D D S E U U P P D D
13906 // D D SSSSS EEEEE U U PPPPPP D D
13907 // D D S E U U P D D
13908 // D D S S E U U P D D
13909 // DDDDDD SSSSS EEEEEEE UUUUU P DDDDDD
13910
13911
13912 // VIF THU 20 NOV 2025 22:18:35 ** DSEUPD ** DIAGNOSTICS PAGE 00334
13913
13914
13915 // VIF THU 20 NOV 2025 22:18:35 ** DSEUPD ** GENERATED CODE PAGE 00335
13916
13917 int_4 _dseupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, real_8 _p_ d_, real_8 _p_ z_, int_4 _p_
13918 ldz_, real_8 _p_ sigma_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_, real_8 _p_
13919 resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_, real_8
13920 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
13921 { // ** body not listed **
14226 }
14227 // VIF THU 20 NOV 2025 22:18:35 ** DSEUPD ** GENERATED CODE PAGE 00341
14228
14229
14230 // VIF THU 20 NOV 2025 22:18:35 ** DSGETS ** DSGETS PAGE 00342
14231
14232 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14233 // S S U U B B R R O O U U T I NN N E
14234 // S U U B B R R O O U U T I N N N E
14235 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14236 // S U U B B R R O O U U T I N N N E
14237 // S S U U B B R R O O U U T I N NN E
14238 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14239
14240 // DDDDDD SSSSS GGGGG EEEEEEE TTTTTTT SSSSS
14241 // D D S S G G E T S S
14242 // D D S G E T S
14243 // D D SSSSS G GGGG EEEEE T SSSSS
14244 // D D S G G E T S
14245 // D D S S G G E T S S
14246 // DDDDDD SSSSS GGGGG EEEEEEE T SSSSS
14247
14248
14249 // VIF THU 20 NOV 2025 22:18:35 ** DSGETS ** DIAGNOSTICS PAGE 00343
14250
14251
14252 // VIF THU 20 NOV 2025 22:18:35 ** DSGETS ** GENERATED CODE PAGE 00344
14253
14254 int_4 _dsgets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, real_8 _p_ ritz_, real_8 _p_ bounds_,
14255 real_8 _p_ shifts_)
14256 { // ** body not listed **
14292 }
14293
14294 // VIF THU 20 NOV 2025 22:18:35 ** DSORTC ** DSORTC PAGE 00345
14295
14296 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14297 // S S U U B B R R O O U U T I NN N E
14298 // S U U B B R R O O U U T I N N N E
14299 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14300 // S U U B B R R O O U U T I N N N E
14301 // S S U U B B R R O O U U T I N NN E
14302 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14303
14304 // DDDDDD SSSSS OOOOO RRRRRR TTTTTTT CCCCC
14305 // D D S S O O R R T C C
14306 // D D S O O R R T C
14307 // D D SSSSS O O RRRRRR T C
14308 // D D S O O R R T C
14309 // D D S S O O R R T C C
14310 // DDDDDD SSSSS OOOOO R R T CCCCC
14311
14312
14313 // VIF THU 20 NOV 2025 22:18:35 ** DSORTC ** DIAGNOSTICS PAGE 00346
14314
14315
14316 // VIF THU 20 NOV 2025 22:18:35 ** DSORTC ** GENERATED CODE PAGE 00347
14317
14318 int_4 _dsortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_8 _p_ xreal_, real_8 _p_ ximag_, real_8 _p_ y_
14319 )
14320 { // ** body not listed **
14544 }
14545
14546 // VIF THU 20 NOV 2025 22:18:35 ** DSORTR ** DSORTR PAGE 00352
14547
14548 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14549 // S S U U B B R R O O U U T I NN N E
14550 // S U U B B R R O O U U T I N N N E
14551 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14552 // S U U B B R R O O U U T I N N N E
14553 // S S U U B B R R O O U U T I N NN E
14554 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14555
14556 // DDDDDD SSSSS OOOOO RRRRRR TTTTTTT RRRRRR
14557 // D D S S O O R R T R R
14558 // D D S O O R R T R R
14559 // D D SSSSS O O RRRRRR T RRRRRR
14560 // D D S O O R R T R R
14561 // D D S S O O R R T R R
14562 // DDDDDD SSSSS OOOOO R R T R R
14563
14564
14565 // VIF THU 20 NOV 2025 22:18:35 ** DSORTR ** DIAGNOSTICS PAGE 00353
14566
14567
14568 // VIF THU 20 NOV 2025 22:18:35 ** DSORTR ** GENERATED CODE PAGE 00354
14569
14570 int_4 _dsortr (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_8 _p_ x1_, real_8 _p_ x2_)
14571 { // ** body not listed **
14706 }
14707
14708 // VIF THU 20 NOV 2025 22:18:35 ** DSTATN ** DSTATN PAGE 00357
14709
14710 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14711 // S S U U B B R R O O U U T I NN N E
14712 // S U U B B R R O O U U T I N N N E
14713 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14714 // S U U B B R R O O U U T I N N N E
14715 // S S U U B B R R O O U U T I N NN E
14716 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14717
14718 // DDDDDD SSSSS TTTTTTT A TTTTTTT N N
14719 // D D S S T A A T NN N
14720 // D D S T A A T N N N
14721 // D D SSSSS T A A T N N N
14722 // D D S T AAAAAAA T N N N
14723 // D D S S T A A T N NN
14724 // DDDDDD SSSSS T A A T N N
14725
14726
14727 // VIF THU 20 NOV 2025 22:18:35 ** DSTATN ** DIAGNOSTICS PAGE 00358
14728
14729
14730 // VIF THU 20 NOV 2025 22:18:35 ** DSTATN ** GENERATED CODE PAGE 00359
14731
14732 int_4 _dstatn (void)
14733 { // ** body not listed **
14754 }
14755
14756 // VIF THU 20 NOV 2025 22:18:35 ** DSTATS ** DSTATS PAGE 00360
14757
14758 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14759 // S S U U B B R R O O U U T I NN N E
14760 // S U U B B R R O O U U T I N N N E
14761 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14762 // S U U B B R R O O U U T I N N N E
14763 // S S U U B B R R O O U U T I N NN E
14764 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14765
14766 // DDDDDD SSSSS TTTTTTT A TTTTTTT SSSSS
14767 // D D S S T A A T S S
14768 // D D S T A A T S
14769 // D D SSSSS T A A T SSSSS
14770 // D D S T AAAAAAA T S
14771 // D D S S T A A T S S
14772 // DDDDDD SSSSS T A A T SSSSS
14773
14774
14775 // VIF THU 20 NOV 2025 22:18:35 ** DSTATS ** DIAGNOSTICS PAGE 00361
14776
14777
14778 // VIF THU 20 NOV 2025 22:18:35 ** DSTATS ** GENERATED CODE PAGE 00362
14779
14780 int_4 _dstats (void)
14781 { // ** body not listed **
14802 }
14803
14804 // VIF THU 20 NOV 2025 22:18:35 ** DSTQRB ** DSTQRB PAGE 00363
14805
14806 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14807 // S S U U B B R R O O U U T I NN N E
14808 // S U U B B R R O O U U T I N N N E
14809 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14810 // S U U B B R R O O U U T I N N N E
14811 // S S U U B B R R O O U U T I N NN E
14812 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14813
14814 // DDDDDD SSSSS TTTTTTT QQQQQ RRRRRR BBBBBB
14815 // D D S S T Q Q R R B B
14816 // D D S T Q Q R R B B
14817 // D D SSSSS T Q Q RRRRRR BBBBBB
14818 // D D S T Q Q Q R R B B
14819 // D D S S T Q Q R R B B
14820 // DDDDDD SSSSS T QQQQ Q R R BBBBBB
14821
14822
14823 // VIF THU 20 NOV 2025 22:18:35 ** DSTQRB ** DIAGNOSTICS PAGE 00364
14824
14825
14826 // VIF THU 20 NOV 2025 22:18:35 ** DSTQRB ** GENERATED CODE PAGE 00365
14827
14828 int_4 _dstqrb (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ z_, real_8 _p_ work_, int_4 _p_ info_)
14829 { // ** body not listed **
15153 }
15154
15155 // VIF THU 20 NOV 2025 22:18:35 ** DVOUT ** DVOUT PAGE 00372
15156
15157 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15158 // S S U U B B R R O O U U T I NN N E
15159 // S U U B B R R O O U U T I N N N E
15160 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15161 // S U U B B R R O O U U T I N N N E
15162 // S S U U B B R R O O U U T I N NN E
15163 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15164
15165 // DDDDDD V V OOOOO U U TTTTTTT
15166 // D D V V O O U U T
15167 // D D V V O O U U T
15168 // D D V V O O U U T
15169 // D D V V O O U U T
15170 // D D V V O O U U T
15171 // DDDDDD V OOOOO UUUUU T
15172
15173
15174 // VIF THU 20 NOV 2025 22:18:35 ** DVOUT ** DIAGNOSTICS PAGE 00373
15175
15176
15177 // VIF THU 20 NOV 2025 22:18:35 ** DVOUT ** GENERATED CODE PAGE 00374
15178
15179 int_4 _dvout (int_4 _p_ lout_, int_4 _p_ n_, real_8 _p_ sx_, int_4 _p_ idigit_, char _p_ ifmt_)
15180 { // ** body not listed **
16002 }
16003
16004 // VIF THU 20 NOV 2025 22:18:35 ** ICNTEQ ** ICNTEQ PAGE 00390
16005
16006 // III N N TTTTTTT EEEEEEE GGGGG EEEEEEE RRRRRR 4
16007 // I NN N T E G G E R R * * 4 4
16008 // I N N N T E G E R R * * 4 4
16009 // I N N N T EEEEE G GGGG EEEEE RRRRRR ******* 4444444
16010 // I N N N T E G G E R R * * 4
16011 // I N NN T E G G E R R * * 4
16012 // III N N T EEEEEEE GGGGG EEEEEEE R R 4
16013
16014 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
16015 // F U U NN N C C T I O O NN N
16016 // F U U N N N C T I O O N N N
16017 // FFFFF U U N N N C T I O O N N N
16018 // F U U N N N C T I O O N N N
16019 // F U U N NN C C T I O O N NN
16020 // F UUUUU N N CCCCC T III OOOOO N N
16021
16022 // III CCCCC N N TTTTTTT EEEEEEE QQQQQ
16023 // I C C NN N T E Q Q
16024 // I C N N N T E Q Q
16025 // I C N N N T EEEEE Q Q
16026 // I C N N N T E Q Q Q
16027 // I C C N NN T E Q Q
16028 // III CCCCC N N T EEEEEEE QQQQ Q
16029
16030
16031 // VIF THU 20 NOV 2025 22:18:35 ** ICNTEQ ** DIAGNOSTICS PAGE 00391
16032
16033
16034 // VIF THU 20 NOV 2025 22:18:35 ** ICNTEQ ** GENERATED CODE PAGE 00392
16035
16036 int_4 _icnteq (int_4 _p_ n_, int_4 _p_ array_, int_4 _p_ value_)
16037 { // ** body not listed **
16049 }
16050
16051 // VIF THU 20 NOV 2025 22:18:35 ** ICOPY ** ICOPY PAGE 00393
16052
16053 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16054 // S S U U B B R R O O U U T I NN N E
16055 // S U U B B R R O O U U T I N N N E
16056 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16057 // S U U B B R R O O U U T I N N N E
16058 // S S U U B B R R O O U U T I N NN E
16059 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16060
16061 // III CCCCC OOOOO PPPPPP Y Y
16062 // I C C O O P P Y Y
16063 // I C O O P P Y Y
16064 // I C O O PPPPPP Y
16065 // I C O O P Y
16066 // I C C O O P Y
16067 // III CCCCC OOOOO P Y
16068
16069
16070 // VIF THU 20 NOV 2025 22:18:35 ** ICOPY ** DIAGNOSTICS PAGE 00394
16071
16072
16073 // VIF THU 20 NOV 2025 22:18:35 ** ICOPY ** GENERATED CODE PAGE 00395
16074
16075 int_4 _icopy (int_4 _p_ n_, int_4 _p_ lx_, int_4 _p_ incx_, int_4 _p_ ly_, int_4 _p_ incy_)
16076 { // ** body not listed **
16105 }
16106
16107 // VIF THU 20 NOV 2025 22:18:35 ** ISET ** ISET PAGE 00396
16108
16109 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16110 // S S U U B B R R O O U U T I NN N E
16111 // S U U B B R R O O U U T I N N N E
16112 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16113 // S U U B B R R O O U U T I N N N E
16114 // S S U U B B R R O O U U T I N NN E
16115 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16116
16117 // III SSSSS EEEEEEE TTTTTTT
16118 // I S S E T
16119 // I S E T
16120 // I SSSSS EEEEE T
16121 // I S E T
16122 // I S S E T
16123 // III SSSSS EEEEEEE T
16124
16125
16126 // VIF THU 20 NOV 2025 22:18:35 ** ISET ** DIAGNOSTICS PAGE 00397
16127
16128
16129 // VIF THU 20 NOV 2025 22:18:35 ** ISET ** GENERATED CODE PAGE 00398
16130
16131 int_4 _iset (int_4 _p_ n_, int_4 _p_ value_, int_4 _p_ array_, int_4 _p_ inc_)
16132 { // ** body not listed **
16139 }
16140
16141 // VIF THU 20 NOV 2025 22:18:35 ** ISWAP ** ISWAP PAGE 00399
16142
16143 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16144 // S S U U B B R R O O U U T I NN N E
16145 // S U U B B R R O O U U T I N N N E
16146 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16147 // S U U B B R R O O U U T I N N N E
16148 // S S U U B B R R O O U U T I N NN E
16149 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16150
16151 // III SSSSS W W A PPPPPP
16152 // I S S W W A A P P
16153 // I S W W A A P P
16154 // I SSSSS W W W A A PPPPPP
16155 // I S W W W AAAAAAA P
16156 // I S S W W W A A P
16157 // III SSSSS WW WW A A P
16158
16159
16160 // VIF THU 20 NOV 2025 22:18:35 ** ISWAP ** DIAGNOSTICS PAGE 00400
16161
16162
16163 // VIF THU 20 NOV 2025 22:18:35 ** ISWAP ** GENERATED CODE PAGE 00401
16164
16165 int_4 _iswap (int_4 _p_ n_, int_4 _p_ sx_, int_4 _p_ incx_, int_4 _p_ sy_, int_4 _p_ incy_)
16166 { // ** body not listed **
16221 }
16222
16223 // VIF THU 20 NOV 2025 22:18:35 ** IVOUT ** IVOUT PAGE 00403
16224
16225 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16226 // S S U U B B R R O O U U T I NN N E
16227 // S U U B B R R O O U U T I N N N E
16228 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16229 // S U U B B R R O O U U T I N N N E
16230 // S S U U B B R R O O U U T I N NN E
16231 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16232
16233 // III V V OOOOO U U TTTTTTT
16234 // I V V O O U U T
16235 // I V V O O U U T
16236 // I V V O O U U T
16237 // I V V O O U U T
16238 // I V V O O U U T
16239 // III V OOOOO UUUUU T
16240
16241
16242 // VIF THU 20 NOV 2025 22:18:35 ** IVOUT ** DIAGNOSTICS PAGE 00404
16243
16244
16245 // VIF THU 20 NOV 2025 22:18:35 ** IVOUT ** GENERATED CODE PAGE 00405
16246
16247 int_4 _ivout (int_4 _p_ lout_, int_4 _p_ n_, int_4 _p_ ix_, int_4 _p_ idigit_, char _p_ ifmt_)
16248 { // ** body not listed **
17139 }
17140
17141 // VIF THU 20 NOV 2025 22:18:35 ** SECOND ** SECOND PAGE 00423
17142
17143 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17144 // S S U U B B R R O O U U T I NN N E
17145 // S U U B B R R O O U U T I N N N E
17146 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17147 // S U U B B R R O O U U T I N N N E
17148 // S S U U B B R R O O U U T I N NN E
17149 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17150
17151 // SSSSS EEEEEEE CCCCC OOOOO N N DDDDDD
17152 // S S E C C O O NN N D D
17153 // S E C O O N N N D D
17154 // SSSSS EEEEE C O O N N N D D
17155 // S E C O O N N N D D
17156 // S S E C C O O N NN D D
17157 // SSSSS EEEEEEE CCCCC OOOOO N N DDDDDD
17158
17159
17160 // VIF THU 20 NOV 2025 22:18:35 ** SECOND ** DIAGNOSTICS PAGE 00424
17161
17162
17163 // VIF THU 20 NOV 2025 22:18:35 ** SECOND ** GENERATED CODE PAGE 00425
17164
17165 int_4 _second (real_4 _p_ t_)
17166 { // ** body not listed **
17172 }
17173
17174 // VIF THU 20 NOV 2025 22:18:35 ** SGETV0 ** SGETV0 PAGE 00426
17175
17176 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17177 // S S U U B B R R O O U U T I NN N E
17178 // S U U B B R R O O U U T I N N N E
17179 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17180 // S U U B B R R O O U U T I N N N E
17181 // S S U U B B R R O O U U T I N NN E
17182 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17183
17184 // SSSSS GGGGG EEEEEEE TTTTTTT V V 000
17185 // S S G G E T V V 0 0
17186 // S G E T V V 0 0
17187 // SSSSS G GGGG EEEEE T V V 0 0
17188 // S G G E T V V 0 0
17189 // S S G G E T V V 0 0
17190 // SSSSS GGGGG EEEEEEE T V 000
17191
17192
17193 // VIF THU 20 NOV 2025 22:18:35 ** SGETV0 ** DIAGNOSTICS PAGE 00427
17194
17195
17196 // VIF THU 20 NOV 2025 22:18:35 ** SGETV0 ** GENERATED CODE PAGE 00428
17197
17198 int_4 _sgetv0 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ itry_, logical_4 _p_ initv_, int_4 _p_ n_, int_4 _p_ j_,
17199 real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ resid_, real_4 _p_ rnorm_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_
17200 ierr_)
17201 { // ** body not listed **
17362 }
17363
17364 // VIF THU 20 NOV 2025 22:18:35 ** SLAQRB ** SLAQRB PAGE 00432
17365
17366 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17367 // S S U U B B R R O O U U T I NN N E
17368 // S U U B B R R O O U U T I N N N E
17369 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17370 // S U U B B R R O O U U T I N N N E
17371 // S S U U B B R R O O U U T I N NN E
17372 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17373
17374 // SSSSS L A QQQQQ RRRRRR BBBBBB
17375 // S S L A A Q Q R R B B
17376 // S L A A Q Q R R B B
17377 // SSSSS L A A Q Q RRRRRR BBBBBB
17378 // S L AAAAAAA Q Q Q R R B B
17379 // S S L A A Q Q R R B B
17380 // SSSSS LLLLLLL A A QQQQ Q R R BBBBBB
17381
17382
17383 // VIF THU 20 NOV 2025 22:18:35 ** SLAQRB ** DIAGNOSTICS PAGE 00433
17384
17385
17386 // VIF THU 20 NOV 2025 22:18:35 ** SLAQRB ** GENERATED CODE PAGE 00434
17387
17388 int_4 _slaqrb (logical_4 _p_ wantt_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_, real_4 _p_ h_, int_4 _p_ ldh_,
17389 real_4 _p_ wr_, real_4 _p_ wi_, real_4 _p_ z_, int_4 _p_ info_)
17390 { // ** body not listed **
17596 }
17597
17598 // VIF THU 20 NOV 2025 22:18:35 ** SMOUT ** SMOUT PAGE 00439
17599
17600 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17601 // S S U U B B R R O O U U T I NN N E
17602 // S U U B B R R O O U U T I N N N E
17603 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17604 // S U U B B R R O O U U T I N N N E
17605 // S S U U B B R R O O U U T I N NN E
17606 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17607
17608 // SSSSS M M OOOOO U U TTTTTTT
17609 // S S MM MM O O U U T
17610 // S M M M M O O U U T
17611 // SSSSS M M M O O U U T
17612 // S M M O O U U T
17613 // S S M M O O U U T
17614 // SSSSS M M OOOOO UUUUU T
17615
17616
17617 // VIF THU 20 NOV 2025 22:18:35 ** SMOUT ** DIAGNOSTICS PAGE 00440
17618
17619
17620 // VIF THU 20 NOV 2025 22:18:35 ** SMOUT ** GENERATED CODE PAGE 00441
17621
17622 int_4 _smout (int_4 _p_ lout_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ idigit_, char _p_
17623 ifmt_)
17624 { // ** body not listed **
18965 }
18966
18967 // VIF THU 20 NOV 2025 22:18:35 ** SNAITR ** SNAITR PAGE 00467
18968
18969 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18970 // S S U U B B R R O O U U T I NN N E
18971 // S U U B B R R O O U U T I N N N E
18972 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18973 // S U U B B R R O O U U T I N N N E
18974 // S S U U B B R R O O U U T I N NN E
18975 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18976
18977 // SSSSS N N A III TTTTTTT RRRRRR
18978 // S S NN N A A I T R R
18979 // S N N N A A I T R R
18980 // SSSSS N N N A A I T RRRRRR
18981 // S N N N AAAAAAA I T R R
18982 // S S N NN A A I T R R
18983 // SSSSS N N A A III T R R
18984
18985
18986 // VIF THU 20 NOV 2025 22:18:35 ** SNAITR ** DIAGNOSTICS PAGE 00468
18987
18988
18989 // VIF THU 20 NOV 2025 22:18:35 ** SNAITR ** GENERATED CODE PAGE 00469
18990
18991 int_4 _snaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ nb_, real_4 _p_
18992 resid_, real_4 _p_ rnorm_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_, real_4 _p_
18993 workd_, int_4 _p_ info_)
18994 { // ** body not listed **
19284 }
19285
19286 // VIF THU 20 NOV 2025 22:18:35 ** SNAPPS ** SNAPPS PAGE 00475
19287
19288 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19289 // S S U U B B R R O O U U T I NN N E
19290 // S U U B B R R O O U U T I N N N E
19291 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19292 // S U U B B R R O O U U T I N N N E
19293 // S S U U B B R R O O U U T I N NN E
19294 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19295
19296 // SSSSS N N A PPPPPP PPPPPP SSSSS
19297 // S S NN N A A P P P P S S
19298 // S N N N A A P P P P S
19299 // SSSSS N N N A A PPPPPP PPPPPP SSSSS
19300 // S N N N AAAAAAA P P S
19301 // S S N NN A A P P S S
19302 // SSSSS N N A A P P SSSSS
19303
19304
19305 // VIF THU 20 NOV 2025 22:18:35 ** SNAPPS ** DIAGNOSTICS PAGE 00476
19306
19307
19308 // VIF THU 20 NOV 2025 22:18:35 ** SNAPPS ** GENERATED CODE PAGE 00477
19309
19310 int_4 _snapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, real_4 _p_ shiftr_, real_4 _p_ shifti_, real_4 _p_ v_,
19311 int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ resid_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workl_,
19312 real_4 _p_ workd_)
19313 { // ** body not listed **
19549 }
19550
19551 // VIF THU 20 NOV 2025 22:18:35 ** SNAUP2 ** SNAUP2 PAGE 00482
19552
19553 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19554 // S S U U B B R R O O U U T I NN N E
19555 // S U U B B R R O O U U T I N N N E
19556 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19557 // S U U B B R R O O U U T I N N N E
19558 // S S U U B B R R O O U U T I N NN E
19559 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19560
19561 // SSSSS N N A U U PPPPPP 22222
19562 // S S NN N A A U U P P 2 2
19563 // S N N N A A U U P P 2
19564 // SSSSS N N N A A U U PPPPPP 22222
19565 // S N N N AAAAAAA U U P 2
19566 // S S N NN A A U U P 2
19567 // SSSSS N N A A UUUUU P 2222222
19568
19569
19570 // VIF THU 20 NOV 2025 22:18:35 ** SNAUP2 ** DIAGNOSTICS PAGE 00483
19571
19572
19573 // VIF THU 20 NOV 2025 22:18:35 ** SNAUP2 ** GENERATED CODE PAGE 00484
19574
19575 int_4 _snaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_, real_4 _p_
19576 tol_, real_4 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_4 _p_ v_, int_4
19577 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ ritzr_, real_4 _p_ ritzi_, real_4 _p_ bounds_, real_4 _p_ q_, int_4
19578 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_)
19579 { // ** body not listed **
19876 }
19877
19878 // VIF THU 20 NOV 2025 22:18:35 ** SNAUPD ** SNAUPD PAGE 00490
19879
19880 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19881 // S S U U B B R R O O U U T I NN N E
19882 // S U U B B R R O O U U T I N N N E
19883 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19884 // S U U B B R R O O U U T I N N N E
19885 // S S U U B B R R O O U U T I N NN E
19886 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19887
19888 // SSSSS N N A U U PPPPPP DDDDDD
19889 // S S NN N A A U U P P D D
19890 // S N N N A A U U P P D D
19891 // SSSSS N N N A A U U PPPPPP D D
19892 // S N N N AAAAAAA U U P D D
19893 // S S N NN A A U U P D D
19894 // SSSSS N N A A UUUUU P DDDDDD
19895
19896
19897 // VIF THU 20 NOV 2025 22:18:35 ** SNAUPD ** DIAGNOSTICS PAGE 00491
19898
19899
19900 // VIF THU 20 NOV 2025 22:18:35 ** SNAUPD ** GENERATED CODE PAGE 00492
19901
19902 int_4 _snaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_, real_4
19903 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_,
19904 real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
19905 { // ** body not listed **
20530 }
20531
20532 // VIF THU 20 NOV 2025 22:18:35 ** SNCONV ** SNCONV PAGE 00505
20533
20534 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20535 // S S U U B B R R O O U U T I NN N E
20536 // S U U B B R R O O U U T I N N N E
20537 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20538 // S U U B B R R O O U U T I N N N E
20539 // S S U U B B R R O O U U T I N NN E
20540 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20541
20542 // SSSSS N N CCCCC OOOOO N N V V
20543 // S S NN N C C O O NN N V V
20544 // S N N N C O O N N N V V
20545 // SSSSS N N N C O O N N N V V
20546 // S N N N C O O N N N V V
20547 // S S N NN C C O O N NN V V
20548 // SSSSS N N CCCCC OOOOO N N V
20549
20550
20551 // VIF THU 20 NOV 2025 22:18:35 ** SNCONV ** DIAGNOSTICS PAGE 00506
20552
20553
20554 // VIF THU 20 NOV 2025 22:18:35 ** SNCONV ** GENERATED CODE PAGE 00507
20555
20556 int_4 _snconv (int_4 _p_ n_, real_4 _p_ ritzr_, real_4 _p_ ritzi_, real_4 _p_ bounds_, real_4 _p_ tol_, int_4 _p_
20557 nconv_)
20558 { // ** body not listed **
20577 }
20578
20579 // VIF THU 20 NOV 2025 22:18:35 ** SNEIGH ** SNEIGH PAGE 00508
20580
20581 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20582 // S S U U B B R R O O U U T I NN N E
20583 // S U U B B R R O O U U T I N N N E
20584 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20585 // S U U B B R R O O U U T I N N N E
20586 // S S U U B B R R O O U U T I N NN E
20587 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20588
20589 // SSSSS N N EEEEEEE III GGGGG H H
20590 // S S NN N E I G G H H
20591 // S N N N E I G H H
20592 // SSSSS N N N EEEEE I G GGGG HHHHHHH
20593 // S N N N E I G G H H
20594 // S S N NN E I G G H H
20595 // SSSSS N N EEEEEEE III GGGGG H H
20596
20597
20598 // VIF THU 20 NOV 2025 22:18:35 ** SNEIGH ** DIAGNOSTICS PAGE 00509
20599
20600
20601 // VIF THU 20 NOV 2025 22:18:35 ** SNEIGH ** GENERATED CODE PAGE 00510
20602
20603 int_4 _sneigh (real_4 _p_ rnorm_, int_4 _p_ n_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ ritzr_, real_4 _p_ ritzi_,
20604 real_4 _p_ bounds_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ierr_)
20605 { // ** body not listed **
20686 }
20687
20688 // VIF THU 20 NOV 2025 22:18:35 ** SNEUPD ** SNEUPD PAGE 00512
20689
20690 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20691 // S S U U B B R R O O U U T I NN N E
20692 // S U U B B R R O O U U T I N N N E
20693 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20694 // S U U B B R R O O U U T I N N N E
20695 // S S U U B B R R O O U U T I N NN E
20696 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20697
20698 // SSSSS N N EEEEEEE U U PPPPPP DDDDDD
20699 // S S NN N E U U P P D D
20700 // S N N N E U U P P D D
20701 // SSSSS N N N EEEEE U U PPPPPP D D
20702 // S N N N E U U P D D
20703 // S S N NN E U U P D D
20704 // SSSSS N N EEEEEEE UUUUU P DDDDDD
20705
20706
20707 // VIF THU 20 NOV 2025 22:18:35 ** SNEUPD ** DIAGNOSTICS PAGE 00513
20708
20709
20710 // VIF THU 20 NOV 2025 22:18:35 ** SNEUPD ** GENERATED CODE PAGE 00514
20711
20712 int_4 _sneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, real_4 _p_ dr_, real_4 _p_ di_, real_4 _p_
20713 z_, int_4 _p_ ldz_, real_4 _p_ sigmar_, real_4 _p_ sigmai_, real_4 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_
20714 which_, int_4 _p_ nev_, real_4 _p_ tol_, real_4 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_
20715 iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
20716 { // ** body not listed **
21065 }
21066
21067 // VIF THU 20 NOV 2025 22:18:35 ** SNGETS ** SNGETS PAGE 00521
21068
21069 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
21070 // S S U U B B R R O O U U T I NN N E
21071 // S U U B B R R O O U U T I N N N E
21072 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
21073 // S U U B B R R O O U U T I N N N E
21074 // S S U U B B R R O O U U T I N NN E
21075 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
21076
21077 // SSSSS N N GGGGG EEEEEEE TTTTTTT SSSSS
21078 // S S NN N G G E T S S
21079 // S N N N G E T S
21080 // SSSSS N N N G GGGG EEEEE T SSSSS
21081 // S N N N G G E T S
21082 // S S N NN G G E T S S
21083 // SSSSS N N GGGGG EEEEEEE T SSSSS
21084
21085
21086 // VIF THU 20 NOV 2025 22:18:35 ** SNGETS ** DIAGNOSTICS PAGE 00522
21087
21088
21089 // VIF THU 20 NOV 2025 22:18:35 ** SNGETS ** GENERATED CODE PAGE 00523
21090
21091 int_4 _sngets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, real_4 _p_ ritzr_, real_4 _p_ ritzi_,
21092 real_4 _p_ bounds_, real_4 _p_ shiftr_, real_4 _p_ shifti_)
21093 { // ** body not listed **
21139 }
21140
21141 // VIF THU 20 NOV 2025 22:18:35 ** SSAITR ** SSAITR PAGE 00524
21142
21143 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
21144 // S S U U B B R R O O U U T I NN N E
21145 // S U U B B R R O O U U T I N N N E
21146 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
21147 // S U U B B R R O O U U T I N N N E
21148 // S S U U B B R R O O U U T I N NN E
21149 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
21150
21151 // SSSSS SSSSS A III TTTTTTT RRRRRR
21152 // S S S S A A I T R R
21153 // S S A A I T R R
21154 // SSSSS SSSSS A A I T RRRRRR
21155 // S S AAAAAAA I T R R
21156 // S S S S A A I T R R
21157 // SSSSS SSSSS A A III T R R
21158
21159
21160 // VIF THU 20 NOV 2025 22:18:35 ** SSAITR ** DIAGNOSTICS PAGE 00525
21161
21162
21163 // VIF THU 20 NOV 2025 22:18:35 ** SSAITR ** GENERATED CODE PAGE 00526
21164
21165 int_4 _ssaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ mode_, real_4 _p_
21166 resid_, real_4 _p_ rnorm_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_, real_4 _p_
21167 workd_, int_4 _p_ info_)
21168 { // ** body not listed **
21471 }
21472
21473 // VIF THU 20 NOV 2025 22:18:35 ** SSAPPS ** SSAPPS PAGE 00532
21474
21475 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
21476 // S S U U B B R R O O U U T I NN N E
21477 // S U U B B R R O O U U T I N N N E
21478 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
21479 // S U U B B R R O O U U T I N N N E
21480 // S S U U B B R R O O U U T I N NN E
21481 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
21482
21483 // SSSSS SSSSS A PPPPPP PPPPPP SSSSS
21484 // S S S S A A P P P P S S
21485 // S S A A P P P P S
21486 // SSSSS SSSSS A A PPPPPP PPPPPP SSSSS
21487 // S S AAAAAAA P P S
21488 // S S S S A A P P S S
21489 // SSSSS SSSSS A A P P SSSSS
21490
21491
21492 // VIF THU 20 NOV 2025 22:18:35 ** SSAPPS ** DIAGNOSTICS PAGE 00533
21493
21494
21495 // VIF THU 20 NOV 2025 22:18:35 ** SSAPPS ** GENERATED CODE PAGE 00534
21496
21497 int_4 _ssapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, real_4 _p_ shift_, real_4 _p_ v_, int_4 _p_ ldv_, real_4
21498 _p_ h_, int_4 _p_ ldh_, real_4 _p_ resid_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workd_)
21499 { // ** body not listed **
21662 }
21663
21664 // VIF THU 20 NOV 2025 22:18:35 ** SSAUP2 ** SSAUP2 PAGE 00538
21665
21666 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
21667 // S S U U B B R R O O U U T I NN N E
21668 // S U U B B R R O O U U T I N N N E
21669 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
21670 // S U U B B R R O O U U T I N N N E
21671 // S S U U B B R R O O U U T I N NN E
21672 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
21673
21674 // SSSSS SSSSS A U U PPPPPP 22222
21675 // S S S S A A U U P P 2 2
21676 // S S A A U U P P 2
21677 // SSSSS SSSSS A A U U PPPPPP 22222
21678 // S S AAAAAAA U U P 2
21679 // S S S S A A U U P 2
21680 // SSSSS SSSSS A A UUUUU P 2222222
21681
21682
21683 // VIF THU 20 NOV 2025 22:18:35 ** SSAUP2 ** DIAGNOSTICS PAGE 00539
21684
21685
21686 // VIF THU 20 NOV 2025 22:18:35 ** SSAUP2 ** GENERATED CODE PAGE 00540
21687
21688 int_4 _ssaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_, real_4 _p_
21689 tol_, real_4 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_4 _p_ v_, int_4
21690 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ ritz_, real_4 _p_ bounds_, real_4 _p_ q_, int_4 _p_ ldq_, real_4
21691 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_)
21692 { // ** body not listed **
21965 }
21966
21967 // VIF THU 20 NOV 2025 22:18:35 ** SSAUPD ** SSAUPD PAGE 00546
21968
21969 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
21970 // S S U U B B R R O O U U T I NN N E
21971 // S U U B B R R O O U U T I N N N E
21972 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
21973 // S U U B B R R O O U U T I N N N E
21974 // S S U U B B R R O O U U T I N NN E
21975 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
21976
21977 // SSSSS SSSSS A U U PPPPPP DDDDDD
21978 // S S S S A A U U P P D D
21979 // S S A A U U P P D D
21980 // SSSSS SSSSS A A U U PPPPPP D D
21981 // S S AAAAAAA U U P D D
21982 // S S S S A A U U P D D
21983 // SSSSS SSSSS A A UUUUU P DDDDDD
21984
21985
21986 // VIF THU 20 NOV 2025 22:18:35 ** SSAUPD ** DIAGNOSTICS PAGE 00547
21987
21988
21989 // VIF THU 20 NOV 2025 22:18:35 ** SSAUPD ** GENERATED CODE PAGE 00548
21990
21991 int_4 _ssaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_, real_4
21992 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_,
21993 real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
21994 { // ** body not listed **
22593 }
22594
22595 // VIF THU 20 NOV 2025 22:18:35 ** SSCONV ** SSCONV PAGE 00560
22596
22597 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22598 // S S U U B B R R O O U U T I NN N E
22599 // S U U B B R R O O U U T I N N N E
22600 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22601 // S U U B B R R O O U U T I N N N E
22602 // S S U U B B R R O O U U T I N NN E
22603 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22604
22605 // SSSSS SSSSS CCCCC OOOOO N N V V
22606 // S S S S C C O O NN N V V
22607 // S S C O O N N N V V
22608 // SSSSS SSSSS C O O N N N V V
22609 // S S C O O N N N V V
22610 // S S S S C C O O N NN V V
22611 // SSSSS SSSSS CCCCC OOOOO N N V
22612
22613
22614 // VIF THU 20 NOV 2025 22:18:35 ** SSCONV ** DIAGNOSTICS PAGE 00561
22615
22616
22617 // VIF THU 20 NOV 2025 22:18:35 ** SSCONV ** GENERATED CODE PAGE 00562
22618
22619 int_4 _ssconv (int_4 _p_ n_, real_4 _p_ ritz_, real_4 _p_ bounds_, real_4 _p_ tol_, int_4 _p_ nconv_)
22620 { // ** body not listed **
22639 }
22640
22641 // VIF THU 20 NOV 2025 22:18:35 ** SSEIGT ** SSEIGT PAGE 00563
22642
22643 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22644 // S S U U B B R R O O U U T I NN N E
22645 // S U U B B R R O O U U T I N N N E
22646 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22647 // S U U B B R R O O U U T I N N N E
22648 // S S U U B B R R O O U U T I N NN E
22649 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22650
22651 // SSSSS SSSSS EEEEEEE III GGGGG TTTTTTT
22652 // S S S S E I G G T
22653 // S S E I G T
22654 // SSSSS SSSSS EEEEE I G GGGG T
22655 // S S E I G G T
22656 // S S S S E I G G T
22657 // SSSSS SSSSS EEEEEEE III GGGGG T
22658
22659
22660 // VIF THU 20 NOV 2025 22:18:35 ** SSEIGT ** DIAGNOSTICS PAGE 00564
22661
22662
22663 // VIF THU 20 NOV 2025 22:18:35 ** SSEIGT ** GENERATED CODE PAGE 00565
22664
22665 int_4 _sseigt (real_4 _p_ rnorm_, int_4 _p_ n_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ eig_, real_4 _p_ bounds_,
22666 real_4 _p_ workl_, int_4 _p_ ierr_)
22667 { // ** body not listed **
22697 }
22698
22699 // VIF THU 20 NOV 2025 22:18:35 ** SSESRT ** SSESRT PAGE 00566
22700
22701 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22702 // S S U U B B R R O O U U T I NN N E
22703 // S U U B B R R O O U U T I N N N E
22704 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22705 // S U U B B R R O O U U T I N N N E
22706 // S S U U B B R R O O U U T I N NN E
22707 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22708
22709 // SSSSS SSSSS EEEEEEE SSSSS RRRRRR TTTTTTT
22710 // S S S S E S S R R T
22711 // S S E S R R T
22712 // SSSSS SSSSS EEEEE SSSSS RRRRRR T
22713 // S S E S R R T
22714 // S S S S E S S R R T
22715 // SSSSS SSSSS EEEEEEE SSSSS R R T
22716
22717
22718 // VIF THU 20 NOV 2025 22:18:35 ** SSESRT ** DIAGNOSTICS PAGE 00567
22719
22720
22721 // VIF THU 20 NOV 2025 22:18:35 ** SSESRT ** GENERATED CODE PAGE 00568
22722
22723 int_4 _ssesrt (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ na_, real_4 _p_ a_, int_4
22724 _p_ lda_)
22725 { // ** body not listed **
22853 }
22854
22855 // VIF THU 20 NOV 2025 22:18:35 ** SSEUPD ** SSEUPD PAGE 00571
22856
22857 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22858 // S S U U B B R R O O U U T I NN N E
22859 // S U U B B R R O O U U T I N N N E
22860 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22861 // S U U B B R R O O U U T I N N N E
22862 // S S U U B B R R O O U U T I N NN E
22863 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22864
22865 // SSSSS SSSSS EEEEEEE U U PPPPPP DDDDDD
22866 // S S S S E U U P P D D
22867 // S S E U U P P D D
22868 // SSSSS SSSSS EEEEE U U PPPPPP D D
22869 // S S E U U P D D
22870 // S S S S E U U P D D
22871 // SSSSS SSSSS EEEEEEE UUUUU P DDDDDD
22872
22873
22874 // VIF THU 20 NOV 2025 22:18:35 ** SSEUPD ** DIAGNOSTICS PAGE 00572
22875
22876
22877 // VIF THU 20 NOV 2025 22:18:35 ** SSEUPD ** GENERATED CODE PAGE 00573
22878
22879 int_4 _sseupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, real_4 _p_ d_, real_4 _p_ z_, int_4 _p_
22880 ldz_, real_4 _p_ sigma_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_, real_4 _p_
22881 resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_, real_4
22882 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
22883 { // ** body not listed **
23187 }
23188
23189 // VIF THU 20 NOV 2025 22:18:35 ** SSGETS ** SSGETS PAGE 00579
23190
23191 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23192 // S S U U B B R R O O U U T I NN N E
23193 // S U U B B R R O O U U T I N N N E
23194 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23195 // S U U B B R R O O U U T I N N N E
23196 // S S U U B B R R O O U U T I N NN E
23197 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23198
23199 // SSSSS SSSSS GGGGG EEEEEEE TTTTTTT SSSSS
23200 // S S S S G G E T S S
23201 // S S G E T S
23202 // SSSSS SSSSS G GGGG EEEEE T SSSSS
23203 // S S G G E T S
23204 // S S S S G G E T S S
23205 // SSSSS SSSSS GGGGG EEEEEEE T SSSSS
23206
23207
23208 // VIF THU 20 NOV 2025 22:18:35 ** SSGETS ** DIAGNOSTICS PAGE 00580
23209
23210
23211 // VIF THU 20 NOV 2025 22:18:35 ** SSGETS ** GENERATED CODE PAGE 00581
23212
23213 int_4 _ssgets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, real_4 _p_ ritz_, real_4 _p_ bounds_,
23214 real_4 _p_ shifts_)
23215 { // ** body not listed **
23251 }
23252
23253 // VIF THU 20 NOV 2025 22:18:35 ** SSORTC ** SSORTC PAGE 00582
23254
23255 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23256 // S S U U B B R R O O U U T I NN N E
23257 // S U U B B R R O O U U T I N N N E
23258 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23259 // S U U B B R R O O U U T I N N N E
23260 // S S U U B B R R O O U U T I N NN E
23261 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23262
23263 // SSSSS SSSSS OOOOO RRRRRR TTTTTTT CCCCC
23264 // S S S S O O R R T C C
23265 // S S O O R R T C
23266 // SSSSS SSSSS O O RRRRRR T C
23267 // S S O O R R T C
23268 // S S S S O O R R T C C
23269 // SSSSS SSSSS OOOOO R R T CCCCC
23270
23271
23272 // VIF THU 20 NOV 2025 22:18:35 ** SSORTC ** DIAGNOSTICS PAGE 00583
23273
23274
23275 // VIF THU 20 NOV 2025 22:18:35 ** SSORTC ** GENERATED CODE PAGE 00584
23276
23277 int_4 _ssortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_4 _p_ xreal_, real_4 _p_ ximag_, real_4 _p_ y_
23278 )
23279 { // ** body not listed **
23503 }
23504
23505 // VIF THU 20 NOV 2025 22:18:35 ** SSORTR ** SSORTR PAGE 00589
23506
23507 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23508 // S S U U B B R R O O U U T I NN N E
23509 // S U U B B R R O O U U T I N N N E
23510 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23511 // S U U B B R R O O U U T I N N N E
23512 // S S U U B B R R O O U U T I N NN E
23513 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23514
23515 // SSSSS SSSSS OOOOO RRRRRR TTTTTTT RRRRRR
23516 // S S S S O O R R T R R
23517 // S S O O R R T R R
23518 // SSSSS SSSSS O O RRRRRR T RRRRRR
23519 // S S O O R R T R R
23520 // S S S S O O R R T R R
23521 // SSSSS SSSSS OOOOO R R T R R
23522
23523
23524 // VIF THU 20 NOV 2025 22:18:35 ** SSORTR ** DIAGNOSTICS PAGE 00590
23525
23526
23527 // VIF THU 20 NOV 2025 22:18:35 ** SSORTR ** GENERATED CODE PAGE 00591
23528
23529 int_4 _ssortr (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_4 _p_ x1_, real_4 _p_ x2_)
23530 { // ** body not listed **
23665 }
23666
23667 // VIF THU 20 NOV 2025 22:18:35 ** SSTATN ** SSTATN PAGE 00594
23668
23669 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23670 // S S U U B B R R O O U U T I NN N E
23671 // S U U B B R R O O U U T I N N N E
23672 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23673 // S U U B B R R O O U U T I N N N E
23674 // S S U U B B R R O O U U T I N NN E
23675 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23676
23677 // SSSSS SSSSS TTTTTTT A TTTTTTT N N
23678 // S S S S T A A T NN N
23679 // S S T A A T N N N
23680 // SSSSS SSSSS T A A T N N N
23681 // S S T AAAAAAA T N N N
23682 // S S S S T A A T N NN
23683 // SSSSS SSSSS T A A T N N
23684
23685
23686 // VIF THU 20 NOV 2025 22:18:35 ** SSTATN ** DIAGNOSTICS PAGE 00595
23687
23688
23689 // VIF THU 20 NOV 2025 22:18:35 ** SSTATN ** GENERATED CODE PAGE 00596
23690
23691 int_4 _sstatn (void)
23692 { // ** body not listed **
23713 }
23714
23715 // VIF THU 20 NOV 2025 22:18:35 ** SSTATS ** SSTATS PAGE 00597
23716
23717 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23718 // S S U U B B R R O O U U T I NN N E
23719 // S U U B B R R O O U U T I N N N E
23720 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23721 // S U U B B R R O O U U T I N N N E
23722 // S S U U B B R R O O U U T I N NN E
23723 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23724
23725 // SSSSS SSSSS TTTTTTT A TTTTTTT SSSSS
23726 // S S S S T A A T S S
23727 // S S T A A T S
23728 // SSSSS SSSSS T A A T SSSSS
23729 // S S T AAAAAAA T S
23730 // S S S S T A A T S S
23731 // SSSSS SSSSS T A A T SSSSS
23732
23733
23734 // VIF THU 20 NOV 2025 22:18:35 ** SSTATS ** DIAGNOSTICS PAGE 00598
23735
23736
23737 // VIF THU 20 NOV 2025 22:18:35 ** SSTATS ** GENERATED CODE PAGE 00599
23738
23739 int_4 _sstats (void)
23740 { // ** body not listed **
23761 }
23762
23763 // VIF THU 20 NOV 2025 22:18:35 ** SSTQRB ** SSTQRB PAGE 00600
23764
23765 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23766 // S S U U B B R R O O U U T I NN N E
23767 // S U U B B R R O O U U T I N N N E
23768 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23769 // S U U B B R R O O U U T I N N N E
23770 // S S U U B B R R O O U U T I N NN E
23771 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23772
23773 // SSSSS SSSSS TTTTTTT QQQQQ RRRRRR BBBBBB
23774 // S S S S T Q Q R R B B
23775 // S S T Q Q R R B B
23776 // SSSSS SSSSS T Q Q RRRRRR BBBBBB
23777 // S S T Q Q Q R R B B
23778 // S S S S T Q Q R R B B
23779 // SSSSS SSSSS T QQQQ Q R R BBBBBB
23780
23781
23782 // VIF THU 20 NOV 2025 22:18:35 ** SSTQRB ** DIAGNOSTICS PAGE 00601
23783
23784
23785 // VIF THU 20 NOV 2025 22:18:35 ** SSTQRB ** GENERATED CODE PAGE 00602
23786
23787 int_4 _sstqrb (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ z_, real_4 _p_ work_, int_4 _p_ info_)
23788 { // ** body not listed **
24112 }
24113
24114 // VIF THU 20 NOV 2025 22:18:35 ** SVOUT ** SVOUT PAGE 00609
24115
24116 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24117 // S S U U B B R R O O U U T I NN N E
24118 // S U U B B R R O O U U T I N N N E
24119 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24120 // S U U B B R R O O U U T I N N N E
24121 // S S U U B B R R O O U U T I N NN E
24122 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24123
24124 // SSSSS V V OOOOO U U TTTTTTT
24125 // S S V V O O U U T
24126 // S V V O O U U T
24127 // SSSSS V V O O U U T
24128 // S V V O O U U T
24129 // S S V V O O U U T
24130 // SSSSS V OOOOO UUUUU T
24131
24132
24133 // VIF THU 20 NOV 2025 22:18:35 ** SVOUT ** DIAGNOSTICS PAGE 00610
24134
24135
24136 // VIF THU 20 NOV 2025 22:18:35 ** SVOUT ** GENERATED CODE PAGE 00611
24137
24138 int_4 _svout (int_4 _p_ lout_, int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ idigit_, char _p_ ifmt_)
24139 { // ** body not listed **
24958 }
24959
24960 // VIF THU 20 NOV 2025 22:18:35 ** ZGETV0 ** ZGETV0 PAGE 00627
24961
24962 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24963 // S S U U B B R R O O U U T I NN N E
24964 // S U U B B R R O O U U T I N N N E
24965 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24966 // S U U B B R R O O U U T I N N N E
24967 // S S U U B B R R O O U U T I N NN E
24968 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24969
24970 // ZZZZZZZ GGGGG EEEEEEE TTTTTTT V V 000
24971 // Z G G E T V V 0 0
24972 // Z G E T V V 0 0
24973 // Z G GGGG EEEEE T V V 0 0
24974 // Z G G E T V V 0 0
24975 // * G G E T V V 0 0
24976 // ZZZZZZZ GGGGG EEEEEEE T V 000
24977
24978
24979 // VIF THU 20 NOV 2025 22:18:35 ** ZGETV0 ** DIAGNOSTICS PAGE 00628
24980
24981
24982 // VIF THU 20 NOV 2025 22:18:35 ** ZGETV0 ** GENERATED CODE PAGE 00629
24983
24984 int_4 _zgetv0 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ itry_, logical_4 _p_ initv_, int_4 _p_ n_, int_4 _p_ j_,
24985 complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ resid_, real_8 _p_ rnorm_, int_4 _p_ ipntr_, complex_16 _p_ workd_,
24986 int_4 _p_ ierr_)
24987 { // ** body not listed **
25148 }
25149
25150 // VIF THU 20 NOV 2025 22:18:35 ** ZMOUT ** ZMOUT PAGE 00633
25151
25152 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
25153 // S S U U B B R R O O U U T I NN N E
25154 // S U U B B R R O O U U T I N N N E
25155 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
25156 // S U U B B R R O O U U T I N N N E
25157 // S S U U B B R R O O U U T I N NN E
25158 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
25159
25160 // ZZZZZZZ M M OOOOO U U TTTTTTT
25161 // Z MM MM O O U U T
25162 // Z M M M M O O U U T
25163 // Z M M M O O U U T
25164 // Z M M O O U U T
25165 // * M M O O U U T
25166 // ZZZZZZZ M M OOOOO UUUUU T
25167
25168
25169 // VIF THU 20 NOV 2025 22:18:35 ** ZMOUT ** DIAGNOSTICS PAGE 00634
25170
25171
25172 // VIF THU 20 NOV 2025 22:18:35 ** ZMOUT ** GENERATED CODE PAGE 00635
25173
25174 int_4 _zmout (int_4 _p_ lout_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ idigit_, char
25175 _p_ ifmt_)
25176 { // ** body not listed **
27753 }
27754
27755 // VIF THU 20 NOV 2025 22:18:35 ** ZNAITR ** ZNAITR PAGE 00685
27756
27757 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
27758 // S S U U B B R R O O U U T I NN N E
27759 // S U U B B R R O O U U T I N N N E
27760 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
27761 // S U U B B R R O O U U T I N N N E
27762 // S S U U B B R R O O U U T I N NN E
27763 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
27764
27765 // ZZZZZZZ N N A III TTTTTTT RRRRRR
27766 // Z NN N A A I T R R
27767 // Z N N N A A I T R R
27768 // Z N N N A A I T RRRRRR
27769 // Z N N N AAAAAAA I T R R
27770 // * N NN A A I T R R
27771 // ZZZZZZZ N N A A III T R R
27772
27773
27774 // VIF THU 20 NOV 2025 22:18:35 ** ZNAITR ** DIAGNOSTICS PAGE 00686
27775
27776
27777 // VIF THU 20 NOV 2025 22:18:35 ** ZNAITR ** GENERATED CODE PAGE 00687
27778
27779 int_4 _znaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ nb_, complex_16 _p_
27780 resid_, real_8 _p_ rnorm_, complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_,
27781 complex_16 _p_ workd_, int_4 _p_ info_)
27782 { // ** body not listed **
28081 }
28082
28083 // VIF THU 20 NOV 2025 22:18:35 ** ZNAPPS ** ZNAPPS PAGE 00693
28084
28085 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
28086 // S S U U B B R R O O U U T I NN N E
28087 // S U U B B R R O O U U T I N N N E
28088 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
28089 // S U U B B R R O O U U T I N N N E
28090 // S S U U B B R R O O U U T I N NN E
28091 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
28092
28093 // ZZZZZZZ N N A PPPPPP PPPPPP SSSSS
28094 // Z NN N A A P P P P S S
28095 // Z N N N A A P P P P S
28096 // Z N N N A A PPPPPP PPPPPP SSSSS
28097 // Z N N N AAAAAAA P P S
28098 // * N NN A A P P S S
28099 // ZZZZZZZ N N A A P P SSSSS
28100
28101
28102 // VIF THU 20 NOV 2025 22:18:35 ** ZNAPPS ** DIAGNOSTICS PAGE 00694
28103
28104
28105 // VIF THU 20 NOV 2025 22:18:35 ** ZNAPPS ** GENERATED CODE PAGE 00695
28106
28107 int_4 _znapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, complex_16 _p_ shift_, complex_16 _p_ v_, int_4 _p_ ldv_,
28108 complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ resid_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_,
28109 complex_16 _p_ workd_)
28110 { // ** body not listed **
28298 }
28299
28300 // VIF THU 20 NOV 2025 22:18:35 ** ZNAUP2 ** ZNAUP2 PAGE 00699
28301
28302 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
28303 // S S U U B B R R O O U U T I NN N E
28304 // S U U B B R R O O U U T I N N N E
28305 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
28306 // S U U B B R R O O U U T I N N N E
28307 // S S U U B B R R O O U U T I N NN E
28308 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
28309
28310 // ZZZZZZZ N N A U U PPPPPP 22222
28311 // Z NN N A A U U P P 2 2
28312 // Z N N N A A U U P P 2
28313 // Z N N N A A U U PPPPPP 22222
28314 // Z N N N AAAAAAA U U P 2
28315 // * N NN A A U U P 2
28316 // ZZZZZZZ N N A A UUUUU P 2222222
28317
28318
28319 // VIF THU 20 NOV 2025 22:18:35 ** ZNAUP2 ** DIAGNOSTICS PAGE 00700
28320
28321
28322 // VIF THU 20 NOV 2025 22:18:35 ** ZNAUP2 ** GENERATED CODE PAGE 00701
28323
28324 int_4 _znaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_, real_8 _p_
28325 tol_, complex_16 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, complex_16 _p_ v_,
28326 int_4 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ ritz_, complex_16 _p_ bounds_, complex_16 _p_ q_,
28327 int_4 _p_ ldq_, complex_16 _p_ workl_, int_4 _p_ ipntr_, complex_16 _p_ workd_, real_8 _p_ rwork_, int_4 _p_ info_)
28328 { // ** body not listed **
28605 }
28606
28607 // VIF THU 20 NOV 2025 22:18:35 ** ZNAUPD ** ZNAUPD PAGE 00707
28608
28609 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
28610 // S S U U B B R R O O U U T I NN N E
28611 // S U U B B R R O O U U T I N N N E
28612 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
28613 // S U U B B R R O O U U T I N N N E
28614 // S S U U B B R R O O U U T I N NN E
28615 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
28616
28617 // ZZZZZZZ N N A U U PPPPPP DDDDDD
28618 // Z NN N A A U U P P D D
28619 // Z N N N A A U U P P D D
28620 // Z N N N A A U U PPPPPP D D
28621 // Z N N N AAAAAAA U U P D D
28622 // * N NN A A U U P D D
28623 // ZZZZZZZ N N A A UUUUU P DDDDDD
28624
28625
28626 // VIF THU 20 NOV 2025 22:18:35 ** ZNAUPD ** DIAGNOSTICS PAGE 00708
28627
28628
28629 // VIF THU 20 NOV 2025 22:18:35 ** ZNAUPD ** GENERATED CODE PAGE 00709
28630
28631 int_4 _znaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_,
28632 complex_16 _p_ resid_, int_4 _p_ ncv_, complex_16 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_,
28633 complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4 _p_ info_)
28634 { // ** body not listed **
29257 }
29258
29259 // VIF THU 20 NOV 2025 22:18:35 ** ZNEIGH ** ZNEIGH PAGE 00722
29260
29261 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
29262 // S S U U B B R R O O U U T I NN N E
29263 // S U U B B R R O O U U T I N N N E
29264 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
29265 // S U U B B R R O O U U T I N N N E
29266 // S S U U B B R R O O U U T I N NN E
29267 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
29268
29269 // ZZZZZZZ N N EEEEEEE III GGGGG H H
29270 // Z NN N E I G G H H
29271 // Z N N N E I G H H
29272 // Z N N N EEEEE I G GGGG HHHHHHH
29273 // Z N N N E I G G H H
29274 // * N NN E I G G H H
29275 // ZZZZZZZ N N EEEEEEE III GGGGG H H
29276
29277
29278 // VIF THU 20 NOV 2025 22:18:35 ** ZNEIGH ** DIAGNOSTICS PAGE 00723
29279
29280
29281 // VIF THU 20 NOV 2025 22:18:35 ** ZNEIGH ** GENERATED CODE PAGE 00724
29282
29283 int_4 _zneigh (real_8 _p_ rnorm_, int_4 _p_ n_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ ritz_, complex_16 _p_
29284 bounds_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_, real_8 _p_ rwork_, int_4 _p_ ierr_)
29285 { // ** body not listed **
29341 }
29342
29343 // VIF THU 20 NOV 2025 22:18:35 ** ZNEUPD ** ZNEUPD PAGE 00726
29344
29345 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
29346 // S S U U B B R R O O U U T I NN N E
29347 // S U U B B R R O O U U T I N N N E
29348 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
29349 // S U U B B R R O O U U T I N N N E
29350 // S S U U B B R R O O U U T I N NN E
29351 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
29352
29353 // ZZZZZZZ N N EEEEEEE U U PPPPPP DDDDDD
29354 // Z NN N E U U P P D D
29355 // Z N N N E U U P P D D
29356 // Z N N N EEEEE U U PPPPPP D D
29357 // Z N N N E U U P D D
29358 // * N NN E U U P D D
29359 // ZZZZZZZ N N EEEEEEE UUUUU P DDDDDD
29360
29361
29362 // VIF THU 20 NOV 2025 22:18:35 ** ZNEUPD ** DIAGNOSTICS PAGE 00727
29363
29364
29365 // VIF THU 20 NOV 2025 22:18:35 ** ZNEUPD ** GENERATED CODE PAGE 00728
29366
29367 int_4 _zneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, complex_16 _p_ d_, complex_16 _p_ z_,
29368 int_4 _p_ ldz_, complex_16 _p_ sigma_, complex_16 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_
29369 nev_, real_8 _p_ tol_, complex_16 _p_ resid_, int_4 _p_ ncv_, complex_16 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_,
29370 int_4 _p_ ipntr_, complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4 _p_ info_)
29371 { // ** body not listed **
29636 }
29637
29638 // VIF THU 20 NOV 2025 22:18:35 ** ZNGETS ** ZNGETS PAGE 00734
29639
29640 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
29641 // S S U U B B R R O O U U T I NN N E
29642 // S U U B B R R O O U U T I N N N E
29643 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
29644 // S U U B B R R O O U U T I N N N E
29645 // S S U U B B R R O O U U T I N NN E
29646 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
29647
29648 // ZZZZZZZ N N GGGGG EEEEEEE TTTTTTT SSSSS
29649 // Z NN N G G E T S S
29650 // Z N N N G E T S
29651 // Z N N N G GGGG EEEEE T SSSSS
29652 // Z N N N G G E T S
29653 // * N NN G G E T S S
29654 // ZZZZZZZ N N GGGGG EEEEEEE T SSSSS
29655
29656
29657 // VIF THU 20 NOV 2025 22:18:35 ** ZNGETS ** DIAGNOSTICS PAGE 00735
29658
29659
29660 // VIF THU 20 NOV 2025 22:18:35 ** ZNGETS ** GENERATED CODE PAGE 00736
29661
29662 int_4 _zngets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, complex_16 _p_ ritz_, complex_16 _p_
29663 bounds_)
29664 { // ** body not listed **
29685 }
29686
29687 // VIF THU 20 NOV 2025 22:18:35 ** ZSORTC ** ZSORTC PAGE 00737
29688
29689 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
29690 // S S U U B B R R O O U U T I NN N E
29691 // S U U B B R R O O U U T I N N N E
29692 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
29693 // S U U B B R R O O U U T I N N N E
29694 // S S U U B B R R O O U U T I N NN E
29695 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
29696
29697 // ZZZZZZZ SSSSS OOOOO RRRRRR TTTTTTT CCCCC
29698 // Z S S O O R R T C C
29699 // Z S O O R R T C
29700 // Z SSSSS O O RRRRRR T C
29701 // Z S O O R R T C
29702 // * S S O O R R T C C
29703 // ZZZZZZZ SSSSS OOOOO R R T CCCCC
29704
29705
29706 // VIF THU 20 NOV 2025 22:18:35 ** ZSORTC ** DIAGNOSTICS PAGE 00738
29707
29708
29709 // VIF THU 20 NOV 2025 22:18:35 ** ZSORTC ** GENERATED CODE PAGE 00739
29710
29711 int_4 _zsortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, complex_16 _p_ x_, complex_16 _p_ y_)
29712 { // ** body not listed **
29922 }
29923
29924 // VIF THU 20 NOV 2025 22:18:35 ** ZSTATN ** ZSTATN PAGE 00744
29925
29926 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
29927 // S S U U B B R R O O U U T I NN N E
29928 // S U U B B R R O O U U T I N N N E
29929 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
29930 // S U U B B R R O O U U T I N N N E
29931 // S S U U B B R R O O U U T I N NN E
29932 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
29933
29934 // ZZZZZZZ SSSSS TTTTTTT A TTTTTTT N N
29935 // Z S S T A A T NN N
29936 // Z S T A A T N N N
29937 // Z SSSSS T A A T N N N
29938 // Z S T AAAAAAA T N N N
29939 // * S S T A A T N NN
29940 // ZZZZZZZ SSSSS T A A T N N
29941
29942
29943 // VIF THU 20 NOV 2025 22:18:35 ** ZSTATN ** DIAGNOSTICS PAGE 00745
29944
29945
29946 // VIF THU 20 NOV 2025 22:18:35 ** ZSTATN ** GENERATED CODE PAGE 00746
29947
29948 int_4 _zstatn (void)
29949 { // ** body not listed **
29970 }
29971
29972 // VIF THU 20 NOV 2025 22:18:35 ** ZVOUT ** ZVOUT PAGE 00747
29973
29974 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
29975 // S S U U B B R R O O U U T I NN N E
29976 // S U U B B R R O O U U T I N N N E
29977 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
29978 // S U U B B R R O O U U T I N N N E
29979 // S S U U B B R R O O U U T I N NN E
29980 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
29981
29982 // ZZZZZZZ V V OOOOO U U TTTTTTT
29983 // Z V V O O U U T
29984 // Z V V O O U U T
29985 // Z V V O O U U T
29986 // Z V V O O U U T
29987 // * V V O O U U T
29988 // ZZZZZZZ V OOOOO UUUUU T
29989
29990
29991 // VIF THU 20 NOV 2025 22:18:35 ** ZVOUT ** DIAGNOSTICS PAGE 00748
29992
29993
29994 // VIF THU 20 NOV 2025 22:18:35 ** ZVOUT ** GENERATED CODE PAGE 00749
29995
29996 int_4 _zvout (int_4 _p_ lout_, int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ idigit_, char _p_ ifmt_)
29997 { // ** body not listed **
32400 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
