mathlib-lapack-arpack.c
1 //! @file mathlib-lapack-arpack.c
2 //
3 //! @section copyright
4 //
5 // This file is part of VIF - vintage fortran compiler.
6 // Copyright 2020-2025 J. Marcel van der Veer <algol68g@xs4all.nl>.
7 //
8 //! @section license
9 //
10 // This program is free software; you can redistribute it and/or modify it
11 // under the terms of the gnu general public license as published by the
12 // free software foundation; either version 3 of the license, or
13 // (at your option) any later version.
14 //
15 // This program is distributed in the hope that it will be useful, but
16 // without any warranty; without even the implied warranty of merchantability
17 // or fitness for a particular purpose. See the GNU general public license for
18 // more details. you should have received a copy of the GNU general public
19 // license along with this program. If not, see <http://www.gnu.org/licenses/>.
20 //
21 //! @Synopsis
22 //
23 //! Subprograms from LAPACK-ARPACK
24
25 // Compiled from Fortran source code by VIF.
26
27 // LAPACK routines to support ARPACK.
28 // These LAPACK routines MUST be from the public release.
29
30 // The license for LAPACK Fortran source code is:
31 //
32 // BSD Software License
33 //
34 // Pertains to ARPACK and P_ARPACK
35 //
36 // Copyright (c) 1996-2008 Rice University.
37 // Developed by D.C. Sorensen, R.B. Lehoucq, C. Yang, and K. Maschhoff.
38 // All rights reserved.
39 //
40 // Redistribution and use in source and binary forms, with or without
41 // modification, are permitted provided that the following conditions are
42 // met:
43 //
44 // - Redistributions of source code must retain the above copyright
45 // notice, this list of conditions and the following disclaimer.
46 //
47 // - Redistributions in binary form must reproduce the above copyright
48 // notice, this list of conditions and the following disclaimer listed
49 // in this license in the documentation and/or other materials
50 // provided with the distribution.
51 //
52 // - Neither the name of the copyright holders nor the names of its
53 // contributors may be used to endorse or promote products derived from
54 // this software without specific prior written permission.
55 //
56 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
57 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
58 // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
59 // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
60 // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
61 // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
62 // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
63 // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
64 // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
65 // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
66 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
67
68 // VIF THU 20 NOV 2025 22:20:08 ** MARCEL ** LAPACK ARPACK PAGE 00001
69
70
71
72 // M M A RRRRRR CCCCC EEEEEEE L
73 // MM MM A A R R C C E L
74 // M M M M A A R R C E L
75 // M M M A A RRRRRR C EEEEE L
76 // M M AAAAAAA R R C E L
77 // M M A A R R C C E L
78 // M M A A R R CCCCC EEEEEEE LLLLLLL
79
80 // L A PPPPPP A CCCCC K K A RRRRRR PPPPPP A CCCCC
81 // L A A P P A A C C K K A A R R P P A A C C
82 // L A A P P A A C K K A A R R P P A A C
83 // L A A PPPPPP A A C KKK ***** A A RRRRRR PPPPPP A A C
84 // L AAAAAAA P AAAAAAA C K K AAAAAAA R R P AAAAAAA C
85 // L A A P A A C C K K A A R R P A A C C
86 // LLLLLLL A A P A A CCCCC K K A A R R P A A CCCCC
87
88
89
90
91 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
92
93 // ** linker ** object size 1833256 bytes
94 // ** statistics ** 144 subprograms, no errors, no warnings
95
96
97 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
98
99
100 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
101
102
103
104 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
105
106 /*
107 Generated by VIF - experimental VIntage Fortran compiler.
108 VIF release 1.4.1
109 */
110
111 #if defined (__GNUC__)
112 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
113 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
114 #if (__GNUC__ >= 14)
115 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
116 #pragma GCC diagnostic ignored "-Wimplicit-int"
117 #pragma GCC diagnostic ignored "-Wint-conversion"
118 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
119 #endif
120 #else
121 #error VIF requires GCC
122 #endif
123
124 #include <vif.h>
125
126 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
127
128
129 #define _dc_0 "cgbtf2"
130 #define _dc_1 "cgbtrf"
131 #define _dc_2 " "
132 #define _dc_3 "left"
133 #define _dc_4 "lower"
134 #define _dc_5 "no transpose"
135 #define _dc_6 "unit"
136 #define _dc_7 "n"
137 #define _dc_8 "t"
138 #define _dc_9 "c"
139 #define _dc_10 "cgbtrs"
140 #define _dc_11 "upper"
141 #define _dc_12 "non-unit"
142 #define _dc_13 "transpose"
143 #define _dc_14 "conjugate transpose"
144 #define _dc_15 "cgeqr2"
145 #define _dc_16 "cgttrf"
146 #define _dc_17 "cgttrs"
147 #define _dc_18 "safe minimum"
148 #define _dc_19 "u"
149 #define _dc_20 "l"
150 #define _dc_21 "precision"
151 #define _dc_22 "1"
152 #define _dc_23 "m"
153 #define _dc_24 "o"
154 #define _dc_25 "i"
155 #define _dc_26 "f"
156 #define _dc_27 "e"
157 #define _dc_28 "s"
158 #define _dc_29 "g"
159 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00005
160
161 #define _dc_30 "h"
162 #define _dc_31 "b"
163 #define _dc_32 "q"
164 #define _dc_33 "z"
165 #define _dc_34 "clascl"
166 #define _dc_35 "y"
167 #define _dc_36 "clatrs"
168 #define _dc_37 "r"
169 #define _dc_38 "a"
170 #define _dc_39 "ctrevc"
171 #define _dc_40 "v"
172 #define _dc_41 "ctrexc"
173 #define _dc_42 "ctrsen"
174 #define _dc_43 "ctrsyl"
175 #define _dc_44 "p"
176 #define _dc_45 "cunm2r"
177 #define _dc_46 "dgbtf2"
178 #define _dc_47 "dgbtrf"
179 #define _dc_48 "dgbtrs"
180 #define _dc_49 "dgttrf"
181 #define _dc_50 "dgttrs"
182 #define _dc_51 "full"
183 #define _dc_52 "max"
184 #define _dc_53 "dpttrf"
185 #define _dc_54 "dpttrs"
186 #define _dc_55 "dsteqr"
187 #define _dc_56 "dtrevc"
188 #define _dc_57 "dtrexc"
189 #define _dc_58 "dtrsen"
190 #define _dc_59 "dtrsyl"
191 #define _dc_60 "sgbtf2"
192 #define _dc_61 "sgbtrf"
193 #define _dc_62 "sgbtrs"
194 #define _dc_63 "sgeqr2"
195 #define _dc_64 "sgttrf"
196 #define _dc_65 "sgttrs"
197 #define _dc_66 " warning. the value emin may be incorrect:-"
198 #define _dc_67 " emin = "
199 #define _dc_68 " if, after inspection, the value emin looks"
200 #define _dc_69 " acceptable please comment out "
201 #define _dc_70 " the if block as marked within the code of routine"
202 #define _dc_71 " slamc2,"
203 #define _dc_72 " otherwise supply emin explicitly."
204 #define _dc_73 "slascl"
205 #define _dc_74 "slasr "
206 #define _dc_75 "d"
207 #define _dc_76 "slasrt"
208 #define _dc_77 "sorm2r"
209 #define _dc_78 "spttrf"
210 #define _dc_79 "spttrs"
211 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00006
212
213 #define _dc_80 "ssteqr"
214 #define _dc_81 "strevc"
215 #define _dc_82 "strexc"
216 #define _dc_83 "strsen"
217 #define _dc_84 "strsyl"
218 #define _dc_85 "zgbtf2"
219 #define _dc_86 "zgbtrf"
220 #define _dc_87 "zgbtrs"
221 #define _dc_88 "zgeqr2"
222 #define _dc_89 "zgttrf"
223 #define _dc_90 "zgttrs"
224 #define _dc_91 "zlascl"
225 #define _dc_92 "zlatrs"
226 #define _dc_93 "ztrevc"
227 #define _dc_94 "ztrexc"
228 #define _dc_95 "ztrsen"
229 #define _dc_96 "ztrsyl"
230 #define _dc_97 "zunm2r"
231
232
233
234 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00007
235
236 static FORMAT *__fmt_a = NULL;
237 typedef char char_1[2];
238 typedef char char_3[4];
239 typedef char char_7[8];
240 typedef char char_15[16];
241 typedef char char_31[32];
242
243
244 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00008
245
246 #define __ncalls 145
247 static CALLS __calls[__ncalls] = {
248 { // ** body not listed **"cgbtf2", 0}, // subroutine
250 { // ** body not listed **"cgbtrs", 0}, // subroutine
252 { // ** body not listed **"cgttrf", 0}, // subroutine
254 { // ** body not listed **"clacgv", 0}, // subroutine
256 { // ** body not listed **"clacpy", 0}, // subroutine
258 { // ** body not listed **"clahqr", 0}, // subroutine
260 { // ** body not listed **"clanhs", 0}, // real*4 function
262 { // ** body not listed **"clarfg", 0}, // subroutine
264 { // ** body not listed **"clartg", 0}, // subroutine
266 { // ** body not listed **"claset", 0}, // subroutine
268 { // ** body not listed **"claswp", 0}, // subroutine
270 { // ** body not listed **"cmach", 0}, // real*4 function
272 { // ** body not listed **"ctrevc", 0}, // subroutine
274 { // ** body not listed **"ctrsen", 0}, // subroutine
276 { // ** body not listed **"cunm2r", 0}, // subroutine
278 { // ** body not listed **"dgbtrf", 0}, // subroutine
280 { // ** body not listed **"dgttrf", 0}, // subroutine
282 { // ** body not listed **"dlacon", 0}, // subroutine
284 { // ** body not listed **"dlae2", 0}, // subroutine
286 { // ** body not listed **"dlaexc", 0}, // subroutine
288 { // ** body not listed **"dlahqr", 0}, // subroutine
290 { // ** body not listed **"dlanhs", 0}, // real*8 function
292 { // ** body not listed **"dlaptm", 0}, // subroutine
294 { // ** body not listed **"dlaran", 0}, // real*8 function
298 { // ** body not listed **"dlarnd", 0}, // real*8 function
300 { // ** body not listed **"dlaruv", 0}, // subroutine
302 { // ** body not listed **"dpttrf", 0}, // subroutine
304 { // ** body not listed **"dsteqr", 0}, // subroutine
306 { // ** body not listed **"dtrexc", 0}, // subroutine
308 { // ** body not listed **"dtrsyl", 0}, // subroutine
310 { // ** body not listed **"icmax1", 0}, // integer*4 function
312 { // ** body not listed **"scsum1", 0}, // real*4 function
314 { // ** body not listed **"sgbtrf", 0}, // subroutine
316 { // ** body not listed **"sgeqr2", 0}, // subroutine
318 { // ** body not listed **"sgttrs", 0}, // subroutine
320 { // ** body not listed **"slacon", 0}, // subroutine
322 { // ** body not listed **"sladiv", 0}, // subroutine
324 { // ** body not listed **"slaev2", 0}, // subroutine
326 { // ** body not listed **"slagtm", 0}, // subroutine
328 { // ** body not listed **"slaln2", 0}, // subroutine
330 { // ** body not listed **"slamc1", 0}, // subroutine
332 { // ** body not listed **"slamc3", 0}, // real*4 function
334 { // ** body not listed **"slamc5", 0}, // subroutine
336 { // ** body not listed **"slanhs", 0}, // real*4 function
338 { // ** body not listed **"slanv2", 0}, // subroutine
340 { // ** body not listed **"slapy2", 0}, // real*4 function
342 { // ** body not listed **"slaran", 0}, // real*4 function
344 { // ** body not listed **"slarfg", 0}, // subroutine
346 { // ** body not listed **"slarnd", 0}, // real*4 function
350 { // ** body not listed **"slartg", 0}, // subroutine
352 { // ** body not listed **"slascl", 0}, // subroutine
354 { // ** body not listed **"slasr", 0}, // subroutine
356 { // ** body not listed **"slassq", 0}, // subroutine
358 { // ** body not listed **"slasy2", 0}, // subroutine
360 { // ** body not listed **"spttrf", 0}, // subroutine
362 { // ** body not listed **"ssteqr", 0}, // subroutine
364 { // ** body not listed **"strexc", 0}, // subroutine
366 { // ** body not listed **"strsyl", 0}, // subroutine
368 { // ** body not listed **"zgbtf2", 0}, // subroutine
370 { // ** body not listed **"zgbtrs", 0}, // subroutine
372 { // ** body not listed **"zgttrf", 0}, // subroutine
374 { // ** body not listed **"zlacgv", 0}, // subroutine
376 { // ** body not listed **"zlacpy", 0}, // subroutine
378 { // ** body not listed **"zlahqr", 0}, // subroutine
380 { // ** body not listed **"zlanhs", 0}, // real*8 function
382 { // ** body not listed **"zlarfg", 0}, // subroutine
384 { // ** body not listed **"zlartg", 0}, // subroutine
386 { // ** body not listed **"zlaset", 0}, // subroutine
388 { // ** body not listed **"zlaswp", 0}, // subroutine
390 { // ** body not listed **"zrot", 0}, // subroutine
392 { // ** body not listed **"ztrexc", 0}, // subroutine
394 { // ** body not listed **"ztrsyl", 0}, // subroutine
396 { // ** body not listed **NULL, 0}
397 };
409 } claenv_;
410
411
412 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00013
413
414
415 prototype int_4 _cgbtf2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, complex_8 _p_ ab_, int_4 _p_ ldab_,
416 int_4 _p_ ipiv_, int_4 _p_ info_);
417 prototype int_4 _cgbtrf (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, complex_8 _p_ ab_, int_4 _p_ ldab_,
418 int_4 _p_ ipiv_, int_4 _p_ info_);
419 prototype int_4 _cgbtrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, int_4 _p_ nrhs_, complex_8 _p_
420 ab_, int_4 _p_ ldab_, int_4 _p_ ipiv_, complex_8 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_);
421 prototype int_4 _cgeqr2 (int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ tau_, complex_8
422 _p_ work_, int_4 _p_ info_);
423 prototype int_4 _cgttrf (int_4 _p_ n_, complex_8 _p_ dl_, complex_8 _p_ d_, complex_8 _p_ du_, complex_8 _p_ du2_,
424 int_4 _p_ ipiv_, int_4 _p_ info_);
425 prototype int_4 _cgttrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ nrhs_, complex_8 _p_ dl_, complex_8 _p_ d_, complex_8
426 _p_ du_, complex_8 _p_ du2_, int_4 _p_ ipiv_, complex_8 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_);
427 prototype int_4 _clacgv (int_4 _p_ n_, complex_8 _p_ x_, int_4 _p_ incx_);
428 prototype int_4 _clacon (int_4 _p_ n_, complex_8 _p_ v_, complex_8 _p_ x_, real_4 _p_ est_, int_4 _p_ kase_);
429 prototype int_4 _clacpy (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_
430 , int_4 _p_ ldb_);
431 prototype complex_8 _cladiv (complex_8 _p_ x_, complex_8 _p_ y_);
432 prototype int_4 _clahqr (logical_4 _p_ wantt_, logical_4 _p_ wantz_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_,
433 complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ w_, int_4 _p_ iloz_, int_4 _p_ ihiz_, complex_8 _p_ z_, int_4 _p_ ldz_,
434 int_4 _p_ info_);
435 prototype real_4 _clange (char _p_ norm_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, real_4 _p_
436 work_);
437 prototype real_4 _clanhs (char _p_ norm_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, real_4 _p_ work_);
438 prototype int_4 _clarf (char _p_ side_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ incv_, complex_8 _p_
439 tau_, complex_8 _p_ c_, int_4 _p_ ldc_, complex_8 _p_ work_);
440 prototype int_4 _clarfg (int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ tau_);
441 prototype int_4 _clarnv (int_4 _p_ idist_, int_4 _p_ iseed_, int_4 _p_ n_, complex_8 _p_ x_);
442 prototype int_4 _clartg (complex_8 _p_ f_, complex_8 _p_ g_, real_4 _p_ cs_, complex_8 _p_ sn_, complex_8 _p_ r_);
443 prototype int_4 _clascl (char _p_ type_, int_4 _p_ kl_, int_4 _p_ ku_, real_4 _p_ cfrom_, real_4 _p_ cto_, int_4 _p_ m_
444 , int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ info_);
445 prototype int_4 _claset (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ beta_,
446 complex_8 _p_ a_, int_4 _p_ lda_);
447 prototype int_4 _classq (int_4 _p_ n_, complex_8 _p_ x_, int_4 _p_ incx_, real_4 _p_ scale_, real_4 _p_ sumsq_);
448 prototype int_4 _claswp (int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ k1_, int_4 _p_ k2_, int_4 _p_ ipiv_,
449 int_4 _p_ incx_);
450 prototype int_4 _clatrs (char _p_ uplo_, char _p_ trans_, char _p_ diag_, char _p_ normin_, int_4 _p_ n_, complex_8 _p_
451 a_, int_4 _p_ lda_, complex_8 _p_ x_, real_4 _p_ scale_, real_4 _p_ cnorm_, int_4 _p_ info_);
452 prototype real_4 _cmach (int_4 _p_ job_);
453 prototype int_4 _crot (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_, real_4 _p_
454 c_, complex_8 _p_ s_);
455 prototype int_4 _ctrevc (char _p_ side_, char _p_ howmny_, logical_4 _p_ select_, int_4 _p_ n_, complex_8 _p_ t_, int_4
456 _p_ ldt_, complex_8 _p_ vl_, int_4 _p_ ldvl_, complex_8 _p_ vr_, int_4 _p_ ldvr_, int_4 _p_ mm_, int_4 _p_ m_,
457 complex_8 _p_ work_, real_4 _p_ rwork_, int_4 _p_ info_);
458 prototype int_4 _ctrexc (char _p_ compq_, int_4 _p_ n_, complex_8 _p_ t_, int_4 _p_ ldt_, complex_8 _p_ q_, int_4 _p_
459 ldq_, int_4 _p_ ifst_, int_4 _p_ ilst_, int_4 _p_ info_);
460 prototype int_4 _ctrsen (char _p_ job_, char _p_ compq_, logical_4 _p_ select_, int_4 _p_ n_, complex_8 _p_ t_, int_4
461 _p_ ldt_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ w_, int_4 _p_ m_, real_4 _p_ s_, real_4 _p_ sep_, complex_8
462 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_);
463 prototype int_4 _ctrsyl (char _p_ trana_, char _p_ tranb_, int_4 _p_ isgn_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_
464 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00014
465
466 a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ c_, int_4 _p_ ldc_, real_4 _p_ scale_, int_4 _p_
467 info_);
468 prototype int_4 _cunm2r (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ a_,
469 int_4 _p_ lda_, complex_8 _p_ tau_, complex_8 _p_ c_, int_4 _p_ ldc_, complex_8 _p_ work_, int_4 _p_ info_);
470 prototype int_4 _dgbtf2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, real_8 _p_ ab_, int_4 _p_ ldab_,
471 int_4 _p_ ipiv_, int_4 _p_ info_);
472 prototype int_4 _dgbtrf (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, real_8 _p_ ab_, int_4 _p_ ldab_,
473 int_4 _p_ ipiv_, int_4 _p_ info_);
474 prototype int_4 _dgbtrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, int_4 _p_ nrhs_, real_8 _p_ ab_,
475 int_4 _p_ ldab_, int_4 _p_ ipiv_, real_8 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_);
476 prototype int_4 _dgttrf (int_4 _p_ n_, real_8 _p_ dl_, real_8 _p_ d_, real_8 _p_ du_, real_8 _p_ du2_, int_4 _p_ ipiv_,
477 int_4 _p_ info_);
478 prototype int_4 _dgttrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ dl_, real_8 _p_ d_, real_8 _p_ du_,
479 real_8 _p_ du2_, int_4 _p_ ipiv_, real_8 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_);
480 prototype int_4 _dlacon (int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ x_, int_4 _p_ isgn_, real_8 _p_ est_, int_4 _p_ kase_)
481 ;
482 prototype int_4 _dladiv (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ d_, real_8 _p_ p_, real_8 _p_ q_);
483 prototype int_4 _dlae2 (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ rt1_, real_8 _p_ rt2_);
484 prototype int_4 _dlaev2 (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ rt1_, real_8 _p_ rt2_, real_8 _p_ cs1_
485 , real_8 _p_ sn1_);
486 prototype int_4 _dlaexc (logical_4 _p_ wantq_, int_4 _p_ n_, real_8 _p_ t_, int_4 _p_ ldt_, real_8 _p_ q_, int_4 _p_
487 ldq_, int_4 _p_ j1_, int_4 _p_ n1_, int_4 _p_ n2_, real_8 _p_ work_, int_4 _p_ info_);
488 prototype int_4 _dlagtm (char _p_ trans_, int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ alpha_, real_8 _p_ dl_, real_8 _p_
489 d_, real_8 _p_ du_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ beta_, real_8 _p_ b_, int_4 _p_ ldb_);
490 prototype int_4 _dlahqr (logical_4 _p_ wantt_, logical_4 _p_ wantz_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_,
491 real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ wr_, real_8 _p_ wi_, int_4 _p_ iloz_, int_4 _p_ ihiz_, real_8 _p_ z_, int_4
492 _p_ ldz_, int_4 _p_ info_);
493 prototype int_4 _dlaln2 (logical_4 _p_ ltrans_, int_4 _p_ na_, int_4 _p_ nw_, real_8 _p_ smin_, real_8 _p_ ca_, real_8
494 _p_ a_, int_4 _p_ lda_, real_8 _p_ d1_, real_8 _p_ d2_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ wr_, real_8 _p_ wi_,
495 real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ scale_, real_8 _p_ xnorm_, int_4 _p_ info_);
496 prototype real_8 _dlanhs (char _p_ norm_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ work_);
497 prototype int_4 _dlanv2 (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ d_, real_8 _p_ rt1r_, real_8 _p_ rt1i_
498 , real_8 _p_ rt2r_, real_8 _p_ rt2i_, real_8 _p_ cs_, real_8 _p_ sn_);
499 prototype int_4 _dlaptm (int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ alpha_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ x_,
500 int_4 _p_ ldx_, real_8 _p_ beta_, real_8 _p_ b_, int_4 _p_ ldb_);
501 prototype real_8 _dlapy3 (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ z_);
502 prototype real_8 _dlaran (int_4 _p_ iseed_);
503 prototype int_4 _dlarfx (char _p_ side_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ tau_, real_8 _p_ c_,
504 int_4 _p_ ldc_, real_8 _p_ work_);
505 prototype real_8 _dlarnd (int_4 _p_ idist_, int_4 _p_ iseed_);
506 prototype int_4 _dlarnv (int_4 _p_ idist_, int_4 _p_ iseed_, int_4 _p_ n_, real_8 _p_ x_);
507 prototype int_4 _dlaruv (int_4 _p_ iseed_, int_4 _p_ n_, real_8 _p_ x_);
508 prototype int_4 _dlasy2 (logical_4 _p_ ltranl_, logical_4 _p_ ltranr_, int_4 _p_ isgn_, int_4 _p_ n1_, int_4 _p_ n2_,
509 real_8 _p_ tl_, int_4 _p_ ldtl_, real_8 _p_ tr_, int_4 _p_ ldtr_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ scale_,
510 real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ xnorm_, int_4 _p_ info_);
511 prototype int_4 _dpttrf (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, int_4 _p_ info_);
512 prototype int_4 _dpttrs (int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ b_, int_4 _p_ ldb_,
513 int_4 _p_ info_);
514 prototype int_4 _dsteqr (char _p_ compz_, int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ z_, int_4 _p_ ldz_,
515 real_8 _p_ work_, int_4 _p_ info_);
516 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00015
517
518 prototype int_4 _dtrevc (char _p_ side_, char _p_ howmny_, logical_4 _p_ select_, int_4 _p_ n_, real_8 _p_ t_, int_4
519 _p_ ldt_, real_8 _p_ vl_, int_4 _p_ ldvl_, real_8 _p_ vr_, int_4 _p_ ldvr_, int_4 _p_ mm_, int_4 _p_ m_, real_8 _p_
520 work_, int_4 _p_ info_);
521 prototype int_4 _dtrexc (char _p_ compq_, int_4 _p_ n_, real_8 _p_ t_, int_4 _p_ ldt_, real_8 _p_ q_, int_4 _p_ ldq_,
522 int_4 _p_ ifst_, int_4 _p_ ilst_, real_8 _p_ work_, int_4 _p_ info_);
523 prototype int_4 _dtrsen (char _p_ job_, char _p_ compq_, logical_4 _p_ select_, int_4 _p_ n_, real_8 _p_ t_, int_4 _p_
524 ldt_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ wr_, real_8 _p_ wi_, int_4 _p_ m_, real_8 _p_ s_, real_8 _p_ sep_,
525 real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_);
526 prototype int_4 _dtrsyl (char _p_ trana_, char _p_ tranb_, int_4 _p_ isgn_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_,
527 int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ scale_, int_4 _p_ info_);
528 prototype real_8 _dzsum1 (int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ incx_);
529 prototype int_4 _icmax1 (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_);
530 prototype int_4 _izmax1 (int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ incx_);
531 prototype real_4 _scsum1 (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_);
532 prototype int_4 _sgbtf2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, real_4 _p_ ab_, int_4 _p_ ldab_,
533 int_4 _p_ ipiv_, int_4 _p_ info_);
534 prototype int_4 _sgbtrf (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, real_4 _p_ ab_, int_4 _p_ ldab_,
535 int_4 _p_ ipiv_, int_4 _p_ info_);
536 prototype int_4 _sgbtrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, int_4 _p_ nrhs_, real_4 _p_ ab_,
537 int_4 _p_ ldab_, int_4 _p_ ipiv_, real_4 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_);
538 prototype int_4 _sgeqr2 (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ tau_, real_4 _p_ work_,
539 int_4 _p_ info_);
540 prototype int_4 _sgttrf (int_4 _p_ n_, real_4 _p_ dl_, real_4 _p_ d_, real_4 _p_ du_, real_4 _p_ du2_, int_4 _p_ ipiv_,
541 int_4 _p_ info_);
542 prototype int_4 _sgttrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ nrhs_, real_4 _p_ dl_, real_4 _p_ d_, real_4 _p_ du_,
543 real_4 _p_ du2_, int_4 _p_ ipiv_, real_4 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_);
544 prototype int_4 _slabad (real_4 _p_ small_, real_4 _p_ large_);
545 prototype int_4 _slacon (int_4 _p_ n_, real_4 _p_ v_, real_4 _p_ x_, int_4 _p_ isgn_, real_4 _p_ est_, int_4 _p_ kase_)
546 ;
547 prototype int_4 _slacpy (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_,
548 int_4 _p_ ldb_);
549 prototype int_4 _sladiv (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ p_, real_4 _p_ q_);
550 prototype int_4 _slae2 (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ rt1_, real_4 _p_ rt2_);
551 prototype int_4 _slaev2 (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ rt1_, real_4 _p_ rt2_, real_4 _p_ cs1_
552 , real_4 _p_ sn1_);
553 prototype int_4 _slaexc (logical_4 _p_ wantq_, int_4 _p_ n_, real_4 _p_ t_, int_4 _p_ ldt_, real_4 _p_ q_, int_4 _p_
554 ldq_, int_4 _p_ j1_, int_4 _p_ n1_, int_4 _p_ n2_, real_4 _p_ work_, int_4 _p_ info_);
555 prototype int_4 _slagtm (char _p_ trans_, int_4 _p_ n_, int_4 _p_ nrhs_, real_4 _p_ alpha_, real_4 _p_ dl_, real_4 _p_
556 d_, real_4 _p_ du_, real_4 _p_ x_, int_4 _p_ ldx_, real_4 _p_ beta_, real_4 _p_ b_, int_4 _p_ ldb_);
557 prototype int_4 _slahqr (logical_4 _p_ wantt_, logical_4 _p_ wantz_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_,
558 real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ wr_, real_4 _p_ wi_, int_4 _p_ iloz_, int_4 _p_ ihiz_, real_4 _p_ z_, int_4
559 _p_ ldz_, int_4 _p_ info_);
560 prototype int_4 _slaln2 (logical_4 _p_ ltrans_, int_4 _p_ na_, int_4 _p_ nw_, real_4 _p_ smin_, real_4 _p_ ca_, real_4
561 _p_ a_, int_4 _p_ lda_, real_4 _p_ d1_, real_4 _p_ d2_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ wr_, real_4 _p_ wi_,
562 real_4 _p_ x_, int_4 _p_ ldx_, real_4 _p_ scale_, real_4 _p_ xnorm_, int_4 _p_ info_);
563 prototype real_4 _slamch (char _p_ cmach_);
564 prototype int_4 _slamc1 (int_4 _p_ beta_, int_4 _p_ t_, logical_4 _p_ rnd_, logical_4 _p_ ieee1_);
565 prototype int_4 _slamc2 (int_4 _p_ beta_, int_4 _p_ t_, logical_4 _p_ rnd_, real_4 _p_ eps_, int_4 _p_ emin_, real_4
566 _p_ rmin_, int_4 _p_ emax_, real_4 _p_ rmax_);
567 prototype real_4 _slamc3 (real_4 _p_ a_, real_4 _p_ b_);
568 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00016
569
570 prototype int_4 _slamc4 (int_4 _p_ emin_, real_4 _p_ start_, int_4 _p_ base_);
571 prototype int_4 _slamc5 (int_4 _p_ beta_, int_4 _p_ p_, int_4 _p_ emin_, logical_4 _p_ ieee_, int_4 _p_ emax_, real_4
572 _p_ rmax_);
573 prototype real_4 _slange (char _p_ norm_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ work_);
574 prototype real_4 _slanhs (char _p_ norm_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ work_);
575 prototype real_4 _slanst (char _p_ norm_, int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_);
576 prototype int_4 _slanv2 (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ rt1r_, real_4 _p_ rt1i_
577 , real_4 _p_ rt2r_, real_4 _p_ rt2i_, real_4 _p_ cs_, real_4 _p_ sn_);
578 prototype int_4 _slaptm (int_4 _p_ n_, int_4 _p_ nrhs_, real_4 _p_ alpha_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ x_,
579 int_4 _p_ ldx_, real_4 _p_ beta_, real_4 _p_ b_, int_4 _p_ ldb_);
580 prototype real_4 _slapy2 (real_4 _p_ x_, real_4 _p_ y_);
581 prototype real_4 _slapy3 (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ z_);
582 prototype real_4 _slaran (int_4 _p_ iseed_);
583 prototype int_4 _slarf (char _p_ side_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ incv_, real_4 _p_ tau_,
584 real_4 _p_ c_, int_4 _p_ ldc_, real_4 _p_ work_);
585 prototype int_4 _slarfg (int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ tau_);
586 prototype int_4 _slarfx (char _p_ side_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ v_, real_4 _p_ tau_, real_4 _p_ c_,
587 int_4 _p_ ldc_, real_4 _p_ work_);
588 prototype real_4 _slarnd (int_4 _p_ idist_, int_4 _p_ iseed_);
589 prototype int_4 _slarnv (int_4 _p_ idist_, int_4 _p_ iseed_, int_4 _p_ n_, real_4 _p_ x_);
590 prototype int_4 _slartg (real_4 _p_ f_, real_4 _p_ g_, real_4 _p_ cs_, real_4 _p_ sn_, real_4 _p_ r_);
591 prototype int_4 _slaruv (int_4 _p_ iseed_, int_4 _p_ n_, real_4 _p_ x_);
592 prototype int_4 _slascl (char _p_ type_, int_4 _p_ kl_, int_4 _p_ ku_, real_4 _p_ cfrom_, real_4 _p_ cto_, int_4 _p_ m_
593 , int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ info_);
594 prototype int_4 _slaset (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ beta_, real_4 _p_ a_
595 , int_4 _p_ lda_);
596 prototype int_4 _slasr (char _p_ side_, char _p_ pivot_, char _p_ direct_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ c_,
597 real_4 _p_ s_, real_4 _p_ a_, int_4 _p_ lda_);
598 prototype int_4 _slasrt (char _p_ id_, int_4 _p_ n_, real_4 _p_ d_, int_4 _p_ info_);
599 prototype int_4 _slassq (int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ scale_, real_4 _p_ sumsq_);
600 prototype int_4 _slaswp (int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ k1_, int_4 _p_ k2_, int_4 _p_ ipiv_,
601 int_4 _p_ incx_);
602 prototype int_4 _slasy2 (logical_4 _p_ ltranl_, logical_4 _p_ ltranr_, int_4 _p_ isgn_, int_4 _p_ n1_, int_4 _p_ n2_,
603 real_4 _p_ tl_, int_4 _p_ ldtl_, real_4 _p_ tr_, int_4 _p_ ldtr_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ scale_,
604 real_4 _p_ x_, int_4 _p_ ldx_, real_4 _p_ xnorm_, int_4 _p_ info_);
605 prototype int_4 _sorm2r (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ a_,
606 int_4 _p_ lda_, real_4 _p_ tau_, real_4 _p_ c_, int_4 _p_ ldc_, real_4 _p_ work_, int_4 _p_ info_);
607 prototype int_4 _spttrf (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_, int_4 _p_ info_);
608 prototype int_4 _spttrs (int_4 _p_ n_, int_4 _p_ nrhs_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ b_, int_4 _p_ ldb_,
609 int_4 _p_ info_);
610 prototype int_4 _ssteqr (char _p_ compz_, int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ z_, int_4 _p_ ldz_,
611 real_4 _p_ work_, int_4 _p_ info_);
612 prototype int_4 _strevc (char _p_ side_, char _p_ howmny_, logical_4 _p_ select_, int_4 _p_ n_, real_4 _p_ t_, int_4
613 _p_ ldt_, real_4 _p_ vl_, int_4 _p_ ldvl_, real_4 _p_ vr_, int_4 _p_ ldvr_, int_4 _p_ mm_, int_4 _p_ m_, real_4 _p_
614 work_, int_4 _p_ info_);
615 prototype int_4 _strexc (char _p_ compq_, int_4 _p_ n_, real_4 _p_ t_, int_4 _p_ ldt_, real_4 _p_ q_, int_4 _p_ ldq_,
616 int_4 _p_ ifst_, int_4 _p_ ilst_, real_4 _p_ work_, int_4 _p_ info_);
617 prototype int_4 _strsen (char _p_ job_, char _p_ compq_, logical_4 _p_ select_, int_4 _p_ n_, real_4 _p_ t_, int_4 _p_
618 ldt_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ wr_, real_4 _p_ wi_, int_4 _p_ m_, real_4 _p_ s_, real_4 _p_ sep_,
619 real_4 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_);
620 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00017
621
622 prototype int_4 _strsyl (char _p_ trana_, char _p_ tranb_, int_4 _p_ isgn_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_,
623 int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ c_, int_4 _p_ ldc_, real_4 _p_ scale_, int_4 _p_ info_);
624 prototype int_4 _xlaenv (int_4 _p_ ispec_, int_4 _p_ nvalue_);
625 prototype int_4 _zgbtf2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, complex_16 _p_ ab_, int_4 _p_ ldab_,
626 int_4 _p_ ipiv_, int_4 _p_ info_);
627 prototype int_4 _zgbtrf (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, complex_16 _p_ ab_, int_4 _p_ ldab_,
628 int_4 _p_ ipiv_, int_4 _p_ info_);
629 prototype int_4 _zgbtrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, int_4 _p_ nrhs_, complex_16 _p_
630 ab_, int_4 _p_ ldab_, int_4 _p_ ipiv_, complex_16 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_);
631 prototype int_4 _zgeqr2 (int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ tau_, complex_16
632 _p_ work_, int_4 _p_ info_);
633 prototype int_4 _zgttrf (int_4 _p_ n_, complex_16 _p_ dl_, complex_16 _p_ d_, complex_16 _p_ du_, complex_16 _p_ du2_,
634 int_4 _p_ ipiv_, int_4 _p_ info_);
635 prototype int_4 _zgttrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ nrhs_, complex_16 _p_ dl_, complex_16 _p_ d_,
636 complex_16 _p_ du_, complex_16 _p_ du2_, int_4 _p_ ipiv_, complex_16 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_);
637 prototype int_4 _zlacgv (int_4 _p_ n_, complex_16 _p_ x_, int_4 _p_ incx_);
638 prototype int_4 _zlacon (int_4 _p_ n_, complex_16 _p_ v_, complex_16 _p_ x_, real_8 _p_ est_, int_4 _p_ kase_);
639 prototype int_4 _zlacpy (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_
640 b_, int_4 _p_ ldb_);
641 prototype complex_16 _zladiv (complex_16 _p_ x_, complex_16 _p_ y_);
642 prototype int_4 _zlahqr (logical_4 _p_ wantt_, logical_4 _p_ wantz_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_,
643 complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ w_, int_4 _p_ iloz_, int_4 _p_ ihiz_, complex_16 _p_ z_, int_4 _p_
644 ldz_, int_4 _p_ info_);
645 prototype real_8 _zlange (char _p_ norm_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, real_8 _p_
646 work_);
647 prototype real_8 _zlanhs (char _p_ norm_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, real_8 _p_ work_);
648 prototype int_4 _zlarf (char _p_ side_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ v_, int_4 _p_ incv_, complex_16 _p_
649 tau_, complex_16 _p_ c_, int_4 _p_ ldc_, complex_16 _p_ work_);
650 prototype int_4 _zlarfg (int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ tau_);
651 prototype int_4 _zlarnv (int_4 _p_ idist_, int_4 _p_ iseed_, int_4 _p_ n_, complex_16 _p_ x_);
652 prototype int_4 _zlartg (complex_16 _p_ f_, complex_16 _p_ g_, real_8 _p_ cs_, complex_16 _p_ sn_, complex_16 _p_ r_);
653 prototype int_4 _zlascl (char _p_ type_, int_4 _p_ kl_, int_4 _p_ ku_, real_8 _p_ cfrom_, real_8 _p_ cto_, int_4 _p_ m_
654 , int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ info_);
655 prototype int_4 _zlaset (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ beta_,
656 complex_16 _p_ a_, int_4 _p_ lda_);
657 prototype int_4 _zlassq (int_4 _p_ n_, complex_16 _p_ x_, int_4 _p_ incx_, real_8 _p_ scale_, real_8 _p_ sumsq_);
658 prototype int_4 _zlaswp (int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ k1_, int_4 _p_ k2_, int_4 _p_ ipiv_
659 , int_4 _p_ incx_);
660 prototype int_4 _zlatrs (char _p_ uplo_, char _p_ trans_, char _p_ diag_, char _p_ normin_, int_4 _p_ n_, complex_16
661 _p_ a_, int_4 _p_ lda_, complex_16 _p_ x_, real_8 _p_ scale_, real_8 _p_ cnorm_, int_4 _p_ info_);
662 prototype int_4 _zrot (int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ incx_, complex_16 _p_ cy_, int_4 _p_ incy_, real_8
663 _p_ c_, complex_16 _p_ s_);
664 prototype int_4 _ztrevc (char _p_ side_, char _p_ howmny_, logical_4 _p_ select_, int_4 _p_ n_, complex_16 _p_ t_,
665 int_4 _p_ ldt_, complex_16 _p_ vl_, int_4 _p_ ldvl_, complex_16 _p_ vr_, int_4 _p_ ldvr_, int_4 _p_ mm_, int_4 _p_ m_,
666 complex_16 _p_ work_, real_8 _p_ rwork_, int_4 _p_ info_);
667 prototype int_4 _ztrexc (char _p_ compq_, int_4 _p_ n_, complex_16 _p_ t_, int_4 _p_ ldt_, complex_16 _p_ q_, int_4 _p_
668 ldq_, int_4 _p_ ifst_, int_4 _p_ ilst_, int_4 _p_ info_);
669 prototype int_4 _ztrsen (char _p_ job_, char _p_ compq_, logical_4 _p_ select_, int_4 _p_ n_, complex_16 _p_ t_, int_4
670 _p_ ldt_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ w_, int_4 _p_ m_, real_8 _p_ s_, real_8 _p_ sep_,
671 complex_16 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_);
672 // VIF THU 20 NOV 2025 22:20:08 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00018
673
674 prototype int_4 _ztrsyl (char _p_ trana_, char _p_ tranb_, int_4 _p_ isgn_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_
675 a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ c_, int_4 _p_ ldc_, real_8 _p_ scale_, int_4 _p_
676 info_);
677 prototype int_4 _zunm2r (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ a_,
678 int_4 _p_ lda_, complex_16 _p_ tau_, complex_16 _p_ c_, int_4 _p_ ldc_, complex_16 _p_ work_, int_4 _p_ info_);
679
680
681
682
683
684
685
686
687
688
689
690
691
692 // VIF THU 20 NOV 2025 22:20:08 ** CGBTF2 ** CGBTF2 PAGE 00019
693
694 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
695 // S S U U B B R R O O U U T I NN N E
696 // S U U B B R R O O U U T I N N N E
697 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
698 // S U U B B R R O O U U T I N N N E
699 // S S U U B B R R O O U U T I N NN E
700 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
701
702 // CCCCC GGGGG BBBBBB TTTTTTT FFFFFFF 22222
703 // C C G G B B T F 2 2
704 // C G B B T F 2
705 // C G GGGG BBBBBB T FFFFF 22222
706 // C G G B B T F 2
707 // C C G G B B T F 2
708 // CCCCC GGGGG BBBBBB T F 2222222
709
710
711 // VIF THU 20 NOV 2025 22:20:08 ** CGBTF2 ** DIAGNOSTICS PAGE 00020
712
713
714 // VIF THU 20 NOV 2025 22:20:08 ** CGBTF2 ** GENERATED CODE PAGE 00021
715
716 int_4 _cgbtf2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, complex_8 _p_ ab_, int_4 _p_ ldab_, int_4 _p_
717 ipiv_, int_4 _p_ info_)
718 { // ** body not listed **
795 }
796
797 // VIF THU 20 NOV 2025 22:20:08 ** CGBTRF ** CGBTRF PAGE 00023
798
799 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
800 // S S U U B B R R O O U U T I NN N E
801 // S U U B B R R O O U U T I N N N E
802 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
803 // S U U B B R R O O U U T I N N N E
804 // S S U U B B R R O O U U T I N NN E
805 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
806
807 // CCCCC GGGGG BBBBBB TTTTTTT RRRRRR FFFFFFF
808 // C C G G B B T R R F
809 // C G B B T R R F
810 // C G GGGG BBBBBB T RRRRRR FFFFF
811 // C G G B B T R R F
812 // C C G G B B T R R F
813 // CCCCC GGGGG BBBBBB T R R F
814
815
816 // VIF THU 20 NOV 2025 22:20:08 ** CGBTRF ** DIAGNOSTICS PAGE 00024
817
818
819 // VIF THU 20 NOV 2025 22:20:08 ** CGBTRF ** GENERATED CODE PAGE 00025
820
821 int_4 _cgbtrf (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, complex_8 _p_ ab_, int_4 _p_ ldab_, int_4 _p_
822 ipiv_, int_4 _p_ info_)
823 { // ** body not listed **
1030 }
1031
1032 // VIF THU 20 NOV 2025 22:20:08 ** CGBTRS ** CGBTRS PAGE 00030
1033
1034 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1035 // S S U U B B R R O O U U T I NN N E
1036 // S U U B B R R O O U U T I N N N E
1037 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1038 // S U U B B R R O O U U T I N N N E
1039 // S S U U B B R R O O U U T I N NN E
1040 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1041
1042 // CCCCC GGGGG BBBBBB TTTTTTT RRRRRR SSSSS
1043 // C C G G B B T R R S S
1044 // C G B B T R R S
1045 // C G GGGG BBBBBB T RRRRRR SSSSS
1046 // C G G B B T R R S
1047 // C C G G B B T R R S S
1048 // CCCCC GGGGG BBBBBB T R R SSSSS
1049
1050
1051 // VIF THU 20 NOV 2025 22:20:08 ** CGBTRS ** DIAGNOSTICS PAGE 00031
1052
1053
1054 // VIF THU 20 NOV 2025 22:20:08 ** CGBTRS ** GENERATED CODE PAGE 00032
1055
1056 int_4 _cgbtrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, int_4 _p_ nrhs_, complex_8 _p_ ab_, int_4
1057 _p_ ldab_, int_4 _p_ ipiv_, complex_8 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_)
1058 { // ** body not listed **
1165 }
1166
1167 // VIF THU 20 NOV 2025 22:20:08 ** CGEQR2 ** CGEQR2 PAGE 00035
1168
1169 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1170 // S S U U B B R R O O U U T I NN N E
1171 // S U U B B R R O O U U T I N N N E
1172 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1173 // S U U B B R R O O U U T I N N N E
1174 // S S U U B B R R O O U U T I N NN E
1175 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1176
1177 // CCCCC GGGGG EEEEEEE QQQQQ RRRRRR 22222
1178 // C C G G E Q Q R R 2 2
1179 // C G E Q Q R R 2
1180 // C G GGGG EEEEE Q Q RRRRRR 22222
1181 // C G G E Q Q Q R R 2
1182 // C C G G E Q Q R R 2
1183 // CCCCC GGGGG EEEEEEE QQQQ Q R R 2222222
1184
1185
1186 // VIF THU 20 NOV 2025 22:20:08 ** CGEQR2 ** DIAGNOSTICS PAGE 00036
1187
1188
1189 // VIF THU 20 NOV 2025 22:20:08 ** CGEQR2 ** GENERATED CODE PAGE 00037
1190
1191 int_4 _cgeqr2 (int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ tau_, complex_8 _p_ work_,
1192 int_4 _p_ info_)
1193 { // ** body not listed **
1231 }
1232
1233 // VIF THU 20 NOV 2025 22:20:08 ** CGTTRF ** CGTTRF PAGE 00038
1234
1235 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1236 // S S U U B B R R O O U U T I NN N E
1237 // S U U B B R R O O U U T I N N N E
1238 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1239 // S U U B B R R O O U U T I N N N E
1240 // S S U U B B R R O O U U T I N NN E
1241 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1242
1243 // CCCCC GGGGG TTTTTTT TTTTTTT RRRRRR FFFFFFF
1244 // C C G G T T R R F
1245 // C G T T R R F
1246 // C G GGGG T T RRRRRR FFFFF
1247 // C G G T T R R F
1248 // C C G G T T R R F
1249 // CCCCC GGGGG T T R R F
1250
1251
1252 // VIF THU 20 NOV 2025 22:20:08 ** CGTTRF ** DIAGNOSTICS PAGE 00039
1253
1254
1255 // VIF THU 20 NOV 2025 22:20:08 ** CGTTRF ** GENERATED CODE PAGE 00040
1256
1257 int_4 _cgttrf (int_4 _p_ n_, complex_8 _p_ dl_, complex_8 _p_ d_, complex_8 _p_ du_, complex_8 _p_ du2_, int_4 _p_
1258 ipiv_, int_4 _p_ info_)
1259 { // ** body not listed **
1318 }
1319
1320 // VIF THU 20 NOV 2025 22:20:08 ** CGTTRS ** CGTTRS PAGE 00042
1321
1322 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1323 // S S U U B B R R O O U U T I NN N E
1324 // S U U B B R R O O U U T I N N N E
1325 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1326 // S U U B B R R O O U U T I N N N E
1327 // S S U U B B R R O O U U T I N NN E
1328 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1329
1330 // CCCCC GGGGG TTTTTTT TTTTTTT RRRRRR SSSSS
1331 // C C G G T T R R S S
1332 // C G T T R R S
1333 // C G GGGG T T RRRRRR SSSSS
1334 // C G G T T R R S
1335 // C C G G T T R R S S
1336 // CCCCC GGGGG T T R R SSSSS
1337
1338
1339 // VIF THU 20 NOV 2025 22:20:08 ** CGTTRS ** DIAGNOSTICS PAGE 00043
1340
1341
1342 // VIF THU 20 NOV 2025 22:20:08 ** CGTTRS ** GENERATED CODE PAGE 00044
1343
1344 int_4 _cgttrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ nrhs_, complex_8 _p_ dl_, complex_8 _p_ d_, complex_8 _p_ du_,
1345 complex_8 _p_ du2_, int_4 _p_ ipiv_, complex_8 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_)
1346 { // ** body not listed **
1454 }
1455
1456 // VIF THU 20 NOV 2025 22:20:08 ** CLACGV ** CLACGV PAGE 00047
1457
1458 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1459 // S S U U B B R R O O U U T I NN N E
1460 // S U U B B R R O O U U T I N N N E
1461 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1462 // S U U B B R R O O U U T I N N N E
1463 // S S U U B B R R O O U U T I N NN E
1464 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1465
1466 // CCCCC L A CCCCC GGGGG V V
1467 // C C L A A C C G G V V
1468 // C L A A C G V V
1469 // C L A A C G GGGG V V
1470 // C L AAAAAAA C G G V V
1471 // C C L A A C C G G V V
1472 // CCCCC LLLLLLL A A CCCCC GGGGG V
1473
1474
1475 // VIF THU 20 NOV 2025 22:20:08 ** CLACGV ** DIAGNOSTICS PAGE 00048
1476
1477
1478 // VIF THU 20 NOV 2025 22:20:08 ** CLACGV ** GENERATED CODE PAGE 00049
1479
1480 int_4 _clacgv (int_4 _p_ n_, complex_8 _p_ x_, int_4 _p_ incx_)
1481 { // ** body not listed **
1501 }
1502
1503 // VIF THU 20 NOV 2025 22:20:08 ** CLACON ** CLACON PAGE 00050
1504
1505 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1506 // S S U U B B R R O O U U T I NN N E
1507 // S U U B B R R O O U U T I N N N E
1508 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1509 // S U U B B R R O O U U T I N N N E
1510 // S S U U B B R R O O U U T I N NN E
1511 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1512
1513 // CCCCC L A CCCCC OOOOO N N
1514 // C C L A A C C O O NN N
1515 // C L A A C O O N N N
1516 // C L A A C O O N N N
1517 // C L AAAAAAA C O O N N N
1518 // C C L A A C C O O N NN
1519 // CCCCC LLLLLLL A A CCCCC OOOOO N N
1520
1521
1522 // VIF THU 20 NOV 2025 22:20:08 ** CLACON ** DIAGNOSTICS PAGE 00051
1523
1524
1525 // VIF THU 20 NOV 2025 22:20:08 ** CLACON ** GENERATED CODE PAGE 00052
1526
1527 int_4 _clacon (int_4 _p_ n_, complex_8 _p_ v_, complex_8 _p_ x_, real_4 _p_ est_, int_4 _p_ kase_)
1528 { // ** body not listed **
1628 }
1629 // VIF THU 20 NOV 2025 22:20:08 ** CLACON ** GENERATED CODE PAGE 00054
1630
1631
1632 // VIF THU 20 NOV 2025 22:20:08 ** CLACPY ** CLACPY PAGE 00055
1633
1634 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1635 // S S U U B B R R O O U U T I NN N E
1636 // S U U B B R R O O U U T I N N N E
1637 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1638 // S U U B B R R O O U U T I N N N E
1639 // S S U U B B R R O O U U T I N NN E
1640 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1641
1642 // CCCCC L A CCCCC PPPPPP Y Y
1643 // C C L A A C C P P Y Y
1644 // C L A A C P P Y Y
1645 // C L A A C PPPPPP Y
1646 // C L AAAAAAA C P Y
1647 // C C L A A C C P Y
1648 // CCCCC LLLLLLL A A CCCCC P Y
1649
1650
1651 // VIF THU 20 NOV 2025 22:20:08 ** CLACPY ** DIAGNOSTICS PAGE 00056
1652
1653
1654 // VIF THU 20 NOV 2025 22:20:08 ** CLACPY ** GENERATED CODE PAGE 00057
1655
1656 int_4 _clacpy (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4
1657 _p_ ldb_)
1658 { // ** body not listed **
1685 }
1686
1687 // VIF THU 20 NOV 2025 22:20:08 ** CLADIV ** CLADIV PAGE 00058
1688
1689 // CCCCC OOOOO M M PPPPPP L EEEEEEE X X 88888
1690 // C C O O MM MM P P L E X X * * 8 8
1691 // C O O M M M M P P L E X X * * 8 8
1692 // C O O M M M PPPPPP L EEEEE X ******* 88888
1693 // C O O M M P L E X X * * 8 8
1694 // C C O O M M P L E X X * * 8 8
1695 // CCCCC OOOOO M M P LLLLLLL EEEEEEE X X 88888
1696
1697 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
1698 // F U U NN N C C T I O O NN N
1699 // F U U N N N C T I O O N N N
1700 // FFFFF U U N N N C T I O O N N N
1701 // F U U N N N C T I O O N N N
1702 // F U U N NN C C T I O O N NN
1703 // F UUUUU N N CCCCC T III OOOOO N N
1704
1705 // CCCCC L A DDDDDD III V V
1706 // C C L A A D D I V V
1707 // C L A A D D I V V
1708 // C L A A D D I V V
1709 // C L AAAAAAA D D I V V
1710 // C C L A A D D I V V
1711 // CCCCC LLLLLLL A A DDDDDD III V
1712
1713
1714 // VIF THU 20 NOV 2025 22:20:08 ** CLADIV ** DIAGNOSTICS PAGE 00059
1715
1716
1717 // VIF THU 20 NOV 2025 22:20:08 ** CLADIV ** GENERATED CODE PAGE 00060
1718
1719 complex_8 _cladiv (complex_8 _p_ x_, complex_8 _p_ y_)
1720 { // ** body not listed **
1732 }
1733
1734 // VIF THU 20 NOV 2025 22:20:08 ** CLAHQR ** CLAHQR PAGE 00061
1735
1736 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1737 // S S U U B B R R O O U U T I NN N E
1738 // S U U B B R R O O U U T I N N N E
1739 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1740 // S U U B B R R O O U U T I N N N E
1741 // S S U U B B R R O O U U T I N NN E
1742 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1743
1744 // CCCCC L A H H QQQQQ RRRRRR
1745 // C C L A A H H Q Q R R
1746 // C L A A H H Q Q R R
1747 // C L A A HHHHHHH Q Q RRRRRR
1748 // C L AAAAAAA H H Q Q Q R R
1749 // C C L A A H H Q Q R R
1750 // CCCCC LLLLLLL A A H H QQQQ Q R R
1751
1752
1753 // VIF THU 20 NOV 2025 22:20:08 ** CLAHQR ** DIAGNOSTICS PAGE 00062
1754
1755
1756 // VIF THU 20 NOV 2025 22:20:08 ** CLAHQR ** GENERATED CODE PAGE 00063
1757
1758 int_4 _clahqr (logical_4 _p_ wantt_, logical_4 _p_ wantz_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_, complex_8 _p_
1759 h_, int_4 _p_ ldh_, complex_8 _p_ w_, int_4 _p_ iloz_, int_4 _p_ ihiz_, complex_8 _p_ z_, int_4 _p_ ldz_, int_4 _p_
1760 info_)
1761 { // ** body not listed **
1946 }
1947
1948 // VIF THU 20 NOV 2025 22:20:08 ** CLANGE ** CLANGE PAGE 00067
1949
1950 // RRRRRR EEEEEEE A L 4
1951 // R R E A A L * * 4 4
1952 // R R E A A L * * 4 4
1953 // RRRRRR EEEEE A A L ******* 4444444
1954 // R R E AAAAAAA L * * 4
1955 // R R E A A L * * 4
1956 // R R EEEEEEE A A LLLLLLL 4
1957
1958 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
1959 // F U U NN N C C T I O O NN N
1960 // F U U N N N C T I O O N N N
1961 // FFFFF U U N N N C T I O O N N N
1962 // F U U N N N C T I O O N N N
1963 // F U U N NN C C T I O O N NN
1964 // F UUUUU N N CCCCC T III OOOOO N N
1965
1966 // CCCCC L A N N GGGGG EEEEEEE
1967 // C C L A A NN N G G E
1968 // C L A A N N N G E
1969 // C L A A N N N G GGGG EEEEE
1970 // C L AAAAAAA N N N G G E
1971 // C C L A A N NN G G E
1972 // CCCCC LLLLLLL A A N N GGGGG EEEEEEE
1973
1974
1975 // VIF THU 20 NOV 2025 22:20:08 ** CLANGE ** DIAGNOSTICS PAGE 00068
1976
1977
1978 // VIF THU 20 NOV 2025 22:20:08 ** CLANGE ** GENERATED CODE PAGE 00069
1979
1980 real_4 _clange (char _p_ norm_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, real_4 _p_ work_)
1981 { // ** body not listed **
2038 }
2039
2040 // VIF THU 20 NOV 2025 22:20:08 ** CLANHS ** CLANHS PAGE 00071
2041
2042 // RRRRRR EEEEEEE A L 4
2043 // R R E A A L * * 4 4
2044 // R R E A A L * * 4 4
2045 // RRRRRR EEEEE A A L ******* 4444444
2046 // R R E AAAAAAA L * * 4
2047 // R R E A A L * * 4
2048 // R R EEEEEEE A A LLLLLLL 4
2049
2050 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
2051 // F U U NN N C C T I O O NN N
2052 // F U U N N N C T I O O N N N
2053 // FFFFF U U N N N C T I O O N N N
2054 // F U U N N N C T I O O N N N
2055 // F U U N NN C C T I O O N NN
2056 // F UUUUU N N CCCCC T III OOOOO N N
2057
2058 // CCCCC L A N N H H SSSSS
2059 // C C L A A NN N H H S S
2060 // C L A A N N N H H S
2061 // C L A A N N N HHHHHHH SSSSS
2062 // C L AAAAAAA N N N H H S
2063 // C C L A A N NN H H S S
2064 // CCCCC LLLLLLL A A N N H H SSSSS
2065
2066
2067 // VIF THU 20 NOV 2025 22:20:08 ** CLANHS ** DIAGNOSTICS PAGE 00072
2068
2069
2070 // VIF THU 20 NOV 2025 22:20:08 ** CLANHS ** GENERATED CODE PAGE 00073
2071
2072 real_4 _clanhs (char _p_ norm_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, real_4 _p_ work_)
2073 { // ** body not listed **
2131 }
2132
2133 // VIF THU 20 NOV 2025 22:20:08 ** CLARF ** CLARF PAGE 00075
2134
2135 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2136 // S S U U B B R R O O U U T I NN N E
2137 // S U U B B R R O O U U T I N N N E
2138 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2139 // S U U B B R R O O U U T I N N N E
2140 // S S U U B B R R O O U U T I N NN E
2141 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2142
2143 // CCCCC L A RRRRRR FFFFFFF
2144 // C C L A A R R F
2145 // C L A A R R F
2146 // C L A A RRRRRR FFFFF
2147 // C L AAAAAAA R R F
2148 // C C L A A R R F
2149 // CCCCC LLLLLLL A A R R F
2150
2151
2152 // VIF THU 20 NOV 2025 22:20:08 ** CLARF ** DIAGNOSTICS PAGE 00076
2153
2154
2155 // VIF THU 20 NOV 2025 22:20:08 ** CLARF ** GENERATED CODE PAGE 00077
2156
2157 int_4 _clarf (char _p_ side_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ incv_, complex_8 _p_ tau_,
2158 complex_8 _p_ c_, int_4 _p_ ldc_, complex_8 _p_ work_)
2159 { // ** body not listed **
2180 }
2181
2182 // VIF THU 20 NOV 2025 22:20:08 ** CLARFG ** CLARFG PAGE 00078
2183
2184 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2185 // S S U U B B R R O O U U T I NN N E
2186 // S U U B B R R O O U U T I N N N E
2187 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2188 // S U U B B R R O O U U T I N N N E
2189 // S S U U B B R R O O U U T I N NN E
2190 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2191
2192 // CCCCC L A RRRRRR FFFFFFF GGGGG
2193 // C C L A A R R F G G
2194 // C L A A R R F G
2195 // C L A A RRRRRR FFFFF G GGGG
2196 // C L AAAAAAA R R F G G
2197 // C C L A A R R F G G
2198 // CCCCC LLLLLLL A A R R F GGGGG
2199
2200
2201 // VIF THU 20 NOV 2025 22:20:08 ** CLARFG ** DIAGNOSTICS PAGE 00079
2202
2203
2204 // VIF THU 20 NOV 2025 22:20:08 ** CLARFG ** GENERATED CODE PAGE 00080
2205
2206 int_4 _clarfg (int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ tau_)
2207 { // ** body not listed **
2268 }
2269
2270 // VIF THU 20 NOV 2025 22:20:08 ** CLARNV ** CLARNV PAGE 00082
2271
2272 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2273 // S S U U B B R R O O U U T I NN N E
2274 // S U U B B R R O O U U T I N N N E
2275 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2276 // S U U B B R R O O U U T I N N N E
2277 // S S U U B B R R O O U U T I N NN E
2278 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2279
2280 // CCCCC L A RRRRRR N N V V
2281 // C C L A A R R NN N V V
2282 // C L A A R R N N N V V
2283 // C L A A RRRRRR N N N V V
2284 // C L AAAAAAA R R N N N V V
2285 // C C L A A R R N NN V V
2286 // CCCCC LLLLLLL A A R R N N V
2287
2288
2289 // VIF THU 20 NOV 2025 22:20:08 ** CLARNV ** DIAGNOSTICS PAGE 00083
2290
2291
2292 // VIF THU 20 NOV 2025 22:20:08 ** CLARNV ** GENERATED CODE PAGE 00084
2293
2294 int_4 _clarnv (int_4 _p_ idist_, int_4 _p_ iseed_, int_4 _p_ n_, complex_8 _p_ x_)
2295 { // ** body not listed **
2335 }
2336
2337 // VIF THU 20 NOV 2025 22:20:08 ** CLARTG ** CLARTG PAGE 00085
2338
2339 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2340 // S S U U B B R R O O U U T I NN N E
2341 // S U U B B R R O O U U T I N N N E
2342 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2343 // S U U B B R R O O U U T I N N N E
2344 // S S U U B B R R O O U U T I N NN E
2345 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2346
2347 // CCCCC L A RRRRRR TTTTTTT GGGGG
2348 // C C L A A R R T G G
2349 // C L A A R R T G
2350 // C L A A RRRRRR T G GGGG
2351 // C L AAAAAAA R R T G G
2352 // C C L A A R R T G G
2353 // CCCCC LLLLLLL A A R R T GGGGG
2354
2355
2356 // VIF THU 20 NOV 2025 22:20:08 ** CLARTG ** DIAGNOSTICS PAGE 00086
2357
2358
2359 // VIF THU 20 NOV 2025 22:20:08 ** CLARTG ** GENERATED CODE PAGE 00087
2360
2361 int_4 _clartg (complex_8 _p_ f_, complex_8 _p_ g_, real_4 _p_ cs_, complex_8 _p_ sn_, complex_8 _p_ r_)
2362 { // ** body not listed **
2413 }
2414
2415 // VIF THU 20 NOV 2025 22:20:08 ** CLASCL ** CLASCL PAGE 00089
2416
2417 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2418 // S S U U B B R R O O U U T I NN N E
2419 // S U U B B R R O O U U T I N N N E
2420 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2421 // S U U B B R R O O U U T I N N N E
2422 // S S U U B B R R O O U U T I N NN E
2423 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2424
2425 // CCCCC L A SSSSS CCCCC L
2426 // C C L A A S S C C L
2427 // C L A A S C L
2428 // C L A A SSSSS C L
2429 // C L AAAAAAA S C L
2430 // C C L A A S S C C L
2431 // CCCCC LLLLLLL A A SSSSS CCCCC LLLLLLL
2432
2433
2434 // VIF THU 20 NOV 2025 22:20:08 ** CLASCL ** DIAGNOSTICS PAGE 00090
2435
2436
2437 // VIF THU 20 NOV 2025 22:20:08 ** CLASCL ** GENERATED CODE PAGE 00091
2438
2439 int_4 _clascl (char _p_ type_, int_4 _p_ kl_, int_4 _p_ ku_, real_4 _p_ cfrom_, real_4 _p_ cto_, int_4 _p_ m_, int_4
2440 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ info_)
2441 { // ** body not listed **
2600 }
2601
2602 // VIF THU 20 NOV 2025 22:20:08 ** CLASET ** CLASET PAGE 00095
2603
2604 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2605 // S S U U B B R R O O U U T I NN N E
2606 // S U U B B R R O O U U T I N N N E
2607 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2608 // S U U B B R R O O U U T I N N N E
2609 // S S U U B B R R O O U U T I N NN E
2610 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2611
2612 // CCCCC L A SSSSS EEEEEEE TTTTTTT
2613 // C C L A A S S E T
2614 // C L A A S E T
2615 // C L A A SSSSS EEEEE T
2616 // C L AAAAAAA S E T
2617 // C C L A A S S E T
2618 // CCCCC LLLLLLL A A SSSSS EEEEEEE T
2619
2620
2621 // VIF THU 20 NOV 2025 22:20:08 ** CLASET ** DIAGNOSTICS PAGE 00096
2622
2623
2624 // VIF THU 20 NOV 2025 22:20:08 ** CLASET ** GENERATED CODE PAGE 00097
2625
2626 int_4 _claset (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ beta_, complex_8 _p_ a_,
2627 int_4 _p_ lda_)
2628 { // ** body not listed **
2664 }
2665
2666 // VIF THU 20 NOV 2025 22:20:08 ** CLASSQ ** CLASSQ PAGE 00098
2667
2668 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2669 // S S U U B B R R O O U U T I NN N E
2670 // S U U B B R R O O U U T I N N N E
2671 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2672 // S U U B B R R O O U U T I N N N E
2673 // S S U U B B R R O O U U T I N NN E
2674 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2675
2676 // CCCCC L A SSSSS SSSSS QQQQQ
2677 // C C L A A S S S S Q Q
2678 // C L A A S S Q Q
2679 // C L A A SSSSS SSSSS Q Q
2680 // C L AAAAAAA S S Q Q Q
2681 // C C L A A S S S S Q Q
2682 // CCCCC LLLLLLL A A SSSSS SSSSS QQQQ Q
2683
2684
2685 // VIF THU 20 NOV 2025 22:20:08 ** CLASSQ ** DIAGNOSTICS PAGE 00099
2686
2687
2688 // VIF THU 20 NOV 2025 22:20:08 ** CLASSQ ** GENERATED CODE PAGE 00100
2689
2690 int_4 _classq (int_4 _p_ n_, complex_8 _p_ x_, int_4 _p_ incx_, real_4 _p_ scale_, real_4 _p_ sumsq_)
2691 { // ** body not listed **
2725 }
2726
2727 // VIF THU 20 NOV 2025 22:20:08 ** CLASWP ** CLASWP PAGE 00101
2728
2729 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2730 // S S U U B B R R O O U U T I NN N E
2731 // S U U B B R R O O U U T I N N N E
2732 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2733 // S U U B B R R O O U U T I N N N E
2734 // S S U U B B R R O O U U T I N NN E
2735 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2736
2737 // CCCCC L A SSSSS W W PPPPPP
2738 // C C L A A S S W W P P
2739 // C L A A S W W P P
2740 // C L A A SSSSS W W W PPPPPP
2741 // C L AAAAAAA S W W W P
2742 // C C L A A S S W W W P
2743 // CCCCC LLLLLLL A A SSSSS WW WW P
2744
2745
2746 // VIF THU 20 NOV 2025 22:20:08 ** CLASWP ** DIAGNOSTICS PAGE 00102
2747
2748
2749 // VIF THU 20 NOV 2025 22:20:08 ** CLASWP ** GENERATED CODE PAGE 00103
2750
2751 int_4 _claswp (int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ k1_, int_4 _p_ k2_, int_4 _p_ ipiv_, int_4 _p_
2752 incx_)
2753 { // ** body not listed **
2794 }
2795
2796 // VIF THU 20 NOV 2025 22:20:08 ** CLATRS ** CLATRS PAGE 00104
2797
2798 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2799 // S S U U B B R R O O U U T I NN N E
2800 // S U U B B R R O O U U T I N N N E
2801 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2802 // S U U B B R R O O U U T I N N N E
2803 // S S U U B B R R O O U U T I N NN E
2804 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2805
2806 // CCCCC L A TTTTTTT RRRRRR SSSSS
2807 // C C L A A T R R S S
2808 // C L A A T R R S
2809 // C L A A T RRRRRR SSSSS
2810 // C L AAAAAAA T R R S
2811 // C C L A A T R R S S
2812 // CCCCC LLLLLLL A A T R R SSSSS
2813
2814
2815 // VIF THU 20 NOV 2025 22:20:08 ** CLATRS ** DIAGNOSTICS PAGE 00105
2816
2817
2818 // VIF THU 20 NOV 2025 22:20:08 ** CLATRS ** GENERATED CODE PAGE 00106
2819
2820 int_4 _clatrs (char _p_ uplo_, char _p_ trans_, char _p_ diag_, char _p_ normin_, int_4 _p_ n_, complex_8 _p_ a_, int_4
2821 _p_ lda_, complex_8 _p_ x_, real_4 _p_ scale_, real_4 _p_ cnorm_, int_4 _p_ info_)
2822 { // ** body not listed **
3316 }
3317
3318 // VIF THU 20 NOV 2025 22:20:08 ** CMACH ** CMACH PAGE 00116
3319
3320 // RRRRRR EEEEEEE A L 4
3321 // R R E A A L * * 4 4
3322 // R R E A A L * * 4 4
3323 // RRRRRR EEEEE A A L ******* 4444444
3324 // R R E AAAAAAA L * * 4
3325 // R R E A A L * * 4
3326 // R R EEEEEEE A A LLLLLLL 4
3327
3328 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
3329 // F U U NN N C C T I O O NN N
3330 // F U U N N N C T I O O N N N
3331 // FFFFF U U N N N C T I O O N N N
3332 // F U U N N N C T I O O N N N
3333 // F U U N NN C C T I O O N NN
3334 // F UUUUU N N CCCCC T III OOOOO N N
3335
3336 // CCCCC M M A CCCCC H H
3337 // C C MM MM A A C C H H
3338 // C M M M M A A C H H
3339 // C M M M A A C HHHHHHH
3340 // C M M AAAAAAA C H H
3341 // C C M M A A C C H H
3342 // CCCCC M M A A CCCCC H H
3343
3344
3345 // VIF THU 20 NOV 2025 22:20:08 ** CMACH ** DIAGNOSTICS PAGE 00117
3346
3347
3348 // VIF THU 20 NOV 2025 22:20:08 ** CMACH ** GENERATED CODE PAGE 00118
3349
3350 real_4 _cmach (int_4 _p_ job_)
3351 { // ** body not listed **
3391 }
3392
3393 // VIF THU 20 NOV 2025 22:20:08 ** CROT ** CROT PAGE 00119
3394
3395 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3396 // S S U U B B R R O O U U T I NN N E
3397 // S U U B B R R O O U U T I N N N E
3398 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3399 // S U U B B R R O O U U T I N N N E
3400 // S S U U B B R R O O U U T I N NN E
3401 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3402
3403 // CCCCC RRRRRR OOOOO TTTTTTT
3404 // C C R R O O T
3405 // C R R O O T
3406 // C RRRRRR O O T
3407 // C R R O O T
3408 // C C R R O O T
3409 // CCCCC R R OOOOO T
3410
3411
3412 // VIF THU 20 NOV 2025 22:20:08 ** CROT ** DIAGNOSTICS PAGE 00120
3413
3414
3415 // VIF THU 20 NOV 2025 22:20:08 ** CROT ** GENERATED CODE PAGE 00121
3416
3417 int_4 _crot (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_, real_4 _p_ c_,
3418 complex_8 _p_ s_)
3419 { // ** body not listed **
3454 }
3455
3456 // VIF THU 20 NOV 2025 22:20:08 ** CTREVC ** CTREVC PAGE 00122
3457
3458 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3459 // S S U U B B R R O O U U T I NN N E
3460 // S U U B B R R O O U U T I N N N E
3461 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3462 // S U U B B R R O O U U T I N N N E
3463 // S S U U B B R R O O U U T I N NN E
3464 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3465
3466 // CCCCC TTTTTTT RRRRRR EEEEEEE V V CCCCC
3467 // C C T R R E V V C C
3468 // C T R R E V V C
3469 // C T RRRRRR EEEEE V V C
3470 // C T R R E V V C
3471 // C C T R R E V V C C
3472 // CCCCC T R R EEEEEEE V CCCCC
3473
3474
3475 // VIF THU 20 NOV 2025 22:20:08 ** CTREVC ** DIAGNOSTICS PAGE 00123
3476
3477
3478 // VIF THU 20 NOV 2025 22:20:08 ** CTREVC ** GENERATED CODE PAGE 00124
3479
3480 int_4 _ctrevc (char _p_ side_, char _p_ howmny_, logical_4 _p_ select_, int_4 _p_ n_, complex_8 _p_ t_, int_4 _p_ ldt_,
3481 complex_8 _p_ vl_, int_4 _p_ ldvl_, complex_8 _p_ vr_, int_4 _p_ ldvr_, int_4 _p_ mm_, int_4 _p_ m_, complex_8 _p_
3482 work_, real_4 _p_ rwork_, int_4 _p_ info_)
3483 { // ** body not listed **
3676 }
3677
3678 // VIF THU 20 NOV 2025 22:20:08 ** CTREXC ** CTREXC PAGE 00128
3679
3680 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3681 // S S U U B B R R O O U U T I NN N E
3682 // S U U B B R R O O U U T I N N N E
3683 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3684 // S U U B B R R O O U U T I N N N E
3685 // S S U U B B R R O O U U T I N NN E
3686 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3687
3688 // CCCCC TTTTTTT RRRRRR EEEEEEE X X CCCCC
3689 // C C T R R E X X C C
3690 // C T R R E X X C
3691 // C T RRRRRR EEEEE X C
3692 // C T R R E X X C
3693 // C C T R R E X X C C
3694 // CCCCC T R R EEEEEEE X X CCCCC
3695
3696
3697 // VIF THU 20 NOV 2025 22:20:08 ** CTREXC ** DIAGNOSTICS PAGE 00129
3698
3699
3700 // VIF THU 20 NOV 2025 22:20:08 ** CTREXC ** GENERATED CODE PAGE 00130
3701
3702 int_4 _ctrexc (char _p_ compq_, int_4 _p_ n_, complex_8 _p_ t_, int_4 _p_ ldt_, complex_8 _p_ q_, int_4 _p_ ldq_, int_4
3703 _p_ ifst_, int_4 _p_ ilst_, int_4 _p_ info_)
3704 { // ** body not listed **
3774 }
3775
3776 // VIF THU 20 NOV 2025 22:20:08 ** CTRSEN ** CTRSEN PAGE 00132
3777
3778 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3779 // S S U U B B R R O O U U T I NN N E
3780 // S U U B B R R O O U U T I N N N E
3781 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3782 // S U U B B R R O O U U T I N N N E
3783 // S S U U B B R R O O U U T I N NN E
3784 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3785
3786 // CCCCC TTTTTTT RRRRRR SSSSS EEEEEEE N N
3787 // C C T R R S S E NN N
3788 // C T R R S E N N N
3789 // C T RRRRRR SSSSS EEEEE N N N
3790 // C T R R S E N N N
3791 // C C T R R S S E N NN
3792 // CCCCC T R R SSSSS EEEEEEE N N
3793
3794
3795 // VIF THU 20 NOV 2025 22:20:08 ** CTRSEN ** DIAGNOSTICS PAGE 00133
3796
3797
3798 // VIF THU 20 NOV 2025 22:20:08 ** CTRSEN ** GENERATED CODE PAGE 00134
3799
3800 int_4 _ctrsen (char _p_ job_, char _p_ compq_, logical_4 _p_ select_, int_4 _p_ n_, complex_8 _p_ t_, int_4 _p_ ldt_,
3801 complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ w_, int_4 _p_ m_, real_4 _p_ s_, real_4 _p_ sep_, complex_8 _p_ work_,
3802 int_4 _p_ lwork_, int_4 _p_ info_)
3803 { // ** body not listed **
3907 }
3908
3909 // VIF THU 20 NOV 2025 22:20:08 ** CTRSYL ** CTRSYL PAGE 00137
3910
3911 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3912 // S S U U B B R R O O U U T I NN N E
3913 // S U U B B R R O O U U T I N N N E
3914 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3915 // S U U B B R R O O U U T I N N N E
3916 // S S U U B B R R O O U U T I N NN E
3917 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3918
3919 // CCCCC TTTTTTT RRRRRR SSSSS Y Y L
3920 // C C T R R S S Y Y L
3921 // C T R R S Y Y L
3922 // C T RRRRRR SSSSS Y L
3923 // C T R R S Y L
3924 // C C T R R S S Y L
3925 // CCCCC T R R SSSSS Y LLLLLLL
3926
3927
3928 // VIF THU 20 NOV 2025 22:20:08 ** CTRSYL ** DIAGNOSTICS PAGE 00138
3929
3930
3931 // VIF THU 20 NOV 2025 22:20:08 ** CTRSYL ** GENERATED CODE PAGE 00139
3932
3933 int_4 _ctrsyl (char _p_ trana_, char _p_ tranb_, int_4 _p_ isgn_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, int_4
3934 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ c_, int_4 _p_ ldc_, real_4 _p_ scale_, int_4 _p_ info_)
3935 { // ** body not listed **
4134 }
4135
4136 // VIF THU 20 NOV 2025 22:20:08 ** CUNM2R ** CUNM2R PAGE 00143
4137
4138 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4139 // S S U U B B R R O O U U T I NN N E
4140 // S U U B B R R O O U U T I N N N E
4141 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4142 // S U U B B R R O O U U T I N N N E
4143 // S S U U B B R R O O U U T I N NN E
4144 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4145
4146 // CCCCC U U N N M M 22222 RRRRRR
4147 // C C U U NN N MM MM 2 2 R R
4148 // C U U N N N M M M M 2 R R
4149 // C U U N N N M M M 22222 RRRRRR
4150 // C U U N N N M M 2 R R
4151 // C C U U N NN M M 2 R R
4152 // CCCCC UUUUU N N M M 2222222 R R
4153
4154
4155 // VIF THU 20 NOV 2025 22:20:08 ** CUNM2R ** DIAGNOSTICS PAGE 00144
4156
4157
4158 // VIF THU 20 NOV 2025 22:20:08 ** CUNM2R ** GENERATED CODE PAGE 00145
4159
4160 int_4 _cunm2r (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ a_, int_4 _p_
4161 lda_, complex_8 _p_ tau_, complex_8 _p_ c_, int_4 _p_ ldc_, complex_8 _p_ work_, int_4 _p_ info_)
4162 { // ** body not listed **
4252 }
4253
4254 // VIF THU 20 NOV 2025 22:20:08 ** DGBTF2 ** DGBTF2 PAGE 00147
4255
4256 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4257 // S S U U B B R R O O U U T I NN N E
4258 // S U U B B R R O O U U T I N N N E
4259 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4260 // S U U B B R R O O U U T I N N N E
4261 // S S U U B B R R O O U U T I N NN E
4262 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4263
4264 // DDDDDD GGGGG BBBBBB TTTTTTT FFFFFFF 22222
4265 // D D G G B B T F 2 2
4266 // D D G B B T F 2
4267 // D D G GGGG BBBBBB T FFFFF 22222
4268 // D D G G B B T F 2
4269 // D D G G B B T F 2
4270 // DDDDDD GGGGG BBBBBB T F 2222222
4271
4272
4273 // VIF THU 20 NOV 2025 22:20:08 ** DGBTF2 ** DIAGNOSTICS PAGE 00148
4274
4275
4276 // VIF THU 20 NOV 2025 22:20:08 ** DGBTF2 ** GENERATED CODE PAGE 00149
4277
4278 int_4 _dgbtf2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, real_8 _p_ ab_, int_4 _p_ ldab_, int_4 _p_
4279 ipiv_, int_4 _p_ info_)
4280 { // ** body not listed **
4357 }
4358
4359 // VIF THU 20 NOV 2025 22:20:08 ** DGBTRF ** DGBTRF PAGE 00151
4360
4361 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4362 // S S U U B B R R O O U U T I NN N E
4363 // S U U B B R R O O U U T I N N N E
4364 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4365 // S U U B B R R O O U U T I N N N E
4366 // S S U U B B R R O O U U T I N NN E
4367 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4368
4369 // DDDDDD GGGGG BBBBBB TTTTTTT RRRRRR FFFFFFF
4370 // D D G G B B T R R F
4371 // D D G B B T R R F
4372 // D D G GGGG BBBBBB T RRRRRR FFFFF
4373 // D D G G B B T R R F
4374 // D D G G B B T R R F
4375 // DDDDDD GGGGG BBBBBB T R R F
4376
4377
4378 // VIF THU 20 NOV 2025 22:20:08 ** DGBTRF ** DIAGNOSTICS PAGE 00152
4379
4380
4381 // VIF THU 20 NOV 2025 22:20:08 ** DGBTRF ** GENERATED CODE PAGE 00153
4382
4383 int_4 _dgbtrf (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, real_8 _p_ ab_, int_4 _p_ ldab_, int_4 _p_
4384 ipiv_, int_4 _p_ info_)
4385 { // ** body not listed **
4591 }
4592
4593 // VIF THU 20 NOV 2025 22:20:08 ** DGBTRS ** DGBTRS PAGE 00158
4594
4595 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4596 // S S U U B B R R O O U U T I NN N E
4597 // S U U B B R R O O U U T I N N N E
4598 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4599 // S U U B B R R O O U U T I N N N E
4600 // S S U U B B R R O O U U T I N NN E
4601 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4602
4603 // DDDDDD GGGGG BBBBBB TTTTTTT RRRRRR SSSSS
4604 // D D G G B B T R R S S
4605 // D D G B B T R R S
4606 // D D G GGGG BBBBBB T RRRRRR SSSSS
4607 // D D G G B B T R R S
4608 // D D G G B B T R R S S
4609 // DDDDDD GGGGG BBBBBB T R R SSSSS
4610
4611
4612 // VIF THU 20 NOV 2025 22:20:08 ** DGBTRS ** DIAGNOSTICS PAGE 00159
4613
4614
4615 // VIF THU 20 NOV 2025 22:20:08 ** DGBTRS ** GENERATED CODE PAGE 00160
4616
4617 int_4 _dgbtrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, int_4 _p_ nrhs_, real_8 _p_ ab_, int_4 _p_
4618 ldab_, int_4 _p_ ipiv_, real_8 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_)
4619 { // ** body not listed **
4703 }
4704
4705 // VIF THU 20 NOV 2025 22:20:08 ** DGTTRF ** DGTTRF PAGE 00162
4706
4707 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4708 // S S U U B B R R O O U U T I NN N E
4709 // S U U B B R R O O U U T I N N N E
4710 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4711 // S U U B B R R O O U U T I N N N E
4712 // S S U U B B R R O O U U T I N NN E
4713 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4714
4715 // DDDDDD GGGGG TTTTTTT TTTTTTT RRRRRR FFFFFFF
4716 // D D G G T T R R F
4717 // D D G T T R R F
4718 // D D G GGGG T T RRRRRR FFFFF
4719 // D D G G T T R R F
4720 // D D G G T T R R F
4721 // DDDDDD GGGGG T T R R F
4722
4723
4724 // VIF THU 20 NOV 2025 22:20:08 ** DGTTRF ** DIAGNOSTICS PAGE 00163
4725
4726
4727 // VIF THU 20 NOV 2025 22:20:08 ** DGTTRF ** GENERATED CODE PAGE 00164
4728
4729 int_4 _dgttrf (int_4 _p_ n_, real_8 _p_ dl_, real_8 _p_ d_, real_8 _p_ du_, real_8 _p_ du2_, int_4 _p_ ipiv_, int_4 _p_
4730 info_)
4731 { // ** body not listed **
4789 }
4790
4791 // VIF THU 20 NOV 2025 22:20:08 ** DGTTRS ** DGTTRS PAGE 00166
4792
4793 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4794 // S S U U B B R R O O U U T I NN N E
4795 // S U U B B R R O O U U T I N N N E
4796 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4797 // S U U B B R R O O U U T I N N N E
4798 // S S U U B B R R O O U U T I N NN E
4799 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4800
4801 // DDDDDD GGGGG TTTTTTT TTTTTTT RRRRRR SSSSS
4802 // D D G G T T R R S S
4803 // D D G T T R R S
4804 // D D G GGGG T T RRRRRR SSSSS
4805 // D D G G T T R R S
4806 // D D G G T T R R S S
4807 // DDDDDD GGGGG T T R R SSSSS
4808
4809
4810 // VIF THU 20 NOV 2025 22:20:08 ** DGTTRS ** DIAGNOSTICS PAGE 00167
4811
4812
4813 // VIF THU 20 NOV 2025 22:20:08 ** DGTTRS ** GENERATED CODE PAGE 00168
4814
4815 int_4 _dgttrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ dl_, real_8 _p_ d_, real_8 _p_ du_, real_8
4816 _p_ du2_, int_4 _p_ ipiv_, real_8 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_)
4817 { // ** body not listed **
4898 }
4899
4900 // VIF THU 20 NOV 2025 22:20:08 ** DLACON ** DLACON PAGE 00170
4901
4902 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4903 // S S U U B B R R O O U U T I NN N E
4904 // S U U B B R R O O U U T I N N N E
4905 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4906 // S U U B B R R O O U U T I N N N E
4907 // S S U U B B R R O O U U T I N NN E
4908 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4909
4910 // DDDDDD L A CCCCC OOOOO N N
4911 // D D L A A C C O O NN N
4912 // D D L A A C O O N N N
4913 // D D L A A C O O N N N
4914 // D D L AAAAAAA C O O N N N
4915 // D D L A A C C O O N NN
4916 // DDDDDD LLLLLLL A A CCCCC OOOOO N N
4917
4918
4919 // VIF THU 20 NOV 2025 22:20:08 ** DLACON ** DIAGNOSTICS PAGE 00171
4920
4921
4922 // VIF THU 20 NOV 2025 22:20:08 ** DLACON ** GENERATED CODE PAGE 00172
4923
4924 int_4 _dlacon (int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ x_, int_4 _p_ isgn_, real_8 _p_ est_, int_4 _p_ kase_)
4925 { // ** body not listed **
5028 }
5029
5030 // VIF THU 20 NOV 2025 22:20:08 ** DLADIV ** DLADIV PAGE 00175
5031
5032 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5033 // S S U U B B R R O O U U T I NN N E
5034 // S U U B B R R O O U U T I N N N E
5035 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5036 // S U U B B R R O O U U T I N N N E
5037 // S S U U B B R R O O U U T I N NN E
5038 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5039
5040 // DDDDDD L A DDDDDD III V V
5041 // D D L A A D D I V V
5042 // D D L A A D D I V V
5043 // D D L A A D D I V V
5044 // D D L AAAAAAA D D I V V
5045 // D D L A A D D I V V
5046 // DDDDDD LLLLLLL A A DDDDDD III V
5047
5048
5049 // VIF THU 20 NOV 2025 22:20:08 ** DLADIV ** DIAGNOSTICS PAGE 00176
5050
5051
5052 // VIF THU 20 NOV 2025 22:20:08 ** DLADIV ** GENERATED CODE PAGE 00177
5053
5054 int_4 _dladiv (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ d_, real_8 _p_ p_, real_8 _p_ q_)
5055 { // ** body not listed **
5072 }
5073
5074 // VIF THU 20 NOV 2025 22:20:08 ** DLAE2 ** DLAE2 PAGE 00178
5075
5076 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5077 // S S U U B B R R O O U U T I NN N E
5078 // S U U B B R R O O U U T I N N N E
5079 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5080 // S U U B B R R O O U U T I N N N E
5081 // S S U U B B R R O O U U T I N NN E
5082 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5083
5084 // DDDDDD L A EEEEEEE 22222
5085 // D D L A A E 2 2
5086 // D D L A A E 2
5087 // D D L A A EEEEE 22222
5088 // D D L AAAAAAA E 2
5089 // D D L A A E 2
5090 // DDDDDD LLLLLLL A A EEEEEEE 2222222
5091
5092
5093 // VIF THU 20 NOV 2025 22:20:08 ** DLAE2 ** DIAGNOSTICS PAGE 00179
5094
5095
5096 // VIF THU 20 NOV 2025 22:20:08 ** DLAE2 ** GENERATED CODE PAGE 00180
5097
5098 int_4 _dlae2 (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ rt1_, real_8 _p_ rt2_)
5099 { // ** body not listed **
5140 }
5141
5142 // VIF THU 20 NOV 2025 22:20:08 ** DLAEV2 ** DLAEV2 PAGE 00181
5143
5144 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5145 // S S U U B B R R O O U U T I NN N E
5146 // S U U B B R R O O U U T I N N N E
5147 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5148 // S U U B B R R O O U U T I N N N E
5149 // S S U U B B R R O O U U T I N NN E
5150 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5151
5152 // DDDDDD L A EEEEEEE V V 22222
5153 // D D L A A E V V 2 2
5154 // D D L A A E V V 2
5155 // D D L A A EEEEE V V 22222
5156 // D D L AAAAAAA E V V 2
5157 // D D L A A E V V 2
5158 // DDDDDD LLLLLLL A A EEEEEEE V 2222222
5159
5160
5161 // VIF THU 20 NOV 2025 22:20:08 ** DLAEV2 ** DIAGNOSTICS PAGE 00182
5162
5163
5164 // VIF THU 20 NOV 2025 22:20:08 ** DLAEV2 ** GENERATED CODE PAGE 00183
5165
5166 int_4 _dlaev2 (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ rt1_, real_8 _p_ rt2_, real_8 _p_ cs1_, real_8
5167 _p_ sn1_)
5168 { // ** body not listed **
5245 }
5246
5247 // VIF THU 20 NOV 2025 22:20:08 ** DLAEXC ** DLAEXC PAGE 00185
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 // DDDDDD L A EEEEEEE X X CCCCC
5258 // D D L A A E X X C C
5259 // D D L A A E X X C
5260 // D D L A A EEEEE X C
5261 // D D L AAAAAAA E X X C
5262 // D D L A A E X X C C
5263 // DDDDDD LLLLLLL A A EEEEEEE X X CCCCC
5264
5265
5266 // VIF THU 20 NOV 2025 22:20:08 ** DLAEXC ** DIAGNOSTICS PAGE 00186
5267
5268
5269 // VIF THU 20 NOV 2025 22:20:08 ** DLAEXC ** GENERATED CODE PAGE 00187
5270
5271 int_4 _dlaexc (logical_4 _p_ wantq_, int_4 _p_ n_, real_8 _p_ t_, int_4 _p_ ldt_, real_8 _p_ q_, int_4 _p_ ldq_, int_4
5272 _p_ j1_, int_4 _p_ n1_, int_4 _p_ n2_, real_8 _p_ work_, int_4 _p_ info_)
5273 { // ** body not listed **
5451 }
5452
5453 // VIF THU 20 NOV 2025 22:20:08 ** DLAGTM ** DLAGTM PAGE 00191
5454
5455 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5456 // S S U U B B R R O O U U T I NN N E
5457 // S U U B B R R O O U U T I N N N E
5458 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5459 // S U U B B R R O O U U T I N N N E
5460 // S S U U B B R R O O U U T I N NN E
5461 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5462
5463 // DDDDDD L A GGGGG TTTTTTT M M
5464 // D D L A A G G T MM MM
5465 // D D L A A G T M M M M
5466 // D D L A A G GGGG T M M M
5467 // D D L AAAAAAA G G T M M
5468 // D D L A A G G T M M
5469 // DDDDDD LLLLLLL A A GGGGG T M M
5470
5471
5472 // VIF THU 20 NOV 2025 22:20:08 ** DLAGTM ** DIAGNOSTICS PAGE 00192
5473
5474
5475 // VIF THU 20 NOV 2025 22:20:08 ** DLAGTM ** GENERATED CODE PAGE 00193
5476
5477 int_4 _dlagtm (char _p_ trans_, int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ alpha_, real_8 _p_ dl_, real_8 _p_ d_, real_8
5478 _p_ du_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ beta_, real_8 _p_ b_, int_4 _p_ ldb_)
5479 { // ** body not listed **
5582 }
5583
5584 // VIF THU 20 NOV 2025 22:20:08 ** DLAHQR ** DLAHQR PAGE 00196
5585
5586 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5587 // S S U U B B R R O O U U T I NN N E
5588 // S U U B B R R O O U U T I N N N E
5589 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5590 // S U U B B R R O O U U T I N N N E
5591 // S S U U B B R R O O U U T I N NN E
5592 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5593
5594 // DDDDDD L A H H QQQQQ RRRRRR
5595 // D D L A A H H Q Q R R
5596 // D D L A A H H Q Q R R
5597 // D D L A A HHHHHHH Q Q RRRRRR
5598 // D D L AAAAAAA H H Q Q Q R R
5599 // D D L A A H H Q Q R R
5600 // DDDDDD LLLLLLL A A H H QQQQ Q R R
5601
5602
5603 // VIF THU 20 NOV 2025 22:20:08 ** DLAHQR ** DIAGNOSTICS PAGE 00197
5604
5605
5606 // VIF THU 20 NOV 2025 22:20:08 ** DLAHQR ** GENERATED CODE PAGE 00198
5607
5608 int_4 _dlahqr (logical_4 _p_ wantt_, logical_4 _p_ wantz_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_, real_8 _p_ h_,
5609 int_4 _p_ ldh_, real_8 _p_ wr_, real_8 _p_ wi_, int_4 _p_ iloz_, int_4 _p_ ihiz_, real_8 _p_ z_, int_4 _p_ ldz_, int_4
5610 _p_ info_)
5611 { // ** body not listed **
5817 }
5818
5819 // VIF THU 20 NOV 2025 22:20:08 ** DLALN2 ** DLALN2 PAGE 00203
5820
5821 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5822 // S S U U B B R R O O U U T I NN N E
5823 // S U U B B R R O O U U T I N N N E
5824 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5825 // S U U B B R R O O U U T I N N N E
5826 // S S U U B B R R O O U U T I N NN E
5827 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5828
5829 // DDDDDD L A L N N 22222
5830 // D D L A A L NN N 2 2
5831 // D D L A A L N N N 2
5832 // D D L A A L N N N 22222
5833 // D D L AAAAAAA L N N N 2
5834 // D D L A A L N NN 2
5835 // DDDDDD LLLLLLL A A LLLLLLL N N 2222222
5836
5837
5838 // VIF THU 20 NOV 2025 22:20:08 ** DLALN2 ** DIAGNOSTICS PAGE 00204
5839
5840
5841 // VIF THU 20 NOV 2025 22:20:08 ** DLALN2 ** GENERATED CODE PAGE 00205
5842
5843 int_4 _dlaln2 (logical_4 _p_ ltrans_, int_4 _p_ na_, int_4 _p_ nw_, real_8 _p_ smin_, real_8 _p_ ca_, real_8 _p_ a_,
5844 int_4 _p_ lda_, real_8 _p_ d1_, real_8 _p_ d2_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ wr_, real_8 _p_ wi_, real_8
5845 _p_ x_, int_4 _p_ ldx_, real_8 _p_ scale_, real_8 _p_ xnorm_, int_4 _p_ info_)
5846 { // ** body not listed **
6188 }
6189
6190 // VIF THU 20 NOV 2025 22:20:08 ** DLANHS ** DLANHS PAGE 00212
6191
6192 // RRRRRR EEEEEEE A L 88888
6193 // R R E A A L * * 8 8
6194 // R R E A A L * * 8 8
6195 // RRRRRR EEEEE A A L ******* 88888
6196 // R R E AAAAAAA L * * 8 8
6197 // R R E A A L * * 8 8
6198 // R R EEEEEEE A A LLLLLLL 88888
6199
6200 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
6201 // F U U NN N C C T I O O NN N
6202 // F U U N N N C T I O O N N N
6203 // FFFFF U U N N N C T I O O N N N
6204 // F U U N N N C T I O O N N N
6205 // F U U N NN C C T I O O N NN
6206 // F UUUUU N N CCCCC T III OOOOO N N
6207
6208 // DDDDDD L A N N H H SSSSS
6209 // D D L A A NN N H H S S
6210 // D D L A A N N N H H S
6211 // D D L A A N N N HHHHHHH SSSSS
6212 // D D L AAAAAAA N N N H H S
6213 // D D L A A N NN H H S S
6214 // DDDDDD LLLLLLL A A N N H H SSSSS
6215
6216
6217 // VIF THU 20 NOV 2025 22:20:08 ** DLANHS ** DIAGNOSTICS PAGE 00213
6218
6219
6220 // VIF THU 20 NOV 2025 22:20:08 ** DLANHS ** GENERATED CODE PAGE 00214
6221
6222 real_8 _dlanhs (char _p_ norm_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ work_)
6223 { // ** body not listed **
6282 }
6283
6284 // VIF THU 20 NOV 2025 22:20:08 ** DLANV2 ** DLANV2 PAGE 00216
6285
6286 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6287 // S S U U B B R R O O U U T I NN N E
6288 // S U U B B R R O O U U T I N N N E
6289 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6290 // S U U B B R R O O U U T I N N N E
6291 // S S U U B B R R O O U U T I N NN E
6292 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6293
6294 // DDDDDD L A N N V V 22222
6295 // D D L A A NN N V V 2 2
6296 // D D L A A N N N V V 2
6297 // D D L A A N N N V V 22222
6298 // D D L AAAAAAA N N N V V 2
6299 // D D L A A N NN V V 2
6300 // DDDDDD LLLLLLL A A N N V 2222222
6301
6302
6303 // VIF THU 20 NOV 2025 22:20:08 ** DLANV2 ** DIAGNOSTICS PAGE 00217
6304
6305
6306 // VIF THU 20 NOV 2025 22:20:08 ** DLANV2 ** GENERATED CODE PAGE 00218
6307
6308 int_4 _dlanv2 (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ d_, real_8 _p_ rt1r_, real_8 _p_ rt1i_, real_8
6309 _p_ rt2r_, real_8 _p_ rt2i_, real_8 _p_ cs_, real_8 _p_ sn_)
6310 { // ** body not listed **
6397 }
6398
6399 // VIF THU 20 NOV 2025 22:20:08 ** DLAPTM ** DLAPTM PAGE 00220
6400
6401 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6402 // S S U U B B R R O O U U T I NN N E
6403 // S U U B B R R O O U U T I N N N E
6404 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6405 // S U U B B R R O O U U T I N N N E
6406 // S S U U B B R R O O U U T I N NN E
6407 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6408
6409 // DDDDDD L A PPPPPP TTTTTTT M M
6410 // D D L A A P P T MM MM
6411 // D D L A A P P T M M M M
6412 // D D L A A PPPPPP T M M M
6413 // D D L AAAAAAA P T M M
6414 // D D L A A P T M M
6415 // DDDDDD LLLLLLL A A P T M M
6416
6417
6418 // VIF THU 20 NOV 2025 22:20:08 ** DLAPTM ** DIAGNOSTICS PAGE 00221
6419
6420
6421 // VIF THU 20 NOV 2025 22:20:08 ** DLAPTM ** GENERATED CODE PAGE 00222
6422
6423 int_4 _dlaptm (int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ alpha_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ x_, int_4 _p_
6424 ldx_, real_8 _p_ beta_, real_8 _p_ b_, int_4 _p_ ldb_)
6425 { // ** body not listed **
6485 }
6486
6487 // VIF THU 20 NOV 2025 22:20:08 ** DLAPY3 ** DLAPY3 PAGE 00224
6488
6489 // RRRRRR EEEEEEE A L 88888
6490 // R R E A A L * * 8 8
6491 // R R E A A L * * 8 8
6492 // RRRRRR EEEEE A A L ******* 88888
6493 // R R E AAAAAAA L * * 8 8
6494 // R R E A A L * * 8 8
6495 // R R EEEEEEE A A LLLLLLL 88888
6496
6497 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
6498 // F U U NN N C C T I O O NN N
6499 // F U U N N N C T I O O N N N
6500 // FFFFF U U N N N C T I O O N N N
6501 // F U U N N N C T I O O N N N
6502 // F U U N NN C C T I O O N NN
6503 // F UUUUU N N CCCCC T III OOOOO N N
6504
6505 // DDDDDD L A PPPPPP Y Y 33333
6506 // D D L A A P P Y Y 3 3
6507 // D D L A A P P Y Y 3
6508 // D D L A A PPPPPP Y 33333
6509 // D D L AAAAAAA P Y 3
6510 // D D L A A P Y 3 3
6511 // DDDDDD LLLLLLL A A P Y 33333
6512
6513
6514 // VIF THU 20 NOV 2025 22:20:08 ** DLAPY3 ** DIAGNOSTICS PAGE 00225
6515
6516
6517 // VIF THU 20 NOV 2025 22:20:08 ** DLAPY3 ** GENERATED CODE PAGE 00226
6518
6519 real_8 _dlapy3 (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ z_)
6520 { // ** body not listed **
6540 }
6541
6542 // VIF THU 20 NOV 2025 22:20:08 ** DLARAN ** DLARAN PAGE 00227
6543
6544 // RRRRRR EEEEEEE A L 88888
6545 // R R E A A L * * 8 8
6546 // R R E A A L * * 8 8
6547 // RRRRRR EEEEE A A L ******* 88888
6548 // R R E AAAAAAA L * * 8 8
6549 // R R E A A L * * 8 8
6550 // R R EEEEEEE A A LLLLLLL 88888
6551
6552 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
6553 // F U U NN N C C T I O O NN N
6554 // F U U N N N C T I O O N N N
6555 // FFFFF U U N N N C T I O O N N N
6556 // F U U N N N C T I O O N N N
6557 // F U U N NN C C T I O O N NN
6558 // F UUUUU N N CCCCC T III OOOOO N N
6559
6560 // DDDDDD L A RRRRRR A N N
6561 // D D L A A R R A A NN N
6562 // D D L A A R R A A N N N
6563 // D D L A A RRRRRR A A N N N
6564 // D D L AAAAAAA R R AAAAAAA N N N
6565 // D D L A A R R A A N NN
6566 // DDDDDD LLLLLLL A A R R A A N N
6567
6568
6569 // VIF THU 20 NOV 2025 22:20:08 ** DLARAN ** DIAGNOSTICS PAGE 00228
6570
6571
6572 // VIF THU 20 NOV 2025 22:20:08 ** DLARAN ** GENERATED CODE PAGE 00229
6573
6574 real_8 _dlaran (int_4 _p_ iseed_)
6575 { // ** body not listed **
6599 }
6600
6601 // VIF THU 20 NOV 2025 22:20:08 ** DLARFX ** DLARFX PAGE 00230
6602
6603 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6604 // S S U U B B R R O O U U T I NN N E
6605 // S U U B B R R O O U U T I N N N E
6606 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6607 // S U U B B R R O O U U T I N N N E
6608 // S S U U B B R R O O U U T I N NN E
6609 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6610
6611 // DDDDDD L A RRRRRR FFFFFFF X X
6612 // D D L A A R R F X X
6613 // D D L A A R R F X X
6614 // D D L A A RRRRRR FFFFF X
6615 // D D L AAAAAAA R R F X X
6616 // D D L A A R R F X X
6617 // DDDDDD LLLLLLL A A R R F X X
6618
6619
6620 // VIF THU 20 NOV 2025 22:20:08 ** DLARFX ** DIAGNOSTICS PAGE 00231
6621
6622
6623 // VIF THU 20 NOV 2025 22:20:08 ** DLARFX ** GENERATED CODE PAGE 00232
6624
6625 int_4 _dlarfx (char _p_ side_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ tau_, real_8 _p_ c_, int_4 _p_
6626 ldc_, real_8 _p_ work_)
6627 { // ** body not listed **
7154 }
7155
7156 // VIF THU 20 NOV 2025 22:20:08 ** DLARND ** DLARND PAGE 00243
7157
7158 // RRRRRR EEEEEEE A L 88888
7159 // R R E A A L * * 8 8
7160 // R R E A A L * * 8 8
7161 // RRRRRR EEEEE A A L ******* 88888
7162 // R R E AAAAAAA L * * 8 8
7163 // R R E A A L * * 8 8
7164 // R R EEEEEEE A A LLLLLLL 88888
7165
7166 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
7167 // F U U NN N C C T I O O NN N
7168 // F U U N N N C T I O O N N N
7169 // FFFFF U U N N N C T I O O N N N
7170 // F U U N N N C T I O O N N N
7171 // F U U N NN C C T I O O N NN
7172 // F UUUUU N N CCCCC T III OOOOO N N
7173
7174 // DDDDDD L A RRRRRR N N DDDDDD
7175 // D D L A A R R NN N D D
7176 // D D L A A R R N N N D D
7177 // D D L A A RRRRRR N N N D D
7178 // D D L AAAAAAA R R N N N D D
7179 // D D L A A R R N NN D D
7180 // DDDDDD LLLLLLL A A R R N N DDDDDD
7181
7182
7183 // VIF THU 20 NOV 2025 22:20:08 ** DLARND ** DIAGNOSTICS PAGE 00244
7184
7185
7186 // VIF THU 20 NOV 2025 22:20:08 ** DLARND ** GENERATED CODE PAGE 00245
7187
7188 real_8 _dlarnd (int_4 _p_ idist_, int_4 _p_ iseed_)
7189 { // ** body not listed **
7208 }
7209
7210 // VIF THU 20 NOV 2025 22:20:08 ** DLARNV ** DLARNV PAGE 00246
7211
7212 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7213 // S S U U B B R R O O U U T I NN N E
7214 // S U U B B R R O O U U T I N N N E
7215 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7216 // S U U B B R R O O U U T I N N N E
7217 // S S U U B B R R O O U U T I N NN E
7218 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7219
7220 // DDDDDD L A RRRRRR N N V V
7221 // D D L A A R R NN N V V
7222 // D D L A A R R N N N V V
7223 // D D L A A RRRRRR N N N V V
7224 // D D L AAAAAAA R R N N N V V
7225 // D D L A A R R N NN V V
7226 // DDDDDD LLLLLLL A A R R N N V
7227
7228
7229 // VIF THU 20 NOV 2025 22:20:08 ** DLARNV ** DIAGNOSTICS PAGE 00247
7230
7231
7232 // VIF THU 20 NOV 2025 22:20:08 ** DLARNV ** GENERATED CODE PAGE 00248
7233
7234 int_4 _dlarnv (int_4 _p_ idist_, int_4 _p_ iseed_, int_4 _p_ n_, real_8 _p_ x_)
7235 { // ** body not listed **
7269 }
7270
7271 // VIF THU 20 NOV 2025 22:20:08 ** DLARUV ** DLARUV PAGE 00249
7272
7273 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7274 // S S U U B B R R O O U U T I NN N E
7275 // S U U B B R R O O U U T I N N N E
7276 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7277 // S U U B B R R O O U U T I N N N E
7278 // S S U U B B R R O O U U T I N NN E
7279 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7280
7281 // DDDDDD L A RRRRRR U U V V
7282 // D D L A A R R U U V V
7283 // D D L A A R R U U V V
7284 // D D L A A RRRRRR U U V V
7285 // D D L AAAAAAA R R U U V V
7286 // D D L A A R R U U V V
7287 // DDDDDD LLLLLLL A A R R UUUUU V
7288
7289
7290 // VIF THU 20 NOV 2025 22:20:08 ** DLARUV ** DIAGNOSTICS PAGE 00250
7291
7292
7293 // VIF THU 20 NOV 2025 22:20:08 ** DLARUV ** GENERATED CODE PAGE 00251
7294
7295 int_4 _dlaruv (int_4 _p_ iseed_, int_4 _p_ n_, real_8 _p_ x_)
7296 { // ** body not listed **
9604 }
9605
9606 // VIF THU 20 NOV 2025 22:20:08 ** DLASY2 ** DLASY2 PAGE 00296
9607
9608 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9609 // S S U U B B R R O O U U T I NN N E
9610 // S U U B B R R O O U U T I N N N E
9611 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9612 // S U U B B R R O O U U T I N N N E
9613 // S S U U B B R R O O U U T I N NN E
9614 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9615
9616 // DDDDDD L A SSSSS Y Y 22222
9617 // D D L A A S S Y Y 2 2
9618 // D D L A A S Y Y 2
9619 // D D L A A SSSSS Y 22222
9620 // D D L AAAAAAA S Y 2
9621 // D D L A A S S Y 2
9622 // DDDDDD LLLLLLL A A SSSSS Y 2222222
9623
9624
9625 // VIF THU 20 NOV 2025 22:20:08 ** DLASY2 ** DIAGNOSTICS PAGE 00297
9626
9627
9628 // VIF THU 20 NOV 2025 22:20:08 ** DLASY2 ** GENERATED CODE PAGE 00298
9629
9630 int_4 _dlasy2 (logical_4 _p_ ltranl_, logical_4 _p_ ltranr_, int_4 _p_ isgn_, int_4 _p_ n1_, int_4 _p_ n2_, real_8 _p_
9631 tl_, int_4 _p_ ldtl_, real_8 _p_ tr_, int_4 _p_ ldtr_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ scale_, real_8 _p_ x_,
9632 int_4 _p_ ldx_, real_8 _p_ xnorm_, int_4 _p_ info_)
9633 { // ** body not listed **
9962 }
9963
9964 // VIF THU 20 NOV 2025 22:20:08 ** DPTTRF ** DPTTRF PAGE 00305
9965
9966 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9967 // S S U U B B R R O O U U T I NN N E
9968 // S U U B B R R O O U U T I N N N E
9969 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9970 // S U U B B R R O O U U T I N N N E
9971 // S S U U B B R R O O U U T I N NN E
9972 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9973
9974 // DDDDDD PPPPPP TTTTTTT TTTTTTT RRRRRR FFFFFFF
9975 // D D P P T T R R F
9976 // D D P P T T R R F
9977 // D D PPPPPP T T RRRRRR FFFFF
9978 // D D P T T R R F
9979 // D D P T T R R F
9980 // DDDDDD P T T R R F
9981
9982
9983 // VIF THU 20 NOV 2025 22:20:08 ** DPTTRF ** DIAGNOSTICS PAGE 00306
9984
9985
9986 // VIF THU 20 NOV 2025 22:20:08 ** DPTTRF ** GENERATED CODE PAGE 00307
9987
9988 int_4 _dpttrf (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, int_4 _p_ info_)
9989 { // ** body not listed **
10022 }
10023
10024 // VIF THU 20 NOV 2025 22:20:08 ** DPTTRS ** DPTTRS PAGE 00308
10025
10026 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10027 // S S U U B B R R O O U U T I NN N E
10028 // S U U B B R R O O U U T I N N N E
10029 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10030 // S U U B B R R O O U U T I N N N E
10031 // S S U U B B R R O O U U T I N NN E
10032 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10033
10034 // DDDDDD PPPPPP TTTTTTT TTTTTTT RRRRRR SSSSS
10035 // D D P P T T R R S S
10036 // D D P P T T R R S
10037 // D D PPPPPP T T RRRRRR SSSSS
10038 // D D P T T R R S
10039 // D D P T T R R S S
10040 // DDDDDD P T T R R SSSSS
10041
10042
10043 // VIF THU 20 NOV 2025 22:20:08 ** DPTTRS ** DIAGNOSTICS PAGE 00309
10044
10045
10046 // VIF THU 20 NOV 2025 22:20:08 ** DPTTRS ** GENERATED CODE PAGE 00310
10047
10048 int_4 _dpttrs (int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ b_, int_4 _p_ ldb_, int_4 _p_
10049 info_)
10050 { // ** body not listed **
10086 }
10087
10088 // VIF THU 20 NOV 2025 22:20:08 ** DSTEQR ** DSTEQR PAGE 00311
10089
10090 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10091 // S S U U B B R R O O U U T I NN N E
10092 // S U U B B R R O O U U T I N N N E
10093 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10094 // S U U B B R R O O U U T I N N N E
10095 // S S U U B B R R O O U U T I N NN E
10096 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10097
10098 // DDDDDD SSSSS TTTTTTT EEEEEEE QQQQQ RRRRRR
10099 // D D S S T E Q Q R R
10100 // D D S T E Q Q R R
10101 // D D SSSSS T EEEEE Q Q RRRRRR
10102 // D D S T E Q Q Q R R
10103 // D D S S T E Q Q R R
10104 // DDDDDD SSSSS T EEEEEEE QQQQ Q R R
10105
10106
10107 // VIF THU 20 NOV 2025 22:20:08 ** DSTEQR ** DIAGNOSTICS PAGE 00312
10108
10109
10110 // VIF THU 20 NOV 2025 22:20:08 ** DSTEQR ** GENERATED CODE PAGE 00313
10111
10112 int_4 _dsteqr (char _p_ compz_, int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ z_, int_4 _p_ ldz_, real_8 _p_
10113 work_, int_4 _p_ info_)
10114 { // ** body not listed **
10459 }
10460
10461 // VIF THU 20 NOV 2025 22:20:08 ** DTREVC ** DTREVC PAGE 00320
10462
10463 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10464 // S S U U B B R R O O U U T I NN N E
10465 // S U U B B R R O O U U T I N N N E
10466 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10467 // S U U B B R R O O U U T I N N N E
10468 // S S U U B B R R O O U U T I N NN E
10469 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10470
10471 // DDDDDD TTTTTTT RRRRRR EEEEEEE V V CCCCC
10472 // D D T R R E V V C C
10473 // D D T R R E V V C
10474 // D D T RRRRRR EEEEE V V C
10475 // D D T R R E V V C
10476 // D D T R R E V V C C
10477 // DDDDDD T R R EEEEEEE V CCCCC
10478
10479
10480 // VIF THU 20 NOV 2025 22:20:08 ** DTREVC ** DIAGNOSTICS PAGE 00321
10481
10482
10483 // VIF THU 20 NOV 2025 22:20:08 ** DTREVC ** GENERATED CODE PAGE 00322
10484
10485 int_4 _dtrevc (char _p_ side_, char _p_ howmny_, logical_4 _p_ select_, int_4 _p_ n_, real_8 _p_ t_, int_4 _p_ ldt_,
10486 real_8 _p_ vl_, int_4 _p_ ldvl_, real_8 _p_ vr_, int_4 _p_ ldvr_, int_4 _p_ mm_, int_4 _p_ m_, real_8 _p_ work_, int_4
10487 _p_ info_)
10488 { // ** body not listed **
11128 }
11129
11130 // VIF THU 20 NOV 2025 22:20:08 ** DTREXC ** DTREXC PAGE 00335
11131
11132 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11133 // S S U U B B R R O O U U T I NN N E
11134 // S U U B B R R O O U U T I N N N E
11135 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11136 // S U U B B R R O O U U T I N N N E
11137 // S S U U B B R R O O U U T I N NN E
11138 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11139
11140 // DDDDDD TTTTTTT RRRRRR EEEEEEE X X CCCCC
11141 // D D T R R E X X C C
11142 // D D T R R E X X C
11143 // D D T RRRRRR EEEEE X C
11144 // D D T R R E X X C
11145 // D D T R R E X X C C
11146 // DDDDDD T R R EEEEEEE X X CCCCC
11147
11148
11149 // VIF THU 20 NOV 2025 22:20:08 ** DTREXC ** DIAGNOSTICS PAGE 00336
11150
11151
11152 // VIF THU 20 NOV 2025 22:20:08 ** DTREXC ** GENERATED CODE PAGE 00337
11153
11154 int_4 _dtrexc (char _p_ compq_, int_4 _p_ n_, real_8 _p_ t_, int_4 _p_ ldt_, real_8 _p_ q_, int_4 _p_ ldq_, int_4 _p_
11155 ifst_, int_4 _p_ ilst_, real_8 _p_ work_, int_4 _p_ info_)
11156 { // ** body not listed **
11353 }
11354
11355 // VIF THU 20 NOV 2025 22:20:08 ** DTRSEN ** DTRSEN PAGE 00341
11356
11357 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11358 // S S U U B B R R O O U U T I NN N E
11359 // S U U B B R R O O U U T I N N N E
11360 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11361 // S U U B B R R O O U U T I N N N E
11362 // S S U U B B R R O O U U T I N NN E
11363 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11364
11365 // DDDDDD TTTTTTT RRRRRR SSSSS EEEEEEE N N
11366 // D D T R R S S E NN N
11367 // D D T R R S E N N N
11368 // D D T RRRRRR SSSSS EEEEE N N N
11369 // D D T R R S E N N N
11370 // D D T R R S S E N NN
11371 // DDDDDD T R R SSSSS EEEEEEE N N
11372
11373
11374 // VIF THU 20 NOV 2025 22:20:08 ** DTRSEN ** DIAGNOSTICS PAGE 00342
11375
11376
11377 // VIF THU 20 NOV 2025 22:20:08 ** DTRSEN ** GENERATED CODE PAGE 00343
11378
11379 int_4 _dtrsen (char _p_ job_, char _p_ compq_, logical_4 _p_ select_, int_4 _p_ n_, real_8 _p_ t_, int_4 _p_ ldt_,
11380 real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ wr_, real_8 _p_ wi_, int_4 _p_ m_, real_8 _p_ s_, real_8 _p_ sep_, real_8 _p_
11381 work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_)
11382 { // ** body not listed **
11553 }
11554
11555 // VIF THU 20 NOV 2025 22:20:08 ** DTRSYL ** DTRSYL PAGE 00347
11556
11557 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11558 // S S U U B B R R O O U U T I NN N E
11559 // S U U B B R R O O U U T I N N N E
11560 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11561 // S U U B B R R O O U U T I N N N E
11562 // S S U U B B R R O O U U T I N NN E
11563 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11564
11565 // DDDDDD TTTTTTT RRRRRR SSSSS Y Y L
11566 // D D T R R S S Y Y L
11567 // D D T R R S Y Y L
11568 // D D T RRRRRR SSSSS Y L
11569 // D D T R R S Y L
11570 // D D T R R S S Y L
11571 // DDDDDD T R R SSSSS Y LLLLLLL
11572
11573
11574 // VIF THU 20 NOV 2025 22:20:08 ** DTRSYL ** DIAGNOSTICS PAGE 00348
11575
11576
11577 // VIF THU 20 NOV 2025 22:20:08 ** DTRSYL ** GENERATED CODE PAGE 00349
11578
11579 int_4 _dtrsyl (char _p_ trana_, char _p_ tranb_, int_4 _p_ isgn_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_
11580 lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ scale_, int_4 _p_ info_)
11581 { // ** body not listed **
12351 }
12352
12353 // VIF THU 20 NOV 2025 22:20:08 ** DZSUM1 ** DZSUM1 PAGE 00364
12354
12355 // RRRRRR EEEEEEE A L 88888
12356 // R R E A A L * * 8 8
12357 // R R E A A L * * 8 8
12358 // RRRRRR EEEEE A A L ******* 88888
12359 // R R E AAAAAAA L * * 8 8
12360 // R R E A A L * * 8 8
12361 // R R EEEEEEE A A LLLLLLL 88888
12362
12363 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
12364 // F U U NN N C C T I O O NN N
12365 // F U U N N N C T I O O N N N
12366 // FFFFF U U N N N C T I O O N N N
12367 // F U U N N N C T I O O N N N
12368 // F U U N NN C C T I O O N NN
12369 // F UUUUU N N CCCCC T III OOOOO N N
12370
12371 // DDDDDD ZZZZZZZ SSSSS U U M M 1
12372 // D D Z S S U U MM MM 11
12373 // D D Z S U U M M M M 1 1
12374 // D D Z SSSSS U U M M M 1
12375 // D D Z S U U M M 1
12376 // D D * S S U U M M 1
12377 // DDDDDD ZZZZZZZ SSSSS UUUUU M M 11111
12378
12379
12380 // VIF THU 20 NOV 2025 22:20:08 ** DZSUM1 ** DIAGNOSTICS PAGE 00365
12381
12382
12383 // VIF THU 20 NOV 2025 22:20:08 ** DZSUM1 ** GENERATED CODE PAGE 00366
12384
12385 real_8 _dzsum1 (int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ incx_)
12386 { // ** body not listed **
12413 }
12414
12415 // VIF THU 20 NOV 2025 22:20:08 ** ICMAX1 ** ICMAX1 PAGE 00367
12416
12417 // III N N TTTTTTT EEEEEEE GGGGG EEEEEEE RRRRRR 4
12418 // I NN N T E G G E R R * * 4 4
12419 // I N N N T E G E R R * * 4 4
12420 // I N N N T EEEEE G GGGG EEEEE RRRRRR ******* 4444444
12421 // I N N N T E G G E R R * * 4
12422 // I N NN T E G G E R R * * 4
12423 // III N N T EEEEEEE GGGGG EEEEEEE R R 4
12424
12425 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
12426 // F U U NN N C C T I O O NN N
12427 // F U U N N N C T I O O N N N
12428 // FFFFF U U N N N C T I O O N N N
12429 // F U U N N N C T I O O N N N
12430 // F U U N NN C C T I O O N NN
12431 // F UUUUU N N CCCCC T III OOOOO N N
12432
12433 // III CCCCC M M A X X 1
12434 // I C C MM MM A A X X 11
12435 // I C M M M M A A X X 1 1
12436 // I C M M M A A X 1
12437 // I C M M AAAAAAA X X 1
12438 // I C C M M A A X X 1
12439 // III CCCCC M M A A X X 11111
12440
12441
12442 // VIF THU 20 NOV 2025 22:20:08 ** ICMAX1 ** DIAGNOSTICS PAGE 00368
12443
12444
12445 // VIF THU 20 NOV 2025 22:20:08 ** ICMAX1 ** GENERATED CODE PAGE 00369
12446
12447 int_4 _icmax1 (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
12448 { // ** body not listed **
12492 }
12493
12494 // VIF THU 20 NOV 2025 22:20:08 ** IZMAX1 ** IZMAX1 PAGE 00370
12495
12496 // III N N TTTTTTT EEEEEEE GGGGG EEEEEEE RRRRRR 4
12497 // I NN N T E G G E R R * * 4 4
12498 // I N N N T E G E R R * * 4 4
12499 // I N N N T EEEEE G GGGG EEEEE RRRRRR ******* 4444444
12500 // I N N N T E G G E R R * * 4
12501 // I N NN T E G G E R R * * 4
12502 // III N N T EEEEEEE GGGGG EEEEEEE R R 4
12503
12504 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
12505 // F U U NN N C C T I O O NN N
12506 // F U U N N N C T I O O N N N
12507 // FFFFF U U N N N C T I O O N N N
12508 // F U U N N N C T I O O N N N
12509 // F U U N NN C C T I O O N NN
12510 // F UUUUU N N CCCCC T III OOOOO N N
12511
12512 // III ZZZZZZZ M M A X X 1
12513 // I Z MM MM A A X X 11
12514 // I Z M M M M A A X X 1 1
12515 // I Z M M M A A X 1
12516 // I Z M M AAAAAAA X X 1
12517 // I * M M A A X X 1
12518 // III ZZZZZZZ M M A A X X 11111
12519
12520
12521 // VIF THU 20 NOV 2025 22:20:08 ** IZMAX1 ** DIAGNOSTICS PAGE 00371
12522
12523
12524 // VIF THU 20 NOV 2025 22:20:08 ** IZMAX1 ** GENERATED CODE PAGE 00372
12525
12526 int_4 _izmax1 (int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ incx_)
12527 { // ** body not listed **
12571 }
12572
12573 // VIF THU 20 NOV 2025 22:20:08 ** SCSUM1 ** SCSUM1 PAGE 00373
12574
12575 // RRRRRR EEEEEEE A L 4
12576 // R R E A A L * * 4 4
12577 // R R E A A L * * 4 4
12578 // RRRRRR EEEEE A A L ******* 4444444
12579 // R R E AAAAAAA L * * 4
12580 // R R E A A L * * 4
12581 // R R EEEEEEE A A LLLLLLL 4
12582
12583 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
12584 // F U U NN N C C T I O O NN N
12585 // F U U N N N C T I O O N N N
12586 // FFFFF U U N N N C T I O O N N N
12587 // F U U N N N C T I O O N N N
12588 // F U U N NN C C T I O O N NN
12589 // F UUUUU N N CCCCC T III OOOOO N N
12590
12591 // SSSSS CCCCC SSSSS U U M M 1
12592 // S S C C S S U U MM MM 11
12593 // S C S U U M M M M 1 1
12594 // SSSSS C SSSSS U U M M M 1
12595 // S C S U U M M 1
12596 // S S C C S S U U M M 1
12597 // SSSSS CCCCC SSSSS UUUUU M M 11111
12598
12599
12600 // VIF THU 20 NOV 2025 22:20:08 ** SCSUM1 ** DIAGNOSTICS PAGE 00374
12601
12602
12603 // VIF THU 20 NOV 2025 22:20:08 ** SCSUM1 ** GENERATED CODE PAGE 00375
12604
12605 real_4 _scsum1 (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
12606 { // ** body not listed **
12633 }
12634
12635 // VIF THU 20 NOV 2025 22:20:08 ** SGBTF2 ** SGBTF2 PAGE 00376
12636
12637 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12638 // S S U U B B R R O O U U T I NN N E
12639 // S U U B B R R O O U U T I N N N E
12640 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12641 // S U U B B R R O O U U T I N N N E
12642 // S S U U B B R R O O U U T I N NN E
12643 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12644
12645 // SSSSS GGGGG BBBBBB TTTTTTT FFFFFFF 22222
12646 // S S G G B B T F 2 2
12647 // S G B B T F 2
12648 // SSSSS G GGGG BBBBBB T FFFFF 22222
12649 // S G G B B T F 2
12650 // S S G G B B T F 2
12651 // SSSSS GGGGG BBBBBB T F 2222222
12652
12653
12654 // VIF THU 20 NOV 2025 22:20:08 ** SGBTF2 ** DIAGNOSTICS PAGE 00377
12655
12656
12657 // VIF THU 20 NOV 2025 22:20:08 ** SGBTF2 ** GENERATED CODE PAGE 00378
12658
12659 int_4 _sgbtf2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, real_4 _p_ ab_, int_4 _p_ ldab_, int_4 _p_
12660 ipiv_, int_4 _p_ info_)
12661 { // ** body not listed **
12738 }
12739
12740 // VIF THU 20 NOV 2025 22:20:08 ** SGBTRF ** SGBTRF PAGE 00380
12741
12742 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12743 // S S U U B B R R O O U U T I NN N E
12744 // S U U B B R R O O U U T I N N N E
12745 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12746 // S U U B B R R O O U U T I N N N E
12747 // S S U U B B R R O O U U T I N NN E
12748 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12749
12750 // SSSSS GGGGG BBBBBB TTTTTTT RRRRRR FFFFFFF
12751 // S S G G B B T R R F
12752 // S G B B T R R F
12753 // SSSSS G GGGG BBBBBB T RRRRRR FFFFF
12754 // S G G B B T R R F
12755 // S S G G B B T R R F
12756 // SSSSS GGGGG BBBBBB T R R F
12757
12758
12759 // VIF THU 20 NOV 2025 22:20:08 ** SGBTRF ** DIAGNOSTICS PAGE 00381
12760
12761
12762 // VIF THU 20 NOV 2025 22:20:08 ** SGBTRF ** GENERATED CODE PAGE 00382
12763
12764 int_4 _sgbtrf (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, real_4 _p_ ab_, int_4 _p_ ldab_, int_4 _p_
12765 ipiv_, int_4 _p_ info_)
12766 { // ** body not listed **
12969 }
12970 // VIF THU 20 NOV 2025 22:20:08 ** SGBTRF ** GENERATED CODE PAGE 00386
12971
12972
12973 // VIF THU 20 NOV 2025 22:20:08 ** SGBTRS ** SGBTRS PAGE 00387
12974
12975 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12976 // S S U U B B R R O O U U T I NN N E
12977 // S U U B B R R O O U U T I N N N E
12978 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12979 // S U U B B R R O O U U T I N N N E
12980 // S S U U B B R R O O U U T I N NN E
12981 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12982
12983 // SSSSS GGGGG BBBBBB TTTTTTT RRRRRR SSSSS
12984 // S S G G B B T R R S S
12985 // S G B B T R R S
12986 // SSSSS G GGGG BBBBBB T RRRRRR SSSSS
12987 // S G G B B T R R S
12988 // S S G G B B T R R S S
12989 // SSSSS GGGGG BBBBBB T R R SSSSS
12990
12991
12992 // VIF THU 20 NOV 2025 22:20:08 ** SGBTRS ** DIAGNOSTICS PAGE 00388
12993
12994
12995 // VIF THU 20 NOV 2025 22:20:08 ** SGBTRS ** GENERATED CODE PAGE 00389
12996
12997 int_4 _sgbtrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, int_4 _p_ nrhs_, real_4 _p_ ab_, int_4 _p_
12998 ldab_, int_4 _p_ ipiv_, real_4 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_)
12999 { // ** body not listed **
13083 }
13084
13085 // VIF THU 20 NOV 2025 22:20:08 ** SGEQR2 ** SGEQR2 PAGE 00391
13086
13087 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13088 // S S U U B B R R O O U U T I NN N E
13089 // S U U B B R R O O U U T I N N N E
13090 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13091 // S U U B B R R O O U U T I N N N E
13092 // S S U U B B R R O O U U T I N NN E
13093 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13094
13095 // SSSSS GGGGG EEEEEEE QQQQQ RRRRRR 22222
13096 // S S G G E Q Q R R 2 2
13097 // S G E Q Q R R 2
13098 // SSSSS G GGGG EEEEE Q Q RRRRRR 22222
13099 // S G G E Q Q Q R R 2
13100 // S S G G E Q Q R R 2
13101 // SSSSS GGGGG EEEEEEE QQQQ Q R R 2222222
13102
13103
13104 // VIF THU 20 NOV 2025 22:20:08 ** SGEQR2 ** DIAGNOSTICS PAGE 00392
13105
13106
13107 // VIF THU 20 NOV 2025 22:20:08 ** SGEQR2 ** GENERATED CODE PAGE 00393
13108
13109 int_4 _sgeqr2 (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ tau_, real_4 _p_ work_, int_4 _p_
13110 info_)
13111 { // ** body not listed **
13147 }
13148
13149 // VIF THU 20 NOV 2025 22:20:08 ** SGTTRF ** SGTTRF PAGE 00394
13150
13151 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13152 // S S U U B B R R O O U U T I NN N E
13153 // S U U B B R R O O U U T I N N N E
13154 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13155 // S U U B B R R O O U U T I N N N E
13156 // S S U U B B R R O O U U T I N NN E
13157 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13158
13159 // SSSSS GGGGG TTTTTTT TTTTTTT RRRRRR FFFFFFF
13160 // S S G G T T R R F
13161 // S G T T R R F
13162 // SSSSS G GGGG T T RRRRRR FFFFF
13163 // S G G T T R R F
13164 // S S G G T T R R F
13165 // SSSSS GGGGG T T R R F
13166
13167
13168 // VIF THU 20 NOV 2025 22:20:08 ** SGTTRF ** DIAGNOSTICS PAGE 00395
13169
13170
13171 // VIF THU 20 NOV 2025 22:20:08 ** SGTTRF ** GENERATED CODE PAGE 00396
13172
13173 int_4 _sgttrf (int_4 _p_ n_, real_4 _p_ dl_, real_4 _p_ d_, real_4 _p_ du_, real_4 _p_ du2_, int_4 _p_ ipiv_, int_4 _p_
13174 info_)
13175 { // ** body not listed **
13233 }
13234
13235 // VIF THU 20 NOV 2025 22:20:08 ** SGTTRS ** SGTTRS PAGE 00398
13236
13237 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13238 // S S U U B B R R O O U U T I NN N E
13239 // S U U B B R R O O U U T I N N N E
13240 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13241 // S U U B B R R O O U U T I N N N E
13242 // S S U U B B R R O O U U T I N NN E
13243 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13244
13245 // SSSSS GGGGG TTTTTTT TTTTTTT RRRRRR SSSSS
13246 // S S G G T T R R S S
13247 // S G T T R R S
13248 // SSSSS G GGGG T T RRRRRR SSSSS
13249 // S G G T T R R S
13250 // S S G G T T R R S S
13251 // SSSSS GGGGG T T R R SSSSS
13252
13253
13254 // VIF THU 20 NOV 2025 22:20:08 ** SGTTRS ** DIAGNOSTICS PAGE 00399
13255
13256
13257 // VIF THU 20 NOV 2025 22:20:08 ** SGTTRS ** GENERATED CODE PAGE 00400
13258
13259 int_4 _sgttrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ nrhs_, real_4 _p_ dl_, real_4 _p_ d_, real_4 _p_ du_, real_4
13260 _p_ du2_, int_4 _p_ ipiv_, real_4 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_)
13261 { // ** body not listed **
13342 }
13343
13344 // VIF THU 20 NOV 2025 22:20:08 ** SLABAD ** SLABAD PAGE 00402
13345
13346 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13347 // S S U U B B R R O O U U T I NN N E
13348 // S U U B B R R O O U U T I N N N E
13349 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13350 // S U U B B R R O O U U T I N N N E
13351 // S S U U B B R R O O U U T I N NN E
13352 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13353
13354 // SSSSS L A BBBBBB A DDDDDD
13355 // S S L A A B B A A D D
13356 // S L A A B B A A D D
13357 // SSSSS L A A BBBBBB A A D D
13358 // S L AAAAAAA B B AAAAAAA D D
13359 // S S L A A B B A A D D
13360 // SSSSS LLLLLLL A A BBBBBB A A DDDDDD
13361
13362
13363 // VIF THU 20 NOV 2025 22:20:08 ** SLABAD ** DIAGNOSTICS PAGE 00403
13364
13365
13366 // VIF THU 20 NOV 2025 22:20:08 ** SLABAD ** GENERATED CODE PAGE 00404
13367
13368 int_4 _slabad (real_4 _p_ small_, real_4 _p_ large_)
13369 { // ** body not listed **
13378 }
13379
13380 // VIF THU 20 NOV 2025 22:20:08 ** SLACON ** SLACON PAGE 00405
13381
13382 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13383 // S S U U B B R R O O U U T I NN N E
13384 // S U U B B R R O O U U T I N N N E
13385 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13386 // S U U B B R R O O U U T I N N N E
13387 // S S U U B B R R O O U U T I N NN E
13388 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13389
13390 // SSSSS L A CCCCC OOOOO N N
13391 // S S L A A C C O O NN N
13392 // S L A A C O O N N N
13393 // SSSSS L A A C O O N N N
13394 // S L AAAAAAA C O O N N N
13395 // S S L A A C C O O N NN
13396 // SSSSS LLLLLLL A A CCCCC OOOOO N N
13397
13398
13399 // VIF THU 20 NOV 2025 22:20:08 ** SLACON ** DIAGNOSTICS PAGE 00406
13400
13401
13402 // VIF THU 20 NOV 2025 22:20:08 ** SLACON ** GENERATED CODE PAGE 00407
13403
13404 int_4 _slacon (int_4 _p_ n_, real_4 _p_ v_, real_4 _p_ x_, int_4 _p_ isgn_, real_4 _p_ est_, int_4 _p_ kase_)
13405 { // ** body not listed **
13508 }
13509
13510 // VIF THU 20 NOV 2025 22:20:08 ** SLACPY ** SLACPY PAGE 00410
13511
13512 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13513 // S S U U B B R R O O U U T I NN N E
13514 // S U U B B R R O O U U T I N N N E
13515 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13516 // S U U B B R R O O U U T I N N N E
13517 // S S U U B B R R O O U U T I N NN E
13518 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13519
13520 // SSSSS L A CCCCC PPPPPP Y Y
13521 // S S L A A C C P P Y Y
13522 // S L A A C P P Y Y
13523 // SSSSS L A A C PPPPPP Y
13524 // S L AAAAAAA C P Y
13525 // S S L A A C C P Y
13526 // SSSSS LLLLLLL A A CCCCC P Y
13527
13528
13529 // VIF THU 20 NOV 2025 22:20:08 ** SLACPY ** DIAGNOSTICS PAGE 00411
13530
13531
13532 // VIF THU 20 NOV 2025 22:20:08 ** SLACPY ** GENERATED CODE PAGE 00412
13533
13534 int_4 _slacpy (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_
13535 )
13536 { // ** body not listed **
13563 }
13564
13565 // VIF THU 20 NOV 2025 22:20:08 ** SLADIV ** SLADIV PAGE 00413
13566
13567 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13568 // S S U U B B R R O O U U T I NN N E
13569 // S U U B B R R O O U U T I N N N E
13570 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13571 // S U U B B R R O O U U T I N N N E
13572 // S S U U B B R R O O U U T I N NN E
13573 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13574
13575 // SSSSS L A DDDDDD III V V
13576 // S S L A A D D I V V
13577 // S L A A D D I V V
13578 // SSSSS L A A D D I V V
13579 // S L AAAAAAA D D I V V
13580 // S S L A A D D I V V
13581 // SSSSS LLLLLLL A A DDDDDD III V
13582
13583
13584 // VIF THU 20 NOV 2025 22:20:08 ** SLADIV ** DIAGNOSTICS PAGE 00414
13585
13586
13587 // VIF THU 20 NOV 2025 22:20:08 ** SLADIV ** GENERATED CODE PAGE 00415
13588
13589 int_4 _sladiv (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ p_, real_4 _p_ q_)
13590 { // ** body not listed **
13607 }
13608
13609 // VIF THU 20 NOV 2025 22:20:08 ** SLAE2 ** SLAE2 PAGE 00416
13610
13611 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13612 // S S U U B B R R O O U U T I NN N E
13613 // S U U B B R R O O U U T I N N N E
13614 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13615 // S U U B B R R O O U U T I N N N E
13616 // S S U U B B R R O O U U T I N NN E
13617 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13618
13619 // SSSSS L A EEEEEEE 22222
13620 // S S L A A E 2 2
13621 // S L A A E 2
13622 // SSSSS L A A EEEEE 22222
13623 // S L AAAAAAA E 2
13624 // S S L A A E 2
13625 // SSSSS LLLLLLL A A EEEEEEE 2222222
13626
13627
13628 // VIF THU 20 NOV 2025 22:20:08 ** SLAE2 ** DIAGNOSTICS PAGE 00417
13629
13630
13631 // VIF THU 20 NOV 2025 22:20:08 ** SLAE2 ** GENERATED CODE PAGE 00418
13632
13633 int_4 _slae2 (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ rt1_, real_4 _p_ rt2_)
13634 { // ** body not listed **
13675 }
13676
13677 // VIF THU 20 NOV 2025 22:20:08 ** SLAEV2 ** SLAEV2 PAGE 00419
13678
13679 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13680 // S S U U B B R R O O U U T I NN N E
13681 // S U U B B R R O O U U T I N N N E
13682 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13683 // S U U B B R R O O U U T I N N N E
13684 // S S U U B B R R O O U U T I N NN E
13685 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13686
13687 // SSSSS L A EEEEEEE V V 22222
13688 // S S L A A E V V 2 2
13689 // S L A A E V V 2
13690 // SSSSS L A A EEEEE V V 22222
13691 // S L AAAAAAA E V V 2
13692 // S S L A A E V V 2
13693 // SSSSS LLLLLLL A A EEEEEEE V 2222222
13694
13695
13696 // VIF THU 20 NOV 2025 22:20:08 ** SLAEV2 ** DIAGNOSTICS PAGE 00420
13697
13698
13699 // VIF THU 20 NOV 2025 22:20:08 ** SLAEV2 ** GENERATED CODE PAGE 00421
13700
13701 int_4 _slaev2 (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ rt1_, real_4 _p_ rt2_, real_4 _p_ cs1_, real_4
13702 _p_ sn1_)
13703 { // ** body not listed **
13780 }
13781
13782 // VIF THU 20 NOV 2025 22:20:08 ** SLAEXC ** SLAEXC PAGE 00423
13783
13784 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13785 // S S U U B B R R O O U U T I NN N E
13786 // S U U B B R R O O U U T I N N N E
13787 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13788 // S U U B B R R O O U U T I N N N E
13789 // S S U U B B R R O O U U T I N NN E
13790 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13791
13792 // SSSSS L A EEEEEEE X X CCCCC
13793 // S S L A A E X X C C
13794 // S L A A E X X C
13795 // SSSSS L A A EEEEE X C
13796 // S L AAAAAAA E X X C
13797 // S S L A A E X X C C
13798 // SSSSS LLLLLLL A A EEEEEEE X X CCCCC
13799
13800
13801 // VIF THU 20 NOV 2025 22:20:08 ** SLAEXC ** DIAGNOSTICS PAGE 00424
13802
13803
13804 // VIF THU 20 NOV 2025 22:20:08 ** SLAEXC ** GENERATED CODE PAGE 00425
13805
13806 int_4 _slaexc (logical_4 _p_ wantq_, int_4 _p_ n_, real_4 _p_ t_, int_4 _p_ ldt_, real_4 _p_ q_, int_4 _p_ ldq_, int_4
13807 _p_ j1_, int_4 _p_ n1_, int_4 _p_ n2_, real_4 _p_ work_, int_4 _p_ info_)
13808 { // ** body not listed **
13981 }
13982
13983 // VIF THU 20 NOV 2025 22:20:08 ** SLAGTM ** SLAGTM PAGE 00429
13984
13985 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13986 // S S U U B B R R O O U U T I NN N E
13987 // S U U B B R R O O U U T I N N N E
13988 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13989 // S U U B B R R O O U U T I N N N E
13990 // S S U U B B R R O O U U T I N NN E
13991 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13992
13993 // SSSSS L A GGGGG TTTTTTT M M
13994 // S S L A A G G T MM MM
13995 // S L A A G T M M M M
13996 // SSSSS L A A G GGGG T M M M
13997 // S L AAAAAAA G G T M M
13998 // S S L A A G G T M M
13999 // SSSSS LLLLLLL A A GGGGG T M M
14000
14001
14002 // VIF THU 20 NOV 2025 22:20:08 ** SLAGTM ** DIAGNOSTICS PAGE 00430
14003
14004
14005 // VIF THU 20 NOV 2025 22:20:08 ** SLAGTM ** GENERATED CODE PAGE 00431
14006
14007 int_4 _slagtm (char _p_ trans_, int_4 _p_ n_, int_4 _p_ nrhs_, real_4 _p_ alpha_, real_4 _p_ dl_, real_4 _p_ d_, real_4
14008 _p_ du_, real_4 _p_ x_, int_4 _p_ ldx_, real_4 _p_ beta_, real_4 _p_ b_, int_4 _p_ ldb_)
14009 { // ** body not listed **
14112 }
14113
14114 // VIF THU 20 NOV 2025 22:20:08 ** SLAHQR ** SLAHQR PAGE 00434
14115
14116 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14117 // S S U U B B R R O O U U T I NN N E
14118 // S U U B B R R O O U U T I N N N E
14119 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14120 // S U U B B R R O O U U T I N N N E
14121 // S S U U B B R R O O U U T I N NN E
14122 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14123
14124 // SSSSS L A H H QQQQQ RRRRRR
14125 // S S L A A H H Q Q R R
14126 // S L A A H H Q Q R R
14127 // SSSSS L A A HHHHHHH Q Q RRRRRR
14128 // S L AAAAAAA H H Q Q Q R R
14129 // S S L A A H H Q Q R R
14130 // SSSSS LLLLLLL A A H H QQQQ Q R R
14131
14132
14133 // VIF THU 20 NOV 2025 22:20:08 ** SLAHQR ** DIAGNOSTICS PAGE 00435
14134
14135
14136 // VIF THU 20 NOV 2025 22:20:08 ** SLAHQR ** GENERATED CODE PAGE 00436
14137
14138 int_4 _slahqr (logical_4 _p_ wantt_, logical_4 _p_ wantz_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_, real_4 _p_ h_,
14139 int_4 _p_ ldh_, real_4 _p_ wr_, real_4 _p_ wi_, int_4 _p_ iloz_, int_4 _p_ ihiz_, real_4 _p_ z_, int_4 _p_ ldz_, int_4
14140 _p_ info_)
14141 { // ** body not listed **
14342 }
14343
14344 // VIF THU 20 NOV 2025 22:20:08 ** SLALN2 ** SLALN2 PAGE 00440
14345
14346 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14347 // S S U U B B R R O O U U T I NN N E
14348 // S U U B B R R O O U U T I N N N E
14349 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14350 // S U U B B R R O O U U T I N N N E
14351 // S S U U B B R R O O U U T I N NN E
14352 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14353
14354 // SSSSS L A L N N 22222
14355 // S S L A A L NN N 2 2
14356 // S L A A L N N N 2
14357 // SSSSS L A A L N N N 22222
14358 // S L AAAAAAA L N N N 2
14359 // S S L A A L N NN 2
14360 // SSSSS LLLLLLL A A LLLLLLL N N 2222222
14361
14362
14363 // VIF THU 20 NOV 2025 22:20:08 ** SLALN2 ** DIAGNOSTICS PAGE 00441
14364
14365
14366 // VIF THU 20 NOV 2025 22:20:08 ** SLALN2 ** GENERATED CODE PAGE 00442
14367
14368 int_4 _slaln2 (logical_4 _p_ ltrans_, int_4 _p_ na_, int_4 _p_ nw_, real_4 _p_ smin_, real_4 _p_ ca_, real_4 _p_ a_,
14369 int_4 _p_ lda_, real_4 _p_ d1_, real_4 _p_ d2_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ wr_, real_4 _p_ wi_, real_4
14370 _p_ x_, int_4 _p_ ldx_, real_4 _p_ scale_, real_4 _p_ xnorm_, int_4 _p_ info_)
14371 { // ** body not listed **
14712 }
14713
14714 // VIF THU 20 NOV 2025 22:20:08 ** SLAMCH ** SLAMCH PAGE 00449
14715
14716 // RRRRRR EEEEEEE A L 4
14717 // R R E A A L * * 4 4
14718 // R R E A A L * * 4 4
14719 // RRRRRR EEEEE A A L ******* 4444444
14720 // R R E AAAAAAA L * * 4
14721 // R R E A A L * * 4
14722 // R R EEEEEEE A A LLLLLLL 4
14723
14724 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
14725 // F U U NN N C C T I O O NN N
14726 // F U U N N N C T I O O N N N
14727 // FFFFF U U N N N C T I O O N N N
14728 // F U U N N N C T I O O N N N
14729 // F U U N NN C C T I O O N NN
14730 // F UUUUU N N CCCCC T III OOOOO N N
14731
14732 // SSSSS L A M M CCCCC H H
14733 // S S L A A MM MM C C H H
14734 // S L A A M M M M C H H
14735 // SSSSS L A A M M M C HHHHHHH
14736 // S L AAAAAAA M M C H H
14737 // S S L A A M M C C H H
14738 // SSSSS LLLLLLL A A M M CCCCC H H
14739
14740
14741 // VIF THU 20 NOV 2025 22:20:08 ** SLAMCH ** DIAGNOSTICS PAGE 00450
14742
14743
14744 // VIF THU 20 NOV 2025 22:20:08 ** SLAMCH ** GENERATED CODE PAGE 00451
14745
14746 real_4 _slamch (char _p_ cmach_)
14747 { // ** body not listed **
14823 }
14824
14825 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC1 ** SLAMC1 PAGE 00453
14826
14827 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14828 // S S U U B B R R O O U U T I NN N E
14829 // S U U B B R R O O U U T I N N N E
14830 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14831 // S U U B B R R O O U U T I N N N E
14832 // S S U U B B R R O O U U T I N NN E
14833 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14834
14835 // SSSSS L A M M CCCCC 1
14836 // S S L A A MM MM C C 11
14837 // S L A A M M M M C 1 1
14838 // SSSSS L A A M M M C 1
14839 // S L AAAAAAA M M C 1
14840 // S S L A A M M C C 1
14841 // SSSSS LLLLLLL A A M M CCCCC 11111
14842
14843
14844 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC1 ** DIAGNOSTICS PAGE 00454
14845
14846
14847 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC1 ** GENERATED CODE PAGE 00455
14848
14849 int_4 _slamc1 (int_4 _p_ beta_, int_4 _p_ t_, logical_4 _p_ rnd_, logical_4 _p_ ieee1_)
14850 { // ** body not listed **
14929 }
14930
14931 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC2 ** SLAMC2 PAGE 00457
14932
14933 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14934 // S S U U B B R R O O U U T I NN N E
14935 // S U U B B R R O O U U T I N N N E
14936 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14937 // S U U B B R R O O U U T I N N N E
14938 // S S U U B B R R O O U U T I N NN E
14939 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14940
14941 // SSSSS L A M M CCCCC 22222
14942 // S S L A A MM MM C C 2 2
14943 // S L A A M M M M C 2
14944 // SSSSS L A A M M M C 22222
14945 // S L AAAAAAA M M C 2
14946 // S S L A A M M C C 2
14947 // SSSSS LLLLLLL A A M M CCCCC 2222222
14948
14949
14950 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC2 ** DIAGNOSTICS PAGE 00458
14951
14952
14953 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC2 ** GENERATED CODE PAGE 00459
14954
14955 int_4 _slamc2 (int_4 _p_ beta_, int_4 _p_ t_, logical_4 _p_ rnd_, real_4 _p_ eps_, int_4 _p_ emin_, real_4 _p_ rmin_,
14956 int_4 _p_ emax_, real_4 _p_ rmax_)
14957 { // ** body not listed **
15142 }
15143
15144 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC3 ** SLAMC3 PAGE 00463
15145
15146 // RRRRRR EEEEEEE A L 4
15147 // R R E A A L * * 4 4
15148 // R R E A A L * * 4 4
15149 // RRRRRR EEEEE A A L ******* 4444444
15150 // R R E AAAAAAA L * * 4
15151 // R R E A A L * * 4
15152 // R R EEEEEEE A A LLLLLLL 4
15153
15154 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
15155 // F U U NN N C C T I O O NN N
15156 // F U U N N N C T I O O N N N
15157 // FFFFF U U N N N C T I O O N N N
15158 // F U U N N N C T I O O N N N
15159 // F U U N NN C C T I O O N NN
15160 // F UUUUU N N CCCCC T III OOOOO N N
15161
15162 // SSSSS L A M M CCCCC 33333
15163 // S S L A A MM MM C C 3 3
15164 // S L A A M M M M C 3
15165 // SSSSS L A A M M M C 33333
15166 // S L AAAAAAA M M C 3
15167 // S S L A A M M C C 3 3
15168 // SSSSS LLLLLLL A A M M CCCCC 33333
15169
15170
15171 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC3 ** DIAGNOSTICS PAGE 00464
15172
15173
15174 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC3 ** GENERATED CODE PAGE 00465
15175
15176 real_4 _slamc3 (real_4 _p_ a_, real_4 _p_ b_)
15177 { // ** body not listed **
15182 }
15183
15184 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC4 ** SLAMC4 PAGE 00466
15185
15186 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15187 // S S U U B B R R O O U U T I NN N E
15188 // S U U B B R R O O U U T I N N N E
15189 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15190 // S U U B B R R O O U U T I N N N E
15191 // S S U U B B R R O O U U T I N NN E
15192 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15193
15194 // SSSSS L A M M CCCCC 4
15195 // S S L A A MM MM C C 4 4
15196 // S L A A M M M M C 4 4
15197 // SSSSS L A A M M M C 4444444
15198 // S L AAAAAAA M M C 4
15199 // S S L A A M M C C 4
15200 // SSSSS LLLLLLL A A M M CCCCC 4
15201
15202
15203 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC4 ** DIAGNOSTICS PAGE 00467
15204
15205
15206 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC4 ** GENERATED CODE PAGE 00468
15207
15208 int_4 _slamc4 (int_4 _p_ emin_, real_4 _p_ start_, int_4 _p_ base_)
15209 { // ** body not listed **
15243 }
15244
15245 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC5 ** SLAMC5 PAGE 00469
15246
15247 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15248 // S S U U B B R R O O U U T I NN N E
15249 // S U U B B R R O O U U T I N N N E
15250 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15251 // S U U B B R R O O U U T I N N N E
15252 // S S U U B B R R O O U U T I N NN E
15253 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15254
15255 // SSSSS L A M M CCCCC 5555555
15256 // S S L A A MM MM C C 5
15257 // S L A A M M M M C 5
15258 // SSSSS L A A M M M C 55555
15259 // S L AAAAAAA M M C 5
15260 // S S L A A M M C C 5 5
15261 // SSSSS LLLLLLL A A M M CCCCC 55555
15262
15263
15264 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC5 ** DIAGNOSTICS PAGE 00470
15265
15266
15267 // VIF THU 20 NOV 2025 22:20:08 ** SLAMC5 ** GENERATED CODE PAGE 00471
15268
15269 int_4 _slamc5 (int_4 _p_ beta_, int_4 _p_ p_, int_4 _p_ emin_, logical_4 _p_ ieee_, int_4 _p_ emax_, real_4 _p_ rmax_)
15270 { // ** body not listed **
15326 }
15327
15328 // VIF THU 20 NOV 2025 22:20:08 ** SLANGE ** SLANGE PAGE 00473
15329
15330 // RRRRRR EEEEEEE A L 4
15331 // R R E A A L * * 4 4
15332 // R R E A A L * * 4 4
15333 // RRRRRR EEEEE A A L ******* 4444444
15334 // R R E AAAAAAA L * * 4
15335 // R R E A A L * * 4
15336 // R R EEEEEEE A A LLLLLLL 4
15337
15338 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
15339 // F U U NN N C C T I O O NN N
15340 // F U U N N N C T I O O N N N
15341 // FFFFF U U N N N C T I O O N N N
15342 // F U U N N N C T I O O N N N
15343 // F U U N NN C C T I O O N NN
15344 // F UUUUU N N CCCCC T III OOOOO N N
15345
15346 // SSSSS L A N N GGGGG EEEEEEE
15347 // S S L A A NN N G G E
15348 // S L A A N N N G E
15349 // SSSSS L A A N N N G GGGG EEEEE
15350 // S L AAAAAAA N N N G G E
15351 // S S L A A N NN G G E
15352 // SSSSS LLLLLLL A A N N GGGGG EEEEEEE
15353
15354
15355 // VIF THU 20 NOV 2025 22:20:08 ** SLANGE ** DIAGNOSTICS PAGE 00474
15356
15357
15358 // VIF THU 20 NOV 2025 22:20:08 ** SLANGE ** GENERATED CODE PAGE 00475
15359
15360 real_4 _slange (char _p_ norm_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ work_)
15361 { // ** body not listed **
15418 }
15419
15420 // VIF THU 20 NOV 2025 22:20:08 ** SLANHS ** SLANHS PAGE 00477
15421
15422 // RRRRRR EEEEEEE A L 4
15423 // R R E A A L * * 4 4
15424 // R R E A A L * * 4 4
15425 // RRRRRR EEEEE A A L ******* 4444444
15426 // R R E AAAAAAA L * * 4
15427 // R R E A A L * * 4
15428 // R R EEEEEEE A A LLLLLLL 4
15429
15430 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
15431 // F U U NN N C C T I O O NN N
15432 // F U U N N N C T I O O N N N
15433 // FFFFF U U N N N C T I O O N N N
15434 // F U U N N N C T I O O N N N
15435 // F U U N NN C C T I O O N NN
15436 // F UUUUU N N CCCCC T III OOOOO N N
15437
15438 // SSSSS L A N N H H SSSSS
15439 // S S L A A NN N H H S S
15440 // S L A A N N N H H S
15441 // SSSSS L A A N N N HHHHHHH SSSSS
15442 // S L AAAAAAA N N N H H S
15443 // S S L A A N NN H H S S
15444 // SSSSS LLLLLLL A A N N H H SSSSS
15445
15446
15447 // VIF THU 20 NOV 2025 22:20:08 ** SLANHS ** DIAGNOSTICS PAGE 00478
15448
15449
15450 // VIF THU 20 NOV 2025 22:20:08 ** SLANHS ** GENERATED CODE PAGE 00479
15451
15452 real_4 _slanhs (char _p_ norm_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ work_)
15453 { // ** body not listed **
15511 }
15512
15513 // VIF THU 20 NOV 2025 22:20:08 ** SLANST ** SLANST PAGE 00481
15514
15515 // RRRRRR EEEEEEE A L 4
15516 // R R E A A L * * 4 4
15517 // R R E A A L * * 4 4
15518 // RRRRRR EEEEE A A L ******* 4444444
15519 // R R E AAAAAAA L * * 4
15520 // R R E A A L * * 4
15521 // R R EEEEEEE A A LLLLLLL 4
15522
15523 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
15524 // F U U NN N C C T I O O NN N
15525 // F U U N N N C T I O O N N N
15526 // FFFFF U U N N N C T I O O N N N
15527 // F U U N N N C T I O O N N N
15528 // F U U N NN C C T I O O N NN
15529 // F UUUUU N N CCCCC T III OOOOO N N
15530
15531 // SSSSS L A N N SSSSS TTTTTTT
15532 // S S L A A NN N S S T
15533 // S L A A N N N S T
15534 // SSSSS L A A N N N SSSSS T
15535 // S L AAAAAAA N N N S T
15536 // S S L A A N NN S S T
15537 // SSSSS LLLLLLL A A N N SSSSS T
15538
15539
15540 // VIF THU 20 NOV 2025 22:20:08 ** SLANST ** DIAGNOSTICS PAGE 00482
15541
15542
15543 // VIF THU 20 NOV 2025 22:20:08 ** SLANST ** GENERATED CODE PAGE 00483
15544
15545 real_4 _slanst (char _p_ norm_, int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_)
15546 { // ** body not listed **
15589 }
15590
15591 // VIF THU 20 NOV 2025 22:20:08 ** SLANV2 ** SLANV2 PAGE 00484
15592
15593 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15594 // S S U U B B R R O O U U T I NN N E
15595 // S U U B B R R O O U U T I N N N E
15596 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15597 // S U U B B R R O O U U T I N N N E
15598 // S S U U B B R R O O U U T I N NN E
15599 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15600
15601 // SSSSS L A N N V V 22222
15602 // S S L A A NN N V V 2 2
15603 // S L A A N N N V V 2
15604 // SSSSS L A A N N N V V 22222
15605 // S L AAAAAAA N N N V V 2
15606 // S S L A A N NN V V 2
15607 // SSSSS LLLLLLL A A N N V 2222222
15608
15609
15610 // VIF THU 20 NOV 2025 22:20:08 ** SLANV2 ** DIAGNOSTICS PAGE 00485
15611
15612
15613 // VIF THU 20 NOV 2025 22:20:08 ** SLANV2 ** GENERATED CODE PAGE 00486
15614
15615 int_4 _slanv2 (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ rt1r_, real_4 _p_ rt1i_, real_4
15616 _p_ rt2r_, real_4 _p_ rt2i_, real_4 _p_ cs_, real_4 _p_ sn_)
15617 { // ** body not listed **
15703 }
15704
15705 // VIF THU 20 NOV 2025 22:20:08 ** SLAPTM ** SLAPTM PAGE 00488
15706
15707 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15708 // S S U U B B R R O O U U T I NN N E
15709 // S U U B B R R O O U U T I N N N E
15710 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15711 // S U U B B R R O O U U T I N N N E
15712 // S S U U B B R R O O U U T I N NN E
15713 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15714
15715 // SSSSS L A PPPPPP TTTTTTT M M
15716 // S S L A A P P T MM MM
15717 // S L A A P P T M M M M
15718 // SSSSS L A A PPPPPP T M M M
15719 // S L AAAAAAA P T M M
15720 // S S L A A P T M M
15721 // SSSSS LLLLLLL A A P T M M
15722
15723
15724 // VIF THU 20 NOV 2025 22:20:08 ** SLAPTM ** DIAGNOSTICS PAGE 00489
15725
15726
15727 // VIF THU 20 NOV 2025 22:20:08 ** SLAPTM ** GENERATED CODE PAGE 00490
15728
15729 int_4 _slaptm (int_4 _p_ n_, int_4 _p_ nrhs_, real_4 _p_ alpha_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ x_, int_4 _p_
15730 ldx_, real_4 _p_ beta_, real_4 _p_ b_, int_4 _p_ ldb_)
15731 { // ** body not listed **
15791 }
15792
15793 // VIF THU 20 NOV 2025 22:20:08 ** SLAPY2 ** SLAPY2 PAGE 00492
15794
15795 // RRRRRR EEEEEEE A L 4
15796 // R R E A A L * * 4 4
15797 // R R E A A L * * 4 4
15798 // RRRRRR EEEEE A A L ******* 4444444
15799 // R R E AAAAAAA L * * 4
15800 // R R E A A L * * 4
15801 // R R EEEEEEE A A LLLLLLL 4
15802
15803 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
15804 // F U U NN N C C T I O O NN N
15805 // F U U N N N C T I O O N N N
15806 // FFFFF U U N N N C T I O O N N N
15807 // F U U N N N C T I O O N N N
15808 // F U U N NN C C T I O O N NN
15809 // F UUUUU N N CCCCC T III OOOOO N N
15810
15811 // SSSSS L A PPPPPP Y Y 22222
15812 // S S L A A P P Y Y 2 2
15813 // S L A A P P Y Y 2
15814 // SSSSS L A A PPPPPP Y 22222
15815 // S L AAAAAAA P Y 2
15816 // S S L A A P Y 2
15817 // SSSSS LLLLLLL A A P Y 2222222
15818
15819
15820 // VIF THU 20 NOV 2025 22:20:08 ** SLAPY2 ** DIAGNOSTICS PAGE 00493
15821
15822
15823 // VIF THU 20 NOV 2025 22:20:08 ** SLAPY2 ** GENERATED CODE PAGE 00494
15824
15825 real_4 _slapy2 (real_4 _p_ x_, real_4 _p_ y_)
15826 { // ** body not listed **
15846 }
15847
15848 // VIF THU 20 NOV 2025 22:20:08 ** SLAPY3 ** SLAPY3 PAGE 00495
15849
15850 // RRRRRR EEEEEEE A L 4
15851 // R R E A A L * * 4 4
15852 // R R E A A L * * 4 4
15853 // RRRRRR EEEEE A A L ******* 4444444
15854 // R R E AAAAAAA L * * 4
15855 // R R E A A L * * 4
15856 // R R EEEEEEE A A LLLLLLL 4
15857
15858 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
15859 // F U U NN N C C T I O O NN N
15860 // F U U N N N C T I O O N N N
15861 // FFFFF U U N N N C T I O O N N N
15862 // F U U N N N C T I O O N N N
15863 // F U U N NN C C T I O O N NN
15864 // F UUUUU N N CCCCC T III OOOOO N N
15865
15866 // SSSSS L A PPPPPP Y Y 33333
15867 // S S L A A P P Y Y 3 3
15868 // S L A A P P Y Y 3
15869 // SSSSS L A A PPPPPP Y 33333
15870 // S L AAAAAAA P Y 3
15871 // S S L A A P Y 3 3
15872 // SSSSS LLLLLLL A A P Y 33333
15873
15874
15875 // VIF THU 20 NOV 2025 22:20:08 ** SLAPY3 ** DIAGNOSTICS PAGE 00496
15876
15877
15878 // VIF THU 20 NOV 2025 22:20:08 ** SLAPY3 ** GENERATED CODE PAGE 00497
15879
15880 real_4 _slapy3 (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ z_)
15881 { // ** body not listed **
15901 }
15902
15903 // VIF THU 20 NOV 2025 22:20:08 ** SLARAN ** SLARAN PAGE 00498
15904
15905 // RRRRRR EEEEEEE A L 4
15906 // R R E A A L * * 4 4
15907 // R R E A A L * * 4 4
15908 // RRRRRR EEEEE A A L ******* 4444444
15909 // R R E AAAAAAA L * * 4
15910 // R R E A A L * * 4
15911 // R R EEEEEEE A A LLLLLLL 4
15912
15913 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
15914 // F U U NN N C C T I O O NN N
15915 // F U U N N N C T I O O N N N
15916 // FFFFF U U N N N C T I O O N N N
15917 // F U U N N N C T I O O N N N
15918 // F U U N NN C C T I O O N NN
15919 // F UUUUU N N CCCCC T III OOOOO N N
15920
15921 // SSSSS L A RRRRRR A N N
15922 // S S L A A R R A A NN N
15923 // S L A A R R A A N N N
15924 // SSSSS L A A RRRRRR A A N N N
15925 // S L AAAAAAA R R AAAAAAA N N N
15926 // S S L A A R R A A N NN
15927 // SSSSS LLLLLLL A A R R A A N N
15928
15929
15930 // VIF THU 20 NOV 2025 22:20:08 ** SLARAN ** DIAGNOSTICS PAGE 00499
15931
15932
15933 // VIF THU 20 NOV 2025 22:20:08 ** SLARAN ** GENERATED CODE PAGE 00500
15934
15935 real_4 _slaran (int_4 _p_ iseed_)
15936 { // ** body not listed **
15960 }
15961
15962 // VIF THU 20 NOV 2025 22:20:08 ** SLARF ** SLARF PAGE 00501
15963
15964 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15965 // S S U U B B R R O O U U T I NN N E
15966 // S U U B B R R O O U U T I N N N E
15967 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15968 // S U U B B R R O O U U T I N N N E
15969 // S S U U B B R R O O U U T I N NN E
15970 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15971
15972 // SSSSS L A RRRRRR FFFFFFF
15973 // S S L A A R R F
15974 // S L A A R R F
15975 // SSSSS L A A RRRRRR FFFFF
15976 // S L AAAAAAA R R F
15977 // S S L A A R R F
15978 // SSSSS LLLLLLL A A R R F
15979
15980
15981 // VIF THU 20 NOV 2025 22:20:08 ** SLARF ** DIAGNOSTICS PAGE 00502
15982
15983
15984 // VIF THU 20 NOV 2025 22:20:08 ** SLARF ** GENERATED CODE PAGE 00503
15985
15986 int_4 _slarf (char _p_ side_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ incv_, real_4 _p_ tau_, real_4 _p_
15987 c_, int_4 _p_ ldc_, real_4 _p_ work_)
15988 { // ** body not listed **
16007 }
16008
16009 // VIF THU 20 NOV 2025 22:20:08 ** SLARFG ** SLARFG PAGE 00504
16010
16011 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16012 // S S U U B B R R O O U U T I NN N E
16013 // S U U B B R R O O U U T I N N N E
16014 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16015 // S U U B B R R O O U U T I N N N E
16016 // S S U U B B R R O O U U T I N NN E
16017 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16018
16019 // SSSSS L A RRRRRR FFFFFFF GGGGG
16020 // S S L A A R R F G G
16021 // S L A A R R F G
16022 // SSSSS L A A RRRRRR FFFFF G GGGG
16023 // S L AAAAAAA R R F G G
16024 // S S L A A R R F G G
16025 // SSSSS LLLLLLL A A R R F GGGGG
16026
16027
16028 // VIF THU 20 NOV 2025 22:20:08 ** SLARFG ** DIAGNOSTICS PAGE 00505
16029
16030
16031 // VIF THU 20 NOV 2025 22:20:08 ** SLARFG ** GENERATED CODE PAGE 00506
16032
16033 int_4 _slarfg (int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ tau_)
16034 { // ** body not listed **
16085 }
16086
16087 // VIF THU 20 NOV 2025 22:20:08 ** SLARFX ** SLARFX PAGE 00508
16088
16089 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16090 // S S U U B B R R O O U U T I NN N E
16091 // S U U B B R R O O U U T I N N N E
16092 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16093 // S U U B B R R O O U U T I N N N E
16094 // S S U U B B R R O O U U T I N NN E
16095 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16096
16097 // SSSSS L A RRRRRR FFFFFFF X X
16098 // S S L A A R R F X X
16099 // S L A A R R F X X
16100 // SSSSS L A A RRRRRR FFFFF X
16101 // S L AAAAAAA R R F X X
16102 // S S L A A R R F X X
16103 // SSSSS LLLLLLL A A R R F X X
16104
16105
16106 // VIF THU 20 NOV 2025 22:20:08 ** SLARFX ** DIAGNOSTICS PAGE 00509
16107
16108
16109 // VIF THU 20 NOV 2025 22:20:08 ** SLARFX ** GENERATED CODE PAGE 00510
16110
16111 int_4 _slarfx (char _p_ side_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ v_, real_4 _p_ tau_, real_4 _p_ c_, int_4 _p_
16112 ldc_, real_4 _p_ work_)
16113 { // ** body not listed **
16640 }
16641
16642 // VIF THU 20 NOV 2025 22:20:08 ** SLARND ** SLARND PAGE 00521
16643
16644 // RRRRRR EEEEEEE A L 4
16645 // R R E A A L * * 4 4
16646 // R R E A A L * * 4 4
16647 // RRRRRR EEEEE A A L ******* 4444444
16648 // R R E AAAAAAA L * * 4
16649 // R R E A A L * * 4
16650 // R R EEEEEEE A A LLLLLLL 4
16651
16652 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
16653 // F U U NN N C C T I O O NN N
16654 // F U U N N N C T I O O N N N
16655 // FFFFF U U N N N C T I O O N N N
16656 // F U U N N N C T I O O N N N
16657 // F U U N NN C C T I O O N NN
16658 // F UUUUU N N CCCCC T III OOOOO N N
16659
16660 // SSSSS L A RRRRRR N N DDDDDD
16661 // S S L A A R R NN N D D
16662 // S L A A R R N N N D D
16663 // SSSSS L A A RRRRRR N N N D D
16664 // S L AAAAAAA R R N N N D D
16665 // S S L A A R R N NN D D
16666 // SSSSS LLLLLLL A A R R N N DDDDDD
16667
16668
16669 // VIF THU 20 NOV 2025 22:20:08 ** SLARND ** DIAGNOSTICS PAGE 00522
16670
16671
16672 // VIF THU 20 NOV 2025 22:20:08 ** SLARND ** GENERATED CODE PAGE 00523
16673
16674 real_4 _slarnd (int_4 _p_ idist_, int_4 _p_ iseed_)
16675 { // ** body not listed **
16694 }
16695
16696 // VIF THU 20 NOV 2025 22:20:08 ** SLARNV ** SLARNV PAGE 00524
16697
16698 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16699 // S S U U B B R R O O U U T I NN N E
16700 // S U U B B R R O O U U T I N N N E
16701 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16702 // S U U B B R R O O U U T I N N N E
16703 // S S U U B B R R O O U U T I N NN E
16704 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16705
16706 // SSSSS L A RRRRRR N N V V
16707 // S S L A A R R NN N V V
16708 // S L A A R R N N N V V
16709 // SSSSS L A A RRRRRR N N N V V
16710 // S L AAAAAAA R R N N N V V
16711 // S S L A A R R N NN V V
16712 // SSSSS LLLLLLL A A R R N N V
16713
16714
16715 // VIF THU 20 NOV 2025 22:20:08 ** SLARNV ** DIAGNOSTICS PAGE 00525
16716
16717
16718 // VIF THU 20 NOV 2025 22:20:08 ** SLARNV ** GENERATED CODE PAGE 00526
16719
16720 int_4 _slarnv (int_4 _p_ idist_, int_4 _p_ iseed_, int_4 _p_ n_, real_4 _p_ x_)
16721 { // ** body not listed **
16755 }
16756
16757 // VIF THU 20 NOV 2025 22:20:08 ** SLARTG ** SLARTG PAGE 00527
16758
16759 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16760 // S S U U B B R R O O U U T I NN N E
16761 // S U U B B R R O O U U T I N N N E
16762 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16763 // S U U B B R R O O U U T I N N N E
16764 // S S U U B B R R O O U U T I N NN E
16765 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16766
16767 // SSSSS L A RRRRRR TTTTTTT GGGGG
16768 // S S L A A R R T G G
16769 // S L A A R R T G
16770 // SSSSS L A A RRRRRR T G GGGG
16771 // S L AAAAAAA R R T G G
16772 // S S L A A R R T G G
16773 // SSSSS LLLLLLL A A R R T GGGGG
16774
16775
16776 // VIF THU 20 NOV 2025 22:20:08 ** SLARTG ** DIAGNOSTICS PAGE 00528
16777
16778
16779 // VIF THU 20 NOV 2025 22:20:08 ** SLARTG ** GENERATED CODE PAGE 00529
16780
16781 int_4 _slartg (real_4 _p_ f_, real_4 _p_ g_, real_4 _p_ cs_, real_4 _p_ sn_, real_4 _p_ r_)
16782 { // ** body not listed **
16874 }
16875
16876 // VIF THU 20 NOV 2025 22:20:08 ** SLARUV ** SLARUV PAGE 00531
16877
16878 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16879 // S S U U B B R R O O U U T I NN N E
16880 // S U U B B R R O O U U T I N N N E
16881 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16882 // S U U B B R R O O U U T I N N N E
16883 // S S U U B B R R O O U U T I N NN E
16884 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16885
16886 // SSSSS L A RRRRRR U U V V
16887 // S S L A A R R U U V V
16888 // S L A A R R U U V V
16889 // SSSSS L A A RRRRRR U U V V
16890 // S L AAAAAAA R R U U V V
16891 // S S L A A R R U U V V
16892 // SSSSS LLLLLLL A A R R UUUUU V
16893
16894
16895 // VIF THU 20 NOV 2025 22:20:08 ** SLARUV ** DIAGNOSTICS PAGE 00532
16896
16897
16898 // VIF THU 20 NOV 2025 22:20:08 ** SLARUV ** GENERATED CODE PAGE 00533
16899
16900 int_4 _slaruv (int_4 _p_ iseed_, int_4 _p_ n_, real_4 _p_ x_)
16901 { // ** body not listed **
19210 }
19211
19212 // VIF THU 20 NOV 2025 22:20:08 ** SLASCL ** SLASCL PAGE 00578
19213
19214 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19215 // S S U U B B R R O O U U T I NN N E
19216 // S U U B B R R O O U U T I N N N E
19217 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19218 // S U U B B R R O O U U T I N N N E
19219 // S S U U B B R R O O U U T I N NN E
19220 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19221
19222 // SSSSS L A SSSSS CCCCC L
19223 // S S L A A S S C C L
19224 // S L A A S C L
19225 // SSSSS L A A SSSSS C L
19226 // S L AAAAAAA S C L
19227 // S S L A A S S C C L
19228 // SSSSS LLLLLLL A A SSSSS CCCCC LLLLLLL
19229
19230
19231 // VIF THU 20 NOV 2025 22:20:08 ** SLASCL ** DIAGNOSTICS PAGE 00579
19232
19233
19234 // VIF THU 20 NOV 2025 22:20:08 ** SLASCL ** GENERATED CODE PAGE 00580
19235
19236 int_4 _slascl (char _p_ type_, int_4 _p_ kl_, int_4 _p_ ku_, real_4 _p_ cfrom_, real_4 _p_ cto_, int_4 _p_ m_, int_4
19237 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ info_)
19238 { // ** body not listed **
19397 }
19398
19399 // VIF THU 20 NOV 2025 22:20:08 ** SLASET ** SLASET PAGE 00584
19400
19401 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19402 // S S U U B B R R O O U U T I NN N E
19403 // S U U B B R R O O U U T I N N N E
19404 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19405 // S U U B B R R O O U U T I N N N E
19406 // S S U U B B R R O O U U T I N NN E
19407 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19408
19409 // SSSSS L A SSSSS EEEEEEE TTTTTTT
19410 // S S L A A S S E T
19411 // S L A A S E T
19412 // SSSSS L A A SSSSS EEEEE T
19413 // S L AAAAAAA S E T
19414 // S S L A A S S E T
19415 // SSSSS LLLLLLL A A SSSSS EEEEEEE T
19416
19417
19418 // VIF THU 20 NOV 2025 22:20:08 ** SLASET ** DIAGNOSTICS PAGE 00585
19419
19420
19421 // VIF THU 20 NOV 2025 22:20:08 ** SLASET ** GENERATED CODE PAGE 00586
19422
19423 int_4 _slaset (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ beta_, real_4 _p_ a_, int_4
19424 _p_ lda_)
19425 { // ** body not listed **
19455 }
19456
19457 // VIF THU 20 NOV 2025 22:20:08 ** SLASR ** SLASR PAGE 00587
19458
19459 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19460 // S S U U B B R R O O U U T I NN N E
19461 // S U U B B R R O O U U T I N N N E
19462 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19463 // S U U B B R R O O U U T I N N N E
19464 // S S U U B B R R O O U U T I N NN E
19465 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19466
19467 // SSSSS L A SSSSS RRRRRR
19468 // S S L A A S S R R
19469 // S L A A S R R
19470 // SSSSS L A A SSSSS RRRRRR
19471 // S L AAAAAAA S R R
19472 // S S L A A S S R R
19473 // SSSSS LLLLLLL A A SSSSS R R
19474
19475
19476 // VIF THU 20 NOV 2025 22:20:08 ** SLASR ** DIAGNOSTICS PAGE 00588
19477
19478
19479 // VIF THU 20 NOV 2025 22:20:08 ** SLASR ** GENERATED CODE PAGE 00589
19480
19481 int_4 _slasr (char _p_ side_, char _p_ pivot_, char _p_ direct_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ c_, real_4 _p_
19482 s_, real_4 _p_ a_, int_4 _p_ lda_)
19483 { // ** body not listed **
19698 }
19699
19700 // VIF THU 20 NOV 2025 22:20:08 ** SLASRT ** SLASRT PAGE 00594
19701
19702 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19703 // S S U U B B R R O O U U T I NN N E
19704 // S U U B B R R O O U U T I N N N E
19705 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19706 // S U U B B R R O O U U T I N N N E
19707 // S S U U B B R R O O U U T I N NN E
19708 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19709
19710 // SSSSS L A SSSSS RRRRRR TTTTTTT
19711 // S S L A A S S R R T
19712 // S L A A S R R T
19713 // SSSSS L A A SSSSS RRRRRR T
19714 // S L AAAAAAA S R R T
19715 // S S L A A S S R R T
19716 // SSSSS LLLLLLL A A SSSSS R R T
19717
19718
19719 // VIF THU 20 NOV 2025 22:20:08 ** SLASRT ** DIAGNOSTICS PAGE 00595
19720
19721
19722 // VIF THU 20 NOV 2025 22:20:08 ** SLASRT ** GENERATED CODE PAGE 00596
19723
19724 int_4 _slasrt (char _p_ id_, int_4 _p_ n_, real_4 _p_ d_, int_4 _p_ info_)
19725 { // ** body not listed **
19905 }
19906
19907 // VIF THU 20 NOV 2025 22:20:08 ** SLASSQ ** SLASSQ PAGE 00600
19908
19909 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19910 // S S U U B B R R O O U U T I NN N E
19911 // S U U B B R R O O U U T I N N N E
19912 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19913 // S U U B B R R O O U U T I N N N E
19914 // S S U U B B R R O O U U T I N NN E
19915 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19916
19917 // SSSSS L A SSSSS SSSSS QQQQQ
19918 // S S L A A S S S S Q Q
19919 // S L A A S S Q Q
19920 // SSSSS L A A SSSSS SSSSS Q Q
19921 // S L AAAAAAA S S Q Q Q
19922 // S S L A A S S S S Q Q
19923 // SSSSS LLLLLLL A A SSSSS SSSSS QQQQ Q
19924
19925
19926 // VIF THU 20 NOV 2025 22:20:08 ** SLASSQ ** DIAGNOSTICS PAGE 00601
19927
19928
19929 // VIF THU 20 NOV 2025 22:20:08 ** SLASSQ ** GENERATED CODE PAGE 00602
19930
19931 int_4 _slassq (int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ scale_, real_4 _p_ sumsq_)
19932 { // ** body not listed **
19954 }
19955
19956 // VIF THU 20 NOV 2025 22:20:08 ** SLASWP ** SLASWP PAGE 00603
19957
19958 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
19959 // S S U U B B R R O O U U T I NN N E
19960 // S U U B B R R O O U U T I N N N E
19961 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
19962 // S U U B B R R O O U U T I N N N E
19963 // S S U U B B R R O O U U T I N NN E
19964 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
19965
19966 // SSSSS L A SSSSS W W PPPPPP
19967 // S S L A A S S W W P P
19968 // S L A A S W W P P
19969 // SSSSS L A A SSSSS W W W PPPPPP
19970 // S L AAAAAAA S W W W P
19971 // S S L A A S S W W W P
19972 // SSSSS LLLLLLL A A SSSSS WW WW P
19973
19974
19975 // VIF THU 20 NOV 2025 22:20:08 ** SLASWP ** DIAGNOSTICS PAGE 00604
19976
19977
19978 // VIF THU 20 NOV 2025 22:20:08 ** SLASWP ** GENERATED CODE PAGE 00605
19979
19980 int_4 _slaswp (int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ k1_, int_4 _p_ k2_, int_4 _p_ ipiv_, int_4 _p_
19981 incx_)
19982 { // ** body not listed **
20023 }
20024
20025 // VIF THU 20 NOV 2025 22:20:08 ** SLASY2 ** SLASY2 PAGE 00606
20026
20027 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20028 // S S U U B B R R O O U U T I NN N E
20029 // S U U B B R R O O U U T I N N N E
20030 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20031 // S U U B B R R O O U U T I N N N E
20032 // S S U U B B R R O O U U T I N NN E
20033 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20034
20035 // SSSSS L A SSSSS Y Y 22222
20036 // S S L A A S S Y Y 2 2
20037 // S L A A S Y Y 2
20038 // SSSSS L A A SSSSS Y 22222
20039 // S L AAAAAAA S Y 2
20040 // S S L A A S S Y 2
20041 // SSSSS LLLLLLL A A SSSSS Y 2222222
20042
20043
20044 // VIF THU 20 NOV 2025 22:20:08 ** SLASY2 ** DIAGNOSTICS PAGE 00607
20045
20046
20047 // VIF THU 20 NOV 2025 22:20:08 ** SLASY2 ** GENERATED CODE PAGE 00608
20048
20049 int_4 _slasy2 (logical_4 _p_ ltranl_, logical_4 _p_ ltranr_, int_4 _p_ isgn_, int_4 _p_ n1_, int_4 _p_ n2_, real_4 _p_
20050 tl_, int_4 _p_ ldtl_, real_4 _p_ tr_, int_4 _p_ ldtr_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ scale_, real_4 _p_ x_,
20051 int_4 _p_ ldx_, real_4 _p_ xnorm_, int_4 _p_ info_)
20052 { // ** body not listed **
20380 }
20381
20382 // VIF THU 20 NOV 2025 22:20:08 ** SORM2R ** SORM2R PAGE 00615
20383
20384 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20385 // S S U U B B R R O O U U T I NN N E
20386 // S U U B B R R O O U U T I N N N E
20387 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20388 // S U U B B R R O O U U T I N N N E
20389 // S S U U B B R R O O U U T I N NN E
20390 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20391
20392 // SSSSS OOOOO RRRRRR M M 22222 RRRRRR
20393 // S S O O R R MM MM 2 2 R R
20394 // S O O R R M M M M 2 R R
20395 // SSSSS O O RRRRRR M M M 22222 RRRRRR
20396 // S O O R R M M 2 R R
20397 // S S O O R R M M 2 R R
20398 // SSSSS OOOOO R R M M 2222222 R R
20399
20400
20401 // VIF THU 20 NOV 2025 22:20:08 ** SORM2R ** DIAGNOSTICS PAGE 00616
20402
20403
20404 // VIF THU 20 NOV 2025 22:20:08 ** SORM2R ** GENERATED CODE PAGE 00617
20405
20406 int_4 _sorm2r (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ a_, int_4 _p_ lda_
20407 , real_4 _p_ tau_, real_4 _p_ c_, int_4 _p_ ldc_, real_4 _p_ work_, int_4 _p_ info_)
20408 { // ** body not listed **
20491 }
20492
20493 // VIF THU 20 NOV 2025 22:20:08 ** SPTTRF ** SPTTRF PAGE 00619
20494
20495 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20496 // S S U U B B R R O O U U T I NN N E
20497 // S U U B B R R O O U U T I N N N E
20498 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20499 // S U U B B R R O O U U T I N N N E
20500 // S S U U B B R R O O U U T I N NN E
20501 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20502
20503 // SSSSS PPPPPP TTTTTTT TTTTTTT RRRRRR FFFFFFF
20504 // S S P P T T R R F
20505 // S P P T T R R F
20506 // SSSSS PPPPPP T T RRRRRR FFFFF
20507 // S P T T R R F
20508 // S S P T T R R F
20509 // SSSSS P T T R R F
20510
20511
20512 // VIF THU 20 NOV 2025 22:20:08 ** SPTTRF ** DIAGNOSTICS PAGE 00620
20513
20514
20515 // VIF THU 20 NOV 2025 22:20:08 ** SPTTRF ** GENERATED CODE PAGE 00621
20516
20517 int_4 _spttrf (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_, int_4 _p_ info_)
20518 { // ** body not listed **
20551 }
20552
20553 // VIF THU 20 NOV 2025 22:20:08 ** SPTTRS ** SPTTRS PAGE 00622
20554
20555 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20556 // S S U U B B R R O O U U T I NN N E
20557 // S U U B B R R O O U U T I N N N E
20558 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20559 // S U U B B R R O O U U T I N N N E
20560 // S S U U B B R R O O U U T I N NN E
20561 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20562
20563 // SSSSS PPPPPP TTTTTTT TTTTTTT RRRRRR SSSSS
20564 // S S P P T T R R S S
20565 // S P P T T R R S
20566 // SSSSS PPPPPP T T RRRRRR SSSSS
20567 // S P T T R R S
20568 // S S P T T R R S S
20569 // SSSSS P T T R R SSSSS
20570
20571
20572 // VIF THU 20 NOV 2025 22:20:08 ** SPTTRS ** DIAGNOSTICS PAGE 00623
20573
20574
20575 // VIF THU 20 NOV 2025 22:20:08 ** SPTTRS ** GENERATED CODE PAGE 00624
20576
20577 int_4 _spttrs (int_4 _p_ n_, int_4 _p_ nrhs_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ b_, int_4 _p_ ldb_, int_4 _p_
20578 info_)
20579 { // ** body not listed **
20615 }
20616
20617 // VIF THU 20 NOV 2025 22:20:08 ** SSTEQR ** SSTEQR PAGE 00625
20618
20619 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20620 // S S U U B B R R O O U U T I NN N E
20621 // S U U B B R R O O U U T I N N N E
20622 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20623 // S U U B B R R O O U U T I N N N E
20624 // S S U U B B R R O O U U T I N NN E
20625 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20626
20627 // SSSSS SSSSS TTTTTTT EEEEEEE QQQQQ RRRRRR
20628 // S S S S T E Q Q R R
20629 // S S T E Q Q R R
20630 // SSSSS SSSSS T EEEEE Q Q RRRRRR
20631 // S S T E Q Q Q R R
20632 // S S S S T E Q Q R R
20633 // SSSSS SSSSS T EEEEEEE QQQQ Q R R
20634
20635
20636 // VIF THU 20 NOV 2025 22:20:08 ** SSTEQR ** DIAGNOSTICS PAGE 00626
20637
20638
20639 // VIF THU 20 NOV 2025 22:20:08 ** SSTEQR ** GENERATED CODE PAGE 00627
20640
20641 int_4 _ssteqr (char _p_ compz_, int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ z_, int_4 _p_ ldz_, real_4 _p_
20642 work_, int_4 _p_ info_)
20643 { // ** body not listed **
20980 }
20981
20982 // VIF THU 20 NOV 2025 22:20:08 ** STREVC ** STREVC PAGE 00634
20983
20984 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
20985 // S S U U B B R R O O U U T I NN N E
20986 // S U U B B R R O O U U T I N N N E
20987 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
20988 // S U U B B R R O O U U T I N N N E
20989 // S S U U B B R R O O U U T I N NN E
20990 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
20991
20992 // SSSSS TTTTTTT RRRRRR EEEEEEE V V CCCCC
20993 // S S T R R E V V C C
20994 // S T R R E V V C
20995 // SSSSS T RRRRRR EEEEE V V C
20996 // S T R R E V V C
20997 // S S T R R E V V C C
20998 // SSSSS T R R EEEEEEE V CCCCC
20999
21000
21001 // VIF THU 20 NOV 2025 22:20:08 ** STREVC ** DIAGNOSTICS PAGE 00635
21002
21003
21004 // VIF THU 20 NOV 2025 22:20:08 ** STREVC ** GENERATED CODE PAGE 00636
21005
21006 int_4 _strevc (char _p_ side_, char _p_ howmny_, logical_4 _p_ select_, int_4 _p_ n_, real_4 _p_ t_, int_4 _p_ ldt_,
21007 real_4 _p_ vl_, int_4 _p_ ldvl_, real_4 _p_ vr_, int_4 _p_ ldvr_, int_4 _p_ mm_, int_4 _p_ m_, real_4 _p_ work_, int_4
21008 _p_ info_)
21009 { // ** body not listed **
21647 }
21648
21649 // VIF THU 20 NOV 2025 22:20:08 ** STREXC ** STREXC PAGE 00649
21650
21651 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
21652 // S S U U B B R R O O U U T I NN N E
21653 // S U U B B R R O O U U T I N N N E
21654 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
21655 // S U U B B R R O O U U T I N N N E
21656 // S S U U B B R R O O U U T I N NN E
21657 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
21658
21659 // SSSSS TTTTTTT RRRRRR EEEEEEE X X CCCCC
21660 // S S T R R E X X C C
21661 // S T R R E X X C
21662 // SSSSS T RRRRRR EEEEE X C
21663 // S T R R E X X C
21664 // S S T R R E X X C C
21665 // SSSSS T R R EEEEEEE X X CCCCC
21666
21667
21668 // VIF THU 20 NOV 2025 22:20:08 ** STREXC ** DIAGNOSTICS PAGE 00650
21669
21670
21671 // VIF THU 20 NOV 2025 22:20:08 ** STREXC ** GENERATED CODE PAGE 00651
21672
21673 int_4 _strexc (char _p_ compq_, int_4 _p_ n_, real_4 _p_ t_, int_4 _p_ ldt_, real_4 _p_ q_, int_4 _p_ ldq_, int_4 _p_
21674 ifst_, int_4 _p_ ilst_, real_4 _p_ work_, int_4 _p_ info_)
21675 { // ** body not listed **
21872 }
21873
21874 // VIF THU 20 NOV 2025 22:20:08 ** STRSEN ** STRSEN PAGE 00655
21875
21876 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
21877 // S S U U B B R R O O U U T I NN N E
21878 // S U U B B R R O O U U T I N N N E
21879 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
21880 // S U U B B R R O O U U T I N N N E
21881 // S S U U B B R R O O U U T I N NN E
21882 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
21883
21884 // SSSSS TTTTTTT RRRRRR SSSSS EEEEEEE N N
21885 // S S T R R S S E NN N
21886 // S T R R S E N N N
21887 // SSSSS T RRRRRR SSSSS EEEEE N N N
21888 // S T R R S E N N N
21889 // S S T R R S S E N NN
21890 // SSSSS T R R SSSSS EEEEEEE N N
21891
21892
21893 // VIF THU 20 NOV 2025 22:20:08 ** STRSEN ** DIAGNOSTICS PAGE 00656
21894
21895
21896 // VIF THU 20 NOV 2025 22:20:08 ** STRSEN ** GENERATED CODE PAGE 00657
21897
21898 int_4 _strsen (char _p_ job_, char _p_ compq_, logical_4 _p_ select_, int_4 _p_ n_, real_4 _p_ t_, int_4 _p_ ldt_,
21899 real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ wr_, real_4 _p_ wi_, int_4 _p_ m_, real_4 _p_ s_, real_4 _p_ sep_, real_4 _p_
21900 work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_)
21901 { // ** body not listed **
22070 }
22071
22072 // VIF THU 20 NOV 2025 22:20:08 ** STRSYL ** STRSYL PAGE 00661
22073
22074 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22075 // S S U U B B R R O O U U T I NN N E
22076 // S U U B B R R O O U U T I N N N E
22077 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22078 // S U U B B R R O O U U T I N N N E
22079 // S S U U B B R R O O U U T I N NN E
22080 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22081
22082 // SSSSS TTTTTTT RRRRRR SSSSS Y Y L
22083 // S S T R R S S Y Y L
22084 // S T R R S Y Y L
22085 // SSSSS T RRRRRR SSSSS Y L
22086 // S T R R S Y L
22087 // S S T R R S S Y L
22088 // SSSSS T R R SSSSS Y LLLLLLL
22089
22090
22091 // VIF THU 20 NOV 2025 22:20:08 ** STRSYL ** DIAGNOSTICS PAGE 00662
22092
22093
22094 // VIF THU 20 NOV 2025 22:20:08 ** STRSYL ** GENERATED CODE PAGE 00663
22095
22096 int_4 _strsyl (char _p_ trana_, char _p_ tranb_, int_4 _p_ isgn_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_
22097 lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ c_, int_4 _p_ ldc_, real_4 _p_ scale_, int_4 _p_ info_)
22098 { // ** body not listed **
22864 }
22865
22866 // VIF THU 20 NOV 2025 22:20:08 ** XLAENV ** XLAENV PAGE 00678
22867
22868 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22869 // S S U U B B R R O O U U T I NN N E
22870 // S U U B B R R O O U U T I N N N E
22871 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22872 // S U U B B R R O O U U T I N N N E
22873 // S S U U B B R R O O U U T I N NN E
22874 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22875
22876 // X X L A EEEEEEE N N V V
22877 // X X L A A E NN N V V
22878 // X X L A A E N N N V V
22879 // X L A A EEEEE N N N V V
22880 // X X L AAAAAAA E N N N V V
22881 // X X L A A E N NN V V
22882 // X X LLLLLLL A A EEEEEEE N N V
22883
22884
22885 // VIF THU 20 NOV 2025 22:20:08 ** XLAENV ** DIAGNOSTICS PAGE 00679
22886
22887
22888 // VIF THU 20 NOV 2025 22:20:08 ** XLAENV ** GENERATED CODE PAGE 00680
22889
22890 int_4 _xlaenv (int_4 _p_ ispec_, int_4 _p_ nvalue_)
22891 { // ** body not listed **
22897 }
22898
22899 // VIF THU 20 NOV 2025 22:20:08 ** ZGBTF2 ** ZGBTF2 PAGE 00681
22900
22901 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
22902 // S S U U B B R R O O U U T I NN N E
22903 // S U U B B R R O O U U T I N N N E
22904 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
22905 // S U U B B R R O O U U T I N N N E
22906 // S S U U B B R R O O U U T I N NN E
22907 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
22908
22909 // ZZZZZZZ GGGGG BBBBBB TTTTTTT FFFFFFF 22222
22910 // Z G G B B T F 2 2
22911 // Z G B B T F 2
22912 // Z G GGGG BBBBBB T FFFFF 22222
22913 // Z G G B B T F 2
22914 // * G G B B T F 2
22915 // ZZZZZZZ GGGGG BBBBBB T F 2222222
22916
22917
22918 // VIF THU 20 NOV 2025 22:20:08 ** ZGBTF2 ** DIAGNOSTICS PAGE 00682
22919
22920
22921 // VIF THU 20 NOV 2025 22:20:08 ** ZGBTF2 ** GENERATED CODE PAGE 00683
22922
22923 int_4 _zgbtf2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, complex_16 _p_ ab_, int_4 _p_ ldab_, int_4 _p_
22924 ipiv_, int_4 _p_ info_)
22925 { // ** body not listed **
23002 }
23003
23004 // VIF THU 20 NOV 2025 22:20:08 ** ZGBTRF ** ZGBTRF PAGE 00685
23005
23006 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23007 // S S U U B B R R O O U U T I NN N E
23008 // S U U B B R R O O U U T I N N N E
23009 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23010 // S U U B B R R O O U U T I N N N E
23011 // S S U U B B R R O O U U T I N NN E
23012 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23013
23014 // ZZZZZZZ GGGGG BBBBBB TTTTTTT RRRRRR FFFFFFF
23015 // Z G G B B T R R F
23016 // Z G B B T R R F
23017 // Z G GGGG BBBBBB T RRRRRR FFFFF
23018 // Z G G B B T R R F
23019 // * G G B B T R R F
23020 // ZZZZZZZ GGGGG BBBBBB T R R F
23021
23022
23023 // VIF THU 20 NOV 2025 22:20:08 ** ZGBTRF ** DIAGNOSTICS PAGE 00686
23024
23025
23026 // VIF THU 20 NOV 2025 22:20:08 ** ZGBTRF ** GENERATED CODE PAGE 00687
23027
23028 int_4 _zgbtrf (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, complex_16 _p_ ab_, int_4 _p_ ldab_, int_4 _p_
23029 ipiv_, int_4 _p_ info_)
23030 { // ** body not listed **
23237 }
23238
23239 // VIF THU 20 NOV 2025 22:20:08 ** ZGBTRS ** ZGBTRS PAGE 00692
23240
23241 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23242 // S S U U B B R R O O U U T I NN N E
23243 // S U U B B R R O O U U T I N N N E
23244 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23245 // S U U B B R R O O U U T I N N N E
23246 // S S U U B B R R O O U U T I N NN E
23247 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23248
23249 // ZZZZZZZ GGGGG BBBBBB TTTTTTT RRRRRR SSSSS
23250 // Z G G B B T R R S S
23251 // Z G B B T R R S
23252 // Z G GGGG BBBBBB T RRRRRR SSSSS
23253 // Z G G B B T R R S
23254 // * G G B B T R R S S
23255 // ZZZZZZZ GGGGG BBBBBB T R R SSSSS
23256
23257
23258 // VIF THU 20 NOV 2025 22:20:08 ** ZGBTRS ** DIAGNOSTICS PAGE 00693
23259
23260
23261 // VIF THU 20 NOV 2025 22:20:08 ** ZGBTRS ** GENERATED CODE PAGE 00694
23262
23263 int_4 _zgbtrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, int_4 _p_ nrhs_, complex_16 _p_ ab_, int_4
23264 _p_ ldab_, int_4 _p_ ipiv_, complex_16 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_)
23265 { // ** body not listed **
23372 }
23373
23374 // VIF THU 20 NOV 2025 22:20:08 ** ZGEQR2 ** ZGEQR2 PAGE 00697
23375
23376 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23377 // S S U U B B R R O O U U T I NN N E
23378 // S U U B B R R O O U U T I N N N E
23379 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23380 // S U U B B R R O O U U T I N N N E
23381 // S S U U B B R R O O U U T I N NN E
23382 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23383
23384 // ZZZZZZZ GGGGG EEEEEEE QQQQQ RRRRRR 22222
23385 // Z G G E Q Q R R 2 2
23386 // Z G E Q Q R R 2
23387 // Z G GGGG EEEEE Q Q RRRRRR 22222
23388 // Z G G E Q Q Q R R 2
23389 // * G G E Q Q R R 2
23390 // ZZZZZZZ GGGGG EEEEEEE QQQQ Q R R 2222222
23391
23392
23393 // VIF THU 20 NOV 2025 22:20:08 ** ZGEQR2 ** DIAGNOSTICS PAGE 00698
23394
23395
23396 // VIF THU 20 NOV 2025 22:20:08 ** ZGEQR2 ** GENERATED CODE PAGE 00699
23397
23398 int_4 _zgeqr2 (int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ tau_, complex_16 _p_ work_
23399 , int_4 _p_ info_)
23400 { // ** body not listed **
23439 }
23440
23441 // VIF THU 20 NOV 2025 22:20:08 ** ZGTTRF ** ZGTTRF PAGE 00700
23442
23443 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23444 // S S U U B B R R O O U U T I NN N E
23445 // S U U B B R R O O U U T I N N N E
23446 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23447 // S U U B B R R O O U U T I N N N E
23448 // S S U U B B R R O O U U T I N NN E
23449 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23450
23451 // ZZZZZZZ GGGGG TTTTTTT TTTTTTT RRRRRR FFFFFFF
23452 // Z G G T T R R F
23453 // Z G T T R R F
23454 // Z G GGGG T T RRRRRR FFFFF
23455 // Z G G T T R R F
23456 // * G G T T R R F
23457 // ZZZZZZZ GGGGG T T R R F
23458
23459
23460 // VIF THU 20 NOV 2025 22:20:08 ** ZGTTRF ** DIAGNOSTICS PAGE 00701
23461
23462
23463 // VIF THU 20 NOV 2025 22:20:08 ** ZGTTRF ** GENERATED CODE PAGE 00702
23464
23465 int_4 _zgttrf (int_4 _p_ n_, complex_16 _p_ dl_, complex_16 _p_ d_, complex_16 _p_ du_, complex_16 _p_ du2_, int_4 _p_
23466 ipiv_, int_4 _p_ info_)
23467 { // ** body not listed **
23528 }
23529
23530 // VIF THU 20 NOV 2025 22:20:08 ** ZGTTRS ** ZGTTRS PAGE 00704
23531
23532 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23533 // S S U U B B R R O O U U T I NN N E
23534 // S U U B B R R O O U U T I N N N E
23535 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23536 // S U U B B R R O O U U T I N N N E
23537 // S S U U B B R R O O U U T I N NN E
23538 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23539
23540 // ZZZZZZZ GGGGG TTTTTTT TTTTTTT RRRRRR SSSSS
23541 // Z G G T T R R S S
23542 // Z G T T R R S
23543 // Z G GGGG T T RRRRRR SSSSS
23544 // Z G G T T R R S
23545 // * G G T T R R S S
23546 // ZZZZZZZ GGGGG T T R R SSSSS
23547
23548
23549 // VIF THU 20 NOV 2025 22:20:08 ** ZGTTRS ** DIAGNOSTICS PAGE 00705
23550
23551
23552 // VIF THU 20 NOV 2025 22:20:08 ** ZGTTRS ** GENERATED CODE PAGE 00706
23553
23554 int_4 _zgttrs (char _p_ trans_, int_4 _p_ n_, int_4 _p_ nrhs_, complex_16 _p_ dl_, complex_16 _p_ d_, complex_16 _p_
23555 du_, complex_16 _p_ du2_, int_4 _p_ ipiv_, complex_16 _p_ b_, int_4 _p_ ldb_, int_4 _p_ info_)
23556 { // ** body not listed **
23666 }
23667
23668 // VIF THU 20 NOV 2025 22:20:08 ** ZLACGV ** ZLACGV PAGE 00709
23669
23670 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23671 // S S U U B B R R O O U U T I NN N E
23672 // S U U B B R R O O U U T I N N N E
23673 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23674 // S U U B B R R O O U U T I N N N E
23675 // S S U U B B R R O O U U T I N NN E
23676 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23677
23678 // ZZZZZZZ L A CCCCC GGGGG V V
23679 // Z L A A C C G G V V
23680 // Z L A A C G V V
23681 // Z L A A C G GGGG V V
23682 // Z L AAAAAAA C G G V V
23683 // * L A A C C G G V V
23684 // ZZZZZZZ LLLLLLL A A CCCCC GGGGG V
23685
23686
23687 // VIF THU 20 NOV 2025 22:20:08 ** ZLACGV ** DIAGNOSTICS PAGE 00710
23688
23689
23690 // VIF THU 20 NOV 2025 22:20:08 ** ZLACGV ** GENERATED CODE PAGE 00711
23691
23692 int_4 _zlacgv (int_4 _p_ n_, complex_16 _p_ x_, int_4 _p_ incx_)
23693 { // ** body not listed **
23714 }
23715
23716 // VIF THU 20 NOV 2025 22:20:08 ** ZLACON ** ZLACON PAGE 00712
23717
23718 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23719 // S S U U B B R R O O U U T I NN N E
23720 // S U U B B R R O O U U T I N N N E
23721 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23722 // S U U B B R R O O U U T I N N N E
23723 // S S U U B B R R O O U U T I N NN E
23724 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23725
23726 // ZZZZZZZ L A CCCCC OOOOO N N
23727 // Z L A A C C O O NN N
23728 // Z L A A C O O N N N
23729 // Z L A A C O O N N N
23730 // Z L AAAAAAA C O O N N N
23731 // * L A A C C O O N NN
23732 // ZZZZZZZ LLLLLLL A A CCCCC OOOOO N N
23733
23734
23735 // VIF THU 20 NOV 2025 22:20:08 ** ZLACON ** DIAGNOSTICS PAGE 00713
23736
23737
23738 // VIF THU 20 NOV 2025 22:20:08 ** ZLACON ** GENERATED CODE PAGE 00714
23739
23740 int_4 _zlacon (int_4 _p_ n_, complex_16 _p_ v_, complex_16 _p_ x_, real_8 _p_ est_, int_4 _p_ kase_)
23741 { // ** body not listed **
23844 }
23845
23846 // VIF THU 20 NOV 2025 22:20:08 ** ZLACPY ** ZLACPY PAGE 00717
23847
23848 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23849 // S S U U B B R R O O U U T I NN N E
23850 // S U U B B R R O O U U T I N N N E
23851 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23852 // S U U B B R R O O U U T I N N N E
23853 // S S U U B B R R O O U U T I N NN E
23854 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23855
23856 // ZZZZZZZ L A CCCCC PPPPPP Y Y
23857 // Z L A A C C P P Y Y
23858 // Z L A A C P P Y Y
23859 // Z L A A C PPPPPP Y
23860 // Z L AAAAAAA C P Y
23861 // * L A A C C P Y
23862 // ZZZZZZZ LLLLLLL A A CCCCC P Y
23863
23864
23865 // VIF THU 20 NOV 2025 22:20:08 ** ZLACPY ** DIAGNOSTICS PAGE 00718
23866
23867
23868 // VIF THU 20 NOV 2025 22:20:08 ** ZLACPY ** GENERATED CODE PAGE 00719
23869
23870 int_4 _zlacpy (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4
23871 _p_ ldb_)
23872 { // ** body not listed **
23899 }
23900
23901 // VIF THU 20 NOV 2025 22:20:08 ** ZLADIV ** ZLADIV PAGE 00720
23902
23903 // CCCCC OOOOO M M PPPPPP L EEEEEEE X X 1 66666
23904 // C C O O MM MM P P L E X X * * 11 6 6
23905 // C O O M M M M P P L E X X * * 1 1 6
23906 // C O O M M M PPPPPP L EEEEE X ******* 1 666666
23907 // C O O M M P L E X X * * 1 6 6
23908 // C C O O M M P L E X X * * 1 6 6
23909 // CCCCC OOOOO M M P LLLLLLL EEEEEEE X X 11111 66666
23910
23911 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
23912 // F U U NN N C C T I O O NN N
23913 // F U U N N N C T I O O N N N
23914 // FFFFF U U N N N C T I O O N N N
23915 // F U U N N N C T I O O N N N
23916 // F U U N NN C C T I O O N NN
23917 // F UUUUU N N CCCCC T III OOOOO N N
23918
23919 // ZZZZZZZ L A DDDDDD III V V
23920 // Z L A A D D I V V
23921 // Z L A A D D I V V
23922 // Z L A A D D I V V
23923 // Z L AAAAAAA D D I V V
23924 // * L A A D D I V V
23925 // ZZZZZZZ LLLLLLL A A DDDDDD III V
23926
23927
23928 // VIF THU 20 NOV 2025 22:20:08 ** ZLADIV ** DIAGNOSTICS PAGE 00721
23929
23930
23931 // VIF THU 20 NOV 2025 22:20:08 ** ZLADIV ** GENERATED CODE PAGE 00722
23932
23933 complex_16 _zladiv (complex_16 _p_ x_, complex_16 _p_ y_)
23934 { // ** body not listed **
23946 }
23947
23948 // VIF THU 20 NOV 2025 22:20:08 ** ZLAHQR ** ZLAHQR PAGE 00723
23949
23950 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
23951 // S S U U B B R R O O U U T I NN N E
23952 // S U U B B R R O O U U T I N N N E
23953 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
23954 // S U U B B R R O O U U T I N N N E
23955 // S S U U B B R R O O U U T I N NN E
23956 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
23957
23958 // ZZZZZZZ L A H H QQQQQ RRRRRR
23959 // Z L A A H H Q Q R R
23960 // Z L A A H H Q Q R R
23961 // Z L A A HHHHHHH Q Q RRRRRR
23962 // Z L AAAAAAA H H Q Q Q R R
23963 // * L A A H H Q Q R R
23964 // ZZZZZZZ LLLLLLL A A H H QQQQ Q R R
23965
23966
23967 // VIF THU 20 NOV 2025 22:20:08 ** ZLAHQR ** DIAGNOSTICS PAGE 00724
23968
23969
23970 // VIF THU 20 NOV 2025 22:20:08 ** ZLAHQR ** GENERATED CODE PAGE 00725
23971
23972 int_4 _zlahqr (logical_4 _p_ wantt_, logical_4 _p_ wantz_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_, complex_16 _p_
23973 h_, int_4 _p_ ldh_, complex_16 _p_ w_, int_4 _p_ iloz_, int_4 _p_ ihiz_, complex_16 _p_ z_, int_4 _p_ ldz_, int_4 _p_
23974 info_)
23975 { // ** body not listed **
24163 }
24164
24165 // VIF THU 20 NOV 2025 22:20:08 ** ZLANGE ** ZLANGE PAGE 00729
24166
24167 // RRRRRR EEEEEEE A L 88888
24168 // R R E A A L * * 8 8
24169 // R R E A A L * * 8 8
24170 // RRRRRR EEEEE A A L ******* 88888
24171 // R R E AAAAAAA L * * 8 8
24172 // R R E A A L * * 8 8
24173 // R R EEEEEEE A A LLLLLLL 88888
24174
24175 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
24176 // F U U NN N C C T I O O NN N
24177 // F U U N N N C T I O O N N N
24178 // FFFFF U U N N N C T I O O N N N
24179 // F U U N N N C T I O O N N N
24180 // F U U N NN C C T I O O N NN
24181 // F UUUUU N N CCCCC T III OOOOO N N
24182
24183 // ZZZZZZZ L A N N GGGGG EEEEEEE
24184 // Z L A A NN N G G E
24185 // Z L A A N N N G E
24186 // Z L A A N N N G GGGG EEEEE
24187 // Z L AAAAAAA N N N G G E
24188 // * L A A N NN G G E
24189 // ZZZZZZZ LLLLLLL A A N N GGGGG EEEEEEE
24190
24191
24192 // VIF THU 20 NOV 2025 22:20:08 ** ZLANGE ** DIAGNOSTICS PAGE 00730
24193
24194
24195 // VIF THU 20 NOV 2025 22:20:08 ** ZLANGE ** GENERATED CODE PAGE 00731
24196
24197 real_8 _zlange (char _p_ norm_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, real_8 _p_ work_)
24198 { // ** body not listed **
24255 }
24256
24257 // VIF THU 20 NOV 2025 22:20:08 ** ZLANHS ** ZLANHS PAGE 00733
24258
24259 // RRRRRR EEEEEEE A L 88888
24260 // R R E A A L * * 8 8
24261 // R R E A A L * * 8 8
24262 // RRRRRR EEEEE A A L ******* 88888
24263 // R R E AAAAAAA L * * 8 8
24264 // R R E A A L * * 8 8
24265 // R R EEEEEEE A A LLLLLLL 88888
24266
24267 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
24268 // F U U NN N C C T I O O NN N
24269 // F U U N N N C T I O O N N N
24270 // FFFFF U U N N N C T I O O N N N
24271 // F U U N N N C T I O O N N N
24272 // F U U N NN C C T I O O N NN
24273 // F UUUUU N N CCCCC T III OOOOO N N
24274
24275 // ZZZZZZZ L A N N H H SSSSS
24276 // Z L A A NN N H H S S
24277 // Z L A A N N N H H S
24278 // Z L A A N N N HHHHHHH SSSSS
24279 // Z L AAAAAAA N N N H H S
24280 // * L A A N NN H H S S
24281 // ZZZZZZZ LLLLLLL A A N N H H SSSSS
24282
24283
24284 // VIF THU 20 NOV 2025 22:20:08 ** ZLANHS ** DIAGNOSTICS PAGE 00734
24285
24286
24287 // VIF THU 20 NOV 2025 22:20:08 ** ZLANHS ** GENERATED CODE PAGE 00735
24288
24289 real_8 _zlanhs (char _p_ norm_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, real_8 _p_ work_)
24290 { // ** body not listed **
24348 }
24349
24350 // VIF THU 20 NOV 2025 22:20:08 ** ZLARF ** ZLARF PAGE 00737
24351
24352 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24353 // S S U U B B R R O O U U T I NN N E
24354 // S U U B B R R O O U U T I N N N E
24355 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24356 // S U U B B R R O O U U T I N N N E
24357 // S S U U B B R R O O U U T I N NN E
24358 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24359
24360 // ZZZZZZZ L A RRRRRR FFFFFFF
24361 // Z L A A R R F
24362 // Z L A A R R F
24363 // Z L A A RRRRRR FFFFF
24364 // Z L AAAAAAA R R F
24365 // * L A A R R F
24366 // ZZZZZZZ LLLLLLL A A R R F
24367
24368
24369 // VIF THU 20 NOV 2025 22:20:08 ** ZLARF ** DIAGNOSTICS PAGE 00738
24370
24371
24372 // VIF THU 20 NOV 2025 22:20:08 ** ZLARF ** GENERATED CODE PAGE 00739
24373
24374 int_4 _zlarf (char _p_ side_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ v_, int_4 _p_ incv_, complex_16 _p_ tau_,
24375 complex_16 _p_ c_, int_4 _p_ ldc_, complex_16 _p_ work_)
24376 { // ** body not listed **
24397 }
24398
24399 // VIF THU 20 NOV 2025 22:20:08 ** ZLARFG ** ZLARFG PAGE 00740
24400
24401 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24402 // S S U U B B R R O O U U T I NN N E
24403 // S U U B B R R O O U U T I N N N E
24404 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24405 // S U U B B R R O O U U T I N N N E
24406 // S S U U B B R R O O U U T I N NN E
24407 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24408
24409 // ZZZZZZZ L A RRRRRR FFFFFFF GGGGG
24410 // Z L A A R R F G G
24411 // Z L A A R R F G
24412 // Z L A A RRRRRR FFFFF G GGGG
24413 // Z L AAAAAAA R R F G G
24414 // * L A A R R F G G
24415 // ZZZZZZZ LLLLLLL A A R R F GGGGG
24416
24417
24418 // VIF THU 20 NOV 2025 22:20:08 ** ZLARFG ** DIAGNOSTICS PAGE 00741
24419
24420
24421 // VIF THU 20 NOV 2025 22:20:08 ** ZLARFG ** GENERATED CODE PAGE 00742
24422
24423 int_4 _zlarfg (int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ tau_)
24424 { // ** body not listed **
24486 }
24487
24488 // VIF THU 20 NOV 2025 22:20:08 ** ZLARNV ** ZLARNV PAGE 00744
24489
24490 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24491 // S S U U B B R R O O U U T I NN N E
24492 // S U U B B R R O O U U T I N N N E
24493 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24494 // S U U B B R R O O U U T I N N N E
24495 // S S U U B B R R O O U U T I N NN E
24496 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24497
24498 // ZZZZZZZ L A RRRRRR N N V V
24499 // Z L A A R R NN N V V
24500 // Z L A A R R N N N V V
24501 // Z L A A RRRRRR N N N V V
24502 // Z L AAAAAAA R R N N N V V
24503 // * L A A R R N NN V V
24504 // ZZZZZZZ LLLLLLL A A R R N N V
24505
24506
24507 // VIF THU 20 NOV 2025 22:20:08 ** ZLARNV ** DIAGNOSTICS PAGE 00745
24508
24509
24510 // VIF THU 20 NOV 2025 22:20:08 ** ZLARNV ** GENERATED CODE PAGE 00746
24511
24512 int_4 _zlarnv (int_4 _p_ idist_, int_4 _p_ iseed_, int_4 _p_ n_, complex_16 _p_ x_)
24513 { // ** body not listed **
24554 }
24555
24556 // VIF THU 20 NOV 2025 22:20:08 ** ZLARTG ** ZLARTG PAGE 00747
24557
24558 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24559 // S S U U B B R R O O U U T I NN N E
24560 // S U U B B R R O O U U T I N N N E
24561 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24562 // S U U B B R R O O U U T I N N N E
24563 // S S U U B B R R O O U U T I N NN E
24564 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24565
24566 // ZZZZZZZ L A RRRRRR TTTTTTT GGGGG
24567 // Z L A A R R T G G
24568 // Z L A A R R T G
24569 // Z L A A RRRRRR T G GGGG
24570 // Z L AAAAAAA R R T G G
24571 // * L A A R R T G G
24572 // ZZZZZZZ LLLLLLL A A R R T GGGGG
24573
24574
24575 // VIF THU 20 NOV 2025 22:20:08 ** ZLARTG ** DIAGNOSTICS PAGE 00748
24576
24577
24578 // VIF THU 20 NOV 2025 22:20:08 ** ZLARTG ** GENERATED CODE PAGE 00749
24579
24580 int_4 _zlartg (complex_16 _p_ f_, complex_16 _p_ g_, real_8 _p_ cs_, complex_16 _p_ sn_, complex_16 _p_ r_)
24581 { // ** body not listed **
24633 }
24634
24635 // VIF THU 20 NOV 2025 22:20:08 ** ZLASCL ** ZLASCL PAGE 00751
24636
24637 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24638 // S S U U B B R R O O U U T I NN N E
24639 // S U U B B R R O O U U T I N N N E
24640 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24641 // S U U B B R R O O U U T I N N N E
24642 // S S U U B B R R O O U U T I N NN E
24643 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24644
24645 // ZZZZZZZ L A SSSSS CCCCC L
24646 // Z L A A S S C C L
24647 // Z L A A S C L
24648 // Z L A A SSSSS C L
24649 // Z L AAAAAAA S C L
24650 // * L A A S S C C L
24651 // ZZZZZZZ LLLLLLL A A SSSSS CCCCC LLLLLLL
24652
24653
24654 // VIF THU 20 NOV 2025 22:20:08 ** ZLASCL ** DIAGNOSTICS PAGE 00752
24655
24656
24657 // VIF THU 20 NOV 2025 22:20:08 ** ZLASCL ** GENERATED CODE PAGE 00753
24658
24659 int_4 _zlascl (char _p_ type_, int_4 _p_ kl_, int_4 _p_ ku_, real_8 _p_ cfrom_, real_8 _p_ cto_, int_4 _p_ m_, int_4
24660 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ info_)
24661 { // ** body not listed **
24821 }
24822
24823 // VIF THU 20 NOV 2025 22:20:08 ** ZLASET ** ZLASET PAGE 00757
24824
24825 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24826 // S S U U B B R R O O U U T I NN N E
24827 // S U U B B R R O O U U T I N N N E
24828 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24829 // S U U B B R R O O U U T I N N N E
24830 // S S U U B B R R O O U U T I N NN E
24831 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24832
24833 // ZZZZZZZ L A SSSSS EEEEEEE TTTTTTT
24834 // Z L A A S S E T
24835 // Z L A A S E T
24836 // Z L A A SSSSS EEEEE T
24837 // Z L AAAAAAA S E T
24838 // * L A A S S E T
24839 // ZZZZZZZ LLLLLLL A A SSSSS EEEEEEE T
24840
24841
24842 // VIF THU 20 NOV 2025 22:20:08 ** ZLASET ** DIAGNOSTICS PAGE 00758
24843
24844
24845 // VIF THU 20 NOV 2025 22:20:08 ** ZLASET ** GENERATED CODE PAGE 00759
24846
24847 int_4 _zlaset (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ beta_, complex_16 _p_
24848 a_, int_4 _p_ lda_)
24849 { // ** body not listed **
24885 }
24886
24887 // VIF THU 20 NOV 2025 22:20:08 ** ZLASSQ ** ZLASSQ PAGE 00760
24888
24889 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24890 // S S U U B B R R O O U U T I NN N E
24891 // S U U B B R R O O U U T I N N N E
24892 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24893 // S U U B B R R O O U U T I N N N E
24894 // S S U U B B R R O O U U T I N NN E
24895 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24896
24897 // ZZZZZZZ L A SSSSS SSSSS QQQQQ
24898 // Z L A A S S S S Q Q
24899 // Z L A A S S Q Q
24900 // Z L A A SSSSS SSSSS Q Q
24901 // Z L AAAAAAA S S Q Q Q
24902 // * L A A S S S S Q Q
24903 // ZZZZZZZ LLLLLLL A A SSSSS SSSSS QQQQ Q
24904
24905
24906 // VIF THU 20 NOV 2025 22:20:08 ** ZLASSQ ** DIAGNOSTICS PAGE 00761
24907
24908
24909 // VIF THU 20 NOV 2025 22:20:08 ** ZLASSQ ** GENERATED CODE PAGE 00762
24910
24911 int_4 _zlassq (int_4 _p_ n_, complex_16 _p_ x_, int_4 _p_ incx_, real_8 _p_ scale_, real_8 _p_ sumsq_)
24912 { // ** body not listed **
24946 }
24947
24948 // VIF THU 20 NOV 2025 22:20:08 ** ZLASWP ** ZLASWP PAGE 00763
24949
24950 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
24951 // S S U U B B R R O O U U T I NN N E
24952 // S U U B B R R O O U U T I N N N E
24953 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
24954 // S U U B B R R O O U U T I N N N E
24955 // S S U U B B R R O O U U T I N NN E
24956 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
24957
24958 // ZZZZZZZ L A SSSSS W W PPPPPP
24959 // Z L A A S S W W P P
24960 // Z L A A S W W P P
24961 // Z L A A SSSSS W W W PPPPPP
24962 // Z L AAAAAAA S W W W P
24963 // * L A A S S W W W P
24964 // ZZZZZZZ LLLLLLL A A SSSSS WW WW P
24965
24966
24967 // VIF THU 20 NOV 2025 22:20:08 ** ZLASWP ** DIAGNOSTICS PAGE 00764
24968
24969
24970 // VIF THU 20 NOV 2025 22:20:08 ** ZLASWP ** GENERATED CODE PAGE 00765
24971
24972 int_4 _zlaswp (int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ k1_, int_4 _p_ k2_, int_4 _p_ ipiv_, int_4
24973 _p_ incx_)
24974 { // ** body not listed **
25015 }
25016
25017 // VIF THU 20 NOV 2025 22:20:08 ** ZLATRS ** ZLATRS PAGE 00766
25018
25019 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
25020 // S S U U B B R R O O U U T I NN N E
25021 // S U U B B R R O O U U T I N N N E
25022 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
25023 // S U U B B R R O O U U T I N N N E
25024 // S S U U B B R R O O U U T I N NN E
25025 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
25026
25027 // ZZZZZZZ L A TTTTTTT RRRRRR SSSSS
25028 // Z L A A T R R S S
25029 // Z L A A T R R S
25030 // Z L A A T RRRRRR SSSSS
25031 // Z L AAAAAAA T R R S
25032 // * L A A T R R S S
25033 // ZZZZZZZ LLLLLLL A A T R R SSSSS
25034
25035
25036 // VIF THU 20 NOV 2025 22:20:08 ** ZLATRS ** DIAGNOSTICS PAGE 00767
25037
25038
25039 // VIF THU 20 NOV 2025 22:20:08 ** ZLATRS ** GENERATED CODE PAGE 00768
25040
25041 int_4 _zlatrs (char _p_ uplo_, char _p_ trans_, char _p_ diag_, char _p_ normin_, int_4 _p_ n_, complex_16 _p_ a_,
25042 int_4 _p_ lda_, complex_16 _p_ x_, real_8 _p_ scale_, real_8 _p_ cnorm_, int_4 _p_ info_)
25043 { // ** body not listed **
25540 }
25541
25542 // VIF THU 20 NOV 2025 22:20:08 ** ZROT ** ZROT PAGE 00778
25543
25544 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
25545 // S S U U B B R R O O U U T I NN N E
25546 // S U U B B R R O O U U T I N N N E
25547 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
25548 // S U U B B R R O O U U T I N N N E
25549 // S S U U B B R R O O U U T I N NN E
25550 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
25551
25552 // ZZZZZZZ RRRRRR OOOOO TTTTTTT
25553 // Z R R O O T
25554 // Z R R O O T
25555 // Z RRRRRR O O T
25556 // Z R R O O T
25557 // * R R O O T
25558 // ZZZZZZZ R R OOOOO T
25559
25560
25561 // VIF THU 20 NOV 2025 22:20:08 ** ZROT ** DIAGNOSTICS PAGE 00779
25562
25563
25564 // VIF THU 20 NOV 2025 22:20:08 ** ZROT ** GENERATED CODE PAGE 00780
25565
25566 int_4 _zrot (int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ incx_, complex_16 _p_ cy_, int_4 _p_ incy_, real_8 _p_ c_,
25567 complex_16 _p_ s_)
25568 { // ** body not listed **
25604 }
25605
25606 // VIF THU 20 NOV 2025 22:20:08 ** ZTREVC ** ZTREVC PAGE 00781
25607
25608 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
25609 // S S U U B B R R O O U U T I NN N E
25610 // S U U B B R R O O U U T I N N N E
25611 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
25612 // S U U B B R R O O U U T I N N N E
25613 // S S U U B B R R O O U U T I N NN E
25614 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
25615
25616 // ZZZZZZZ TTTTTTT RRRRRR EEEEEEE V V CCCCC
25617 // Z T R R E V V C C
25618 // Z T R R E V V C
25619 // Z T RRRRRR EEEEE V V C
25620 // Z T R R E V V C
25621 // * T R R E V V C C
25622 // ZZZZZZZ T R R EEEEEEE V CCCCC
25623
25624
25625 // VIF THU 20 NOV 2025 22:20:08 ** ZTREVC ** DIAGNOSTICS PAGE 00782
25626
25627
25628 // VIF THU 20 NOV 2025 22:20:08 ** ZTREVC ** GENERATED CODE PAGE 00783
25629
25630 int_4 _ztrevc (char _p_ side_, char _p_ howmny_, logical_4 _p_ select_, int_4 _p_ n_, complex_16 _p_ t_, int_4 _p_ ldt_
25631 , complex_16 _p_ vl_, int_4 _p_ ldvl_, complex_16 _p_ vr_, int_4 _p_ ldvr_, int_4 _p_ mm_, int_4 _p_ m_, complex_16 _p_
25632 work_, real_8 _p_ rwork_, int_4 _p_ info_)
25633 { // ** body not listed **
25829 }
25830
25831 // VIF THU 20 NOV 2025 22:20:08 ** ZTREXC ** ZTREXC PAGE 00787
25832
25833 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
25834 // S S U U B B R R O O U U T I NN N E
25835 // S U U B B R R O O U U T I N N N E
25836 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
25837 // S U U B B R R O O U U T I N N N E
25838 // S S U U B B R R O O U U T I N NN E
25839 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
25840
25841 // ZZZZZZZ TTTTTTT RRRRRR EEEEEEE X X CCCCC
25842 // Z T R R E X X C C
25843 // Z T R R E X X C
25844 // Z T RRRRRR EEEEE X C
25845 // Z T R R E X X C
25846 // * T R R E X X C C
25847 // ZZZZZZZ T R R EEEEEEE X X CCCCC
25848
25849
25850 // VIF THU 20 NOV 2025 22:20:08 ** ZTREXC ** DIAGNOSTICS PAGE 00788
25851
25852
25853 // VIF THU 20 NOV 2025 22:20:08 ** ZTREXC ** GENERATED CODE PAGE 00789
25854
25855 int_4 _ztrexc (char _p_ compq_, int_4 _p_ n_, complex_16 _p_ t_, int_4 _p_ ldt_, complex_16 _p_ q_, int_4 _p_ ldq_,
25856 int_4 _p_ ifst_, int_4 _p_ ilst_, int_4 _p_ info_)
25857 { // ** body not listed **
25928 }
25929
25930 // VIF THU 20 NOV 2025 22:20:08 ** ZTRSEN ** ZTRSEN PAGE 00791
25931
25932 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
25933 // S S U U B B R R O O U U T I NN N E
25934 // S U U B B R R O O U U T I N N N E
25935 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
25936 // S U U B B R R O O U U T I N N N E
25937 // S S U U B B R R O O U U T I N NN E
25938 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
25939
25940 // ZZZZZZZ TTTTTTT RRRRRR SSSSS EEEEEEE N N
25941 // Z T R R S S E NN N
25942 // Z T R R S E N N N
25943 // Z T RRRRRR SSSSS EEEEE N N N
25944 // Z T R R S E N N N
25945 // * T R R S S E N NN
25946 // ZZZZZZZ T R R SSSSS EEEEEEE N N
25947
25948
25949 // VIF THU 20 NOV 2025 22:20:08 ** ZTRSEN ** DIAGNOSTICS PAGE 00792
25950
25951
25952 // VIF THU 20 NOV 2025 22:20:08 ** ZTRSEN ** GENERATED CODE PAGE 00793
25953
25954 int_4 _ztrsen (char _p_ job_, char _p_ compq_, logical_4 _p_ select_, int_4 _p_ n_, complex_16 _p_ t_, int_4 _p_ ldt_,
25955 complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ w_, int_4 _p_ m_, real_8 _p_ s_, real_8 _p_ sep_, complex_16 _p_
25956 work_, int_4 _p_ lwork_, int_4 _p_ info_)
25957 { // ** body not listed **
26061 }
26062
26063 // VIF THU 20 NOV 2025 22:20:08 ** ZTRSYL ** ZTRSYL PAGE 00796
26064
26065 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
26066 // S S U U B B R R O O U U T I NN N E
26067 // S U U B B R R O O U U T I N N N E
26068 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
26069 // S U U B B R R O O U U T I N N N E
26070 // S S U U B B R R O O U U T I N NN E
26071 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
26072
26073 // ZZZZZZZ TTTTTTT RRRRRR SSSSS Y Y L
26074 // Z T R R S S Y Y L
26075 // Z T R R S Y Y L
26076 // Z T RRRRRR SSSSS Y L
26077 // Z T R R S Y L
26078 // * T R R S S Y L
26079 // ZZZZZZZ T R R SSSSS Y LLLLLLL
26080
26081
26082 // VIF THU 20 NOV 2025 22:20:08 ** ZTRSYL ** DIAGNOSTICS PAGE 00797
26083
26084
26085 // VIF THU 20 NOV 2025 22:20:08 ** ZTRSYL ** GENERATED CODE PAGE 00798
26086
26087 int_4 _ztrsyl (char _p_ trana_, char _p_ tranb_, int_4 _p_ isgn_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ a_, int_4
26088 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ c_, int_4 _p_ ldc_, real_8 _p_ scale_, int_4 _p_ info_)
26089 { // ** body not listed **
26295 }
26296
26297 // VIF THU 20 NOV 2025 22:20:08 ** ZUNM2R ** ZUNM2R PAGE 00803
26298
26299 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
26300 // S S U U B B R R O O U U T I NN N E
26301 // S U U B B R R O O U U T I N N N E
26302 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
26303 // S U U B B R R O O U U T I N N N E
26304 // S S U U B B R R O O U U T I N NN E
26305 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
26306
26307 // ZZZZZZZ U U N N M M 22222 RRRRRR
26308 // Z U U NN N MM MM 2 2 R R
26309 // Z U U N N N M M M M 2 R R
26310 // Z U U N N N M M M 22222 RRRRRR
26311 // Z U U N N N M M 2 R R
26312 // * U U N NN M M 2 R R
26313 // ZZZZZZZ UUUUU N N M M 2222222 R R
26314
26315
26316 // VIF THU 20 NOV 2025 22:20:08 ** ZUNM2R ** DIAGNOSTICS PAGE 00804
26317
26318
26319 // VIF THU 20 NOV 2025 22:20:08 ** ZUNM2R ** GENERATED CODE PAGE 00805
26320
26321 int_4 _zunm2r (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ a_, int_4 _p_
26322 lda_, complex_16 _p_ tau_, complex_16 _p_ c_, int_4 _p_ ldc_, complex_16 _p_ work_, int_4 _p_ info_)
26323 { // ** body not listed **
26414 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
