mathlib-lapack-svd.c
1 //! @file mathlib-lapack-svd.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-SVD
24
25 // Compiled from Fortran source code by VIF.
26
27 // Selected SVD functionality from LAPACK.
28 //
29 // The original code is F90 from 2023, but could be made to compile
30 // with VIF trivially.
31 //
32 // Included LAPACK routines of interest to VIF are:
33 //
34 // DGEJSV
35 // DGELSD
36 // DGELSS
37 // DGESDD
38 // DGESVD
39 // DGESVDQ
40 // DGESVJ
41 //
42 // Source: netlib.org/lapack
43 // LAPACK 3.12.0
44
45 // The license for LAPACK Fortran source code is:
46 //
47 // Copyright (c) 1992-2013 The University of Tennessee and The University
48 // of Tennessee Research Foundation. All rights
49 // reserved.
50 // Copyright (c) 2000-2013 The University of California Berkeley. All
51 // rights reserved.
52 // Copyright (c) 2006-2013 The University of Colorado Denver. All rights
53 // reserved.
54 //
55 // $COPYRIGHT$
56 //
57 // Additional copyrights may follow
58 //
59 // $HEADER$
60 //
61 // Redistribution and use in source and binary forms, with or without
62 // modification, are permitted provided that the following conditions are
63 // met:
64 //
65 // - Redistributions of source code must retain the above copyright
66 // notice, this list of conditions and the following disclaimer.
67 //
68 // - Redistributions in binary form must reproduce the above copyright
69 // notice, this list of conditions and the following disclaimer listed
70 // in this license in the documentation and/or other materials
71 // provided with the distribution.
72 //
73 // - Neither the name of the copyright holders nor the names of its
74 // contributors may be used to endorse or promote products derived from
75 // this software without specific prior written permission.
76 //
77 // The copyright holders provide no reassurances that the source code
78 // provided does not infringe any patent, copyright, or any other
79 // intellectual property rights of third parties. The copyright holders
80 // disclaim any liability to any recipient for claims brought against
81 // recipient by any third party for infringement of that parties
82 // intellectual property rights.
83 //
84 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
85 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
86 // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
87 // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
88 // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
89 // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
90 // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
91 // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
92 // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
93 // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
94 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
95 // `
96
97 // VIF THU 20 NOV 2025 22:20:22 ** MARCEL ** LAPACK SVD PAGE 00001
98
99
100
101 // M M A RRRRRR CCCCC EEEEEEE L
102 // MM MM A A R R C C E L
103 // M M M M A A R R C E L
104 // M M M A A RRRRRR C EEEEE L
105 // M M AAAAAAA R R C E L
106 // M M A A R R C C E L
107 // M M A A R R CCCCC EEEEEEE LLLLLLL
108
109 // L A PPPPPP A CCCCC K K SSSSS V V DDDDDD
110 // L A A P P A A C C K K S S V V D D
111 // L A A P P A A C K K S V V D D
112 // L A A PPPPPP A A C KKK ***** SSSSS V V D D
113 // L AAAAAAA P AAAAAAA C K K S V V D D
114 // L A A P A A C C K K S S V V D D
115 // LLLLLLL A A P A A CCCCC K K SSSSS V DDDDDD
116
117
118
119
120 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
121
122 // ** linker ** object size 1832560 bytes
123 // ** statistics ** 85 subprograms, no errors, no warnings
124
125
126 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
127
128
129 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
130
131
132
133 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
134
135 /*
136 Generated by VIF - experimental VIntage Fortran compiler.
137 VIF release 1.4.1
138 */
139
140 #if defined (__GNUC__)
141 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
142 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
143 #if (__GNUC__ >= 14)
144 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
145 #pragma GCC diagnostic ignored "-Wimplicit-int"
146 #pragma GCC diagnostic ignored "-Wint-conversion"
147 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
148 #endif
149 #else
150 #error VIF requires GCC
151 #endif
152
153 #include <vif.h>
154
155 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
156
157
158 #define _dc_0 "u"
159 #define _dc_1 "l"
160 #define _dc_2 "n"
161 #define _dc_3 "p"
162 #define _dc_4 "i"
163 #define _dc_5 "dbdsdc"
164 #define _dc_6 " "
165 #define _dc_7 "a"
166 #define _dc_8 "m"
167 #define _dc_9 "g"
168 #define _dc_10 "epsilon"
169 #define _dc_11 "v"
170 #define _dc_12 "b"
171 #define _dc_13 "dbdsqr"
172 #define _dc_14 "safe minimum"
173 #define _dc_15 "r"
174 #define _dc_16 "f"
175 #define _dc_17 "dgebd2"
176 #define _dc_18 "left"
177 #define _dc_19 "right"
178 #define _dc_20 "dgebrd"
179 #define _dc_21 "no transpose"
180 #define _dc_22 "transpose"
181 #define _dc_23 "j"
182 #define _dc_24 "e"
183 #define _dc_25 "t"
184 #define _dc_26 "c"
185 #define _dc_27 "w"
186 #define _dc_28 "dgejsv"
187 #define _dc_29 "safeminimum"
188 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00005
189
190 #define _dc_30 "o"
191 #define _dc_31 "nou"
192 #define _dc_32 "nov"
193 #define _dc_33 "upper"
194 #define _dc_34 "lower"
195 #define _dc_35 "all"
196 #define _dc_36 "no tr"
197 #define _dc_37 "no_tr"
198 #define _dc_38 "notrans"
199 #define _dc_39 "no ud"
200 #define _dc_40 "dgelq2"
201 #define _dc_41 "dgelqf"
202 #define _dc_42 "forward"
203 #define _dc_43 "rowwise"
204 #define _dc_44 "dgelsd"
205 #define _dc_45 "dgeqrf"
206 #define _dc_46 "dormqr"
207 #define _dc_47 "lt"
208 #define _dc_48 "dormbr"
209 #define _dc_49 "qlt"
210 #define _dc_50 "pln"
211 #define _dc_51 "dormlq"
212 #define _dc_52 "s"
213 #define _dc_53 "q"
214 #define _dc_54 "dgelss"
215 #define _dc_55 "dgeqp3"
216 #define _dc_56 "dgeqr2"
217 #define _dc_57 "columnwise"
218 #define _dc_58 "dgesdd"
219 #define _dc_59 "dgesvd"
220 #define _dc_60 "h"
221 #define _dc_61 "dgesvdq"
222 #define _dc_62 "dgesvj"
223 #define _dc_63 "overflow"
224 #define _dc_64 "dgsvj0"
225 #define _dc_65 "dgsvj1"
226 #define _dc_66 "base"
227 #define _dc_67 "safmin"
228 #define _dc_68 "dlals0"
229 #define _dc_69 "dlalsa"
230 #define _dc_70 "dlalsd"
231 #define _dc_71 "d"
232 #define _dc_72 "1"
233 #define _dc_73 "unit"
234 #define _dc_74 "non-unit"
235 #define _dc_75 "z"
236 #define _dc_76 "dlascl"
237 #define _dc_77 "dlasd0"
238 #define _dc_78 "dlasd1"
239 #define _dc_79 "dlasd2"
240 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00006
241
242 #define _dc_80 "dlasd3"
243 #define _dc_81 "dlasd6"
244 #define _dc_82 "dlasd7"
245 #define _dc_83 "dlasd8"
246 #define _dc_84 "dlasda"
247 #define _dc_85 "dlasdq"
248 #define _dc_86 "dlasq1"
249 #define _dc_87 "precision"
250 #define _dc_88 "dlasq2"
251 #define _dc_89 "dlasr "
252 #define _dc_90 "dlasrt"
253 #define _dc_91 "eps"
254 #define _dc_92 "y"
255 #define _dc_93 "dlatrs"
256 #define _dc_94 "dorg2r"
257 #define _dc_95 "dorgbr"
258 #define _dc_96 "dorgl2"
259 #define _dc_97 "dorglq"
260 #define _dc_98 "dorgqr"
261 #define _dc_99 "dorm2r"
262 #define _dc_100 "dorml2"
263 #define _dc_101 "dpocon"
264 #define _dc_102 "2"
265 #define _dc_103 "laorh"
266 #define _dc_104 "ge"
267 #define _dc_105 "trf"
268 #define _dc_106 "qrf"
269 #define _dc_107 "rqf"
270 #define _dc_108 "lqf"
271 #define _dc_109 "qlf"
272 #define _dc_110 "qr "
273 #define _dc_111 "lq "
274 #define _dc_112 "hrd"
275 #define _dc_113 "brd"
276 #define _dc_114 "tri"
277 #define _dc_115 "po"
278 #define _dc_116 "sy"
279 #define _dc_117 "trd"
280 #define _dc_118 "gst"
281 #define _dc_119 "he"
282 #define _dc_120 "or"
283 #define _dc_121 "qr"
284 #define _dc_122 "rq"
285 #define _dc_123 "lq"
286 #define _dc_124 "ql"
287 #define _dc_125 "hr"
288 #define _dc_126 "tr"
289 #define _dc_127 "br"
290 #define _dc_128 "un"
291 #define _dc_129 "gb"
292 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00007
293
294 #define _dc_130 "pb"
295 #define _dc_131 "evc"
296 #define _dc_132 "la"
297 #define _dc_133 "uum"
298 #define _dc_134 "st"
299 #define _dc_135 "ebz"
300 #define _dc_136 "gg"
301 #define _dc_137 "hd3"
302 #define _dc_138 "gghrd"
303 #define _dc_139 "gghd3"
304 #define _dc_140 "exc"
305 #define _dc_141 "hseqr"
306 #define _dc_142 "laqr"
307
308
309
310 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00008
311
312 static FORMAT *__fmt_a = NULL;
313 typedef char char_1[2];
314 typedef char char_3[4];
315 typedef char char_7[8];
316 typedef char char_15[16];
317 typedef char char_31[32];
318
319
320 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00009
321
322 #define __ncalls 86
323 static CALLS __calls[__ncalls] = {
324 { // ** body not listed **"dbdsdc", 0}, // subroutine
326 { // ** body not listed **"dcombssq", 0}, // subroutine
328 { // ** body not listed **"dgebrd", 0}, // subroutine
330 { // ** body not listed **"dgelq2", 0}, // subroutine
332 { // ** body not listed **"dgelsd", 0}, // subroutine
334 { // ** body not listed **"dgeqp3", 0}, // subroutine
336 { // ** body not listed **"dgeqrf", 0}, // subroutine
338 { // ** body not listed **"dgesvd", 0}, // subroutine
340 { // ** body not listed **"dgesvj", 0}, // subroutine
342 { // ** body not listed **"dgsvj1", 0}, // subroutine
344 { // ** body not listed **"dlabad", 0}, // subroutine
346 { // ** body not listed **"dlacn2", 0}, // subroutine
348 { // ** body not listed **"dlaed6", 0}, // subroutine
350 { // ** body not listed **"dlals0", 0}, // subroutine
352 { // ** body not listed **"dlalsd", 0}, // subroutine
354 { // ** body not listed **"dlange", 0}, // real*8 function
356 { // ** body not listed **"dlapmt", 0}, // subroutine
358 { // ** body not listed **"dlaqp2", 0}, // subroutine
360 { // ** body not listed **"dlarfb", 0}, // subroutine
362 { // ** body not listed **"dlarfg", 0}, // subroutine
364 { // ** body not listed **"dlartg", 0}, // subroutine
366 { // ** body not listed **"dlascl", 0}, // subroutine
368 { // ** body not listed **"dlasd1", 0}, // subroutine
370 { // ** body not listed **"dlasd3", 0}, // subroutine
374 { // ** body not listed **"dlasd5", 0}, // subroutine
376 { // ** body not listed **"dlasd7", 0}, // subroutine
378 { // ** body not listed **"dlasda", 0}, // subroutine
380 { // ** body not listed **"dlasdt", 0}, // subroutine
382 { // ** body not listed **"dlasq1", 0}, // subroutine
384 { // ** body not listed **"dlasq3", 0}, // subroutine
386 { // ** body not listed **"dlasq5", 0}, // subroutine
388 { // ** body not listed **"dlasr", 0}, // subroutine
390 { // ** body not listed **"dlassq", 0}, // subroutine
392 { // ** body not listed **"dlaswp", 0}, // subroutine
394 { // ** body not listed **"dorg2r", 0}, // subroutine
396 { // ** body not listed **"dorgl2", 0}, // subroutine
398 { // ** body not listed **"dorgqr", 0}, // subroutine
400 { // ** body not listed **"dormbr", 0}, // subroutine
402 { // ** body not listed **"dormlq", 0}, // subroutine
404 { // ** body not listed **"dpocon", 0}, // subroutine
406 { // ** body not listed **"ieeeck", 0}, // integer*4 function
408 { // ** body not listed **"iladlr", 0}, // integer*4 function
410 { // ** body not listed **"iparmq", 0}, // integer*4 function
412 };
413
414
415
416 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** COMMON BLOCKS PAGE 00011
417
418
419
420 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00012
421
422
423 prototype int_4 _dbdsdc (char _p_ uplo_, char _p_ compq_, int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ u_,
424 int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ ldvt_, real_8 _p_ q_, int_4 _p_ iq_, real_8 _p_ work_, int_4 _p_ iwork_,
425 int_4 _p_ info_);
426 prototype int_4 _dbdsqr (char _p_ uplo_, int_4 _p_ n_, int_4 _p_ ncvt_, int_4 _p_ nru_, int_4 _p_ ncc_, real_8 _p_ d_,
427 real_8 _p_ e_, real_8 _p_ vt_, int_4 _p_ ldvt_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ c_, int_4 _p_ ldc_, real_8
428 _p_ work_, int_4 _p_ info_);
429 prototype int_4 _dcombssq (real_8 _p_ v1_, real_8 _p_ v2_);
430 prototype int_4 _dgebd2 (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ d_, real_8 _p_ e_,
431 real_8 _p_ tauq_, real_8 _p_ taup_, real_8 _p_ work_, int_4 _p_ info_);
432 prototype int_4 _dgebrd (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ d_, real_8 _p_ e_,
433 real_8 _p_ tauq_, real_8 _p_ taup_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_);
434 prototype int_4 _dgejsv (char _p_ joba_, char _p_ jobu_, char _p_ jobv_, char _p_ jobr_, char _p_ jobt_, char _p_ jobp_
435 , int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ sva_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_
436 v_, int_4 _p_ ldv_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ info_);
437 prototype int_4 _dgelq2 (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ work_,
438 int_4 _p_ info_);
439 prototype int_4 _dgelqf (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ work_,
440 int_4 _p_ lwork_, int_4 _p_ info_);
441 prototype int_4 _dgelsd (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_,
442 int_4 _p_ ldb_, real_8 _p_ s_, real_8 _p_ rcond_, int_4 _p_ rank_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_
443 , int_4 _p_ info_);
444 prototype int_4 _dgelss (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_,
445 int_4 _p_ ldb_, real_8 _p_ s_, real_8 _p_ rcond_, int_4 _p_ rank_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_)
446 ;
447 prototype int_4 _dgeqp3 (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ jpvt_, real_8 _p_ tau_,
448 real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_);
449 prototype int_4 _dgeqr2 (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ work_,
450 int_4 _p_ info_);
451 prototype int_4 _dgeqrf (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ work_,
452 int_4 _p_ lwork_, int_4 _p_ info_);
453 prototype int_4 _dgesdd (char _p_ jobz_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ s_,
454 real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ ldvt_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_,
455 int_4 _p_ info_);
456 prototype int_4 _dgesvd (char _p_ jobu_, char _p_ jobvt_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_,
457 real_8 _p_ s_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ ldvt_, real_8 _p_ work_, int_4 _p_ lwork_,
458 int_4 _p_ info_);
459 prototype int_4 _dgesvdq (char _p_ joba_, char _p_ jobp_, char _p_ jobr_, char _p_ jobu_, char _p_ jobv_, int_4 _p_ m_,
460 int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ s_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ v_, int_4 _p_
461 ldv_, int_4 _p_ numrank_, int_4 _p_ iwork_, int_4 _p_ liwork_, real_8 _p_ work_, int_4 _p_ lwork_, real_8 _p_ rwork_,
462 int_4 _p_ lrwork_, int_4 _p_ info_);
463 prototype int_4 _dgesvj (char _p_ joba_, char _p_ jobu_, char _p_ jobv_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_,
464 int_4 _p_ lda_, real_8 _p_ sva_, int_4 _p_ mv_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ work_, int_4 _p_ lwork_,
465 int_4 _p_ info_);
466 prototype int_4 _dgsvj0 (char _p_ jobv_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ d_,
467 real_8 _p_ sva_, int_4 _p_ mv_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ eps_, real_8 _p_ sfmin_, real_8 _p_ tol_,
468 int_4 _p_ nsweep_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_);
469 prototype int_4 _dgsvj1 (char _p_ jobv_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ n1_, real_8 _p_ a_, int_4 _p_ lda_,
470 real_8 _p_ d_, real_8 _p_ sva_, int_4 _p_ mv_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ eps_, real_8 _p_ sfmin_,
471 real_8 _p_ tol_, int_4 _p_ nsweep_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_);
472 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00013
473
474 prototype logical_4 _disnan (real_8 _p_ din_);
475 prototype int_4 _dlabad (real_8 _p_ small_, real_8 _p_ large_);
476 prototype int_4 _dlabrd (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ nb_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ d_,
477 real_8 _p_ e_, real_8 _p_ tauq_, real_8 _p_ taup_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ y_, int_4 _p_ ldy_);
478 prototype int_4 _dlacn2 (int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ x_, int_4 _p_ isgn_, real_8 _p_ est_, int_4 _p_ kase_,
479 int_4 _p_ isave_);
480 prototype int_4 _dlacpy (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_,
481 int_4 _p_ ldb_);
482 prototype int_4 _dlaed6 (int_4 _p_ kniter_, logical_4 _p_ orgati_, real_8 _p_ rho_, real_8 _p_ d_, real_8 _p_ z_,
483 real_8 _p_ finit_, real_8 _p_ tau_, int_4 _p_ info_);
484 prototype logical_4 _dlaisnan (real_8 _p_ din1_, real_8 _p_ din2_);
485 prototype int_4 _dlals0 (int_4 _p_ icompq_, int_4 _p_ nl_, int_4 _p_ nr_, int_4 _p_ sqre_, int_4 _p_ nrhs_, real_8 _p_
486 b_, int_4 _p_ ldb_, real_8 _p_ bx_, int_4 _p_ ldbx_, int_4 _p_ perm_, int_4 _p_ givptr_, int_4 _p_ givcol_, int_4 _p_
487 ldgcol_, real_8 _p_ givnum_, int_4 _p_ ldgnum_, real_8 _p_ poles_, real_8 _p_ difl_, real_8 _p_ difr_, real_8 _p_ z_,
488 int_4 _p_ k_, real_8 _p_ c_, real_8 _p_ s_, real_8 _p_ work_, int_4 _p_ info_);
489 prototype int_4 _dlalsa (int_4 _p_ icompq_, int_4 _p_ smlsiz_, int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ b_, int_4 _p_
490 ldb_, real_8 _p_ bx_, int_4 _p_ ldbx_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ k_, real_8 _p_ difl_,
491 real_8 _p_ difr_, real_8 _p_ z_, real_8 _p_ poles_, int_4 _p_ givptr_, int_4 _p_ givcol_, int_4 _p_ ldgcol_, int_4 _p_
492 perm_, real_8 _p_ givnum_, real_8 _p_ c_, real_8 _p_ s_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ info_);
493 prototype int_4 _dlalsd (char _p_ uplo_, int_4 _p_ smlsiz_, int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ d_, real_8 _p_ e_
494 , real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ rcond_, int_4 _p_ rank_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_
495 info_);
496 prototype int_4 _dlamrg (int_4 _p_ n1_, int_4 _p_ n2_, real_8 _p_ a_, int_4 _p_ dtrd1_, int_4 _p_ dtrd2_, int_4 _p_
497 index_);
498 prototype real_8 _dlange (char _p_ norm_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ work_);
499 prototype real_8 _dlanst (char _p_ norm_, int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_);
500 prototype int_4 _dlapmt (logical_4 _p_ forwrd_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ k_
501 );
502 prototype real_8 _dlapy2 (real_8 _p_ x_, real_8 _p_ y_);
503 prototype int_4 _dlaqp2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ offset_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ jpvt_,
504 real_8 _p_ tau_, real_8 _p_ vn1_, real_8 _p_ vn2_, real_8 _p_ work_);
505 prototype int_4 _dlaqps (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ offset_, int_4 _p_ nb_, int_4 _p_ kb_, real_8 _p_ a_,
506 int_4 _p_ lda_, int_4 _p_ jpvt_, real_8 _p_ tau_, real_8 _p_ vn1_, real_8 _p_ vn2_, real_8 _p_ auxv_, real_8 _p_ f_,
507 int_4 _p_ ldf_);
508 prototype int_4 _dlarfb (char _p_ side_, char _p_ trans_, char _p_ direct_, char _p_ storev_, int_4 _p_ m_, int_4 _p_
509 n_, int_4 _p_ k_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ t_, int_4 _p_ ldt_, real_8 _p_ c_, int_4 _p_ ldc_, real_8
510 _p_ work_, int_4 _p_ ldwork_);
511 prototype int_4 _dlarf (char _p_ side_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ v_, int_4 _p_ incv_, real_8 _p_ tau_,
512 real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_);
513 prototype int_4 _dlarfg (int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ tau_);
514 prototype int_4 _dlarft (char _p_ direct_, char _p_ storev_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ v_, int_4 _p_ ldv_,
515 real_8 _p_ tau_, real_8 _p_ t_, int_4 _p_ ldt_);
516 prototype int_4 _dlartg (real_8 _p_ f_, real_8 _p_ g_, real_8 _p_ cs_, real_8 _p_ sn_, real_8 _p_ r_);
517 prototype int_4 _dlas2 (real_8 _p_ f_, real_8 _p_ g_, real_8 _p_ h_, real_8 _p_ ssmin_, real_8 _p_ ssmax_);
518 prototype int_4 _dlascl (char _p_ type_, int_4 _p_ kl_, int_4 _p_ ku_, real_8 _p_ cfrom_, real_8 _p_ cto_, int_4 _p_ m_
519 , int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ info_);
520 prototype int_4 _dlasd0 (int_4 _p_ n_, int_4 _p_ sqre_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ u_, int_4 _p_ ldu_,
521 real_8 _p_ vt_, int_4 _p_ ldvt_, int_4 _p_ smlsiz_, int_4 _p_ iwork_, real_8 _p_ work_, int_4 _p_ info_);
522 prototype int_4 _dlasd1 (int_4 _p_ nl_, int_4 _p_ nr_, int_4 _p_ sqre_, real_8 _p_ d_, real_8 _p_ alpha_, real_8 _p_
523 beta_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ ldvt_, int_4 _p_ idxq_, int_4 _p_ iwork_, real_8 _p_
524 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00014
525
526 work_, int_4 _p_ info_);
527 prototype int_4 _dlasd2 (int_4 _p_ nl_, int_4 _p_ nr_, int_4 _p_ sqre_, int_4 _p_ k_, real_8 _p_ d_, real_8 _p_ z_,
528 real_8 _p_ alpha_, real_8 _p_ beta_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ ldvt_, real_8 _p_ dsigma_
529 , real_8 _p_ u2_, int_4 _p_ ldu2_, real_8 _p_ vt2_, int_4 _p_ ldvt2_, int_4 _p_ idxp_, int_4 _p_ idx_, int_4 _p_ idxc_,
530 int_4 _p_ idxq_, int_4 _p_ coltyp_, int_4 _p_ info_);
531 prototype int_4 _dlasd3 (int_4 _p_ nl_, int_4 _p_ nr_, int_4 _p_ sqre_, int_4 _p_ k_, real_8 _p_ d_, real_8 _p_ q_,
532 int_4 _p_ ldq_, real_8 _p_ dsigma_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ u2_, int_4 _p_ ldu2_, real_8 _p_ vt_,
533 int_4 _p_ ldvt_, real_8 _p_ vt2_, int_4 _p_ ldvt2_, int_4 _p_ idxc_, int_4 _p_ ctot_, real_8 _p_ z_, int_4 _p_ info_);
534 prototype int_4 _dlasd4 (int_4 _p_ n_, int_4 _p_ i_, real_8 _p_ d_, real_8 _p_ z_, real_8 _p_ delta_, real_8 _p_ rho_,
535 real_8 _p_ sigma_, real_8 _p_ work_, int_4 _p_ info_);
536 prototype int_4 _dlasd5 (int_4 _p_ i_, real_8 _p_ d_, real_8 _p_ z_, real_8 _p_ delta_, real_8 _p_ rho_, real_8 _p_
537 dsigma_, real_8 _p_ work_);
538 prototype int_4 _dlasd6 (int_4 _p_ icompq_, int_4 _p_ nl_, int_4 _p_ nr_, int_4 _p_ sqre_, real_8 _p_ d_, real_8 _p_
539 vf_, real_8 _p_ vl_, real_8 _p_ alpha_, real_8 _p_ beta_, int_4 _p_ idxq_, int_4 _p_ perm_, int_4 _p_ givptr_, int_4
540 _p_ givcol_, int_4 _p_ ldgcol_, real_8 _p_ givnum_, int_4 _p_ ldgnum_, real_8 _p_ poles_, real_8 _p_ difl_, real_8 _p_
541 difr_, real_8 _p_ z_, int_4 _p_ k_, real_8 _p_ c_, real_8 _p_ s_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ info_);
542 prototype int_4 _dlasd7 (int_4 _p_ icompq_, int_4 _p_ nl_, int_4 _p_ nr_, int_4 _p_ sqre_, int_4 _p_ k_, real_8 _p_ d_,
543 real_8 _p_ z_, real_8 _p_ zw_, real_8 _p_ vf_, real_8 _p_ vfw_, real_8 _p_ vl_, real_8 _p_ vlw_, real_8 _p_ alpha_,
544 real_8 _p_ beta_, real_8 _p_ dsigma_, int_4 _p_ idx_, int_4 _p_ idxp_, int_4 _p_ idxq_, int_4 _p_ perm_, int_4 _p_
545 givptr_, int_4 _p_ givcol_, int_4 _p_ ldgcol_, real_8 _p_ givnum_, int_4 _p_ ldgnum_, real_8 _p_ c_, real_8 _p_ s_,
546 int_4 _p_ info_);
547 prototype int_4 _dlasd8 (int_4 _p_ icompq_, int_4 _p_ k_, real_8 _p_ d_, real_8 _p_ z_, real_8 _p_ vf_, real_8 _p_ vl_,
548 real_8 _p_ difl_, real_8 _p_ difr_, int_4 _p_ lddifr_, real_8 _p_ dsigma_, real_8 _p_ work_, int_4 _p_ info_);
549 prototype int_4 _dlasda (int_4 _p_ icompq_, int_4 _p_ smlsiz_, int_4 _p_ n_, int_4 _p_ sqre_, real_8 _p_ d_, real_8 _p_
550 e_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ k_, real_8 _p_ difl_, real_8 _p_ difr_, real_8 _p_ z_,
551 real_8 _p_ poles_, int_4 _p_ givptr_, int_4 _p_ givcol_, int_4 _p_ ldgcol_, int_4 _p_ perm_, real_8 _p_ givnum_, real_8
552 _p_ c_, real_8 _p_ s_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ info_);
553 prototype int_4 _dlasdq (char _p_ uplo_, int_4 _p_ sqre_, int_4 _p_ n_, int_4 _p_ ncvt_, int_4 _p_ nru_, int_4 _p_ ncc_
554 , real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ vt_, int_4 _p_ ldvt_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ c_, int_4
555 _p_ ldc_, real_8 _p_ work_, int_4 _p_ info_);
556 prototype int_4 _dlasdt (int_4 _p_ n_, int_4 _p_ lvl_, int_4 _p_ nd_, int_4 _p_ inode_, int_4 _p_ ndiml_, int_4 _p_
557 ndimr_, int_4 _p_ msub_);
558 prototype int_4 _dlaset (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ beta_, real_8 _p_ a_
559 , int_4 _p_ lda_);
560 prototype int_4 _dlasq1 (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ work_, int_4 _p_ info_);
561 prototype int_4 _dlasq2 (int_4 _p_ n_, real_8 _p_ z_, int_4 _p_ info_);
562 prototype int_4 _dlasq3 (int_4 _p_ i0_, int_4 _p_ n0_, real_8 _p_ z_, int_4 _p_ pp_, real_8 _p_ dmin_, real_8 _p_
563 sigma_, real_8 _p_ desig_, real_8 _p_ qmax_, int_4 _p_ nfail_, int_4 _p_ iter_, int_4 _p_ ndiv_, logical_4 _p_ ieee_,
564 int_4 _p_ ttype_, real_8 _p_ dmin1_, real_8 _p_ dmin2_, real_8 _p_ dn_, real_8 _p_ dn1_, real_8 _p_ dn2_, real_8 _p_ g_
565 , real_8 _p_ tau_);
566 prototype int_4 _dlasq4 (int_4 _p_ i0_, int_4 _p_ n0_, real_8 _p_ z_, int_4 _p_ pp_, int_4 _p_ n0in_, real_8 _p_ dmin_,
567 real_8 _p_ dmin1_, real_8 _p_ dmin2_, real_8 _p_ dn_, real_8 _p_ dn1_, real_8 _p_ dn2_, real_8 _p_ tau_, int_4 _p_
568 ttype_, real_8 _p_ g_);
569 prototype int_4 _dlasq5 (int_4 _p_ i0_, int_4 _p_ n0_, real_8 _p_ z_, int_4 _p_ pp_, real_8 _p_ tau_, real_8 _p_ sigma_
570 , real_8 _p_ dmin_, real_8 _p_ dmin1_, real_8 _p_ dmin2_, real_8 _p_ dn_, real_8 _p_ dnm1_, real_8 _p_ dnm2_, logical_4
571 _p_ ieee_, real_8 _p_ eps_);
572 prototype int_4 _dlasq6 (int_4 _p_ i0_, int_4 _p_ n0_, real_8 _p_ z_, int_4 _p_ pp_, real_8 _p_ dmin_, real_8 _p_
573 dmin1_, real_8 _p_ dmin2_, real_8 _p_ dn_, real_8 _p_ dnm1_, real_8 _p_ dnm2_);
574 prototype int_4 _dlasr (char _p_ side_, char _p_ pivot_, char _p_ direct_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ c_,
575 real_8 _p_ s_, real_8 _p_ a_, int_4 _p_ lda_);
576 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00015
577
578 prototype int_4 _dlasrt (char _p_ id_, int_4 _p_ n_, real_8 _p_ d_, int_4 _p_ info_);
579 prototype int_4 _dlassq (int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ scale_, real_8 _p_ sumsq_);
580 prototype int_4 _dlasv2 (real_8 _p_ f_, real_8 _p_ g_, real_8 _p_ h_, real_8 _p_ ssmin_, real_8 _p_ ssmax_, real_8 _p_
581 snr_, real_8 _p_ csr_, real_8 _p_ snl_, real_8 _p_ csl_);
582 prototype int_4 _dlaswp (int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ k1_, int_4 _p_ k2_, int_4 _p_ ipiv_,
583 int_4 _p_ incx_);
584 prototype int_4 _dlatrs (char _p_ uplo_, char _p_ trans_, char _p_ diag_, char _p_ normin_, int_4 _p_ n_, real_8 _p_ a_
585 , int_4 _p_ lda_, real_8 _p_ x_, real_8 _p_ scale_, real_8 _p_ cnorm_, int_4 _p_ info_);
586 prototype int_4 _dorg2r (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_,
587 real_8 _p_ work_, int_4 _p_ info_);
588 prototype int_4 _dorgbr (char _p_ vect_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_,
589 real_8 _p_ tau_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_);
590 prototype int_4 _dorgl2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_,
591 real_8 _p_ work_, int_4 _p_ info_);
592 prototype int_4 _dorglq (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_,
593 real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_);
594 prototype int_4 _dorgqr (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_,
595 real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_);
596 prototype int_4 _dorm2r (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_,
597 int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_, int_4 _p_ info_);
598 prototype int_4 _dormbr (char _p_ vect_, char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_,
599 real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_, int_4 _p_ lwork_,
600 int_4 _p_ info_);
601 prototype int_4 _dorml2 (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_,
602 int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_, int_4 _p_ info_);
603 prototype int_4 _dormlq (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_,
604 int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_);
605 prototype int_4 _dormqr (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_,
606 int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_);
607 prototype int_4 _dpocon (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ anorm_, real_8 _p_
608 rcond_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ info_);
609 prototype int_4 _drscl (int_4 _p_ n_, real_8 _p_ sa_, real_8 _p_ sx_, int_4 _p_ incx_);
610 prototype int_4 _ieeeck (int_4 _p_ ispec_, real_4 _p_ zero_, real_4 _p_ one_);
611 prototype int_4 _iladlc (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_);
612 prototype int_4 _iladlr (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_);
613 prototype int_4 _ilaenv (int_4 _p_ ispec_, char _p_ name_, char _p_ opts_, int_4 _p_ n1_, int_4 _p_ n2_, int_4 _p_ n3_,
614 int_4 _p_ n4_);
615 prototype int_4 _iparmq (int_4 _p_ ispec_, char _p_ name_, char _p_ opts_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_
616 , int_4 _p_ lwork_);
617
618
619
620
621
622
623
624
625
626
627
628 // VIF THU 20 NOV 2025 22:20:22 ** GLOBAL SCOPE ** PROTOTYPES PAGE 00016
629
630
631
632 // VIF THU 20 NOV 2025 22:20:22 ** DBDSDC ** DBDSDC PAGE 00017
633
634 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
635 // S S U U B B R R O O U U T I NN N E
636 // S U U B B R R O O U U T I N N N E
637 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
638 // S U U B B R R O O U U T I N N N E
639 // S S U U B B R R O O U U T I N NN E
640 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
641
642 // DDDDDD BBBBBB DDDDDD SSSSS DDDDDD CCCCC
643 // D D B B D D S S D D C C
644 // D D B B D D S D D C
645 // D D BBBBBB D D SSSSS D D C
646 // D D B B D D S D D C
647 // D D B B D D S S D D C C
648 // DDDDDD BBBBBB DDDDDD SSSSS DDDDDD CCCCC
649
650
651 // VIF THU 20 NOV 2025 22:20:22 ** DBDSDC ** DIAGNOSTICS PAGE 00018
652
653
654 // VIF THU 20 NOV 2025 22:20:22 ** DBDSDC ** GENERATED CODE PAGE 00019
655
656 int_4 _dbdsdc (char _p_ uplo_, char _p_ compq_, int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ u_, int_4 _p_
657 ldu_, real_8 _p_ vt_, int_4 _p_ ldvt_, real_8 _p_ q_, int_4 _p_ iq_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_
658 info_)
659 { // ** body not listed **
900 }
901
902 // VIF THU 20 NOV 2025 22:20:22 ** DBDSQR ** DBDSQR PAGE 00024
903
904 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
905 // S S U U B B R R O O U U T I NN N E
906 // S U U B B R R O O U U T I N N N E
907 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
908 // S U U B B R R O O U U T I N N N E
909 // S S U U B B R R O O U U T I N NN E
910 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
911
912 // DDDDDD BBBBBB DDDDDD SSSSS QQQQQ RRRRRR
913 // D D B B D D S S Q Q R R
914 // D D B B D D S Q Q R R
915 // D D BBBBBB D D SSSSS Q Q RRRRRR
916 // D D B B D D S Q Q Q R R
917 // D D B B D D S S Q Q R R
918 // DDDDDD BBBBBB DDDDDD SSSSS QQQQ Q R R
919
920
921 // VIF THU 20 NOV 2025 22:20:22 ** DBDSQR ** DIAGNOSTICS PAGE 00025
922
923
924 // VIF THU 20 NOV 2025 22:20:22 ** DBDSQR ** GENERATED CODE PAGE 00026
925
926 int_4 _dbdsqr (char _p_ uplo_, int_4 _p_ n_, int_4 _p_ ncvt_, int_4 _p_ nru_, int_4 _p_ ncc_, real_8 _p_ d_, real_8 _p_
927 e_, real_8 _p_ vt_, int_4 _p_ ldvt_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_,
928 int_4 _p_ info_)
929 { // ** body not listed **
1388 }
1389
1390 // VIF THU 20 NOV 2025 22:20:22 ** DCOMBSSQ ** DCOMBSSQ PAGE 00035
1391
1392 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1393 // S S U U B B R R O O U U T I NN N E
1394 // S U U B B R R O O U U T I N N N E
1395 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1396 // S U U B B R R O O U U T I N N N E
1397 // S S U U B B R R O O U U T I N NN E
1398 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1399
1400 // DDDDDD CCCCC OOOOO M M BBBBBB SSSSS SSSSS QQQQQ
1401 // D D C C O O MM MM B B S S S S Q Q
1402 // D D C O O M M M M B B S S Q Q
1403 // D D C O O M M M BBBBBB SSSSS SSSSS Q Q
1404 // D D C O O M M B B S S Q Q Q
1405 // D D C C O O M M B B S S S S Q Q
1406 // DDDDDD CCCCC OOOOO M M BBBBBB SSSSS SSSSS QQQQ Q
1407
1408
1409 // VIF THU 20 NOV 2025 22:20:22 ** DCOMBSSQ ** DIAGNOSTICS PAGE 00036
1410
1411
1412 // VIF THU 20 NOV 2025 22:20:22 ** DCOMBSSQ ** GENERATED CODE PAGE 00037
1413
1414 int_4 _dcombssq (real_8 _p_ v1_, real_8 _p_ v2_)
1415 { // ** body not listed **
1431 }
1432
1433 // VIF THU 20 NOV 2025 22:20:22 ** DGEBD2 ** DGEBD2 PAGE 00038
1434
1435 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1436 // S S U U B B R R O O U U T I NN N E
1437 // S U U B B R R O O U U T I N N N E
1438 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1439 // S U U B B R R O O U U T I N N N E
1440 // S S U U B B R R O O U U T I N NN E
1441 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1442
1443 // DDDDDD GGGGG EEEEEEE BBBBBB DDDDDD 22222
1444 // D D G G E B B D D 2 2
1445 // D D G E B B D D 2
1446 // D D G GGGG EEEEE BBBBBB D D 22222
1447 // D D G G E B B D D 2
1448 // D D G G E B B D D 2
1449 // DDDDDD GGGGG EEEEEEE BBBBBB DDDDDD 2222222
1450
1451
1452 // VIF THU 20 NOV 2025 22:20:22 ** DGEBD2 ** DIAGNOSTICS PAGE 00039
1453
1454
1455 // VIF THU 20 NOV 2025 22:20:22 ** DGEBD2 ** GENERATED CODE PAGE 00040
1456
1457 int_4 _dgebd2 (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_
1458 tauq_, real_8 _p_ taup_, real_8 _p_ work_, int_4 _p_ info_)
1459 { // ** body not listed **
1534 }
1535
1536 // VIF THU 20 NOV 2025 22:20:22 ** DGEBRD ** DGEBRD PAGE 00042
1537
1538 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1539 // S S U U B B R R O O U U T I NN N E
1540 // S U U B B R R O O U U T I N N N E
1541 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1542 // S U U B B R R O O U U T I N N N E
1543 // S S U U B B R R O O U U T I N NN E
1544 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1545
1546 // DDDDDD GGGGG EEEEEEE BBBBBB RRRRRR DDDDDD
1547 // D D G G E B B R R D D
1548 // D D G E B B R R D D
1549 // D D G GGGG EEEEE BBBBBB RRRRRR D D
1550 // D D G G E B B R R D D
1551 // D D G G E B B R R D D
1552 // DDDDDD GGGGG EEEEEEE BBBBBB R R DDDDDD
1553
1554
1555 // VIF THU 20 NOV 2025 22:20:22 ** DGEBRD ** DIAGNOSTICS PAGE 00043
1556
1557
1558 // VIF THU 20 NOV 2025 22:20:22 ** DGEBRD ** GENERATED CODE PAGE 00044
1559
1560 int_4 _dgebrd (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_
1561 tauq_, real_8 _p_ taup_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_)
1562 { // ** body not listed **
1654 }
1655
1656 // VIF THU 20 NOV 2025 22:20:22 ** DGEJSV ** DGEJSV PAGE 00046
1657
1658 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1659 // S S U U B B R R O O U U T I NN N E
1660 // S U U B B R R O O U U T I N N N E
1661 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1662 // S U U B B R R O O U U T I N N N E
1663 // S S U U B B R R O O U U T I N NN E
1664 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1665
1666 // DDDDDD GGGGG EEEEEEE J SSSSS V V
1667 // D D G G E J S S V V
1668 // D D G E J S V V
1669 // D D G GGGG EEEEE J SSSSS V V
1670 // D D G G E J J S V V
1671 // D D G G E J J S S V V
1672 // DDDDDD GGGGG EEEEEEE JJJJJ SSSSS V
1673
1674
1675 // VIF THU 20 NOV 2025 22:20:22 ** DGEJSV ** DIAGNOSTICS PAGE 00047
1676
1677
1678 // VIF THU 20 NOV 2025 22:20:22 ** DGEJSV ** GENERATED CODE PAGE 00048
1679
1680 int_4 _dgejsv (char _p_ joba_, char _p_ jobu_, char _p_ jobv_, char _p_ jobr_, char _p_ jobt_, char _p_ jobp_, int_4
1681 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ sva_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ v_,
1682 int_4 _p_ ldv_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ info_)
1683 { // ** body not listed **
2704 }
2705
2706 // VIF THU 20 NOV 2025 22:20:22 ** DGELQ2 ** DGELQ2 PAGE 00068
2707
2708 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2709 // S S U U B B R R O O U U T I NN N E
2710 // S U U B B R R O O U U T I N N N E
2711 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2712 // S U U B B R R O O U U T I N N N E
2713 // S S U U B B R R O O U U T I N NN E
2714 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2715
2716 // DDDDDD GGGGG EEEEEEE L QQQQQ 22222
2717 // D D G G E L Q Q 2 2
2718 // D D G E L Q Q 2
2719 // D D G GGGG EEEEE L Q Q 22222
2720 // D D G G E L Q Q Q 2
2721 // D D G G E L Q Q 2
2722 // DDDDDD GGGGG EEEEEEE LLLLLLL QQQQ Q 2222222
2723
2724
2725 // VIF THU 20 NOV 2025 22:20:22 ** DGELQ2 ** DIAGNOSTICS PAGE 00069
2726
2727
2728 // VIF THU 20 NOV 2025 22:20:22 ** DGELQ2 ** GENERATED CODE PAGE 00070
2729
2730 int_4 _dgelq2 (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ work_, int_4 _p_
2731 info_)
2732 { // ** body not listed **
2768 }
2769
2770 // VIF THU 20 NOV 2025 22:20:22 ** DGELQF ** DGELQF PAGE 00071
2771
2772 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2773 // S S U U B B R R O O U U T I NN N E
2774 // S U U B B R R O O U U T I N N N E
2775 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2776 // S U U B B R R O O U U T I N N N E
2777 // S S U U B B R R O O U U T I N NN E
2778 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2779
2780 // DDDDDD GGGGG EEEEEEE L QQQQQ FFFFFFF
2781 // D D G G E L Q Q F
2782 // D D G E L Q Q F
2783 // D D G GGGG EEEEE L Q Q FFFFF
2784 // D D G G E L Q Q Q F
2785 // D D G G E L Q Q F
2786 // DDDDDD GGGGG EEEEEEE LLLLLLL QQQQ Q F
2787
2788
2789 // VIF THU 20 NOV 2025 22:20:22 ** DGELQF ** DIAGNOSTICS PAGE 00072
2790
2791
2792 // VIF THU 20 NOV 2025 22:20:22 ** DGELQF ** GENERATED CODE PAGE 00073
2793
2794 int_4 _dgelqf (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ work_, int_4 _p_
2795 lwork_, int_4 _p_ info_)
2796 { // ** body not listed **
2873 }
2874
2875 // VIF THU 20 NOV 2025 22:20:22 ** DGELSD ** DGELSD PAGE 00075
2876
2877 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2878 // S S U U B B R R O O U U T I NN N E
2879 // S U U B B R R O O U U T I N N N E
2880 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2881 // S U U B B R R O O U U T I N N N E
2882 // S S U U B B R R O O U U T I N NN E
2883 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2884
2885 // DDDDDD GGGGG EEEEEEE L SSSSS DDDDDD
2886 // D D G G E L S S D D
2887 // D D G E L S D D
2888 // D D G GGGG EEEEE L SSSSS D D
2889 // D D G G E L S D D
2890 // D D G G E L S S D D
2891 // DDDDDD GGGGG EEEEEEE LLLLLLL SSSSS DDDDDD
2892
2893
2894 // VIF THU 20 NOV 2025 22:20:22 ** DGELSD ** DIAGNOSTICS PAGE 00076
2895
2896
2897 // VIF THU 20 NOV 2025 22:20:22 ** DGELSD ** GENERATED CODE PAGE 00077
2898
2899 int_4 _dgelsd (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_
2900 ldb_, real_8 _p_ s_, real_8 _p_ rcond_, int_4 _p_ rank_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4
2901 _p_ info_)
2902 { // ** body not listed **
3153 }
3154
3155 // VIF THU 20 NOV 2025 22:20:22 ** DGELSS ** DGELSS PAGE 00082
3156
3157 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3158 // S S U U B B R R O O U U T I NN N E
3159 // S U U B B R R O O U U T I N N N E
3160 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3161 // S U U B B R R O O U U T I N N N E
3162 // S S U U B B R R O O U U T I N NN E
3163 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3164
3165 // DDDDDD GGGGG EEEEEEE L SSSSS SSSSS
3166 // D D G G E L S S S S
3167 // D D G E L S S
3168 // D D G GGGG EEEEE L SSSSS SSSSS
3169 // D D G G E L S S
3170 // D D G G E L S S S S
3171 // DDDDDD GGGGG EEEEEEE LLLLLLL SSSSS SSSSS
3172
3173
3174 // VIF THU 20 NOV 2025 22:20:22 ** DGELSS ** DIAGNOSTICS PAGE 00083
3175
3176
3177 // VIF THU 20 NOV 2025 22:20:22 ** DGELSS ** GENERATED CODE PAGE 00084
3178
3179 int_4 _dgelss (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_
3180 ldb_, real_8 _p_ s_, real_8 _p_ rcond_, int_4 _p_ rank_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_)
3181 { // ** body not listed **
3555 }
3556
3557 // VIF THU 20 NOV 2025 22:20:22 ** DGEQP3 ** DGEQP3 PAGE 00092
3558
3559 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3560 // S S U U B B R R O O U U T I NN N E
3561 // S U U B B R R O O U U T I N N N E
3562 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3563 // S U U B B R R O O U U T I N N N E
3564 // S S U U B B R R O O U U T I N NN E
3565 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3566
3567 // DDDDDD GGGGG EEEEEEE QQQQQ PPPPPP 33333
3568 // D D G G E Q Q P P 3 3
3569 // D D G E Q Q P P 3
3570 // D D G GGGG EEEEE Q Q PPPPPP 33333
3571 // D D G G E Q Q Q P 3
3572 // D D G G E Q Q P 3 3
3573 // DDDDDD GGGGG EEEEEEE QQQQ Q P 33333
3574
3575
3576 // VIF THU 20 NOV 2025 22:20:22 ** DGEQP3 ** DIAGNOSTICS PAGE 00093
3577
3578
3579 // VIF THU 20 NOV 2025 22:20:22 ** DGEQP3 ** GENERATED CODE PAGE 00094
3580
3581 int_4 _dgeqp3 (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ jpvt_, real_8 _p_ tau_, real_8 _p_
3582 work_, int_4 _p_ lwork_, int_4 _p_ info_)
3583 { // ** body not listed **
3706 }
3707
3708 // VIF THU 20 NOV 2025 22:20:22 ** DGEQR2 ** DGEQR2 PAGE 00097
3709
3710 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3711 // S S U U B B R R O O U U T I NN N E
3712 // S U U B B R R O O U U T I N N N E
3713 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3714 // S U U B B R R O O U U T I N N N E
3715 // S S U U B B R R O O U U T I N NN E
3716 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3717
3718 // DDDDDD GGGGG EEEEEEE QQQQQ RRRRRR 22222
3719 // D D G G E Q Q R R 2 2
3720 // D D G E Q Q R R 2
3721 // D D G GGGG EEEEE Q Q RRRRRR 22222
3722 // D D G G E Q Q Q R R 2
3723 // D D G G E Q Q R R 2
3724 // DDDDDD GGGGG EEEEEEE QQQQ Q R R 2222222
3725
3726
3727 // VIF THU 20 NOV 2025 22:20:22 ** DGEQR2 ** DIAGNOSTICS PAGE 00098
3728
3729
3730 // VIF THU 20 NOV 2025 22:20:22 ** DGEQR2 ** GENERATED CODE PAGE 00099
3731
3732 int_4 _dgeqr2 (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ work_, int_4 _p_
3733 info_)
3734 { // ** body not listed **
3770 }
3771
3772 // VIF THU 20 NOV 2025 22:20:22 ** DGEQRF ** DGEQRF PAGE 00100
3773
3774 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3775 // S S U U B B R R O O U U T I NN N E
3776 // S U U B B R R O O U U T I N N N E
3777 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3778 // S U U B B R R O O U U T I N N N E
3779 // S S U U B B R R O O U U T I N NN E
3780 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3781
3782 // DDDDDD GGGGG EEEEEEE QQQQQ RRRRRR FFFFFFF
3783 // D D G G E Q Q R R F
3784 // D D G E Q Q R R F
3785 // D D G GGGG EEEEE Q Q RRRRRR FFFFF
3786 // D D G G E Q Q Q R R F
3787 // D D G G E Q Q R R F
3788 // DDDDDD GGGGG EEEEEEE QQQQ Q R R F
3789
3790
3791 // VIF THU 20 NOV 2025 22:20:22 ** DGEQRF ** DIAGNOSTICS PAGE 00101
3792
3793
3794 // VIF THU 20 NOV 2025 22:20:22 ** DGEQRF ** GENERATED CODE PAGE 00102
3795
3796 int_4 _dgeqrf (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ work_, int_4 _p_
3797 lwork_, int_4 _p_ info_)
3798 { // ** body not listed **
3875 }
3876
3877 // VIF THU 20 NOV 2025 22:20:22 ** DGESDD ** DGESDD PAGE 00104
3878
3879 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3880 // S S U U B B R R O O U U T I NN N E
3881 // S U U B B R R O O U U T I N N N E
3882 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3883 // S U U B B R R O O U U T I N N N E
3884 // S S U U B B R R O O U U T I N NN E
3885 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3886
3887 // DDDDDD GGGGG EEEEEEE SSSSS DDDDDD DDDDDD
3888 // D D G G E S S D D D D
3889 // D D G E S D D D D
3890 // D D G GGGG EEEEE SSSSS D D D D
3891 // D D G G E S D D D D
3892 // D D G G E S S D D D D
3893 // DDDDDD GGGGG EEEEEEE SSSSS DDDDDD DDDDDD
3894
3895
3896 // VIF THU 20 NOV 2025 22:20:22 ** DGESDD ** DIAGNOSTICS PAGE 00105
3897
3898
3899 // VIF THU 20 NOV 2025 22:20:22 ** DGESDD ** GENERATED CODE PAGE 00106
3900
3901 int_4 _dgesdd (char _p_ jobz_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ s_, real_8 _p_ u_,
3902 int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ ldvt_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ info_)
3903 { // ** body not listed **
4574 }
4575 // VIF THU 20 NOV 2025 22:20:22 ** DGESDD ** GENERATED CODE PAGE 00119
4576
4577
4578 // VIF THU 20 NOV 2025 22:20:22 ** DGESVD ** DGESVD PAGE 00120
4579
4580 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4581 // S S U U B B R R O O U U T I NN N E
4582 // S U U B B R R O O U U T I N N N E
4583 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4584 // S U U B B R R O O U U T I N N N E
4585 // S S U U B B R R O O U U T I N NN E
4586 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4587
4588 // DDDDDD GGGGG EEEEEEE SSSSS V V DDDDDD
4589 // D D G G E S S V V D D
4590 // D D G E S V V D D
4591 // D D G GGGG EEEEE SSSSS V V D D
4592 // D D G G E S V V D D
4593 // D D G G E S S V V D D
4594 // DDDDDD GGGGG EEEEEEE SSSSS V DDDDDD
4595
4596
4597 // VIF THU 20 NOV 2025 22:20:22 ** DGESVD ** DIAGNOSTICS PAGE 00121
4598
4599
4600 // VIF THU 20 NOV 2025 22:20:22 ** DGESVD ** GENERATED CODE PAGE 00122
4601
4602 int_4 _dgesvd (char _p_ jobu_, char _p_ jobvt_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_
4603 s_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ ldvt_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_
4604 )
4605 { // ** body not listed **
6267 }
6268
6269 // VIF THU 20 NOV 2025 22:20:22 ** DGESVDQ ** DGESVDQ PAGE 00155
6270
6271 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6272 // S S U U B B R R O O U U T I NN N E
6273 // S U U B B R R O O U U T I N N N E
6274 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6275 // S U U B B R R O O U U T I N N N E
6276 // S S U U B B R R O O U U T I N NN E
6277 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6278
6279 // DDDDDD GGGGG EEEEEEE SSSSS V V DDDDDD QQQQQ
6280 // D D G G E S S V V D D Q Q
6281 // D D G E S V V D D Q Q
6282 // D D G GGGG EEEEE SSSSS V V D D Q Q
6283 // D D G G E S V V D D Q Q Q
6284 // D D G G E S S V V D D Q Q
6285 // DDDDDD GGGGG EEEEEEE SSSSS V DDDDDD QQQQ Q
6286
6287
6288 // VIF THU 20 NOV 2025 22:20:22 ** DGESVDQ ** DIAGNOSTICS PAGE 00156
6289
6290
6291 // VIF THU 20 NOV 2025 22:20:22 ** DGESVDQ ** GENERATED CODE PAGE 00157
6292
6293 int_4 _dgesvdq (char _p_ joba_, char _p_ jobp_, char _p_ jobr_, char _p_ jobu_, char _p_ jobv_, int_4 _p_ m_, int_4 _p_
6294 n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ s_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ v_, int_4 _p_ ldv_, int_4
6295 _p_ numrank_, int_4 _p_ iwork_, int_4 _p_ liwork_, real_8 _p_ work_, int_4 _p_ lwork_, real_8 _p_ rwork_, int_4 _p_
6296 lrwork_, int_4 _p_ info_)
6297 { // ** body not listed **
7157 }
7158
7159 // VIF THU 20 NOV 2025 22:20:22 ** DGESVJ ** DGESVJ PAGE 00174
7160
7161 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7162 // S S U U B B R R O O U U T I NN N E
7163 // S U U B B R R O O U U T I N N N E
7164 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7165 // S U U B B R R O O U U T I N N N E
7166 // S S U U B B R R O O U U T I N NN E
7167 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7168
7169 // DDDDDD GGGGG EEEEEEE SSSSS V V J
7170 // D D G G E S S V V J
7171 // D D G E S V V J
7172 // D D G GGGG EEEEE SSSSS V V J
7173 // D D G G E S V V J J
7174 // D D G G E S S V V J J
7175 // DDDDDD GGGGG EEEEEEE SSSSS V JJJJJ
7176
7177
7178 // VIF THU 20 NOV 2025 22:20:22 ** DGESVJ ** DIAGNOSTICS PAGE 00175
7179
7180
7181 // VIF THU 20 NOV 2025 22:20:22 ** DGESVJ ** GENERATED CODE PAGE 00176
7182
7183 int_4 _dgesvj (char _p_ joba_, char _p_ jobu_, char _p_ jobv_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_
7184 lda_, real_8 _p_ sva_, int_4 _p_ mv_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_
7185 info_)
7186 { // ** body not listed **
8116 }
8117 // VIF THU 20 NOV 2025 22:20:22 ** DGESVJ ** GENERATED CODE PAGE 00194
8118
8119
8120 // VIF THU 20 NOV 2025 22:20:22 ** DGSVJ0 ** DGSVJ0 PAGE 00195
8121
8122 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8123 // S S U U B B R R O O U U T I NN N E
8124 // S U U B B R R O O U U T I N N N E
8125 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8126 // S U U B B R R O O U U T I N N N E
8127 // S S U U B B R R O O U U T I N NN E
8128 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8129
8130 // DDDDDD GGGGG SSSSS V V J 000
8131 // D D G G S S V V J 0 0
8132 // D D G S V V J 0 0
8133 // D D G GGGG SSSSS V V J 0 0
8134 // D D G G S V V J J 0 0
8135 // D D G G S S V V J J 0 0
8136 // DDDDDD GGGGG SSSSS V JJJJJ 000
8137
8138
8139 // VIF THU 20 NOV 2025 22:20:22 ** DGSVJ0 ** DIAGNOSTICS PAGE 00196
8140
8141
8142 // VIF THU 20 NOV 2025 22:20:22 ** DGSVJ0 ** GENERATED CODE PAGE 00197
8143
8144 int_4 _dgsvj0 (char _p_ jobv_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ d_, real_8 _p_
8145 sva_, int_4 _p_ mv_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ eps_, real_8 _p_ sfmin_, real_8 _p_ tol_, int_4 _p_
8146 nsweep_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_)
8147 { // ** body not listed **
8798 }
8799
8800 // VIF THU 20 NOV 2025 22:20:22 ** DGSVJ1 ** DGSVJ1 PAGE 00210
8801
8802 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8803 // S S U U B B R R O O U U T I NN N E
8804 // S U U B B R R O O U U T I N N N E
8805 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8806 // S U U B B R R O O U U T I N N N E
8807 // S S U U B B R R O O U U T I N NN E
8808 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8809
8810 // DDDDDD GGGGG SSSSS V V J 1
8811 // D D G G S S V V J 11
8812 // D D G S V V J 1 1
8813 // D D G GGGG SSSSS V V J 1
8814 // D D G G S V V J J 1
8815 // D D G G S S V V J J 1
8816 // DDDDDD GGGGG SSSSS V JJJJJ 11111
8817
8818
8819 // VIF THU 20 NOV 2025 22:20:22 ** DGSVJ1 ** DIAGNOSTICS PAGE 00211
8820
8821
8822 // VIF THU 20 NOV 2025 22:20:22 ** DGSVJ1 ** GENERATED CODE PAGE 00212
8823
8824 int_4 _dgsvj1 (char _p_ jobv_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ n1_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ d_,
8825 real_8 _p_ sva_, int_4 _p_ mv_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ eps_, real_8 _p_ sfmin_, real_8 _p_ tol_,
8826 int_4 _p_ nsweep_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_)
8827 { // ** body not listed **
9235 }
9236
9237 // VIF THU 20 NOV 2025 22:20:22 ** DISNAN ** DISNAN PAGE 00220
9238
9239 // L OOOOO GGGGG III CCCCC A L 4
9240 // L O O G G I C C A A L * * 4 4
9241 // L O O G I C A A L * * 4 4
9242 // L O O G GGGG I C A A L ******* 4444444
9243 // L O O G G I C AAAAAAA L * * 4
9244 // L O O G G I C C A A L * * 4
9245 // LLLLLLL OOOOO GGGGG III CCCCC A A LLLLLLL 4
9246
9247 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
9248 // F U U NN N C C T I O O NN N
9249 // F U U N N N C T I O O N N N
9250 // FFFFF U U N N N C T I O O N N N
9251 // F U U N N N C T I O O N N N
9252 // F U U N NN C C T I O O N NN
9253 // F UUUUU N N CCCCC T III OOOOO N N
9254
9255 // DDDDDD III SSSSS N N A N N
9256 // D D I S S NN N A A NN N
9257 // D D I S N N N A A N N N
9258 // D D I SSSSS N N N A A N N N
9259 // D D I S N N N AAAAAAA N N N
9260 // D D I S S N NN A A N NN
9261 // DDDDDD III SSSSS N N A A N N
9262
9263
9264 // VIF THU 20 NOV 2025 22:20:22 ** DISNAN ** DIAGNOSTICS PAGE 00221
9265
9266
9267 // VIF THU 20 NOV 2025 22:20:22 ** DISNAN ** GENERATED CODE PAGE 00222
9268
9269 logical_4 _disnan (real_8 _p_ din_)
9270 { // ** body not listed **
9275 }
9276
9277 // VIF THU 20 NOV 2025 22:20:22 ** DLABAD ** DLABAD PAGE 00223
9278
9279 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9280 // S S U U B B R R O O U U T I NN N E
9281 // S U U B B R R O O U U T I N N N E
9282 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9283 // S U U B B R R O O U U T I N N N E
9284 // S S U U B B R R O O U U T I N NN E
9285 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9286
9287 // DDDDDD L A BBBBBB A DDDDDD
9288 // D D L A A B B A A D D
9289 // D D L A A B B A A D D
9290 // D D L A A BBBBBB A A D D
9291 // D D L AAAAAAA B B AAAAAAA D D
9292 // D D L A A B B A A D D
9293 // DDDDDD LLLLLLL A A BBBBBB A A DDDDDD
9294
9295
9296 // VIF THU 20 NOV 2025 22:20:22 ** DLABAD ** DIAGNOSTICS PAGE 00224
9297
9298
9299 // VIF THU 20 NOV 2025 22:20:22 ** DLABAD ** GENERATED CODE PAGE 00225
9300
9301 int_4 _dlabad (real_8 _p_ small_, real_8 _p_ large_)
9302 { // ** body not listed **
9311 }
9312
9313 // VIF THU 20 NOV 2025 22:20:22 ** DLABRD ** DLABRD PAGE 00226
9314
9315 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9316 // S S U U B B R R O O U U T I NN N E
9317 // S U U B B R R O O U U T I N N N E
9318 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9319 // S U U B B R R O O U U T I N N N E
9320 // S S U U B B R R O O U U T I N NN E
9321 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9322
9323 // DDDDDD L A BBBBBB RRRRRR DDDDDD
9324 // D D L A A B B R R D D
9325 // D D L A A B B R R D D
9326 // D D L A A BBBBBB RRRRRR D D
9327 // D D L AAAAAAA B B R R D D
9328 // D D L A A B B R R D D
9329 // DDDDDD LLLLLLL A A BBBBBB R R DDDDDD
9330
9331
9332 // VIF THU 20 NOV 2025 22:20:22 ** DLABRD ** DIAGNOSTICS PAGE 00227
9333
9334
9335 // VIF THU 20 NOV 2025 22:20:22 ** DLABRD ** GENERATED CODE PAGE 00228
9336
9337 int_4 _dlabrd (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ nb_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ d_, real_8 _p_ e_,
9338 real_8 _p_ tauq_, real_8 _p_ taup_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ y_, int_4 _p_ ldy_)
9339 { // ** body not listed **
9468 }
9469
9470 // VIF THU 20 NOV 2025 22:20:22 ** DLACN2 ** DLACN2 PAGE 00231
9471
9472 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9473 // S S U U B B R R O O U U T I NN N E
9474 // S U U B B R R O O U U T I N N N E
9475 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9476 // S U U B B R R O O U U T I N N N E
9477 // S S U U B B R R O O U U T I N NN E
9478 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9479
9480 // DDDDDD L A CCCCC N N 22222
9481 // D D L A A C C NN N 2 2
9482 // D D L A A C N N N 2
9483 // D D L A A C N N N 22222
9484 // D D L AAAAAAA C N N N 2
9485 // D D L A A C C N NN 2
9486 // DDDDDD LLLLLLL A A CCCCC N N 2222222
9487
9488
9489 // VIF THU 20 NOV 2025 22:20:22 ** DLACN2 ** DIAGNOSTICS PAGE 00232
9490
9491
9492 // VIF THU 20 NOV 2025 22:20:22 ** DLACN2 ** GENERATED CODE PAGE 00233
9493
9494 int_4 _dlacn2 (int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ x_, int_4 _p_ isgn_, real_8 _p_ est_, int_4 _p_ kase_, int_4 _p_
9495 isave_)
9496 { // ** body not listed **
9614 }
9615
9616 // VIF THU 20 NOV 2025 22:20:22 ** DLACPY ** DLACPY PAGE 00236
9617
9618 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9619 // S S U U B B R R O O U U T I NN N E
9620 // S U U B B R R O O U U T I N N N E
9621 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9622 // S U U B B R R O O U U T I N N N E
9623 // S S U U B B R R O O U U T I N NN E
9624 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9625
9626 // DDDDDD L A CCCCC PPPPPP Y Y
9627 // D D L A A C C P P Y Y
9628 // D D L A A C P P Y Y
9629 // D D L A A C PPPPPP Y
9630 // D D L AAAAAAA C P Y
9631 // D D L A A C C P Y
9632 // DDDDDD LLLLLLL A A CCCCC P Y
9633
9634
9635 // VIF THU 20 NOV 2025 22:20:22 ** DLACPY ** DIAGNOSTICS PAGE 00237
9636
9637
9638 // VIF THU 20 NOV 2025 22:20:22 ** DLACPY ** GENERATED CODE PAGE 00238
9639
9640 int_4 _dlacpy (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_
9641 )
9642 { // ** body not listed **
9669 }
9670
9671 // VIF THU 20 NOV 2025 22:20:22 ** DLAED6 ** DLAED6 PAGE 00239
9672
9673 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9674 // S S U U B B R R O O U U T I NN N E
9675 // S U U B B R R O O U U T I N N N E
9676 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9677 // S U U B B R R O O U U T I N N N E
9678 // S S U U B B R R O O U U T I N NN E
9679 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9680
9681 // DDDDDD L A EEEEEEE DDDDDD 66666
9682 // D D L A A E D D 6 6
9683 // D D L A A E D D 6
9684 // D D L A A EEEEE D D 666666
9685 // D D L AAAAAAA E D D 6 6
9686 // D D L A A E D D 6 6
9687 // DDDDDD LLLLLLL A A EEEEEEE DDDDDD 66666
9688
9689
9690 // VIF THU 20 NOV 2025 22:20:22 ** DLAED6 ** DIAGNOSTICS PAGE 00240
9691
9692
9693 // VIF THU 20 NOV 2025 22:20:22 ** DLAED6 ** GENERATED CODE PAGE 00241
9694
9695 int_4 _dlaed6 (int_4 _p_ kniter_, logical_4 _p_ orgati_, real_8 _p_ rho_, real_8 _p_ d_, real_8 _p_ z_, real_8 _p_
9696 finit_, real_8 _p_ tau_, int_4 _p_ info_)
9697 { // ** body not listed **
9912 }
9913
9914 // VIF THU 20 NOV 2025 22:20:22 ** DLAISNAN ** DLAISNAN PAGE 00246
9915
9916 // L OOOOO GGGGG III CCCCC A L 4
9917 // L O O G G I C C A A L * * 4 4
9918 // L O O G I C A A L * * 4 4
9919 // L O O G GGGG I C A A L ******* 4444444
9920 // L O O G G I C AAAAAAA L * * 4
9921 // L O O G G I C C A A L * * 4
9922 // LLLLLLL OOOOO GGGGG III CCCCC A A LLLLLLL 4
9923
9924 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
9925 // F U U NN N C C T I O O NN N
9926 // F U U N N N C T I O O N N N
9927 // FFFFF U U N N N C T I O O N N N
9928 // F U U N N N C T I O O N N N
9929 // F U U N NN C C T I O O N NN
9930 // F UUUUU N N CCCCC T III OOOOO N N
9931
9932 // DDDDDD L A III SSSSS N N A N N
9933 // D D L A A I S S NN N A A NN N
9934 // D D L A A I S N N N A A N N N
9935 // D D L A A I SSSSS N N N A A N N N
9936 // D D L AAAAAAA I S N N N AAAAAAA N N N
9937 // D D L A A I S S N NN A A N NN
9938 // DDDDDD LLLLLLL A A III SSSSS N N A A N N
9939
9940
9941 // VIF THU 20 NOV 2025 22:20:22 ** DLAISNAN ** DIAGNOSTICS PAGE 00247
9942
9943
9944 // VIF THU 20 NOV 2025 22:20:22 ** DLAISNAN ** GENERATED CODE PAGE 00248
9945
9946 logical_4 _dlaisnan (real_8 _p_ din1_, real_8 _p_ din2_)
9947 { // ** body not listed **
9952 }
9953
9954 // VIF THU 20 NOV 2025 22:20:22 ** DLALS0 ** DLALS0 PAGE 00249
9955
9956 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9957 // S S U U B B R R O O U U T I NN N E
9958 // S U U B B R R O O U U T I N N N E
9959 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9960 // S U U B B R R O O U U T I N N N E
9961 // S S U U B B R R O O U U T I N NN E
9962 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9963
9964 // DDDDDD L A L SSSSS 000
9965 // D D L A A L S S 0 0
9966 // D D L A A L S 0 0
9967 // D D L A A L SSSSS 0 0
9968 // D D L AAAAAAA L S 0 0
9969 // D D L A A L S S 0 0
9970 // DDDDDD LLLLLLL A A LLLLLLL SSSSS 000
9971
9972
9973 // VIF THU 20 NOV 2025 22:20:22 ** DLALS0 ** DIAGNOSTICS PAGE 00250
9974
9975
9976 // VIF THU 20 NOV 2025 22:20:22 ** DLALS0 ** GENERATED CODE PAGE 00251
9977
9978 int_4 _dlals0 (int_4 _p_ icompq_, int_4 _p_ nl_, int_4 _p_ nr_, int_4 _p_ sqre_, int_4 _p_ nrhs_, real_8 _p_ b_, int_4
9979 _p_ ldb_, real_8 _p_ bx_, int_4 _p_ ldbx_, int_4 _p_ perm_, int_4 _p_ givptr_, int_4 _p_ givcol_, int_4 _p_ ldgcol_,
9980 real_8 _p_ givnum_, int_4 _p_ ldgnum_, real_8 _p_ poles_, real_8 _p_ difl_, real_8 _p_ difr_, real_8 _p_ z_, int_4 _p_
9981 k_, real_8 _p_ c_, real_8 _p_ s_, real_8 _p_ work_, int_4 _p_ info_)
9982 { // ** body not listed **
10165 }
10166
10167 // VIF THU 20 NOV 2025 22:20:22 ** DLALSA ** DLALSA PAGE 00255
10168
10169 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10170 // S S U U B B R R O O U U T I NN N E
10171 // S U U B B R R O O U U T I N N N E
10172 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10173 // S U U B B R R O O U U T I N N N E
10174 // S S U U B B R R O O U U T I N NN E
10175 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10176
10177 // DDDDDD L A L SSSSS A
10178 // D D L A A L S S A A
10179 // D D L A A L S A A
10180 // D D L A A L SSSSS A A
10181 // D D L AAAAAAA L S AAAAAAA
10182 // D D L A A L S S A A
10183 // DDDDDD LLLLLLL A A LLLLLLL SSSSS A A
10184
10185
10186 // VIF THU 20 NOV 2025 22:20:22 ** DLALSA ** DIAGNOSTICS PAGE 00256
10187
10188
10189 // VIF THU 20 NOV 2025 22:20:22 ** DLALSA ** GENERATED CODE PAGE 00257
10190
10191 int_4 _dlalsa (int_4 _p_ icompq_, int_4 _p_ smlsiz_, int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ b_, int_4 _p_ ldb_,
10192 real_8 _p_ bx_, int_4 _p_ ldbx_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ k_, real_8 _p_ difl_, real_8
10193 _p_ difr_, real_8 _p_ z_, real_8 _p_ poles_, int_4 _p_ givptr_, int_4 _p_ givcol_, int_4 _p_ ldgcol_, int_4 _p_ perm_,
10194 real_8 _p_ givnum_, real_8 _p_ c_, real_8 _p_ s_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ info_)
10195 { // ** body not listed **
10347 }
10348
10349 // VIF THU 20 NOV 2025 22:20:22 ** DLALSD ** DLALSD PAGE 00261
10350
10351 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10352 // S S U U B B R R O O U U T I NN N E
10353 // S U U B B R R O O U U T I N N N E
10354 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10355 // S U U B B R R O O U U T I N N N E
10356 // S S U U B B R R O O U U T I N NN E
10357 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10358
10359 // DDDDDD L A L SSSSS DDDDDD
10360 // D D L A A L S S D D
10361 // D D L A A L S D D
10362 // D D L A A L SSSSS D D
10363 // D D L AAAAAAA L S D D
10364 // D D L A A L S S D D
10365 // DDDDDD LLLLLLL A A LLLLLLL SSSSS DDDDDD
10366
10367
10368 // VIF THU 20 NOV 2025 22:20:22 ** DLALSD ** DIAGNOSTICS PAGE 00262
10369
10370
10371 // VIF THU 20 NOV 2025 22:20:22 ** DLALSD ** GENERATED CODE PAGE 00263
10372
10373 int_4 _dlalsd (char _p_ uplo_, int_4 _p_ smlsiz_, int_4 _p_ n_, int_4 _p_ nrhs_, real_8 _p_ d_, real_8 _p_ e_, real_8
10374 _p_ b_, int_4 _p_ ldb_, real_8 _p_ rcond_, int_4 _p_ rank_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ info_)
10375 { // ** body not listed **
10623 }
10624
10625 // VIF THU 20 NOV 2025 22:20:22 ** DLAMRG ** DLAMRG PAGE 00268
10626
10627 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10628 // S S U U B B R R O O U U T I NN N E
10629 // S U U B B R R O O U U T I N N N E
10630 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10631 // S U U B B R R O O U U T I N N N E
10632 // S S U U B B R R O O U U T I N NN E
10633 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10634
10635 // DDDDDD L A M M RRRRRR GGGGG
10636 // D D L A A MM MM R R G G
10637 // D D L A A M M M M R R G
10638 // D D L A A M M M RRRRRR G GGGG
10639 // D D L AAAAAAA M M R R G G
10640 // D D L A A M M R R G G
10641 // DDDDDD LLLLLLL A A M M R R GGGGG
10642
10643
10644 // VIF THU 20 NOV 2025 22:20:22 ** DLAMRG ** DIAGNOSTICS PAGE 00269
10645
10646
10647 // VIF THU 20 NOV 2025 22:20:22 ** DLAMRG ** GENERATED CODE PAGE 00270
10648
10649 int_4 _dlamrg (int_4 _p_ n1_, int_4 _p_ n2_, real_8 _p_ a_, int_4 _p_ dtrd1_, int_4 _p_ dtrd2_, int_4 _p_ index_)
10650 { // ** body not listed **
10701 }
10702
10703 // VIF THU 20 NOV 2025 22:20:22 ** DLANGE ** DLANGE PAGE 00272
10704
10705 // RRRRRR EEEEEEE A L 88888
10706 // R R E A A L * * 8 8
10707 // R R E A A L * * 8 8
10708 // RRRRRR EEEEE A A L ******* 88888
10709 // R R E AAAAAAA L * * 8 8
10710 // R R E A A L * * 8 8
10711 // R R EEEEEEE A A LLLLLLL 88888
10712
10713 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
10714 // F U U NN N C C T I O O NN N
10715 // F U U N N N C T I O O N N N
10716 // FFFFF U U N N N C T I O O N N N
10717 // F U U N N N C T I O O N N N
10718 // F U U N NN C C T I O O N NN
10719 // F UUUUU N N CCCCC T III OOOOO N N
10720
10721 // DDDDDD L A N N GGGGG EEEEEEE
10722 // D D L A A NN N G G E
10723 // D D L A A N N N G E
10724 // D D L A A N N N G GGGG EEEEE
10725 // D D L AAAAAAA N N N G G E
10726 // D D L A A N NN G G E
10727 // DDDDDD LLLLLLL A A N N GGGGG EEEEEEE
10728
10729
10730 // VIF THU 20 NOV 2025 22:20:22 ** DLANGE ** DIAGNOSTICS PAGE 00273
10731
10732
10733 // VIF THU 20 NOV 2025 22:20:22 ** DLANGE ** GENERATED CODE PAGE 00274
10734
10735 real_8 _dlange (char _p_ norm_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ work_)
10736 { // ** body not listed **
10803 }
10804
10805 // VIF THU 20 NOV 2025 22:20:22 ** DLANST ** DLANST PAGE 00276
10806
10807 // RRRRRR EEEEEEE A L 88888
10808 // R R E A A L * * 8 8
10809 // R R E A A L * * 8 8
10810 // RRRRRR EEEEE A A L ******* 88888
10811 // R R E AAAAAAA L * * 8 8
10812 // R R E A A L * * 8 8
10813 // R R EEEEEEE A A LLLLLLL 88888
10814
10815 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
10816 // F U U NN N C C T I O O NN N
10817 // F U U N N N C T I O O N N N
10818 // FFFFF U U N N N C T I O O N N N
10819 // F U U N N N C T I O O N N N
10820 // F U U N NN C C T I O O N NN
10821 // F UUUUU N N CCCCC T III OOOOO N N
10822
10823 // DDDDDD L A N N SSSSS TTTTTTT
10824 // D D L A A NN N S S T
10825 // D D L A A N N N S T
10826 // D D L A A N N N SSSSS T
10827 // D D L AAAAAAA N N N S T
10828 // D D L A A N NN S S T
10829 // DDDDDD LLLLLLL A A N N SSSSS T
10830
10831
10832 // VIF THU 20 NOV 2025 22:20:22 ** DLANST ** DIAGNOSTICS PAGE 00277
10833
10834
10835 // VIF THU 20 NOV 2025 22:20:22 ** DLANST ** GENERATED CODE PAGE 00278
10836
10837 real_8 _dlanst (char _p_ norm_, int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_)
10838 { // ** body not listed **
10895 }
10896
10897 // VIF THU 20 NOV 2025 22:20:22 ** DLAPMT ** DLAPMT PAGE 00280
10898
10899 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10900 // S S U U B B R R O O U U T I NN N E
10901 // S U U B B R R O O U U T I N N N E
10902 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10903 // S U U B B R R O O U U T I N N N E
10904 // S S U U B B R R O O U U T I N NN E
10905 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10906
10907 // DDDDDD L A PPPPPP M M TTTTTTT
10908 // D D L A A P P MM MM T
10909 // D D L A A P P M M M M T
10910 // D D L A A PPPPPP M M M T
10911 // D D L AAAAAAA P M M T
10912 // D D L A A P M M T
10913 // DDDDDD LLLLLLL A A P M M T
10914
10915
10916 // VIF THU 20 NOV 2025 22:20:22 ** DLAPMT ** DIAGNOSTICS PAGE 00281
10917
10918
10919 // VIF THU 20 NOV 2025 22:20:22 ** DLAPMT ** GENERATED CODE PAGE 00282
10920
10921 int_4 _dlapmt (logical_4 _p_ forwrd_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ k_)
10922 { // ** body not listed **
10982 }
10983
10984 // VIF THU 20 NOV 2025 22:20:22 ** DLAPY2 ** DLAPY2 PAGE 00284
10985
10986 // RRRRRR EEEEEEE A L 88888
10987 // R R E A A L * * 8 8
10988 // R R E A A L * * 8 8
10989 // RRRRRR EEEEE A A L ******* 88888
10990 // R R E AAAAAAA L * * 8 8
10991 // R R E A A L * * 8 8
10992 // R R EEEEEEE A A LLLLLLL 88888
10993
10994 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
10995 // F U U NN N C C T I O O NN N
10996 // F U U N N N C T I O O N N N
10997 // FFFFF U U N N N C T I O O N N N
10998 // F U U N N N C T I O O N N N
10999 // F U U N NN C C T I O O N NN
11000 // F UUUUU N N CCCCC T III OOOOO N N
11001
11002 // DDDDDD L A PPPPPP Y Y 22222
11003 // D D L A A P P Y Y 2 2
11004 // D D L A A P P Y Y 2
11005 // D D L A A PPPPPP Y 22222
11006 // D D L AAAAAAA P Y 2
11007 // D D L A A P Y 2
11008 // DDDDDD LLLLLLL A A P Y 2222222
11009
11010
11011 // VIF THU 20 NOV 2025 22:20:22 ** DLAPY2 ** DIAGNOSTICS PAGE 00285
11012
11013
11014 // VIF THU 20 NOV 2025 22:20:22 ** DLAPY2 ** GENERATED CODE PAGE 00286
11015
11016 real_8 _dlapy2 (real_8 _p_ x_, real_8 _p_ y_)
11017 { // ** body not listed **
11048 }
11049
11050 // VIF THU 20 NOV 2025 22:20:22 ** DLAQP2 ** DLAQP2 PAGE 00287
11051
11052 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11053 // S S U U B B R R O O U U T I NN N E
11054 // S U U B B R R O O U U T I N N N E
11055 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11056 // S U U B B R R O O U U T I N N N E
11057 // S S U U B B R R O O U U T I N NN E
11058 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11059
11060 // DDDDDD L A QQQQQ PPPPPP 22222
11061 // D D L A A Q Q P P 2 2
11062 // D D L A A Q Q P P 2
11063 // D D L A A Q Q PPPPPP 22222
11064 // D D L AAAAAAA Q Q Q P 2
11065 // D D L A A Q Q P 2
11066 // DDDDDD LLLLLLL A A QQQQ Q P 2222222
11067
11068
11069 // VIF THU 20 NOV 2025 22:20:22 ** DLAQP2 ** DIAGNOSTICS PAGE 00288
11070
11071
11072 // VIF THU 20 NOV 2025 22:20:22 ** DLAQP2 ** GENERATED CODE PAGE 00289
11073
11074 int_4 _dlaqp2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ offset_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ jpvt_, real_8
11075 _p_ tau_, real_8 _p_ vn1_, real_8 _p_ vn2_, real_8 _p_ work_)
11076 { // ** body not listed **
11142 }
11143
11144 // VIF THU 20 NOV 2025 22:20:22 ** DLAQPS ** DLAQPS PAGE 00291
11145
11146 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11147 // S S U U B B R R O O U U T I NN N E
11148 // S U U B B R R O O U U T I N N N E
11149 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11150 // S U U B B R R O O U U T I N N N E
11151 // S S U U B B R R O O U U T I N NN E
11152 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11153
11154 // DDDDDD L A QQQQQ PPPPPP SSSSS
11155 // D D L A A Q Q P P S S
11156 // D D L A A Q Q P P S
11157 // D D L A A Q Q PPPPPP SSSSS
11158 // D D L AAAAAAA Q Q Q P S
11159 // D D L A A Q Q P S S
11160 // DDDDDD LLLLLLL A A QQQQ Q P SSSSS
11161
11162
11163 // VIF THU 20 NOV 2025 22:20:22 ** DLAQPS ** DIAGNOSTICS PAGE 00292
11164
11165
11166 // VIF THU 20 NOV 2025 22:20:22 ** DLAQPS ** GENERATED CODE PAGE 00293
11167
11168 int_4 _dlaqps (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ offset_, int_4 _p_ nb_, int_4 _p_ kb_, real_8 _p_ a_, int_4 _p_
11169 lda_, int_4 _p_ jpvt_, real_8 _p_ tau_, real_8 _p_ vn1_, real_8 _p_ vn2_, real_8 _p_ auxv_, real_8 _p_ f_, int_4 _p_
11170 ldf_)
11171 { // ** body not listed **
11279 }
11280
11281 // VIF THU 20 NOV 2025 22:20:22 ** DLARFB ** DLARFB PAGE 00296
11282
11283 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11284 // S S U U B B R R O O U U T I NN N E
11285 // S U U B B R R O O U U T I N N N E
11286 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11287 // S U U B B R R O O U U T I N N N E
11288 // S S U U B B R R O O U U T I N NN E
11289 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11290
11291 // DDDDDD L A RRRRRR FFFFFFF BBBBBB
11292 // D D L A A R R F B B
11293 // D D L A A R R F B B
11294 // D D L A A RRRRRR FFFFF BBBBBB
11295 // D D L AAAAAAA R R F B B
11296 // D D L A A R R F B B
11297 // DDDDDD LLLLLLL A A R R F BBBBBB
11298
11299
11300 // VIF THU 20 NOV 2025 22:20:22 ** DLARFB ** DIAGNOSTICS PAGE 00297
11301
11302
11303 // VIF THU 20 NOV 2025 22:20:22 ** DLARFB ** GENERATED CODE PAGE 00298
11304
11305 int_4 _dlarfb (char _p_ side_, char _p_ trans_, char _p_ direct_, char _p_ storev_, int_4 _p_ m_, int_4 _p_ n_, int_4
11306 _p_ k_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ t_, int_4 _p_ ldt_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_,
11307 int_4 _p_ ldwork_)
11308 { // ** body not listed **
11535 }
11536
11537 // VIF THU 20 NOV 2025 22:20:22 ** DLARF ** DLARF PAGE 00303
11538
11539 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11540 // S S U U B B R R O O U U T I NN N E
11541 // S U U B B R R O O U U T I N N N E
11542 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11543 // S U U B B R R O O U U T I N N N E
11544 // S S U U B B R R O O U U T I N NN E
11545 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11546
11547 // DDDDDD L A RRRRRR FFFFFFF
11548 // D D L A A R R F
11549 // D D L A A R R F
11550 // D D L A A RRRRRR FFFFF
11551 // D D L AAAAAAA R R F
11552 // D D L A A R R F
11553 // DDDDDD LLLLLLL A A R R F
11554
11555
11556 // VIF THU 20 NOV 2025 22:20:22 ** DLARF ** DIAGNOSTICS PAGE 00304
11557
11558
11559 // VIF THU 20 NOV 2025 22:20:22 ** DLARF ** GENERATED CODE PAGE 00305
11560
11561 int_4 _dlarf (char _p_ side_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ v_, int_4 _p_ incv_, real_8 _p_ tau_, real_8 _p_
11562 c_, int_4 _p_ ldc_, real_8 _p_ work_)
11563 { // ** body not listed **
11613 }
11614
11615 // VIF THU 20 NOV 2025 22:20:22 ** DLARFG ** DLARFG PAGE 00307
11616
11617 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11618 // S S U U B B R R O O U U T I NN N E
11619 // S U U B B R R O O U U T I N N N E
11620 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11621 // S U U B B R R O O U U T I N N N E
11622 // S S U U B B R R O O U U T I N NN E
11623 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11624
11625 // DDDDDD L A RRRRRR FFFFFFF GGGGG
11626 // D D L A A R R F G G
11627 // D D L A A R R F G
11628 // D D L A A RRRRRR FFFFF G GGGG
11629 // D D L AAAAAAA R R F G G
11630 // D D L A A R R F G G
11631 // DDDDDD LLLLLLL A A R R F GGGGG
11632
11633
11634 // VIF THU 20 NOV 2025 22:20:22 ** DLARFG ** DIAGNOSTICS PAGE 00308
11635
11636
11637 // VIF THU 20 NOV 2025 22:20:22 ** DLARFG ** GENERATED CODE PAGE 00309
11638
11639 int_4 _dlarfg (int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ tau_)
11640 { // ** body not listed **
11685 }
11686
11687 // VIF THU 20 NOV 2025 22:20:22 ** DLARFT ** DLARFT PAGE 00310
11688
11689 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11690 // S S U U B B R R O O U U T I NN N E
11691 // S U U B B R R O O U U T I N N N E
11692 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11693 // S U U B B R R O O U U T I N N N E
11694 // S S U U B B R R O O U U T I N NN E
11695 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11696
11697 // DDDDDD L A RRRRRR FFFFFFF TTTTTTT
11698 // D D L A A R R F T
11699 // D D L A A R R F T
11700 // D D L A A RRRRRR FFFFF T
11701 // D D L AAAAAAA R R F T
11702 // D D L A A R R F T
11703 // DDDDDD LLLLLLL A A R R F T
11704
11705
11706 // VIF THU 20 NOV 2025 22:20:22 ** DLARFT ** DIAGNOSTICS PAGE 00311
11707
11708
11709 // VIF THU 20 NOV 2025 22:20:22 ** DLARFT ** GENERATED CODE PAGE 00312
11710
11711 int_4 _dlarft (char _p_ direct_, char _p_ storev_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ v_, int_4 _p_ ldv_, real_8
11712 _p_ tau_, real_8 _p_ t_, int_4 _p_ ldt_)
11713 { // ** body not listed **
11830 }
11831
11832 // VIF THU 20 NOV 2025 22:20:22 ** DLARTG ** DLARTG PAGE 00315
11833
11834 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11835 // S S U U B B R R O O U U T I NN N E
11836 // S U U B B R R O O U U T I N N N E
11837 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11838 // S U U B B R R O O U U T I N N N E
11839 // S S U U B B R R O O U U T I N NN E
11840 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11841
11842 // DDDDDD L A RRRRRR TTTTTTT GGGGG
11843 // D D L A A R R T G G
11844 // D D L A A R R T G
11845 // D D L A A RRRRRR T G GGGG
11846 // D D L AAAAAAA R R T G G
11847 // D D L A A R R T G G
11848 // DDDDDD LLLLLLL A A R R T GGGGG
11849
11850
11851 // VIF THU 20 NOV 2025 22:20:22 ** DLARTG ** DIAGNOSTICS PAGE 00316
11852
11853
11854 // VIF THU 20 NOV 2025 22:20:22 ** DLARTG ** GENERATED CODE PAGE 00317
11855
11856 int_4 _dlartg (real_8 _p_ f_, real_8 _p_ g_, real_8 _p_ cs_, real_8 _p_ sn_, real_8 _p_ r_)
11857 { // ** body not listed **
11933 }
11934
11935 // VIF THU 20 NOV 2025 22:20:22 ** DLAS2 ** DLAS2 PAGE 00319
11936
11937 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11938 // S S U U B B R R O O U U T I NN N E
11939 // S U U B B R R O O U U T I N N N E
11940 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11941 // S U U B B R R O O U U T I N N N E
11942 // S S U U B B R R O O U U T I N NN E
11943 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11944
11945 // DDDDDD L A SSSSS 22222
11946 // D D L A A S S 2 2
11947 // D D L A A S 2
11948 // D D L A A SSSSS 22222
11949 // D D L AAAAAAA S 2
11950 // D D L A A S S 2
11951 // DDDDDD LLLLLLL A A SSSSS 2222222
11952
11953
11954 // VIF THU 20 NOV 2025 22:20:22 ** DLAS2 ** DIAGNOSTICS PAGE 00320
11955
11956
11957 // VIF THU 20 NOV 2025 22:20:22 ** DLAS2 ** GENERATED CODE PAGE 00321
11958
11959 int_4 _dlas2 (real_8 _p_ f_, real_8 _p_ g_, real_8 _p_ h_, real_8 _p_ ssmin_, real_8 _p_ ssmax_)
11960 { // ** body not listed **
12008 }
12009 // VIF THU 20 NOV 2025 22:20:22 ** DLAS2 ** GENERATED CODE PAGE 00322
12010
12011
12012 // VIF THU 20 NOV 2025 22:20:22 ** DLASCL ** DLASCL PAGE 00323
12013
12014 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12015 // S S U U B B R R O O U U T I NN N E
12016 // S U U B B R R O O U U T I N N N E
12017 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12018 // S U U B B R R O O U U T I N N N E
12019 // S S U U B B R R O O U U T I N NN E
12020 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12021
12022 // DDDDDD L A SSSSS CCCCC L
12023 // D D L A A S S C C L
12024 // D D L A A S C L
12025 // D D L A A SSSSS C L
12026 // D D L AAAAAAA S C L
12027 // D D L A A S S C C L
12028 // DDDDDD LLLLLLL A A SSSSS CCCCC LLLLLLL
12029
12030
12031 // VIF THU 20 NOV 2025 22:20:22 ** DLASCL ** DIAGNOSTICS PAGE 00324
12032
12033
12034 // VIF THU 20 NOV 2025 22:20:22 ** DLASCL ** GENERATED CODE PAGE 00325
12035
12036 int_4 _dlascl (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
12037 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ info_)
12038 { // ** body not listed **
12213 }
12214
12215 // VIF THU 20 NOV 2025 22:20:22 ** DLASD0 ** DLASD0 PAGE 00329
12216
12217 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12218 // S S U U B B R R O O U U T I NN N E
12219 // S U U B B R R O O U U T I N N N E
12220 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12221 // S U U B B R R O O U U T I N N N E
12222 // S S U U B B R R O O U U T I N NN E
12223 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12224
12225 // DDDDDD L A SSSSS DDDDDD 000
12226 // D D L A A S S D D 0 0
12227 // D D L A A S D D 0 0
12228 // D D L A A SSSSS D D 0 0
12229 // D D L AAAAAAA S D D 0 0
12230 // D D L A A S S D D 0 0
12231 // DDDDDD LLLLLLL A A SSSSS DDDDDD 000
12232
12233
12234 // VIF THU 20 NOV 2025 22:20:22 ** DLASD0 ** DIAGNOSTICS PAGE 00330
12235
12236
12237 // VIF THU 20 NOV 2025 22:20:22 ** DLASD0 ** GENERATED CODE PAGE 00331
12238
12239 int_4 _dlasd0 (int_4 _p_ n_, int_4 _p_ sqre_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_
12240 vt_, int_4 _p_ ldvt_, int_4 _p_ smlsiz_, int_4 _p_ iwork_, real_8 _p_ work_, int_4 _p_ info_)
12241 { // ** body not listed **
12356 }
12357
12358 // VIF THU 20 NOV 2025 22:20:22 ** DLASD1 ** DLASD1 PAGE 00334
12359
12360 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12361 // S S U U B B R R O O U U T I NN N E
12362 // S U U B B R R O O U U T I N N N E
12363 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12364 // S U U B B R R O O U U T I N N N E
12365 // S S U U B B R R O O U U T I N NN E
12366 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12367
12368 // DDDDDD L A SSSSS DDDDDD 1
12369 // D D L A A S S D D 11
12370 // D D L A A S D D 1 1
12371 // D D L A A SSSSS D D 1
12372 // D D L AAAAAAA S D D 1
12373 // D D L A A S S D D 1
12374 // DDDDDD LLLLLLL A A SSSSS DDDDDD 11111
12375
12376
12377 // VIF THU 20 NOV 2025 22:20:22 ** DLASD1 ** DIAGNOSTICS PAGE 00335
12378
12379
12380 // VIF THU 20 NOV 2025 22:20:22 ** DLASD1 ** GENERATED CODE PAGE 00336
12381
12382 int_4 _dlasd1 (int_4 _p_ nl_, int_4 _p_ nr_, int_4 _p_ sqre_, real_8 _p_ d_, real_8 _p_ alpha_, real_8 _p_ beta_,
12383 real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ ldvt_, int_4 _p_ idxq_, int_4 _p_ iwork_, real_8 _p_ work_,
12384 int_4 _p_ info_)
12385 { // ** body not listed **
12449 }
12450
12451 // VIF THU 20 NOV 2025 22:20:22 ** DLASD2 ** DLASD2 PAGE 00338
12452
12453 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12454 // S S U U B B R R O O U U T I NN N E
12455 // S U U B B R R O O U U T I N N N E
12456 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12457 // S U U B B R R O O U U T I N N N E
12458 // S S U U B B R R O O U U T I N NN E
12459 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12460
12461 // DDDDDD L A SSSSS DDDDDD 22222
12462 // D D L A A S S D D 2 2
12463 // D D L A A S D D 2
12464 // D D L A A SSSSS D D 22222
12465 // D D L AAAAAAA S D D 2
12466 // D D L A A S S D D 2
12467 // DDDDDD LLLLLLL A A SSSSS DDDDDD 2222222
12468
12469
12470 // VIF THU 20 NOV 2025 22:20:22 ** DLASD2 ** DIAGNOSTICS PAGE 00339
12471
12472
12473 // VIF THU 20 NOV 2025 22:20:22 ** DLASD2 ** GENERATED CODE PAGE 00340
12474
12475 int_4 _dlasd2 (int_4 _p_ nl_, int_4 _p_ nr_, int_4 _p_ sqre_, int_4 _p_ k_, real_8 _p_ d_, real_8 _p_ z_, real_8 _p_
12476 alpha_, real_8 _p_ beta_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ ldvt_, real_8 _p_ dsigma_, real_8
12477 _p_ u2_, int_4 _p_ ldu2_, real_8 _p_ vt2_, int_4 _p_ ldvt2_, int_4 _p_ idxp_, int_4 _p_ idx_, int_4 _p_ idxc_, int_4
12478 _p_ idxq_, int_4 _p_ coltyp_, int_4 _p_ info_)
12479 { // ** body not listed **
12717 }
12718
12719 // VIF THU 20 NOV 2025 22:20:22 ** DLASD3 ** DLASD3 PAGE 00345
12720
12721 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12722 // S S U U B B R R O O U U T I NN N E
12723 // S U U B B R R O O U U T I N N N E
12724 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12725 // S U U B B R R O O U U T I N N N E
12726 // S S U U B B R R O O U U T I N NN E
12727 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12728
12729 // DDDDDD L A SSSSS DDDDDD 33333
12730 // D D L A A S S D D 3 3
12731 // D D L A A S D D 3
12732 // D D L A A SSSSS D D 33333
12733 // D D L AAAAAAA S D D 3
12734 // D D L A A S S D D 3 3
12735 // DDDDDD LLLLLLL A A SSSSS DDDDDD 33333
12736
12737
12738 // VIF THU 20 NOV 2025 22:20:22 ** DLASD3 ** DIAGNOSTICS PAGE 00346
12739
12740
12741 // VIF THU 20 NOV 2025 22:20:22 ** DLASD3 ** GENERATED CODE PAGE 00347
12742
12743 int_4 _dlasd3 (int_4 _p_ nl_, int_4 _p_ nr_, int_4 _p_ sqre_, int_4 _p_ k_, real_8 _p_ d_, real_8 _p_ q_, int_4 _p_
12744 ldq_, real_8 _p_ dsigma_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ u2_, int_4 _p_ ldu2_, real_8 _p_ vt_, int_4 _p_
12745 ldvt_, real_8 _p_ vt2_, int_4 _p_ ldvt2_, int_4 _p_ idxc_, int_4 _p_ ctot_, real_8 _p_ z_, int_4 _p_ info_)
12746 { // ** body not listed **
12920 }
12921
12922 // VIF THU 20 NOV 2025 22:20:22 ** DLASD4 ** DLASD4 PAGE 00351
12923
12924 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
12925 // S S U U B B R R O O U U T I NN N E
12926 // S U U B B R R O O U U T I N N N E
12927 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
12928 // S U U B B R R O O U U T I N N N E
12929 // S S U U B B R R O O U U T I N NN E
12930 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
12931
12932 // DDDDDD L A SSSSS DDDDDD 4
12933 // D D L A A S S D D 4 4
12934 // D D L A A S D D 4 4
12935 // D D L A A SSSSS D D 4444444
12936 // D D L AAAAAAA S D D 4
12937 // D D L A A S S D D 4
12938 // DDDDDD LLLLLLL A A SSSSS DDDDDD 4
12939
12940
12941 // VIF THU 20 NOV 2025 22:20:22 ** DLASD4 ** DIAGNOSTICS PAGE 00352
12942
12943
12944 // VIF THU 20 NOV 2025 22:20:22 ** DLASD4 ** GENERATED CODE PAGE 00353
12945
12946 int_4 _dlasd4 (int_4 _p_ n_, int_4 _p_ i_, real_8 _p_ d_, real_8 _p_ z_, real_8 _p_ delta_, real_8 _p_ rho_, real_8 _p_
12947 sigma_, real_8 _p_ work_, int_4 _p_ info_)
12948 { // ** body not listed **
13655 }
13656
13657 // VIF THU 20 NOV 2025 22:20:22 ** DLASD5 ** DLASD5 PAGE 00367
13658
13659 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13660 // S S U U B B R R O O U U T I NN N E
13661 // S U U B B R R O O U U T I N N N E
13662 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13663 // S U U B B R R O O U U T I N N N E
13664 // S S U U B B R R O O U U T I N NN E
13665 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13666
13667 // DDDDDD L A SSSSS DDDDDD 5555555
13668 // D D L A A S S D D 5
13669 // D D L A A S D D 5
13670 // D D L A A SSSSS D D 55555
13671 // D D L AAAAAAA S D D 5
13672 // D D L A A S S D D 5 5
13673 // DDDDDD LLLLLLL A A SSSSS DDDDDD 55555
13674
13675
13676 // VIF THU 20 NOV 2025 22:20:22 ** DLASD5 ** DIAGNOSTICS PAGE 00368
13677
13678
13679 // VIF THU 20 NOV 2025 22:20:22 ** DLASD5 ** GENERATED CODE PAGE 00369
13680
13681 int_4 _dlasd5 (int_4 _p_ i_, real_8 _p_ d_, real_8 _p_ z_, real_8 _p_ delta_, real_8 _p_ rho_, real_8 _p_ dsigma_,
13682 real_8 _p_ work_)
13683 { // ** body not listed **
13739 }
13740
13741 // VIF THU 20 NOV 2025 22:20:22 ** DLASD6 ** DLASD6 PAGE 00371
13742
13743 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13744 // S S U U B B R R O O U U T I NN N E
13745 // S U U B B R R O O U U T I N N N E
13746 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13747 // S U U B B R R O O U U T I N N N E
13748 // S S U U B B R R O O U U T I N NN E
13749 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13750
13751 // DDDDDD L A SSSSS DDDDDD 66666
13752 // D D L A A S S D D 6 6
13753 // D D L A A S D D 6
13754 // D D L A A SSSSS D D 666666
13755 // D D L AAAAAAA S D D 6 6
13756 // D D L A A S S D D 6 6
13757 // DDDDDD LLLLLLL A A SSSSS DDDDDD 66666
13758
13759
13760 // VIF THU 20 NOV 2025 22:20:22 ** DLASD6 ** DIAGNOSTICS PAGE 00372
13761
13762
13763 // VIF THU 20 NOV 2025 22:20:22 ** DLASD6 ** GENERATED CODE PAGE 00373
13764
13765 int_4 _dlasd6 (int_4 _p_ icompq_, int_4 _p_ nl_, int_4 _p_ nr_, int_4 _p_ sqre_, real_8 _p_ d_, real_8 _p_ vf_, real_8
13766 _p_ vl_, real_8 _p_ alpha_, real_8 _p_ beta_, int_4 _p_ idxq_, int_4 _p_ perm_, int_4 _p_ givptr_, int_4 _p_ givcol_,
13767 int_4 _p_ ldgcol_, real_8 _p_ givnum_, int_4 _p_ ldgnum_, real_8 _p_ poles_, real_8 _p_ difl_, real_8 _p_ difr_, real_8
13768 _p_ z_, int_4 _p_ k_, real_8 _p_ c_, real_8 _p_ s_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ info_)
13769 { // ** body not listed **
13840 }
13841
13842 // VIF THU 20 NOV 2025 22:20:22 ** DLASD7 ** DLASD7 PAGE 00375
13843
13844 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
13845 // S S U U B B R R O O U U T I NN N E
13846 // S U U B B R R O O U U T I N N N E
13847 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
13848 // S U U B B R R O O U U T I N N N E
13849 // S S U U B B R R O O U U T I N NN E
13850 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
13851
13852 // DDDDDD L A SSSSS DDDDDD 7777777
13853 // D D L A A S S D D 7 7
13854 // D D L A A S D D 7
13855 // D D L A A SSSSS D D 7
13856 // D D L AAAAAAA S D D 7
13857 // D D L A A S S D D 7
13858 // DDDDDD LLLLLLL A A SSSSS DDDDDD 7
13859
13860
13861 // VIF THU 20 NOV 2025 22:20:22 ** DLASD7 ** DIAGNOSTICS PAGE 00376
13862
13863
13864 // VIF THU 20 NOV 2025 22:20:22 ** DLASD7 ** GENERATED CODE PAGE 00377
13865
13866 int_4 _dlasd7 (int_4 _p_ icompq_, int_4 _p_ nl_, int_4 _p_ nr_, int_4 _p_ sqre_, int_4 _p_ k_, real_8 _p_ d_, real_8
13867 _p_ z_, real_8 _p_ zw_, real_8 _p_ vf_, real_8 _p_ vfw_, real_8 _p_ vl_, real_8 _p_ vlw_, real_8 _p_ alpha_, real_8 _p_
13868 beta_, real_8 _p_ dsigma_, int_4 _p_ idx_, int_4 _p_ idxp_, int_4 _p_ idxq_, int_4 _p_ perm_, int_4 _p_ givptr_, int_4
13869 _p_ givcol_, int_4 _p_ ldgcol_, real_8 _p_ givnum_, int_4 _p_ ldgnum_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ info_)
13870 { // ** body not listed **
14071 }
14072 // VIF THU 20 NOV 2025 22:20:22 ** DLASD7 ** GENERATED CODE PAGE 00381
14073
14074
14075 // VIF THU 20 NOV 2025 22:20:22 ** DLASD8 ** DLASD8 PAGE 00382
14076
14077 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14078 // S S U U B B R R O O U U T I NN N E
14079 // S U U B B R R O O U U T I N N N E
14080 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14081 // S U U B B R R O O U U T I N N N E
14082 // S S U U B B R R O O U U T I N NN E
14083 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14084
14085 // DDDDDD L A SSSSS DDDDDD 88888
14086 // D D L A A S S D D 8 8
14087 // D D L A A S D D 8 8
14088 // D D L A A SSSSS D D 88888
14089 // D D L AAAAAAA S D D 8 8
14090 // D D L A A S S D D 8 8
14091 // DDDDDD LLLLLLL A A SSSSS DDDDDD 88888
14092
14093
14094 // VIF THU 20 NOV 2025 22:20:22 ** DLASD8 ** DIAGNOSTICS PAGE 00383
14095
14096
14097 // VIF THU 20 NOV 2025 22:20:22 ** DLASD8 ** GENERATED CODE PAGE 00384
14098
14099 int_4 _dlasd8 (int_4 _p_ icompq_, int_4 _p_ k_, real_8 _p_ d_, real_8 _p_ z_, real_8 _p_ vf_, real_8 _p_ vl_, real_8
14100 _p_ difl_, real_8 _p_ difr_, int_4 _p_ lddifr_, real_8 _p_ dsigma_, real_8 _p_ work_, int_4 _p_ info_)
14101 { // ** body not listed **
14198 }
14199
14200 // VIF THU 20 NOV 2025 22:20:22 ** DLASDA ** DLASDA PAGE 00386
14201
14202 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14203 // S S U U B B R R O O U U T I NN N E
14204 // S U U B B R R O O U U T I N N N E
14205 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14206 // S U U B B R R O O U U T I N N N E
14207 // S S U U B B R R O O U U T I N NN E
14208 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14209
14210 // DDDDDD L A SSSSS DDDDDD A
14211 // D D L A A S S D D A A
14212 // D D L A A S D D A A
14213 // D D L A A SSSSS D D A A
14214 // D D L AAAAAAA S D D AAAAAAA
14215 // D D L A A S S D D A A
14216 // DDDDDD LLLLLLL A A SSSSS DDDDDD A A
14217
14218
14219 // VIF THU 20 NOV 2025 22:20:22 ** DLASDA ** DIAGNOSTICS PAGE 00387
14220
14221
14222 // VIF THU 20 NOV 2025 22:20:22 ** DLASDA ** GENERATED CODE PAGE 00388
14223
14224 int_4 _dlasda (int_4 _p_ icompq_, int_4 _p_ smlsiz_, int_4 _p_ n_, int_4 _p_ sqre_, real_8 _p_ d_, real_8 _p_ e_,
14225 real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ vt_, int_4 _p_ k_, real_8 _p_ difl_, real_8 _p_ difr_, real_8 _p_ z_, real_8
14226 _p_ poles_, int_4 _p_ givptr_, int_4 _p_ givcol_, int_4 _p_ ldgcol_, int_4 _p_ perm_, real_8 _p_ givnum_, real_8 _p_ c_
14227 , real_8 _p_ s_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ info_)
14228 { // ** body not listed **
14411 }
14412
14413 // VIF THU 20 NOV 2025 22:20:22 ** DLASDQ ** DLASDQ PAGE 00392
14414
14415 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14416 // S S U U B B R R O O U U T I NN N E
14417 // S U U B B R R O O U U T I N N N E
14418 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14419 // S U U B B R R O O U U T I N N N E
14420 // S S U U B B R R O O U U T I N NN E
14421 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14422
14423 // DDDDDD L A SSSSS DDDDDD QQQQQ
14424 // D D L A A S S D D Q Q
14425 // D D L A A S D D Q Q
14426 // D D L A A SSSSS D D Q Q
14427 // D D L AAAAAAA S D D Q Q Q
14428 // D D L A A S S D D Q Q
14429 // DDDDDD LLLLLLL A A SSSSS DDDDDD QQQQ Q
14430
14431
14432 // VIF THU 20 NOV 2025 22:20:22 ** DLASDQ ** DIAGNOSTICS PAGE 00393
14433
14434
14435 // VIF THU 20 NOV 2025 22:20:22 ** DLASDQ ** GENERATED CODE PAGE 00394
14436
14437 int_4 _dlasdq (char _p_ uplo_, int_4 _p_ sqre_, int_4 _p_ n_, int_4 _p_ ncvt_, int_4 _p_ nru_, int_4 _p_ ncc_, real_8
14438 _p_ d_, real_8 _p_ e_, real_8 _p_ vt_, int_4 _p_ ldvt_, real_8 _p_ u_, int_4 _p_ ldu_, real_8 _p_ c_, int_4 _p_ ldc_,
14439 real_8 _p_ work_, int_4 _p_ info_)
14440 { // ** body not listed **
14585 }
14586
14587 // VIF THU 20 NOV 2025 22:20:22 ** DLASDT ** DLASDT PAGE 00397
14588
14589 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14590 // S S U U B B R R O O U U T I NN N E
14591 // S U U B B R R O O U U T I N N N E
14592 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14593 // S U U B B R R O O U U T I N N N E
14594 // S S U U B B R R O O U U T I N NN E
14595 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14596
14597 // DDDDDD L A SSSSS DDDDDD TTTTTTT
14598 // D D L A A S S D D T
14599 // D D L A A S D D T
14600 // D D L A A SSSSS D D T
14601 // D D L AAAAAAA S D D T
14602 // D D L A A S S D D T
14603 // DDDDDD LLLLLLL A A SSSSS DDDDDD T
14604
14605
14606 // VIF THU 20 NOV 2025 22:20:22 ** DLASDT ** DIAGNOSTICS PAGE 00398
14607
14608
14609 // VIF THU 20 NOV 2025 22:20:22 ** DLASDT ** GENERATED CODE PAGE 00399
14610
14611 int_4 _dlasdt (int_4 _p_ n_, int_4 _p_ lvl_, int_4 _p_ nd_, int_4 _p_ inode_, int_4 _p_ ndiml_, int_4 _p_ ndimr_, int_4
14612 _p_ msub_)
14613 { // ** body not listed **
14648 }
14649
14650 // VIF THU 20 NOV 2025 22:20:22 ** DLASET ** DLASET PAGE 00400
14651
14652 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14653 // S S U U B B R R O O U U T I NN N E
14654 // S U U B B R R O O U U T I N N N E
14655 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14656 // S U U B B R R O O U U T I N N N E
14657 // S S U U B B R R O O U U T I N NN E
14658 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14659
14660 // DDDDDD L A SSSSS EEEEEEE TTTTTTT
14661 // D D L A A S S E T
14662 // D D L A A S E T
14663 // D D L A A SSSSS EEEEE T
14664 // D D L AAAAAAA S E T
14665 // D D L A A S S E T
14666 // DDDDDD LLLLLLL A A SSSSS EEEEEEE T
14667
14668
14669 // VIF THU 20 NOV 2025 22:20:22 ** DLASET ** DIAGNOSTICS PAGE 00401
14670
14671
14672 // VIF THU 20 NOV 2025 22:20:22 ** DLASET ** GENERATED CODE PAGE 00402
14673
14674 int_4 _dlaset (char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ beta_, real_8 _p_ a_, int_4
14675 _p_ lda_)
14676 { // ** body not listed **
14706 }
14707
14708 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ1 ** DLASQ1 PAGE 00403
14709
14710 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14711 // S S U U B B R R O O U U T I NN N E
14712 // S U U B B R R O O U U T I N N N E
14713 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14714 // S U U B B R R O O U U T I N N N E
14715 // S S U U B B R R O O U U T I N NN E
14716 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14717
14718 // DDDDDD L A SSSSS QQQQQ 1
14719 // D D L A A S S Q Q 11
14720 // D D L A A S Q Q 1 1
14721 // D D L A A SSSSS Q Q 1
14722 // D D L AAAAAAA S Q Q Q 1
14723 // D D L A A S S Q Q 1
14724 // DDDDDD LLLLLLL A A SSSSS QQQQ Q 11111
14725
14726
14727 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ1 ** DIAGNOSTICS PAGE 00404
14728
14729
14730 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ1 ** GENERATED CODE PAGE 00405
14731
14732 int_4 _dlasq1 (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ work_, int_4 _p_ info_)
14733 { // ** body not listed **
14806 }
14807
14808 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ2 ** DLASQ2 PAGE 00407
14809
14810 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
14811 // S S U U B B R R O O U U T I NN N E
14812 // S U U B B R R O O U U T I N N N E
14813 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
14814 // S U U B B R R O O U U T I N N N E
14815 // S S U U B B R R O O U U T I N NN E
14816 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
14817
14818 // DDDDDD L A SSSSS QQQQQ 22222
14819 // D D L A A S S Q Q 2 2
14820 // D D L A A S Q Q 2
14821 // D D L A A SSSSS Q Q 22222
14822 // D D L AAAAAAA S Q Q Q 2
14823 // D D L A A S S Q Q 2
14824 // DDDDDD LLLLLLL A A SSSSS QQQQ Q 2222222
14825
14826
14827 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ2 ** DIAGNOSTICS PAGE 00408
14828
14829
14830 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ2 ** GENERATED CODE PAGE 00409
14831
14832 int_4 _dlasq2 (int_4 _p_ n_, real_8 _p_ z_, int_4 _p_ info_)
14833 { // ** body not listed **
15181 }
15182
15183 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ3 ** DLASQ3 PAGE 00416
15184
15185 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15186 // S S U U B B R R O O U U T I NN N E
15187 // S U U B B R R O O U U T I N N N E
15188 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15189 // S U U B B R R O O U U T I N N N E
15190 // S S U U B B R R O O U U T I N NN E
15191 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15192
15193 // DDDDDD L A SSSSS QQQQQ 33333
15194 // D D L A A S S Q Q 3 3
15195 // D D L A A S Q Q 3
15196 // D D L A A SSSSS Q Q 33333
15197 // D D L AAAAAAA S Q Q Q 3
15198 // D D L A A S S Q Q 3 3
15199 // DDDDDD LLLLLLL A A SSSSS QQQQ Q 33333
15200
15201
15202 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ3 ** DIAGNOSTICS PAGE 00417
15203
15204
15205 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ3 ** GENERATED CODE PAGE 00418
15206
15207 int_4 _dlasq3 (int_4 _p_ i0_, int_4 _p_ n0_, real_8 _p_ z_, int_4 _p_ pp_, real_8 _p_ dmin_, real_8 _p_ sigma_, real_8
15208 _p_ desig_, real_8 _p_ qmax_, int_4 _p_ nfail_, int_4 _p_ iter_, int_4 _p_ ndiv_, logical_4 _p_ ieee_, int_4 _p_ ttype_
15209 , real_8 _p_ dmin1_, real_8 _p_ dmin2_, real_8 _p_ dn_, real_8 _p_ dn1_, real_8 _p_ dn2_, real_8 _p_ g_, real_8 _p_
15210 tau_)
15211 { // ** body not listed **
15370 }
15371
15372 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ4 ** DLASQ4 PAGE 00422
15373
15374 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15375 // S S U U B B R R O O U U T I NN N E
15376 // S U U B B R R O O U U T I N N N E
15377 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15378 // S U U B B R R O O U U T I N N N E
15379 // S S U U B B R R O O U U T I N NN E
15380 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15381
15382 // DDDDDD L A SSSSS QQQQQ 4
15383 // D D L A A S S Q Q 4 4
15384 // D D L A A S Q Q 4 4
15385 // D D L A A SSSSS Q Q 4444444
15386 // D D L AAAAAAA S Q Q Q 4
15387 // D D L A A S S Q Q 4
15388 // DDDDDD LLLLLLL A A SSSSS QQQQ Q 4
15389
15390
15391 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ4 ** DIAGNOSTICS PAGE 00423
15392
15393
15394 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ4 ** GENERATED CODE PAGE 00424
15395
15396 int_4 _dlasq4 (int_4 _p_ i0_, int_4 _p_ n0_, real_8 _p_ z_, int_4 _p_ pp_, int_4 _p_ n0in_, real_8 _p_ dmin_, real_8
15397 _p_ dmin1_, real_8 _p_ dmin2_, real_8 _p_ dn_, real_8 _p_ dn1_, real_8 _p_ dn2_, real_8 _p_ tau_, int_4 _p_ ttype_,
15398 real_8 _p_ g_)
15399 { // ** body not listed **
15635 }
15636
15637 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ5 ** DLASQ5 PAGE 00429
15638
15639 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15640 // S S U U B B R R O O U U T I NN N E
15641 // S U U B B R R O O U U T I N N N E
15642 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15643 // S U U B B R R O O U U T I N N N E
15644 // S S U U B B R R O O U U T I N NN E
15645 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15646
15647 // DDDDDD L A SSSSS QQQQQ 5555555
15648 // D D L A A S S Q Q 5
15649 // D D L A A S Q Q 5
15650 // D D L A A SSSSS Q Q 55555
15651 // D D L AAAAAAA S Q Q Q 5
15652 // D D L A A S S Q Q 5 5
15653 // DDDDDD LLLLLLL A A SSSSS QQQQ Q 55555
15654
15655
15656 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ5 ** DIAGNOSTICS PAGE 00430
15657
15658
15659 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ5 ** GENERATED CODE PAGE 00431
15660
15661 int_4 _dlasq5 (int_4 _p_ i0_, int_4 _p_ n0_, real_8 _p_ z_, int_4 _p_ pp_, real_8 _p_ tau_, real_8 _p_ sigma_, real_8
15662 _p_ dmin_, real_8 _p_ dmin1_, real_8 _p_ dmin2_, real_8 _p_ dn_, real_8 _p_ dnm1_, real_8 _p_ dnm2_, logical_4 _p_
15663 ieee_, real_8 _p_ eps_)
15664 { // ** body not listed **
15898 }
15899
15900 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ6 ** DLASQ6 PAGE 00436
15901
15902 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
15903 // S S U U B B R R O O U U T I NN N E
15904 // S U U B B R R O O U U T I N N N E
15905 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
15906 // S U U B B R R O O U U T I N N N E
15907 // S S U U B B R R O O U U T I N NN E
15908 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
15909
15910 // DDDDDD L A SSSSS QQQQQ 66666
15911 // D D L A A S S Q Q 6 6
15912 // D D L A A S Q Q 6
15913 // D D L A A SSSSS Q Q 666666
15914 // D D L AAAAAAA S Q Q Q 6 6
15915 // D D L A A S S Q Q 6 6
15916 // DDDDDD LLLLLLL A A SSSSS QQQQ Q 66666
15917
15918
15919 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ6 ** DIAGNOSTICS PAGE 00437
15920
15921
15922 // VIF THU 20 NOV 2025 22:20:22 ** DLASQ6 ** GENERATED CODE PAGE 00438
15923
15924 int_4 _dlasq6 (int_4 _p_ i0_, int_4 _p_ n0_, real_8 _p_ z_, int_4 _p_ pp_, real_8 _p_ dmin_, real_8 _p_ dmin1_, real_8
15925 _p_ dmin2_, real_8 _p_ dn_, real_8 _p_ dnm1_, real_8 _p_ dnm2_)
15926 { // ** body not listed **
16033 }
16034
16035 // VIF THU 20 NOV 2025 22:20:22 ** DLASR ** DLASR PAGE 00441
16036
16037 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16038 // S S U U B B R R O O U U T I NN N E
16039 // S U U B B R R O O U U T I N N N E
16040 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16041 // S U U B B R R O O U U T I N N N E
16042 // S S U U B B R R O O U U T I N NN E
16043 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16044
16045 // DDDDDD L A SSSSS RRRRRR
16046 // D D L A A S S R R
16047 // D D L A A S R R
16048 // D D L A A SSSSS RRRRRR
16049 // D D L AAAAAAA S R R
16050 // D D L A A S S R R
16051 // DDDDDD LLLLLLL A A SSSSS R R
16052
16053
16054 // VIF THU 20 NOV 2025 22:20:22 ** DLASR ** DIAGNOSTICS PAGE 00442
16055
16056
16057 // VIF THU 20 NOV 2025 22:20:22 ** DLASR ** GENERATED CODE PAGE 00443
16058
16059 int_4 _dlasr (char _p_ side_, char _p_ pivot_, char _p_ direct_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ c_, real_8 _p_
16060 s_, real_8 _p_ a_, int_4 _p_ lda_)
16061 { // ** body not listed **
16276 }
16277
16278 // VIF THU 20 NOV 2025 22:20:22 ** DLASRT ** DLASRT PAGE 00448
16279
16280 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16281 // S S U U B B R R O O U U T I NN N E
16282 // S U U B B R R O O U U T I N N N E
16283 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16284 // S U U B B R R O O U U T I N N N E
16285 // S S U U B B R R O O U U T I N NN E
16286 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16287
16288 // DDDDDD L A SSSSS RRRRRR TTTTTTT
16289 // D D L A A S S R R T
16290 // D D L A A S R R T
16291 // D D L A A SSSSS RRRRRR T
16292 // D D L AAAAAAA S R R T
16293 // D D L A A S S R R T
16294 // DDDDDD LLLLLLL A A SSSSS R R T
16295
16296
16297 // VIF THU 20 NOV 2025 22:20:22 ** DLASRT ** DIAGNOSTICS PAGE 00449
16298
16299
16300 // VIF THU 20 NOV 2025 22:20:22 ** DLASRT ** GENERATED CODE PAGE 00450
16301
16302 int_4 _dlasrt (char _p_ id_, int_4 _p_ n_, real_8 _p_ d_, int_4 _p_ info_)
16303 { // ** body not listed **
16483 }
16484
16485 // VIF THU 20 NOV 2025 22:20:22 ** DLASSQ ** DLASSQ PAGE 00454
16486
16487 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16488 // S S U U B B R R O O U U T I NN N E
16489 // S U U B B R R O O U U T I N N N E
16490 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16491 // S U U B B R R O O U U T I N N N E
16492 // S S U U B B R R O O U U T I N NN E
16493 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16494
16495 // DDDDDD L A SSSSS SSSSS QQQQQ
16496 // D D L A A S S S S Q Q
16497 // D D L A A S S Q Q
16498 // D D L A A SSSSS SSSSS Q Q
16499 // D D L AAAAAAA S S Q Q Q
16500 // D D L A A S S S S Q Q
16501 // DDDDDD LLLLLLL A A SSSSS SSSSS QQQQ Q
16502
16503
16504 // VIF THU 20 NOV 2025 22:20:22 ** DLASSQ ** DIAGNOSTICS PAGE 00455
16505
16506
16507 // VIF THU 20 NOV 2025 22:20:22 ** DLASSQ ** GENERATED CODE PAGE 00456
16508
16509 int_4 _dlassq (int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ scale_, real_8 _p_ sumsq_)
16510 { // ** body not listed **
16532 }
16533
16534 // VIF THU 20 NOV 2025 22:20:22 ** DLASV2 ** DLASV2 PAGE 00457
16535
16536 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16537 // S S U U B B R R O O U U T I NN N E
16538 // S U U B B R R O O U U T I N N N E
16539 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16540 // S U U B B R R O O U U T I N N N E
16541 // S S U U B B R R O O U U T I N NN E
16542 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16543
16544 // DDDDDD L A SSSSS V V 22222
16545 // D D L A A S S V V 2 2
16546 // D D L A A S V V 2
16547 // D D L A A SSSSS V V 22222
16548 // D D L AAAAAAA S V V 2
16549 // D D L A A S S V V 2
16550 // DDDDDD LLLLLLL A A SSSSS V 2222222
16551
16552
16553 // VIF THU 20 NOV 2025 22:20:22 ** DLASV2 ** DIAGNOSTICS PAGE 00458
16554
16555
16556 // VIF THU 20 NOV 2025 22:20:22 ** DLASV2 ** GENERATED CODE PAGE 00459
16557
16558 int_4 _dlasv2 (real_8 _p_ f_, real_8 _p_ g_, real_8 _p_ h_, real_8 _p_ ssmin_, real_8 _p_ ssmax_, real_8 _p_ snr_,
16559 real_8 _p_ csr_, real_8 _p_ snl_, real_8 _p_ csl_)
16560 { // ** body not listed **
16682 }
16683
16684 // VIF THU 20 NOV 2025 22:20:22 ** DLASWP ** DLASWP PAGE 00462
16685
16686 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16687 // S S U U B B R R O O U U T I NN N E
16688 // S U U B B R R O O U U T I N N N E
16689 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16690 // S U U B B R R O O U U T I N N N E
16691 // S S U U B B R R O O U U T I N NN E
16692 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16693
16694 // DDDDDD L A SSSSS W W PPPPPP
16695 // D D L A A S S W W P P
16696 // D D L A A S W W P P
16697 // D D L A A SSSSS W W W PPPPPP
16698 // D D L AAAAAAA S W W W P
16699 // D D L A A S S W W W P
16700 // DDDDDD LLLLLLL A A SSSSS WW WW P
16701
16702
16703 // VIF THU 20 NOV 2025 22:20:22 ** DLASWP ** DIAGNOSTICS PAGE 00463
16704
16705
16706 // VIF THU 20 NOV 2025 22:20:22 ** DLASWP ** GENERATED CODE PAGE 00464
16707
16708 int_4 _dlaswp (int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ k1_, int_4 _p_ k2_, int_4 _p_ ipiv_, int_4 _p_
16709 incx_)
16710 { // ** body not listed **
16765 }
16766
16767 // VIF THU 20 NOV 2025 22:20:22 ** DLATRS ** DLATRS PAGE 00466
16768
16769 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
16770 // S S U U B B R R O O U U T I NN N E
16771 // S U U B B R R O O U U T I N N N E
16772 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
16773 // S U U B B R R O O U U T I N N N E
16774 // S S U U B B R R O O U U T I N NN E
16775 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
16776
16777 // DDDDDD L A TTTTTTT RRRRRR SSSSS
16778 // D D L A A T R R S S
16779 // D D L A A T R R S
16780 // D D L A A T RRRRRR SSSSS
16781 // D D L AAAAAAA T R R S
16782 // D D L A A T R R S S
16783 // DDDDDD LLLLLLL A A T R R SSSSS
16784
16785
16786 // VIF THU 20 NOV 2025 22:20:22 ** DLATRS ** DIAGNOSTICS PAGE 00467
16787
16788
16789 // VIF THU 20 NOV 2025 22:20:22 ** DLATRS ** GENERATED CODE PAGE 00468
16790
16791 int_4 _dlatrs (char _p_ uplo_, char _p_ trans_, char _p_ diag_, char _p_ normin_, int_4 _p_ n_, real_8 _p_ a_, int_4
16792 _p_ lda_, real_8 _p_ x_, real_8 _p_ scale_, real_8 _p_ cnorm_, int_4 _p_ info_)
16793 { // ** body not listed **
17158 }
17159
17160 // VIF THU 20 NOV 2025 22:20:22 ** DORG2R ** DORG2R PAGE 00476
17161
17162 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17163 // S S U U B B R R O O U U T I NN N E
17164 // S U U B B R R O O U U T I N N N E
17165 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17166 // S U U B B R R O O U U T I N N N E
17167 // S S U U B B R R O O U U T I N NN E
17168 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17169
17170 // DDDDDD OOOOO RRRRRR GGGGG 22222 RRRRRR
17171 // D D O O R R G G 2 2 R R
17172 // D D O O R R G 2 R R
17173 // D D O O RRRRRR G GGGG 22222 RRRRRR
17174 // D D O O R R G G 2 R R
17175 // D D O O R R G G 2 R R
17176 // DDDDDD OOOOO R R GGGGG 2222222 R R
17177
17178
17179 // VIF THU 20 NOV 2025 22:20:22 ** DORG2R ** DIAGNOSTICS PAGE 00477
17180
17181
17182 // VIF THU 20 NOV 2025 22:20:22 ** DORG2R ** GENERATED CODE PAGE 00478
17183
17184 int_4 _dorg2r (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_
17185 work_, int_4 _p_ info_)
17186 { // ** body not listed **
17238 }
17239
17240 // VIF THU 20 NOV 2025 22:20:22 ** DORGBR ** DORGBR PAGE 00480
17241
17242 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17243 // S S U U B B R R O O U U T I NN N E
17244 // S U U B B R R O O U U T I N N N E
17245 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17246 // S U U B B R R O O U U T I N N N E
17247 // S S U U B B R R O O U U T I N NN E
17248 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17249
17250 // DDDDDD OOOOO RRRRRR GGGGG BBBBBB RRRRRR
17251 // D D O O R R G G B B R R
17252 // D D O O R R G B B R R
17253 // D D O O RRRRRR G GGGG BBBBBB RRRRRR
17254 // D D O O R R G G B B R R
17255 // D D O O R R G G B B R R
17256 // DDDDDD OOOOO R R GGGGG BBBBBB R R
17257
17258
17259 // VIF THU 20 NOV 2025 22:20:22 ** DORGBR ** DIAGNOSTICS PAGE 00481
17260
17261
17262 // VIF THU 20 NOV 2025 22:20:22 ** DORGBR ** GENERATED CODE PAGE 00482
17263
17264 int_4 _dorgbr (char _p_ vect_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_
17265 , real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_)
17266 { // ** body not listed **
17386 }
17387
17388 // VIF THU 20 NOV 2025 22:20:22 ** DORGL2 ** DORGL2 PAGE 00485
17389
17390 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17391 // S S U U B B R R O O U U T I NN N E
17392 // S U U B B R R O O U U T I N N N E
17393 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17394 // S U U B B R R O O U U T I N N N E
17395 // S S U U B B R R O O U U T I N NN E
17396 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17397
17398 // DDDDDD OOOOO RRRRRR GGGGG L 22222
17399 // D D O O R R G G L 2 2
17400 // D D O O R R G L 2
17401 // D D O O RRRRRR G GGGG L 22222
17402 // D D O O R R G G L 2
17403 // D D O O R R G G L 2
17404 // DDDDDD OOOOO R R GGGGG LLLLLLL 2222222
17405
17406
17407 // VIF THU 20 NOV 2025 22:20:22 ** DORGL2 ** DIAGNOSTICS PAGE 00486
17408
17409
17410 // VIF THU 20 NOV 2025 22:20:22 ** DORGL2 ** GENERATED CODE PAGE 00487
17411
17412 int_4 _dorgl2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_
17413 work_, int_4 _p_ info_)
17414 { // ** body not listed **
17470 }
17471
17472 // VIF THU 20 NOV 2025 22:20:22 ** DORGLQ ** DORGLQ PAGE 00489
17473
17474 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17475 // S S U U B B R R O O U U T I NN N E
17476 // S U U B B R R O O U U T I N N N E
17477 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17478 // S U U B B R R O O U U T I N N N E
17479 // S S U U B B R R O O U U T I N NN E
17480 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17481
17482 // DDDDDD OOOOO RRRRRR GGGGG L QQQQQ
17483 // D D O O R R G G L Q Q
17484 // D D O O R R G L Q Q
17485 // D D O O RRRRRR G GGGG L Q Q
17486 // D D O O R R G G L Q Q Q
17487 // D D O O R R G G L Q Q
17488 // DDDDDD OOOOO R R GGGGG LLLLLLL QQQQ Q
17489
17490
17491 // VIF THU 20 NOV 2025 22:20:22 ** DORGLQ ** DIAGNOSTICS PAGE 00490
17492
17493
17494 // VIF THU 20 NOV 2025 22:20:22 ** DORGLQ ** GENERATED CODE PAGE 00491
17495
17496 int_4 _dorglq (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_
17497 work_, int_4 _p_ lwork_, int_4 _p_ info_)
17498 { // ** body not listed **
17591 }
17592
17593 // VIF THU 20 NOV 2025 22:20:22 ** DORGQR ** DORGQR PAGE 00493
17594
17595 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17596 // S S U U B B R R O O U U T I NN N E
17597 // S U U B B R R O O U U T I N N N E
17598 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17599 // S U U B B R R O O U U T I N N N E
17600 // S S U U B B R R O O U U T I N NN E
17601 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17602
17603 // DDDDDD OOOOO RRRRRR GGGGG QQQQQ RRRRRR
17604 // D D O O R R G G Q Q R R
17605 // D D O O R R G Q Q R R
17606 // D D O O RRRRRR G GGGG Q Q RRRRRR
17607 // D D O O R R G G Q Q Q R R
17608 // D D O O R R G G Q Q R R
17609 // DDDDDD OOOOO R R GGGGG QQQQ Q R R
17610
17611
17612 // VIF THU 20 NOV 2025 22:20:22 ** DORGQR ** DIAGNOSTICS PAGE 00494
17613
17614
17615 // VIF THU 20 NOV 2025 22:20:22 ** DORGQR ** GENERATED CODE PAGE 00495
17616
17617 int_4 _dorgqr (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_
17618 work_, int_4 _p_ lwork_, int_4 _p_ info_)
17619 { // ** body not listed **
17712 }
17713
17714 // VIF THU 20 NOV 2025 22:20:22 ** DORM2R ** DORM2R PAGE 00497
17715
17716 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17717 // S S U U B B R R O O U U T I NN N E
17718 // S U U B B R R O O U U T I N N N E
17719 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17720 // S U U B B R R O O U U T I N N N E
17721 // S S U U B B R R O O U U T I N NN E
17722 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17723
17724 // DDDDDD OOOOO RRRRRR M M 22222 RRRRRR
17725 // D D O O R R MM MM 2 2 R R
17726 // D D O O R R M M M M 2 R R
17727 // D D O O RRRRRR M M M 22222 RRRRRR
17728 // D D O O R R M M 2 R R
17729 // D D O O R R M M 2 R R
17730 // DDDDDD OOOOO R R M M 2222222 R R
17731
17732
17733 // VIF THU 20 NOV 2025 22:20:22 ** DORM2R ** DIAGNOSTICS PAGE 00498
17734
17735
17736 // VIF THU 20 NOV 2025 22:20:22 ** DORM2R ** GENERATED CODE PAGE 00499
17737
17738 int_4 _dorm2r (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_
17739 , real_8 _p_ tau_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_, int_4 _p_ info_)
17740 { // ** body not listed **
17823 }
17824
17825 // VIF THU 20 NOV 2025 22:20:22 ** DORMBR ** DORMBR PAGE 00501
17826
17827 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17828 // S S U U B B R R O O U U T I NN N E
17829 // S U U B B R R O O U U T I N N N E
17830 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
17831 // S U U B B R R O O U U T I N N N E
17832 // S S U U B B R R O O U U T I N NN E
17833 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
17834
17835 // DDDDDD OOOOO RRRRRR M M BBBBBB RRRRRR
17836 // D D O O R R MM MM B B R R
17837 // D D O O R R M M M M B B R R
17838 // D D O O RRRRRR M M M BBBBBB RRRRRR
17839 // D D O O R R M M B B R R
17840 // D D O O R R M M B B R R
17841 // DDDDDD OOOOO R R M M BBBBBB R R
17842
17843
17844 // VIF THU 20 NOV 2025 22:20:22 ** DORMBR ** DIAGNOSTICS PAGE 00502
17845
17846
17847 // VIF THU 20 NOV 2025 22:20:22 ** DORMBR ** GENERATED CODE PAGE 00503
17848
17849 int_4 _dormbr (char _p_ vect_, char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_
17850 , int_4 _p_ lda_, real_8 _p_ tau_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_)
17851 { // ** body not listed **
17992 }
17993
17994 // VIF THU 20 NOV 2025 22:20:22 ** DORML2 ** DORML2 PAGE 00506
17995
17996 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
17997 // S S U U B B R R O O U U T I NN N E
17998 // S U U B B R R O O U U T I N N N E
17999 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18000 // S U U B B R R O O U U T I N N N E
18001 // S S U U B B R R O O U U T I N NN E
18002 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18003
18004 // DDDDDD OOOOO RRRRRR M M L 22222
18005 // D D O O R R MM MM L 2 2
18006 // D D O O R R M M M M L 2
18007 // D D O O RRRRRR M M M L 22222
18008 // D D O O R R M M L 2
18009 // D D O O R R M M L 2
18010 // DDDDDD OOOOO R R M M LLLLLLL 2222222
18011
18012
18013 // VIF THU 20 NOV 2025 22:20:22 ** DORML2 ** DIAGNOSTICS PAGE 00507
18014
18015
18016 // VIF THU 20 NOV 2025 22:20:22 ** DORML2 ** GENERATED CODE PAGE 00508
18017
18018 int_4 _dorml2 (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_
18019 , real_8 _p_ tau_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_, int_4 _p_ info_)
18020 { // ** body not listed **
18103 }
18104
18105 // VIF THU 20 NOV 2025 22:20:22 ** DORMLQ ** DORMLQ PAGE 00510
18106
18107 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18108 // S S U U B B R R O O U U T I NN N E
18109 // S U U B B R R O O U U T I N N N E
18110 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18111 // S U U B B R R O O U U T I N N N E
18112 // S S U U B B R R O O U U T I N NN E
18113 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18114
18115 // DDDDDD OOOOO RRRRRR M M L QQQQQ
18116 // D D O O R R MM MM L Q Q
18117 // D D O O R R M M M M L Q Q
18118 // D D O O RRRRRR M M M L Q Q
18119 // D D O O R R M M L Q Q Q
18120 // D D O O R R M M L Q Q
18121 // DDDDDD OOOOO R R M M LLLLLLL QQQQ Q
18122
18123
18124 // VIF THU 20 NOV 2025 22:20:22 ** DORMLQ ** DIAGNOSTICS PAGE 00511
18125
18126
18127 // VIF THU 20 NOV 2025 22:20:22 ** DORMLQ ** GENERATED CODE PAGE 00512
18128
18129 int_4 _dormlq (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_
18130 , real_8 _p_ tau_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_)
18131 { // ** body not listed **
18255 }
18256
18257 // VIF THU 20 NOV 2025 22:20:22 ** DORMQR ** DORMQR PAGE 00515
18258
18259 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18260 // S S U U B B R R O O U U T I NN N E
18261 // S U U B B R R O O U U T I N N N E
18262 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18263 // S U U B B R R O O U U T I N N N E
18264 // S S U U B B R R O O U U T I N NN E
18265 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18266
18267 // DDDDDD OOOOO RRRRRR M M QQQQQ RRRRRR
18268 // D D O O R R MM MM Q Q R R
18269 // D D O O R R M M M M Q Q R R
18270 // D D O O RRRRRR M M M Q Q RRRRRR
18271 // D D O O R R M M Q Q Q R R
18272 // D D O O R R M M Q Q R R
18273 // DDDDDD OOOOO R R M M QQQQ Q R R
18274
18275
18276 // VIF THU 20 NOV 2025 22:20:22 ** DORMQR ** DIAGNOSTICS PAGE 00516
18277
18278
18279 // VIF THU 20 NOV 2025 22:20:22 ** DORMQR ** GENERATED CODE PAGE 00517
18280
18281 int_4 _dormqr (char _p_ side_, char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ lda_
18282 , real_8 _p_ tau_, real_8 _p_ c_, int_4 _p_ ldc_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ info_)
18283 { // ** body not listed **
18400 }
18401
18402 // VIF THU 20 NOV 2025 22:20:22 ** DPOCON ** DPOCON PAGE 00520
18403
18404 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18405 // S S U U B B R R O O U U T I NN N E
18406 // S U U B B R R O O U U T I N N N E
18407 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18408 // S U U B B R R O O U U T I N N N E
18409 // S S U U B B R R O O U U T I N NN E
18410 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18411
18412 // DDDDDD PPPPPP OOOOO CCCCC OOOOO N N
18413 // D D P P O O C C O O NN N
18414 // D D P P O O C O O N N N
18415 // D D PPPPPP O O C O O N N N
18416 // D D P O O C O O N N N
18417 // D D P O O C C O O N NN
18418 // DDDDDD P OOOOO CCCCC OOOOO N N
18419
18420
18421 // VIF THU 20 NOV 2025 22:20:22 ** DPOCON ** DIAGNOSTICS PAGE 00521
18422
18423
18424 // VIF THU 20 NOV 2025 22:20:22 ** DPOCON ** GENERATED CODE PAGE 00522
18425
18426 int_4 _dpocon (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ anorm_, real_8 _p_ rcond_,
18427 real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ info_)
18428 { // ** body not listed **
18501 }
18502
18503 // VIF THU 20 NOV 2025 22:20:22 ** DRSCL ** DRSCL PAGE 00524
18504
18505 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
18506 // S S U U B B R R O O U U T I NN N E
18507 // S U U B B R R O O U U T I N N N E
18508 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
18509 // S U U B B R R O O U U T I N N N E
18510 // S S U U B B R R O O U U T I N NN E
18511 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
18512
18513 // DDDDDD RRRRRR SSSSS CCCCC L
18514 // D D R R S S C C L
18515 // D D R R S C L
18516 // D D RRRRRR SSSSS C L
18517 // D D R R S C L
18518 // D D R R S S C C L
18519 // DDDDDD R R SSSSS CCCCC LLLLLLL
18520
18521
18522 // VIF THU 20 NOV 2025 22:20:22 ** DRSCL ** DIAGNOSTICS PAGE 00525
18523
18524
18525 // VIF THU 20 NOV 2025 22:20:22 ** DRSCL ** GENERATED CODE PAGE 00526
18526
18527 int_4 _drscl (int_4 _p_ n_, real_8 _p_ sa_, real_8 _p_ sx_, int_4 _p_ incx_)
18528 { // ** body not listed **
18566 }
18567
18568 // VIF THU 20 NOV 2025 22:20:22 ** IEEECK ** IEEECK PAGE 00527
18569
18570 // III N N TTTTTTT EEEEEEE GGGGG EEEEEEE RRRRRR 4
18571 // I NN N T E G G E R R * * 4 4
18572 // I N N N T E G E R R * * 4 4
18573 // I N N N T EEEEE G GGGG EEEEE RRRRRR ******* 4444444
18574 // I N N N T E G G E R R * * 4
18575 // I N NN T E G G E R R * * 4
18576 // III N N T EEEEEEE GGGGG EEEEEEE R R 4
18577
18578 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
18579 // F U U NN N C C T I O O NN N
18580 // F U U N N N C T I O O N N N
18581 // FFFFF U U N N N C T I O O N N N
18582 // F U U N N N C T I O O N N N
18583 // F U U N NN C C T I O O N NN
18584 // F UUUUU N N CCCCC T III OOOOO N N
18585
18586 // III EEEEEEE EEEEEEE EEEEEEE CCCCC K K
18587 // I E E E C C K K
18588 // I E E E C K K
18589 // I EEEEE EEEEE EEEEE C KKK
18590 // I E E E C K K
18591 // I E E E C C K K
18592 // III EEEEEEE EEEEEEE EEEEEEE CCCCC K K
18593
18594
18595 // VIF THU 20 NOV 2025 22:20:22 ** IEEECK ** DIAGNOSTICS PAGE 00528
18596
18597
18598 // VIF THU 20 NOV 2025 22:20:22 ** IEEECK ** GENERATED CODE PAGE 00529
18599
18600 int_4 _ieeeck (int_4 _p_ ispec_, real_4 _p_ zero_, real_4 _p_ one_)
18601 { // ** body not listed **
18683 }
18684
18685 // VIF THU 20 NOV 2025 22:20:22 ** ILADLC ** ILADLC PAGE 00531
18686
18687 // III N N TTTTTTT EEEEEEE GGGGG EEEEEEE RRRRRR 4
18688 // I NN N T E G G E R R * * 4 4
18689 // I N N N T E G E R R * * 4 4
18690 // I N N N T EEEEE G GGGG EEEEE RRRRRR ******* 4444444
18691 // I N N N T E G G E R R * * 4
18692 // I N NN T E G G E R R * * 4
18693 // III N N T EEEEEEE GGGGG EEEEEEE R R 4
18694
18695 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
18696 // F U U NN N C C T I O O NN N
18697 // F U U N N N C T I O O N N N
18698 // FFFFF U U N N N C T I O O N N N
18699 // F U U N N N C T I O O N N N
18700 // F U U N NN C C T I O O N NN
18701 // F UUUUU N N CCCCC T III OOOOO N N
18702
18703 // III L A DDDDDD L CCCCC
18704 // I L A A D D L C C
18705 // I L A A D D L C
18706 // I L A A D D L C
18707 // I L AAAAAAA D D L C
18708 // I L A A D D L C C
18709 // III LLLLLLL A A DDDDDD LLLLLLL CCCCC
18710
18711
18712 // VIF THU 20 NOV 2025 22:20:22 ** ILADLC ** DIAGNOSTICS PAGE 00532
18713
18714
18715 // VIF THU 20 NOV 2025 22:20:22 ** ILADLC ** GENERATED CODE PAGE 00533
18716
18717 int_4 _iladlc (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_)
18718 { // ** body not listed **
18739 }
18740
18741 // VIF THU 20 NOV 2025 22:20:22 ** ILADLR ** ILADLR PAGE 00534
18742
18743 // III N N TTTTTTT EEEEEEE GGGGG EEEEEEE RRRRRR 4
18744 // I NN N T E G G E R R * * 4 4
18745 // I N N N T E G E R R * * 4 4
18746 // I N N N T EEEEE G GGGG EEEEE RRRRRR ******* 4444444
18747 // I N N N T E G G E R R * * 4
18748 // I N NN T E G G E R R * * 4
18749 // III N N T EEEEEEE GGGGG EEEEEEE R R 4
18750
18751 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
18752 // F U U NN N C C T I O O NN N
18753 // F U U N N N C T I O O N N N
18754 // FFFFF U U N N N C T I O O N N N
18755 // F U U N N N C T I O O N N N
18756 // F U U N NN C C T I O O N NN
18757 // F UUUUU N N CCCCC T III OOOOO N N
18758
18759 // III L A DDDDDD L RRRRRR
18760 // I L A A D D L R R
18761 // I L A A D D L R R
18762 // I L A A D D L RRRRRR
18763 // I L AAAAAAA D D L R R
18764 // I L A A D D L R R
18765 // III LLLLLLL A A DDDDDD LLLLLLL R R
18766
18767
18768 // VIF THU 20 NOV 2025 22:20:22 ** ILADLR ** DIAGNOSTICS PAGE 00535
18769
18770
18771 // VIF THU 20 NOV 2025 22:20:22 ** ILADLR ** GENERATED CODE PAGE 00536
18772
18773 int_4 _iladlr (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_)
18774 { // ** body not listed **
18795 }
18796
18797 // VIF THU 20 NOV 2025 22:20:22 ** ILAENV ** ILAENV PAGE 00537
18798
18799 // III N N TTTTTTT EEEEEEE GGGGG EEEEEEE RRRRRR 4
18800 // I NN N T E G G E R R * * 4 4
18801 // I N N N T E G E R R * * 4 4
18802 // I N N N T EEEEE G GGGG EEEEE RRRRRR ******* 4444444
18803 // I N N N T E G G E R R * * 4
18804 // I N NN T E G G E R R * * 4
18805 // III N N T EEEEEEE GGGGG EEEEEEE R R 4
18806
18807 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
18808 // F U U NN N C C T I O O NN N
18809 // F U U N N N C T I O O N N N
18810 // FFFFF U U N N N C T I O O N N N
18811 // F U U N N N C T I O O N N N
18812 // F U U N NN C C T I O O N NN
18813 // F UUUUU N N CCCCC T III OOOOO N N
18814
18815 // III L A EEEEEEE N N V V
18816 // I L A A E NN N V V
18817 // I L A A E N N N V V
18818 // I L A A EEEEE N N N V V
18819 // I L AAAAAAA E N N N V V
18820 // I L A A E N NN V V
18821 // III LLLLLLL A A EEEEEEE N N V
18822
18823
18824 // VIF THU 20 NOV 2025 22:20:22 ** ILAENV ** DIAGNOSTICS PAGE 00538
18825
18826
18827 // VIF THU 20 NOV 2025 22:20:22 ** ILAENV ** GENERATED CODE PAGE 00539
18828
18829 int_4 _ilaenv (int_4 _p_ ispec_, char _p_ name_, char _p_ opts_, int_4 _p_ n1_, int_4 _p_ n2_, int_4 _p_ n3_, int_4 _p_
18830 n4_)
18831 { // ** body not listed **
19409 }
19410
19411 // VIF THU 20 NOV 2025 22:20:22 ** IPARMQ ** IPARMQ PAGE 00551
19412
19413 // III N N TTTTTTT EEEEEEE GGGGG EEEEEEE RRRRRR 4
19414 // I NN N T E G G E R R * * 4 4
19415 // I N N N T E G E R R * * 4 4
19416 // I N N N T EEEEE G GGGG EEEEE RRRRRR ******* 4444444
19417 // I N N N T E G G E R R * * 4
19418 // I N NN T E G G E R R * * 4
19419 // III N N T EEEEEEE GGGGG EEEEEEE R R 4
19420
19421 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
19422 // F U U NN N C C T I O O NN N
19423 // F U U N N N C T I O O N N N
19424 // FFFFF U U N N N C T I O O N N N
19425 // F U U N N N C T I O O N N N
19426 // F U U N NN C C T I O O N NN
19427 // F UUUUU N N CCCCC T III OOOOO N N
19428
19429 // III PPPPPP A RRRRRR M M QQQQQ
19430 // I P P A A R R MM MM Q Q
19431 // I P P A A R R M M M M Q Q
19432 // I PPPPPP A A RRRRRR M M M Q Q
19433 // I P AAAAAAA R R M M Q Q Q
19434 // I P A A R R M M Q Q
19435 // III P A A R R M M QQQQ Q
19436
19437
19438 // VIF THU 20 NOV 2025 22:20:22 ** IPARMQ ** DIAGNOSTICS PAGE 00552
19439
19440
19441 // VIF THU 20 NOV 2025 22:20:22 ** IPARMQ ** GENERATED CODE PAGE 00553
19442
19443 int_4 _iparmq (int_4 _p_ ispec_, char _p_ name_, char _p_ opts_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_, int_4
19444 _p_ lwork_)
19445 { // ** body not listed **
19568 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
