mathlib-eispack.c
1 //! @file mathlib-eispack.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 EISPACK
24
25 // Compiled from Fortran source code by VIF.
26
27 // EISPACK is a collection of double-precision Fortran subroutines that
28 // compute the eigenvalues and eigenvectors of nine classes of matrices:
29 // complex general, complex Hermitian, real general, real symmetric, real
30 // symmetric banded, real symmetric tridiagonal, special real
31 // tridiagonal, generalized real, and generalized real symmetric matices.
32 // In addition, two routines are included that use singular value
33 // decomposition to solve certain least-squares problems.
34 //
35 // Originally written around 1972–1973,[1] EISPACK, like LINPACK and MINPACK,
36 // originated from Argonne National Laboratory, has always been free, and
37 // aims to be portable, robust and reliable. The library drew heavily on
38 // algorithms developed by James Wilkinson, which were originally implemented
39 // in ALGOL. Brian Smith led a team at Argonne developing EISPACK, initially
40 // by translating these algorithms into FORTRAN. Jack Dongarra joined the
41 // team as an undergraduate intern at Argonne, and later went on to create
42 // LAPACK, which has largely superseded EISPACK and LINPACK.
43 //
44 // This version of EISPACK is adapted for VIF.
45 // Adaptations are trivial, concerning choosing alternative names for
46 // variable names that coincided with intrinsic functions.
47 //
48 // Source: netlib.org/eispack/
49
50 // The license for EISPACK Fortran source code is:
51 //
52 // EISPACK, like LINPACK and MINPACK, originated from Argonne National Laboratory
53 // and has always been free. EISPACK did not have a copyright notice or involved
54 // any kind of license. The term "open source" was not yet widely used at the time.
55 //
56 // Source: netlib.org/eispack/
57 //
58 // This particular version is John Burkardt's adaptation of original EISPACK code.
59 // John Burkardt released his version under GNU LGPL.
60
61 // VIF THU 20 NOV 2025 22:19:18 ** MARCEL ** EISPACK PAGE 00001
62
63
64
65 // M M A RRRRRR CCCCC EEEEEEE L
66 // MM MM A A R R C C E L
67 // M M M M A A R R C E L
68 // M M M A A RRRRRR C EEEEE L
69 // M M AAAAAAA R R C E L
70 // M M A A R R C C E L
71 // M M A A R R CCCCC EEEEEEE LLLLLLL
72
73 // EEEEEEE III SSSSS PPPPPP A CCCCC K K
74 // E I S S P P A A C C K K
75 // E I S P P A A C K K
76 // EEEEE I SSSSS PPPPPP A A C KKK
77 // E I S P AAAAAAA C K K
78 // E I S S P A A C C K K
79 // EEEEEEE III SSSSS P A A CCCCC K K
80
81
82
83
84 // VIF THU 20 NOV 2025 22:19:18 ** GLOBAL SCOPE ** DIAGNOSTICS PAGE 00002
85
86 // ** linker ** object size 737240 bytes
87 // ** statistics ** 82 subprograms, no errors, no warnings
88
89
90 // VIF THU 20 NOV 2025 22:19:18 ** GLOBAL SCOPE ** JOB CONTROL PAGE 00003
91
92
93 // Line JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
94
95
96
97 // VIF THU 20 NOV 2025 22:19:18 ** GLOBAL SCOPE ** DEFINITIONS PAGE 00004
98
99 /*
100 Generated by VIF - experimental VIntage Fortran compiler.
101 VIF release 1.4.1
102 */
103
104 #if defined (__GNUC__)
105 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
106 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
107 #if (__GNUC__ >= 14)
108 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
109 #pragma GCC diagnostic ignored "-Wimplicit-int"
110 #pragma GCC diagnostic ignored "-Wint-conversion"
111 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
112 #endif
113 #else
114 #error VIF requires GCC
115 #endif
116
117 #include <vif.h>
118
119 static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
120
121
122 #define _dc_0 " "
123 #define _dc_1 "RSPP - Fatal error!"
124 #define _dc_2 " Error return from RATQR."
125 #define _dc_3 " Error return from TINVIT."
126 #define _dc_4 "SLATEC"
127 #define _dc_5 "SSPEV"
128 #define _dc_6 "N .GT. LDV."
129 #define _dc_7 "N .LT. 1"
130
131
132
133 // VIF THU 20 NOV 2025 22:19:18 ** GLOBAL SCOPE ** TYPEDEFS PAGE 00005
134
135 static FORMAT *__fmt_a = NULL;
136 typedef char char_1[2];
137 typedef char char_7[8];
138 typedef char char_15[16];
139 typedef char char_31[32];
140
141
142 // VIF THU 20 NOV 2025 22:19:18 ** GLOBAL SCOPE ** FREQUENCY TABLE PAGE 00006
143
144 #define __ncalls 83
145 static CALLS __calls[__ncalls] = {
146 { // ** body not listed **"bakvec", 0}, // subroutine
148 { // ** body not listed **"balbak", 0}, // subroutine
150 { // ** body not listed **"bandv", 0}, // subroutine
152 { // ** body not listed **"bqr", 0}, // subroutine
154 { // ** body not listed **"cbal", 0}, // subroutine
156 { // ** body not listed **"cg", 0}, // subroutine
158 { // ** body not listed **"cgqr", 0}, // subroutine
160 { // ** body not listed **"ch", 0}, // subroutine
162 { // ** body not listed **"combak", 0}, // subroutine
164 { // ** body not listed **"comlr2", 0}, // subroutine
166 { // ** body not listed **"comqr2", 0}, // subroutine
168 { // ** body not listed **"cortb", 0}, // subroutine
170 { // ** body not listed **"csroot", 0}, // subroutine
172 { // ** body not listed **"elmbak", 0}, // subroutine
174 { // ** body not listed **"eltran", 0}, // subroutine
176 { // ** body not listed **"figi2", 0}, // subroutine
178 { // ** body not listed **"hqr2", 0}, // subroutine
180 { // ** body not listed **"htrib3", 0}, // subroutine
182 { // ** body not listed **"htrid3", 0}, // subroutine
184 { // ** body not listed **"imtql1", 0}, // subroutine
186 { // ** body not listed **"imtqlv", 0}, // subroutine
188 { // ** body not listed **"minfit", 0}, // subroutine
190 { // ** body not listed **"orthes", 0}, // subroutine
192 { // ** body not listed **"qzhes", 0}, // subroutine
196 { // ** body not listed **"qzval", 0}, // subroutine
198 { // ** body not listed **"ratqr", 0}, // subroutine
200 { // ** body not listed **"rebak", 0}, // subroutine
202 { // ** body not listed **"reduc", 0}, // subroutine
204 { // ** body not listed **"rg", 0}, // subroutine
206 { // ** body not listed **"rgort", 0}, // subroutine
208 { // ** body not listed **"rs", 0}, // subroutine
210 { // ** body not listed **"rsgba", 0}, // subroutine
212 { // ** body not listed **"rsm", 0}, // subroutine
214 { // ** body not listed **"rspp", 0}, // subroutine
216 { // ** body not listed **"rt", 0}, // subroutine
218 { // ** body not listed **"svd", 0}, // subroutine
220 { // ** body not listed **"tql1", 0}, // subroutine
222 { // ** body not listed **"tqlrat", 0}, // subroutine
224 { // ** body not listed **"trbak3", 0}, // subroutine
226 { // ** body not listed **"tred2", 0}, // subroutine
228 { // ** body not listed **"tridib", 0}, // subroutine
230 { // ** body not listed **NULL, 0}
231 };
436 { // ** body not listed **
470 }
471
472 // VIF THU 20 NOV 2025 22:19:18 ** BALANC ** BALANC PAGE 00016
473
474 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
475 // S S U U B B R R O O U U T I NN N E
476 // S U U B B R R O O U U T I N N N E
477 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
478 // S U U B B R R O O U U T I N N N E
479 // S S U U B B R R O O U U T I N NN E
480 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
481
482 // BBBBBB A L A N N CCCCC
483 // B B A A L A A NN N C C
484 // B B A A L A A N N N C
485 // BBBBBB A A L A A N N N C
486 // B B AAAAAAA L AAAAAAA N N N C
487 // B B A A L A A N NN C C
488 // BBBBBB A A LLLLLLL A A N N CCCCC
489
490
491 // VIF THU 20 NOV 2025 22:19:18 ** BALANC ** DIAGNOSTICS PAGE 00017
492
493
494 // VIF THU 20 NOV 2025 22:19:18 ** BALANC ** GENERATED CODE PAGE 00018
495
496 int_4 _balanc (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ scale_)
497 { // ** body not listed **
633 }
634
635 // VIF THU 20 NOV 2025 22:19:18 ** BALBAK ** BALBAK PAGE 00021
636
637 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
638 // S S U U B B R R O O U U T I NN N E
639 // S U U B B R R O O U U T I N N N E
640 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
641 // S U U B B R R O O U U T I N N N E
642 // S S U U B B R R O O U U T I N NN E
643 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
644
645 // BBBBBB A L BBBBBB A K K
646 // B B A A L B B A A K K
647 // B B A A L B B A A K K
648 // BBBBBB A A L BBBBBB A A KKK
649 // B B AAAAAAA L B B AAAAAAA K K
650 // B B A A L B B A A K K
651 // BBBBBB A A LLLLLLL BBBBBB A A K K
652
653
654 // VIF THU 20 NOV 2025 22:19:18 ** BALBAK ** DIAGNOSTICS PAGE 00022
655
656
657 // VIF THU 20 NOV 2025 22:19:18 ** BALBAK ** GENERATED CODE PAGE 00023
658
659 int_4 _balbak (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ scale_, int_4 _p_ m_, real_8 _p_
660 z_)
661 { // ** body not listed **
699 }
700
701 // VIF THU 20 NOV 2025 22:19:18 ** BANDR ** BANDR PAGE 00024
702
703 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
704 // S S U U B B R R O O U U T I NN N E
705 // S U U B B R R O O U U T I N N N E
706 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
707 // S U U B B R R O O U U T I N N N E
708 // S S U U B B R R O O U U T I N NN E
709 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
710
711 // BBBBBB A N N DDDDDD RRRRRR
712 // B B A A NN N D D R R
713 // B B A A N N N D D R R
714 // BBBBBB A A N N N D D RRRRRR
715 // B B AAAAAAA N N N D D R R
716 // B B A A N NN D D R R
717 // BBBBBB A A N N DDDDDD R R
718
719
720 // VIF THU 20 NOV 2025 22:19:18 ** BANDR ** DIAGNOSTICS PAGE 00025
721
722
723 // VIF THU 20 NOV 2025 22:19:18 ** BANDR ** GENERATED CODE PAGE 00026
724
725 int_4 _bandr (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ mb_, real_8 _p_ a_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ e2_,
726 logical_4 _p_ matz_, real_8 _p_ z_)
727 { // ** body not listed **
961 }
962
963 // VIF THU 20 NOV 2025 22:19:18 ** BANDV ** BANDV PAGE 00031
964
965 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
966 // S S U U B B R R O O U U T I NN N E
967 // S U U B B R R O O U U T I N N N E
968 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
969 // S U U B B R R O O U U T I N N N E
970 // S S U U B B R R O O U U T I N NN E
971 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
972
973 // BBBBBB A N N DDDDDD V V
974 // B B A A NN N D D V V
975 // B B A A N N N D D V V
976 // BBBBBB A A N N N D D V V
977 // B B AAAAAAA N N N D D V V
978 // B B A A N NN D D V V
979 // BBBBBB A A N N DDDDDD V
980
981
982 // VIF THU 20 NOV 2025 22:19:18 ** BANDV ** DIAGNOSTICS PAGE 00032
983
984
985 // VIF THU 20 NOV 2025 22:19:18 ** BANDV ** GENERATED CODE PAGE 00033
986
987 int_4 _bandv (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ mbw_, real_8 _p_ a_, real_8 _p_ e21_, int_4 _p_ m_, real_8 _p_ w_,
988 real_8 _p_ z_, int_4 _p_ ierr_, int_4 _p_ nv_, real_8 _p_ rv_, real_8 _p_ rv6_)
989 { // ** body not listed **
1250 }
1251
1252 // VIF THU 20 NOV 2025 22:19:18 ** BISECT ** BISECT PAGE 00039
1253
1254 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1255 // S S U U B B R R O O U U T I NN N E
1256 // S U U B B R R O O U U T I N N N E
1257 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1258 // S U U B B R R O O U U T I N N N E
1259 // S S U U B B R R O O U U T I N NN E
1260 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1261
1262 // BBBBBB III SSSSS EEEEEEE CCCCC TTTTTTT
1263 // B B I S S E C C T
1264 // B B I S E C T
1265 // BBBBBB I SSSSS EEEEE C T
1266 // B B I S E C T
1267 // B B I S S E C C T
1268 // BBBBBB III SSSSS EEEEEEE CCCCC T
1269
1270
1271 // VIF THU 20 NOV 2025 22:19:18 ** BISECT ** DIAGNOSTICS PAGE 00040
1272
1273
1274 // VIF THU 20 NOV 2025 22:19:18 ** BISECT ** GENERATED CODE PAGE 00041
1275
1276 int_4 _bisect (int_4 _p_ n_, real_8 _p_ eps1_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ e2_, real_8 _p_ lb_, real_8 _p_
1277 ub_, int_4 _p_ mm_, int_4 _p_ m_, real_8 _p_ w_, int_4 _p_ ind_, int_4 _p_ ierr_, real_8 _p_ rv4_, real_8 _p_ rv5_)
1278 { // ** body not listed **
1507 }
1508
1509 // VIF THU 20 NOV 2025 22:19:18 ** BQR ** BQR PAGE 00046
1510
1511 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1512 // S S U U B B R R O O U U T I NN N E
1513 // S U U B B R R O O U U T I N N N E
1514 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1515 // S U U B B R R O O U U T I N N N E
1516 // S S U U B B R R O O U U T I N NN E
1517 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1518
1519 // BBBBBB QQQQQ RRRRRR
1520 // B B Q Q R R
1521 // B B Q Q R R
1522 // BBBBBB Q Q RRRRRR
1523 // B B Q Q Q R R
1524 // B B Q Q R R
1525 // BBBBBB QQQQ Q R R
1526
1527
1528 // VIF THU 20 NOV 2025 22:19:18 ** BQR ** DIAGNOSTICS PAGE 00047
1529
1530
1531 // VIF THU 20 NOV 2025 22:19:18 ** BQR ** GENERATED CODE PAGE 00048
1532
1533 int_4 _bqr (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ mb_, real_8 _p_ a_, real_8 _p_ t_, real_8 _p_ r_, int_4 _p_ ierr_,
1534 int_4 _p_ nv_, real_8 _p_ rv_)
1535 { // ** body not listed **
1741 }
1742
1743 // VIF THU 20 NOV 2025 22:19:18 ** CBABK2 ** CBABK2 PAGE 00053
1744
1745 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1746 // S S U U B B R R O O U U T I NN N E
1747 // S U U B B R R O O U U T I N N N E
1748 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1749 // S U U B B R R O O U U T I N N N E
1750 // S S U U B B R R O O U U T I N NN E
1751 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1752
1753 // CCCCC BBBBBB A BBBBBB K K 22222
1754 // C C B B A A B B K K 2 2
1755 // C B B A A B B K K 2
1756 // C BBBBBB A A BBBBBB KKK 22222
1757 // C B B AAAAAAA B B K K 2
1758 // C C B B A A B B K K 2
1759 // CCCCC BBBBBB A A BBBBBB K K 2222222
1760
1761
1762 // VIF THU 20 NOV 2025 22:19:18 ** CBABK2 ** DIAGNOSTICS PAGE 00054
1763
1764
1765 // VIF THU 20 NOV 2025 22:19:18 ** CBABK2 ** GENERATED CODE PAGE 00055
1766
1767 int_4 _cbabk2 (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ scale_, int_4 _p_ m_, real_8 _p_
1768 zr_, real_8 _p_ zi_)
1769 { // ** body not listed **
1811 }
1812
1813 // VIF THU 20 NOV 2025 22:19:18 ** CBAL ** CBAL PAGE 00056
1814
1815 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1816 // S S U U B B R R O O U U T I NN N E
1817 // S U U B B R R O O U U T I N N N E
1818 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1819 // S U U B B R R O O U U T I N N N E
1820 // S S U U B B R R O O U U T I N NN E
1821 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1822
1823 // CCCCC BBBBBB A L
1824 // C C B B A A L
1825 // C B B A A L
1826 // C BBBBBB A A L
1827 // C B B AAAAAAA L
1828 // C C B B A A L
1829 // CCCCC BBBBBB A A LLLLLLL
1830
1831
1832 // VIF THU 20 NOV 2025 22:19:18 ** CBAL ** DIAGNOSTICS PAGE 00057
1833
1834
1835 // VIF THU 20 NOV 2025 22:19:18 ** CBAL ** GENERATED CODE PAGE 00058
1836
1837 int_4 _cbal (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ ar_, real_8 _p_ ai_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_
1838 scale_)
1839 { // ** body not listed **
1983 }
1984
1985 // VIF THU 20 NOV 2025 22:19:18 ** CDIV ** CDIV PAGE 00061
1986
1987 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
1988 // S S U U B B R R O O U U T I NN N E
1989 // S U U B B R R O O U U T I N N N E
1990 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
1991 // S U U B B R R O O U U T I N N N E
1992 // S S U U B B R R O O U U T I N NN E
1993 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
1994
1995 // CCCCC DDDDDD III V V
1996 // C C D D I V V
1997 // C D D I V V
1998 // C D D I V V
1999 // C D D I V V
2000 // C C D D I V V
2001 // CCCCC DDDDDD III V
2002
2003
2004 // VIF THU 20 NOV 2025 22:19:18 ** CDIV ** DIAGNOSTICS PAGE 00062
2005
2006
2007 // VIF THU 20 NOV 2025 22:19:18 ** CDIV ** GENERATED CODE PAGE 00063
2008
2009 int_4 _cdiv (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_, real_8 _p_ cr_, real_8 _p_ ci_)
2010 { // ** body not listed **
2022 }
2023
2024 // VIF THU 20 NOV 2025 22:19:18 ** CG ** CG PAGE 00064
2025
2026 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2027 // S S U U B B R R O O U U T I NN N E
2028 // S U U B B R R O O U U T I N N N E
2029 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2030 // S U U B B R R O O U U T I N N N E
2031 // S S U U B B R R O O U U T I N NN E
2032 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2033
2034 // CCCCC GGGGG
2035 // C C G G
2036 // C G
2037 // C G GGGG
2038 // C G G
2039 // C C G G
2040 // CCCCC GGGGG
2041
2042
2043 // VIF THU 20 NOV 2025 22:19:18 ** CG ** DIAGNOSTICS PAGE 00065
2044
2045
2046 // VIF THU 20 NOV 2025 22:19:18 ** CG ** GENERATED CODE PAGE 00066
2047
2048 int_4 _cg (int_4 _p_ nm_, int_4 _p_ n_, real_4 _p_ ar_, real_4 _p_ ai_, real_4 _p_ wr_, real_4 _p_ wi_, int_4 _p_ matz_
2049 , real_4 _p_ zr_, real_4 _p_ zi_, real_4 _p_ fv1_, real_4 _p_ fv2_, real_4 _p_ fv3_, int_4 _p_ ierr_)
2050 { // ** body not listed **
2074 }
2075
2076 // VIF THU 20 NOV 2025 22:19:18 ** CGLR ** CGLR PAGE 00067
2077
2078 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2079 // S S U U B B R R O O U U T I NN N E
2080 // S U U B B R R O O U U T I N N N E
2081 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2082 // S U U B B R R O O U U T I N N N E
2083 // S S U U B B R R O O U U T I N NN E
2084 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2085
2086 // CCCCC GGGGG L RRRRRR
2087 // C C G G L R R
2088 // C G L R R
2089 // C G GGGG L RRRRRR
2090 // C G G L R R
2091 // C C G G L R R
2092 // CCCCC GGGGG LLLLLLL R R
2093
2094
2095 // VIF THU 20 NOV 2025 22:19:18 ** CGLR ** DIAGNOSTICS PAGE 00068
2096
2097
2098 // VIF THU 20 NOV 2025 22:19:18 ** CGLR ** GENERATED CODE PAGE 00069
2099
2100 int_4 _cglr (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ wr_, real_8 _p_ wi_, int_4 _p_
2101 matz_, real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fv1_, int_4 _p_ iv1_, int_4 _p_ ierr_)
2102 { // ** body not listed **
2123 }
2124
2125 // VIF THU 20 NOV 2025 22:19:18 ** CGQR ** CGQR PAGE 00070
2126
2127 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2128 // S S U U B B R R O O U U T I NN N E
2129 // S U U B B R R O O U U T I N N N E
2130 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2131 // S U U B B R R O O U U T I N N N E
2132 // S S U U B B R R O O U U T I N NN E
2133 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2134
2135 // CCCCC GGGGG QQQQQ RRRRRR
2136 // C C G G Q Q R R
2137 // C G Q Q R R
2138 // C G GGGG Q Q RRRRRR
2139 // C G G Q Q Q R R
2140 // C C G G Q Q R R
2141 // CCCCC GGGGG QQQQ Q R R
2142
2143
2144 // VIF THU 20 NOV 2025 22:19:18 ** CGQR ** DIAGNOSTICS PAGE 00071
2145
2146
2147 // VIF THU 20 NOV 2025 22:19:18 ** CGQR ** GENERATED CODE PAGE 00072
2148
2149 int_4 _cgqr (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ wr_, real_8 _p_ wi_, int_4 _p_
2150 matz_, real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fv1_, real_8 _p_ fv2_, real_8 _p_ fv3_, int_4 _p_ ierr_)
2151 { // ** body not listed **
2175 }
2176
2177 // VIF THU 20 NOV 2025 22:19:18 ** CH3 ** CH3 PAGE 00073
2178
2179 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2180 // S S U U B B R R O O U U T I NN N E
2181 // S U U B B R R O O U U T I N N N E
2182 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2183 // S U U B B R R O O U U T I N N N E
2184 // S S U U B B R R O O U U T I N NN E
2185 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2186
2187 // CCCCC H H 33333
2188 // C C H H 3 3
2189 // C H H 3
2190 // C HHHHHHH 33333
2191 // C H H 3
2192 // C C H H 3 3
2193 // CCCCC H H 33333
2194
2195
2196 // VIF THU 20 NOV 2025 22:19:18 ** CH3 ** DIAGNOSTICS PAGE 00074
2197
2198
2199 // VIF THU 20 NOV 2025 22:19:18 ** CH3 ** GENERATED CODE PAGE 00075
2200
2201 int_4 _ch3 (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ w_, int_4 _p_ matz_, real_8 _p_ zr_, real_8 _p_ zi_,
2202 real_8 _p_ fv1_, real_8 _p_ fv2_, real_8 _p_ fm1_, int_4 _p_ ierr_)
2203 { // ** body not listed **
2232 }
2233
2234 // VIF THU 20 NOV 2025 22:19:18 ** CH ** CH PAGE 00076
2235
2236 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2237 // S S U U B B R R O O U U T I NN N E
2238 // S U U B B R R O O U U T I N N N E
2239 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2240 // S U U B B R R O O U U T I N N N E
2241 // S S U U B B R R O O U U T I N NN E
2242 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2243
2244 // CCCCC H H
2245 // C C H H
2246 // C H H
2247 // C HHHHHHH
2248 // C H H
2249 // C C H H
2250 // CCCCC H H
2251
2252
2253 // VIF THU 20 NOV 2025 22:19:18 ** CH ** DIAGNOSTICS PAGE 00077
2254
2255
2256 // VIF THU 20 NOV 2025 22:19:18 ** CH ** GENERATED CODE PAGE 00078
2257
2258 int_4 _ch (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ w_, int_4 _p_ matz_, real_8 _p_ zr_,
2259 real_8 _p_ zi_, real_8 _p_ fv1_, real_8 _p_ fv2_, real_8 _p_ fm1_, int_4 _p_ ierr_)
2260 { // ** body not listed **
2289 }
2290
2291 // VIF THU 20 NOV 2025 22:19:18 ** CINVIT ** CINVIT PAGE 00079
2292
2293 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2294 // S S U U B B R R O O U U T I NN N E
2295 // S U U B B R R O O U U T I N N N E
2296 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2297 // S U U B B R R O O U U T I N N N E
2298 // S S U U B B R R O O U U T I N NN E
2299 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2300
2301 // CCCCC III N N V V III TTTTTTT
2302 // C C I NN N V V I T
2303 // C I N N N V V I T
2304 // C I N N N V V I T
2305 // C I N N N V V I T
2306 // C C I N NN V V I T
2307 // CCCCC III N N V III T
2308
2309
2310 // VIF THU 20 NOV 2025 22:19:18 ** CINVIT ** DIAGNOSTICS PAGE 00080
2311
2312
2313 // VIF THU 20 NOV 2025 22:19:18 ** CINVIT ** GENERATED CODE PAGE 00081
2314
2315 int_4 _cinvit (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ wr_, real_8 _p_ wi_, logical_4
2316 _p_ select_, int_4 _p_ mm_, int_4 _p_ m_, real_8 _p_ zr_, real_8 _p_ zi_, int_4 _p_ ierr_, real_8 _p_ rm1_, real_8 _p_
2317 rm2_, real_8 _p_ rv1_, real_8 _p_ rv2_)
2318 { // ** body not listed **
2519 }
2520
2521 // VIF THU 20 NOV 2025 22:19:18 ** COMBAK ** COMBAK PAGE 00085
2522
2523 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2524 // S S U U B B R R O O U U T I NN N E
2525 // S U U B B R R O O U U T I N N N E
2526 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2527 // S U U B B R R O O U U T I N N N E
2528 // S S U U B B R R O O U U T I N NN E
2529 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2530
2531 // CCCCC OOOOO M M BBBBBB A K K
2532 // C C O O MM MM B B A A K K
2533 // C O O M M M M B B A A K K
2534 // C O O M M M BBBBBB A A KKK
2535 // C O O M M B B AAAAAAA K K
2536 // C C O O M M B B A A K K
2537 // CCCCC OOOOO M M BBBBBB A A K K
2538
2539
2540 // VIF THU 20 NOV 2025 22:19:18 ** COMBAK ** DIAGNOSTICS PAGE 00086
2541
2542
2543 // VIF THU 20 NOV 2025 22:19:18 ** COMBAK ** GENERATED CODE PAGE 00087
2544
2545 int_4 _combak (int_4 _p_ nm_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ ar_, real_8 _p_ ai_, int_4 _p_ int_, int_4 _p_
2546 m_, real_8 _p_ zr_, real_8 _p_ zi_)
2547 { // ** body not listed **
2592 }
2593
2594 // VIF THU 20 NOV 2025 22:19:18 ** COMHES ** COMHES PAGE 00088
2595
2596 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2597 // S S U U B B R R O O U U T I NN N E
2598 // S U U B B R R O O U U T I N N N E
2599 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2600 // S U U B B R R O O U U T I N N N E
2601 // S S U U B B R R O O U U T I N NN E
2602 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2603
2604 // CCCCC OOOOO M M H H EEEEEEE SSSSS
2605 // C C O O MM MM H H E S S
2606 // C O O M M M M H H E S
2607 // C O O M M M HHHHHHH EEEEE SSSSS
2608 // C O O M M H H E S
2609 // C C O O M M H H E S S
2610 // CCCCC OOOOO M M H H EEEEEEE SSSSS
2611
2612
2613 // VIF THU 20 NOV 2025 22:19:18 ** COMHES ** DIAGNOSTICS PAGE 00089
2614
2615
2616 // VIF THU 20 NOV 2025 22:19:18 ** COMHES ** GENERATED CODE PAGE 00090
2617
2618 int_4 _comhes (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ ar_, real_8 _p_ ai_, int_4 _p_
2619 int_)
2620 { // ** body not listed **
2699 }
2700
2701 // VIF THU 20 NOV 2025 22:19:18 ** COMLR2 ** COMLR2 PAGE 00092
2702
2703 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
2704 // S S U U B B R R O O U U T I NN N E
2705 // S U U B B R R O O U U T I N N N E
2706 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
2707 // S U U B B R R O O U U T I N N N E
2708 // S S U U B B R R O O U U T I N NN E
2709 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
2710
2711 // CCCCC OOOOO M M L RRRRRR 22222
2712 // C C O O MM MM L R R 2 2
2713 // C O O M M M M L R R 2
2714 // C O O M M M L RRRRRR 22222
2715 // C O O M M L R R 2
2716 // C C O O M M L R R 2
2717 // CCCCC OOOOO M M LLLLLLL R R 2222222
2718
2719
2720 // VIF THU 20 NOV 2025 22:19:18 ** COMLR2 ** DIAGNOSTICS PAGE 00093
2721
2722
2723 // VIF THU 20 NOV 2025 22:19:18 ** COMLR2 ** GENERATED CODE PAGE 00094
2724
2725 int_4 _comlr2 (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, int_4 _p_ int_, real_8 _p_ hr_, real_8 _p_
2726 hi_, real_8 _p_ wr_, real_8 _p_ wi_, real_8 _p_ zr_, real_8 _p_ zi_, int_4 _p_ ierr_)
2727 { // ** body not listed **
3048 }
3049
3050 // VIF THU 20 NOV 2025 22:19:18 ** COMLR ** COMLR PAGE 00101
3051
3052 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3053 // S S U U B B R R O O U U T I NN N E
3054 // S U U B B R R O O U U T I N N N E
3055 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3056 // S U U B B R R O O U U T I N N N E
3057 // S S U U B B R R O O U U T I N NN E
3058 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3059
3060 // CCCCC OOOOO M M L RRRRRR
3061 // C C O O MM MM L R R
3062 // C O O M M M M L R R
3063 // C O O M M M L RRRRRR
3064 // C O O M M L R R
3065 // C C O O M M L R R
3066 // CCCCC OOOOO M M LLLLLLL R R
3067
3068
3069 // VIF THU 20 NOV 2025 22:19:18 ** COMLR ** DIAGNOSTICS PAGE 00102
3070
3071
3072 // VIF THU 20 NOV 2025 22:19:18 ** COMLR ** GENERATED CODE PAGE 00103
3073
3074 int_4 _comlr (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ hr_, real_8 _p_ hi_, real_8 _p_
3075 wr_, real_8 _p_ wi_, int_4 _p_ ierr_)
3076 { // ** body not listed **
3251 }
3252
3253 // VIF THU 20 NOV 2025 22:19:18 ** COMQR2 ** COMQR2 PAGE 00107
3254
3255 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3256 // S S U U B B R R O O U U T I NN N E
3257 // S U U B B R R O O U U T I N N N E
3258 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3259 // S U U B B R R O O U U T I N N N E
3260 // S S U U B B R R O O U U T I N NN E
3261 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3262
3263 // CCCCC OOOOO M M QQQQQ RRRRRR 22222
3264 // C C O O MM MM Q Q R R 2 2
3265 // C O O M M M M Q Q R R 2
3266 // C O O M M M Q Q RRRRRR 22222
3267 // C O O M M Q Q Q R R 2
3268 // C C O O M M Q Q R R 2
3269 // CCCCC OOOOO M M QQQQ Q R R 2222222
3270
3271
3272 // VIF THU 20 NOV 2025 22:19:18 ** COMQR2 ** DIAGNOSTICS PAGE 00108
3273
3274
3275 // VIF THU 20 NOV 2025 22:19:18 ** COMQR2 ** GENERATED CODE PAGE 00109
3276
3277 int_4 _comqr2 (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ ortr_, real_8 _p_ orti_, real_8
3278 _p_ hr_, real_8 _p_ hi_, real_8 _p_ wr_, real_8 _p_ wi_, real_8 _p_ zr_, real_8 _p_ zi_, int_4 _p_ ierr_)
3279 { // ** body not listed **
3643 }
3644
3645 // VIF THU 20 NOV 2025 22:19:18 ** COMQR ** COMQR PAGE 00117
3646
3647 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3648 // S S U U B B R R O O U U T I NN N E
3649 // S U U B B R R O O U U T I N N N E
3650 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3651 // S U U B B R R O O U U T I N N N E
3652 // S S U U B B R R O O U U T I N NN E
3653 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3654
3655 // CCCCC OOOOO M M QQQQQ RRRRRR
3656 // C C O O MM MM Q Q R R
3657 // C O O M M M M Q Q R R
3658 // C O O M M M Q Q RRRRRR
3659 // C O O M M Q Q Q R R
3660 // C C O O M M Q Q R R
3661 // CCCCC OOOOO M M QQQQ Q R R
3662
3663
3664 // VIF THU 20 NOV 2025 22:19:18 ** COMQR ** DIAGNOSTICS PAGE 00118
3665
3666
3667 // VIF THU 20 NOV 2025 22:19:18 ** COMQR ** GENERATED CODE PAGE 00119
3668
3669 int_4 _comqr (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ hr_, real_8 _p_ hi_, real_8 _p_
3670 wr_, real_8 _p_ wi_, int_4 _p_ ierr_)
3671 { // ** body not listed **
3858 }
3859
3860 // VIF THU 20 NOV 2025 22:19:18 ** CORTB ** CORTB PAGE 00123
3861
3862 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3863 // S S U U B B R R O O U U T I NN N E
3864 // S U U B B R R O O U U T I N N N E
3865 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3866 // S U U B B R R O O U U T I N N N E
3867 // S S U U B B R R O O U U T I N NN E
3868 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3869
3870 // CCCCC OOOOO RRRRRR TTTTTTT BBBBBB
3871 // C C O O R R T B B
3872 // C O O R R T B B
3873 // C O O RRRRRR T BBBBBB
3874 // C O O R R T B B
3875 // C C O O R R T B B
3876 // CCCCC OOOOO R R T BBBBBB
3877
3878
3879 // VIF THU 20 NOV 2025 22:19:18 ** CORTB ** DIAGNOSTICS PAGE 00124
3880
3881
3882 // VIF THU 20 NOV 2025 22:19:18 ** CORTB ** GENERATED CODE PAGE 00125
3883
3884 int_4 _cortb (int_4 _p_ nm_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ ortr_, real_8
3885 _p_ orti_, int_4 _p_ m_, real_8 _p_ zr_, real_8 _p_ zi_)
3886 { // ** body not listed **
3928 }
3929
3930 // VIF THU 20 NOV 2025 22:19:18 ** CORTH ** CORTH PAGE 00126
3931
3932 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
3933 // S S U U B B R R O O U U T I NN N E
3934 // S U U B B R R O O U U T I N N N E
3935 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
3936 // S U U B B R R O O U U T I N N N E
3937 // S S U U B B R R O O U U T I N NN E
3938 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
3939
3940 // CCCCC OOOOO RRRRRR TTTTTTT H H
3941 // C C O O R R T H H
3942 // C O O R R T H H
3943 // C O O RRRRRR T HHHHHHH
3944 // C O O R R T H H
3945 // C C O O R R T H H
3946 // CCCCC OOOOO R R T H H
3947
3948
3949 // VIF THU 20 NOV 2025 22:19:18 ** CORTH ** DIAGNOSTICS PAGE 00127
3950
3951
3952 // VIF THU 20 NOV 2025 22:19:18 ** CORTH ** GENERATED CODE PAGE 00128
3953
3954 int_4 _corth (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_
3955 ortr_, real_8 _p_ orti_)
3956 { // ** body not listed **
4038 }
4039
4040 // VIF THU 20 NOV 2025 22:19:18 ** CSROOT ** CSROOT PAGE 00130
4041
4042 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4043 // S S U U B B R R O O U U T I NN N E
4044 // S U U B B R R O O U U T I N N N E
4045 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4046 // S U U B B R R O O U U T I N N N E
4047 // S S U U B B R R O O U U T I N NN E
4048 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4049
4050 // CCCCC SSSSS RRRRRR OOOOO OOOOO TTTTTTT
4051 // C C S S R R O O O O T
4052 // C S R R O O O O T
4053 // C SSSSS RRRRRR O O O O T
4054 // C S R R O O O O T
4055 // C C S S R R O O O O T
4056 // CCCCC SSSSS R R OOOOO OOOOO T
4057
4058
4059 // VIF THU 20 NOV 2025 22:19:18 ** CSROOT ** DIAGNOSTICS PAGE 00131
4060
4061
4062 // VIF THU 20 NOV 2025 22:19:18 ** CSROOT ** GENERATED CODE PAGE 00132
4063
4064 int_4 _csroot (real_8 _p_ xr_, real_8 _p_ xi_, real_8 _p_ yr_, real_8 _p_ yi_)
4065 { // ** body not listed **
4088 }
4089
4090 // VIF THU 20 NOV 2025 22:19:18 ** EISDOC ** EISDOC PAGE 00133
4091
4092 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4093 // S S U U B B R R O O U U T I NN N E
4094 // S U U B B R R O O U U T I N N N E
4095 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4096 // S U U B B R R O O U U T I N N N E
4097 // S S U U B B R R O O U U T I N NN E
4098 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4099
4100 // EEEEEEE III SSSSS DDDDDD OOOOO CCCCC
4101 // E I S S D D O O C C
4102 // E I S D D O O C
4103 // EEEEE I SSSSS D D O O C
4104 // E I S D D O O C
4105 // E I S S D D O O C C
4106 // EEEEEEE III SSSSS DDDDDD OOOOO CCCCC
4107
4108
4109 // VIF THU 20 NOV 2025 22:19:18 ** EISDOC ** DIAGNOSTICS PAGE 00134
4110
4111
4112 // VIF THU 20 NOV 2025 22:19:18 ** EISDOC ** GENERATED CODE PAGE 00135
4113
4114 int_4 _eisdoc (void)
4115 { // ** body not listed **
4118 }
4119
4120 // VIF THU 20 NOV 2025 22:19:18 ** ELMBAK ** ELMBAK PAGE 00136
4121
4122 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4123 // S S U U B B R R O O U U T I NN N E
4124 // S U U B B R R O O U U T I N N N E
4125 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4126 // S U U B B R R O O U U T I N N N E
4127 // S S U U B B R R O O U U T I N NN E
4128 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4129
4130 // EEEEEEE L M M BBBBBB A K K
4131 // E L MM MM B B A A K K
4132 // E L M M M M B B A A K K
4133 // EEEEE L M M M BBBBBB A A KKK
4134 // E L M M B B AAAAAAA K K
4135 // E L M M B B A A K K
4136 // EEEEEEE LLLLLLL M M BBBBBB A A K K
4137
4138
4139 // VIF THU 20 NOV 2025 22:19:18 ** ELMBAK ** DIAGNOSTICS PAGE 00137
4140
4141
4142 // VIF THU 20 NOV 2025 22:19:18 ** ELMBAK ** GENERATED CODE PAGE 00138
4143
4144 int_4 _elmbak (int_4 _p_ nm_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ a_, int_4 _p_ int_, int_4 _p_ m_, real_8 _p_
4145 z_)
4146 { // ** body not listed **
4184 }
4185
4186 // VIF THU 20 NOV 2025 22:19:18 ** ELMHES ** ELMHES PAGE 00139
4187
4188 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4189 // S S U U B B R R O O U U T I NN N E
4190 // S U U B B R R O O U U T I N N N E
4191 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4192 // S U U B B R R O O U U T I N N N E
4193 // S S U U B B R R O O U U T I N NN E
4194 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4195
4196 // EEEEEEE L M M H H EEEEEEE SSSSS
4197 // E L MM MM H H E S S
4198 // E L M M M M H H E S
4199 // EEEEE L M M M HHHHHHH EEEEE SSSSS
4200 // E L M M H H E S
4201 // E L M M H H E S S
4202 // EEEEEEE LLLLLLL M M H H EEEEEEE SSSSS
4203
4204
4205 // VIF THU 20 NOV 2025 22:19:18 ** ELMHES ** DIAGNOSTICS PAGE 00140
4206
4207
4208 // VIF THU 20 NOV 2025 22:19:18 ** ELMHES ** GENERATED CODE PAGE 00141
4209
4210 int_4 _elmhes (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ a_, int_4 _p_ int_)
4211 { // ** body not listed **
4273 }
4274
4275 // VIF THU 20 NOV 2025 22:19:18 ** ELTRAN ** ELTRAN PAGE 00143
4276
4277 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4278 // S S U U B B R R O O U U T I NN N E
4279 // S U U B B R R O O U U T I N N N E
4280 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4281 // S U U B B R R O O U U T I N N N E
4282 // S S U U B B R R O O U U T I N NN E
4283 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4284
4285 // EEEEEEE L TTTTTTT RRRRRR A N N
4286 // E L T R R A A NN N
4287 // E L T R R A A N N N
4288 // EEEEE L T RRRRRR A A N N N
4289 // E L T R R AAAAAAA N N N
4290 // E L T R R A A N NN
4291 // EEEEEEE LLLLLLL T R R A A N N
4292
4293
4294 // VIF THU 20 NOV 2025 22:19:18 ** ELTRAN ** DIAGNOSTICS PAGE 00144
4295
4296
4297 // VIF THU 20 NOV 2025 22:19:18 ** ELTRAN ** GENERATED CODE PAGE 00145
4298
4299 int_4 _eltran (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ a_, int_4 _p_ int_, real_8 _p_
4300 z_)
4301 { // ** body not listed **
4333 }
4334
4335 // VIF THU 20 NOV 2025 22:19:18 ** EPSLON ** EPSLON PAGE 00146
4336
4337 // RRRRRR EEEEEEE A L 88888
4338 // R R E A A L * * 8 8
4339 // R R E A A L * * 8 8
4340 // RRRRRR EEEEE A A L ******* 88888
4341 // R R E AAAAAAA L * * 8 8
4342 // R R E A A L * * 8 8
4343 // R R EEEEEEE A A LLLLLLL 88888
4344
4345 // FFFFFFF U U N N CCCCC TTTTTTT III OOOOO N N
4346 // F U U NN N C C T I O O NN N
4347 // F U U N N N C T I O O N N N
4348 // FFFFF U U N N N C T I O O N N N
4349 // F U U N N N C T I O O N N N
4350 // F U U N NN C C T I O O N NN
4351 // F UUUUU N N CCCCC T III OOOOO N N
4352
4353 // EEEEEEE PPPPPP SSSSS L OOOOO N N
4354 // E P P S S L O O NN N
4355 // E P P S L O O N N N
4356 // EEEEE PPPPPP SSSSS L O O N N N
4357 // E P S L O O N N N
4358 // E P S S L O O N NN
4359 // EEEEEEE P SSSSS LLLLLLL OOOOO N N
4360
4361
4362 // VIF THU 20 NOV 2025 22:19:18 ** EPSLON ** DIAGNOSTICS PAGE 00147
4363
4364
4365 // VIF THU 20 NOV 2025 22:19:18 ** EPSLON ** GENERATED CODE PAGE 00148
4366
4367 real_8 _epslon (real_8 _p_ x_)
4368 { // ** body not listed **
4382 }
4383
4384 // VIF THU 20 NOV 2025 22:19:18 ** FIGI2 ** FIGI2 PAGE 00149
4385
4386 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4387 // S S U U B B R R O O U U T I NN N E
4388 // S U U B B R R O O U U T I N N N E
4389 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4390 // S U U B B R R O O U U T I N N N E
4391 // S S U U B B R R O O U U T I N NN E
4392 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4393
4394 // FFFFFFF III GGGGG III 22222
4395 // F I G G I 2 2
4396 // F I G I 2
4397 // FFFFF I G GGGG I 22222
4398 // F I G G I 2
4399 // F I G G I 2
4400 // F III GGGGG III 2222222
4401
4402
4403 // VIF THU 20 NOV 2025 22:19:18 ** FIGI2 ** DIAGNOSTICS PAGE 00150
4404
4405
4406 // VIF THU 20 NOV 2025 22:19:18 ** FIGI2 ** GENERATED CODE PAGE 00151
4407
4408 int_4 _figi2 (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ t_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ z_, int_4 _p_ ierr_)
4409 { // ** body not listed **
4454 }
4455
4456 // VIF THU 20 NOV 2025 22:19:18 ** FIGI ** FIGI PAGE 00152
4457
4458 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4459 // S S U U B B R R O O U U T I NN N E
4460 // S U U B B R R O O U U T I N N N E
4461 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4462 // S U U B B R R O O U U T I N N N E
4463 // S S U U B B R R O O U U T I N NN E
4464 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4465
4466 // FFFFFFF III GGGGG III
4467 // F I G G I
4468 // F I G I
4469 // FFFFF I G GGGG I
4470 // F I G G I
4471 // F I G G I
4472 // F III GGGGG III
4473
4474
4475 // VIF THU 20 NOV 2025 22:19:18 ** FIGI ** DIAGNOSTICS PAGE 00153
4476
4477
4478 // VIF THU 20 NOV 2025 22:19:18 ** FIGI ** GENERATED CODE PAGE 00154
4479
4480 int_4 _figi (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ t_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ e2_, int_4 _p_ ierr_)
4481 { // ** body not listed **
4514 }
4515
4516 // VIF THU 20 NOV 2025 22:19:18 ** HQR2 ** HQR2 PAGE 00155
4517
4518 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
4519 // S S U U B B R R O O U U T I NN N E
4520 // S U U B B R R O O U U T I N N N E
4521 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
4522 // S U U B B R R O O U U T I N N N E
4523 // S S U U B B R R O O U U T I N NN E
4524 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
4525
4526 // H H QQQQQ RRRRRR 22222
4527 // H H Q Q R R 2 2
4528 // H H Q Q R R 2
4529 // HHHHHHH Q Q RRRRRR 22222
4530 // H H Q Q Q R R 2
4531 // H H Q Q R R 2
4532 // H H QQQQ Q R R 2222222
4533
4534
4535 // VIF THU 20 NOV 2025 22:19:18 ** HQR2 ** DIAGNOSTICS PAGE 00156
4536
4537
4538 // VIF THU 20 NOV 2025 22:19:18 ** HQR2 ** GENERATED CODE PAGE 00157
4539
4540 int_4 _hqr2 (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ h_, real_8 _p_ wr_, real_8 _p_ wi_
4541 , real_8 _p_ z_, int_4 _p_ ierr_)
4542 { // ** body not listed **
5003 }
5004
5005 // VIF THU 20 NOV 2025 22:19:18 ** HQR ** HQR PAGE 00166
5006
5007 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5008 // S S U U B B R R O O U U T I NN N E
5009 // S U U B B R R O O U U T I N N N E
5010 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5011 // S U U B B R R O O U U T I N N N E
5012 // S S U U B B R R O O U U T I N NN E
5013 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5014
5015 // H H QQQQQ RRRRRR
5016 // H H Q Q R R
5017 // H H Q Q R R
5018 // HHHHHHH Q Q RRRRRR
5019 // H H Q Q Q R R
5020 // H H Q Q R R
5021 // H H QQQQ Q R R
5022
5023
5024 // VIF THU 20 NOV 2025 22:19:18 ** HQR ** DIAGNOSTICS PAGE 00167
5025
5026
5027 // VIF THU 20 NOV 2025 22:19:18 ** HQR ** GENERATED CODE PAGE 00168
5028
5029 int_4 _hqr (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ h_, real_8 _p_ wr_, real_8 _p_ wi_,
5030 int_4 _p_ ierr_)
5031 { // ** body not listed **
5249 }
5250
5251 // VIF THU 20 NOV 2025 22:19:18 ** HTRIB3 ** HTRIB3 PAGE 00173
5252
5253 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5254 // S S U U B B R R O O U U T I NN N E
5255 // S U U B B R R O O U U T I N N N E
5256 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5257 // S U U B B R R O O U U T I N N N E
5258 // S S U U B B R R O O U U T I N NN E
5259 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5260
5261 // H H TTTTTTT RRRRRR III BBBBBB 33333
5262 // H H T R R I B B 3 3
5263 // H H T R R I B B 3
5264 // HHHHHHH T RRRRRR I BBBBBB 33333
5265 // H H T R R I B B 3
5266 // H H T R R I B B 3 3
5267 // H H T R R III BBBBBB 33333
5268
5269
5270 // VIF THU 20 NOV 2025 22:19:18 ** HTRIB3 ** DIAGNOSTICS PAGE 00174
5271
5272
5273 // VIF THU 20 NOV 2025 22:19:18 ** HTRIB3 ** GENERATED CODE PAGE 00175
5274
5275 int_4 _htrib3 (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ tau_, int_4 _p_ m_, real_8 _p_ zr_, real_8 _p_
5276 zi_)
5277 { // ** body not listed **
5321 }
5322
5323 // VIF THU 20 NOV 2025 22:19:18 ** HTRIBK ** HTRIBK PAGE 00176
5324
5325 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5326 // S S U U B B R R O O U U T I NN N E
5327 // S U U B B R R O O U U T I N N N E
5328 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5329 // S U U B B R R O O U U T I N N N E
5330 // S S U U B B R R O O U U T I N NN E
5331 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5332
5333 // H H TTTTTTT RRRRRR III BBBBBB K K
5334 // H H T R R I B B K K
5335 // H H T R R I B B K K
5336 // HHHHHHH T RRRRRR I BBBBBB KKK
5337 // H H T R R I B B K K
5338 // H H T R R I B B K K
5339 // H H T R R III BBBBBB K K
5340
5341
5342 // VIF THU 20 NOV 2025 22:19:18 ** HTRIBK ** DIAGNOSTICS PAGE 00177
5343
5344
5345 // VIF THU 20 NOV 2025 22:19:18 ** HTRIBK ** GENERATED CODE PAGE 00178
5346
5347 int_4 _htribk (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ tau_, int_4 _p_ m_, real_8 _p_
5348 zr_, real_8 _p_ zi_)
5349 { // ** body not listed **
5393 }
5394
5395 // VIF THU 20 NOV 2025 22:19:18 ** HTRID3 ** HTRID3 PAGE 00179
5396
5397 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5398 // S S U U B B R R O O U U T I NN N E
5399 // S U U B B R R O O U U T I N N N E
5400 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5401 // S U U B B R R O O U U T I N N N E
5402 // S S U U B B R R O O U U T I N NN E
5403 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5404
5405 // H H TTTTTTT RRRRRR III DDDDDD 33333
5406 // H H T R R I D D 3 3
5407 // H H T R R I D D 3
5408 // HHHHHHH T RRRRRR I D D 33333
5409 // H H T R R I D D 3
5410 // H H T R R I D D 3 3
5411 // H H T R R III DDDDDD 33333
5412
5413
5414 // VIF THU 20 NOV 2025 22:19:18 ** HTRID3 ** DIAGNOSTICS PAGE 00180
5415
5416
5417 // VIF THU 20 NOV 2025 22:19:18 ** HTRID3 ** GENERATED CODE PAGE 00181
5418
5419 int_4 _htrid3 (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ e2_, real_8 _p_
5420 tau_)
5421 { // ** body not listed **
5548 }
5549
5550 // VIF THU 20 NOV 2025 22:19:18 ** HTRIDI ** HTRIDI PAGE 00184
5551
5552 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5553 // S S U U B B R R O O U U T I NN N E
5554 // S U U B B R R O O U U T I N N N E
5555 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5556 // S U U B B R R O O U U T I N N N E
5557 // S S U U B B R R O O U U T I N NN E
5558 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5559
5560 // H H TTTTTTT RRRRRR III DDDDDD III
5561 // H H T R R I D D I
5562 // H H T R R I D D I
5563 // HHHHHHH T RRRRRR I D D I
5564 // H H T R R I D D I
5565 // H H T R R I D D I
5566 // H H T R R III DDDDDD III
5567
5568
5569 // VIF THU 20 NOV 2025 22:19:18 ** HTRIDI ** DIAGNOSTICS PAGE 00185
5570
5571
5572 // VIF THU 20 NOV 2025 22:19:18 ** HTRIDI ** GENERATED CODE PAGE 00186
5573
5574 int_4 _htridi (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_
5575 e2_, real_8 _p_ tau_)
5576 { // ** body not listed **
5695 }
5696
5697 // VIF THU 20 NOV 2025 22:19:18 ** IMTQL1 ** IMTQL1 PAGE 00189
5698
5699 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5700 // S S U U B B R R O O U U T I NN N E
5701 // S U U B B R R O O U U T I N N N E
5702 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5703 // S U U B B R R O O U U T I N N N E
5704 // S S U U B B R R O O U U T I N NN E
5705 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5706
5707 // III M M TTTTTTT QQQQQ L 1
5708 // I MM MM T Q Q L 11
5709 // I M M M M T Q Q L 1 1
5710 // I M M M T Q Q L 1
5711 // I M M T Q Q Q L 1
5712 // I M M T Q Q L 1
5713 // III M M T QQQQ Q LLLLLLL 11111
5714
5715
5716 // VIF THU 20 NOV 2025 22:19:18 ** IMTQL1 ** DIAGNOSTICS PAGE 00190
5717
5718
5719 // VIF THU 20 NOV 2025 22:19:18 ** IMTQL1 ** GENERATED CODE PAGE 00191
5720
5721 int_4 _imtql1 (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, int_4 _p_ ierr_)
5722 { // ** body not listed **
5813 }
5814
5815 // VIF THU 20 NOV 2025 22:19:18 ** IMTQL2 ** IMTQL2 PAGE 00193
5816
5817 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5818 // S S U U B B R R O O U U T I NN N E
5819 // S U U B B R R O O U U T I N N N E
5820 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5821 // S U U B B R R O O U U T I N N N E
5822 // S S U U B B R R O O U U T I N NN E
5823 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5824
5825 // III M M TTTTTTT QQQQQ L 22222
5826 // I MM MM T Q Q L 2 2
5827 // I M M M M T Q Q L 2
5828 // I M M M T Q Q L 22222
5829 // I M M T Q Q Q L 2
5830 // I M M T Q Q L 2
5831 // III M M T QQQQ Q LLLLLLL 2222222
5832
5833
5834 // VIF THU 20 NOV 2025 22:19:18 ** IMTQL2 ** DIAGNOSTICS PAGE 00194
5835
5836
5837 // VIF THU 20 NOV 2025 22:19:18 ** IMTQL2 ** GENERATED CODE PAGE 00195
5838
5839 int_4 _imtql2 (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ z_, int_4 _p_ ierr_)
5840 { // ** body not listed **
5948 }
5949
5950 // VIF THU 20 NOV 2025 22:19:18 ** IMTQLV ** IMTQLV PAGE 00198
5951
5952 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
5953 // S S U U B B R R O O U U T I NN N E
5954 // S U U B B R R O O U U T I N N N E
5955 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
5956 // S U U B B R R O O U U T I N N N E
5957 // S S U U B B R R O O U U T I N NN E
5958 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
5959
5960 // III M M TTTTTTT QQQQQ L V V
5961 // I MM MM T Q Q L V V
5962 // I M M M M T Q Q L V V
5963 // I M M M T Q Q L V V
5964 // I M M T Q Q Q L V V
5965 // I M M T Q Q L V V
5966 // III M M T QQQQ Q LLLLLLL V
5967
5968
5969 // VIF THU 20 NOV 2025 22:19:18 ** IMTQLV ** DIAGNOSTICS PAGE 00199
5970
5971
5972 // VIF THU 20 NOV 2025 22:19:18 ** IMTQLV ** GENERATED CODE PAGE 00200
5973
5974 int_4 _imtqlv (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ e2_, real_8 _p_ w_, int_4 _p_ ind_, int_4 _p_
5975 ierr_, real_8 _p_ rv1_)
5976 { // ** body not listed **
6087 }
6088
6089 // VIF THU 20 NOV 2025 22:19:18 ** INVIT ** INVIT PAGE 00203
6090
6091 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6092 // S S U U B B R R O O U U T I NN N E
6093 // S U U B B R R O O U U T I N N N E
6094 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6095 // S U U B B R R O O U U T I N N N E
6096 // S S U U B B R R O O U U T I N NN E
6097 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6098
6099 // III N N V V III TTTTTTT
6100 // I NN N V V I T
6101 // I N N N V V I T
6102 // I N N N V V I T
6103 // I N N N V V I T
6104 // I N NN V V I T
6105 // III N N V III T
6106
6107
6108 // VIF THU 20 NOV 2025 22:19:18 ** INVIT ** DIAGNOSTICS PAGE 00204
6109
6110
6111 // VIF THU 20 NOV 2025 22:19:18 ** INVIT ** GENERATED CODE PAGE 00205
6112
6113 int_4 _invit (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ wr_, real_8 _p_ wi_, logical_4 _p_ select_, int_4
6114 _p_ mm_, int_4 _p_ m_, real_8 _p_ z_, int_4 _p_ ierr_, real_8 _p_ rm1_, real_8 _p_ rv1_, real_8 _p_ rv2_)
6115 { // ** body not listed **
6513 }
6514
6515 // VIF THU 20 NOV 2025 22:19:18 ** MINFIT ** MINFIT PAGE 00213
6516
6517 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6518 // S S U U B B R R O O U U T I NN N E
6519 // S U U B B R R O O U U T I N N N E
6520 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6521 // S U U B B R R O O U U T I N N N E
6522 // S S U U B B R R O O U U T I N NN E
6523 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6524
6525 // M M III N N FFFFFFF III TTTTTTT
6526 // MM MM I NN N F I T
6527 // M M M M I N N N F I T
6528 // M M M I N N N FFFFF I T
6529 // M M I N N N F I T
6530 // M M I N NN F I T
6531 // M M III N N F III T
6532
6533
6534 // VIF THU 20 NOV 2025 22:19:18 ** MINFIT ** DIAGNOSTICS PAGE 00214
6535
6536
6537 // VIF THU 20 NOV 2025 22:19:18 ** MINFIT ** GENERATED CODE PAGE 00215
6538
6539 int_4 _minfit (int_4 _p_ nm_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ w_, int_4 _p_ ip_, real_8 _p_ b_,
6540 int_4 _p_ ierr_, real_8 _p_ rv1_)
6541 { // ** body not listed **
6821 }
6822
6823 // VIF THU 20 NOV 2025 22:19:18 ** ORTBAK ** ORTBAK PAGE 00221
6824
6825 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6826 // S S U U B B R R O O U U T I NN N E
6827 // S U U B B R R O O U U T I N N N E
6828 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6829 // S U U B B R R O O U U T I N N N E
6830 // S S U U B B R R O O U U T I N NN E
6831 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6832
6833 // OOOOO RRRRRR TTTTTTT BBBBBB A K K
6834 // O O R R T B B A A K K
6835 // O O R R T B B A A K K
6836 // O O RRRRRR T BBBBBB A A KKK
6837 // O O R R T B B AAAAAAA K K
6838 // O O R R T B B A A K K
6839 // OOOOO R R T BBBBBB A A K K
6840
6841
6842 // VIF THU 20 NOV 2025 22:19:18 ** ORTBAK ** DIAGNOSTICS PAGE 00222
6843
6844
6845 // VIF THU 20 NOV 2025 22:19:18 ** ORTBAK ** GENERATED CODE PAGE 00223
6846
6847 int_4 _ortbak (int_4 _p_ nm_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ a_, real_8 _p_ ort_, int_4 _p_ m_, real_8 _p_
6848 z_)
6849 { // ** body not listed **
6884 }
6885
6886 // VIF THU 20 NOV 2025 22:19:18 ** ORTHES ** ORTHES PAGE 00224
6887
6888 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6889 // S S U U B B R R O O U U T I NN N E
6890 // S U U B B R R O O U U T I N N N E
6891 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6892 // S U U B B R R O O U U T I N N N E
6893 // S S U U B B R R O O U U T I N NN E
6894 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6895
6896 // OOOOO RRRRRR TTTTTTT H H EEEEEEE SSSSS
6897 // O O R R T H H E S S
6898 // O O R R T H H E S
6899 // O O RRRRRR T HHHHHHH EEEEE SSSSS
6900 // O O R R T H H E S
6901 // O O R R T H H E S S
6902 // OOOOO R R T H H EEEEEEE SSSSS
6903
6904
6905 // VIF THU 20 NOV 2025 22:19:18 ** ORTHES ** DIAGNOSTICS PAGE 00225
6906
6907
6908 // VIF THU 20 NOV 2025 22:19:18 ** ORTHES ** GENERATED CODE PAGE 00226
6909
6910 int_4 _orthes (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ a_, real_8 _p_ ort_)
6911 { // ** body not listed **
6969 }
6970
6971 // VIF THU 20 NOV 2025 22:19:18 ** ORTRAN ** ORTRAN PAGE 00228
6972
6973 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
6974 // S S U U B B R R O O U U T I NN N E
6975 // S U U B B R R O O U U T I N N N E
6976 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
6977 // S U U B B R R O O U U T I N N N E
6978 // S S U U B B R R O O U U T I N NN E
6979 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
6980
6981 // OOOOO RRRRRR TTTTTTT RRRRRR A N N
6982 // O O R R T R R A A NN N
6983 // O O R R T R R A A N N N
6984 // O O RRRRRR T RRRRRR A A N N N
6985 // O O R R T R R AAAAAAA N N N
6986 // O O R R T R R A A N NN
6987 // OOOOO R R T R R A A N N
6988
6989
6990 // VIF THU 20 NOV 2025 22:19:18 ** ORTRAN ** DIAGNOSTICS PAGE 00229
6991
6992
6993 // VIF THU 20 NOV 2025 22:19:18 ** ORTRAN ** GENERATED CODE PAGE 00230
6994
6995 int_4 _ortran (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ low_, int_4 _p_ igh_, real_8 _p_ a_, real_8 _p_ ort_, real_8 _p_
6996 z_)
6997 { // ** body not listed **
7034 }
7035
7036 // VIF THU 20 NOV 2025 22:19:18 ** QZHES ** QZHES PAGE 00231
7037
7038 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7039 // S S U U B B R R O O U U T I NN N E
7040 // S U U B B R R O O U U T I N N N E
7041 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7042 // S U U B B R R O O U U T I N N N E
7043 // S S U U B B R R O O U U T I N NN E
7044 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7045
7046 // QQQQQ ZZZZZZZ H H EEEEEEE SSSSS
7047 // Q Q Z H H E S S
7048 // Q Q Z H H E S
7049 // Q Q Z HHHHHHH EEEEE SSSSS
7050 // Q Q Q Z H H E S
7051 // Q Q * H H E S S
7052 // QQQQ Q ZZZZZZZ H H EEEEEEE SSSSS
7053
7054
7055 // VIF THU 20 NOV 2025 22:19:18 ** QZHES ** DIAGNOSTICS PAGE 00232
7056
7057
7058 // VIF THU 20 NOV 2025 22:19:18 ** QZHES ** GENERATED CODE PAGE 00233
7059
7060 int_4 _qzhes (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, logical_4 _p_ matz_, real_8 _p_ z_)
7061 { // ** body not listed **
7191 }
7192
7193 // VIF THU 20 NOV 2025 22:19:18 ** QZIT ** QZIT PAGE 00236
7194
7195 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7196 // S S U U B B R R O O U U T I NN N E
7197 // S U U B B R R O O U U T I N N N E
7198 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7199 // S U U B B R R O O U U T I N N N E
7200 // S S U U B B R R O O U U T I N NN E
7201 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7202
7203 // QQQQQ ZZZZZZZ III TTTTTTT
7204 // Q Q Z I T
7205 // Q Q Z I T
7206 // Q Q Z I T
7207 // Q Q Q Z I T
7208 // Q Q * I T
7209 // QQQQ Q ZZZZZZZ III T
7210
7211
7212 // VIF THU 20 NOV 2025 22:19:18 ** QZIT ** DIAGNOSTICS PAGE 00237
7213
7214
7215 // VIF THU 20 NOV 2025 22:19:18 ** QZIT ** GENERATED CODE PAGE 00238
7216
7217 int_4 _qzit (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ eps1_, logical_4 _p_ matz_, real_8
7218 _p_ z_, int_4 _p_ ierr_)
7219 { // ** body not listed **
7568 }
7569
7570 // VIF THU 20 NOV 2025 22:19:18 ** QZVAL ** QZVAL PAGE 00245
7571
7572 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7573 // S S U U B B R R O O U U T I NN N E
7574 // S U U B B R R O O U U T I N N N E
7575 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7576 // S U U B B R R O O U U T I N N N E
7577 // S S U U B B R R O O U U T I N NN E
7578 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7579
7580 // QQQQQ ZZZZZZZ V V A L
7581 // Q Q Z V V A A L
7582 // Q Q Z V V A A L
7583 // Q Q Z V V A A L
7584 // Q Q Q Z V V AAAAAAA L
7585 // Q Q * V V A A L
7586 // QQQQ Q ZZZZZZZ V A A LLLLLLL
7587
7588
7589 // VIF THU 20 NOV 2025 22:19:18 ** QZVAL ** DIAGNOSTICS PAGE 00246
7590
7591
7592 // VIF THU 20 NOV 2025 22:19:18 ** QZVAL ** GENERATED CODE PAGE 00247
7593
7594 int_4 _qzval (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ alfr_, real_8 _p_ alfi_, real_8 _p_
7595 beta_, logical_4 _p_ matz_, real_8 _p_ z_)
7596 { // ** body not listed **
7857 }
7858
7859 // VIF THU 20 NOV 2025 22:19:18 ** QZVEC ** QZVEC PAGE 00253
7860
7861 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
7862 // S S U U B B R R O O U U T I NN N E
7863 // S U U B B R R O O U U T I N N N E
7864 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
7865 // S U U B B R R O O U U T I N N N E
7866 // S S U U B B R R O O U U T I N NN E
7867 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
7868
7869 // QQQQQ ZZZZZZZ V V EEEEEEE CCCCC
7870 // Q Q Z V V E C C
7871 // Q Q Z V V E C
7872 // Q Q Z V V EEEEE C
7873 // Q Q Q Z V V E C
7874 // Q Q * V V E C C
7875 // QQQQ Q ZZZZZZZ V EEEEEEE CCCCC
7876
7877
7878 // VIF THU 20 NOV 2025 22:19:18 ** QZVEC ** DIAGNOSTICS PAGE 00254
7879
7880
7881 // VIF THU 20 NOV 2025 22:19:18 ** QZVEC ** GENERATED CODE PAGE 00255
7882
7883 int_4 _qzvec (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ alfr_, real_8 _p_ alfi_, real_8 _p_
7884 beta_, real_8 _p_ z_)
7885 { // ** body not listed **
8116 }
8117
8118 // VIF THU 20 NOV 2025 22:19:18 ** RATQR ** RATQR PAGE 00260
8119
8120 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8121 // S S U U B B R R O O U U T I NN N E
8122 // S U U B B R R O O U U T I N N N E
8123 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8124 // S U U B B R R O O U U T I N N N E
8125 // S S U U B B R R O O U U T I N NN E
8126 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8127
8128 // RRRRRR A TTTTTTT QQQQQ RRRRRR
8129 // R R A A T Q Q R R
8130 // R R A A T Q Q R R
8131 // RRRRRR A A T Q Q RRRRRR
8132 // R R AAAAAAA T Q Q Q R R
8133 // R R A A T Q Q R R
8134 // R R A A T QQQQ Q R R
8135
8136
8137 // VIF THU 20 NOV 2025 22:19:18 ** RATQR ** DIAGNOSTICS PAGE 00261
8138
8139
8140 // VIF THU 20 NOV 2025 22:19:18 ** RATQR ** GENERATED CODE PAGE 00262
8141
8142 int_4 _ratqr (int_4 _p_ n_, real_8 _p_ eps1_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ e2_, int_4 _p_ m_, real_8 _p_ w_
8143 , int_4 _p_ ind_, real_8 _p_ bd_, logical_4 _p_ type_, int_4 _p_ idef_, int_4 _p_ ierr_)
8144 { // ** body not listed **
8316 }
8317
8318 // VIF THU 20 NOV 2025 22:19:18 ** REBAKB ** REBAKB PAGE 00266
8319
8320 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8321 // S S U U B B R R O O U U T I NN N E
8322 // S U U B B R R O O U U T I N N N E
8323 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8324 // S U U B B R R O O U U T I N N N E
8325 // S S U U B B R R O O U U T I N NN E
8326 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8327
8328 // RRRRRR EEEEEEE BBBBBB A K K BBBBBB
8329 // R R E B B A A K K B B
8330 // R R E B B A A K K B B
8331 // RRRRRR EEEEE BBBBBB A A KKK BBBBBB
8332 // R R E B B AAAAAAA K K B B
8333 // R R E B B A A K K B B
8334 // R R EEEEEEE BBBBBB A A K K BBBBBB
8335
8336
8337 // VIF THU 20 NOV 2025 22:19:18 ** REBAKB ** DIAGNOSTICS PAGE 00267
8338
8339
8340 // VIF THU 20 NOV 2025 22:19:18 ** REBAKB ** GENERATED CODE PAGE 00268
8341
8342 int_4 _rebakb (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ b_, real_8 _p_ dl_, int_4 _p_ m_, real_8 _p_ z_)
8343 { // ** body not listed **
8367 }
8368
8369 // VIF THU 20 NOV 2025 22:19:18 ** REBAK ** REBAK PAGE 00269
8370
8371 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8372 // S S U U B B R R O O U U T I NN N E
8373 // S U U B B R R O O U U T I N N N E
8374 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8375 // S U U B B R R O O U U T I N N N E
8376 // S S U U B B R R O O U U T I N NN E
8377 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8378
8379 // RRRRRR EEEEEEE BBBBBB A K K
8380 // R R E B B A A K K
8381 // R R E B B A A K K
8382 // RRRRRR EEEEE BBBBBB A A KKK
8383 // R R E B B AAAAAAA K K
8384 // R R E B B A A K K
8385 // R R EEEEEEE BBBBBB A A K K
8386
8387
8388 // VIF THU 20 NOV 2025 22:19:18 ** REBAK ** DIAGNOSTICS PAGE 00270
8389
8390
8391 // VIF THU 20 NOV 2025 22:19:18 ** REBAK ** GENERATED CODE PAGE 00271
8392
8393 int_4 _rebak (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ b_, real_8 _p_ dl_, int_4 _p_ m_, real_8 _p_ z_)
8394 { // ** body not listed **
8418 }
8419
8420 // VIF THU 20 NOV 2025 22:19:18 ** REDUC2 ** REDUC2 PAGE 00272
8421
8422 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8423 // S S U U B B R R O O U U T I NN N E
8424 // S U U B B R R O O U U T I N N N E
8425 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8426 // S U U B B R R O O U U T I N N N E
8427 // S S U U B B R R O O U U T I N NN E
8428 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8429
8430 // RRRRRR EEEEEEE DDDDDD U U CCCCC 22222
8431 // R R E D D U U C C 2 2
8432 // R R E D D U U C 2
8433 // RRRRRR EEEEE D D U U C 22222
8434 // R R E D D U U C 2
8435 // R R E D D U U C C 2
8436 // R R EEEEEEE DDDDDD UUUUU CCCCC 2222222
8437
8438
8439 // VIF THU 20 NOV 2025 22:19:18 ** REDUC2 ** DIAGNOSTICS PAGE 00273
8440
8441
8442 // VIF THU 20 NOV 2025 22:19:18 ** REDUC2 ** GENERATED CODE PAGE 00274
8443
8444 int_4 _reduc2 (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ dl_, int_4 _p_ ierr_)
8445 { // ** body not listed **
8524 }
8525
8526 // VIF THU 20 NOV 2025 22:19:18 ** REDUC ** REDUC PAGE 00276
8527
8528 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8529 // S S U U B B R R O O U U T I NN N E
8530 // S U U B B R R O O U U T I N N N E
8531 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8532 // S U U B B R R O O U U T I N N N E
8533 // S S U U B B R R O O U U T I N NN E
8534 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8535
8536 // RRRRRR EEEEEEE DDDDDD U U CCCCC
8537 // R R E D D U U C C
8538 // R R E D D U U C
8539 // RRRRRR EEEEE D D U U C
8540 // R R E D D U U C
8541 // R R E D D U U C C
8542 // R R EEEEEEE DDDDDD UUUUU CCCCC
8543
8544
8545 // VIF THU 20 NOV 2025 22:19:18 ** REDUC ** DIAGNOSTICS PAGE 00277
8546
8547
8548 // VIF THU 20 NOV 2025 22:19:18 ** REDUC ** GENERATED CODE PAGE 00278
8549
8550 int_4 _reduc (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ dl_, int_4 _p_ ierr_)
8551 { // ** body not listed **
8630 }
8631
8632 // VIF THU 20 NOV 2025 22:19:18 ** RGELM ** RGELM PAGE 00280
8633
8634 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8635 // S S U U B B R R O O U U T I NN N E
8636 // S U U B B R R O O U U T I N N N E
8637 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8638 // S U U B B R R O O U U T I N N N E
8639 // S S U U B B R R O O U U T I N NN E
8640 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8641
8642 // RRRRRR GGGGG EEEEEEE L M M
8643 // R R G G E L MM MM
8644 // R R G E L M M M M
8645 // RRRRRR G GGGG EEEEE L M M M
8646 // R R G G E L M M
8647 // R R G G E L M M
8648 // R R GGGGG EEEEEEE LLLLLLL M M
8649
8650
8651 // VIF THU 20 NOV 2025 22:19:18 ** RGELM ** DIAGNOSTICS PAGE 00281
8652
8653
8654 // VIF THU 20 NOV 2025 22:19:18 ** RGELM ** GENERATED CODE PAGE 00282
8655
8656 int_4 _rgelm (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ wr_, real_8 _p_ wi_, int_4 _p_ matz_, real_8 _p_
8657 z_, int_4 _p_ iv1_, real_8 _p_ fv1_, int_4 _p_ ierr_)
8658 { // ** body not listed **
8683 }
8684
8685 // VIF THU 20 NOV 2025 22:19:18 ** RG ** RG PAGE 00283
8686
8687 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8688 // S S U U B B R R O O U U T I NN N E
8689 // S U U B B R R O O U U T I N N N E
8690 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8691 // S U U B B R R O O U U T I N N N E
8692 // S S U U B B R R O O U U T I N NN E
8693 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8694
8695 // RRRRRR GGGGG
8696 // R R G G
8697 // R R G
8698 // RRRRRR G GGGG
8699 // R R G G
8700 // R R G G
8701 // R R GGGGG
8702
8703
8704 // VIF THU 20 NOV 2025 22:19:18 ** RG ** DIAGNOSTICS PAGE 00284
8705
8706
8707 // VIF THU 20 NOV 2025 22:19:18 ** RG ** GENERATED CODE PAGE 00285
8708
8709 int_4 _rg (int_4 _p_ nm_, int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ wr_, real_4 _p_ wi_, int_4 _p_ matz_, real_4 _p_ z_,
8710 int_4 _p_ iv1_, real_4 _p_ fv1_, int_4 _p_ ierr_)
8711 { // ** body not listed **
8736 }
8737
8738 // VIF THU 20 NOV 2025 22:19:18 ** RGG ** RGG PAGE 00286
8739
8740 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8741 // S S U U B B R R O O U U T I NN N E
8742 // S U U B B R R O O U U T I N N N E
8743 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8744 // S U U B B R R O O U U T I N N N E
8745 // S S U U B B R R O O U U T I N NN E
8746 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8747
8748 // RRRRRR GGGGG GGGGG
8749 // R R G G G G
8750 // R R G G
8751 // RRRRRR G GGGG G GGGG
8752 // R R G G G G
8753 // R R G G G G
8754 // R R GGGGG GGGGG
8755
8756
8757 // VIF THU 20 NOV 2025 22:19:18 ** RGG ** DIAGNOSTICS PAGE 00287
8758
8759
8760 // VIF THU 20 NOV 2025 22:19:18 ** RGG ** GENERATED CODE PAGE 00288
8761
8762 int_4 _rgg (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ alfr_, real_8 _p_ alfi_, real_8 _p_
8763 beta_, int_4 _p_ matz_, real_8 _p_ z_, int_4 _p_ ierr_)
8764 { // ** body not listed **
8793 }
8794
8795 // VIF THU 20 NOV 2025 22:19:18 ** RGORT ** RGORT PAGE 00289
8796
8797 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8798 // S S U U B B R R O O U U T I NN N E
8799 // S U U B B R R O O U U T I N N N E
8800 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8801 // S U U B B R R O O U U T I N N N E
8802 // S S U U B B R R O O U U T I N NN E
8803 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8804
8805 // RRRRRR GGGGG OOOOO RRRRRR TTTTTTT
8806 // R R G G O O R R T
8807 // R R G O O R R T
8808 // RRRRRR G GGGG O O RRRRRR T
8809 // R R G G O O R R T
8810 // R R G G O O R R T
8811 // R R GGGGG OOOOO R R T
8812
8813
8814 // VIF THU 20 NOV 2025 22:19:18 ** RGORT ** DIAGNOSTICS PAGE 00290
8815
8816
8817 // VIF THU 20 NOV 2025 22:19:18 ** RGORT ** GENERATED CODE PAGE 00291
8818
8819 int_4 _rgort (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ wr_, real_8 _p_ wi_, int_4 _p_ matz_, real_8 _p_
8820 z_, real_8 _p_ ort_, real_8 _p_ fv1_, int_4 _p_ ierr_)
8821 { // ** body not listed **
8846 }
8847
8848 // VIF THU 20 NOV 2025 22:19:18 ** RSB ** RSB PAGE 00292
8849
8850 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8851 // S S U U B B R R O O U U T I NN N E
8852 // S U U B B R R O O U U T I N N N E
8853 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8854 // S U U B B R R O O U U T I N N N E
8855 // S S U U B B R R O O U U T I N NN E
8856 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8857
8858 // RRRRRR SSSSS BBBBBB
8859 // R R S S B B
8860 // R R S B B
8861 // RRRRRR SSSSS BBBBBB
8862 // R R S B B
8863 // R R S S B B
8864 // R R SSSSS BBBBBB
8865
8866
8867 // VIF THU 20 NOV 2025 22:19:18 ** RSB ** DIAGNOSTICS PAGE 00293
8868
8869
8870 // VIF THU 20 NOV 2025 22:19:18 ** RSB ** GENERATED CODE PAGE 00294
8871
8872 int_4 _rsb (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ mb_, real_8 _p_ a_, real_8 _p_ w_, int_4 _p_ matz_, real_8 _p_ z_,
8873 real_8 _p_ fv1_, real_8 _p_ fv2_, int_4 _p_ ierr_)
8874 { // ** body not listed **
8908 }
8909
8910 // VIF THU 20 NOV 2025 22:19:18 ** RS ** RS PAGE 00295
8911
8912 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8913 // S S U U B B R R O O U U T I NN N E
8914 // S U U B B R R O O U U T I N N N E
8915 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8916 // S U U B B R R O O U U T I N N N E
8917 // S S U U B B R R O O U U T I N NN E
8918 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8919
8920 // RRRRRR SSSSS
8921 // R R S S
8922 // R R S
8923 // RRRRRR SSSSS
8924 // R R S
8925 // R R S S
8926 // R R SSSSS
8927
8928
8929 // VIF THU 20 NOV 2025 22:19:18 ** RS ** DIAGNOSTICS PAGE 00296
8930
8931
8932 // VIF THU 20 NOV 2025 22:19:18 ** RS ** GENERATED CODE PAGE 00297
8933
8934 int_4 _rs (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ w_, int_4 _p_ matz_, real_8 _p_ z_, real_8 _p_ fv1_,
8935 real_8 _p_ fv2_, int_4 _p_ ierr_)
8936 { // ** body not listed **
8955 }
8956
8957 // VIF THU 20 NOV 2025 22:19:18 ** RSGAB ** RSGAB PAGE 00298
8958
8959 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
8960 // S S U U B B R R O O U U T I NN N E
8961 // S U U B B R R O O U U T I N N N E
8962 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
8963 // S U U B B R R O O U U T I N N N E
8964 // S S U U B B R R O O U U T I N NN E
8965 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
8966
8967 // RRRRRR SSSSS GGGGG A BBBBBB
8968 // R R S S G G A A B B
8969 // R R S G A A B B
8970 // RRRRRR SSSSS G GGGG A A BBBBBB
8971 // R R S G G AAAAAAA B B
8972 // R R S S G G A A B B
8973 // R R SSSSS GGGGG A A BBBBBB
8974
8975
8976 // VIF THU 20 NOV 2025 22:19:18 ** RSGAB ** DIAGNOSTICS PAGE 00299
8977
8978
8979 // VIF THU 20 NOV 2025 22:19:18 ** RSGAB ** GENERATED CODE PAGE 00300
8980
8981 int_4 _rsgab (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ w_, int_4 _p_ matz_, real_8 _p_ z_,
8982 real_8 _p_ fv1_, real_8 _p_ fv2_, int_4 _p_ ierr_)
8983 { // ** body not listed **
9010 }
9011
9012 // VIF THU 20 NOV 2025 22:19:18 ** RSGBA ** RSGBA PAGE 00301
9013
9014 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9015 // S S U U B B R R O O U U T I NN N E
9016 // S U U B B R R O O U U T I N N N E
9017 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9018 // S U U B B R R O O U U T I N N N E
9019 // S S U U B B R R O O U U T I N NN E
9020 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9021
9022 // RRRRRR SSSSS GGGGG BBBBBB A
9023 // R R S S G G B B A A
9024 // R R S G B B A A
9025 // RRRRRR SSSSS G GGGG BBBBBB A A
9026 // R R S G G B B AAAAAAA
9027 // R R S S G G B B A A
9028 // R R SSSSS GGGGG BBBBBB A A
9029
9030
9031 // VIF THU 20 NOV 2025 22:19:18 ** RSGBA ** DIAGNOSTICS PAGE 00302
9032
9033
9034 // VIF THU 20 NOV 2025 22:19:18 ** RSGBA ** GENERATED CODE PAGE 00303
9035
9036 int_4 _rsgba (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ w_, int_4 _p_ matz_, real_8 _p_ z_,
9037 real_8 _p_ fv1_, real_8 _p_ fv2_, int_4 _p_ ierr_)
9038 { // ** body not listed **
9065 }
9066
9067 // VIF THU 20 NOV 2025 22:19:18 ** RSG ** RSG PAGE 00304
9068
9069 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9070 // S S U U B B R R O O U U T I NN N E
9071 // S U U B B R R O O U U T I N N N E
9072 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9073 // S U U B B R R O O U U T I N N N E
9074 // S S U U B B R R O O U U T I N NN E
9075 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9076
9077 // RRRRRR SSSSS GGGGG
9078 // R R S S G G
9079 // R R S G
9080 // RRRRRR SSSSS G GGGG
9081 // R R S G G
9082 // R R S S G G
9083 // R R SSSSS GGGGG
9084
9085
9086 // VIF THU 20 NOV 2025 22:19:18 ** RSG ** DIAGNOSTICS PAGE 00305
9087
9088
9089 // VIF THU 20 NOV 2025 22:19:18 ** RSG ** GENERATED CODE PAGE 00306
9090
9091 int_4 _rsg (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ w_, int_4 _p_ matz_, real_8 _p_ z_,
9092 real_8 _p_ fv1_, real_8 _p_ fv2_, int_4 _p_ ierr_)
9093 { // ** body not listed **
9120 }
9121
9122 // VIF THU 20 NOV 2025 22:19:18 ** RSM ** RSM PAGE 00307
9123
9124 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9125 // S S U U B B R R O O U U T I NN N E
9126 // S U U B B R R O O U U T I N N N E
9127 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9128 // S U U B B R R O O U U T I N N N E
9129 // S S U U B B R R O O U U T I N NN E
9130 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9131
9132 // RRRRRR SSSSS M M
9133 // R R S S MM MM
9134 // R R S M M M M
9135 // RRRRRR SSSSS M M M
9136 // R R S M M
9137 // R R S S M M
9138 // R R SSSSS M M
9139
9140
9141 // VIF THU 20 NOV 2025 22:19:18 ** RSM ** DIAGNOSTICS PAGE 00308
9142
9143
9144 // VIF THU 20 NOV 2025 22:19:18 ** RSM ** GENERATED CODE PAGE 00309
9145
9146 int_4 _rsm (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ w_, int_4 _p_ m_, real_8 _p_ z_, real_8 _p_ fwork_,
9147 int_4 _p_ iwork_, int_4 _p_ ierr_)
9148 { // ** body not listed **
9177 }
9178
9179 // VIF THU 20 NOV 2025 22:19:18 ** RSP ** RSP PAGE 00310
9180
9181 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9182 // S S U U B B R R O O U U T I NN N E
9183 // S U U B B R R O O U U T I N N N E
9184 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9185 // S U U B B R R O O U U T I N N N E
9186 // S S U U B B R R O O U U T I N NN E
9187 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9188
9189 // RRRRRR SSSSS PPPPPP
9190 // R R S S P P
9191 // R R S P P
9192 // RRRRRR SSSSS PPPPPP
9193 // R R S P
9194 // R R S S P
9195 // R R SSSSS P
9196
9197
9198 // VIF THU 20 NOV 2025 22:19:18 ** RSP ** DIAGNOSTICS PAGE 00311
9199
9200
9201 // VIF THU 20 NOV 2025 22:19:18 ** RSP ** GENERATED CODE PAGE 00312
9202
9203 int_4 _rsp (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ nv_, real_8 _p_ a_, real_8 _p_ w_, int_4 _p_ matz_, real_8 _p_ z_,
9204 real_8 _p_ fv1_, real_8 _p_ fv2_, int_4 _p_ ierr_)
9205 { // ** body not listed **
9240 }
9241
9242 // VIF THU 20 NOV 2025 22:19:18 ** RSPP ** RSPP PAGE 00313
9243
9244 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9245 // S S U U B B R R O O U U T I NN N E
9246 // S U U B B R R O O U U T I N N N E
9247 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9248 // S U U B B R R O O U U T I N N N E
9249 // S S U U B B R R O O U U T I N NN E
9250 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9251
9252 // RRRRRR SSSSS PPPPPP PPPPPP
9253 // R R S S P P P P
9254 // R R S P P P P
9255 // RRRRRR SSSSS PPPPPP PPPPPP
9256 // R R S P P
9257 // R R S S P P
9258 // R R SSSSS P P
9259
9260
9261 // VIF THU 20 NOV 2025 22:19:18 ** RSPP ** DIAGNOSTICS PAGE 00314
9262
9263
9264 // VIF THU 20 NOV 2025 22:19:18 ** RSPP ** GENERATED CODE PAGE 00315
9265
9266 int_4 _rspp (int_4 _p_ n_, int_4 _p_ nv_, real_8 _p_ a_, real_8 _p_ w_, int_4 _p_ matz_, real_8 _p_ z_, int_4 _p_ ierr_
9267 , int_4 _p_ m_, logical_4 _p_ type_)
9268 { // ** body not listed **
9506 }
9507
9508 // VIF THU 20 NOV 2025 22:19:18 ** RST ** RST PAGE 00320
9509
9510 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9511 // S S U U B B R R O O U U T I NN N E
9512 // S U U B B R R O O U U T I N N N E
9513 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9514 // S U U B B R R O O U U T I N N N E
9515 // S S U U B B R R O O U U T I N NN E
9516 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9517
9518 // RRRRRR SSSSS TTTTTTT
9519 // R R S S T
9520 // R R S T
9521 // RRRRRR SSSSS T
9522 // R R S T
9523 // R R S S T
9524 // R R SSSSS T
9525
9526
9527 // VIF THU 20 NOV 2025 22:19:18 ** RST ** DIAGNOSTICS PAGE 00321
9528
9529
9530 // VIF THU 20 NOV 2025 22:19:18 ** RST ** GENERATED CODE PAGE 00322
9531
9532 int_4 _rst (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ w_, real_8 _p_ e_, int_4 _p_ matz_, real_8 _p_ z_, int_4 _p_ ierr_)
9533 { // ** body not listed **
9557 }
9558
9559 // VIF THU 20 NOV 2025 22:19:18 ** RT ** RT PAGE 00323
9560
9561 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9562 // S S U U B B R R O O U U T I NN N E
9563 // S U U B B R R O O U U T I N N N E
9564 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9565 // S U U B B R R O O U U T I N N N E
9566 // S S U U B B R R O O U U T I N NN E
9567 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9568
9569 // RRRRRR TTTTTTT
9570 // R R T
9571 // R R T
9572 // RRRRRR T
9573 // R R T
9574 // R R T
9575 // R R T
9576
9577
9578 // VIF THU 20 NOV 2025 22:19:18 ** RT ** DIAGNOSTICS PAGE 00324
9579
9580
9581 // VIF THU 20 NOV 2025 22:19:18 ** RT ** GENERATED CODE PAGE 00325
9582
9583 int_4 _rt (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ w_, int_4 _p_ matz_, real_8 _p_ z_, real_8 _p_ fv1_,
9584 int_4 _p_ ierr_)
9585 { // ** body not listed **
9610 }
9611
9612 // VIF THU 20 NOV 2025 22:19:18 ** SSPEV ** SSPEV PAGE 00326
9613
9614 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9615 // S S U U B B R R O O U U T I NN N E
9616 // S U U B B R R O O U U T I N N N E
9617 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9618 // S U U B B R R O O U U T I N N N E
9619 // S S U U B B R R O O U U T I N NN E
9620 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9621
9622 // SSSSS SSSSS PPPPPP EEEEEEE V V
9623 // S S S S P P E V V
9624 // S S P P E V V
9625 // SSSSS SSSSS PPPPPP EEEEE V V
9626 // S S P E V V
9627 // S S S S P E V V
9628 // SSSSS SSSSS P EEEEEEE V
9629
9630
9631 // VIF THU 20 NOV 2025 22:19:18 ** SSPEV ** DIAGNOSTICS PAGE 00327
9632
9633
9634 // VIF THU 20 NOV 2025 22:19:18 ** SSPEV ** GENERATED CODE PAGE 00328
9635
9636 int_4 _sspev (real_4 _p_ a_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ work_, int_4 _p_
9637 job_, int_4 _p_ info_)
9638 { // ** body not listed **
9681 }
9682
9683 // VIF THU 20 NOV 2025 22:19:18 ** SVD ** SVD PAGE 00329
9684
9685 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
9686 // S S U U B B R R O O U U T I NN N E
9687 // S U U B B R R O O U U T I N N N E
9688 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
9689 // S U U B B R R O O U U T I N N N E
9690 // S S U U B B R R O O U U T I N NN E
9691 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
9692
9693 // SSSSS V V DDDDDD
9694 // S S V V D D
9695 // S V V D D
9696 // SSSSS V V D D
9697 // S V V D D
9698 // S S V V D D
9699 // SSSSS V DDDDDD
9700
9701
9702 // VIF THU 20 NOV 2025 22:19:18 ** SVD ** DIAGNOSTICS PAGE 00330
9703
9704
9705 // VIF THU 20 NOV 2025 22:19:18 ** SVD ** GENERATED CODE PAGE 00331
9706
9707 int_4 _svd (int_4 _p_ nm_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ w_, logical_4 _p_ matu_, real_8 _p_ u_
9708 , logical_4 _p_ matv_, real_8 _p_ v_, int_4 _p_ ierr_, real_8 _p_ rv1_)
9709 { // ** body not listed **
10030 }
10031
10032 // VIF THU 20 NOV 2025 22:19:18 ** TINVIT ** TINVIT PAGE 00338
10033
10034 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10035 // S S U U B B R R O O U U T I NN N E
10036 // S U U B B R R O O U U T I N N N E
10037 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10038 // S U U B B R R O O U U T I N N N E
10039 // S S U U B B R R O O U U T I N NN E
10040 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10041
10042 // TTTTTTT III N N V V III TTTTTTT
10043 // T I NN N V V I T
10044 // T I N N N V V I T
10045 // T I N N N V V I T
10046 // T I N N N V V I T
10047 // T I N NN V V I T
10048 // T III N N V III T
10049
10050
10051 // VIF THU 20 NOV 2025 22:19:18 ** TINVIT ** DIAGNOSTICS PAGE 00339
10052
10053
10054 // VIF THU 20 NOV 2025 22:19:18 ** TINVIT ** GENERATED CODE PAGE 00340
10055
10056 int_4 _tinvit (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ e2_, int_4 _p_ m_, real_8 _p_ w_,
10057 int_4 _p_ ind_, real_8 _p_ z_, int_4 _p_ ierr_, real_8 _p_ rv1_, real_8 _p_ rv2_, real_8 _p_ rv3_, real_8 _p_ rv4_,
10058 real_8 _p_ rv6_)
10059 { // ** body not listed **
10256 }
10257
10258 // VIF THU 20 NOV 2025 22:19:18 ** TQL1 ** TQL1 PAGE 00344
10259
10260 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10261 // S S U U B B R R O O U U T I NN N E
10262 // S U U B B R R O O U U T I N N N E
10263 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10264 // S U U B B R R O O U U T I N N N E
10265 // S S U U B B R R O O U U T I N NN E
10266 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10267
10268 // TTTTTTT QQQQQ L 1
10269 // T Q Q L 11
10270 // T Q Q L 1 1
10271 // T Q Q L 1
10272 // T Q Q Q L 1
10273 // T Q Q L 1
10274 // T QQQQ Q LLLLLLL 11111
10275
10276
10277 // VIF THU 20 NOV 2025 22:19:18 ** TQL1 ** DIAGNOSTICS PAGE 00345
10278
10279
10280 // VIF THU 20 NOV 2025 22:19:18 ** TQL1 ** GENERATED CODE PAGE 00346
10281
10282 int_4 _tql1 (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, int_4 _p_ ierr_)
10283 { // ** body not listed **
10390 }
10391
10392 // VIF THU 20 NOV 2025 22:19:18 ** TQL2 ** TQL2 PAGE 00349
10393
10394 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10395 // S S U U B B R R O O U U T I NN N E
10396 // S U U B B R R O O U U T I N N N E
10397 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10398 // S U U B B R R O O U U T I N N N E
10399 // S S U U B B R R O O U U T I N NN E
10400 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10401
10402 // TTTTTTT QQQQQ L 22222
10403 // T Q Q L 2 2
10404 // T Q Q L 2
10405 // T Q Q L 22222
10406 // T Q Q Q L 2
10407 // T Q Q L 2
10408 // T QQQQ Q LLLLLLL 2222222
10409
10410
10411 // VIF THU 20 NOV 2025 22:19:18 ** TQL2 ** DIAGNOSTICS PAGE 00350
10412
10413
10414 // VIF THU 20 NOV 2025 22:19:18 ** TQL2 ** GENERATED CODE PAGE 00351
10415
10416 int_4 _tql2 (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ z_, int_4 _p_ ierr_)
10417 { // ** body not listed **
10539 }
10540
10541 // VIF THU 20 NOV 2025 22:19:18 ** TQLRAT ** TQLRAT PAGE 00354
10542
10543 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10544 // S S U U B B R R O O U U T I NN N E
10545 // S U U B B R R O O U U T I N N N E
10546 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10547 // S U U B B R R O O U U T I N N N E
10548 // S S U U B B R R O O U U T I N NN E
10549 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10550
10551 // TTTTTTT QQQQQ L RRRRRR A TTTTTTT
10552 // T Q Q L R R A A T
10553 // T Q Q L R R A A T
10554 // T Q Q L RRRRRR A A T
10555 // T Q Q Q L R R AAAAAAA T
10556 // T Q Q L R R A A T
10557 // T QQQQ Q LLLLLLL R R A A T
10558
10559
10560 // VIF THU 20 NOV 2025 22:19:18 ** TQLRAT ** DIAGNOSTICS PAGE 00355
10561
10562
10563 // VIF THU 20 NOV 2025 22:19:18 ** TQLRAT ** GENERATED CODE PAGE 00356
10564
10565 int_4 _tqlrat (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e2_, int_4 _p_ ierr_)
10566 { // ** body not listed **
10686 }
10687
10688 // VIF THU 20 NOV 2025 22:19:18 ** TRBAK1 ** TRBAK1 PAGE 00359
10689
10690 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10691 // S S U U B B R R O O U U T I NN N E
10692 // S U U B B R R O O U U T I N N N E
10693 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10694 // S U U B B R R O O U U T I N N N E
10695 // S S U U B B R R O O U U T I N NN E
10696 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10697
10698 // TTTTTTT RRRRRR BBBBBB A K K 1
10699 // T R R B B A A K K 11
10700 // T R R B B A A K K 1 1
10701 // T RRRRRR BBBBBB A A KKK 1
10702 // T R R B B AAAAAAA K K 1
10703 // T R R B B A A K K 1
10704 // T R R BBBBBB A A K K 11111
10705
10706
10707 // VIF THU 20 NOV 2025 22:19:18 ** TRBAK1 ** DIAGNOSTICS PAGE 00360
10708
10709
10710 // VIF THU 20 NOV 2025 22:19:18 ** TRBAK1 ** GENERATED CODE PAGE 00361
10711
10712 int_4 _trbak1 (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ e_, int_4 _p_ m_, real_8 _p_ z_)
10713 { // ** body not listed **
10742 }
10743
10744 // VIF THU 20 NOV 2025 22:19:18 ** TRBAK3 ** TRBAK3 PAGE 00362
10745
10746 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10747 // S S U U B B R R O O U U T I NN N E
10748 // S U U B B R R O O U U T I N N N E
10749 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10750 // S U U B B R R O O U U T I N N N E
10751 // S S U U B B R R O O U U T I N NN E
10752 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10753
10754 // TTTTTTT RRRRRR BBBBBB A K K 33333
10755 // T R R B B A A K K 3 3
10756 // T R R B B A A K K 3
10757 // T RRRRRR BBBBBB A A KKK 33333
10758 // T R R B B AAAAAAA K K 3
10759 // T R R B B A A K K 3 3
10760 // T R R BBBBBB A A K K 33333
10761
10762
10763 // VIF THU 20 NOV 2025 22:19:18 ** TRBAK3 ** DIAGNOSTICS PAGE 00363
10764
10765
10766 // VIF THU 20 NOV 2025 22:19:18 ** TRBAK3 ** GENERATED CODE PAGE 00364
10767
10768 int_4 _trbak3 (int_4 _p_ nm_, int_4 _p_ n_, int_4 _p_ nv_, real_8 _p_ a_, int_4 _p_ m_, real_8 _p_ z_)
10769 { // ** body not listed **
10805 }
10806
10807 // VIF THU 20 NOV 2025 22:19:18 ** TRED1 ** TRED1 PAGE 00365
10808
10809 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10810 // S S U U B B R R O O U U T I NN N E
10811 // S U U B B R R O O U U T I N N N E
10812 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10813 // S U U B B R R O O U U T I N N N E
10814 // S S U U B B R R O O U U T I N NN E
10815 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10816
10817 // TTTTTTT RRRRRR EEEEEEE DDDDDD 1
10818 // T R R E D D 11
10819 // T R R E D D 1 1
10820 // T RRRRRR EEEEE D D 1
10821 // T R R E D D 1
10822 // T R R E D D 1
10823 // T R R EEEEEEE DDDDDD 11111
10824
10825
10826 // VIF THU 20 NOV 2025 22:19:18 ** TRED1 ** DIAGNOSTICS PAGE 00366
10827
10828
10829 // VIF THU 20 NOV 2025 22:19:18 ** TRED1 ** GENERATED CODE PAGE 00367
10830
10831 int_4 _tred1 (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ e2_)
10832 { // ** body not listed **
10922 }
10923
10924 // VIF THU 20 NOV 2025 22:19:18 ** TRED2 ** TRED2 PAGE 00369
10925
10926 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
10927 // S S U U B B R R O O U U T I NN N E
10928 // S U U B B R R O O U U T I N N N E
10929 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
10930 // S U U B B R R O O U U T I N N N E
10931 // S S U U B B R R O O U U T I N NN E
10932 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
10933
10934 // TTTTTTT RRRRRR EEEEEEE DDDDDD 22222
10935 // T R R E D D 2 2
10936 // T R R E D D 2
10937 // T RRRRRR EEEEE D D 22222
10938 // T R R E D D 2
10939 // T R R E D D 2
10940 // T R R EEEEEEE DDDDDD 2222222
10941
10942
10943 // VIF THU 20 NOV 2025 22:19:18 ** TRED2 ** DIAGNOSTICS PAGE 00370
10944
10945
10946 // VIF THU 20 NOV 2025 22:19:18 ** TRED2 ** GENERATED CODE PAGE 00371
10947
10948 int_4 _tred2 (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ z_)
10949 { // ** body not listed **
11070 }
11071
11072 // VIF THU 20 NOV 2025 22:19:18 ** TRED3 ** TRED3 PAGE 00374
11073
11074 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11075 // S S U U B B R R O O U U T I NN N E
11076 // S U U B B R R O O U U T I N N N E
11077 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11078 // S U U B B R R O O U U T I N N N E
11079 // S S U U B B R R O O U U T I N NN E
11080 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11081
11082 // TTTTTTT RRRRRR EEEEEEE DDDDDD 33333
11083 // T R R E D D 3 3
11084 // T R R E D D 3
11085 // T RRRRRR EEEEE D D 33333
11086 // T R R E D D 3
11087 // T R R E D D 3 3
11088 // T R R EEEEEEE DDDDDD 33333
11089
11090
11091 // VIF THU 20 NOV 2025 22:19:18 ** TRED3 ** DIAGNOSTICS PAGE 00375
11092
11093
11094 // VIF THU 20 NOV 2025 22:19:18 ** TRED3 ** GENERATED CODE PAGE 00376
11095
11096 int_4 _tred3 (int_4 _p_ n_, int_4 _p_ nv_, real_8 _p_ a_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ e2_)
11097 { // ** body not listed **
11179 }
11180
11181 // VIF THU 20 NOV 2025 22:19:18 ** TRIDIB ** TRIDIB PAGE 00378
11182
11183 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11184 // S S U U B B R R O O U U T I NN N E
11185 // S U U B B R R O O U U T I N N N E
11186 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11187 // S U U B B R R O O U U T I N N N E
11188 // S S U U B B R R O O U U T I N NN E
11189 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11190
11191 // TTTTTTT RRRRRR III DDDDDD III BBBBBB
11192 // T R R I D D I B B
11193 // T R R I D D I B B
11194 // T RRRRRR I D D I BBBBBB
11195 // T R R I D D I B B
11196 // T R R I D D I B B
11197 // T R R III DDDDDD III BBBBBB
11198
11199
11200 // VIF THU 20 NOV 2025 22:19:18 ** TRIDIB ** DIAGNOSTICS PAGE 00379
11201
11202
11203 // VIF THU 20 NOV 2025 22:19:18 ** TRIDIB ** GENERATED CODE PAGE 00380
11204
11205 int_4 _tridib (int_4 _p_ n_, real_8 _p_ eps1_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ e2_, real_8 _p_ lb_, real_8 _p_
11206 ub_, int_4 _p_ m11_, int_4 _p_ m_, real_8 _p_ w_, int_4 _p_ ind_, int_4 _p_ ierr_, real_8 _p_ rv4_, real_8 _p_ rv5_)
11207 { // ** body not listed **
11490 }
11491
11492 // VIF THU 20 NOV 2025 22:19:18 ** TSTURM ** TSTURM PAGE 00386
11493
11494 // SSSSS U U BBBBBB RRRRRR OOOOO U U TTTTTTT III N N EEEEEEE
11495 // S S U U B B R R O O U U T I NN N E
11496 // S U U B B R R O O U U T I N N N E
11497 // SSSSS U U BBBBBB RRRRRR O O U U T I N N N EEEEE
11498 // S U U B B R R O O U U T I N N N E
11499 // S S U U B B R R O O U U T I N NN E
11500 // SSSSS UUUUU BBBBBB R R OOOOO UUUUU T III N N EEEEEEE
11501
11502 // TTTTTTT SSSSS TTTTTTT U U RRRRRR M M
11503 // T S S T U U R R MM MM
11504 // T S T U U R R M M M M
11505 // T SSSSS T U U RRRRRR M M M
11506 // T S T U U R R M M
11507 // T S S T U U R R M M
11508 // T SSSSS T UUUUU R R M M
11509
11510
11511 // VIF THU 20 NOV 2025 22:19:18 ** TSTURM ** DIAGNOSTICS PAGE 00387
11512
11513
11514 // VIF THU 20 NOV 2025 22:19:18 ** TSTURM ** GENERATED CODE PAGE 00388
11515
11516 int_4 _tsturm (int_4 _p_ nm_, int_4 _p_ n_, real_8 _p_ eps1_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ e2_, real_8 _p_
11517 lb_, real_8 _p_ ub_, int_4 _p_ mm_, int_4 _p_ m_, real_8 _p_ w_, real_8 _p_ z_, int_4 _p_ ierr_, real_8 _p_ rv1_,
11518 real_8 _p_ rv2_, real_8 _p_ rv3_, real_8 _p_ rv4_, real_8 _p_ rv5_, real_8 _p_ rv6_)
11519 { // ** body not listed **
11868 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
