mathlib-linpack.c
1 //! @file mathlib-linpack.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 LINPACK
24
25 // Compiled from Fortran source code by VIF.
26
27 // LINPACK is a collection of Fortran subroutines that analyze and
28 // solve linear equations and linear least-squares probles. The
29 // package solves linear systems whose matrices are general, banded,
30 // symmetric indefinite, symmetric positive definite, triangular,
31 // and tridiagonal square. In addition, the package computes
32 // the QR and singular value decompositions of rectangular matrices
33 // and applies them to least-squares problems. LINPACK uses
34 // column-oriented algorithms to increase efficiency by preserving
35 // locality of reference.
36 //
37 // LINPACK was designed for supercomputers in use in the 1970s and
38 // early 1980s. LINPACK has been largely superceded by LAPACK
39 // which has been designed to run efficiently on shared-memory, vector
40 // supercomputers.
41 //
42 // Original authors are Jack Dongarra, Jim Bunch, Cleve Moler,
43 // Pete Stewart, et alii.
44 //
45 // Source: netlib/linpack/
46
47 // The license for LINPACK Fortran source code is:
48 //
49 // LINPACK is licensed under the Modified 3 clause BSD license.
50 //
51 // Prof. Jack Dongarra; Innovative Computing Laboratory; EECS Department;
52 // 1122 Volunteer Blvd; University of Tennessee; Knoxville TN 37996-3450;
53 // +1-865-974-8295; dongarra.edu; http://www.cs.utk.edu/~dongarra/
54 //
55 // All rights reserved.
56 //
57 // Redistribution and use in source and binary forms, with or without
58 // modification, are permitted provided that the following conditions are met:
59 //
60 // * Redistributions of source code must retain the above copyright notice, this
61 // list of conditions and the following disclaimer.
62 //
63 // * Redistributions in binary form must reproduce the above copyright notice,
64 // this list of conditions and the following disclaimer in the documentation
65 // and/or other materials provided with the distribution.
66 //
67 // * Neither the name of [project] nor the names of its
68 // contributors may be used to endorse or promote products derived from
69 // this software without specific prior written permission.
70 //
71 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
72 // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
73 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
74 // DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
75 // FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
76 // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
77 // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
78 // CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
79 // OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
80 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
81 //
82
83 // VIF THU 20 NOV 2025 22:20:34 ** MARCEL ** LINPACK PAGE 00001
84
85
86
87 // M M A RRRRRR CCCCC EEEEEEE L
88 // MM MM A A R R C C E L
89 // M M M M A A R R C E L
90 // M M M A A RRRRRR C EEEEE L
91 // M M AAAAAAA R R C E L
92 // M M A A R R C C E L
93 // M M A A R R CCCCC EEEEEEE LLLLLLL
94
95 // L III N N PPPPPP A CCCCC K K
96 // L I NN N P P A A C C K K
97 // L I N N N P P A A C K K
98 // L I N N N PPPPPP A A C KKK
99 // L I N N N P AAAAAAA C K K
100 // L I N NN P A A C C K K
101 // LLLLLLL III N N P A A CCCCC K K
102
103
104
105
106 // VIF THU 20 NOV 2025 22:20:34 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
107
108 // ** linker ** object size 2101960 bytes
109 // ** statistics ** 177 subprograms, no errors, no warnings
110
111
112 // VIF THU 20 NOV 2025 22:20:34 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
113
114
115 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
116
117
118
119 // VIF THU 20 NOV 2025 22:20:34 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
120
121 /*
122 Generated by VIF - experimental VIntage Fortran compiler.
123 VIF release 1.4.1
124 */
125
126 #if defined (__GNUC__)
127 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
128 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
129 #if (__GNUC__ >= 14)
130 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
131 #pragma GCC diagnostic ignored "-Wimplicit-int"
132 #pragma GCC diagnostic ignored "-Wint-conversion"
133 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
134 #endif
135 #else
136 #error VIF requires GCC
137 #endif
138
139 #include <vif.h>
140
141 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
142
143
144
145
146
147 // VIF THU 20 NOV 2025 22:20:34 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00005
148
149 static FORMAT *__fmt_a = NULL;
150
151
152 // VIF THU 20 NOV 2025 22:20:34 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00006
153
154 #define __ncalls 178
155 static CALLS __calls[__ncalls] = {
156 { // ** body not listed **"cchdc", 0}, // subroutine
158 { // ** body not listed **"cchex", 0}, // subroutine
160 { // ** body not listed **"cgbco", 0}, // subroutine
162 { // ** body not listed **"cgbfa", 0}, // subroutine
164 { // ** body not listed **"cgeco", 0}, // subroutine
166 { // ** body not listed **"cgefa", 0}, // subroutine
168 { // ** body not listed **"cgtsl", 0}, // subroutine
170 { // ** body not listed **"chidi", 0}, // subroutine
172 { // ** body not listed **"chisl", 0}, // subroutine
174 { // ** body not listed **"chpdi", 0}, // subroutine
176 { // ** body not listed **"chpsl", 0}, // subroutine
178 { // ** body not listed **"cpbdi", 0}, // subroutine
180 { // ** body not listed **"cpbsl", 0}, // subroutine
182 { // ** body not listed **"cpodi", 0}, // subroutine
184 { // ** body not listed **"cposl", 0}, // subroutine
186 { // ** body not listed **"cppdi", 0}, // subroutine
188 { // ** body not listed **"cppsl", 0}, // subroutine
190 { // ** body not listed **"cqrdc", 0}, // subroutine
192 { // ** body not listed **"csico", 0}, // subroutine
194 { // ** body not listed **"csifa", 0}, // subroutine
196 { // ** body not listed **"cspco", 0}, // subroutine
198 { // ** body not listed **"cspfa", 0}, // subroutine
200 { // ** body not listed **"csvdc", 0}, // subroutine
202 { // ** body not listed **"ctrdi", 0}, // subroutine
206 { // ** body not listed **"dchdc", 0}, // subroutine
208 { // ** body not listed **"dchex", 0}, // subroutine
210 { // ** body not listed **"dgbco", 0}, // subroutine
212 { // ** body not listed **"dgbfa", 0}, // subroutine
214 { // ** body not listed **"dgeco", 0}, // subroutine
216 { // ** body not listed **"dgefa", 0}, // subroutine
218 { // ** body not listed **"dgtsl", 0}, // subroutine
220 { // ** body not listed **"dpbdi", 0}, // subroutine
222 { // ** body not listed **"dpbsl", 0}, // subroutine
224 { // ** body not listed **"dpodi", 0}, // subroutine
226 { // ** body not listed **"dposl", 0}, // subroutine
228 { // ** body not listed **"dppdi", 0}, // subroutine
230 { // ** body not listed **"dppsl", 0}, // subroutine
232 { // ** body not listed **"dqrdc", 0}, // subroutine
234 { // ** body not listed **"dsico", 0}, // subroutine
236 { // ** body not listed **"dsifa", 0}, // subroutine
238 { // ** body not listed **"dspco", 0}, // subroutine
240 { // ** body not listed **"dspfa", 0}, // subroutine
242 { // ** body not listed **"dsvdc", 0}, // subroutine
244 { // ** body not listed **"dtrdi", 0}, // subroutine
246 { // ** body not listed **"schdc", 0}, // subroutine
248 { // ** body not listed **"schex", 0}, // subroutine
250 { // ** body not listed **"sgbco", 0}, // subroutine
252 { // ** body not listed **"sgbfa", 0}, // subroutine
254 { // ** body not listed **"sgeco", 0}, // subroutine
258 { // ** body not listed **"sgefa", 0}, // subroutine
260 { // ** body not listed **"sgtsl", 0}, // subroutine
262 { // ** body not listed **"spbdi", 0}, // subroutine
264 { // ** body not listed **"spbsl", 0}, // subroutine
266 { // ** body not listed **"spodi", 0}, // subroutine
268 { // ** body not listed **"sposl", 0}, // subroutine
270 { // ** body not listed **"sppdi", 0}, // subroutine
272 { // ** body not listed **"sppsl", 0}, // subroutine
274 { // ** body not listed **"sqrdc", 0}, // subroutine
276 { // ** body not listed **"ssico", 0}, // subroutine
278 { // ** body not listed **"ssifa", 0}, // subroutine
280 { // ** body not listed **"sspco", 0}, // subroutine
282 { // ** body not listed **"sspfa", 0}, // subroutine
284 { // ** body not listed **"ssvdc", 0}, // subroutine
286 { // ** body not listed **"strdi", 0}, // subroutine
288 { // ** body not listed **"zchdc", 0}, // subroutine
290 { // ** body not listed **"zchex", 0}, // subroutine
292 { // ** body not listed **"zgbco", 0}, // subroutine
294 { // ** body not listed **"zgbfa", 0}, // subroutine
296 { // ** body not listed **"zgeco", 0}, // subroutine
298 { // ** body not listed **"zgefa", 0}, // subroutine
300 { // ** body not listed **"zgtsl", 0}, // subroutine
302 { // ** body not listed **"zhidi", 0}, // subroutine
304 { // ** body not listed **"zhisl", 0}, // subroutine
306 { // ** body not listed **"zhpdi", 0}, // subroutine
310 { // ** body not listed **"zhpsl", 0}, // subroutine
312 { // ** body not listed **"zpbco", 0}, // subroutine
314 { // ** body not listed **"zpbfa", 0}, // subroutine
316 { // ** body not listed **"zpoco", 0}, // subroutine
318 { // ** body not listed **"zpofa", 0}, // subroutine
320 { // ** body not listed **"zppco", 0}, // subroutine
322 { // ** body not listed **"zppfa", 0}, // subroutine
324 { // ** body not listed **"zptsl", 0}, // subroutine
326 { // ** body not listed **"zqrsl", 0}, // subroutine
328 { // ** body not listed **"zsidi", 0}, // subroutine
330 { // ** body not listed **"zsisl", 0}, // subroutine
332 { // ** body not listed **"zspdi", 0}, // subroutine
334 { // ** body not listed **"zspsl", 0}, // subroutine
336 { // ** body not listed **"ztrco", 0}, // subroutine
338 { // ** body not listed **"ztrsl", 0}, // subroutine
340 };
341
342
343
344 // VIF THU 20 NOV 2025 22:20:34 ** GLOBAL SCOPE ** COMMON BLOCKS PAGE 00010
345
346
347
348 // VIF THU 20 NOV 2025 22:20:34 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00011
349
350
351 prototype int_4 _cchdc (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ p_, complex_8 _p_ work_, int_4 _p_ jpvt_, int_4 _p_
352 job_, int_4 _p_ info_);
353 prototype int_4 _cchdd (complex_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, complex_8 _p_ x_, complex_8 _p_ z_, int_4 _p_
354 ldz_, int_4 _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ info_);
355 prototype int_4 _cchex (complex_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, int_4 _p_ k_, int_4 _p_ l_, complex_8 _p_ z_,
356 int_4 _p_ ldz_, int_4 _p_ nz_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ job_);
357 prototype int_4 _cchud (complex_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, complex_8 _p_ x_, complex_8 _p_ z_, int_4 _p_
358 ldz_, int_4 _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_);
359 prototype int_4 _cgbco (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_
360 , real_4 _p_ rcond_, complex_8 _p_ z_);
361 prototype int_4 _cgbdi (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_
362 , complex_8 _p_ det_);
363 prototype int_4 _cgbfa (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_
364 , int_4 _p_ info_);
365 prototype int_4 _cgbsl (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_
366 , complex_8 _p_ b_, int_4 _p_ job_);
367 prototype int_4 _cgeco (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_4 _p_ rcond_, complex_8
368 _p_ z_);
369 prototype int_4 _cgedi (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, complex_8 _p_ det_, complex_8
370 _p_ work_, int_4 _p_ job_);
371 prototype int_4 _cgefa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_);
372 prototype int_4 _cgesl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, complex_8 _p_ b_, int_4 _p_
373 job_);
374 prototype int_4 _cgtsl (int_4 _p_ n_, complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ e_, complex_8 _p_ b_, int_4 _p_
375 info_);
376 prototype int_4 _chico (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8
377 _p_ z_);
378 prototype int_4 _chidi (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ det_, int_4 _p_
379 inert_, complex_8 _p_ work_, int_4 _p_ job_);
380 prototype int_4 _chifa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_);
381 prototype int_4 _chisl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_);
382 prototype int_4 _chpco (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_);
383 prototype int_4 _chpdi (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ det_, int_4 _p_ inert_, complex_8
384 _p_ work_, int_4 _p_ job_);
385 prototype int_4 _chpfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_);
386 prototype int_4 _chpsl (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_);
387 prototype int_4 _cpbco (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ rcond_, complex_8
388 _p_ z_, int_4 _p_ info_);
389 prototype int_4 _cpbdi (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ det_);
390 prototype int_4 _cpbfa (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_);
391 prototype int_4 _cpbsl (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, complex_8 _p_ b_);
392 prototype int_4 _cpoco (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ rcond_, complex_8 _p_ z_, int_4 _p_
393 info_);
394 prototype int_4 _cpodi (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_);
395 prototype int_4 _cpofa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_);
396 prototype int_4 _cposl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ b_);
397 prototype int_4 _cppco (complex_8 _p_ ap_, int_4 _p_ n_, real_4 _p_ rcond_, complex_8 _p_ z_, int_4 _p_ info_);
398 prototype int_4 _cppdi (complex_8 _p_ ap_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_);
399 prototype int_4 _cppfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_);
400 // VIF THU 20 NOV 2025 22:20:34 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00012
401
402 prototype int_4 _cppsl (complex_8 _p_ ap_, int_4 _p_ n_, complex_8 _p_ b_);
403 prototype int_4 _cptsl (int_4 _p_ n_, complex_8 _p_ d_, complex_8 _p_ e_, complex_8 _p_ b_);
404 prototype int_4 _cqrdc (complex_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, complex_8 _p_ qraux_, int_4 _p_
405 jpvt_, complex_8 _p_ work_, int_4 _p_ job_);
406 prototype int_4 _cqrsl (complex_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ qraux_, complex_8
407 _p_ y_, complex_8 _p_ qy_, complex_8 _p_ qty_, complex_8 _p_ b_, complex_8 _p_ rsd_, complex_8 _p_ xb_, int_4 _p_ job_,
408 int_4 _p_ info_);
409 prototype int_4 _csico (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8
410 _p_ z_);
411 prototype int_4 _csidi (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ det_, complex_8
412 _p_ work_, int_4 _p_ job_);
413 prototype int_4 _csifa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_);
414 prototype int_4 _csisl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_);
415 prototype int_4 _cspco (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_);
416 prototype int_4 _cspdi (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ det_, complex_8 _p_ work_,
417 int_4 _p_ job_);
418 prototype int_4 _cspfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_);
419 prototype int_4 _cspsl (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_);
420 prototype int_4 _csvdc (complex_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, complex_8 _p_ s_, complex_8 _p_
421 e_, complex_8 _p_ u_, int_4 _p_ ldu_, complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ work_, int_4 _p_ job_, int_4 _p_
422 info_);
423 prototype int_4 _ctrco (complex_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_4 _p_ rcond_, complex_8 _p_ z_, int_4 _p_
424 job_);
425 prototype int_4 _ctrdi (complex_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, complex_8 _p_ det_, int_4 _p_ job_, int_4 _p_
426 info_);
427 prototype int_4 _ctrsl (complex_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, complex_8 _p_ b_, int_4 _p_ job_, int_4 _p_
428 info_);
429 prototype int_4 _dchdc (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ p_, real_8 _p_ work_, int_4 _p_ jpvt_, int_4 _p_ job_,
430 int_4 _p_ info_);
431 prototype int_4 _dchdd (real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, real_8 _p_ x_, real_8 _p_ z_, int_4 _p_ ldz_,
432 int_4 _p_ nz_, real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ info_);
433 prototype int_4 _dchex (real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, int_4 _p_ k_, int_4 _p_ l_, real_8 _p_ z_, int_4
434 _p_ ldz_, int_4 _p_ nz_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ job_);
435 prototype int_4 _dchud (real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, real_8 _p_ x_, real_8 _p_ z_, int_4 _p_ ldz_,
436 int_4 _p_ nz_, real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_);
437 prototype int_4 _dgbco (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_,
438 real_8 _p_ rcond_, real_8 _p_ z_);
439 prototype int_4 _dgbdi (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_,
440 real_8 _p_ det_);
441 prototype int_4 _dgbfa (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_,
442 int_4 _p_ info_);
443 prototype int_4 _dgbsl (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_,
444 real_8 _p_ b_, int_4 _p_ job_);
445 prototype int_4 _dgeco (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ rcond_, real_8 _p_ z_)
446 ;
447 prototype int_4 _dgedi (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ det_, real_8 _p_ work_
448 , int_4 _p_ job_);
449 prototype int_4 _dgefa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_);
450 prototype int_4 _dgesl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ b_, int_4 _p_ job_);
451 prototype int_4 _dgtsl (int_4 _p_ n_, real_8 _p_ c_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ b_, int_4 _p_ info_);
452 // VIF THU 20 NOV 2025 22:20:34 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00013
453
454 prototype int_4 _dpbco (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ rcond_, real_8 _p_ z_,
455 int_4 _p_ info_);
456 prototype int_4 _dpbdi (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ det_);
457 prototype int_4 _dpbfa (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_);
458 prototype int_4 _dpbsl (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ b_);
459 prototype int_4 _dpoco (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_ info_)
460 ;
461 prototype int_4 _dpodi (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_);
462 prototype int_4 _dpofa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_);
463 prototype int_4 _dposl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ b_);
464 prototype int_4 _dppco (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_ info_);
465 prototype int_4 _dppdi (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_);
466 prototype int_4 _dppfa (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_);
467 prototype int_4 _dppsl (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ b_);
468 prototype int_4 _dptsl (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ b_);
469 prototype int_4 _dqrdc (real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, real_8 _p_ qraux_, int_4 _p_ jpvt_,
470 real_8 _p_ work_, int_4 _p_ job_);
471 prototype int_4 _dqrsl (real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ qraux_, real_8 _p_ y_,
472 real_8 _p_ qy_, real_8 _p_ qty_, real_8 _p_ b_, real_8 _p_ rsd_, real_8 _p_ xb_, int_4 _p_ job_, int_4 _p_ info_);
473 prototype int_4 _dsico (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, real_8 _p_ z_)
474 ;
475 prototype int_4 _dsidi (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ det_, int_4 _p_ inert_
476 , real_8 _p_ work_, int_4 _p_ job_);
477 prototype int_4 _dsifa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_);
478 prototype int_4 _dsisl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ b_);
479 prototype int_4 _dspco (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, real_8 _p_ z_);
480 prototype int_4 _dspdi (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ det_, int_4 _p_ inert_, real_8 _p_
481 work_, int_4 _p_ job_);
482 prototype int_4 _dspfa (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_);
483 prototype int_4 _dspsl (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ b_);
484 prototype int_4 _dsvdc (real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, real_8 _p_ s_, real_8 _p_ e_, real_8
485 _p_ u_, int_4 _p_ ldu_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ work_, int_4 _p_ job_, int_4 _p_ info_);
486 prototype int_4 _dtrco (real_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_ job_);
487 prototype int_4 _dtrdi (real_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_, int_4 _p_ info_);
488 prototype int_4 _dtrsl (real_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ job_, int_4 _p_ info_);
489 prototype int_4 _schdc (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ p_, real_4 _p_ work_, int_4 _p_ jpvt_, int_4 _p_ job_,
490 int_4 _p_ info_);
491 prototype int_4 _schdd (real_4 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, real_4 _p_ x_, real_4 _p_ z_, int_4 _p_ ldz_,
492 int_4 _p_ nz_, real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ info_);
493 prototype int_4 _schex (real_4 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, int_4 _p_ k_, int_4 _p_ l_, real_4 _p_ z_, int_4
494 _p_ ldz_, int_4 _p_ nz_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ job_);
495 prototype int_4 _schud (real_4 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, real_4 _p_ x_, real_4 _p_ z_, int_4 _p_ ldz_,
496 int_4 _p_ nz_, real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_);
497 prototype int_4 _sgbco (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_,
498 real_4 _p_ rcond_, real_4 _p_ z_);
499 prototype int_4 _sgbdi (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_,
500 real_4 _p_ det_);
501 prototype int_4 _sgbfa (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_,
502 int_4 _p_ info_);
503 prototype int_4 _sgbsl (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_,
504 // VIF THU 20 NOV 2025 22:20:34 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00014
505
506 real_4 _p_ b_, int_4 _p_ job_);
507 prototype int_4 _sgeco (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_4 _p_ rcond_, real_4 _p_ z_)
508 ;
509 prototype int_4 _sgedi (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_4 _p_ det_, real_4 _p_ work_
510 , int_4 _p_ job_);
511 prototype int_4 _sgefa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_);
512 prototype int_4 _sgesl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_4 _p_ b_, int_4 _p_ job_);
513 prototype int_4 _sgtsl (int_4 _p_ n_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ b_, int_4 _p_ info_);
514 prototype int_4 _spbco (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ rcond_, real_4 _p_ z_,
515 int_4 _p_ info_);
516 prototype int_4 _spbdi (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ det_);
517 prototype int_4 _spbfa (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_);
518 prototype int_4 _spbsl (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ b_);
519 prototype int_4 _spoco (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_ info_)
520 ;
521 prototype int_4 _spodi (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_);
522 prototype int_4 _spofa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_);
523 prototype int_4 _sposl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ b_);
524 prototype int_4 _sppco (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_ info_);
525 prototype int_4 _sppdi (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_);
526 prototype int_4 _sppfa (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_);
527 prototype int_4 _sppsl (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ b_);
528 prototype int_4 _sptsl (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ b_);
529 prototype int_4 _sqrdc (real_4 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, real_4 _p_ qraux_, int_4 _p_ jpvt_,
530 real_4 _p_ work_, int_4 _p_ job_);
531 prototype int_4 _sqrsl (real_4 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ qraux_, real_4 _p_ y_,
532 real_4 _p_ qy_, real_4 _p_ qty_, real_4 _p_ b_, real_4 _p_ rsd_, real_4 _p_ xb_, int_4 _p_ job_, int_4 _p_ info_);
533 prototype int_4 _ssico (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, real_4 _p_ z_)
534 ;
535 prototype int_4 _ssidi (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ det_, int_4 _p_ inert_
536 , real_4 _p_ work_, int_4 _p_ job_);
537 prototype int_4 _ssifa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_);
538 prototype int_4 _ssisl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ b_);
539 prototype int_4 _sspco (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, real_4 _p_ z_);
540 prototype int_4 _sspdi (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ det_, int_4 _p_ inert_, real_4 _p_
541 work_, int_4 _p_ job_);
542 prototype int_4 _sspfa (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_);
543 prototype int_4 _sspsl (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ b_);
544 prototype int_4 _ssvdc (real_4 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, real_4 _p_ s_, real_4 _p_ e_, real_4
545 _p_ u_, int_4 _p_ ldu_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ info_);
546 prototype int_4 _strco (real_4 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_ job_);
547 prototype int_4 _strdi (real_4 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_, int_4 _p_ info_);
548 prototype int_4 _strsl (real_4 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ job_, int_4 _p_ info_);
549 prototype int_4 _zchdc (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ p_, complex_16 _p_ work_, int_4 _p_ jpvt_, int_4
550 _p_ job_, int_4 _p_ info_);
551 prototype int_4 _zchdd (complex_16 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, complex_16 _p_ x_, complex_16 _p_ z_, int_4
552 _p_ ldz_, int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ info_);
553 prototype int_4 _zchex (complex_16 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, int_4 _p_ k_, int_4 _p_ l_, complex_16 _p_ z_,
554 int_4 _p_ ldz_, int_4 _p_ nz_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ job_);
555 prototype int_4 _zchud (complex_16 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, complex_16 _p_ x_, complex_16 _p_ z_, int_4
556 // VIF THU 20 NOV 2025 22:20:34 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00015
557
558 _p_ ldz_, int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_);
559 prototype int_4 _zgbco (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_
560 ipvt_, real_8 _p_ rcond_, complex_16 _p_ z_);
561 prototype int_4 _zgbdi (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_
562 ipvt_, complex_16 _p_ det_);
563 prototype int_4 _zgbfa (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_
564 ipvt_, int_4 _p_ info_);
565 prototype int_4 _zgbsl (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_
566 ipvt_, complex_16 _p_ b_, int_4 _p_ job_);
567 prototype int_4 _zgeco (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ rcond_, complex_16
568 _p_ z_);
569 prototype int_4 _zgedi (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, complex_16 _p_ det_,
570 complex_16 _p_ work_, int_4 _p_ job_);
571 prototype int_4 _zgefa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_);
572 prototype int_4 _zgesl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, complex_16 _p_ b_, int_4 _p_
573 job_);
574 prototype int_4 _zgtsl (int_4 _p_ n_, complex_16 _p_ c_, complex_16 _p_ d_, complex_16 _p_ e_, complex_16 _p_ b_, int_4
575 _p_ info_);
576 prototype int_4 _zhico (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16
577 _p_ z_);
578 prototype int_4 _zhidi (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ det_, int_4 _p_
579 inert_, complex_16 _p_ work_, int_4 _p_ job_);
580 prototype int_4 _zhifa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_);
581 prototype int_4 _zhisl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_);
582 prototype int_4 _zhpco (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_);
583 prototype int_4 _zhpdi (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ det_, int_4 _p_ inert_,
584 complex_16 _p_ work_, int_4 _p_ job_);
585 prototype int_4 _zhpfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_);
586 prototype int_4 _zhpsl (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_);
587 prototype real_8 _zmach (int_4 _p_ job_);
588 prototype int_4 _zpbco (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ rcond_, complex_16
589 _p_ z_, int_4 _p_ info_);
590 prototype int_4 _zpbdi (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ det_);
591 prototype int_4 _zpbfa (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_);
592 prototype int_4 _zpbsl (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, complex_16 _p_ b_);
593 prototype int_4 _zpoco (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ rcond_, complex_16 _p_ z_, int_4
594 _p_ info_);
595 prototype int_4 _zpodi (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_);
596 prototype int_4 _zpofa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_);
597 prototype int_4 _zposl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_16 _p_ b_);
598 prototype int_4 _zppco (complex_16 _p_ ap_, int_4 _p_ n_, real_8 _p_ rcond_, complex_16 _p_ z_, int_4 _p_ info_);
599 prototype int_4 _zppdi (complex_16 _p_ ap_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_);
600 prototype int_4 _zppfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_);
601 prototype int_4 _zppsl (complex_16 _p_ ap_, int_4 _p_ n_, complex_16 _p_ b_);
602 prototype int_4 _zptsl (int_4 _p_ n_, complex_16 _p_ d_, complex_16 _p_ e_, complex_16 _p_ b_);
603 prototype int_4 _zqrdc (complex_16 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, complex_16 _p_ qraux_, int_4 _p_
604 jpvt_, complex_16 _p_ work_, int_4 _p_ job_);
605 prototype int_4 _zqrsl (complex_16 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ qraux_,
606 complex_16 _p_ y_, complex_16 _p_ qy_, complex_16 _p_ qty_, complex_16 _p_ b_, complex_16 _p_ rsd_, complex_16 _p_ xb_,
607 int_4 _p_ job_, int_4 _p_ info_);
608 // VIF THU 20 NOV 2025 22:20:34 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00016
609
610 prototype int_4 _zsico (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16
611 _p_ z_);
612 prototype int_4 _zsidi (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ det_,
613 complex_16 _p_ work_, int_4 _p_ job_);
614 prototype int_4 _zsifa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_);
615 prototype int_4 _zsisl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_);
616 prototype int_4 _zspco (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_);
617 prototype int_4 _zspdi (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ det_, complex_16 _p_ work_,
618 int_4 _p_ job_);
619 prototype int_4 _zspfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_);
620 prototype int_4 _zspsl (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_);
621 prototype int_4 _zsvdc (complex_16 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, complex_16 _p_ s_, complex_16
622 _p_ e_, complex_16 _p_ u_, int_4 _p_ ldu_, complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ work_, int_4 _p_ job_,
623 int_4 _p_ info_);
624 prototype int_4 _ztrco (complex_16 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_8 _p_ rcond_, complex_16 _p_ z_, int_4
625 _p_ job_);
626 prototype int_4 _ztrdi (complex_16 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, complex_16 _p_ det_, int_4 _p_ job_, int_4 _p_
627 info_);
628 prototype int_4 _ztrsl (complex_16 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, complex_16 _p_ b_, int_4 _p_ job_, int_4 _p_
629 info_);
630
631
632
633
634
635
636
637
638
639
640
641
642
643 // VIF THU 20 NOV 2025 22:20:34 ** CCHDC ** CCHDC PAGE 00017
644
645 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
646 // S S U U B B R R O O U U T I NN N E
647 // S U U B B R R O O U U T I N N N E
648 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
649 // S U U B B R R O O U U T I N N N E
650 // S S U U B B R R O O U U T I N NN E
651 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
652
653 // CCCCC CCCCC H H DDDDDD CCCCC
654 // C C C C H H D D C C
655 // C C H H D D C
656 // C C HHHHHHH D D C
657 // C C H H D D C
658 // C C C C H H D D C C
659 // CCCCC CCCCC H H DDDDDD CCCCC
660
661
662 // VIF THU 20 NOV 2025 22:20:34 ** CCHDC ** DIAGNOSTICS PAGE 00018
663
664
665 // VIF THU 20 NOV 2025 22:20:34 ** CCHDC ** GENERATED CODE PAGE 00019
666
667 int_4 _cchdc (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ p_, complex_8 _p_ work_, int_4 _p_ jpvt_, int_4 _p_ job_,
668 int_4 _p_ info_)
669 { // ** body not listed **
851 }
852
853 // VIF THU 20 NOV 2025 22:20:34 ** CCHDD ** CCHDD PAGE 00023
854
855 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
856 // S S U U B B R R O O U U T I NN N E
857 // S U U B B R R O O U U T I N N N E
858 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
859 // S U U B B R R O O U U T I N N N E
860 // S S U U B B R R O O U U T I N NN E
861 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
862
863 // CCCCC CCCCC H H DDDDDD DDDDDD
864 // C C C C H H D D D D
865 // C C H H D D D D
866 // C C HHHHHHH D D D D
867 // C C H H D D D D
868 // C C C C H H D D D D
869 // CCCCC CCCCC H H DDDDDD DDDDDD
870
871
872 // VIF THU 20 NOV 2025 22:20:34 ** CCHDD ** DIAGNOSTICS PAGE 00024
873
874
875 // VIF THU 20 NOV 2025 22:20:34 ** CCHDD ** GENERATED CODE PAGE 00025
876
877 int_4 _cchdd (complex_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, complex_8 _p_ x_, complex_8 _p_ z_, int_4 _p_ ldz_, int_4
878 _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ info_)
879 { // ** body not listed **
950 }
951
952 // VIF THU 20 NOV 2025 22:20:34 ** CCHEX ** CCHEX PAGE 00027
953
954 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
955 // S S U U B B R R O O U U T I NN N E
956 // S U U B B R R O O U U T I N N N E
957 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
958 // S U U B B R R O O U U T I N N N E
959 // S S U U B B R R O O U U T I N NN E
960 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
961
962 // CCCCC CCCCC H H EEEEEEE X X
963 // C C C C H H E X X
964 // C C H H E X X
965 // C C HHHHHHH EEEEE X
966 // C C H H E X X
967 // C C C C H H E X X
968 // CCCCC CCCCC H H EEEEEEE X X
969
970
971 // VIF THU 20 NOV 2025 22:20:34 ** CCHEX ** DIAGNOSTICS PAGE 00028
972
973
974 // VIF THU 20 NOV 2025 22:20:34 ** CCHEX ** GENERATED CODE PAGE 00029
975
976 int_4 _cchex (complex_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, int_4 _p_ k_, int_4 _p_ l_, complex_8 _p_ z_, int_4 _p_
977 ldz_, int_4 _p_ nz_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ job_)
978 { // ** body not listed **
1100 }
1101
1102 // VIF THU 20 NOV 2025 22:20:34 ** CCHUD ** CCHUD PAGE 00032
1103
1104 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1105 // S S U U B B R R O O U U T I NN N E
1106 // S U U B B R R O O U U T I N N N E
1107 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1108 // S U U B B R R O O U U T I N N N E
1109 // S S U U B B R R O O U U T I N NN E
1110 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1111
1112 // CCCCC CCCCC H H U U DDDDDD
1113 // C C C C H H U U D D
1114 // C C H H U U D D
1115 // C C HHHHHHH U U D D
1116 // C C H H U U D D
1117 // C C C C H H U U D D
1118 // CCCCC CCCCC H H UUUUU DDDDDD
1119
1120
1121 // VIF THU 20 NOV 2025 22:20:34 ** CCHUD ** DIAGNOSTICS PAGE 00033
1122
1123
1124 // VIF THU 20 NOV 2025 22:20:34 ** CCHUD ** GENERATED CODE PAGE 00034
1125
1126 int_4 _cchud (complex_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, complex_8 _p_ x_, complex_8 _p_ z_, int_4 _p_ ldz_, int_4
1127 _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_)
1128 { // ** body not listed **
1168 }
1169
1170 // VIF THU 20 NOV 2025 22:20:34 ** CGBCO ** CGBCO PAGE 00035
1171
1172 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1173 // S S U U B B R R O O U U T I NN N E
1174 // S U U B B R R O O U U T I N N N E
1175 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1176 // S U U B B R R O O U U T I N N N E
1177 // S S U U B B R R O O U U T I N NN E
1178 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1179
1180 // CCCCC GGGGG BBBBBB CCCCC OOOOO
1181 // C C G G B B C C O O
1182 // C G B B C O O
1183 // C G GGGG BBBBBB C O O
1184 // C G G B B C O O
1185 // C C G G B B C C O O
1186 // CCCCC GGGGG BBBBBB CCCCC OOOOO
1187
1188
1189 // VIF THU 20 NOV 2025 22:20:34 ** CGBCO ** DIAGNOSTICS PAGE 00036
1190
1191
1192 // VIF THU 20 NOV 2025 22:20:34 ** CGBCO ** GENERATED CODE PAGE 00037
1193
1194 int_4 _cgbco (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4
1195 _p_ rcond_, complex_8 _p_ z_)
1196 { // ** body not listed **
1367 }
1368
1369 // VIF THU 20 NOV 2025 22:20:34 ** CGBDI ** CGBDI PAGE 00041
1370
1371 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1372 // S S U U B B R R O O U U T I NN N E
1373 // S U U B B R R O O U U T I N N N E
1374 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1375 // S U U B B R R O O U U T I N N N E
1376 // S S U U B B R R O O U U T I N NN E
1377 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1378
1379 // CCCCC GGGGG BBBBBB DDDDDD III
1380 // C C G G B B D D I
1381 // C G B B D D I
1382 // C G GGGG BBBBBB D D I
1383 // C G G B B D D I
1384 // C C G G B B D D I
1385 // CCCCC GGGGG BBBBBB DDDDDD III
1386
1387
1388 // VIF THU 20 NOV 2025 22:20:34 ** CGBDI ** DIAGNOSTICS PAGE 00042
1389
1390
1391 // VIF THU 20 NOV 2025 22:20:34 ** CGBDI ** GENERATED CODE PAGE 00043
1392
1393 int_4 _cgbdi (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_,
1394 complex_8 _p_ det_)
1395 { // ** body not listed **
1431 }
1432
1433 // VIF THU 20 NOV 2025 22:20:34 ** CGBFA ** CGBFA PAGE 00044
1434
1435 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1436 // S S U U B B R R O O U U T I NN N E
1437 // S U U B B R R O O U U T I N N N E
1438 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1439 // S U U B B R R O O U U T I N N N E
1440 // S S U U B B R R O O U U T I N NN E
1441 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1442
1443 // CCCCC GGGGG BBBBBB FFFFFFF A
1444 // C C G G B B F A A
1445 // C G B B F A A
1446 // C G GGGG BBBBBB FFFFF A A
1447 // C G G B B F AAAAAAA
1448 // C C G G B B F A A
1449 // CCCCC GGGGG BBBBBB F A A
1450
1451
1452 // VIF THU 20 NOV 2025 22:20:34 ** CGBFA ** DIAGNOSTICS PAGE 00045
1453
1454
1455 // VIF THU 20 NOV 2025 22:20:34 ** CGBFA ** GENERATED CODE PAGE 00046
1456
1457 int_4 _cgbfa (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4
1458 _p_ info_)
1459 { // ** body not listed **
1547 }
1548
1549 // VIF THU 20 NOV 2025 22:20:34 ** CGBSL ** CGBSL PAGE 00048
1550
1551 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1552 // S S U U B B R R O O U U T I NN N E
1553 // S U U B B R R O O U U T I N N N E
1554 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1555 // S U U B B R R O O U U T I N N N E
1556 // S S U U B B R R O O U U T I N NN E
1557 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1558
1559 // CCCCC GGGGG BBBBBB SSSSS L
1560 // C C G G B B S S L
1561 // C G B B S L
1562 // C G GGGG BBBBBB SSSSS L
1563 // C G G B B S L
1564 // C C G G B B S S L
1565 // CCCCC GGGGG BBBBBB SSSSS LLLLLLL
1566
1567
1568 // VIF THU 20 NOV 2025 22:20:34 ** CGBSL ** DIAGNOSTICS PAGE 00049
1569
1570
1571 // VIF THU 20 NOV 2025 22:20:34 ** CGBSL ** GENERATED CODE PAGE 00050
1572
1573 int_4 _cgbsl (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_,
1574 complex_8 _p_ b_, int_4 _p_ job_)
1575 { // ** body not listed **
1646 }
1647
1648 // VIF THU 20 NOV 2025 22:20:34 ** CGECO ** CGECO PAGE 00052
1649
1650 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1651 // S S U U B B R R O O U U T I NN N E
1652 // S U U B B R R O O U U T I N N N E
1653 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1654 // S U U B B R R O O U U T I N N N E
1655 // S S U U B B R R O O U U T I N NN E
1656 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1657
1658 // CCCCC GGGGG EEEEEEE CCCCC OOOOO
1659 // C C G G E C C O O
1660 // C G E C O O
1661 // C G GGGG EEEEE C O O
1662 // C G G E C O O
1663 // C C G G E C C O O
1664 // CCCCC GGGGG EEEEEEE CCCCC OOOOO
1665
1666
1667 // VIF THU 20 NOV 2025 22:20:34 ** CGECO ** DIAGNOSTICS PAGE 00053
1668
1669
1670 // VIF THU 20 NOV 2025 22:20:34 ** CGECO ** GENERATED CODE PAGE 00054
1671
1672 int_4 _cgeco (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
1673 { // ** body not listed **
1821 }
1822
1823 // VIF THU 20 NOV 2025 22:20:34 ** CGEDI ** CGEDI PAGE 00057
1824
1825 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1826 // S S U U B B R R O O U U T I NN N E
1827 // S U U B B R R O O U U T I N N N E
1828 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1829 // S U U B B R R O O U U T I N N N E
1830 // S S U U B B R R O O U U T I N NN E
1831 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1832
1833 // CCCCC GGGGG EEEEEEE DDDDDD III
1834 // C C G G E D D I
1835 // C G E D D I
1836 // C G GGGG EEEEE D D I
1837 // C G G E D D I
1838 // C C G G E D D I
1839 // CCCCC GGGGG EEEEEEE DDDDDD III
1840
1841
1842 // VIF THU 20 NOV 2025 22:20:34 ** CGEDI ** DIAGNOSTICS PAGE 00058
1843
1844
1845 // VIF THU 20 NOV 2025 22:20:34 ** CGEDI ** GENERATED CODE PAGE 00059
1846
1847 int_4 _cgedi (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, complex_8 _p_ det_, complex_8 _p_ work_,
1848 int_4 _p_ job_)
1849 { // ** body not listed **
1931 }
1932
1933 // VIF THU 20 NOV 2025 22:20:34 ** CGEFA ** CGEFA PAGE 00061
1934
1935 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1936 // S S U U B B R R O O U U T I NN N E
1937 // S U U B B R R O O U U T I N N N E
1938 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1939 // S U U B B R R O O U U T I N N N E
1940 // S S U U B B R R O O U U T I N NN E
1941 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1942
1943 // CCCCC GGGGG EEEEEEE FFFFFFF A
1944 // C C G G E F A A
1945 // C G E F A A
1946 // C G GGGG EEEEE FFFFF A A
1947 // C G G E F AAAAAAA
1948 // C C G G E F A A
1949 // CCCCC GGGGG EEEEEEE F A A
1950
1951
1952 // VIF THU 20 NOV 2025 22:20:34 ** CGEFA ** DIAGNOSTICS PAGE 00062
1953
1954
1955 // VIF THU 20 NOV 2025 22:20:34 ** CGEFA ** GENERATED CODE PAGE 00063
1956
1957 int_4 _cgefa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
1958 { // ** body not listed **
2011 }
2012
2013 // VIF THU 20 NOV 2025 22:20:34 ** CGESL ** CGESL PAGE 00065
2014
2015 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2016 // S S U U B B R R O O U U T I NN N E
2017 // S U U B B R R O O U U T I N N N E
2018 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2019 // S U U B B R R O O U U T I N N N E
2020 // S S U U B B R R O O U U T I N NN E
2021 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2022
2023 // CCCCC GGGGG EEEEEEE SSSSS L
2024 // C C G G E S S L
2025 // C G E S L
2026 // C G GGGG EEEEE SSSSS L
2027 // C G G E S L
2028 // C C G G E S S L
2029 // CCCCC GGGGG EEEEEEE SSSSS LLLLLLL
2030
2031
2032 // VIF THU 20 NOV 2025 22:20:34 ** CGESL ** DIAGNOSTICS PAGE 00066
2033
2034
2035 // VIF THU 20 NOV 2025 22:20:34 ** CGESL ** GENERATED CODE PAGE 00067
2036
2037 int_4 _cgesl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, complex_8 _p_ b_, int_4 _p_ job_)
2038 { // ** body not listed **
2096 }
2097
2098 // VIF THU 20 NOV 2025 22:20:34 ** CGTSL ** CGTSL PAGE 00069
2099
2100 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2101 // S S U U B B R R O O U U T I NN N E
2102 // S U U B B R R O O U U T I N N N E
2103 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2104 // S U U B B R R O O U U T I N N N E
2105 // S S U U B B R R O O U U T I N NN E
2106 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2107
2108 // CCCCC GGGGG TTTTTTT SSSSS L
2109 // C C G G T S S L
2110 // C G T S L
2111 // C G GGGG T SSSSS L
2112 // C G G T S L
2113 // C C G G T S S L
2114 // CCCCC GGGGG T SSSSS LLLLLLL
2115
2116
2117 // VIF THU 20 NOV 2025 22:20:34 ** CGTSL ** DIAGNOSTICS PAGE 00070
2118
2119
2120 // VIF THU 20 NOV 2025 22:20:34 ** CGTSL ** GENERATED CODE PAGE 00071
2121
2122 int_4 _cgtsl (int_4 _p_ n_, complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ e_, complex_8 _p_ b_, int_4 _p_ info_)
2123 { // ** body not listed **
2195 }
2196
2197 // VIF THU 20 NOV 2025 22:20:34 ** CHICO ** CHICO PAGE 00073
2198
2199 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2200 // S S U U B B R R O O U U T I NN N E
2201 // S U U B B R R O O U U T I N N N E
2202 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2203 // S U U B B R R O O U U T I N N N E
2204 // S S U U B B R R O O U U T I N NN E
2205 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2206
2207 // CCCCC H H III CCCCC OOOOO
2208 // C C H H I C C O O
2209 // C H H I C O O
2210 // C HHHHHHH I C O O
2211 // C H H I C O O
2212 // C C H H I C C O O
2213 // CCCCC H H III CCCCC OOOOO
2214
2215
2216 // VIF THU 20 NOV 2025 22:20:34 ** CHICO ** DIAGNOSTICS PAGE 00074
2217
2218
2219 // VIF THU 20 NOV 2025 22:20:34 ** CHICO ** GENERATED CODE PAGE 00075
2220
2221 int_4 _chico (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
2222 { // ** body not listed **
2492 { // ** body not listed **
2667 }
2668
2669 // VIF THU 20 NOV 2025 22:20:34 ** CHIFA ** CHIFA PAGE 00086
2670
2671 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2672 // S S U U B B R R O O U U T I NN N E
2673 // S U U B B R R O O U U T I N N N E
2674 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2675 // S U U B B R R O O U U T I N N N E
2676 // S S U U B B R R O O U U T I N NN E
2677 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2678
2679 // CCCCC H H III FFFFFFF A
2680 // C C H H I F A A
2681 // C H H I F A A
2682 // C HHHHHHH I FFFFF A A
2683 // C H H I F AAAAAAA
2684 // C C H H I F A A
2685 // CCCCC H H III F A A
2686
2687
2688 // VIF THU 20 NOV 2025 22:20:34 ** CHIFA ** DIAGNOSTICS PAGE 00087
2689
2690
2691 // VIF THU 20 NOV 2025 22:20:34 ** CHIFA ** GENERATED CODE PAGE 00088
2692
2693 int_4 _chifa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
2694 { // ** body not listed **
2851 }
2852
2853 // VIF THU 20 NOV 2025 22:20:34 ** CHISL ** CHISL PAGE 00092
2854
2855 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2856 // S S U U B B R R O O U U T I NN N E
2857 // S U U B B R R O O U U T I N N N E
2858 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2859 // S U U B B R R O O U U T I N N N E
2860 // S S U U B B R R O O U U T I N NN E
2861 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2862
2863 // CCCCC H H III SSSSS L
2864 // C C H H I S S L
2865 // C H H I S L
2866 // C HHHHHHH I SSSSS L
2867 // C H H I S L
2868 // C C H H I S S L
2869 // CCCCC H H III SSSSS LLLLLLL
2870
2871
2872 // VIF THU 20 NOV 2025 22:20:34 ** CHISL ** DIAGNOSTICS PAGE 00093
2873
2874
2875 // VIF THU 20 NOV 2025 22:20:34 ** CHISL ** GENERATED CODE PAGE 00094
2876
2877 int_4 _chisl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
2878 { // ** body not listed **
2982 }
2983
2984 // VIF THU 20 NOV 2025 22:20:34 ** CHPCO ** CHPCO PAGE 00097
2985
2986 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2987 // S S U U B B R R O O U U T I NN N E
2988 // S U U B B R R O O U U T I N N N E
2989 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2990 // S U U B B R R O O U U T I N N N E
2991 // S S U U B B R R O O U U T I N NN E
2992 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2993
2994 // CCCCC H H PPPPPP CCCCC OOOOO
2995 // C C H H P P C C O O
2996 // C H H P P C O O
2997 // C HHHHHHH PPPPPP C O O
2998 // C H H P C O O
2999 // C C H H P C C O O
3000 // CCCCC H H P CCCCC OOOOO
3001
3002
3003 // VIF THU 20 NOV 2025 22:20:34 ** CHPCO ** DIAGNOSTICS PAGE 00098
3004
3005
3006 // VIF THU 20 NOV 2025 22:20:34 ** CHPCO ** GENERATED CODE PAGE 00099
3007
3008 int_4 _chpco (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
3009 { // ** body not listed **
3309 { // ** body not listed **
3505 }
3506
3507 // VIF THU 20 NOV 2025 22:20:34 ** CHPFA ** CHPFA PAGE 00111
3508
3509 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3510 // S S U U B B R R O O U U T I NN N E
3511 // S U U B B R R O O U U T I N N N E
3512 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3513 // S U U B B R R O O U U T I N N N E
3514 // S S U U B B R R O O U U T I N NN E
3515 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3516
3517 // CCCCC H H PPPPPP FFFFFFF A
3518 // C C H H P P F A A
3519 // C H H P P F A A
3520 // C HHHHHHH PPPPPP FFFFF A A
3521 // C H H P F AAAAAAA
3522 // C C H H P F A A
3523 // CCCCC H H P F A A
3524
3525
3526 // VIF THU 20 NOV 2025 22:20:34 ** CHPFA ** DIAGNOSTICS PAGE 00112
3527
3528
3529 // VIF THU 20 NOV 2025 22:20:34 ** CHPFA ** GENERATED CODE PAGE 00113
3530
3531 int_4 _chpfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
3532 { // ** body not listed **
3717 }
3718
3719 // VIF THU 20 NOV 2025 22:20:34 ** CHPSL ** CHPSL PAGE 00117
3720
3721 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3722 // S S U U B B R R O O U U T I NN N E
3723 // S U U B B R R O O U U T I N N N E
3724 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3725 // S U U B B R R O O U U T I N N N E
3726 // S S U U B B R R O O U U T I N NN E
3727 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3728
3729 // CCCCC H H PPPPPP SSSSS L
3730 // C C H H P P S S L
3731 // C H H P P S L
3732 // C HHHHHHH PPPPPP SSSSS L
3733 // C H H P S L
3734 // C C H H P S S L
3735 // CCCCC H H P SSSSS LLLLLLL
3736
3737
3738 // VIF THU 20 NOV 2025 22:20:34 ** CHPSL ** DIAGNOSTICS PAGE 00118
3739
3740
3741 // VIF THU 20 NOV 2025 22:20:34 ** CHPSL ** GENERATED CODE PAGE 00119
3742
3743 int_4 _chpsl (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
3744 { // ** body not listed **
3859 }
3860
3861 // VIF THU 20 NOV 2025 22:20:34 ** CPBCO ** CPBCO PAGE 00122
3862
3863 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3864 // S S U U B B R R O O U U T I NN N E
3865 // S U U B B R R O O U U T I N N N E
3866 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3867 // S U U B B R R O O U U T I N N N E
3868 // S S U U B B R R O O U U T I N NN E
3869 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3870
3871 // CCCCC PPPPPP BBBBBB CCCCC OOOOO
3872 // C C P P B B C C O O
3873 // C P P B B C O O
3874 // C PPPPPP BBBBBB C O O
3875 // C P B B C O O
3876 // C C P B B C C O O
3877 // CCCCC P BBBBBB CCCCC OOOOO
3878
3879
3880 // VIF THU 20 NOV 2025 22:20:34 ** CPBCO ** DIAGNOSTICS PAGE 00123
3881
3882
3883 // VIF THU 20 NOV 2025 22:20:34 ** CPBCO ** GENERATED CODE PAGE 00124
3884
3885 int_4 _cpbco (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ rcond_, complex_8 _p_ z_,
3886 int_4 _p_ info_)
3887 { // ** body not listed **
4045 }
4046
4047 // VIF THU 20 NOV 2025 22:20:34 ** CPBDI ** CPBDI PAGE 00128
4048
4049 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4050 // S S U U B B R R O O U U T I NN N E
4051 // S U U B B R R O O U U T I N N N E
4052 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4053 // S U U B B R R O O U U T I N N N E
4054 // S S U U B B R R O O U U T I N NN E
4055 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4056
4057 // CCCCC PPPPPP BBBBBB DDDDDD III
4058 // C C P P B B D D I
4059 // C P P B B D D I
4060 // C PPPPPP BBBBBB D D I
4061 // C P B B D D I
4062 // C C P B B D D I
4063 // CCCCC P BBBBBB DDDDDD III
4064
4065
4066 // VIF THU 20 NOV 2025 22:20:34 ** CPBDI ** DIAGNOSTICS PAGE 00129
4067
4068
4069 // VIF THU 20 NOV 2025 22:20:34 ** CPBDI ** GENERATED CODE PAGE 00130
4070
4071 int_4 _cpbdi (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ det_)
4072 { // ** body not listed **
4104 }
4105
4106 // VIF THU 20 NOV 2025 22:20:34 ** CPBFA ** CPBFA PAGE 00131
4107
4108 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4109 // S S U U B B R R O O U U T I NN N E
4110 // S U U B B R R O O U U T I N N N E
4111 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4112 // S U U B B R R O O U U T I N N N E
4113 // S S U U B B R R O O U U T I N NN E
4114 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4115
4116 // CCCCC PPPPPP BBBBBB FFFFFFF A
4117 // C C P P B B F A A
4118 // C P P B B F A A
4119 // C PPPPPP BBBBBB FFFFF A A
4120 // C P B B F AAAAAAA
4121 // C C P B B F A A
4122 // CCCCC P BBBBBB F A A
4123
4124
4125 // VIF THU 20 NOV 2025 22:20:34 ** CPBFA ** DIAGNOSTICS PAGE 00132
4126
4127
4128 // VIF THU 20 NOV 2025 22:20:34 ** CPBFA ** GENERATED CODE PAGE 00133
4129
4130 int_4 _cpbfa (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
4131 { // ** body not listed **
4166 }
4167
4168 // VIF THU 20 NOV 2025 22:20:34 ** CPBSL ** CPBSL PAGE 00134
4169
4170 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4171 // S S U U B B R R O O U U T I NN N E
4172 // S U U B B R R O O U U T I N N N E
4173 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4174 // S U U B B R R O O U U T I N N N E
4175 // S S U U B B R R O O U U T I N NN E
4176 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4177
4178 // CCCCC PPPPPP BBBBBB SSSSS L
4179 // C C P P B B S S L
4180 // C P P B B S L
4181 // C PPPPPP BBBBBB SSSSS L
4182 // C P B B S L
4183 // C C P B B S S L
4184 // CCCCC P BBBBBB SSSSS LLLLLLL
4185
4186
4187 // VIF THU 20 NOV 2025 22:20:34 ** CPBSL ** DIAGNOSTICS PAGE 00135
4188
4189
4190 // VIF THU 20 NOV 2025 22:20:34 ** CPBSL ** GENERATED CODE PAGE 00136
4191
4192 int_4 _cpbsl (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, complex_8 _p_ b_)
4193 { // ** body not listed **
4215 }
4216
4217 // VIF THU 20 NOV 2025 22:20:34 ** CPOCO ** CPOCO PAGE 00137
4218
4219 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4220 // S S U U B B R R O O U U T I NN N E
4221 // S U U B B R R O O U U T I N N N E
4222 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4223 // S U U B B R R O O U U T I N N N E
4224 // S S U U B B R R O O U U T I N NN E
4225 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4226
4227 // CCCCC PPPPPP OOOOO CCCCC OOOOO
4228 // C C P P O O C C O O
4229 // C P P O O C O O
4230 // C PPPPPP O O C O O
4231 // C P O O C O O
4232 // C C P O O C C O O
4233 // CCCCC P OOOOO CCCCC OOOOO
4234
4235
4236 // VIF THU 20 NOV 2025 22:20:34 ** CPOCO ** DIAGNOSTICS PAGE 00138
4237
4238
4239 // VIF THU 20 NOV 2025 22:20:34 ** CPOCO ** GENERATED CODE PAGE 00139
4240
4241 int_4 _cpoco (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ rcond_, complex_8 _p_ z_, int_4 _p_ info_)
4242 { // ** body not listed **
4382 }
4383
4384 // VIF THU 20 NOV 2025 22:20:34 ** CPODI ** CPODI PAGE 00142
4385
4386 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4387 // S S U U B B R R O O U U T I NN N E
4388 // S U U B B R R O O U U T I N N N E
4389 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4390 // S U U B B R R O O U U T I N N N E
4391 // S S U U B B R R O O U U T I N NN E
4392 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4393
4394 // CCCCC PPPPPP OOOOO DDDDDD III
4395 // C C P P O O D D I
4396 // C P P O O D D I
4397 // C PPPPPP O O D D I
4398 // C P O O D D I
4399 // C C P O O D D I
4400 // CCCCC P OOOOO DDDDDD III
4401
4402
4403 // VIF THU 20 NOV 2025 22:20:34 ** CPODI ** DIAGNOSTICS PAGE 00143
4404
4405
4406 // VIF THU 20 NOV 2025 22:20:34 ** CPODI ** GENERATED CODE PAGE 00144
4407
4408 int_4 _cpodi (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
4409 { // ** body not listed **
4481 }
4482
4483 // VIF THU 20 NOV 2025 22:20:34 ** CPOFA ** CPOFA PAGE 00146
4484
4485 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4486 // S S U U B B R R O O U U T I NN N E
4487 // S U U B B R R O O U U T I N N N E
4488 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4489 // S U U B B R R O O U U T I N N N E
4490 // S S U U B B R R O O U U T I N NN E
4491 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4492
4493 // CCCCC PPPPPP OOOOO FFFFFFF A
4494 // C C P P O O F A A
4495 // C P P O O F A A
4496 // C PPPPPP O O FFFFF A A
4497 // C P O O F AAAAAAA
4498 // C C P O O F A A
4499 // CCCCC P OOOOO F A A
4500
4501
4502 // VIF THU 20 NOV 2025 22:20:34 ** CPOFA ** DIAGNOSTICS PAGE 00147
4503
4504
4505 // VIF THU 20 NOV 2025 22:20:34 ** CPOFA ** GENERATED CODE PAGE 00148
4506
4507 int_4 _cpofa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
4508 { // ** body not listed **
4539 }
4540
4541 // VIF THU 20 NOV 2025 22:20:34 ** CPOSL ** CPOSL PAGE 00149
4542
4543 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4544 // S S U U B B R R O O U U T I NN N E
4545 // S U U B B R R O O U U T I N N N E
4546 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4547 // S U U B B R R O O U U T I N N N E
4548 // S S U U B B R R O O U U T I N NN E
4549 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4550
4551 // CCCCC PPPPPP OOOOO SSSSS L
4552 // C C P P O O S S L
4553 // C P P O O S L
4554 // C PPPPPP O O SSSSS L
4555 // C P O O S L
4556 // C C P O O S S L
4557 // CCCCC P OOOOO SSSSS LLLLLLL
4558
4559
4560 // VIF THU 20 NOV 2025 22:20:34 ** CPOSL ** DIAGNOSTICS PAGE 00150
4561
4562
4563 // VIF THU 20 NOV 2025 22:20:34 ** CPOSL ** GENERATED CODE PAGE 00151
4564
4565 int_4 _cposl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ b_)
4566 { // ** body not listed **
4583 }
4584
4585 // VIF THU 20 NOV 2025 22:20:34 ** CPPCO ** CPPCO PAGE 00152
4586
4587 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4588 // S S U U B B R R O O U U T I NN N E
4589 // S U U B B R R O O U U T I N N N E
4590 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4591 // S U U B B R R O O U U T I N N N E
4592 // S S U U B B R R O O U U T I N NN E
4593 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4594
4595 // CCCCC PPPPPP PPPPPP CCCCC OOOOO
4596 // C C P P P P C C O O
4597 // C P P P P C O O
4598 // C PPPPPP PPPPPP C O O
4599 // C P P C O O
4600 // C C P P C C O O
4601 // CCCCC P P CCCCC OOOOO
4602
4603
4604 // VIF THU 20 NOV 2025 22:20:34 ** CPPCO ** DIAGNOSTICS PAGE 00153
4605
4606
4607 // VIF THU 20 NOV 2025 22:20:34 ** CPPCO ** GENERATED CODE PAGE 00154
4608
4609 int_4 _cppco (complex_8 _p_ ap_, int_4 _p_ n_, real_4 _p_ rcond_, complex_8 _p_ z_, int_4 _p_ info_)
4610 { // ** body not listed **
4765 }
4766
4767 // VIF THU 20 NOV 2025 22:20:34 ** CPPDI ** CPPDI PAGE 00158
4768
4769 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4770 // S S U U B B R R O O U U T I NN N E
4771 // S U U B B R R O O U U T I N N N E
4772 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4773 // S U U B B R R O O U U T I N N N E
4774 // S S U U B B R R O O U U T I N NN E
4775 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4776
4777 // CCCCC PPPPPP PPPPPP DDDDDD III
4778 // C C P P P P D D I
4779 // C P P P P D D I
4780 // C PPPPPP PPPPPP D D I
4781 // C P P D D I
4782 // C C P P D D I
4783 // CCCCC P P DDDDDD III
4784
4785
4786 // VIF THU 20 NOV 2025 22:20:34 ** CPPDI ** DIAGNOSTICS PAGE 00159
4787
4788
4789 // VIF THU 20 NOV 2025 22:20:34 ** CPPDI ** GENERATED CODE PAGE 00160
4790
4791 int_4 _cppdi (complex_8 _p_ ap_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
4792 { // ** body not listed **
4880 }
4881
4882 // VIF THU 20 NOV 2025 22:20:34 ** CPPFA ** CPPFA PAGE 00162
4883
4884 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4885 // S S U U B B R R O O U U T I NN N E
4886 // S U U B B R R O O U U T I N N N E
4887 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4888 // S U U B B R R O O U U T I N N N E
4889 // S S U U B B R R O O U U T I N NN E
4890 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4891
4892 // CCCCC PPPPPP PPPPPP FFFFFFF A
4893 // C C P P P P F A A
4894 // C P P P P F A A
4895 // C PPPPPP PPPPPP FFFFF A A
4896 // C P P F AAAAAAA
4897 // C C P P F A A
4898 // CCCCC P P F A A
4899
4900
4901 // VIF THU 20 NOV 2025 22:20:34 ** CPPFA ** DIAGNOSTICS PAGE 00163
4902
4903
4904 // VIF THU 20 NOV 2025 22:20:34 ** CPPFA ** GENERATED CODE PAGE 00164
4905
4906 int_4 _cppfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
4907 { // ** body not listed **
4943 }
4944
4945 // VIF THU 20 NOV 2025 22:20:34 ** CPPSL ** CPPSL PAGE 00165
4946
4947 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4948 // S S U U B B R R O O U U T I NN N E
4949 // S U U B B R R O O U U T I N N N E
4950 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4951 // S U U B B R R O O U U T I N N N E
4952 // S S U U B B R R O O U U T I N NN E
4953 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4954
4955 // CCCCC PPPPPP PPPPPP SSSSS L
4956 // C C P P P P S S L
4957 // C P P P P S L
4958 // C PPPPPP PPPPPP SSSSS L
4959 // C P P S L
4960 // C C P P S S L
4961 // CCCCC P P SSSSS LLLLLLL
4962
4963
4964 // VIF THU 20 NOV 2025 22:20:34 ** CPPSL ** DIAGNOSTICS PAGE 00166
4965
4966
4967 // VIF THU 20 NOV 2025 22:20:34 ** CPPSL ** GENERATED CODE PAGE 00167
4968
4969 int_4 _cppsl (complex_8 _p_ ap_, int_4 _p_ n_, complex_8 _p_ b_)
4970 { // ** body not listed **
4990 }
4991
4992 // VIF THU 20 NOV 2025 22:20:34 ** CPTSL ** CPTSL PAGE 00168
4993
4994 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4995 // S S U U B B R R O O U U T I NN N E
4996 // S U U B B R R O O U U T I N N N E
4997 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4998 // S U U B B R R O O U U T I N N N E
4999 // S S U U B B R R O O U U T I N NN E
5000 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5001
5002 // CCCCC PPPPPP TTTTTTT SSSSS L
5003 // C C P P T S S L
5004 // C P P T S L
5005 // C PPPPPP T SSSSS L
5006 // C P T S L
5007 // C C P T S S L
5008 // CCCCC P T SSSSS LLLLLLL
5009
5010
5011 // VIF THU 20 NOV 2025 22:20:34 ** CPTSL ** DIAGNOSTICS PAGE 00169
5012
5013
5014 // VIF THU 20 NOV 2025 22:20:34 ** CPTSL ** GENERATED CODE PAGE 00170
5015
5016 int_4 _cptsl (int_4 _p_ n_, complex_8 _p_ d_, complex_8 _p_ e_, complex_8 _p_ b_)
5017 { // ** body not listed **
5071 }
5072
5073 // VIF THU 20 NOV 2025 22:20:34 ** CQRDC ** CQRDC PAGE 00172
5074
5075 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5076 // S S U U B B R R O O U U T I NN N E
5077 // S U U B B R R O O U U T I N N N E
5078 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5079 // S U U B B R R O O U U T I N N N E
5080 // S S U U B B R R O O U U T I N NN E
5081 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5082
5083 // CCCCC QQQQQ RRRRRR DDDDDD CCCCC
5084 // C C Q Q R R D D C C
5085 // C Q Q R R D D C
5086 // C Q Q RRRRRR D D C
5087 // C Q Q Q R R D D C
5088 // C C Q Q R R D D C C
5089 // CCCCC QQQQ Q R R DDDDDD CCCCC
5090
5091
5092 // VIF THU 20 NOV 2025 22:20:34 ** CQRDC ** DIAGNOSTICS PAGE 00173
5093
5094
5095 // VIF THU 20 NOV 2025 22:20:34 ** CQRDC ** GENERATED CODE PAGE 00174
5096
5097 int_4 _cqrdc (complex_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, complex_8 _p_ qraux_, int_4 _p_ jpvt_,
5098 complex_8 _p_ work_, int_4 _p_ job_)
5099 { // ** body not listed **
5245 }
5246
5247 // VIF THU 20 NOV 2025 22:20:34 ** CQRSL ** CQRSL PAGE 00177
5248
5249 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5250 // S S U U B B R R O O U U T I NN N E
5251 // S U U B B R R O O U U T I N N N E
5252 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5253 // S U U B B R R O O U U T I N N N E
5254 // S S U U B B R R O O U U T I N NN E
5255 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5256
5257 // CCCCC QQQQQ RRRRRR SSSSS L
5258 // C C Q Q R R S S L
5259 // C Q Q R R S L
5260 // C Q Q RRRRRR SSSSS L
5261 // C Q Q Q R R S L
5262 // C C Q Q R R S S L
5263 // CCCCC QQQQ Q R R SSSSS LLLLLLL
5264
5265
5266 // VIF THU 20 NOV 2025 22:20:34 ** CQRSL ** DIAGNOSTICS PAGE 00178
5267
5268
5269 // VIF THU 20 NOV 2025 22:20:34 ** CQRSL ** GENERATED CODE PAGE 00179
5270
5271 int_4 _cqrsl (complex_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ qraux_, complex_8 _p_ y_,
5272 complex_8 _p_ qy_, complex_8 _p_ qty_, complex_8 _p_ b_, complex_8 _p_ rsd_, complex_8 _p_ xb_, int_4 _p_ job_, int_4
5273 _p_ info_)
5274 { // ** body not listed **
5442 }
5443
5444 // VIF THU 20 NOV 2025 22:20:34 ** CSICO ** CSICO PAGE 00183
5445
5446 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5447 // S S U U B B R R O O U U T I NN N E
5448 // S U U B B R R O O U U T I N N N E
5449 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5450 // S U U B B R R O O U U T I N N N E
5451 // S S U U B B R R O O U U T I N NN E
5452 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5453
5454 // CCCCC SSSSS III CCCCC OOOOO
5455 // C C S S I C C O O
5456 // C S I C O O
5457 // C SSSSS I C O O
5458 // C S I C O O
5459 // C C S S I C C O O
5460 // CCCCC SSSSS III CCCCC OOOOO
5461
5462
5463 // VIF THU 20 NOV 2025 22:20:34 ** CSICO ** DIAGNOSTICS PAGE 00184
5464
5465
5466 // VIF THU 20 NOV 2025 22:20:34 ** CSICO ** GENERATED CODE PAGE 00185
5467
5468 int_4 _csico (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
5469 { // ** body not listed **
5739 { // ** body not listed **
5883 }
5884
5885 // VIF THU 20 NOV 2025 22:20:34 ** CSIFA ** CSIFA PAGE 00195
5886
5887 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5888 // S S U U B B R R O O U U T I NN N E
5889 // S U U B B R R O O U U T I N N N E
5890 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5891 // S U U B B R R O O U U T I N N N E
5892 // S S U U B B R R O O U U T I N NN E
5893 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5894
5895 // CCCCC SSSSS III FFFFFFF A
5896 // C C S S I F A A
5897 // C S I F A A
5898 // C SSSSS I FFFFF A A
5899 // C S I F AAAAAAA
5900 // C C S S I F A A
5901 // CCCCC SSSSS III F A A
5902
5903
5904 // VIF THU 20 NOV 2025 22:20:34 ** CSIFA ** DIAGNOSTICS PAGE 00196
5905
5906
5907 // VIF THU 20 NOV 2025 22:20:34 ** CSIFA ** GENERATED CODE PAGE 00197
5908
5909 int_4 _csifa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
5910 { // ** body not listed **
6065 }
6066
6067 // VIF THU 20 NOV 2025 22:20:34 ** CSISL ** CSISL PAGE 00201
6068
6069 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6070 // S S U U B B R R O O U U T I NN N E
6071 // S U U B B R R O O U U T I N N N E
6072 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6073 // S U U B B R R O O U U T I N N N E
6074 // S S U U B B R R O O U U T I N NN E
6075 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6076
6077 // CCCCC SSSSS III SSSSS L
6078 // C C S S I S S L
6079 // C S I S L
6080 // C SSSSS I SSSSS L
6081 // C S I S L
6082 // C C S S I S S L
6083 // CCCCC SSSSS III SSSSS LLLLLLL
6084
6085
6086 // VIF THU 20 NOV 2025 22:20:34 ** CSISL ** DIAGNOSTICS PAGE 00202
6087
6088
6089 // VIF THU 20 NOV 2025 22:20:34 ** CSISL ** GENERATED CODE PAGE 00203
6090
6091 int_4 _csisl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
6092 { // ** body not listed **
6196 }
6197
6198 // VIF THU 20 NOV 2025 22:20:34 ** CSPCO ** CSPCO PAGE 00206
6199
6200 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6201 // S S U U B B R R O O U U T I NN N E
6202 // S U U B B R R O O U U T I N N N E
6203 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6204 // S U U B B R R O O U U T I N N N E
6205 // S S U U B B R R O O U U T I N NN E
6206 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6207
6208 // CCCCC SSSSS PPPPPP CCCCC OOOOO
6209 // C C S S P P C C O O
6210 // C S P P C O O
6211 // C SSSSS PPPPPP C O O
6212 // C S P C O O
6213 // C C S S P C C O O
6214 // CCCCC SSSSS P CCCCC OOOOO
6215
6216
6217 // VIF THU 20 NOV 2025 22:20:34 ** CSPCO ** DIAGNOSTICS PAGE 00207
6218
6219
6220 // VIF THU 20 NOV 2025 22:20:34 ** CSPCO ** GENERATED CODE PAGE 00208
6221
6222 int_4 _cspco (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
6223 { // ** body not listed **
6523 { // ** body not listed **
6693 }
6694
6695 // VIF THU 20 NOV 2025 22:20:34 ** CSPFA ** CSPFA PAGE 00220
6696
6697 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6698 // S S U U B B R R O O U U T I NN N E
6699 // S U U B B R R O O U U T I N N N E
6700 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6701 // S U U B B R R O O U U T I N N N E
6702 // S S U U B B R R O O U U T I N NN E
6703 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6704
6705 // CCCCC SSSSS PPPPPP FFFFFFF A
6706 // C C S S P P F A A
6707 // C S P P F A A
6708 // C SSSSS PPPPPP FFFFF A A
6709 // C S P F AAAAAAA
6710 // C C S S P F A A
6711 // CCCCC SSSSS P F A A
6712
6713
6714 // VIF THU 20 NOV 2025 22:20:34 ** CSPFA ** DIAGNOSTICS PAGE 00221
6715
6716
6717 // VIF THU 20 NOV 2025 22:20:34 ** CSPFA ** GENERATED CODE PAGE 00222
6718
6719 int_4 _cspfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
6720 { // ** body not listed **
6903 }
6904
6905 // VIF THU 20 NOV 2025 22:20:34 ** CSPSL ** CSPSL PAGE 00226
6906
6907 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6908 // S S U U B B R R O O U U T I NN N E
6909 // S U U B B R R O O U U T I N N N E
6910 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6911 // S U U B B R R O O U U T I N N N E
6912 // S S U U B B R R O O U U T I N NN E
6913 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6914
6915 // CCCCC SSSSS PPPPPP SSSSS L
6916 // C C S S P P S S L
6917 // C S P P S L
6918 // C SSSSS PPPPPP SSSSS L
6919 // C S P S L
6920 // C C S S P S S L
6921 // CCCCC SSSSS P SSSSS LLLLLLL
6922
6923
6924 // VIF THU 20 NOV 2025 22:20:34 ** CSPSL ** DIAGNOSTICS PAGE 00227
6925
6926
6927 // VIF THU 20 NOV 2025 22:20:34 ** CSPSL ** GENERATED CODE PAGE 00228
6928
6929 int_4 _cspsl (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
6930 { // ** body not listed **
7045 }
7046
7047 // VIF THU 20 NOV 2025 22:20:34 ** CSVDC ** CSVDC PAGE 00231
7048
7049 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7050 // S S U U B B R R O O U U T I NN N E
7051 // S U U B B R R O O U U T I N N N E
7052 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7053 // S U U B B R R O O U U T I N N N E
7054 // S S U U B B R R O O U U T I N NN E
7055 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7056
7057 // CCCCC SSSSS V V DDDDDD CCCCC
7058 // C C S S V V D D C C
7059 // C S V V D D C
7060 // C SSSSS V V D D C
7061 // C S V V D D C
7062 // C C S S V V D D C C
7063 // CCCCC SSSSS V DDDDDD CCCCC
7064
7065
7066 // VIF THU 20 NOV 2025 22:20:34 ** CSVDC ** DIAGNOSTICS PAGE 00232
7067
7068
7069 // VIF THU 20 NOV 2025 22:20:34 ** CSVDC ** GENERATED CODE PAGE 00233
7070
7071 int_4 _csvdc (complex_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, complex_8 _p_ s_, complex_8 _p_ e_,
7072 complex_8 _p_ u_, int_4 _p_ ldu_, complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ work_, int_4 _p_ job_, int_4 _p_
7073 info_)
7074 { // ** body not listed **
7526 }
7527
7528 // VIF THU 20 NOV 2025 22:20:34 ** CTRCO ** CTRCO PAGE 00242
7529
7530 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7531 // S S U U B B R R O O U U T I NN N E
7532 // S U U B B R R O O U U T I N N N E
7533 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7534 // S U U B B R R O O U U T I N N N E
7535 // S S U U B B R R O O U U T I N NN E
7536 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7537
7538 // CCCCC TTTTTTT RRRRRR CCCCC OOOOO
7539 // C C T R R C C O O
7540 // C T R R C O O
7541 // C T RRRRRR C O O
7542 // C T R R C O O
7543 // C C T R R C C O O
7544 // CCCCC T R R CCCCC OOOOO
7545
7546
7547 // VIF THU 20 NOV 2025 22:20:34 ** CTRCO ** DIAGNOSTICS PAGE 00243
7548
7549
7550 // VIF THU 20 NOV 2025 22:20:34 ** CTRCO ** GENERATED CODE PAGE 00244
7551
7552 int_4 _ctrco (complex_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_4 _p_ rcond_, complex_8 _p_ z_, int_4 _p_ job_)
7553 { // ** body not listed **
7693 }
7694
7695 // VIF THU 20 NOV 2025 22:20:34 ** CTRDI ** CTRDI PAGE 00247
7696
7697 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7698 // S S U U B B R R O O U U T I NN N E
7699 // S U U B B R R O O U U T I N N N E
7700 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7701 // S U U B B R R O O U U T I N N N E
7702 // S S U U B B R R O O U U T I N NN E
7703 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7704
7705 // CCCCC TTTTTTT RRRRRR DDDDDD III
7706 // C C T R R D D I
7707 // C T R R D D I
7708 // C T RRRRRR D D I
7709 // C T R R D D I
7710 // C C T R R D D I
7711 // CCCCC T R R DDDDDD III
7712
7713
7714 // VIF THU 20 NOV 2025 22:20:34 ** CTRDI ** DIAGNOSTICS PAGE 00248
7715
7716
7717 // VIF THU 20 NOV 2025 22:20:34 ** CTRDI ** GENERATED CODE PAGE 00249
7718
7719 int_4 _ctrdi (complex_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, complex_8 _p_ det_, int_4 _p_ job_, int_4 _p_ info_)
7720 { // ** body not listed **
7817 }
7818
7819 // VIF THU 20 NOV 2025 22:20:34 ** CTRSL ** CTRSL PAGE 00251
7820
7821 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7822 // S S U U B B R R O O U U T I NN N E
7823 // S U U B B R R O O U U T I N N N E
7824 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7825 // S U U B B R R O O U U T I N N N E
7826 // S S U U B B R R O O U U T I N NN E
7827 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7828
7829 // CCCCC TTTTTTT RRRRRR SSSSS L
7830 // C C T R R S S L
7831 // C T R R S L
7832 // C T RRRRRR SSSSS L
7833 // C T R R S L
7834 // C C T R R S S L
7835 // CCCCC T R R SSSSS LLLLLLL
7836
7837
7838 // VIF THU 20 NOV 2025 22:20:34 ** CTRSL ** DIAGNOSTICS PAGE 00252
7839
7840
7841 // VIF THU 20 NOV 2025 22:20:34 ** CTRSL ** GENERATED CODE PAGE 00253
7842
7843 int_4 _ctrsl (complex_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, complex_8 _p_ b_, int_4 _p_ job_, int_4 _p_ info_)
7844 { // ** body not listed **
7925 }
7926
7927 // VIF THU 20 NOV 2025 22:20:34 ** DCHDC ** DCHDC PAGE 00255
7928
7929 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7930 // S S U U B B R R O O U U T I NN N E
7931 // S U U B B R R O O U U T I N N N E
7932 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7933 // S U U B B R R O O U U T I N N N E
7934 // S S U U B B R R O O U U T I N NN E
7935 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7936
7937 // DDDDDD CCCCC H H DDDDDD CCCCC
7938 // D D C C H H D D C C
7939 // D D C H H D D C
7940 // D D C HHHHHHH D D C
7941 // D D C H H D D C
7942 // D D C C H H D D C C
7943 // DDDDDD CCCCC H H DDDDDD CCCCC
7944
7945
7946 // VIF THU 20 NOV 2025 22:20:34 ** DCHDC ** DIAGNOSTICS PAGE 00256
7947
7948
7949 // VIF THU 20 NOV 2025 22:20:34 ** DCHDC ** GENERATED CODE PAGE 00257
7950
7951 int_4 _dchdc (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ p_, real_8 _p_ work_, int_4 _p_ jpvt_, int_4 _p_ job_, int_4 _p_
7952 info_)
7953 { // ** body not listed **
8131 }
8132
8133 // VIF THU 20 NOV 2025 22:20:34 ** DCHDD ** DCHDD PAGE 00261
8134
8135 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8136 // S S U U B B R R O O U U T I NN N E
8137 // S U U B B R R O O U U T I N N N E
8138 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8139 // S U U B B R R O O U U T I N N N E
8140 // S S U U B B R R O O U U T I N NN E
8141 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8142
8143 // DDDDDD CCCCC H H DDDDDD DDDDDD
8144 // D D C C H H D D D D
8145 // D D C H H D D D D
8146 // D D C HHHHHHH D D D D
8147 // D D C H H D D D D
8148 // D D C C H H D D D D
8149 // DDDDDD CCCCC H H DDDDDD DDDDDD
8150
8151
8152 // VIF THU 20 NOV 2025 22:20:34 ** DCHDD ** DIAGNOSTICS PAGE 00262
8153
8154
8155 // VIF THU 20 NOV 2025 22:20:34 ** DCHDD ** GENERATED CODE PAGE 00263
8156
8157 int_4 _dchdd (real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, real_8 _p_ x_, real_8 _p_ z_, int_4 _p_ ldz_, int_4 _p_ nz_,
8158 real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ info_)
8159 { // ** body not listed **
8230 }
8231
8232 // VIF THU 20 NOV 2025 22:20:34 ** DCHEX ** DCHEX PAGE 00265
8233
8234 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8235 // S S U U B B R R O O U U T I NN N E
8236 // S U U B B R R O O U U T I N N N E
8237 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8238 // S U U B B R R O O U U T I N N N E
8239 // S S U U B B R R O O U U T I N NN E
8240 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8241
8242 // DDDDDD CCCCC H H EEEEEEE X X
8243 // D D C C H H E X X
8244 // D D C H H E X X
8245 // D D C HHHHHHH EEEEE X
8246 // D D C H H E X X
8247 // D D C C H H E X X
8248 // DDDDDD CCCCC H H EEEEEEE X X
8249
8250
8251 // VIF THU 20 NOV 2025 22:20:34 ** DCHEX ** DIAGNOSTICS PAGE 00266
8252
8253
8254 // VIF THU 20 NOV 2025 22:20:34 ** DCHEX ** GENERATED CODE PAGE 00267
8255
8256 int_4 _dchex (real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, int_4 _p_ k_, int_4 _p_ l_, real_8 _p_ z_, int_4 _p_ ldz_,
8257 int_4 _p_ nz_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ job_)
8258 { // ** body not listed **
8380 }
8381
8382 // VIF THU 20 NOV 2025 22:20:34 ** DCHUD ** DCHUD PAGE 00270
8383
8384 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8385 // S S U U B B R R O O U U T I NN N E
8386 // S U U B B R R O O U U T I N N N E
8387 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8388 // S U U B B R R O O U U T I N N N E
8389 // S S U U B B R R O O U U T I N NN E
8390 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8391
8392 // DDDDDD CCCCC H H U U DDDDDD
8393 // D D C C H H U U D D
8394 // D D C H H U U D D
8395 // D D C HHHHHHH U U D D
8396 // D D C H H U U D D
8397 // D D C C H H U U D D
8398 // DDDDDD CCCCC H H UUUUU DDDDDD
8399
8400
8401 // VIF THU 20 NOV 2025 22:20:34 ** DCHUD ** DIAGNOSTICS PAGE 00271
8402
8403
8404 // VIF THU 20 NOV 2025 22:20:34 ** DCHUD ** GENERATED CODE PAGE 00272
8405
8406 int_4 _dchud (real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, real_8 _p_ x_, real_8 _p_ z_, int_4 _p_ ldz_, int_4 _p_ nz_,
8407 real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_)
8408 { // ** body not listed **
8447 }
8448
8449 // VIF THU 20 NOV 2025 22:20:34 ** DGBCO ** DGBCO PAGE 00273
8450
8451 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8452 // S S U U B B R R O O U U T I NN N E
8453 // S U U B B R R O O U U T I N N N E
8454 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8455 // S U U B B R R O O U U T I N N N E
8456 // S S U U B B R R O O U U T I N NN E
8457 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8458
8459 // DDDDDD GGGGG BBBBBB CCCCC OOOOO
8460 // D D G G B B C C O O
8461 // D D G B B C O O
8462 // D D G GGGG BBBBBB C O O
8463 // D D G G B B C O O
8464 // D D G G B B C C O O
8465 // DDDDDD GGGGG BBBBBB CCCCC OOOOO
8466
8467
8468 // VIF THU 20 NOV 2025 22:20:34 ** DGBCO ** DIAGNOSTICS PAGE 00274
8469
8470
8471 // VIF THU 20 NOV 2025 22:20:34 ** DGBCO ** GENERATED CODE PAGE 00275
8472
8473 int_4 _dgbco (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 _p_
8474 rcond_, real_8 _p_ z_)
8475 { // ** body not listed **
8633 }
8634
8635 // VIF THU 20 NOV 2025 22:20:34 ** DGBDI ** DGBDI PAGE 00279
8636
8637 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8638 // S S U U B B R R O O U U T I NN N E
8639 // S U U B B R R O O U U T I N N N E
8640 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8641 // S U U B B R R O O U U T I N N N E
8642 // S S U U B B R R O O U U T I N NN E
8643 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8644
8645 // DDDDDD GGGGG BBBBBB DDDDDD III
8646 // D D G G B B D D I
8647 // D D G B B D D I
8648 // D D G GGGG BBBBBB D D I
8649 // D D G G B B D D I
8650 // D D G G B B D D I
8651 // DDDDDD GGGGG BBBBBB DDDDDD III
8652
8653
8654 // VIF THU 20 NOV 2025 22:20:34 ** DGBDI ** DIAGNOSTICS PAGE 00280
8655
8656
8657 // VIF THU 20 NOV 2025 22:20:34 ** DGBDI ** GENERATED CODE PAGE 00281
8658
8659 int_4 _dgbdi (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 _p_
8660 det_)
8661 { // ** body not listed **
8696 }
8697
8698 // VIF THU 20 NOV 2025 22:20:34 ** DGBFA ** DGBFA PAGE 00282
8699
8700 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8701 // S S U U B B R R O O U U T I NN N E
8702 // S U U B B R R O O U U T I N N N E
8703 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8704 // S U U B B R R O O U U T I N N N E
8705 // S S U U B B R R O O U U T I N NN E
8706 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8707
8708 // DDDDDD GGGGG BBBBBB FFFFFFF A
8709 // D D G G B B F A A
8710 // D D G B B F A A
8711 // D D G GGGG BBBBBB FFFFF A A
8712 // D D G G B B F AAAAAAA
8713 // D D G G B B F A A
8714 // DDDDDD GGGGG BBBBBB F A A
8715
8716
8717 // VIF THU 20 NOV 2025 22:20:34 ** DGBFA ** DIAGNOSTICS PAGE 00283
8718
8719
8720 // VIF THU 20 NOV 2025 22:20:34 ** DGBFA ** GENERATED CODE PAGE 00284
8721
8722 int_4 _dgbfa (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4 _p_
8723 info_)
8724 { // ** body not listed **
8810 }
8811
8812 // VIF THU 20 NOV 2025 22:20:34 ** DGBSL ** DGBSL PAGE 00286
8813
8814 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8815 // S S U U B B R R O O U U T I NN N E
8816 // S U U B B R R O O U U T I N N N E
8817 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8818 // S U U B B R R O O U U T I N N N E
8819 // S S U U B B R R O O U U T I N NN E
8820 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8821
8822 // DDDDDD GGGGG BBBBBB SSSSS L
8823 // D D G G B B S S L
8824 // D D G B B S L
8825 // D D G GGGG BBBBBB SSSSS L
8826 // D D G G B B S L
8827 // D D G G B B S S L
8828 // DDDDDD GGGGG BBBBBB SSSSS LLLLLLL
8829
8830
8831 // VIF THU 20 NOV 2025 22:20:34 ** DGBSL ** DIAGNOSTICS PAGE 00287
8832
8833
8834 // VIF THU 20 NOV 2025 22:20:34 ** DGBSL ** GENERATED CODE PAGE 00288
8835
8836 int_4 _dgbsl (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 _p_
8837 b_, int_4 _p_ job_)
8838 { // ** body not listed **
8909 }
8910
8911 // VIF THU 20 NOV 2025 22:20:34 ** DGECO ** DGECO PAGE 00290
8912
8913 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8914 // S S U U B B R R O O U U T I NN N E
8915 // S U U B B R R O O U U T I N N N E
8916 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8917 // S U U B B R R O O U U T I N N N E
8918 // S S U U B B R R O O U U T I N NN E
8919 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8920
8921 // DDDDDD GGGGG EEEEEEE CCCCC OOOOO
8922 // D D G G E C C O O
8923 // D D G E C O O
8924 // D D G GGGG EEEEE C O O
8925 // D D G G E C O O
8926 // D D G G E C C O O
8927 // DDDDDD GGGGG EEEEEEE CCCCC OOOOO
8928
8929
8930 // VIF THU 20 NOV 2025 22:20:34 ** DGECO ** DIAGNOSTICS PAGE 00291
8931
8932
8933 // VIF THU 20 NOV 2025 22:20:34 ** DGECO ** GENERATED CODE PAGE 00292
8934
8935 int_4 _dgeco (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ rcond_, real_8 _p_ z_)
8936 { // ** body not listed **
9071 }
9072
9073 // VIF THU 20 NOV 2025 22:20:34 ** DGEDI ** DGEDI PAGE 00295
9074
9075 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9076 // S S U U B B R R O O U U T I NN N E
9077 // S U U B B R R O O U U T I N N N E
9078 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9079 // S U U B B R R O O U U T I N N N E
9080 // S S U U B B R R O O U U T I N NN E
9081 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9082
9083 // DDDDDD GGGGG EEEEEEE DDDDDD III
9084 // D D G G E D D I
9085 // D D G E D D I
9086 // D D G GGGG EEEEE D D I
9087 // D D G G E D D I
9088 // D D G G E D D I
9089 // DDDDDD GGGGG EEEEEEE DDDDDD III
9090
9091
9092 // VIF THU 20 NOV 2025 22:20:34 ** DGEDI ** DIAGNOSTICS PAGE 00296
9093
9094
9095 // VIF THU 20 NOV 2025 22:20:34 ** DGEDI ** GENERATED CODE PAGE 00297
9096
9097 int_4 _dgedi (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ det_, real_8 _p_ work_, int_4
9098 _p_ job_)
9099 { // ** body not listed **
9180 }
9181
9182 // VIF THU 20 NOV 2025 22:20:34 ** DGEFA ** DGEFA PAGE 00299
9183
9184 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9185 // S S U U B B R R O O U U T I NN N E
9186 // S U U B B R R O O U U T I N N N E
9187 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9188 // S U U B B R R O O U U T I N N N E
9189 // S S U U B B R R O O U U T I N NN E
9190 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9191
9192 // DDDDDD GGGGG EEEEEEE FFFFFFF A
9193 // D D G G E F A A
9194 // D D G E F A A
9195 // D D G GGGG EEEEE FFFFF A A
9196 // D D G G E F AAAAAAA
9197 // D D G G E F A A
9198 // DDDDDD GGGGG EEEEEEE F A A
9199
9200
9201 // VIF THU 20 NOV 2025 22:20:34 ** DGEFA ** DIAGNOSTICS PAGE 00300
9202
9203
9204 // VIF THU 20 NOV 2025 22:20:34 ** DGEFA ** GENERATED CODE PAGE 00301
9205
9206 int_4 _dgefa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
9207 { // ** body not listed **
9258 }
9259
9260 // VIF THU 20 NOV 2025 22:20:34 ** DGESL ** DGESL PAGE 00303
9261
9262 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9263 // S S U U B B R R O O U U T I NN N E
9264 // S U U B B R R O O U U T I N N N E
9265 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9266 // S U U B B R R O O U U T I N N N E
9267 // S S U U B B R R O O U U T I N NN E
9268 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9269
9270 // DDDDDD GGGGG EEEEEEE SSSSS L
9271 // D D G G E S S L
9272 // D D G E S L
9273 // D D G GGGG EEEEE SSSSS L
9274 // D D G G E S L
9275 // D D G G E S S L
9276 // DDDDDD GGGGG EEEEEEE SSSSS LLLLLLL
9277
9278
9279 // VIF THU 20 NOV 2025 22:20:34 ** DGESL ** DIAGNOSTICS PAGE 00304
9280
9281
9282 // VIF THU 20 NOV 2025 22:20:34 ** DGESL ** GENERATED CODE PAGE 00305
9283
9284 int_4 _dgesl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ b_, int_4 _p_ job_)
9285 { // ** body not listed **
9343 }
9344
9345 // VIF THU 20 NOV 2025 22:20:34 ** DGTSL ** DGTSL PAGE 00307
9346
9347 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9348 // S S U U B B R R O O U U T I NN N E
9349 // S U U B B R R O O U U T I N N N E
9350 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9351 // S U U B B R R O O U U T I N N N E
9352 // S S U U B B R R O O U U T I N NN E
9353 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9354
9355 // DDDDDD GGGGG TTTTTTT SSSSS L
9356 // D D G G T S S L
9357 // D D G T S L
9358 // D D G GGGG T SSSSS L
9359 // D D G G T S L
9360 // D D G G T S S L
9361 // DDDDDD GGGGG T SSSSS LLLLLLL
9362
9363
9364 // VIF THU 20 NOV 2025 22:20:34 ** DGTSL ** DIAGNOSTICS PAGE 00308
9365
9366
9367 // VIF THU 20 NOV 2025 22:20:34 ** DGTSL ** GENERATED CODE PAGE 00309
9368
9369 int_4 _dgtsl (int_4 _p_ n_, real_8 _p_ c_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ b_, int_4 _p_ info_)
9370 { // ** body not listed **
9440 }
9441
9442 // VIF THU 20 NOV 2025 22:20:34 ** DPBCO ** DPBCO PAGE 00311
9443
9444 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9445 // S S U U B B R R O O U U T I NN N E
9446 // S U U B B R R O O U U T I N N N E
9447 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9448 // S U U B B R R O O U U T I N N N E
9449 // S S U U B B R R O O U U T I N NN E
9450 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9451
9452 // DDDDDD PPPPPP BBBBBB CCCCC OOOOO
9453 // D D P P B B C C O O
9454 // D D P P B B C O O
9455 // D D PPPPPP BBBBBB C O O
9456 // D D P B B C O O
9457 // D D P B B C C O O
9458 // DDDDDD P BBBBBB CCCCC OOOOO
9459
9460
9461 // VIF THU 20 NOV 2025 22:20:34 ** DPBCO ** DIAGNOSTICS PAGE 00312
9462
9463
9464 // VIF THU 20 NOV 2025 22:20:34 ** DPBCO ** GENERATED CODE PAGE 00313
9465
9466 int_4 _dpbco (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_
9467 info_)
9468 { // ** body not listed **
9611 }
9612
9613 // VIF THU 20 NOV 2025 22:20:34 ** DPBDI ** DPBDI PAGE 00316
9614
9615 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9616 // S S U U B B R R O O U U T I NN N E
9617 // S U U B B R R O O U U T I N N N E
9618 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9619 // S U U B B R R O O U U T I N N N E
9620 // S S U U B B R R O O U U T I N NN E
9621 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9622
9623 // DDDDDD PPPPPP BBBBBB DDDDDD III
9624 // D D P P B B D D I
9625 // D D P P B B D D I
9626 // D D PPPPPP BBBBBB D D I
9627 // D D P B B D D I
9628 // D D P B B D D I
9629 // DDDDDD P BBBBBB DDDDDD III
9630
9631
9632 // VIF THU 20 NOV 2025 22:20:34 ** DPBDI ** DIAGNOSTICS PAGE 00317
9633
9634
9635 // VIF THU 20 NOV 2025 22:20:34 ** DPBDI ** GENERATED CODE PAGE 00318
9636
9637 int_4 _dpbdi (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ det_)
9638 { // ** body not listed **
9669 }
9670
9671 // VIF THU 20 NOV 2025 22:20:34 ** DPBFA ** DPBFA PAGE 00319
9672
9673 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9674 // S S U U B B R R O O U U T I NN N E
9675 // S U U B B R R O O U U T I N N N E
9676 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9677 // S U U B B R R O O U U T I N N N E
9678 // S S U U B B R R O O U U T I N NN E
9679 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9680
9681 // DDDDDD PPPPPP BBBBBB FFFFFFF A
9682 // D D P P B B F A A
9683 // D D P P B B F A A
9684 // D D PPPPPP BBBBBB FFFFF A A
9685 // D D P B B F AAAAAAA
9686 // D D P B B F A A
9687 // DDDDDD P BBBBBB F A A
9688
9689
9690 // VIF THU 20 NOV 2025 22:20:34 ** DPBFA ** DIAGNOSTICS PAGE 00320
9691
9692
9693 // VIF THU 20 NOV 2025 22:20:34 ** DPBFA ** GENERATED CODE PAGE 00321
9694
9695 int_4 _dpbfa (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
9696 { // ** body not listed **
9730 }
9731
9732 // VIF THU 20 NOV 2025 22:20:34 ** DPBSL ** DPBSL PAGE 00322
9733
9734 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9735 // S S U U B B R R O O U U T I NN N E
9736 // S U U B B R R O O U U T I N N N E
9737 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9738 // S U U B B R R O O U U T I N N N E
9739 // S S U U B B R R O O U U T I N NN E
9740 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9741
9742 // DDDDDD PPPPPP BBBBBB SSSSS L
9743 // D D P P B B S S L
9744 // D D P P B B S L
9745 // D D PPPPPP BBBBBB SSSSS L
9746 // D D P B B S L
9747 // D D P B B S S L
9748 // DDDDDD P BBBBBB SSSSS LLLLLLL
9749
9750
9751 // VIF THU 20 NOV 2025 22:20:34 ** DPBSL ** DIAGNOSTICS PAGE 00323
9752
9753
9754 // VIF THU 20 NOV 2025 22:20:34 ** DPBSL ** GENERATED CODE PAGE 00324
9755
9756 int_4 _dpbsl (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ b_)
9757 { // ** body not listed **
9779 }
9780
9781 // VIF THU 20 NOV 2025 22:20:34 ** DPOCO ** DPOCO PAGE 00325
9782
9783 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9784 // S S U U B B R R O O U U T I NN N E
9785 // S U U B B R R O O U U T I N N N E
9786 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9787 // S U U B B R R O O U U T I N N N E
9788 // S S U U B B R R O O U U T I N NN E
9789 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9790
9791 // DDDDDD PPPPPP OOOOO CCCCC OOOOO
9792 // D D P P O O C C O O
9793 // D D P P O O C O O
9794 // D D PPPPPP O O C O O
9795 // D D P O O C O O
9796 // D D P O O C C O O
9797 // DDDDDD P OOOOO CCCCC OOOOO
9798
9799
9800 // VIF THU 20 NOV 2025 22:20:34 ** DPOCO ** DIAGNOSTICS PAGE 00326
9801
9802
9803 // VIF THU 20 NOV 2025 22:20:34 ** DPOCO ** GENERATED CODE PAGE 00327
9804
9805 int_4 _dpoco (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_ info_)
9806 { // ** body not listed **
9933 }
9934
9935 // VIF THU 20 NOV 2025 22:20:34 ** DPODI ** DPODI PAGE 00330
9936
9937 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9938 // S S U U B B R R O O U U T I NN N E
9939 // S U U B B R R O O U U T I N N N E
9940 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9941 // S U U B B R R O O U U T I N N N E
9942 // S S U U B B R R O O U U T I N NN E
9943 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9944
9945 // DDDDDD PPPPPP OOOOO DDDDDD III
9946 // D D P P O O D D I
9947 // D D P P O O D D I
9948 // D D PPPPPP O O D D I
9949 // D D P O O D D I
9950 // D D P O O D D I
9951 // DDDDDD P OOOOO DDDDDD III
9952
9953
9954 // VIF THU 20 NOV 2025 22:20:34 ** DPODI ** DIAGNOSTICS PAGE 00331
9955
9956
9957 // VIF THU 20 NOV 2025 22:20:34 ** DPODI ** GENERATED CODE PAGE 00332
9958
9959 int_4 _dpodi (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
9960 { // ** body not listed **
10030 }
10031
10032 // VIF THU 20 NOV 2025 22:20:34 ** DPOFA ** DPOFA PAGE 00334
10033
10034 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10035 // S S U U B B R R O O U U T I NN N E
10036 // S U U B B R R O O U U T I N N N E
10037 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10038 // S U U B B R R O O U U T I N N N E
10039 // S S U U B B R R O O U U T I N NN E
10040 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10041
10042 // DDDDDD PPPPPP OOOOO FFFFFFF A
10043 // D D P P O O F A A
10044 // D D P P O O F A A
10045 // D D PPPPPP O O FFFFF A A
10046 // D D P O O F AAAAAAA
10047 // D D P O O F A A
10048 // DDDDDD P OOOOO F A A
10049
10050
10051 // VIF THU 20 NOV 2025 22:20:34 ** DPOFA ** DIAGNOSTICS PAGE 00335
10052
10053
10054 // VIF THU 20 NOV 2025 22:20:34 ** DPOFA ** GENERATED CODE PAGE 00336
10055
10056 int_4 _dpofa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
10057 { // ** body not listed **
10087 }
10088
10089 // VIF THU 20 NOV 2025 22:20:34 ** DPOSL ** DPOSL PAGE 00337
10090
10091 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10092 // S S U U B B R R O O U U T I NN N E
10093 // S U U B B R R O O U U T I N N N E
10094 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10095 // S U U B B R R O O U U T I N N N E
10096 // S S U U B B R R O O U U T I N NN E
10097 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10098
10099 // DDDDDD PPPPPP OOOOO SSSSS L
10100 // D D P P O O S S L
10101 // D D P P O O S L
10102 // D D PPPPPP O O SSSSS L
10103 // D D P O O S L
10104 // D D P O O S S L
10105 // DDDDDD P OOOOO SSSSS LLLLLLL
10106
10107
10108 // VIF THU 20 NOV 2025 22:20:34 ** DPOSL ** DIAGNOSTICS PAGE 00338
10109
10110
10111 // VIF THU 20 NOV 2025 22:20:34 ** DPOSL ** GENERATED CODE PAGE 00339
10112
10113 int_4 _dposl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ b_)
10114 { // ** body not listed **
10131 }
10132
10133 // VIF THU 20 NOV 2025 22:20:34 ** DPPCO ** DPPCO PAGE 00340
10134
10135 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10136 // S S U U B B R R O O U U T I NN N E
10137 // S U U B B R R O O U U T I N N N E
10138 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10139 // S U U B B R R O O U U T I N N N E
10140 // S S U U B B R R O O U U T I N NN E
10141 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10142
10143 // DDDDDD PPPPPP PPPPPP CCCCC OOOOO
10144 // D D P P P P C C O O
10145 // D D P P P P C O O
10146 // D D PPPPPP PPPPPP C O O
10147 // D D P P C O O
10148 // D D P P C C O O
10149 // DDDDDD P P CCCCC OOOOO
10150
10151
10152 // VIF THU 20 NOV 2025 22:20:34 ** DPPCO ** DIAGNOSTICS PAGE 00341
10153
10154
10155 // VIF THU 20 NOV 2025 22:20:34 ** DPPCO ** GENERATED CODE PAGE 00342
10156
10157 int_4 _dppco (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_ info_)
10158 { // ** body not listed **
10298 }
10299
10300 // VIF THU 20 NOV 2025 22:20:34 ** DPPDI ** DPPDI PAGE 00345
10301
10302 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10303 // S S U U B B R R O O U U T I NN N E
10304 // S U U B B R R O O U U T I N N N E
10305 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10306 // S U U B B R R O O U U T I N N N E
10307 // S S U U B B R R O O U U T I N NN E
10308 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10309
10310 // DDDDDD PPPPPP PPPPPP DDDDDD III
10311 // D D P P P P D D I
10312 // D D P P P P D D I
10313 // D D PPPPPP PPPPPP D D I
10314 // D D P P D D I
10315 // D D P P D D I
10316 // DDDDDD P P DDDDDD III
10317
10318
10319 // VIF THU 20 NOV 2025 22:20:34 ** DPPDI ** DIAGNOSTICS PAGE 00346
10320
10321
10322 // VIF THU 20 NOV 2025 22:20:34 ** DPPDI ** GENERATED CODE PAGE 00347
10323
10324 int_4 _dppdi (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
10325 { // ** body not listed **
10411 }
10412
10413 // VIF THU 20 NOV 2025 22:20:34 ** DPPFA ** DPPFA PAGE 00349
10414
10415 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10416 // S S U U B B R R O O U U T I NN N E
10417 // S U U B B R R O O U U T I N N N E
10418 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10419 // S U U B B R R O O U U T I N N N E
10420 // S S U U B B R R O O U U T I N NN E
10421 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10422
10423 // DDDDDD PPPPPP PPPPPP FFFFFFF A
10424 // D D P P P P F A A
10425 // D D P P P P F A A
10426 // D D PPPPPP PPPPPP FFFFF A A
10427 // D D P P F AAAAAAA
10428 // D D P P F A A
10429 // DDDDDD P P F A A
10430
10431
10432 // VIF THU 20 NOV 2025 22:20:34 ** DPPFA ** DIAGNOSTICS PAGE 00350
10433
10434
10435 // VIF THU 20 NOV 2025 22:20:34 ** DPPFA ** GENERATED CODE PAGE 00351
10436
10437 int_4 _dppfa (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
10438 { // ** body not listed **
10473 }
10474
10475 // VIF THU 20 NOV 2025 22:20:34 ** DPPSL ** DPPSL PAGE 00352
10476
10477 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10478 // S S U U B B R R O O U U T I NN N E
10479 // S U U B B R R O O U U T I N N N E
10480 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10481 // S U U B B R R O O U U T I N N N E
10482 // S S U U B B R R O O U U T I N NN E
10483 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10484
10485 // DDDDDD PPPPPP PPPPPP SSSSS L
10486 // D D P P P P S S L
10487 // D D P P P P S L
10488 // D D PPPPPP PPPPPP SSSSS L
10489 // D D P P S L
10490 // D D P P S S L
10491 // DDDDDD P P SSSSS LLLLLLL
10492
10493
10494 // VIF THU 20 NOV 2025 22:20:34 ** DPPSL ** DIAGNOSTICS PAGE 00353
10495
10496
10497 // VIF THU 20 NOV 2025 22:20:34 ** DPPSL ** GENERATED CODE PAGE 00354
10498
10499 int_4 _dppsl (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ b_)
10500 { // ** body not listed **
10520 }
10521
10522 // VIF THU 20 NOV 2025 22:20:34 ** DPTSL ** DPTSL PAGE 00355
10523
10524 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10525 // S S U U B B R R O O U U T I NN N E
10526 // S U U B B R R O O U U T I N N N E
10527 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10528 // S U U B B R R O O U U T I N N N E
10529 // S S U U B B R R O O U U T I N NN E
10530 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10531
10532 // DDDDDD PPPPPP TTTTTTT SSSSS L
10533 // D D P P T S S L
10534 // D D P P T S L
10535 // D D PPPPPP T SSSSS L
10536 // D D P T S L
10537 // D D P T S S L
10538 // DDDDDD P T SSSSS LLLLLLL
10539
10540
10541 // VIF THU 20 NOV 2025 22:20:34 ** DPTSL ** DIAGNOSTICS PAGE 00356
10542
10543
10544 // VIF THU 20 NOV 2025 22:20:34 ** DPTSL ** GENERATED CODE PAGE 00357
10545
10546 int_4 _dptsl (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ b_)
10547 { // ** body not listed **
10601 }
10602
10603 // VIF THU 20 NOV 2025 22:20:34 ** DQRDC ** DQRDC PAGE 00359
10604
10605 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10606 // S S U U B B R R O O U U T I NN N E
10607 // S U U B B R R O O U U T I N N N E
10608 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10609 // S U U B B R R O O U U T I N N N E
10610 // S S U U B B R R O O U U T I N NN E
10611 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10612
10613 // DDDDDD QQQQQ RRRRRR DDDDDD CCCCC
10614 // D D Q Q R R D D C C
10615 // D D Q Q R R D D C
10616 // D D Q Q RRRRRR D D C
10617 // D D Q Q Q R R D D C
10618 // D D Q Q R R D D C C
10619 // DDDDDD QQQQ Q R R DDDDDD CCCCC
10620
10621
10622 // VIF THU 20 NOV 2025 22:20:34 ** DQRDC ** DIAGNOSTICS PAGE 00360
10623
10624
10625 // VIF THU 20 NOV 2025 22:20:34 ** DQRDC ** GENERATED CODE PAGE 00361
10626
10627 int_4 _dqrdc (real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, real_8 _p_ qraux_, int_4 _p_ jpvt_, real_8 _p_
10628 work_, int_4 _p_ job_)
10629 { // ** body not listed **
10769 }
10770
10771 // VIF THU 20 NOV 2025 22:20:34 ** DQRSL ** DQRSL PAGE 00364
10772
10773 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10774 // S S U U B B R R O O U U T I NN N E
10775 // S U U B B R R O O U U T I N N N E
10776 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10777 // S U U B B R R O O U U T I N N N E
10778 // S S U U B B R R O O U U T I N NN E
10779 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10780
10781 // DDDDDD QQQQQ RRRRRR SSSSS L
10782 // D D Q Q R R S S L
10783 // D D Q Q R R S L
10784 // D D Q Q RRRRRR SSSSS L
10785 // D D Q Q Q R R S L
10786 // D D Q Q R R S S L
10787 // DDDDDD QQQQ Q R R SSSSS LLLLLLL
10788
10789
10790 // VIF THU 20 NOV 2025 22:20:34 ** DQRSL ** DIAGNOSTICS PAGE 00365
10791
10792
10793 // VIF THU 20 NOV 2025 22:20:34 ** DQRSL ** GENERATED CODE PAGE 00366
10794
10795 int_4 _dqrsl (real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ qraux_, real_8 _p_ y_, real_8 _p_
10796 qy_, real_8 _p_ qty_, real_8 _p_ b_, real_8 _p_ rsd_, real_8 _p_ xb_, int_4 _p_ job_, int_4 _p_ info_)
10797 { // ** body not listed **
10960 }
10961
10962 // VIF THU 20 NOV 2025 22:20:34 ** DSICO ** DSICO PAGE 00370
10963
10964 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10965 // S S U U B B R R O O U U T I NN N E
10966 // S U U B B R R O O U U T I N N N E
10967 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10968 // S U U B B R R O O U U T I N N N E
10969 // S S U U B B R R O O U U T I N NN E
10970 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10971
10972 // DDDDDD SSSSS III CCCCC OOOOO
10973 // D D S S I C C O O
10974 // D D S I C O O
10975 // D D SSSSS I C O O
10976 // D D S I C O O
10977 // D D S S I C C O O
10978 // DDDDDD SSSSS III CCCCC OOOOO
10979
10980
10981 // VIF THU 20 NOV 2025 22:20:34 ** DSICO ** DIAGNOSTICS PAGE 00371
10982
10983
10984 // VIF THU 20 NOV 2025 22:20:34 ** DSICO ** GENERATED CODE PAGE 00372
10985
10986 int_4 _dsico (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, real_8 _p_ z_)
10987 { // ** body not listed **
11214 }
11215
11216 // VIF THU 20 NOV 2025 22:20:34 ** DSIDI ** DSIDI PAGE 00377
11217
11218 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11219 // S S U U B B R R O O U U T I NN N E
11220 // S U U B B R R O O U U T I N N N E
11221 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11222 // S U U B B R R O O U U T I N N N E
11223 // S S U U B B R R O O U U T I N NN E
11224 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11225
11226 // DDDDDD SSSSS III DDDDDD III
11227 // D D S S I D D I
11228 // D D S I D D I
11229 // D D SSSSS I D D I
11230 // D D S I D D I
11231 // D D S S I D D I
11232 // DDDDDD SSSSS III DDDDDD III
11233
11234
11235 // VIF THU 20 NOV 2025 22:20:34 ** DSIDI ** DIAGNOSTICS PAGE 00378
11236
11237
11238 // VIF THU 20 NOV 2025 22:20:34 ** DSIDI ** GENERATED CODE PAGE 00379
11239
11240 int_4 _dsidi (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ det_, int_4 _p_ inert_, real_8
11241 _p_ work_, int_4 _p_ job_)
11242 { // ** body not listed **
11416 }
11417
11418 // VIF THU 20 NOV 2025 22:20:34 ** DSIFA ** DSIFA PAGE 00383
11419
11420 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11421 // S S U U B B R R O O U U T I NN N E
11422 // S U U B B R R O O U U T I N N N E
11423 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11424 // S U U B B R R O O U U T I N N N E
11425 // S S U U B B R R O O U U T I N NN E
11426 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11427
11428 // DDDDDD SSSSS III FFFFFFF A
11429 // D D S S I F A A
11430 // D D S I F A A
11431 // D D SSSSS I FFFFF A A
11432 // D D S I F AAAAAAA
11433 // D D S S I F A A
11434 // DDDDDD SSSSS III F A A
11435
11436
11437 // VIF THU 20 NOV 2025 22:20:34 ** DSIFA ** DIAGNOSTICS PAGE 00384
11438
11439
11440 // VIF THU 20 NOV 2025 22:20:34 ** DSIFA ** GENERATED CODE PAGE 00385
11441
11442 int_4 _dsifa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
11443 { // ** body not listed **
11589 }
11590
11591 // VIF THU 20 NOV 2025 22:20:34 ** DSISL ** DSISL PAGE 00388
11592
11593 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11594 // S S U U B B R R O O U U T I NN N E
11595 // S U U B B R R O O U U T I N N N E
11596 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11597 // S U U B B R R O O U U T I N N N E
11598 // S S U U B B R R O O U U T I N NN E
11599 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11600
11601 // DDDDDD SSSSS III SSSSS L
11602 // D D S S I S S L
11603 // D D S I S L
11604 // D D SSSSS I SSSSS L
11605 // D D S I S L
11606 // D D S S I S S L
11607 // DDDDDD SSSSS III SSSSS LLLLLLL
11608
11609
11610 // VIF THU 20 NOV 2025 22:20:34 ** DSISL ** DIAGNOSTICS PAGE 00389
11611
11612
11613 // VIF THU 20 NOV 2025 22:20:34 ** DSISL ** GENERATED CODE PAGE 00390
11614
11615 int_4 _dsisl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ b_)
11616 { // ** body not listed **
11720 }
11721
11722 // VIF THU 20 NOV 2025 22:20:34 ** DSPCO ** DSPCO PAGE 00393
11723
11724 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11725 // S S U U B B R R O O U U T I NN N E
11726 // S U U B B R R O O U U T I N N N E
11727 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11728 // S U U B B R R O O U U T I N N N E
11729 // S S U U B B R R O O U U T I N NN E
11730 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11731
11732 // DDDDDD SSSSS PPPPPP CCCCC OOOOO
11733 // D D S S P P C C O O
11734 // D D S P P C O O
11735 // D D SSSSS PPPPPP C O O
11736 // D D S P C O O
11737 // D D S S P C C O O
11738 // DDDDDD SSSSS P CCCCC OOOOO
11739
11740
11741 // VIF THU 20 NOV 2025 22:20:34 ** DSPCO ** DIAGNOSTICS PAGE 00394
11742
11743
11744 // VIF THU 20 NOV 2025 22:20:34 ** DSPCO ** GENERATED CODE PAGE 00395
11745
11746 int_4 _dspco (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, real_8 _p_ z_)
11747 { // ** body not listed **
12008 }
12009
12010 // VIF THU 20 NOV 2025 22:20:34 ** DSPDI ** DSPDI PAGE 00401
12011
12012 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12013 // S S U U B B R R O O U U T I NN N E
12014 // S U U B B R R O O U U T I N N N E
12015 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12016 // S U U B B R R O O U U T I N N N E
12017 // S S U U B B R R O O U U T I N NN E
12018 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12019
12020 // DDDDDD SSSSS PPPPPP DDDDDD III
12021 // D D S S P P D D I
12022 // D D S P P D D I
12023 // D D SSSSS PPPPPP D D I
12024 // D D S P D D I
12025 // D D S S P D D I
12026 // DDDDDD SSSSS P DDDDDD III
12027
12028
12029 // VIF THU 20 NOV 2025 22:20:34 ** DSPDI ** DIAGNOSTICS PAGE 00402
12030
12031
12032 // VIF THU 20 NOV 2025 22:20:34 ** DSPDI ** GENERATED CODE PAGE 00403
12033
12034 int_4 _dspdi (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ det_, int_4 _p_ inert_, real_8 _p_ work_, int_4
12035 _p_ job_)
12036 { // ** body not listed **
12230 }
12231
12232 // VIF THU 20 NOV 2025 22:20:34 ** DSPFA ** DSPFA PAGE 00407
12233
12234 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12235 // S S U U B B R R O O U U T I NN N E
12236 // S U U B B R R O O U U T I N N N E
12237 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12238 // S U U B B R R O O U U T I N N N E
12239 // S S U U B B R R O O U U T I N NN E
12240 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12241
12242 // DDDDDD SSSSS PPPPPP FFFFFFF A
12243 // D D S S P P F A A
12244 // D D S P P F A A
12245 // D D SSSSS PPPPPP FFFFF A A
12246 // D D S P F AAAAAAA
12247 // D D S S P F A A
12248 // DDDDDD SSSSS P F A A
12249
12250
12251 // VIF THU 20 NOV 2025 22:20:34 ** DSPFA ** DIAGNOSTICS PAGE 00408
12252
12253
12254 // VIF THU 20 NOV 2025 22:20:34 ** DSPFA ** GENERATED CODE PAGE 00409
12255
12256 int_4 _dspfa (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
12257 { // ** body not listed **
12436 }
12437
12438 // VIF THU 20 NOV 2025 22:20:34 ** DSPSL ** DSPSL PAGE 00413
12439
12440 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12441 // S S U U B B R R O O U U T I NN N E
12442 // S U U B B R R O O U U T I N N N E
12443 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12444 // S U U B B R R O O U U T I N N N E
12445 // S S U U B B R R O O U U T I N NN E
12446 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12447
12448 // DDDDDD SSSSS PPPPPP SSSSS L
12449 // D D S S P P S S L
12450 // D D S P P S L
12451 // D D SSSSS PPPPPP SSSSS L
12452 // D D S P S L
12453 // D D S S P S S L
12454 // DDDDDD SSSSS P SSSSS LLLLLLL
12455
12456
12457 // VIF THU 20 NOV 2025 22:20:34 ** DSPSL ** DIAGNOSTICS PAGE 00414
12458
12459
12460 // VIF THU 20 NOV 2025 22:20:34 ** DSPSL ** GENERATED CODE PAGE 00415
12461
12462 int_4 _dspsl (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ b_)
12463 { // ** body not listed **
12578 }
12579
12580 // VIF THU 20 NOV 2025 22:20:34 ** DSVDC ** DSVDC PAGE 00418
12581
12582 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12583 // S S U U B B R R O O U U T I NN N E
12584 // S U U B B R R O O U U T I N N N E
12585 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12586 // S U U B B R R O O U U T I N N N E
12587 // S S U U B B R R O O U U T I N NN E
12588 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12589
12590 // DDDDDD SSSSS V V DDDDDD CCCCC
12591 // D D S S V V D D C C
12592 // D D S V V D D C
12593 // D D SSSSS V V D D C
12594 // D D S V V D D C
12595 // D D S S V V D D C C
12596 // DDDDDD SSSSS V DDDDDD CCCCC
12597
12598
12599 // VIF THU 20 NOV 2025 22:20:34 ** DSVDC ** DIAGNOSTICS PAGE 00419
12600
12601
12602 // VIF THU 20 NOV 2025 22:20:34 ** DSVDC ** GENERATED CODE PAGE 00420
12603
12604 int_4 _dsvdc (real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, real_8 _p_ s_, real_8 _p_ e_, real_8 _p_ u_,
12605 int_4 _p_ ldu_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ work_, int_4 _p_ job_, int_4 _p_ info_)
12606 { // ** body not listed **
13021 }
13022
13023 // VIF THU 20 NOV 2025 22:20:34 ** DTRCO ** DTRCO PAGE 00429
13024
13025 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13026 // S S U U B B R R O O U U T I NN N E
13027 // S U U B B R R O O U U T I N N N E
13028 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13029 // S U U B B R R O O U U T I N N N E
13030 // S S U U B B R R O O U U T I N NN E
13031 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13032
13033 // DDDDDD TTTTTTT RRRRRR CCCCC OOOOO
13034 // D D T R R C C O O
13035 // D D T R R C O O
13036 // D D T RRRRRR C O O
13037 // D D T R R C O O
13038 // D D T R R C C O O
13039 // DDDDDD T R R CCCCC OOOOO
13040
13041
13042 // VIF THU 20 NOV 2025 22:20:34 ** DTRCO ** DIAGNOSTICS PAGE 00430
13043
13044
13045 // VIF THU 20 NOV 2025 22:20:34 ** DTRCO ** GENERATED CODE PAGE 00431
13046
13047 int_4 _dtrco (real_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_ job_)
13048 { // ** body not listed **
13175 }
13176
13177 // VIF THU 20 NOV 2025 22:20:34 ** DTRDI ** DTRDI PAGE 00434
13178
13179 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13180 // S S U U B B R R O O U U T I NN N E
13181 // S U U B B R R O O U U T I N N N E
13182 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13183 // S U U B B R R O O U U T I N N N E
13184 // S S U U B B R R O O U U T I N NN E
13185 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13186
13187 // DDDDDD TTTTTTT RRRRRR DDDDDD III
13188 // D D T R R D D I
13189 // D D T R R D D I
13190 // D D T RRRRRR D D I
13191 // D D T R R D D I
13192 // D D T R R D D I
13193 // DDDDDD T R R DDDDDD III
13194
13195
13196 // VIF THU 20 NOV 2025 22:20:34 ** DTRDI ** DIAGNOSTICS PAGE 00435
13197
13198
13199 // VIF THU 20 NOV 2025 22:20:34 ** DTRDI ** GENERATED CODE PAGE 00436
13200
13201 int_4 _dtrdi (real_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_, int_4 _p_ info_)
13202 { // ** body not listed **
13296 }
13297
13298 // VIF THU 20 NOV 2025 22:20:34 ** DTRSL ** DTRSL PAGE 00438
13299
13300 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13301 // S S U U B B R R O O U U T I NN N E
13302 // S U U B B R R O O U U T I N N N E
13303 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13304 // S U U B B R R O O U U T I N N N E
13305 // S S U U B B R R O O U U T I N NN E
13306 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13307
13308 // DDDDDD TTTTTTT RRRRRR SSSSS L
13309 // D D T R R S S L
13310 // D D T R R S L
13311 // D D T RRRRRR SSSSS L
13312 // D D T R R S L
13313 // D D T R R S S L
13314 // DDDDDD T R R SSSSS LLLLLLL
13315
13316
13317 // VIF THU 20 NOV 2025 22:20:34 ** DTRSL ** DIAGNOSTICS PAGE 00439
13318
13319
13320 // VIF THU 20 NOV 2025 22:20:34 ** DTRSL ** GENERATED CODE PAGE 00440
13321
13322 int_4 _dtrsl (real_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ job_, int_4 _p_ info_)
13323 { // ** body not listed **
13403 }
13404
13405 // VIF THU 20 NOV 2025 22:20:34 ** SCHDC ** SCHDC PAGE 00442
13406
13407 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13408 // S S U U B B R R O O U U T I NN N E
13409 // S U U B B R R O O U U T I N N N E
13410 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13411 // S U U B B R R O O U U T I N N N E
13412 // S S U U B B R R O O U U T I N NN E
13413 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13414
13415 // SSSSS CCCCC H H DDDDDD CCCCC
13416 // S S C C H H D D C C
13417 // S C H H D D C
13418 // SSSSS C HHHHHHH D D C
13419 // S C H H D D C
13420 // S S C C H H D D C C
13421 // SSSSS CCCCC H H DDDDDD CCCCC
13422
13423
13424 // VIF THU 20 NOV 2025 22:20:34 ** SCHDC ** DIAGNOSTICS PAGE 00443
13425
13426
13427 // VIF THU 20 NOV 2025 22:20:34 ** SCHDC ** GENERATED CODE PAGE 00444
13428
13429 int_4 _schdc (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ p_, real_4 _p_ work_, int_4 _p_ jpvt_, int_4 _p_ job_, int_4 _p_
13430 info_)
13431 { // ** body not listed **
13609 }
13610
13611 // VIF THU 20 NOV 2025 22:20:34 ** SCHDD ** SCHDD PAGE 00448
13612
13613 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13614 // S S U U B B R R O O U U T I NN N E
13615 // S U U B B R R O O U U T I N N N E
13616 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13617 // S U U B B R R O O U U T I N N N E
13618 // S S U U B B R R O O U U T I N NN E
13619 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13620
13621 // SSSSS CCCCC H H DDDDDD DDDDDD
13622 // S S C C H H D D D D
13623 // S C H H D D D D
13624 // SSSSS C HHHHHHH D D D D
13625 // S C H H D D D D
13626 // S S C C H H D D D D
13627 // SSSSS CCCCC H H DDDDDD DDDDDD
13628
13629
13630 // VIF THU 20 NOV 2025 22:20:34 ** SCHDD ** DIAGNOSTICS PAGE 00449
13631
13632
13633 // VIF THU 20 NOV 2025 22:20:34 ** SCHDD ** GENERATED CODE PAGE 00450
13634
13635 int_4 _schdd (real_4 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, real_4 _p_ x_, real_4 _p_ z_, int_4 _p_ ldz_, int_4 _p_ nz_,
13636 real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ info_)
13637 { // ** body not listed **
13707 }
13708
13709 // VIF THU 20 NOV 2025 22:20:34 ** SCHEX ** SCHEX PAGE 00452
13710
13711 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13712 // S S U U B B R R O O U U T I NN N E
13713 // S U U B B R R O O U U T I N N N E
13714 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13715 // S U U B B R R O O U U T I N N N E
13716 // S S U U B B R R O O U U T I N NN E
13717 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13718
13719 // SSSSS CCCCC H H EEEEEEE X X
13720 // S S C C H H E X X
13721 // S C H H E X X
13722 // SSSSS C HHHHHHH EEEEE X
13723 // S C H H E X X
13724 // S S C C H H E X X
13725 // SSSSS CCCCC H H EEEEEEE X X
13726
13727
13728 // VIF THU 20 NOV 2025 22:20:34 ** SCHEX ** DIAGNOSTICS PAGE 00453
13729
13730
13731 // VIF THU 20 NOV 2025 22:20:34 ** SCHEX ** GENERATED CODE PAGE 00454
13732
13733 int_4 _schex (real_4 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, int_4 _p_ k_, int_4 _p_ l_, real_4 _p_ z_, int_4 _p_ ldz_,
13734 int_4 _p_ nz_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ job_)
13735 { // ** body not listed **
13857 }
13858
13859 // VIF THU 20 NOV 2025 22:20:34 ** SCHUD ** SCHUD PAGE 00457
13860
13861 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13862 // S S U U B B R R O O U U T I NN N E
13863 // S U U B B R R O O U U T I N N N E
13864 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13865 // S U U B B R R O O U U T I N N N E
13866 // S S U U B B R R O O U U T I N NN E
13867 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13868
13869 // SSSSS CCCCC H H U U DDDDDD
13870 // S S C C H H U U D D
13871 // S C H H U U D D
13872 // SSSSS C HHHHHHH U U D D
13873 // S C H H U U D D
13874 // S S C C H H U U D D
13875 // SSSSS CCCCC H H UUUUU DDDDDD
13876
13877
13878 // VIF THU 20 NOV 2025 22:20:34 ** SCHUD ** DIAGNOSTICS PAGE 00458
13879
13880
13881 // VIF THU 20 NOV 2025 22:20:34 ** SCHUD ** GENERATED CODE PAGE 00459
13882
13883 int_4 _schud (real_4 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, real_4 _p_ x_, real_4 _p_ z_, int_4 _p_ ldz_, int_4 _p_ nz_,
13884 real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_)
13885 { // ** body not listed **
13924 }
13925
13926 // VIF THU 20 NOV 2025 22:20:34 ** SGBCO ** SGBCO PAGE 00460
13927
13928 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13929 // S S U U B B R R O O U U T I NN N E
13930 // S U U B B R R O O U U T I N N N E
13931 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13932 // S U U B B R R O O U U T I N N N E
13933 // S S U U B B R R O O U U T I N NN E
13934 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13935
13936 // SSSSS GGGGG BBBBBB CCCCC OOOOO
13937 // S S G G B B C C O O
13938 // S G B B C O O
13939 // SSSSS G GGGG BBBBBB C O O
13940 // S G G B B C O O
13941 // S S G G B B C C O O
13942 // SSSSS GGGGG BBBBBB CCCCC OOOOO
13943
13944
13945 // VIF THU 20 NOV 2025 22:20:34 ** SGBCO ** DIAGNOSTICS PAGE 00461
13946
13947
13948 // VIF THU 20 NOV 2025 22:20:34 ** SGBCO ** GENERATED CODE PAGE 00462
13949
13950 int_4 _sgbco (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 _p_
13951 rcond_, real_4 _p_ z_)
13952 { // ** body not listed **
14110 }
14111
14112 // VIF THU 20 NOV 2025 22:20:34 ** SGBDI ** SGBDI PAGE 00466
14113
14114 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14115 // S S U U B B R R O O U U T I NN N E
14116 // S U U B B R R O O U U T I N N N E
14117 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14118 // S U U B B R R O O U U T I N N N E
14119 // S S U U B B R R O O U U T I N NN E
14120 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14121
14122 // SSSSS GGGGG BBBBBB DDDDDD III
14123 // S S G G B B D D I
14124 // S G B B D D I
14125 // SSSSS G GGGG BBBBBB D D I
14126 // S G G B B D D I
14127 // S S G G B B D D I
14128 // SSSSS GGGGG BBBBBB DDDDDD III
14129
14130
14131 // VIF THU 20 NOV 2025 22:20:34 ** SGBDI ** DIAGNOSTICS PAGE 00467
14132
14133
14134 // VIF THU 20 NOV 2025 22:20:34 ** SGBDI ** GENERATED CODE PAGE 00468
14135
14136 int_4 _sgbdi (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 _p_
14137 det_)
14138 { // ** body not listed **
14173 }
14174
14175 // VIF THU 20 NOV 2025 22:20:34 ** SGBFA ** SGBFA PAGE 00469
14176
14177 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14178 // S S U U B B R R O O U U T I NN N E
14179 // S U U B B R R O O U U T I N N N E
14180 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14181 // S U U B B R R O O U U T I N N N E
14182 // S S U U B B R R O O U U T I N NN E
14183 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14184
14185 // SSSSS GGGGG BBBBBB FFFFFFF A
14186 // S S G G B B F A A
14187 // S G B B F A A
14188 // SSSSS G GGGG BBBBBB FFFFF A A
14189 // S G G B B F AAAAAAA
14190 // S S G G B B F A A
14191 // SSSSS GGGGG BBBBBB F A A
14192
14193
14194 // VIF THU 20 NOV 2025 22:20:34 ** SGBFA ** DIAGNOSTICS PAGE 00470
14195
14196
14197 // VIF THU 20 NOV 2025 22:20:34 ** SGBFA ** GENERATED CODE PAGE 00471
14198
14199 int_4 _sgbfa (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4 _p_
14200 info_)
14201 { // ** body not listed **
14287 }
14288
14289 // VIF THU 20 NOV 2025 22:20:34 ** SGBSL ** SGBSL PAGE 00473
14290
14291 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14292 // S S U U B B R R O O U U T I NN N E
14293 // S U U B B R R O O U U T I N N N E
14294 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14295 // S U U B B R R O O U U T I N N N E
14296 // S S U U B B R R O O U U T I N NN E
14297 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14298
14299 // SSSSS GGGGG BBBBBB SSSSS L
14300 // S S G G B B S S L
14301 // S G B B S L
14302 // SSSSS G GGGG BBBBBB SSSSS L
14303 // S G G B B S L
14304 // S S G G B B S S L
14305 // SSSSS GGGGG BBBBBB SSSSS LLLLLLL
14306
14307
14308 // VIF THU 20 NOV 2025 22:20:34 ** SGBSL ** DIAGNOSTICS PAGE 00474
14309
14310
14311 // VIF THU 20 NOV 2025 22:20:34 ** SGBSL ** GENERATED CODE PAGE 00475
14312
14313 int_4 _sgbsl (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 _p_
14314 b_, int_4 _p_ job_)
14315 { // ** body not listed **
14386 }
14387
14388 // VIF THU 20 NOV 2025 22:20:34 ** SGECO ** SGECO PAGE 00477
14389
14390 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14391 // S S U U B B R R O O U U T I NN N E
14392 // S U U B B R R O O U U T I N N N E
14393 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14394 // S U U B B R R O O U U T I N N N E
14395 // S S U U B B R R O O U U T I N NN E
14396 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14397
14398 // SSSSS GGGGG EEEEEEE CCCCC OOOOO
14399 // S S G G E C C O O
14400 // S G E C O O
14401 // SSSSS G GGGG EEEEE C O O
14402 // S G G E C O O
14403 // S S G G E C C O O
14404 // SSSSS GGGGG EEEEEEE CCCCC OOOOO
14405
14406
14407 // VIF THU 20 NOV 2025 22:20:34 ** SGECO ** DIAGNOSTICS PAGE 00478
14408
14409
14410 // VIF THU 20 NOV 2025 22:20:34 ** SGECO ** GENERATED CODE PAGE 00479
14411
14412 int_4 _sgeco (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_4 _p_ rcond_, real_4 _p_ z_)
14413 { // ** body not listed **
14548 }
14549
14550 // VIF THU 20 NOV 2025 22:20:34 ** SGEDI ** SGEDI PAGE 00482
14551
14552 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14553 // S S U U B B R R O O U U T I NN N E
14554 // S U U B B R R O O U U T I N N N E
14555 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14556 // S U U B B R R O O U U T I N N N E
14557 // S S U U B B R R O O U U T I N NN E
14558 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14559
14560 // SSSSS GGGGG EEEEEEE DDDDDD III
14561 // S S G G E D D I
14562 // S G E D D I
14563 // SSSSS G GGGG EEEEE D D I
14564 // S G G E D D I
14565 // S S G G E D D I
14566 // SSSSS GGGGG EEEEEEE DDDDDD III
14567
14568
14569 // VIF THU 20 NOV 2025 22:20:34 ** SGEDI ** DIAGNOSTICS PAGE 00483
14570
14571
14572 // VIF THU 20 NOV 2025 22:20:34 ** SGEDI ** GENERATED CODE PAGE 00484
14573
14574 int_4 _sgedi (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_4 _p_ det_, real_4 _p_ work_, int_4
14575 _p_ job_)
14576 { // ** body not listed **
14657 }
14658
14659 // VIF THU 20 NOV 2025 22:20:34 ** SGEFA ** SGEFA PAGE 00486
14660
14661 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14662 // S S U U B B R R O O U U T I NN N E
14663 // S U U B B R R O O U U T I N N N E
14664 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14665 // S U U B B R R O O U U T I N N N E
14666 // S S U U B B R R O O U U T I N NN E
14667 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14668
14669 // SSSSS GGGGG EEEEEEE FFFFFFF A
14670 // S S G G E F A A
14671 // S G E F A A
14672 // SSSSS G GGGG EEEEE FFFFF A A
14673 // S G G E F AAAAAAA
14674 // S S G G E F A A
14675 // SSSSS GGGGG EEEEEEE F A A
14676
14677
14678 // VIF THU 20 NOV 2025 22:20:34 ** SGEFA ** DIAGNOSTICS PAGE 00487
14679
14680
14681 // VIF THU 20 NOV 2025 22:20:34 ** SGEFA ** GENERATED CODE PAGE 00488
14682
14683 int_4 _sgefa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
14684 { // ** body not listed **
14735 }
14736
14737 // VIF THU 20 NOV 2025 22:20:34 ** SGESL ** SGESL PAGE 00490
14738
14739 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14740 // S S U U B B R R O O U U T I NN N E
14741 // S U U B B R R O O U U T I N N N E
14742 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14743 // S U U B B R R O O U U T I N N N E
14744 // S S U U B B R R O O U U T I N NN E
14745 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14746
14747 // SSSSS GGGGG EEEEEEE SSSSS L
14748 // S S G G E S S L
14749 // S G E S L
14750 // SSSSS G GGGG EEEEE SSSSS L
14751 // S G G E S L
14752 // S S G G E S S L
14753 // SSSSS GGGGG EEEEEEE SSSSS LLLLLLL
14754
14755
14756 // VIF THU 20 NOV 2025 22:20:34 ** SGESL ** DIAGNOSTICS PAGE 00491
14757
14758
14759 // VIF THU 20 NOV 2025 22:20:34 ** SGESL ** GENERATED CODE PAGE 00492
14760
14761 int_4 _sgesl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_4 _p_ b_, int_4 _p_ job_)
14762 { // ** body not listed **
14820 }
14821
14822 // VIF THU 20 NOV 2025 22:20:34 ** SGTSL ** SGTSL PAGE 00494
14823
14824 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14825 // S S U U B B R R O O U U T I NN N E
14826 // S U U B B R R O O U U T I N N N E
14827 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14828 // S U U B B R R O O U U T I N N N E
14829 // S S U U B B R R O O U U T I N NN E
14830 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14831
14832 // SSSSS GGGGG TTTTTTT SSSSS L
14833 // S S G G T S S L
14834 // S G T S L
14835 // SSSSS G GGGG T SSSSS L
14836 // S G G T S L
14837 // S S G G T S S L
14838 // SSSSS GGGGG T SSSSS LLLLLLL
14839
14840
14841 // VIF THU 20 NOV 2025 22:20:34 ** SGTSL ** DIAGNOSTICS PAGE 00495
14842
14843
14844 // VIF THU 20 NOV 2025 22:20:34 ** SGTSL ** GENERATED CODE PAGE 00496
14845
14846 int_4 _sgtsl (int_4 _p_ n_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ b_, int_4 _p_ info_)
14847 { // ** body not listed **
14917 }
14918
14919 // VIF THU 20 NOV 2025 22:20:34 ** SPBCO ** SPBCO PAGE 00498
14920
14921 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14922 // S S U U B B R R O O U U T I NN N E
14923 // S U U B B R R O O U U T I N N N E
14924 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14925 // S U U B B R R O O U U T I N N N E
14926 // S S U U B B R R O O U U T I N NN E
14927 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14928
14929 // SSSSS PPPPPP BBBBBB CCCCC OOOOO
14930 // S S P P B B C C O O
14931 // S P P B B C O O
14932 // SSSSS PPPPPP BBBBBB C O O
14933 // S P B B C O O
14934 // S S P B B C C O O
14935 // SSSSS P BBBBBB CCCCC OOOOO
14936
14937
14938 // VIF THU 20 NOV 2025 22:20:34 ** SPBCO ** DIAGNOSTICS PAGE 00499
14939
14940
14941 // VIF THU 20 NOV 2025 22:20:34 ** SPBCO ** GENERATED CODE PAGE 00500
14942
14943 int_4 _spbco (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_
14944 info_)
14945 { // ** body not listed **
15088 }
15089
15090 // VIF THU 20 NOV 2025 22:20:34 ** SPBDI ** SPBDI PAGE 00503
15091
15092 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15093 // S S U U B B R R O O U U T I NN N E
15094 // S U U B B R R O O U U T I N N N E
15095 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15096 // S U U B B R R O O U U T I N N N E
15097 // S S U U B B R R O O U U T I N NN E
15098 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15099
15100 // SSSSS PPPPPP BBBBBB DDDDDD III
15101 // S S P P B B D D I
15102 // S P P B B D D I
15103 // SSSSS PPPPPP BBBBBB D D I
15104 // S P B B D D I
15105 // S S P B B D D I
15106 // SSSSS P BBBBBB DDDDDD III
15107
15108
15109 // VIF THU 20 NOV 2025 22:20:34 ** SPBDI ** DIAGNOSTICS PAGE 00504
15110
15111
15112 // VIF THU 20 NOV 2025 22:20:34 ** SPBDI ** GENERATED CODE PAGE 00505
15113
15114 int_4 _spbdi (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ det_)
15115 { // ** body not listed **
15146 }
15147
15148 // VIF THU 20 NOV 2025 22:20:34 ** SPBFA ** SPBFA PAGE 00506
15149
15150 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15151 // S S U U B B R R O O U U T I NN N E
15152 // S U U B B R R O O U U T I N N N E
15153 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15154 // S U U B B R R O O U U T I N N N E
15155 // S S U U B B R R O O U U T I N NN E
15156 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15157
15158 // SSSSS PPPPPP BBBBBB FFFFFFF A
15159 // S S P P B B F A A
15160 // S P P B B F A A
15161 // SSSSS PPPPPP BBBBBB FFFFF A A
15162 // S P B B F AAAAAAA
15163 // S S P B B F A A
15164 // SSSSS P BBBBBB F A A
15165
15166
15167 // VIF THU 20 NOV 2025 22:20:34 ** SPBFA ** DIAGNOSTICS PAGE 00507
15168
15169
15170 // VIF THU 20 NOV 2025 22:20:34 ** SPBFA ** GENERATED CODE PAGE 00508
15171
15172 int_4 _spbfa (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
15173 { // ** body not listed **
15207 }
15208
15209 // VIF THU 20 NOV 2025 22:20:34 ** SPBSL ** SPBSL PAGE 00509
15210
15211 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15212 // S S U U B B R R O O U U T I NN N E
15213 // S U U B B R R O O U U T I N N N E
15214 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15215 // S U U B B R R O O U U T I N N N E
15216 // S S U U B B R R O O U U T I N NN E
15217 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15218
15219 // SSSSS PPPPPP BBBBBB SSSSS L
15220 // S S P P B B S S L
15221 // S P P B B S L
15222 // SSSSS PPPPPP BBBBBB SSSSS L
15223 // S P B B S L
15224 // S S P B B S S L
15225 // SSSSS P BBBBBB SSSSS LLLLLLL
15226
15227
15228 // VIF THU 20 NOV 2025 22:20:34 ** SPBSL ** DIAGNOSTICS PAGE 00510
15229
15230
15231 // VIF THU 20 NOV 2025 22:20:34 ** SPBSL ** GENERATED CODE PAGE 00511
15232
15233 int_4 _spbsl (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ b_)
15234 { // ** body not listed **
15256 }
15257
15258 // VIF THU 20 NOV 2025 22:20:34 ** SPOCO ** SPOCO PAGE 00512
15259
15260 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15261 // S S U U B B R R O O U U T I NN N E
15262 // S U U B B R R O O U U T I N N N E
15263 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15264 // S U U B B R R O O U U T I N N N E
15265 // S S U U B B R R O O U U T I N NN E
15266 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15267
15268 // SSSSS PPPPPP OOOOO CCCCC OOOOO
15269 // S S P P O O C C O O
15270 // S P P O O C O O
15271 // SSSSS PPPPPP O O C O O
15272 // S P O O C O O
15273 // S S P O O C C O O
15274 // SSSSS P OOOOO CCCCC OOOOO
15275
15276
15277 // VIF THU 20 NOV 2025 22:20:34 ** SPOCO ** DIAGNOSTICS PAGE 00513
15278
15279
15280 // VIF THU 20 NOV 2025 22:20:34 ** SPOCO ** GENERATED CODE PAGE 00514
15281
15282 int_4 _spoco (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_ info_)
15283 { // ** body not listed **
15410 }
15411
15412 // VIF THU 20 NOV 2025 22:20:34 ** SPODI ** SPODI PAGE 00517
15413
15414 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15415 // S S U U B B R R O O U U T I NN N E
15416 // S U U B B R R O O U U T I N N N E
15417 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15418 // S U U B B R R O O U U T I N N N E
15419 // S S U U B B R R O O U U T I N NN E
15420 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15421
15422 // SSSSS PPPPPP OOOOO DDDDDD III
15423 // S S P P O O D D I
15424 // S P P O O D D I
15425 // SSSSS PPPPPP O O D D I
15426 // S P O O D D I
15427 // S S P O O D D I
15428 // SSSSS P OOOOO DDDDDD III
15429
15430
15431 // VIF THU 20 NOV 2025 22:20:34 ** SPODI ** DIAGNOSTICS PAGE 00518
15432
15433
15434 // VIF THU 20 NOV 2025 22:20:34 ** SPODI ** GENERATED CODE PAGE 00519
15435
15436 int_4 _spodi (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
15437 { // ** body not listed **
15507 }
15508
15509 // VIF THU 20 NOV 2025 22:20:34 ** SPOFA ** SPOFA PAGE 00521
15510
15511 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15512 // S S U U B B R R O O U U T I NN N E
15513 // S U U B B R R O O U U T I N N N E
15514 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15515 // S U U B B R R O O U U T I N N N E
15516 // S S U U B B R R O O U U T I N NN E
15517 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15518
15519 // SSSSS PPPPPP OOOOO FFFFFFF A
15520 // S S P P O O F A A
15521 // S P P O O F A A
15522 // SSSSS PPPPPP O O FFFFF A A
15523 // S P O O F AAAAAAA
15524 // S S P O O F A A
15525 // SSSSS P OOOOO F A A
15526
15527
15528 // VIF THU 20 NOV 2025 22:20:34 ** SPOFA ** DIAGNOSTICS PAGE 00522
15529
15530
15531 // VIF THU 20 NOV 2025 22:20:34 ** SPOFA ** GENERATED CODE PAGE 00523
15532
15533 int_4 _spofa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
15534 { // ** body not listed **
15564 }
15565
15566 // VIF THU 20 NOV 2025 22:20:34 ** SPOSL ** SPOSL PAGE 00524
15567
15568 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15569 // S S U U B B R R O O U U T I NN N E
15570 // S U U B B R R O O U U T I N N N E
15571 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15572 // S U U B B R R O O U U T I N N N E
15573 // S S U U B B R R O O U U T I N NN E
15574 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15575
15576 // SSSSS PPPPPP OOOOO SSSSS L
15577 // S S P P O O S S L
15578 // S P P O O S L
15579 // SSSSS PPPPPP O O SSSSS L
15580 // S P O O S L
15581 // S S P O O S S L
15582 // SSSSS P OOOOO SSSSS LLLLLLL
15583
15584
15585 // VIF THU 20 NOV 2025 22:20:34 ** SPOSL ** DIAGNOSTICS PAGE 00525
15586
15587
15588 // VIF THU 20 NOV 2025 22:20:34 ** SPOSL ** GENERATED CODE PAGE 00526
15589
15590 int_4 _sposl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ b_)
15591 { // ** body not listed **
15608 }
15609
15610 // VIF THU 20 NOV 2025 22:20:34 ** SPPCO ** SPPCO PAGE 00527
15611
15612 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15613 // S S U U B B R R O O U U T I NN N E
15614 // S U U B B R R O O U U T I N N N E
15615 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15616 // S U U B B R R O O U U T I N N N E
15617 // S S U U B B R R O O U U T I N NN E
15618 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15619
15620 // SSSSS PPPPPP PPPPPP CCCCC OOOOO
15621 // S S P P P P C C O O
15622 // S P P P P C O O
15623 // SSSSS PPPPPP PPPPPP C O O
15624 // S P P C O O
15625 // S S P P C C O O
15626 // SSSSS P P CCCCC OOOOO
15627
15628
15629 // VIF THU 20 NOV 2025 22:20:34 ** SPPCO ** DIAGNOSTICS PAGE 00528
15630
15631
15632 // VIF THU 20 NOV 2025 22:20:34 ** SPPCO ** GENERATED CODE PAGE 00529
15633
15634 int_4 _sppco (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_ info_)
15635 { // ** body not listed **
15775 }
15776
15777 // VIF THU 20 NOV 2025 22:20:34 ** SPPDI ** SPPDI PAGE 00532
15778
15779 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15780 // S S U U B B R R O O U U T I NN N E
15781 // S U U B B R R O O U U T I N N N E
15782 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15783 // S U U B B R R O O U U T I N N N E
15784 // S S U U B B R R O O U U T I N NN E
15785 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15786
15787 // SSSSS PPPPPP PPPPPP DDDDDD III
15788 // S S P P P P D D I
15789 // S P P P P D D I
15790 // SSSSS PPPPPP PPPPPP D D I
15791 // S P P D D I
15792 // S S P P D D I
15793 // SSSSS P P DDDDDD III
15794
15795
15796 // VIF THU 20 NOV 2025 22:20:34 ** SPPDI ** DIAGNOSTICS PAGE 00533
15797
15798
15799 // VIF THU 20 NOV 2025 22:20:34 ** SPPDI ** GENERATED CODE PAGE 00534
15800
15801 int_4 _sppdi (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
15802 { // ** body not listed **
15888 }
15889
15890 // VIF THU 20 NOV 2025 22:20:34 ** SPPFA ** SPPFA PAGE 00536
15891
15892 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15893 // S S U U B B R R O O U U T I NN N E
15894 // S U U B B R R O O U U T I N N N E
15895 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15896 // S U U B B R R O O U U T I N N N E
15897 // S S U U B B R R O O U U T I N NN E
15898 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15899
15900 // SSSSS PPPPPP PPPPPP FFFFFFF A
15901 // S S P P P P F A A
15902 // S P P P P F A A
15903 // SSSSS PPPPPP PPPPPP FFFFF A A
15904 // S P P F AAAAAAA
15905 // S S P P F A A
15906 // SSSSS P P F A A
15907
15908
15909 // VIF THU 20 NOV 2025 22:20:34 ** SPPFA ** DIAGNOSTICS PAGE 00537
15910
15911
15912 // VIF THU 20 NOV 2025 22:20:34 ** SPPFA ** GENERATED CODE PAGE 00538
15913
15914 int_4 _sppfa (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
15915 { // ** body not listed **
15950 }
15951
15952 // VIF THU 20 NOV 2025 22:20:34 ** SPPSL ** SPPSL PAGE 00539
15953
15954 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15955 // S S U U B B R R O O U U T I NN N E
15956 // S U U B B R R O O U U T I N N N E
15957 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15958 // S U U B B R R O O U U T I N N N E
15959 // S S U U B B R R O O U U T I N NN E
15960 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15961
15962 // SSSSS PPPPPP PPPPPP SSSSS L
15963 // S S P P P P S S L
15964 // S P P P P S L
15965 // SSSSS PPPPPP PPPPPP SSSSS L
15966 // S P P S L
15967 // S S P P S S L
15968 // SSSSS P P SSSSS LLLLLLL
15969
15970
15971 // VIF THU 20 NOV 2025 22:20:34 ** SPPSL ** DIAGNOSTICS PAGE 00540
15972
15973
15974 // VIF THU 20 NOV 2025 22:20:34 ** SPPSL ** GENERATED CODE PAGE 00541
15975
15976 int_4 _sppsl (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ b_)
15977 { // ** body not listed **
15997 }
15998
15999 // VIF THU 20 NOV 2025 22:20:34 ** SPTSL ** SPTSL PAGE 00542
16000
16001 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16002 // S S U U B B R R O O U U T I NN N E
16003 // S U U B B R R O O U U T I N N N E
16004 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16005 // S U U B B R R O O U U T I N N N E
16006 // S S U U B B R R O O U U T I N NN E
16007 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16008
16009 // SSSSS PPPPPP TTTTTTT SSSSS L
16010 // S S P P T S S L
16011 // S P P T S L
16012 // SSSSS PPPPPP T SSSSS L
16013 // S P T S L
16014 // S S P T S S L
16015 // SSSSS P T SSSSS LLLLLLL
16016
16017
16018 // VIF THU 20 NOV 2025 22:20:34 ** SPTSL ** DIAGNOSTICS PAGE 00543
16019
16020
16021 // VIF THU 20 NOV 2025 22:20:34 ** SPTSL ** GENERATED CODE PAGE 00544
16022
16023 int_4 _sptsl (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ b_)
16024 { // ** body not listed **
16078 }
16079
16080 // VIF THU 20 NOV 2025 22:20:34 ** SQRDC ** SQRDC PAGE 00546
16081
16082 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16083 // S S U U B B R R O O U U T I NN N E
16084 // S U U B B R R O O U U T I N N N E
16085 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16086 // S U U B B R R O O U U T I N N N E
16087 // S S U U B B R R O O U U T I N NN E
16088 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16089
16090 // SSSSS QQQQQ RRRRRR DDDDDD CCCCC
16091 // S S Q Q R R D D C C
16092 // S Q Q R R D D C
16093 // SSSSS Q Q RRRRRR D D C
16094 // S Q Q Q R R D D C
16095 // S S Q Q R R D D C C
16096 // SSSSS QQQQ Q R R DDDDDD CCCCC
16097
16098
16099 // VIF THU 20 NOV 2025 22:20:34 ** SQRDC ** DIAGNOSTICS PAGE 00547
16100
16101
16102 // VIF THU 20 NOV 2025 22:20:34 ** SQRDC ** GENERATED CODE PAGE 00548
16103
16104 int_4 _sqrdc (real_4 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, real_4 _p_ qraux_, int_4 _p_ jpvt_, real_4 _p_
16105 work_, int_4 _p_ job_)
16106 { // ** body not listed **
16246 }
16247
16248 // VIF THU 20 NOV 2025 22:20:34 ** SQRSL ** SQRSL PAGE 00551
16249
16250 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16251 // S S U U B B R R O O U U T I NN N E
16252 // S U U B B R R O O U U T I N N N E
16253 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16254 // S U U B B R R O O U U T I N N N E
16255 // S S U U B B R R O O U U T I N NN E
16256 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16257
16258 // SSSSS QQQQQ RRRRRR SSSSS L
16259 // S S Q Q R R S S L
16260 // S Q Q R R S L
16261 // SSSSS Q Q RRRRRR SSSSS L
16262 // S Q Q Q R R S L
16263 // S S Q Q R R S S L
16264 // SSSSS QQQQ Q R R SSSSS LLLLLLL
16265
16266
16267 // VIF THU 20 NOV 2025 22:20:34 ** SQRSL ** DIAGNOSTICS PAGE 00552
16268
16269
16270 // VIF THU 20 NOV 2025 22:20:34 ** SQRSL ** GENERATED CODE PAGE 00553
16271
16272 int_4 _sqrsl (real_4 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ qraux_, real_4 _p_ y_, real_4 _p_
16273 qy_, real_4 _p_ qty_, real_4 _p_ b_, real_4 _p_ rsd_, real_4 _p_ xb_, int_4 _p_ job_, int_4 _p_ info_)
16274 { // ** body not listed **
16437 }
16438
16439 // VIF THU 20 NOV 2025 22:20:34 ** SSICO ** SSICO PAGE 00557
16440
16441 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16442 // S S U U B B R R O O U U T I NN N E
16443 // S U U B B R R O O U U T I N N N E
16444 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16445 // S U U B B R R O O U U T I N N N E
16446 // S S U U B B R R O O U U T I N NN E
16447 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16448
16449 // SSSSS SSSSS III CCCCC OOOOO
16450 // S S S S I C C O O
16451 // S S I C O O
16452 // SSSSS SSSSS I C O O
16453 // S S I C O O
16454 // S S S S I C C O O
16455 // SSSSS SSSSS III CCCCC OOOOO
16456
16457
16458 // VIF THU 20 NOV 2025 22:20:34 ** SSICO ** DIAGNOSTICS PAGE 00558
16459
16460
16461 // VIF THU 20 NOV 2025 22:20:34 ** SSICO ** GENERATED CODE PAGE 00559
16462
16463 int_4 _ssico (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, real_4 _p_ z_)
16464 { // ** body not listed **
16691 }
16692
16693 // VIF THU 20 NOV 2025 22:20:34 ** SSIDI ** SSIDI PAGE 00564
16694
16695 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16696 // S S U U B B R R O O U U T I NN N E
16697 // S U U B B R R O O U U T I N N N E
16698 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16699 // S U U B B R R O O U U T I N N N E
16700 // S S U U B B R R O O U U T I N NN E
16701 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16702
16703 // SSSSS SSSSS III DDDDDD III
16704 // S S S S I D D I
16705 // S S I D D I
16706 // SSSSS SSSSS I D D I
16707 // S S I D D I
16708 // S S S S I D D I
16709 // SSSSS SSSSS III DDDDDD III
16710
16711
16712 // VIF THU 20 NOV 2025 22:20:34 ** SSIDI ** DIAGNOSTICS PAGE 00565
16713
16714
16715 // VIF THU 20 NOV 2025 22:20:34 ** SSIDI ** GENERATED CODE PAGE 00566
16716
16717 int_4 _ssidi (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ det_, int_4 _p_ inert_, real_4
16718 _p_ work_, int_4 _p_ job_)
16719 { // ** body not listed **
16893 }
16894
16895 // VIF THU 20 NOV 2025 22:20:34 ** SSIFA ** SSIFA PAGE 00570
16896
16897 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16898 // S S U U B B R R O O U U T I NN N E
16899 // S U U B B R R O O U U T I N N N E
16900 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16901 // S U U B B R R O O U U T I N N N E
16902 // S S U U B B R R O O U U T I N NN E
16903 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16904
16905 // SSSSS SSSSS III FFFFFFF A
16906 // S S S S I F A A
16907 // S S I F A A
16908 // SSSSS SSSSS I FFFFF A A
16909 // S S I F AAAAAAA
16910 // S S S S I F A A
16911 // SSSSS SSSSS III F A A
16912
16913
16914 // VIF THU 20 NOV 2025 22:20:34 ** SSIFA ** DIAGNOSTICS PAGE 00571
16915
16916
16917 // VIF THU 20 NOV 2025 22:20:34 ** SSIFA ** GENERATED CODE PAGE 00572
16918
16919 int_4 _ssifa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
16920 { // ** body not listed **
17066 }
17067
17068 // VIF THU 20 NOV 2025 22:20:34 ** SSISL ** SSISL PAGE 00575
17069
17070 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17071 // S S U U B B R R O O U U T I NN N E
17072 // S U U B B R R O O U U T I N N N E
17073 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17074 // S U U B B R R O O U U T I N N N E
17075 // S S U U B B R R O O U U T I N NN E
17076 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17077
17078 // SSSSS SSSSS III SSSSS L
17079 // S S S S I S S L
17080 // S S I S L
17081 // SSSSS SSSSS I SSSSS L
17082 // S S I S L
17083 // S S S S I S S L
17084 // SSSSS SSSSS III SSSSS LLLLLLL
17085
17086
17087 // VIF THU 20 NOV 2025 22:20:34 ** SSISL ** DIAGNOSTICS PAGE 00576
17088
17089
17090 // VIF THU 20 NOV 2025 22:20:34 ** SSISL ** GENERATED CODE PAGE 00577
17091
17092 int_4 _ssisl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ b_)
17093 { // ** body not listed **
17197 }
17198
17199 // VIF THU 20 NOV 2025 22:20:34 ** SSPCO ** SSPCO PAGE 00580
17200
17201 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17202 // S S U U B B R R O O U U T I NN N E
17203 // S U U B B R R O O U U T I N N N E
17204 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17205 // S U U B B R R O O U U T I N N N E
17206 // S S U U B B R R O O U U T I N NN E
17207 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17208
17209 // SSSSS SSSSS PPPPPP CCCCC OOOOO
17210 // S S S S P P C C O O
17211 // S S P P C O O
17212 // SSSSS SSSSS PPPPPP C O O
17213 // S S P C O O
17214 // S S S S P C C O O
17215 // SSSSS SSSSS P CCCCC OOOOO
17216
17217
17218 // VIF THU 20 NOV 2025 22:20:34 ** SSPCO ** DIAGNOSTICS PAGE 00581
17219
17220
17221 // VIF THU 20 NOV 2025 22:20:34 ** SSPCO ** GENERATED CODE PAGE 00582
17222
17223 int_4 _sspco (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, real_4 _p_ z_)
17224 { // ** body not listed **
17485 }
17486
17487 // VIF THU 20 NOV 2025 22:20:34 ** SSPDI ** SSPDI PAGE 00588
17488
17489 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17490 // S S U U B B R R O O U U T I NN N E
17491 // S U U B B R R O O U U T I N N N E
17492 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17493 // S U U B B R R O O U U T I N N N E
17494 // S S U U B B R R O O U U T I N NN E
17495 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17496
17497 // SSSSS SSSSS PPPPPP DDDDDD III
17498 // S S S S P P D D I
17499 // S S P P D D I
17500 // SSSSS SSSSS PPPPPP D D I
17501 // S S P D D I
17502 // S S S S P D D I
17503 // SSSSS SSSSS P DDDDDD III
17504
17505
17506 // VIF THU 20 NOV 2025 22:20:34 ** SSPDI ** DIAGNOSTICS PAGE 00589
17507
17508
17509 // VIF THU 20 NOV 2025 22:20:34 ** SSPDI ** GENERATED CODE PAGE 00590
17510
17511 int_4 _sspdi (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ det_, int_4 _p_ inert_, real_4 _p_ work_, int_4
17512 _p_ job_)
17513 { // ** body not listed **
17707 }
17708
17709 // VIF THU 20 NOV 2025 22:20:34 ** SSPFA ** SSPFA PAGE 00594
17710
17711 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17712 // S S U U B B R R O O U U T I NN N E
17713 // S U U B B R R O O U U T I N N N E
17714 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17715 // S U U B B R R O O U U T I N N N E
17716 // S S U U B B R R O O U U T I N NN E
17717 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17718
17719 // SSSSS SSSSS PPPPPP FFFFFFF A
17720 // S S S S P P F A A
17721 // S S P P F A A
17722 // SSSSS SSSSS PPPPPP FFFFF A A
17723 // S S P F AAAAAAA
17724 // S S S S P F A A
17725 // SSSSS SSSSS P F A A
17726
17727
17728 // VIF THU 20 NOV 2025 22:20:34 ** SSPFA ** DIAGNOSTICS PAGE 00595
17729
17730
17731 // VIF THU 20 NOV 2025 22:20:34 ** SSPFA ** GENERATED CODE PAGE 00596
17732
17733 int_4 _sspfa (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
17734 { // ** body not listed **
17913 }
17914
17915 // VIF THU 20 NOV 2025 22:20:34 ** SSPSL ** SSPSL PAGE 00600
17916
17917 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17918 // S S U U B B R R O O U U T I NN N E
17919 // S U U B B R R O O U U T I N N N E
17920 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17921 // S U U B B R R O O U U T I N N N E
17922 // S S U U B B R R O O U U T I N NN E
17923 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17924
17925 // SSSSS SSSSS PPPPPP SSSSS L
17926 // S S S S P P S S L
17927 // S S P P S L
17928 // SSSSS SSSSS PPPPPP SSSSS L
17929 // S S P S L
17930 // S S S S P S S L
17931 // SSSSS SSSSS P SSSSS LLLLLLL
17932
17933
17934 // VIF THU 20 NOV 2025 22:20:34 ** SSPSL ** DIAGNOSTICS PAGE 00601
17935
17936
17937 // VIF THU 20 NOV 2025 22:20:34 ** SSPSL ** GENERATED CODE PAGE 00602
17938
17939 int_4 _sspsl (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ b_)
17940 { // ** body not listed **
18055 }
18056
18057 // VIF THU 20 NOV 2025 22:20:34 ** SSVDC ** SSVDC PAGE 00605
18058
18059 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18060 // S S U U B B R R O O U U T I NN N E
18061 // S U U B B R R O O U U T I N N N E
18062 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18063 // S U U B B R R O O U U T I N N N E
18064 // S S U U B B R R O O U U T I N NN E
18065 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18066
18067 // SSSSS SSSSS V V DDDDDD CCCCC
18068 // S S S S V V D D C C
18069 // S S V V D D C
18070 // SSSSS SSSSS V V D D C
18071 // S S V V D D C
18072 // S S S S V V D D C C
18073 // SSSSS SSSSS V DDDDDD CCCCC
18074
18075
18076 // VIF THU 20 NOV 2025 22:20:34 ** SSVDC ** DIAGNOSTICS PAGE 00606
18077
18078
18079 // VIF THU 20 NOV 2025 22:20:34 ** SSVDC ** GENERATED CODE PAGE 00607
18080
18081 int_4 _ssvdc (real_4 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, real_4 _p_ s_, real_4 _p_ e_, real_4 _p_ u_,
18082 int_4 _p_ ldu_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ info_)
18083 { // ** body not listed **
18498 }
18499
18500 // VIF THU 20 NOV 2025 22:20:34 ** STRCO ** STRCO PAGE 00616
18501
18502 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18503 // S S U U B B R R O O U U T I NN N E
18504 // S U U B B R R O O U U T I N N N E
18505 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18506 // S U U B B R R O O U U T I N N N E
18507 // S S U U B B R R O O U U T I N NN E
18508 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18509
18510 // SSSSS TTTTTTT RRRRRR CCCCC OOOOO
18511 // S S T R R C C O O
18512 // S T R R C O O
18513 // SSSSS T RRRRRR C O O
18514 // S T R R C O O
18515 // S S T R R C C O O
18516 // SSSSS T R R CCCCC OOOOO
18517
18518
18519 // VIF THU 20 NOV 2025 22:20:34 ** STRCO ** DIAGNOSTICS PAGE 00617
18520
18521
18522 // VIF THU 20 NOV 2025 22:20:34 ** STRCO ** GENERATED CODE PAGE 00618
18523
18524 int_4 _strco (real_4 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_ job_)
18525 { // ** body not listed **
18652 }
18653
18654 // VIF THU 20 NOV 2025 22:20:34 ** STRDI ** STRDI PAGE 00621
18655
18656 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18657 // S S U U B B R R O O U U T I NN N E
18658 // S U U B B R R O O U U T I N N N E
18659 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18660 // S U U B B R R O O U U T I N N N E
18661 // S S U U B B R R O O U U T I N NN E
18662 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18663
18664 // SSSSS TTTTTTT RRRRRR DDDDDD III
18665 // S S T R R D D I
18666 // S T R R D D I
18667 // SSSSS T RRRRRR D D I
18668 // S T R R D D I
18669 // S S T R R D D I
18670 // SSSSS T R R DDDDDD III
18671
18672
18673 // VIF THU 20 NOV 2025 22:20:34 ** STRDI ** DIAGNOSTICS PAGE 00622
18674
18675
18676 // VIF THU 20 NOV 2025 22:20:34 ** STRDI ** GENERATED CODE PAGE 00623
18677
18678 int_4 _strdi (real_4 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_, int_4 _p_ info_)
18679 { // ** body not listed **
18773 }
18774
18775 // VIF THU 20 NOV 2025 22:20:34 ** STRSL ** STRSL PAGE 00625
18776
18777 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18778 // S S U U B B R R O O U U T I NN N E
18779 // S U U B B R R O O U U T I N N N E
18780 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18781 // S U U B B R R O O U U T I N N N E
18782 // S S U U B B R R O O U U T I N NN E
18783 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18784
18785 // SSSSS TTTTTTT RRRRRR SSSSS L
18786 // S S T R R S S L
18787 // S T R R S L
18788 // SSSSS T RRRRRR SSSSS L
18789 // S T R R S L
18790 // S S T R R S S L
18791 // SSSSS T R R SSSSS LLLLLLL
18792
18793
18794 // VIF THU 20 NOV 2025 22:20:34 ** STRSL ** DIAGNOSTICS PAGE 00626
18795
18796
18797 // VIF THU 20 NOV 2025 22:20:34 ** STRSL ** GENERATED CODE PAGE 00627
18798
18799 int_4 _strsl (real_4 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ job_, int_4 _p_ info_)
18800 { // ** body not listed **
18880 }
18881
18882 // VIF THU 20 NOV 2025 22:20:34 ** ZCHDC ** ZCHDC PAGE 00629
18883
18884 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18885 // S S U U B B R R O O U U T I NN N E
18886 // S U U B B R R O O U U T I N N N E
18887 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18888 // S U U B B R R O O U U T I N N N E
18889 // S S U U B B R R O O U U T I N NN E
18890 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18891
18892 // ZZZZZZZ CCCCC H H DDDDDD CCCCC
18893 // Z C C H H D D C C
18894 // Z C H H D D C
18895 // Z C HHHHHHH D D C
18896 // Z C H H D D C
18897 // * C C H H D D C C
18898 // ZZZZZZZ CCCCC H H DDDDDD CCCCC
18899
18900
18901 // VIF THU 20 NOV 2025 22:20:34 ** ZCHDC ** DIAGNOSTICS PAGE 00630
18902
18903
18904 // VIF THU 20 NOV 2025 22:20:34 ** ZCHDC ** GENERATED CODE PAGE 00631
18905
18906 int_4 _zchdc (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ p_, complex_16 _p_ work_, int_4 _p_ jpvt_, int_4 _p_ job_,
18907 int_4 _p_ info_)
18908 { // ** body not listed **
19090 }
19091
19092 // VIF THU 20 NOV 2025 22:20:34 ** ZCHDD ** ZCHDD PAGE 00635
19093
19094 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19095 // S S U U B B R R O O U U T I NN N E
19096 // S U U B B R R O O U U T I N N N E
19097 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19098 // S U U B B R R O O U U T I N N N E
19099 // S S U U B B R R O O U U T I N NN E
19100 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19101
19102 // ZZZZZZZ CCCCC H H DDDDDD DDDDDD
19103 // Z C C H H D D D D
19104 // Z C H H D D D D
19105 // Z C HHHHHHH D D D D
19106 // Z C H H D D D D
19107 // * C C H H D D D D
19108 // ZZZZZZZ CCCCC H H DDDDDD DDDDDD
19109
19110
19111 // VIF THU 20 NOV 2025 22:20:34 ** ZCHDD ** DIAGNOSTICS PAGE 00636
19112
19113
19114 // VIF THU 20 NOV 2025 22:20:34 ** ZCHDD ** GENERATED CODE PAGE 00637
19115
19116 int_4 _zchdd (complex_16 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, complex_16 _p_ x_, complex_16 _p_ z_, int_4 _p_ ldz_,
19117 int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ info_)
19118 { // ** body not listed **
19190 }
19191
19192 // VIF THU 20 NOV 2025 22:20:34 ** ZCHEX ** ZCHEX PAGE 00639
19193
19194 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19195 // S S U U B B R R O O U U T I NN N E
19196 // S U U B B R R O O U U T I N N N E
19197 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19198 // S U U B B R R O O U U T I N N N E
19199 // S S U U B B R R O O U U T I N NN E
19200 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19201
19202 // ZZZZZZZ CCCCC H H EEEEEEE X X
19203 // Z C C H H E X X
19204 // Z C H H E X X
19205 // Z C HHHHHHH EEEEE X
19206 // Z C H H E X X
19207 // * C C H H E X X
19208 // ZZZZZZZ CCCCC H H EEEEEEE X X
19209
19210
19211 // VIF THU 20 NOV 2025 22:20:34 ** ZCHEX ** DIAGNOSTICS PAGE 00640
19212
19213
19214 // VIF THU 20 NOV 2025 22:20:34 ** ZCHEX ** GENERATED CODE PAGE 00641
19215
19216 int_4 _zchex (complex_16 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, int_4 _p_ k_, int_4 _p_ l_, complex_16 _p_ z_, int_4 _p_
19217 ldz_, int_4 _p_ nz_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ job_)
19218 { // ** body not listed **
19340 }
19341
19342 // VIF THU 20 NOV 2025 22:20:34 ** ZCHUD ** ZCHUD PAGE 00644
19343
19344 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19345 // S S U U B B R R O O U U T I NN N E
19346 // S U U B B R R O O U U T I N N N E
19347 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19348 // S U U B B R R O O U U T I N N N E
19349 // S S U U B B R R O O U U T I N NN E
19350 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19351
19352 // ZZZZZZZ CCCCC H H U U DDDDDD
19353 // Z C C H H U U D D
19354 // Z C H H U U D D
19355 // Z C HHHHHHH U U D D
19356 // Z C H H U U D D
19357 // * C C H H U U D D
19358 // ZZZZZZZ CCCCC H H UUUUU DDDDDD
19359
19360
19361 // VIF THU 20 NOV 2025 22:20:34 ** ZCHUD ** DIAGNOSTICS PAGE 00645
19362
19363
19364 // VIF THU 20 NOV 2025 22:20:34 ** ZCHUD ** GENERATED CODE PAGE 00646
19365
19366 int_4 _zchud (complex_16 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, complex_16 _p_ x_, complex_16 _p_ z_, int_4 _p_ ldz_,
19367 int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_)
19368 { // ** body not listed **
19408 }
19409
19410 // VIF THU 20 NOV 2025 22:20:34 ** ZGBCO ** ZGBCO PAGE 00647
19411
19412 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19413 // S S U U B B R R O O U U T I NN N E
19414 // S U U B B R R O O U U T I N N N E
19415 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19416 // S U U B B R R O O U U T I N N N E
19417 // S S U U B B R R O O U U T I N NN E
19418 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19419
19420 // ZZZZZZZ GGGGG BBBBBB CCCCC OOOOO
19421 // Z G G B B C C O O
19422 // Z G B B C O O
19423 // Z G GGGG BBBBBB C O O
19424 // Z G G B B C O O
19425 // * G G B B C C O O
19426 // ZZZZZZZ GGGGG BBBBBB CCCCC OOOOO
19427
19428
19429 // VIF THU 20 NOV 2025 22:20:34 ** ZGBCO ** DIAGNOSTICS PAGE 00648
19430
19431
19432 // VIF THU 20 NOV 2025 22:20:34 ** ZGBCO ** GENERATED CODE PAGE 00649
19433
19434 int_4 _zgbco (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8
19435 _p_ rcond_, complex_16 _p_ z_)
19436 { // ** body not listed **
19605 }
19606
19607 // VIF THU 20 NOV 2025 22:20:34 ** ZGBDI ** ZGBDI PAGE 00653
19608
19609 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19610 // S S U U B B R R O O U U T I NN N E
19611 // S U U B B R R O O U U T I N N N E
19612 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19613 // S U U B B R R O O U U T I N N N E
19614 // S S U U B B R R O O U U T I N NN E
19615 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19616
19617 // ZZZZZZZ GGGGG BBBBBB DDDDDD III
19618 // Z G G B B D D I
19619 // Z G B B D D I
19620 // Z G GGGG BBBBBB D D I
19621 // Z G G B B D D I
19622 // * G G B B D D I
19623 // ZZZZZZZ GGGGG BBBBBB DDDDDD III
19624
19625
19626 // VIF THU 20 NOV 2025 22:20:34 ** ZGBDI ** DIAGNOSTICS PAGE 00654
19627
19628
19629 // VIF THU 20 NOV 2025 22:20:34 ** ZGBDI ** GENERATED CODE PAGE 00655
19630
19631 int_4 _zgbdi (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_,
19632 complex_16 _p_ det_)
19633 { // ** body not listed **
19669 }
19670
19671 // VIF THU 20 NOV 2025 22:20:34 ** ZGBFA ** ZGBFA PAGE 00656
19672
19673 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19674 // S S U U B B R R O O U U T I NN N E
19675 // S U U B B R R O O U U T I N N N E
19676 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19677 // S U U B B R R O O U U T I N N N E
19678 // S S U U B B R R O O U U T I N NN E
19679 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19680
19681 // ZZZZZZZ GGGGG BBBBBB FFFFFFF A
19682 // Z G G B B F A A
19683 // Z G B B F A A
19684 // Z G GGGG BBBBBB FFFFF A A
19685 // Z G G B B F AAAAAAA
19686 // * G G B B F A A
19687 // ZZZZZZZ GGGGG BBBBBB F A A
19688
19689
19690 // VIF THU 20 NOV 2025 22:20:34 ** ZGBFA ** DIAGNOSTICS PAGE 00657
19691
19692
19693 // VIF THU 20 NOV 2025 22:20:34 ** ZGBFA ** GENERATED CODE PAGE 00658
19694
19695 int_4 _zgbfa (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4
19696 _p_ info_)
19697 { // ** body not listed **
19785 }
19786
19787 // VIF THU 20 NOV 2025 22:20:34 ** ZGBSL ** ZGBSL PAGE 00660
19788
19789 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19790 // S S U U B B R R O O U U T I NN N E
19791 // S U U B B R R O O U U T I N N N E
19792 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19793 // S U U B B R R O O U U T I N N N E
19794 // S S U U B B R R O O U U T I N NN E
19795 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19796
19797 // ZZZZZZZ GGGGG BBBBBB SSSSS L
19798 // Z G G B B S S L
19799 // Z G B B S L
19800 // Z G GGGG BBBBBB SSSSS L
19801 // Z G G B B S L
19802 // * G G B B S S L
19803 // ZZZZZZZ GGGGG BBBBBB SSSSS LLLLLLL
19804
19805
19806 // VIF THU 20 NOV 2025 22:20:34 ** ZGBSL ** DIAGNOSTICS PAGE 00661
19807
19808
19809 // VIF THU 20 NOV 2025 22:20:34 ** ZGBSL ** GENERATED CODE PAGE 00662
19810
19811 int_4 _zgbsl (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_,
19812 complex_16 _p_ b_, int_4 _p_ job_)
19813 { // ** body not listed **
19884 }
19885
19886 // VIF THU 20 NOV 2025 22:20:34 ** ZGECO ** ZGECO PAGE 00664
19887
19888 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19889 // S S U U B B R R O O U U T I NN N E
19890 // S U U B B R R O O U U T I N N N E
19891 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19892 // S U U B B R R O O U U T I N N N E
19893 // S S U U B B R R O O U U T I N NN E
19894 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19895
19896 // ZZZZZZZ GGGGG EEEEEEE CCCCC OOOOO
19897 // Z G G E C C O O
19898 // Z G E C O O
19899 // Z G GGGG EEEEE C O O
19900 // Z G G E C O O
19901 // * G G E C C O O
19902 // ZZZZZZZ GGGGG EEEEEEE CCCCC OOOOO
19903
19904
19905 // VIF THU 20 NOV 2025 22:20:34 ** ZGECO ** DIAGNOSTICS PAGE 00665
19906
19907
19908 // VIF THU 20 NOV 2025 22:20:34 ** ZGECO ** GENERATED CODE PAGE 00666
19909
19910 int_4 _zgeco (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
19911 { // ** body not listed **
20057 }
20058
20059 // VIF THU 20 NOV 2025 22:20:34 ** ZGEDI ** ZGEDI PAGE 00669
20060
20061 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20062 // S S U U B B R R O O U U T I NN N E
20063 // S U U B B R R O O U U T I N N N E
20064 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20065 // S U U B B R R O O U U T I N N N E
20066 // S S U U B B R R O O U U T I N NN E
20067 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20068
20069 // ZZZZZZZ GGGGG EEEEEEE DDDDDD III
20070 // Z G G E D D I
20071 // Z G E D D I
20072 // Z G GGGG EEEEE D D I
20073 // Z G G E D D I
20074 // * G G E D D I
20075 // ZZZZZZZ GGGGG EEEEEEE DDDDDD III
20076
20077
20078 // VIF THU 20 NOV 2025 22:20:34 ** ZGEDI ** DIAGNOSTICS PAGE 00670
20079
20080
20081 // VIF THU 20 NOV 2025 22:20:34 ** ZGEDI ** GENERATED CODE PAGE 00671
20082
20083 int_4 _zgedi (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, complex_16 _p_ det_, complex_16 _p_
20084 work_, int_4 _p_ job_)
20085 { // ** body not listed **
20167 }
20168
20169 // VIF THU 20 NOV 2025 22:20:34 ** ZGEFA ** ZGEFA PAGE 00673
20170
20171 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20172 // S S U U B B R R O O U U T I NN N E
20173 // S U U B B R R O O U U T I N N N E
20174 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20175 // S U U B B R R O O U U T I N N N E
20176 // S S U U B B R R O O U U T I N NN E
20177 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20178
20179 // ZZZZZZZ GGGGG EEEEEEE FFFFFFF A
20180 // Z G G E F A A
20181 // Z G E F A A
20182 // Z G GGGG EEEEE FFFFF A A
20183 // Z G G E F AAAAAAA
20184 // * G G E F A A
20185 // ZZZZZZZ GGGGG EEEEEEE F A A
20186
20187
20188 // VIF THU 20 NOV 2025 22:20:34 ** ZGEFA ** DIAGNOSTICS PAGE 00674
20189
20190
20191 // VIF THU 20 NOV 2025 22:20:34 ** ZGEFA ** GENERATED CODE PAGE 00675
20192
20193 int_4 _zgefa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
20194 { // ** body not listed **
20247 }
20248
20249 // VIF THU 20 NOV 2025 22:20:34 ** ZGESL ** ZGESL PAGE 00677
20250
20251 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20252 // S S U U B B R R O O U U T I NN N E
20253 // S U U B B R R O O U U T I N N N E
20254 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20255 // S U U B B R R O O U U T I N N N E
20256 // S S U U B B R R O O U U T I N NN E
20257 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20258
20259 // ZZZZZZZ GGGGG EEEEEEE SSSSS L
20260 // Z G G E S S L
20261 // Z G E S L
20262 // Z G GGGG EEEEE SSSSS L
20263 // Z G G E S L
20264 // * G G E S S L
20265 // ZZZZZZZ GGGGG EEEEEEE SSSSS LLLLLLL
20266
20267
20268 // VIF THU 20 NOV 2025 22:20:34 ** ZGESL ** DIAGNOSTICS PAGE 00678
20269
20270
20271 // VIF THU 20 NOV 2025 22:20:34 ** ZGESL ** GENERATED CODE PAGE 00679
20272
20273 int_4 _zgesl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, complex_16 _p_ b_, int_4 _p_ job_)
20274 { // ** body not listed **
20332 }
20333
20334 // VIF THU 20 NOV 2025 22:20:34 ** ZGTSL ** ZGTSL PAGE 00681
20335
20336 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20337 // S S U U B B R R O O U U T I NN N E
20338 // S U U B B R R O O U U T I N N N E
20339 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20340 // S U U B B R R O O U U T I N N N E
20341 // S S U U B B R R O O U U T I N NN E
20342 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20343
20344 // ZZZZZZZ GGGGG TTTTTTT SSSSS L
20345 // Z G G T S S L
20346 // Z G T S L
20347 // Z G GGGG T SSSSS L
20348 // Z G G T S L
20349 // * G G T S S L
20350 // ZZZZZZZ GGGGG T SSSSS LLLLLLL
20351
20352
20353 // VIF THU 20 NOV 2025 22:20:34 ** ZGTSL ** DIAGNOSTICS PAGE 00682
20354
20355
20356 // VIF THU 20 NOV 2025 22:20:34 ** ZGTSL ** GENERATED CODE PAGE 00683
20357
20358 int_4 _zgtsl (int_4 _p_ n_, complex_16 _p_ c_, complex_16 _p_ d_, complex_16 _p_ e_, complex_16 _p_ b_, int_4 _p_ info_
20359 )
20360 { // ** body not listed **
20431 }
20432
20433 // VIF THU 20 NOV 2025 22:20:34 ** ZHICO ** ZHICO PAGE 00685
20434
20435 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20436 // S S U U B B R R O O U U T I NN N E
20437 // S U U B B R R O O U U T I N N N E
20438 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20439 // S U U B B R R O O U U T I N N N E
20440 // S S U U B B R R O O U U T I N NN E
20441 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20442
20443 // ZZZZZZZ H H III CCCCC OOOOO
20444 // Z H H I C C O O
20445 // Z H H I C O O
20446 // Z HHHHHHH I C O O
20447 // Z H H I C O O
20448 // * H H I C C O O
20449 // ZZZZZZZ H H III CCCCC OOOOO
20450
20451
20452 // VIF THU 20 NOV 2025 22:20:34 ** ZHICO ** DIAGNOSTICS PAGE 00686
20453
20454
20455 // VIF THU 20 NOV 2025 22:20:34 ** ZHICO ** GENERATED CODE PAGE 00687
20456
20457 int_4 _zhico (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
20458 { // ** body not listed **
20727 { // ** body not listed **
20902 }
20903
20904 // VIF THU 20 NOV 2025 22:20:34 ** ZHIFA ** ZHIFA PAGE 00698
20905
20906 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20907 // S S U U B B R R O O U U T I NN N E
20908 // S U U B B R R O O U U T I N N N E
20909 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20910 // S U U B B R R O O U U T I N N N E
20911 // S S U U B B R R O O U U T I N NN E
20912 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20913
20914 // ZZZZZZZ H H III FFFFFFF A
20915 // Z H H I F A A
20916 // Z H H I F A A
20917 // Z HHHHHHH I FFFFF A A
20918 // Z H H I F AAAAAAA
20919 // * H H I F A A
20920 // ZZZZZZZ H H III F A A
20921
20922
20923 // VIF THU 20 NOV 2025 22:20:34 ** ZHIFA ** DIAGNOSTICS PAGE 00699
20924
20925
20926 // VIF THU 20 NOV 2025 22:20:34 ** ZHIFA ** GENERATED CODE PAGE 00700
20927
20928 int_4 _zhifa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
20929 { // ** body not listed **
21086 }
21087
21088 // VIF THU 20 NOV 2025 22:20:34 ** ZHISL ** ZHISL PAGE 00704
21089
21090 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
21091 // S S U U B B R R O O U U T I NN N E
21092 // S U U B B R R O O U U T I N N N E
21093 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
21094 // S U U B B R R O O U U T I N N N E
21095 // S S U U B B R R O O U U T I N NN E
21096 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
21097
21098 // ZZZZZZZ H H III SSSSS L
21099 // Z H H I S S L
21100 // Z H H I S L
21101 // Z HHHHHHH I SSSSS L
21102 // Z H H I S L
21103 // * H H I S S L
21104 // ZZZZZZZ H H III SSSSS LLLLLLL
21105
21106
21107 // VIF THU 20 NOV 2025 22:20:34 ** ZHISL ** DIAGNOSTICS PAGE 00705
21108
21109
21110 // VIF THU 20 NOV 2025 22:20:34 ** ZHISL ** GENERATED CODE PAGE 00706
21111
21112 int_4 _zhisl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
21113 { // ** body not listed **
21217 }
21218
21219 // VIF THU 20 NOV 2025 22:20:34 ** ZHPCO ** ZHPCO PAGE 00709
21220
21221 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
21222 // S S U U B B R R O O U U T I NN N E
21223 // S U U B B R R O O U U T I N N N E
21224 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
21225 // S U U B B R R O O U U T I N N N E
21226 // S S U U B B R R O O U U T I N NN E
21227 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
21228
21229 // ZZZZZZZ H H PPPPPP CCCCC OOOOO
21230 // Z H H P P C C O O
21231 // Z H H P P C O O
21232 // Z HHHHHHH PPPPPP C O O
21233 // Z H H P C O O
21234 // * H H P C C O O
21235 // ZZZZZZZ H H P CCCCC OOOOO
21236
21237
21238 // VIF THU 20 NOV 2025 22:20:34 ** ZHPCO ** DIAGNOSTICS PAGE 00710
21239
21240
21241 // VIF THU 20 NOV 2025 22:20:34 ** ZHPCO ** GENERATED CODE PAGE 00711
21242
21243 int_4 _zhpco (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
21244 { // ** body not listed **
21543 { // ** body not listed **
21738 }
21739
21740 // VIF THU 20 NOV 2025 22:20:34 ** ZHPFA ** ZHPFA PAGE 00723
21741
21742 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
21743 // S S U U B B R R O O U U T I NN N E
21744 // S U U B B R R O O U U T I N N N E
21745 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
21746 // S U U B B R R O O U U T I N N N E
21747 // S S U U B B R R O O U U T I N NN E
21748 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
21749
21750 // ZZZZZZZ H H PPPPPP FFFFFFF A
21751 // Z H H P P F A A
21752 // Z H H P P F A A
21753 // Z HHHHHHH PPPPPP FFFFF A A
21754 // Z H H P F AAAAAAA
21755 // * H H P F A A
21756 // ZZZZZZZ H H P F A A
21757
21758
21759 // VIF THU 20 NOV 2025 22:20:34 ** ZHPFA ** DIAGNOSTICS PAGE 00724
21760
21761
21762 // VIF THU 20 NOV 2025 22:20:34 ** ZHPFA ** GENERATED CODE PAGE 00725
21763
21764 int_4 _zhpfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
21765 { // ** body not listed **
21948 }
21949
21950 // VIF THU 20 NOV 2025 22:20:34 ** ZHPSL ** ZHPSL PAGE 00729
21951
21952 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
21953 // S S U U B B R R O O U U T I NN N E
21954 // S U U B B R R O O U U T I N N N E
21955 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
21956 // S U U B B R R O O U U T I N N N E
21957 // S S U U B B R R O O U U T I N NN E
21958 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
21959
21960 // ZZZZZZZ H H PPPPPP SSSSS L
21961 // Z H H P P S S L
21962 // Z H H P P S L
21963 // Z HHHHHHH PPPPPP SSSSS L
21964 // Z H H P S L
21965 // * H H P S S L
21966 // ZZZZZZZ H H P SSSSS LLLLLLL
21967
21968
21969 // VIF THU 20 NOV 2025 22:20:34 ** ZHPSL ** DIAGNOSTICS PAGE 00730
21970
21971
21972 // VIF THU 20 NOV 2025 22:20:34 ** ZHPSL ** GENERATED CODE PAGE 00731
21973
21974 int_4 _zhpsl (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
21975 { // ** body not listed **
22090 }
22091
22092 // VIF THU 20 NOV 2025 22:20:34 ** ZMACH ** ZMACH PAGE 00734
22093
22094 // RRRRRR EEEEEEE A L 88888
22095 // R R E A A L * * 8 8
22096 // R R E A A L * * 8 8
22097 // RRRRRR EEEEE A A L ******* 88888
22098 // R R E AAAAAAA L * * 8 8
22099 // R R E A A L * * 8 8
22100 // R R EEEEEEE A A LLLLLLL 88888
22101
22102 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
22103 // F U U NN N C C T I O O NN N
22104 // F U U N N N C T I O O N N N
22105 // FFFFF U U N N N C T I O O N N N
22106 // F U U N N N C T I O O N N N
22107 // F U U N NN C C T I O O N NN
22108 // F UUUUU N N CCCCC T III OOOOO N N
22109
22110 // ZZZZZZZ M M A CCCCC H H
22111 // Z MM MM A A C C H H
22112 // Z M M M M A A C H H
22113 // Z M M M A A C HHHHHHH
22114 // Z M M AAAAAAA C H H
22115 // * M M A A C C H H
22116 // ZZZZZZZ M M A A CCCCC H H
22117
22118
22119 // VIF THU 20 NOV 2025 22:20:34 ** ZMACH ** DIAGNOSTICS PAGE 00735
22120
22121
22122 // VIF THU 20 NOV 2025 22:20:34 ** ZMACH ** GENERATED CODE PAGE 00736
22123
22124 real_8 _zmach (int_4 _p_ job_)
22125 { // ** body not listed **
22160 }
22161
22162 // VIF THU 20 NOV 2025 22:20:34 ** ZPBCO ** ZPBCO PAGE 00737
22163
22164 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22165 // S S U U B B R R O O U U T I NN N E
22166 // S U U B B R R O O U U T I N N N E
22167 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22168 // S U U B B R R O O U U T I N N N E
22169 // S S U U B B R R O O U U T I N NN E
22170 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22171
22172 // ZZZZZZZ PPPPPP BBBBBB CCCCC OOOOO
22173 // Z P P B B C C O O
22174 // Z P P B B C O O
22175 // Z PPPPPP BBBBBB C O O
22176 // Z P B B C O O
22177 // * P B B C C O O
22178 // ZZZZZZZ P BBBBBB CCCCC OOOOO
22179
22180
22181 // VIF THU 20 NOV 2025 22:20:34 ** ZPBCO ** DIAGNOSTICS PAGE 00738
22182
22183
22184 // VIF THU 20 NOV 2025 22:20:34 ** ZPBCO ** GENERATED CODE PAGE 00739
22185
22186 int_4 _zpbco (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ rcond_, complex_16 _p_ z_,
22187 int_4 _p_ info_)
22188 { // ** body not listed **
22346 }
22347
22348 // VIF THU 20 NOV 2025 22:20:34 ** ZPBDI ** ZPBDI PAGE 00743
22349
22350 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22351 // S S U U B B R R O O U U T I NN N E
22352 // S U U B B R R O O U U T I N N N E
22353 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22354 // S U U B B R R O O U U T I N N N E
22355 // S S U U B B R R O O U U T I N NN E
22356 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22357
22358 // ZZZZZZZ PPPPPP BBBBBB DDDDDD III
22359 // Z P P B B D D I
22360 // Z P P B B D D I
22361 // Z PPPPPP BBBBBB D D I
22362 // Z P B B D D I
22363 // * P B B D D I
22364 // ZZZZZZZ P BBBBBB DDDDDD III
22365
22366
22367 // VIF THU 20 NOV 2025 22:20:34 ** ZPBDI ** DIAGNOSTICS PAGE 00744
22368
22369
22370 // VIF THU 20 NOV 2025 22:20:34 ** ZPBDI ** GENERATED CODE PAGE 00745
22371
22372 int_4 _zpbdi (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ det_)
22373 { // ** body not listed **
22406 }
22407
22408 // VIF THU 20 NOV 2025 22:20:34 ** ZPBFA ** ZPBFA PAGE 00746
22409
22410 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22411 // S S U U B B R R O O U U T I NN N E
22412 // S U U B B R R O O U U T I N N N E
22413 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22414 // S U U B B R R O O U U T I N N N E
22415 // S S U U B B R R O O U U T I N NN E
22416 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22417
22418 // ZZZZZZZ PPPPPP BBBBBB FFFFFFF A
22419 // Z P P B B F A A
22420 // Z P P B B F A A
22421 // Z PPPPPP BBBBBB FFFFF A A
22422 // Z P B B F AAAAAAA
22423 // * P B B F A A
22424 // ZZZZZZZ P BBBBBB F A A
22425
22426
22427 // VIF THU 20 NOV 2025 22:20:34 ** ZPBFA ** DIAGNOSTICS PAGE 00747
22428
22429
22430 // VIF THU 20 NOV 2025 22:20:34 ** ZPBFA ** GENERATED CODE PAGE 00748
22431
22432 int_4 _zpbfa (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
22433 { // ** body not listed **
22468 }
22469
22470 // VIF THU 20 NOV 2025 22:20:34 ** ZPBSL ** ZPBSL PAGE 00749
22471
22472 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22473 // S S U U B B R R O O U U T I NN N E
22474 // S U U B B R R O O U U T I N N N E
22475 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22476 // S U U B B R R O O U U T I N N N E
22477 // S S U U B B R R O O U U T I N NN E
22478 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22479
22480 // ZZZZZZZ PPPPPP BBBBBB SSSSS L
22481 // Z P P B B S S L
22482 // Z P P B B S L
22483 // Z PPPPPP BBBBBB SSSSS L
22484 // Z P B B S L
22485 // * P B B S S L
22486 // ZZZZZZZ P BBBBBB SSSSS LLLLLLL
22487
22488
22489 // VIF THU 20 NOV 2025 22:20:34 ** ZPBSL ** DIAGNOSTICS PAGE 00750
22490
22491
22492 // VIF THU 20 NOV 2025 22:20:34 ** ZPBSL ** GENERATED CODE PAGE 00751
22493
22494 int_4 _zpbsl (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, complex_16 _p_ b_)
22495 { // ** body not listed **
22517 }
22518
22519 // VIF THU 20 NOV 2025 22:20:34 ** ZPOCO ** ZPOCO PAGE 00752
22520
22521 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22522 // S S U U B B R R O O U U T I NN N E
22523 // S U U B B R R O O U U T I N N N E
22524 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22525 // S U U B B R R O O U U T I N N N E
22526 // S S U U B B R R O O U U T I N NN E
22527 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22528
22529 // ZZZZZZZ PPPPPP OOOOO CCCCC OOOOO
22530 // Z P P O O C C O O
22531 // Z P P O O C O O
22532 // Z PPPPPP O O C O O
22533 // Z P O O C O O
22534 // * P O O C C O O
22535 // ZZZZZZZ P OOOOO CCCCC OOOOO
22536
22537
22538 // VIF THU 20 NOV 2025 22:20:34 ** ZPOCO ** DIAGNOSTICS PAGE 00753
22539
22540
22541 // VIF THU 20 NOV 2025 22:20:34 ** ZPOCO ** GENERATED CODE PAGE 00754
22542
22543 int_4 _zpoco (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ rcond_, complex_16 _p_ z_, int_4 _p_ info_)
22544 { // ** body not listed **
22684 }
22685
22686 // VIF THU 20 NOV 2025 22:20:34 ** ZPODI ** ZPODI PAGE 00757
22687
22688 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22689 // S S U U B B R R O O U U T I NN N E
22690 // S U U B B R R O O U U T I N N N E
22691 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22692 // S U U B B R R O O U U T I N N N E
22693 // S S U U B B R R O O U U T I N NN E
22694 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22695
22696 // ZZZZZZZ PPPPPP OOOOO DDDDDD III
22697 // Z P P O O D D I
22698 // Z P P O O D D I
22699 // Z PPPPPP O O D D I
22700 // Z P O O D D I
22701 // * P O O D D I
22702 // ZZZZZZZ P OOOOO DDDDDD III
22703
22704
22705 // VIF THU 20 NOV 2025 22:20:34 ** ZPODI ** DIAGNOSTICS PAGE 00758
22706
22707
22708 // VIF THU 20 NOV 2025 22:20:34 ** ZPODI ** GENERATED CODE PAGE 00759
22709
22710 int_4 _zpodi (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
22711 { // ** body not listed **
22783 }
22784
22785 // VIF THU 20 NOV 2025 22:20:34 ** ZPOFA ** ZPOFA PAGE 00761
22786
22787 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22788 // S S U U B B R R O O U U T I NN N E
22789 // S U U B B R R O O U U T I N N N E
22790 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22791 // S U U B B R R O O U U T I N N N E
22792 // S S U U B B R R O O U U T I N NN E
22793 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22794
22795 // ZZZZZZZ PPPPPP OOOOO FFFFFFF A
22796 // Z P P O O F A A
22797 // Z P P O O F A A
22798 // Z PPPPPP O O FFFFF A A
22799 // Z P O O F AAAAAAA
22800 // * P O O F A A
22801 // ZZZZZZZ P OOOOO F A A
22802
22803
22804 // VIF THU 20 NOV 2025 22:20:34 ** ZPOFA ** DIAGNOSTICS PAGE 00762
22805
22806
22807 // VIF THU 20 NOV 2025 22:20:34 ** ZPOFA ** GENERATED CODE PAGE 00763
22808
22809 int_4 _zpofa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
22810 { // ** body not listed **
22841 }
22842
22843 // VIF THU 20 NOV 2025 22:20:34 ** ZPOSL ** ZPOSL PAGE 00764
22844
22845 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22846 // S S U U B B R R O O U U T I NN N E
22847 // S U U B B R R O O U U T I N N N E
22848 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22849 // S U U B B R R O O U U T I N N N E
22850 // S S U U B B R R O O U U T I N NN E
22851 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22852
22853 // ZZZZZZZ PPPPPP OOOOO SSSSS L
22854 // Z P P O O S S L
22855 // Z P P O O S L
22856 // Z PPPPPP O O SSSSS L
22857 // Z P O O S L
22858 // * P O O S S L
22859 // ZZZZZZZ P OOOOO SSSSS LLLLLLL
22860
22861
22862 // VIF THU 20 NOV 2025 22:20:34 ** ZPOSL ** DIAGNOSTICS PAGE 00765
22863
22864
22865 // VIF THU 20 NOV 2025 22:20:34 ** ZPOSL ** GENERATED CODE PAGE 00766
22866
22867 int_4 _zposl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_16 _p_ b_)
22868 { // ** body not listed **
22885 }
22886
22887 // VIF THU 20 NOV 2025 22:20:34 ** ZPPCO ** ZPPCO PAGE 00767
22888
22889 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22890 // S S U U B B R R O O U U T I NN N E
22891 // S U U B B R R O O U U T I N N N E
22892 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22893 // S U U B B R R O O U U T I N N N E
22894 // S S U U B B R R O O U U T I N NN E
22895 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22896
22897 // ZZZZZZZ PPPPPP PPPPPP CCCCC OOOOO
22898 // Z P P P P C C O O
22899 // Z P P P P C O O
22900 // Z PPPPPP PPPPPP C O O
22901 // Z P P C O O
22902 // * P P C C O O
22903 // ZZZZZZZ P P CCCCC OOOOO
22904
22905
22906 // VIF THU 20 NOV 2025 22:20:34 ** ZPPCO ** DIAGNOSTICS PAGE 00768
22907
22908
22909 // VIF THU 20 NOV 2025 22:20:34 ** ZPPCO ** GENERATED CODE PAGE 00769
22910
22911 int_4 _zppco (complex_16 _p_ ap_, int_4 _p_ n_, real_8 _p_ rcond_, complex_16 _p_ z_, int_4 _p_ info_)
22912 { // ** body not listed **
23062 }
23063
23064 // VIF THU 20 NOV 2025 22:20:34 ** ZPPDI ** ZPPDI PAGE 00772
23065
23066 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23067 // S S U U B B R R O O U U T I NN N E
23068 // S U U B B R R O O U U T I N N N E
23069 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23070 // S U U B B R R O O U U T I N N N E
23071 // S S U U B B R R O O U U T I N NN E
23072 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23073
23074 // ZZZZZZZ PPPPPP PPPPPP DDDDDD III
23075 // Z P P P P D D I
23076 // Z P P P P D D I
23077 // Z PPPPPP PPPPPP D D I
23078 // Z P P D D I
23079 // * P P D D I
23080 // ZZZZZZZ P P DDDDDD III
23081
23082
23083 // VIF THU 20 NOV 2025 22:20:34 ** ZPPDI ** DIAGNOSTICS PAGE 00773
23084
23085
23086 // VIF THU 20 NOV 2025 22:20:34 ** ZPPDI ** GENERATED CODE PAGE 00774
23087
23088 int_4 _zppdi (complex_16 _p_ ap_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
23089 { // ** body not listed **
23177 }
23178
23179 // VIF THU 20 NOV 2025 22:20:34 ** ZPPFA ** ZPPFA PAGE 00776
23180
23181 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23182 // S S U U B B R R O O U U T I NN N E
23183 // S U U B B R R O O U U T I N N N E
23184 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23185 // S U U B B R R O O U U T I N N N E
23186 // S S U U B B R R O O U U T I N NN E
23187 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23188
23189 // ZZZZZZZ PPPPPP PPPPPP FFFFFFF A
23190 // Z P P P P F A A
23191 // Z P P P P F A A
23192 // Z PPPPPP PPPPPP FFFFF A A
23193 // Z P P F AAAAAAA
23194 // * P P F A A
23195 // ZZZZZZZ P P F A A
23196
23197
23198 // VIF THU 20 NOV 2025 22:20:34 ** ZPPFA ** DIAGNOSTICS PAGE 00777
23199
23200
23201 // VIF THU 20 NOV 2025 22:20:34 ** ZPPFA ** GENERATED CODE PAGE 00778
23202
23203 int_4 _zppfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
23204 { // ** body not listed **
23240 }
23241
23242 // VIF THU 20 NOV 2025 22:20:34 ** ZPPSL ** ZPPSL PAGE 00779
23243
23244 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23245 // S S U U B B R R O O U U T I NN N E
23246 // S U U B B R R O O U U T I N N N E
23247 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23248 // S U U B B R R O O U U T I N N N E
23249 // S S U U B B R R O O U U T I N NN E
23250 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23251
23252 // ZZZZZZZ PPPPPP PPPPPP SSSSS L
23253 // Z P P P P S S L
23254 // Z P P P P S L
23255 // Z PPPPPP PPPPPP SSSSS L
23256 // Z P P S L
23257 // * P P S S L
23258 // ZZZZZZZ P P SSSSS LLLLLLL
23259
23260
23261 // VIF THU 20 NOV 2025 22:20:34 ** ZPPSL ** DIAGNOSTICS PAGE 00780
23262
23263
23264 // VIF THU 20 NOV 2025 22:20:34 ** ZPPSL ** GENERATED CODE PAGE 00781
23265
23266 int_4 _zppsl (complex_16 _p_ ap_, int_4 _p_ n_, complex_16 _p_ b_)
23267 { // ** body not listed **
23287 }
23288
23289 // VIF THU 20 NOV 2025 22:20:34 ** ZPTSL ** ZPTSL PAGE 00782
23290
23291 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23292 // S S U U B B R R O O U U T I NN N E
23293 // S U U B B R R O O U U T I N N N E
23294 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23295 // S U U B B R R O O U U T I N N N E
23296 // S S U U B B R R O O U U T I N NN E
23297 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23298
23299 // ZZZZZZZ PPPPPP TTTTTTT SSSSS L
23300 // Z P P T S S L
23301 // Z P P T S L
23302 // Z PPPPPP T SSSSS L
23303 // Z P T S L
23304 // * P T S S L
23305 // ZZZZZZZ P T SSSSS LLLLLLL
23306
23307
23308 // VIF THU 20 NOV 2025 22:20:34 ** ZPTSL ** DIAGNOSTICS PAGE 00783
23309
23310
23311 // VIF THU 20 NOV 2025 22:20:34 ** ZPTSL ** GENERATED CODE PAGE 00784
23312
23313 int_4 _zptsl (int_4 _p_ n_, complex_16 _p_ d_, complex_16 _p_ e_, complex_16 _p_ b_)
23314 { // ** body not listed **
23368 }
23369
23370 // VIF THU 20 NOV 2025 22:20:34 ** ZQRDC ** ZQRDC PAGE 00786
23371
23372 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23373 // S S U U B B R R O O U U T I NN N E
23374 // S U U B B R R O O U U T I N N N E
23375 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23376 // S U U B B R R O O U U T I N N N E
23377 // S S U U B B R R O O U U T I N NN E
23378 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23379
23380 // ZZZZZZZ QQQQQ RRRRRR DDDDDD CCCCC
23381 // Z Q Q R R D D C C
23382 // Z Q Q R R D D C
23383 // Z Q Q RRRRRR D D C
23384 // Z Q Q Q R R D D C
23385 // * Q Q R R D D C C
23386 // ZZZZZZZ QQQQ Q R R DDDDDD CCCCC
23387
23388
23389 // VIF THU 20 NOV 2025 22:20:34 ** ZQRDC ** DIAGNOSTICS PAGE 00787
23390
23391
23392 // VIF THU 20 NOV 2025 22:20:34 ** ZQRDC ** GENERATED CODE PAGE 00788
23393
23394 int_4 _zqrdc (complex_16 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, complex_16 _p_ qraux_, int_4 _p_ jpvt_,
23395 complex_16 _p_ work_, int_4 _p_ job_)
23396 { // ** body not listed **
23540 }
23541
23542 // VIF THU 20 NOV 2025 22:20:34 ** ZQRSL ** ZQRSL PAGE 00791
23543
23544 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23545 // S S U U B B R R O O U U T I NN N E
23546 // S U U B B R R O O U U T I N N N E
23547 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23548 // S U U B B R R O O U U T I N N N E
23549 // S S U U B B R R O O U U T I N NN E
23550 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23551
23552 // ZZZZZZZ QQQQQ RRRRRR SSSSS L
23553 // Z Q Q R R S S L
23554 // Z Q Q R R S L
23555 // Z Q Q RRRRRR SSSSS L
23556 // Z Q Q Q R R S L
23557 // * Q Q R R S S L
23558 // ZZZZZZZ QQQQ Q R R SSSSS LLLLLLL
23559
23560
23561 // VIF THU 20 NOV 2025 22:20:34 ** ZQRSL ** DIAGNOSTICS PAGE 00792
23562
23563
23564 // VIF THU 20 NOV 2025 22:20:34 ** ZQRSL ** GENERATED CODE PAGE 00793
23565
23566 int_4 _zqrsl (complex_16 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ qraux_, complex_16 _p_ y_,
23567 complex_16 _p_ qy_, complex_16 _p_ qty_, complex_16 _p_ b_, complex_16 _p_ rsd_, complex_16 _p_ xb_, int_4 _p_ job_,
23568 int_4 _p_ info_)
23569 { // ** body not listed **
23734 }
23735
23736 // VIF THU 20 NOV 2025 22:20:34 ** ZSICO ** ZSICO PAGE 00797
23737
23738 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23739 // S S U U B B R R O O U U T I NN N E
23740 // S U U B B R R O O U U T I N N N E
23741 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23742 // S U U B B R R O O U U T I N N N E
23743 // S S U U B B R R O O U U T I N NN E
23744 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23745
23746 // ZZZZZZZ SSSSS III CCCCC OOOOO
23747 // Z S S I C C O O
23748 // Z S I C O O
23749 // Z SSSSS I C O O
23750 // Z S I C O O
23751 // * S S I C C O O
23752 // ZZZZZZZ SSSSS III CCCCC OOOOO
23753
23754
23755 // VIF THU 20 NOV 2025 22:20:34 ** ZSICO ** DIAGNOSTICS PAGE 00798
23756
23757
23758 // VIF THU 20 NOV 2025 22:20:34 ** ZSICO ** GENERATED CODE PAGE 00799
23759
23760 int_4 _zsico (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
23761 { // ** body not listed **
24030 { // ** body not listed **
24174 }
24175
24176 // VIF THU 20 NOV 2025 22:20:34 ** ZSIFA ** ZSIFA PAGE 00809
24177
24178 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24179 // S S U U B B R R O O U U T I NN N E
24180 // S U U B B R R O O U U T I N N N E
24181 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24182 // S U U B B R R O O U U T I N N N E
24183 // S S U U B B R R O O U U T I N NN E
24184 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24185
24186 // ZZZZZZZ SSSSS III FFFFFFF A
24187 // Z S S I F A A
24188 // Z S I F A A
24189 // Z SSSSS I FFFFF A A
24190 // Z S I F AAAAAAA
24191 // * S S I F A A
24192 // ZZZZZZZ SSSSS III F A A
24193
24194
24195 // VIF THU 20 NOV 2025 22:20:34 ** ZSIFA ** DIAGNOSTICS PAGE 00810
24196
24197
24198 // VIF THU 20 NOV 2025 22:20:34 ** ZSIFA ** GENERATED CODE PAGE 00811
24199
24200 int_4 _zsifa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
24201 { // ** body not listed **
24356 }
24357
24358 // VIF THU 20 NOV 2025 22:20:34 ** ZSISL ** ZSISL PAGE 00815
24359
24360 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24361 // S S U U B B R R O O U U T I NN N E
24362 // S U U B B R R O O U U T I N N N E
24363 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24364 // S U U B B R R O O U U T I N N N E
24365 // S S U U B B R R O O U U T I N NN E
24366 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24367
24368 // ZZZZZZZ SSSSS III SSSSS L
24369 // Z S S I S S L
24370 // Z S I S L
24371 // Z SSSSS I SSSSS L
24372 // Z S I S L
24373 // * S S I S S L
24374 // ZZZZZZZ SSSSS III SSSSS LLLLLLL
24375
24376
24377 // VIF THU 20 NOV 2025 22:20:34 ** ZSISL ** DIAGNOSTICS PAGE 00816
24378
24379
24380 // VIF THU 20 NOV 2025 22:20:34 ** ZSISL ** GENERATED CODE PAGE 00817
24381
24382 int_4 _zsisl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
24383 { // ** body not listed **
24487 }
24488
24489 // VIF THU 20 NOV 2025 22:20:34 ** ZSPCO ** ZSPCO PAGE 00820
24490
24491 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24492 // S S U U B B R R O O U U T I NN N E
24493 // S U U B B R R O O U U T I N N N E
24494 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24495 // S U U B B R R O O U U T I N N N E
24496 // S S U U B B R R O O U U T I N NN E
24497 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24498
24499 // ZZZZZZZ SSSSS PPPPPP CCCCC OOOOO
24500 // Z S S P P C C O O
24501 // Z S P P C O O
24502 // Z SSSSS PPPPPP C O O
24503 // Z S P C O O
24504 // * S S P C C O O
24505 // ZZZZZZZ SSSSS P CCCCC OOOOO
24506
24507
24508 // VIF THU 20 NOV 2025 22:20:34 ** ZSPCO ** DIAGNOSTICS PAGE 00821
24509
24510
24511 // VIF THU 20 NOV 2025 22:20:34 ** ZSPCO ** GENERATED CODE PAGE 00822
24512
24513 int_4 _zspco (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
24514 { // ** body not listed **
24813 { // ** body not listed **
24983 }
24984
24985 // VIF THU 20 NOV 2025 22:20:34 ** ZSPFA ** ZSPFA PAGE 00834
24986
24987 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24988 // S S U U B B R R O O U U T I NN N E
24989 // S U U B B R R O O U U T I N N N E
24990 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24991 // S U U B B R R O O U U T I N N N E
24992 // S S U U B B R R O O U U T I N NN E
24993 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24994
24995 // ZZZZZZZ SSSSS PPPPPP FFFFFFF A
24996 // Z S S P P F A A
24997 // Z S P P F A A
24998 // Z SSSSS PPPPPP FFFFF A A
24999 // Z S P F AAAAAAA
25000 // * S S P F A A
25001 // ZZZZZZZ SSSSS P F A A
25002
25003
25004 // VIF THU 20 NOV 2025 22:20:34 ** ZSPFA ** DIAGNOSTICS PAGE 00835
25005
25006
25007 // VIF THU 20 NOV 2025 22:20:34 ** ZSPFA ** GENERATED CODE PAGE 00836
25008
25009 int_4 _zspfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
25010 { // ** body not listed **
25191 }
25192
25193 // VIF THU 20 NOV 2025 22:20:34 ** ZSPSL ** ZSPSL PAGE 00840
25194
25195 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
25196 // S S U U B B R R O O U U T I NN N E
25197 // S U U B B R R O O U U T I N N N E
25198 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
25199 // S U U B B R R O O U U T I N N N E
25200 // S S U U B B R R O O U U T I N NN E
25201 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
25202
25203 // ZZZZZZZ SSSSS PPPPPP SSSSS L
25204 // Z S S P P S S L
25205 // Z S P P S L
25206 // Z SSSSS PPPPPP SSSSS L
25207 // Z S P S L
25208 // * S S P S S L
25209 // ZZZZZZZ SSSSS P SSSSS LLLLLLL
25210
25211
25212 // VIF THU 20 NOV 2025 22:20:34 ** ZSPSL ** DIAGNOSTICS PAGE 00841
25213
25214
25215 // VIF THU 20 NOV 2025 22:20:34 ** ZSPSL ** GENERATED CODE PAGE 00842
25216
25217 int_4 _zspsl (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
25218 { // ** body not listed **
25333 }
25334
25335 // VIF THU 20 NOV 2025 22:20:34 ** ZSVDC ** ZSVDC PAGE 00845
25336
25337 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
25338 // S S U U B B R R O O U U T I NN N E
25339 // S U U B B R R O O U U T I N N N E
25340 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
25341 // S U U B B R R O O U U T I N N N E
25342 // S S U U B B R R O O U U T I N NN E
25343 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
25344
25345 // ZZZZZZZ SSSSS V V DDDDDD CCCCC
25346 // Z S S V V D D C C
25347 // Z S V V D D C
25348 // Z SSSSS V V D D C
25349 // Z S V V D D C
25350 // * S S V V D D C C
25351 // ZZZZZZZ SSSSS V DDDDDD CCCCC
25352
25353
25354 // VIF THU 20 NOV 2025 22:20:34 ** ZSVDC ** DIAGNOSTICS PAGE 00846
25355
25356
25357 // VIF THU 20 NOV 2025 22:20:34 ** ZSVDC ** GENERATED CODE PAGE 00847
25358
25359 int_4 _zsvdc (complex_16 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, complex_16 _p_ s_, complex_16 _p_ e_,
25360 complex_16 _p_ u_, int_4 _p_ ldu_, complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ work_, int_4 _p_ job_, int_4 _p_
25361 info_)
25362 { // ** body not listed **
25814 }
25815
25816 // VIF THU 20 NOV 2025 22:20:34 ** ZTRCO ** ZTRCO PAGE 00856
25817
25818 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
25819 // S S U U B B R R O O U U T I NN N E
25820 // S U U B B R R O O U U T I N N N E
25821 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
25822 // S U U B B R R O O U U T I N N N E
25823 // S S U U B B R R O O U U T I N NN E
25824 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
25825
25826 // ZZZZZZZ TTTTTTT RRRRRR CCCCC OOOOO
25827 // Z T R R C C O O
25828 // Z T R R C O O
25829 // Z T RRRRRR C O O
25830 // Z T R R C O O
25831 // * T R R C C O O
25832 // ZZZZZZZ T R R CCCCC OOOOO
25833
25834
25835 // VIF THU 20 NOV 2025 22:20:34 ** ZTRCO ** DIAGNOSTICS PAGE 00857
25836
25837
25838 // VIF THU 20 NOV 2025 22:20:34 ** ZTRCO ** GENERATED CODE PAGE 00858
25839
25840 int_4 _ztrco (complex_16 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_8 _p_ rcond_, complex_16 _p_ z_, int_4 _p_ job_)
25841 { // ** body not listed **
25979 }
25980
25981 // VIF THU 20 NOV 2025 22:20:34 ** ZTRDI ** ZTRDI PAGE 00861
25982
25983 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
25984 // S S U U B B R R O O U U T I NN N E
25985 // S U U B B R R O O U U T I N N N E
25986 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
25987 // S U U B B R R O O U U T I N N N E
25988 // S S U U B B R R O O U U T I N NN E
25989 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
25990
25991 // ZZZZZZZ TTTTTTT RRRRRR DDDDDD III
25992 // Z T R R D D I
25993 // Z T R R D D I
25994 // Z T RRRRRR D D I
25995 // Z T R R D D I
25996 // * T R R D D I
25997 // ZZZZZZZ T R R DDDDDD III
25998
25999
26000 // VIF THU 20 NOV 2025 22:20:34 ** ZTRDI ** DIAGNOSTICS PAGE 00862
26001
26002
26003 // VIF THU 20 NOV 2025 22:20:34 ** ZTRDI ** GENERATED CODE PAGE 00863
26004
26005 int_4 _ztrdi (complex_16 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, complex_16 _p_ det_, int_4 _p_ job_, int_4 _p_ info_)
26006 { // ** body not listed **
26103 }
26104
26105 // VIF THU 20 NOV 2025 22:20:34 ** ZTRSL ** ZTRSL PAGE 00865
26106
26107 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
26108 // S S U U B B R R O O U U T I NN N E
26109 // S U U B B R R O O U U T I N N N E
26110 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
26111 // S U U B B R R O O U U T I N N N E
26112 // S S U U B B R R O O U U T I N NN E
26113 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
26114
26115 // ZZZZZZZ TTTTTTT RRRRRR SSSSS L
26116 // Z T R R S S L
26117 // Z T R R S L
26118 // Z T RRRRRR SSSSS L
26119 // Z T R R S L
26120 // * T R R S S L
26121 // ZZZZZZZ T R R SSSSS LLLLLLL
26122
26123
26124 // VIF THU 20 NOV 2025 22:20:34 ** ZTRSL ** DIAGNOSTICS PAGE 00866
26125
26126
26127 // VIF THU 20 NOV 2025 22:20:34 ** ZTRSL ** GENERATED CODE PAGE 00867
26128
26129 int_4 _ztrsl (complex_16 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, complex_16 _p_ b_, int_4 _p_ job_, int_4 _p_ info_)
26130 { // ** body not listed **
26211 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
