mathlib-slatec.c

     1  //! @file mathlib-slatec.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 SLATEC
    24  
    25  // Compiled from Fortran source code by VIF.
    26  
    27  // Miscellaneous routines from SLATEC, not in other packages as BLAS,
    28  // EISPACK, FISHPACK, FFTPACK, FNLIB, LINPACK etcetera.
    29  // 
    30  // Source: netlib.org/slatec/
    31  
    32  // The license for SLATEC Fortran source code is:
    33  //
    34  // The SLATEC Common Mathematical Library was developed at
    35  // US government research laboratories and is in the public domain.
    36  // 
    37  // Repository: http://www.netlib.org/slatec/
    38  // 
    39  // The SLATEC common mathematical library is issued by the following
    40  // 
    41  //         Air Force Weapons Laboratory, Albuquerque
    42  //         Lawrence Livermore National Laboratory, Livermore
    43  //         Los Alamos National Laboratory, Los Alamos
    44  //         National Institute of Standards and Technology, Washington
    45  //         National Energy Research Supercomputer Center, Livermore
    46  //         Oak Ridge National Laboratory, Oak Ridge
    47  //         Sandia National Laboratories, Albuquerque
    48  //         Sandia National Laboratories, Livermore
    49  // 
    50  // All questions concerning the distribution of the library should be
    51  // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
    52  // Argonne, Illinois  60439, and not to the authors of the subprograms.
    53  // 
    54  //                  * * * * * Notice * * * * *
    55  // 
    56  // This material was prepared as an account of work sponsored by the
    57  // United States Government.  Neither the United States, nor the
    58  // Department of Energy, nor the Department of Defense, nor any of
    59  // their employees, nor any of their contractors, subcontractors, or
    60  // their employees, makes any warranty, expressed or implied, or
    61  // assumes any legal liability or responsibility for the accuracy,
    62  // completeness, or usefulness of any information, apparatus, product,
    63  // or process disclosed, or represents that its use would not infringe
    64  // upon privately owned rights.
    65  
    66  // VIF  THU 20 NOV 2025 22:21:23  ** MARCEL                       ** SLATEC                                           PAGE 00001
    67  
    68  
    69  
    70  //                                   M     M    A    RRRRRR   CCCCC  EEEEEEE L
    71  //                                   MM   MM   A A   R     R C     C E       L
    72  //                                   M M M M  A   A  R     R C       E       L
    73  //                                   M  M  M A     A RRRRRR  C       EEEEE   L
    74  //                                   M     M AAAAAAA R   R   C       E       L
    75  //                                   M     M A     A R    R  C     C E       L
    76  //                                   M     M A     A R     R  CCCCC  EEEEEEE LLLLLLL
    77  
    78  //                                    SSSSS  L          A    TTTTTTT EEEEEEE  CCCCC
    79  //                                   S     S L         A A      T    E       C     C
    80  //                                   S       L        A   A     T    E       C
    81  //                                    SSSSS  L       A     A    T    EEEEE   C
    82  //                                         S L       AAAAAAA    T    E       C
    83  //                                   S     S L       A     A    T    E       C     C
    84  //                                    SSSSS  LLLLLLL A     A    T    EEEEEEE  CCCCC
    85  
    86  
    87  
    88  
    89  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DIAGNOSTICS                                      PAGE 00002
    90  
    91  // ** linker     ** object size 5591872 bytes
    92  // ** statistics ** 384 subprograms, no errors, no warnings
    93  
    94  
    95  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** JOB CONTROL                                      PAGE 00003
    96  
    97  
    98  //   Line    JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
    99  
   100  
   101  
   102  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00004
   103  
   104  /*
   105  Generated by VIF - experimental VIntage Fortran compiler.
   106  VIF release 1.4.1
   107  */
   108  
   109  #if defined (__GNUC__)
   110  #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
   111  #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
   112  #if (__GNUC__ >= 14)
   113  #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
   114  #pragma GCC diagnostic ignored "-Wimplicit-int"
   115  #pragma GCC diagnostic ignored "-Wint-conversion"
   116  #pragma GCC diagnostic ignored "-Wreturn-mismatch"
   117  #endif
   118  #else
   119  #error VIF requires GCC
   120  #endif
   121  
   122  #include <vif.h>
   123  
   124  static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
   125  
   126  
   127  #define _dc_0 " 4.1"
   128  #define _dc_1 "slatec"
   129  #define _dc_2 "avint"
   130  #define _dc_3 "the upper limit of integration was not greater than the "
   131  #define _dc_4 "lower limit."
   132  #define _dc_5 "there were less than three function values between the "
   133  #define _dc_6 "limits of integration."
   134  #define _dc_7 "the abscissas were not strictly increasing.  must have "
   135  #define _dc_8 "x(i-1) .lt. x(i) for all i."
   136  #define _dc_9 "less than two function values were supplied."
   137  #define _dc_10 "bndacc"
   138  #define _dc_11 "mdg.lt.ir, probable error."
   139  #define _dc_12 "bndsol"
   140  #define _dc_13 "a zero diagonal term is in the n by n upper triangular "
   141  #define _dc_14 "matrix."
   142  #define _dc_15 "bsgq8"
   143  #define _dc_16 "ans is probably insufficiently accurate."
   144  #define _dc_17 "a and b are too nearly equal to allow normal integration. "
   145  #define _dc_18 " ans is set to zero and ierr to -1."
   146  #define _dc_19 "cgeev"
   147  #define _dc_20 "n .gt. lda."
   148  #define _dc_21 "n .lt. 1"
   149  #define _dc_22 "job .ne. 0 and n .gt. ldv."
   150  #define _dc_23 "lda.lt.ldv,  elements of v other than the n by n output "
   151  #define _dc_24 "elements have been changed."
   152  #define _dc_25 "lda.gt.ldv, elements of a other than the n by n input "
   153  #define _dc_26 "cgefs"
   154  #define _dc_27 "lda = "
   155  #define _dc_28 " is less than n = "
   156  #define _dc_29 "n = "
   157  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00005
   158  
   159  #define _dc_30 " is less than 1"
   160  #define _dc_31 "itask = "
   161  #define _dc_32 "singular matrix a - no solution"
   162  #define _dc_33 "solution may have no significance"
   163  #define _dc_34 "cgeir"
   164  #define _dc_35 "chiev"
   165  #define _dc_36 "nonreal element on diagonal of a"
   166  #define _dc_37 "cnbfs"
   167  #define _dc_38 "ml = "
   168  #define _dc_39 " is out of range"
   169  #define _dc_40 "mu = "
   170  #define _dc_41 "cnbir"
   171  #define _dc_42 "cpofs"
   172  #define _dc_43 "singular or not positive definite - no solution"
   173  #define _dc_44 "cpoir"
   174  #define _dc_45 "cpqr79"
   175  #define _dc_46 "leading coefficient is zero."
   176  #define _dc_47 "degree invalid."
   177  #define _dc_48 "no convergence in 30 qr iterations."
   178  #define _dc_49 "davint"
   179  #define _dc_50 "there were less than three function values "
   180  #define _dc_51 "between the limits of integration."
   181  #define _dc_52 "the upper limit of integration was not greater "
   182  #define _dc_53 "than the lower limit."
   183  #define _dc_54 "dbndac"
   184  #define _dc_55 "dbndsl"
   185  #define _dc_56 "dbocls"
   186  #define _dc_57 "mdw = "
   187  #define _dc_58 " must be positive."
   188  #define _dc_59 "mcon = "
   189  #define _dc_60 " must be non-negative"
   190  #define _dc_61 "ncols = "
   191  #define _dc_62 " the no. of variables, must be positive."
   192  #define _dc_63 "ind("
   193  #define _dc_64 ") = "
   194  #define _dc_65 " must be 1-4."
   195  #define _dc_66 "bound bl("
   196  #define _dc_67 " is .gt. bu("
   197  #define _dc_68 "iscale option = "
   198  #define _dc_69 " must be 1-3"
   199  #define _dc_70 "offset past x(ncols) ("
   200  #define _dc_71 ") for user-provided column scaling must be positive."
   201  #define _dc_72 "each provided column scale factor must be "
   202  #define _dc_73 "positive.$$component "
   203  #define _dc_74 " now = "
   204  #define _dc_75 "option number = "
   205  #define _dc_76 " is not defined."
   206  #define _dc_77 "the row dimension of w(,) = "
   207  #define _dc_78 " must be .ge. the number of effective rows = "
   208  #define _dc_79 "the column dimension of w(,) = "
   209  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00006
   210  
   211  #define _dc_80 " must be .ge. ncols+mcon+1 = "
   212  #define _dc_81 "the dimensions of the arrays bs(), bu(), and ind() = "
   213  #define _dc_82 " must be .ge. ncols+mcon = "
   214  #define _dc_83 "the dimension of x() = "
   215  #define _dc_84 " must be .ge. the required length = "
   216  #define _dc_85 "the dimension of rw() = "
   217  #define _dc_86 " must be .ge. 6*ncols+5*mcon = "
   218  #define _dc_87 "the dimension of iw() = "
   219  #define _dc_88 " must be .ge. 2*ncols+2*mcon = "
   220  #define _dc_89 "the dimension of iopt() = "
   221  #define _dc_90 " must be .ge. the required len = "
   222  #define _dc_91 "no. of rows = "
   223  #define _dc_92 " must be .ge. 0 .and. .le. mdw-mcon = "
   224  #define _dc_93 "dbols"
   225  #define _dc_94 " the no. of variables must be positive."
   226  #define _dc_95 ") for user-provided column scaling must "
   227  #define _dc_96 "be positive."
   228  #define _dc_97 "each provided column scale factor "
   229  #define _dc_98 "must be positive.$$component "
   230  #define _dc_99 "the option number = "
   231  #define _dc_100 " must be .ge. the number of rows = "
   232  #define _dc_101 " must be .ge. ncols+1 = "
   233  #define _dc_102 "the dimensions of the arrays bl(), bu(), and ind() = "
   234  #define _dc_103 " must be .ge. ncols = "
   235  #define _dc_104 " must be .ge. 5*ncols = "
   236  #define _dc_105 " must be .ge. 2*ncols = "
   237  #define _dc_106 " must be .ge. 0 .and. .le. mdw = "
   238  #define _dc_107 "dbolsm"
   239  #define _dc_108 "the number of rows = "
   240  #define _dc_109 "the number of columns = "
   241  #define _dc_110 "for j = "
   242  #define _dc_111 " the constraint indicator must be 1-4"
   243  #define _dc_112 " the lower bound = "
   244  #define _dc_113 " is .gt. the upper bound = "
   245  #define _dc_114 "the input order of columns = "
   246  #define _dc_115 " is not between 1 and ncols = "
   247  #define _dc_116 "the bound polarity flag in component j = "
   248  #define _dc_117 " must be positive.$$now = "
   249  #define _dc_118 "the offset = "
   250  #define _dc_119 " beyond position ncols = "
   251  #define _dc_120 " must be positive for option number 2."
   252  #define _dc_121 "the tolerance for rank determination = "
   253  #define _dc_122 " is less than machine precision = "
   254  #define _dc_123 " must be positive for option number 3."
   255  #define _dc_124 "the reciprocal "
   256  #define _dc_125 "of the blow-up factor for rejecting variables "
   257  #define _dc_126 "must be positive.$$now = "
   258  #define _dc_127 "the maximum number of iterations = "
   259  #define _dc_128 " must be positive for option number 5."
   260  #define _dc_129 "the factor (ncols/minput) where pre-"
   261  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00007
   262  
   263  #define _dc_130 "triangularizing is performed must be non-"
   264  #define _dc_131 "negative.$$now = "
   265  #define _dc_132 "the row separator to apply weighting ("
   266  #define _dc_133 ") must lie between 0 and minput = "
   267  #define _dc_134 ".$$weight = "
   268  #define _dc_135 "(' pretri. input matrix')"
   269  #define _dc_136 "(' lower bounds')"
   270  #define _dc_137 "(' upper bounds')"
   271  #define _dc_138 "more than itmax = "
   272  #define _dc_139 " iterations solving bounded least squares problem."
   273  #define _dc_140 "(' gradient values')"
   274  #define _dc_141 "(' internal variable order')"
   275  #define _dc_142 "(' bound polarity')"
   276  #define _dc_143 "(' found no variable to enter')"
   277  #define _dc_144 "(' try to bring in this col.')"
   278  #define _dc_145 "(' variable is dependent, not used.')"
   279  #define _dc_146 "(' pivot is zero, not used.')"
   280  #define _dc_147 "(' variable has bad direction, not used.')"
   281  #define _dc_148 "(' soln. values')"
   282  #define _dc_149 "(' cols. used')"
   283  #define _dc_150 "dbsgq8"
   284  #define _dc_151 "dcov"
   285  #define _dc_152 "execution terminated because user set iflag negative."
   286  #define _dc_153 "invalid input parameter."
   287  #define _dc_154 "singular jacobian matrix, covariance matrix cannot be "
   288  #define _dc_155 "calculated."
   289  #define _dc_156 "ddes"
   290  #define _dc_157 "in ddeabm, info(1) must be "
   291  #define _dc_158 "set to 0 for the start of a new problem, and must be "
   292  #define _dc_159 "set to 1 following an interrupted task.  you are "
   293  #define _dc_160 "attempting to continue the integration illegally by "
   294  #define _dc_161 "calling the code with info(1) = "
   295  #define _dc_162 "in ddeabm, info(2) must be "
   296  #define _dc_163 "0 or 1 indicating scalar and vector error tolerances, "
   297  #define _dc_164 "respectively.  you have called the code with info(2) = "
   298  #define _dc_165 "in ddeabm, info(3) must be "
   299  #define _dc_166 "0 or 1 indicating the interval or intermediate-output "
   300  #define _dc_167 "mode of integration, respectively.  you have called "
   301  #define _dc_168 "the code with  info(3) = "
   302  #define _dc_169 "in ddeabm, info(4) must be "
   303  #define _dc_170 "0 or 1 indicating whether or not the integration "
   304  #define _dc_171 "interval is to be restricted by a point tstop.  you "
   305  #define _dc_172 "have called the code with info(4) = "
   306  #define _dc_173 "in ddeabm,  the number of "
   307  #define _dc_174 "equations neq must be a positive integer.  you have "
   308  #define _dc_175 "called the code with  neq = "
   309  #define _dc_176 "in ddeabm, the relative "
   310  #define _dc_177 "error tolerances rtol must be non-negative.  you "
   311  #define _dc_178 "have called the code with  rtol("
   312  #define _dc_179 ".  in the case of vector error tolerances, "
   313  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00008
   314  
   315  #define _dc_180 "no further checking of rtol components is done."
   316  #define _dc_181 "in ddeabm, the absolute "
   317  #define _dc_182 "error tolerances atol must be non-negative.  you "
   318  #define _dc_183 "have called the code with  atol("
   319  #define _dc_184 "no further checking of atol components is done."
   320  #define _dc_185 "in ddeabm, you have "
   321  #define _dc_186 "called the code with  tout = "
   322  #define _dc_187 " but "
   323  #define _dc_188 "you have also told the code (info(4) = 1) not to "
   324  #define _dc_189 "integrate past the point tstop = "
   325  #define _dc_190 " these instructions conflict."
   326  #define _dc_191 "called the code with  t = tout = "
   327  #define _dc_192 "$$this is not allowed on continuation calls."
   328  #define _dc_193 "changed the value of t from "
   329  #define _dc_194 " to "
   330  #define _dc_195 "  this is not allowed on continuation calls."
   331  #define _dc_196 "in ddeabm, by "
   332  #define _dc_197 "calling the code with tout = "
   333  #define _dc_198 " you are attempting to change the direction of "
   334  #define _dc_199 "integration.$$this is not allowed without "
   335  #define _dc_200 "restarting."
   336  #define _dc_201 "in ddeabm, invalid "
   337  #define _dc_202 "input was detected on successive entries.  it is "
   338  #define _dc_203 "impossible to proceed because you have not "
   339  #define _dc_204 "corrected the problem, so execution is being "
   340  #define _dc_205 "terminated."
   341  #define _dc_206 "defcmn"
   342  #define _dc_207 "in defc, the order of the b-spline must be 1 thru 20."
   343  #define _dc_208 "in defc, the number of knots must be at least twice "
   344  #define _dc_209 "the b-spline order."
   345  #define _dc_210 "in defc, the number of data points must be nonnegative."
   346  #define _dc_211 "in defc, insufficient storage for w(*).  check formula "
   347  #define _dc_212 "that reads lw.ge. ... .  need = "
   348  #define _dc_213 " given = "
   349  #define _dc_214 "in defc, input value of mdein must be 1-2."
   350  #define _dc_215 "derkfs"
   351  #define _dc_216 "in derkf, info(1) must be set to 0 "
   352  #define _dc_217 "for the start of a new problem, and must be set to 1 "
   353  #define _dc_218 "following an interrupted task.  you are attempting to "
   354  #define _dc_219 "continue the integration illegally by calling the code "
   355  #define _dc_220 "with  info(1) = "
   356  #define _dc_221 "in derkf, info(2) must be 0 or 1 indicating scalar "
   357  #define _dc_222 "and vector error tolerances, respectively.  you have "
   358  #define _dc_223 "called the code with info(2) = "
   359  #define _dc_224 "in derkf, info(3) must be 0 or 1 indicating the "
   360  #define _dc_225 "or intermediate-output mode of integration, "
   361  #define _dc_226 "respectively.  you have called the code "
   362  #define _dc_227 "with  info(3) = "
   363  #define _dc_228 "in derkf, the number of equations neq must be a "
   364  #define _dc_229 "positive integer.  you have called the "
   365  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00009
   366  
   367  #define _dc_230 "code with neq = "
   368  #define _dc_231 "in derkf, the relative error "
   369  #define _dc_232 "tolerances rtol must be non-negative.  you have "
   370  #define _dc_233 "called the code with  rtol("
   371  #define _dc_234 "in derkf, the absolute error "
   372  #define _dc_235 "tolerances atol must be non-negative.  you have "
   373  #define _dc_236 "called the code with  atol("
   374  #define _dc_237 "in derkf, you have called the "
   375  #define _dc_238 "code with  t = tout = "
   376  #define _dc_239 "$$this is not "
   377  #define _dc_240 "allowed on continuation calls."
   378  #define _dc_241 "in derkf, you have changed the "
   379  #define _dc_242 "value of t from "
   380  #define _dc_243 "in derkf, by calling the code "
   381  #define _dc_244 "with tout = "
   382  #define _dc_245 " you are attempting "
   383  #define _dc_246 "to change the direction of integration.$$this is "
   384  #define _dc_247 "not allowed without restarting."
   385  #define _dc_248 "in derkf, invalid input was "
   386  #define _dc_249 "detected on successive entries.  it is impossible "
   387  #define _dc_250 "to proceed because you have not corrected the "
   388  #define _dc_251 "problem, so execution is being terminated."
   389  #define _dc_252 "des"
   390  #define _dc_253 "in deabm, info(1) must be "
   391  #define _dc_254 "in deabm, info(2) must be 0 or 1 "
   392  #define _dc_255 "indicating scalar and vector error tolerances, "
   393  #define _dc_256 "in deabm, info(3) must be 0 or 1 "
   394  #define _dc_257 "indicating the interval or intermediate-output mode of "
   395  #define _dc_258 "integration, respectively.  you have called the code "
   396  #define _dc_259 "in deabm, info(4) must be 0 or 1 "
   397  #define _dc_260 "indicating whether or not the integration interval is "
   398  #define _dc_261 "to be restricted by a point tstop.  you have called "
   399  #define _dc_262 "the code with info(4) = "
   400  #define _dc_263 "in deabm, the number of equations "
   401  #define _dc_264 "neq must be a positive integer.  you have called the "
   402  #define _dc_265 "code with  neq = "
   403  #define _dc_266 "in deabm, the relative error "
   404  #define _dc_267 "in deabm, the absolute error "
   405  #define _dc_268 "in deabm, you have called the "
   406  #define _dc_269 "code with  tout = "
   407  #define _dc_270 " but you have "
   408  #define _dc_271 "also told the code (info(4) = 1) not to integrate "
   409  #define _dc_272 "past the point tstop = "
   410  #define _dc_273 " these "
   411  #define _dc_274 "instructions conflict."
   412  #define _dc_275 "in deabm, you have changed the "
   413  #define _dc_276 "in deabm, by calling the "
   414  #define _dc_277 "code with tout = "
   415  #define _dc_278 " you are "
   416  #define _dc_279 "attempting to change the direction of "
   417  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00010
   418  
   419  #define _dc_280 "in deabm, invalid input was "
   420  #define _dc_281 "dfcmn"
   421  #define _dc_282 "in dfc, the order of the b-spline must be 1 thru 20."
   422  #define _dc_283 "in dfc, the number of knots must be at least twice "
   423  #define _dc_284 "in dfc, the number of data points must be nonnegative."
   424  #define _dc_285 "in dfc, insufficient storage for w(*).  check nb = "
   425  #define _dc_286 "in dfc, input value of mode must be 1-4."
   426  #define _dc_287 "in dfc, insufficient storage for w(*).  check lw = "
   427  #define _dc_288 "in dfc, insufficient storage for iw(*).  check iw1 = "
   428  #define _dc_289 "dfulmt"
   429  #define _dc_290 "in dsplp, row dim., mrelas, nvars are missing from prgopt."
   430  #define _dc_291 "dgaus8"
   431  #define _dc_292 "a and b are too nearly equal to allow normal integration. $$"
   432  #define _dc_293 "ans is set to zero and ierr to -1."
   433  #define _dc_294 "dgefs"
   434  #define _dc_295 "dhfti"
   435  #define _dc_296 "mda.lt.m, probable error."
   436  #define _dc_297 "mdb.lt.max(m,n).and.nb.gt.1. probable error."
   437  #define _dc_298 "dllsia"
   438  #define _dc_299 "solution only (info=1) but no right hand side (nb=0)"
   439  #define _dc_300 "m.lt.1"
   440  #define _dc_301 "n.lt.1"
   441  #define _dc_302 "n.gt.m"
   442  #define _dc_303 "mda.lt.m"
   443  #define _dc_304 "liw.lt.m+n"
   444  #define _dc_305 "nb.lt.0"
   445  #define _dc_306 "mdb.lt.m"
   446  #define _dc_307 "key out of range"
   447  #define _dc_308 "insufficient work space"
   448  #define _dc_309 "re(i) .lt. 0"
   449  #define _dc_310 "re(i) .gt. 1"
   450  #define _dc_311 "ae(i) .lt. 0"
   451  #define _dc_312 "info out of range"
   452  #define _dc_313 "mode out of range"
   453  #define _dc_314 "np out of range"
   454  #define _dc_315 "lsei"
   455  #define _dc_316 "all of the variables n, me,"
   456  #define _dc_317 " ma, mg must be .ge. 0$$entered routine with"
   457  #define _dc_318 "$$n  = "
   458  #define _dc_319 "$$me = "
   459  #define _dc_320 "$$ma = "
   460  #define _dc_321 "$$mg = "
   461  #define _dc_322 "dlsei"
   462  #define _dc_323 "insufficient storage "
   463  #define _dc_324 "allocated for ws(*), need lw = "
   464  #define _dc_325 "allocated for ip(*), need lip = "
   465  #define _dc_326 "mdw.lt.me+ma+mg is an error"
   466  #define _dc_327 "the option vector is undefined"
   467  #define _dc_328 "the links in the option vector are cycling."
   468  #define _dc_329 "mdw .lt. n when cov matrix needed, is an error"
   469  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00011
   470  
   471  #define _dc_330 "dlssud"
   472  #define _dc_331 "invalid imput parameters."
   473  #define _dc_332 "dnbfs"
   474  #define _dc_333 "dnls1e"
   475  #define _dc_334 "dnls1"
   476  #define _dc_335 "derivative of "
   477  #define _dc_336 "function "
   478  #define _dc_337 " may be wrong, err = "
   479  #define _dc_338 " too close to 0."
   480  #define _dc_339 "derivative of function "
   481  #define _dc_340 "third convergence condition, check results before accepting."
   482  #define _dc_341 "too many function evaluations."
   483  #define _dc_342 "tolerances too small, no further improvement possible."
   484  #define _dc_343 "dnsqe"
   485  #define _dc_344 "dnsq"
   486  #define _dc_345 "xtol too small. no further improvement possible."
   487  #define _dc_346 "iteration not making good progress."
   488  #define _dc_347 "dorthr"
   489  #define _dc_348 "invalid input parameters."
   490  #define _dc_349 "rank of matrix is less than the number of rows."
   491  #define _dc_350 "dp1vlu"
   492  #define _dc_351 "the order of polynomial evaluation, l = "
   493  #define _dc_352 " requested exceeds the highest order fit, nord = "
   494  #define _dc_353 ", computed by dpolft -- execution terminated."
   495  #define _dc_354 "invalid input parameter.  order of polynomial evaluation "
   496  #define _dc_355 "requested is negative."
   497  #define _dc_356 "dpchng"
   498  #define _dc_357 "ircx=0"
   499  #define _dc_358 "subscripts for array element to be accessed were out of "
   500  #define _dc_359 "bounds"
   501  #define _dc_360 "dpintm"
   502  #define _dc_361 "matrix dimension m or n .le. 0"
   503  #define _dc_362 "the value of lmx is too small"
   504  #define _dc_363 "dplint"
   505  #define _dc_364 "n is zero or negative."
   506  #define _dc_365 "the abscissas are not distinct."
   507  #define _dc_366 "dplpdm"
   508  #define _dc_367 "in dsplp, short on storage for la05ad.  "
   509  #define _dc_368 "use prgopt(*) to give more."
   510  #define _dc_369 "in dsplp, la05ad returned error flag = "
   511  #define _dc_370 "dplpmn"
   512  #define _dc_371 "in dsplp,  a singular initial basis was encountered."
   513  #define _dc_372 "in dsplp, an infeasible initial basis was encountered."
   514  #define _dc_373 "(' enter standard phase-1')"
   515  #define _dc_374 "(' enter standard phase-2')"
   516  #define _dc_375 "in dsplp, the problem appears to be infeasible"
   517  #define _dc_376 "in dsplp, the problem appears to have no finite solution."
   518  #define _dc_377 "in dsplp, the problem appears to be infeasible and to "
   519  #define _dc_378 "have no finite soln."
   520  #define _dc_379 "(' basic (internal) dual soln.')"
   521  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00012
   522  
   523  #define _dc_380 "(' reduced costs')"
   524  #define _dc_381 "(' search direction')"
   525  #define _dc_382 "(' subscripts of basic variables during redecomposition')"
   526  #define _dc_383 "(' est. error in primal comps.')"
   527  #define _dc_384 "(' est. error in dual comps.')"
   528  #define _dc_385 "in dsplp, moved to a singular point. this should not happen."
   529  #define _dc_386 "in dsplp, max iterations = "
   530  #define _dc_387 " taken.  up-to-date results saved on file no. "
   531  #define _dc_388 ".   if file no. = 0, no save."
   532  #define _dc_389 "('1num. of dependent vars., mrelas')"
   533  #define _dc_390 "(' num. of independent vars., nvars')"
   534  #define _dc_391 "(' dimension of costs(*)=')"
   535  #define _dc_392 "(' dimensions of bl(*),bu(*),ind(*)'/' primal(*),duals(*) =')"
   536  #define _dc_393 "(' dimension of ibasis(*)=')"
   537  #define _dc_394 "(' dimension of prgopt(*)=')"
   538  #define _dc_395 "(' 1-nvars=independent variable indices.'/ ' (nvars+1)-(nvars+mrelas)=dependent variable indices.'/ ' constraint indicators are 1-4 and mean')"
   539  #define _dc_396 "(' 1=variable has only lower bound.'/ ' 2=variable has only upper bound.'/ ' 3=variable has both bounds.'/ ' 4=variable has no bounds, it is free.')"
   540  #define _dc_397 "(' array of costs')"
   541  #define _dc_398 "(' constraint indicators')"
   542  #define _dc_399 "(' lower bounds for variables  (ignore unused entries.)')"
   543  #define _dc_400 "(' upper bounds for variables  (ignore unused entries.)')"
   544  #define _dc_401 "('0non-basic indices that are negative show variables' ' exchanged at a zero'/' step length')"
   545  #define _dc_402 "(' when col. no. leaving=col. no. entering, the entering ' 'variable moved'/' to its bound.  it remains non-basic.'/ ' when col. no. of basis exchanged is negative, the leaving'/ ' variable is at its upper bound.')"
   546  #define _dc_403 "(' the output value of info is')"
   547  #define _dc_404 "(' this is a minimization problem.')"
   548  #define _dc_405 "(' this is a maximization problem.')"
   549  #define _dc_406 "(' steepest edge pricing was used.')"
   550  #define _dc_407 "(' minimum reduced cost pricing was used.')"
   551  #define _dc_408 "(' output value of the objective function')"
   552  #define _dc_409 "(' the output independent and dependent variables')"
   553  #define _dc_410 "(' the output dual variables')"
   554  #define _dc_411 "(' variable indices in positions 1-mrelas are basic.')"
   555  #define _dc_412 "(' no. of iterations')"
   556  #define _dc_413 "(' no. of full redecomps')"
   557  #define _dc_414 "('0iteration number')"
   558  #define _dc_415 "(' index of variable entering the basis')"
   559  #define _dc_416 "(' column of the basis exchanged')"
   560  #define _dc_417 "(' index of variable leaving the basis')"
   561  #define _dc_418 "(' length of the exchange step')"
   562  #define _dc_419 "(' basic (internal) primal soln.')"
   563  #define _dc_420 "(' ibb array')"
   564  #define _dc_421 "(' translated rhs')"
   565  #define _dc_422 "dplpmu"
   566  #define _dc_423 "dplpup"
   567  #define _dc_424 "in dsplp, independent variable = "
   568  #define _dc_425 "in dsplp, lower bound = "
   569  #define _dc_426 " and upper bound = "
   570  #define _dc_427 " for independent variable = "
   571  #define _dc_428 " are not consistent."
   572  #define _dc_429 "in dsplp, dependent variable = "
   573  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00013
   574  
   575  #define _dc_430 " for dependant variable = "
   576  #define _dc_431 "in dsplp, more than 2*nvars*mrelas iterations defining "
   577  #define _dc_432 "or updating matrix data."
   578  #define _dc_433 "in dsplp, row index = "
   579  #define _dc_434 " or column index = "
   580  #define _dc_435 " is out of range."
   581  #define _dc_436 "in dsplp, indication flag = "
   582  #define _dc_437 " for matrix data must be either 0 or 1."
   583  #define _dc_438 "in dsplp, a matrix element's size is out of the "
   584  #define _dc_439 "specified range."
   585  #define _dc_440 "dpnnzr"
   586  #define _dc_441 "bounds."
   587  #define _dc_442 "dpofs"
   588  #define _dc_443 "dpolft"
   589  #define _dc_444 "dpopt"
   590  #define _dc_445 "in dsplp, the user option array has undefined data."
   591  #define _dc_446 "in dsplp, option array processing is cycling."
   592  #define _dc_447 "in dsplp, an index of user-supplied basis is out of range."
   593  #define _dc_448 "in dsplp, size parameters for matrix must be smallest and "
   594  #define _dc_449 "largest magnitudes of nonzero entries."
   595  #define _dc_450 "in dsplp, the number of revised simplex steps between "
   596  #define _dc_451 "check-points must be positive."
   597  #define _dc_452 "in dsplp, file numbers for saved data and matrix pages "
   598  #define _dc_453 "must be positive and not equal."
   599  #define _dc_454 "dpperm"
   600  #define _dc_455 "the number of values to be rearranged, n, is not positive."
   601  #define _dc_456 "the permutation vector, iperm, is not valid."
   602  #define _dc_457 "dppgq8"
   603  #define _dc_458 "a and b are too nearly equal to allow normal "
   604  #define _dc_459 "integration.  answer is set to zero, and ierr=-1."
   605  #define _dc_460 "dprwpg"
   606  #define _dc_461 "the value of ipage (page number) was not in the range"
   607  #define _dc_462 "1.le.ipage.le.maxpge."
   608  #define _dc_463 "the value of lpg (page length) was nonpositive."
   609  #define _dc_464 "the value of key (read-write flag) was not 1 or 2."
   610  #define _dc_465 "dpsort"
   611  #define _dc_466 "the number of values to be sorted, n, is not positive."
   612  #define _dc_467 "the sort control parameter, kflag, is not 2, 1, -1, or -2."
   613  #define _dc_468 "drc3jj"
   614  #define _dc_469 "l2-abs(m2) or l3-abs(m3) "
   615  #define _dc_470 "less than zero."
   616  #define _dc_471 "l2+abs(m2) or l3+abs(m3) "
   617  #define _dc_472 "not integer."
   618  #define _dc_473 "l1max-l1min not integer."
   619  #define _dc_474 "l1min greater than l1max."
   620  #define _dc_475 "dimension of result array for "
   621  #define _dc_476 "3j coefficients too small."
   622  #define _dc_477 "drc3jm"
   623  #define _dc_478 "l1-abs(m1) less than zero or "
   624  #define _dc_479 "l1+abs(m1) not integer."
   625  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00014
   626  
   627  #define _dc_480 "l1, l2, l3 do not satisfy "
   628  #define _dc_481 "triangular condition."
   629  #define _dc_482 "l1+l2+l3 not integer."
   630  #define _dc_483 "m2max-m2min not integer."
   631  #define _dc_484 "m2min greater than m2max."
   632  #define _dc_485 "drc6j"
   633  #define _dc_486 "l2+l3+l5+l6 or l4+l2+l6 not "
   634  #define _dc_487 "integer."
   635  #define _dc_488 "l4, l2, l6 triangular "
   636  #define _dc_489 "condition not satisfied."
   637  #define _dc_490 "l4, l5, l3 triangular "
   638  #define _dc_491 "dimension of result array for 6j "
   639  #define _dc_492 "coefficients too small."
   640  #define _dc_493 "drc"
   641  #define _dc_494 "x.lt.0 .or. y.le.0 where x = "
   642  #define _dc_495 " and y = "
   643  #define _dc_496 "max(x,y).gt.uplim where x = "
   644  #define _dc_497 " y = "
   645  #define _dc_498 " and uplim = "
   646  #define _dc_499 "x+y.lt.lolim where x = "
   647  #define _dc_500 " and lolim = "
   648  #define _dc_501 "drd"
   649  #define _dc_502 "min(x,y).lt.0 where x = "
   650  #define _dc_503 "max(x,y,z).gt.uplim where x = "
   651  #define _dc_504 " z = "
   652  #define _dc_505 "min(x+y,z).lt.lolim where x = "
   653  #define _dc_506 "dreadp"
   654  #define _dc_507 "in dsplp, lpg = "
   655  #define _dc_508 " irecn = "
   656  #define _dc_509 "drf"
   657  #define _dc_510 "min(x,y,z).lt.0 where x = "
   658  #define _dc_511 " and z = "
   659  #define _dc_512 "min(x+y,x+z,y+z).lt.lolim where x = "
   660  #define _dc_513 "drj"
   661  #define _dc_514 "max(x,y,z,p).gt.uplim where x = "
   662  #define _dc_515 " p = "
   663  #define _dc_516 "rj"
   664  #define _dc_517 "min(x+y,x+z,y+z,p).lt.lolim where x = "
   665  #define _dc_518 "drkfs"
   666  #define _dc_519 "in dderkf, info(1) must be set to 0 "
   667  #define _dc_520 "in dderkf, info(2) must be 0 or 1 "
   668  #define _dc_521 "in dderkf, info(3) must be 0 or 1 "
   669  #define _dc_522 "in dderkf, the number of equations "
   670  #define _dc_523 "in dderkf, the relative error "
   671  #define _dc_524 "in dderkf, the absolute error "
   672  #define _dc_525 "in dderkf, you have called the "
   673  #define _dc_526 "in dderkf, you have changed the "
   674  #define _dc_527 "in dderkf, by calling the code with tout = "
   675  #define _dc_528 " you are attempting to change the "
   676  #define _dc_529 "direction of integration.$$this is not allowed "
   677  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00015
   678  
   679  #define _dc_530 "without restarting."
   680  #define _dc_531 "in dderkf, invalid input was "
   681  #define _dc_532 "dsort"
   682  #define _dc_533 "the number of values to be sorted is not positive."
   683  #define _dc_534 "the sort control parameter, k, is not 2, 1, -1, or -2."
   684  #define _dc_535 "0residual norm ="
   685  #define _dc_536 " "
   686  #define _dc_537 "solution iterate ("
   687  #define _dc_538 ")"
   688  #define _dc_539 "dsos"
   689  #define _dc_540 "the number of equations "
   690  #define _dc_541 "must be a positive integer.  you have called the "
   691  #define _dc_542 "the error tolerances for "
   692  #define _dc_543 "the solution iterates cannot be negative. you have "
   693  #define _dc_544 "called the code with  rtolx = "
   694  #define _dc_545 " and atolx = "
   695  #define _dc_546 "the residual error "
   696  #define _dc_547 "tolerance must be non-negative.  you have called the "
   697  #define _dc_548 "code with tolf = "
   698  #define _dc_549 "you have told the code "
   699  #define _dc_550 "to use optional input items by setting iflag=-1. "
   700  #define _dc_551 "however you have called the code with the maximum "
   701  #define _dc_552 "allowable number of iterations set to iw(2) = "
   702  #define _dc_553 "dimension of the rw array "
   703  #define _dc_554 "must be at least 1 + 6*neq + neq*(neq+1)/2 .  you have "
   704  #define _dc_555 "called the code with lrw = "
   705  #define _dc_556 "dimension of the iw array "
   706  #define _dc_557 "must be at least 3 + neq.  you have called the code "
   707  #define _dc_558 "with  liw = "
   708  #define _dc_559 "dsplp"
   709  #define _dc_560 "value of mrelas must be "
   710  #define _dc_561 ".gt. 0.  now = "
   711  #define _dc_562 "value of nvars must be "
   712  #define _dc_563 "the user option array has undefined data."
   713  #define _dc_564 "option array processing is cycling."
   714  #define _dc_565 "user-defined value of "
   715  #define _dc_566 "lamat = "
   716  #define _dc_567 " must be .ge. nvars+7."
   717  #define _dc_568 "user-defined value of lbm must be .ge. 0."
   718  #define _dc_569 "work or iwork is not long "
   719  #define _dc_570 "enough. lw must be = "
   720  #define _dc_571 " and liw must be = "
   721  #define _dc_572 "du11ls"
   722  #define _dc_573 "first np columns are linearly dependent"
   723  #define _dc_574 "du11us"
   724  #define _dc_575 "first np rows are linearly dependent"
   725  #define _dc_576 "dulsia"
   726  #define _dc_577 "n.lt.m"
   727  #define _dc_578 "mdb.lt.n"
   728  #define _dc_579 "dwnlsm"
   729  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00016
   730  
   731  #define _dc_580 "in dwnnls, the option vector is undefined"
   732  #define _dc_581 "in dwnnls, the links in the option vector are cycling."
   733  #define _dc_582 "dwnnls"
   734  #define _dc_583 "allocated for work(*), need lw = "
   735  #define _dc_584 "allocated for iwork(*), need liw = "
   736  #define _dc_585 "the value mdw.lt.me+ma is an error"
   737  #define _dc_586 "l.ge.0 .and. l.le.n is required"
   738  #define _dc_587 "dwritp"
   739  #define _dc_588 "in dsplp, lgp = "
   740  #define _dc_589 "dxadj"
   741  #define _dc_590 "overflow in auxiliary index"
   742  #define _dc_591 "dxc210"
   743  #define _dc_592 "k too large"
   744  #define _dc_593 "efcmn"
   745  #define _dc_594 "in efc, the order of the b-spline must be 1 thru 20."
   746  #define _dc_595 "in efc, the number of knots must be at least twice "
   747  #define _dc_596 "in efc, the number of data points must be nonnegative."
   748  #define _dc_597 "in efc, insufficient storage for w(*).  check formula "
   749  #define _dc_598 "in efc, input value of mdein must be 1-2."
   750  #define _dc_599 "fcmn"
   751  #define _dc_600 "in fc, the order of the b-spline must be 1 thru 20."
   752  #define _dc_601 "in fc, the number of knots must be at least twice "
   753  #define _dc_602 "in fc, the number of data points must be nonnegative."
   754  #define _dc_603 "in fc, insufficient storage for w(*).  check nb = "
   755  #define _dc_604 "in fc, input value of mode must be 1-4."
   756  #define _dc_605 "in fc, insufficient storage for w(*).  check lw = "
   757  #define _dc_606 "in fc, insufficient storage for iw(*).  check iw1 = "
   758  #define _dc_607 "fulmat"
   759  #define _dc_608 "in splp package, row dim., mrelas, nvars are missing from "
   760  #define _dc_609 "prgopt."
   761  #define _dc_610 "gaus8"
   762  #define _dc_611 "hfti"
   763  #define _dc_612 "hpperm"
   764  #define _dc_613 "the length of the work variable, work, is too short."
   765  #define _dc_614 "hpsort"
   766  #define _dc_615 " hpsort"
   767  #define _dc_616 "the string beginning, strbeg, is beyond its end, strend."
   768  #define _dc_617 "the string beginning, strbeg, is out-of-range."
   769  #define _dc_618 "the string end, strend, is out-of-range."
   770  #define _dc_619 "idloc"
   771  #define _dc_620 "a value of loc, the first argument, .le. 0 was encountered"
   772  #define _dc_621 "iploc"
   773  #define _dc_622 "ipperm"
   774  #define _dc_623 "ipsort"
   775  #define _dc_624 "isort"
   776  #define _dc_625 "llsia"
   777  #define _dc_626 "lssods"
   778  #define _dc_627 "problem may be ill-conditioned.  maximal machine accuracy "
   779  #define _dc_628 "is not achievable."
   780  #define _dc_629 "problem is very ill-conditioned.  iterative "
   781  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00017
   782  
   783  #define _dc_630 "improvement is ineffective."
   784  #define _dc_631 "convergence has not been obtained with allowable "
   785  #define _dc_632 "number of iterative improvement steps."
   786  #define _dc_633 "lssuds"
   787  #define _dc_634 " *** sign not 0, +1 or -1 in call to mpadd2,"
   788  #define _dc_635 " possible overwriting problem ***"
   789  #define _dc_636 "mpblas"
   790  #define _dc_637 "array space not sufficient for quad precision 2x "
   791  #define _dc_638 "double precision, proceeding."
   792  #define _dc_639 " *** b ="
   793  #define _dc_640 " illegal in call to mpchk,"
   794  #define _dc_641 " perhaps not set before call to an mp routine ***"
   795  #define _dc_642 " *** t ="
   796  #define _dc_643 " *** m .le. t in call to mpchk,"
   797  #define _dc_644 " *** b too large in call to mpchk ***"
   798  #define _dc_645 " *** mxr too small or not set to dim(r) before call"
   799  #define _dc_646 " to an mp routine *** "
   800  #define _dc_647 " *** mxr should be at least"
   801  #define _dc_648 "*t +"
   802  #define _dc_649 " ="
   803  #define _dc_650 "  ***"
   804  #define _dc_651 " *** actually mxr ="
   805  #define _dc_652 ", and t ="
   806  #define _dc_653 " *** floating-point over/under-flow in mpcmd ***"
   807  #define _dc_654 " *** attempted division by zero in call to mpdivi ***"
   808  #define _dc_655 " *** integer overflow in mpdivi, b too large ***"
   809  #define _dc_656 "mperr"
   810  #define _dc_657 " *** execution terminated by call to mperr"
   811  #define _dc_658 " in mp version 770217 ***"
   812  #define _dc_659 " *** overflow occurred in mpmul2 ***"
   813  #define _dc_660 " *** integer overflow in mpmul2, b too large ***"
   814  #define _dc_661 " *** integer overflow in mpmul, b too large ***"
   815  #define _dc_662 " *** illegal base b digit in call to mpmul,"
   816  #define _dc_663 " *** sign not 0, +1 or -1 in call to mpnzr,"
   817  #define _dc_664 " *** overflow occurred in mpnzr ***"
   818  #define _dc_665 " *** call to mpovfl, mp overflow occurred ***"
   819  #define _dc_666 "orthol"
   820  #define _dc_667 "rank of matrix is less than the number of columns."
   821  #define _dc_668 "orthor"
   822  #define _dc_669 "pchngs"
   823  #define _dc_670 "ircx=0."
   824  #define _dc_671 "pinitm"
   825  #define _dc_672 "matrix dimension m or n .le. 0."
   826  #define _dc_673 "the value of lmx is too small."
   827  #define _dc_674 "pnnzrs"
   828  #define _dc_675 "polfit"
   829  #define _dc_676 "polint"
   830  #define _dc_677 "ppgq8"
   831  #define _dc_678 "prwpge"
   832  #define _dc_679 "pvalue"
   833  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00018
   834  
   835  #define _dc_680 ", computed by polfit -- execution terminated."
   836  #define _dc_681 "requested is negative -- execution terminated."
   837  #define _dc_682 "rc3jj"
   838  #define _dc_683 "dimension of result array for 3j "
   839  #define _dc_684 "rc3jm"
   840  #define _dc_685 "rc6j"
   841  #define _dc_686 "rc"
   842  #define _dc_687 "rd"
   843  #define _dc_688 "rf"
   844  #define _dc_689 "rpqr79"
   845  #define _dc_690 "sbocls"
   846  #define _dc_691 " must be .ge. the reqd. length = "
   847  #define _dc_692 " must be .ge. the reqd. len = "
   848  #define _dc_693 "sbols"
   849  #define _dc_694 "sbolsm"
   850  #define _dc_695 "sclosm"
   851  #define _dc_696 "in splp, close has error flag = "
   852  #define _dc_697 "scov"
   853  #define _dc_698 "sgeev"
   854  #define _dc_699 "sgefs"
   855  #define _dc_700 "sgeir"
   856  #define _dc_701 "snbfs"
   857  #define _dc_702 "snbir"
   858  #define _dc_703 "snls1e"
   859  #define _dc_704 "snls1"
   860  #define _dc_705 "snsqe"
   861  #define _dc_706 "snsq"
   862  #define _dc_707 "sopenm"
   863  #define _dc_708 "in splp, open has error flag = "
   864  #define _dc_709 "solution iterate"
   865  #define _dc_710 " ("
   866  #define _dc_711 "sos"
   867  #define _dc_712 "to use optional in put items by setting  iflag=-1. "
   868  #define _dc_713 "allowable number of iterations set to  iw(2) = "
   869  #define _dc_714 "must be at least   3 + neq.  you have called the code "
   870  #define _dc_715 "splpdm"
   871  #define _dc_716 "in splp, short on storage for la05as.  "
   872  #define _dc_717 "in splp, la05as returned error flag = "
   873  #define _dc_718 "splp"
   874  #define _dc_719 "splpmn"
   875  #define _dc_720 "in splp,  a singular initial basis was encountered."
   876  #define _dc_721 "in splp, an infeasible initial basis was encountered."
   877  #define _dc_722 "in splp, the problem appears to be infeasible"
   878  #define _dc_723 "in splp, the problem appears to have no finite solution."
   879  #define _dc_724 "in splp, the problem appears to be infeasible and to have "
   880  #define _dc_725 "no finite solution."
   881  #define _dc_726 "in splp, moved to a singular point.  this should not happen."
   882  #define _dc_727 "in splp, max iterations = "
   883  #define _dc_728 ".  if file no. = 0, no save."
   884  #define _dc_729 "splpmu"
   885  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00019
   886  
   887  #define _dc_730 "splpup"
   888  #define _dc_731 "in splp, independent variable = "
   889  #define _dc_732 "in splp, lower bound = "
   890  #define _dc_733 "in splp, dependent variable = "
   891  #define _dc_734 "in splp, more than 2*nvars*mrelas iterations defining "
   892  #define _dc_735 "in splp, row index = "
   893  #define _dc_736 "in splp, indication flag = "
   894  #define _dc_737 "in splp, a matrix element's size is out of the "
   895  #define _dc_738 "spofs"
   896  #define _dc_739 "spoir"
   897  #define _dc_740 "spopt"
   898  #define _dc_741 "in splp, the user option array has undefined data."
   899  #define _dc_742 "in splp, option array processing is cycling."
   900  #define _dc_743 "in splp, an index of user-supplied basis is out of range."
   901  #define _dc_744 "in splp, size parameters for matrix must be smallest and "
   902  #define _dc_745 "in splp, the number of revised simplex steps between "
   903  #define _dc_746 "in splp, file numbers for saved data and matrix pages "
   904  #define _dc_747 "spperm"
   905  #define _dc_748 "spsort"
   906  #define _dc_749 "sreadp"
   907  #define _dc_750 "in splp, lpg = "
   908  #define _dc_751 "ssiev"
   909  #define _dc_752 "ssort"
   910  #define _dc_753 "swritp"
   911  #define _dc_754 "in splp, lgp = "
   912  #define _dc_755 "u11ls"
   913  #define _dc_756 "u11us"
   914  #define _dc_757 "ulsia"
   915  #define _dc_758 "wnlsm"
   916  #define _dc_759 "wnnls, the option vector is undefined"
   917  #define _dc_760 "wnnls, the links in the option vector are cycling."
   918  #define _dc_761 "wnnls"
   919  #define _dc_762 "xadj"
   920  #define _dc_763 "xc210"
   921  
   922  
   923  
   924  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** TYPEDEFS                                         PAGE 00020
   925  
   926  static FORMAT *__fmt_a = NULL;
   927  typedef char char_3[4];
   928  typedef char char_7[8];
   929  typedef char char_15[16];
   930  typedef char char_31[32];
   931  typedef char char_63[64];
   932  typedef char char_127[128];
   933  typedef char char_255[256];
   934  typedef char char_511[512];
   935  typedef char char_1023[1024];
   936  typedef char char_2047[2048];
   937  typedef char char_4095[4096];
   938  
   939  
   940  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** FREQUENCY TABLE                                  PAGE 00021
   941  
   942  #define __ncalls 385
   943  static CALLS __calls[__ncalls] = {
   944  { // ** body not listed **"aaaaaa", 0}, // subroutine
   946  { // ** body not listed **"asyjy", 0}, // subroutine
   948  { // ** body not listed **"bcrh", 0}, // function
   950  { // ** body not listed **"bksol", 0}, // subroutine
   952  { // ** body not listed **"bndacc", 0}, // subroutine
   954  { // ** body not listed **"bsgq8", 0}, // subroutine
   956  { // ** body not listed **"bsplvn", 0}, // subroutine
   958  { // ** body not listed **"c1merg", 0}, // subroutine
   960  { // ** body not listed **"cblkt1", 0}, // subroutine
   962  { // ** body not listed **"cfod", 0}, // subroutine
   964  { // ** body not listed **"cgefs", 0}, // subroutine
   966  { // ** body not listed **"chiev", 0}, // subroutine
   968  { // ** body not listed **"chkprm", 0}, // subroutine
   970  { // ** body not listed **"chksng", 0}, // subroutine
   972  { // ** body not listed **"cmposd", 0}, // subroutine
   974  { // ** body not listed **"cmposp", 0}, // subroutine
   976  { // ** body not listed **"cmptrx", 0}, // subroutine
   978  { // ** body not listed **"cnbdi", 0}, // subroutine
   980  { // ** body not listed **"cnbfs", 0}, // subroutine
   982  { // ** body not listed **"cnbsl", 0}, // subroutine
   984  { // ** body not listed **"cosgen", 0}, // subroutine
   986  { // ** body not listed **"cpevl", 0}, // subroutine
   988  { // ** body not listed **"cpofs", 0}, // subroutine
   990  { // ** body not listed **"cpqr79", 0}, // subroutine
   994  { // ** body not listed **"cprocp", 0}, // subroutine
   996  { // ** body not listed **"cprodp", 0}, // subroutine
   998  { // ** body not listed **"crati", 0}, // subroutine
  1000  { // ** body not listed **"cscale", 0}, // subroutine
  1002  { // ** body not listed **"cuchk", 0}, // subroutine
  1004  { // ** body not listed **"cunik", 0}, // subroutine
  1006  { // ** body not listed **"d1merg", 0}, // subroutine
  1008  { // ** body not listed **"d1updt", 0}, // subroutine
  1010  { // ** body not listed **"davint", 0}, // subroutine
  1012  { // ** body not listed **"dbksol", 0}, // subroutine
  1014  { // ** body not listed **"dbndsl", 0}, // subroutine
  1016  { // ** body not listed **"dbols", 0}, // subroutine
  1018  { // ** body not listed **"dbsgq8", 0}, // subroutine
  1020  { // ** body not listed **"dckder", 0}, // subroutine
  1022  { // ** body not listed **"dcov", 0}, // subroutine
  1024  { // ** body not listed **"dcv", 0}, // real*8 function
  1026  { // ** body not listed **"ddoglg", 0}, // subroutine
  1028  { // ** body not listed **"defe4", 0}, // subroutine
  1030  { // ** body not listed **"defer", 0}, // subroutine
  1032  { // ** body not listed **"derkfs", 0}, // subroutine
  1034  { // ** body not listed **"dfcmn", 0}, // subroutine
  1036  { // ** body not listed **"dfdjc3", 0}, // subroutine
  1038  { // ** body not listed **"dfspvd", 0}, // subroutine
  1040  { // ** body not listed **"dfulmt", 0}, // subroutine
  1042  { // ** body not listed **"dgaus8", 0}, // subroutine
  1046  { // ** body not listed **"dglss", 0}, // subroutine
  1048  { // ** body not listed **"dhfti", 0}, // subroutine
  1050  { // ** body not listed **"dhvnrm", 0}, // real*8 function
  1052  { // ** body not listed **"dllsia", 0}, // subroutine
  1054  { // ** body not listed **"dlsei", 0}, // subroutine
  1056  { // ** body not listed **"dlssud", 0}, // subroutine
  1058  { // ** body not listed **"dmgsbv", 0}, // subroutine
  1060  { // ** body not listed **"dnbco", 0}, // subroutine
  1062  { // ** body not listed **"dnbfa", 0}, // subroutine
  1064  { // ** body not listed **"dnbsl", 0}, // subroutine
  1066  { // ** body not listed **"dnls1", 0}, // subroutine
  1068  { // ** body not listed **"dnsq", 0}, // subroutine
  1070  { // ** body not listed **"dorthr", 0}, // subroutine
  1072  { // ** body not listed **"dpchng", 0}, // subroutine
  1074  { // ** body not listed **"dpincw", 0}, // subroutine
  1076  { // ** body not listed **"dpintm", 0}, // subroutine
  1078  { // ** body not listed **"dplpce", 0}, // subroutine
  1080  { // ** body not listed **"dplpfe", 0}, // subroutine
  1082  { // ** body not listed **"dplpmn", 0}, // subroutine
  1084  { // ** body not listed **"dplpup", 0}, // subroutine
  1086  { // ** body not listed **"dpofs", 0}, // subroutine
  1088  { // ** body not listed **"dpolft", 0}, // subroutine
  1090  { // ** body not listed **"dpopt", 0}, // subroutine
  1092  { // ** body not listed **"dppgq8", 0}, // subroutine
  1094  { // ** body not listed **"dprwpg", 0}, // subroutine
  1098  { // ** body not listed **"dpsixn", 0}, // real*8 function
  1100  { // ** body not listed **"dqdota", 0}, // real*8 function
  1102  { // ** body not listed **"dqform", 0}, // subroutine
  1104  { // ** body not listed **"dqrslv", 0}, // subroutine
  1106  { // ** body not listed **"drc3jm", 0}, // subroutine
  1108  { // ** body not listed **"drc", 0}, // real*8 function
  1110  { // ** body not listed **"dreadp", 0}, // subroutine
  1112  { // ** body not listed **"drf", 0}, // real*8 function
  1114  { // ** body not listed **"drkfs", 0}, // subroutine
  1116  { // ** body not listed **"dsoseq", 0}, // subroutine
  1118  { // ** body not listed **"dsossl", 0}, // subroutine
  1120  { // ** body not listed **"dstor1", 0}, // subroutine
  1122  { // ** body not listed **"dsuds", 0}, // subroutine
  1124  { // ** body not listed **"du11us", 0}, // subroutine
  1126  { // ** body not listed **"du12us", 0}, // subroutine
  1128  { // ** body not listed **"dusrmt", 0}, // subroutine
  1130  { // ** body not listed **"dvnrms", 0}, // real*8 function
  1132  { // ** body not listed **"dwnlsm", 0}, // subroutine
  1134  { // ** body not listed **"dwnlt2", 0}, // logical*4 function
  1136  { // ** body not listed **"dwnnls", 0}, // subroutine
  1138  { // ** body not listed **"dwupdt", 0}, // subroutine
  1140  { // ** body not listed **"dxadj", 0}, // subroutine
  1142  { // ** body not listed **"dx", 0}, // subroutine
  1144  { // ** body not listed **"dxred", 0}, // subroutine
  1146  { // ** body not listed **"dyairy", 0}, // subroutine
  1150  { // ** body not listed **"efcmn", 0}, // subroutine
  1152  { // ** body not listed **"fdjac3", 0}, // subroutine
  1154  { // ** body not listed **"fftdoc", 0}, // subroutine
  1156  { // ** body not listed **"fzero", 0}, // subroutine
  1158  { // ** body not listed **"gaus8", 0}, // subroutine
  1160  { // ** body not listed **"hfti", 0}, // subroutine
  1162  { // ** body not listed **"hpperm", 0}, // subroutine
  1164  { // ** body not listed **"hstart", 0}, // subroutine
  1166  { // ** body not listed **"hvnrm", 0}, // function
  1168  { // ** body not listed **"hwsss1", 0}, // subroutine
  1170  { // ** body not listed **"idloc", 0}, // integer*4 function
  1172  { // ** body not listed **"indxb", 0}, // subroutine
  1174  { // ** body not listed **"inxca", 0}, // subroutine
  1176  { // ** body not listed **"inxcc", 0}, // subroutine
  1178  { // ** body not listed **"ipperm", 0}, // subroutine
  1180  { // ** body not listed **"isort", 0}, // subroutine
  1182  { // ** body not listed **"llsia", 0}, // subroutine
  1184  { // ** body not listed **"lsei", 0}, // subroutine
  1186  { // ** body not listed **"lssods", 0}, // subroutine
  1188  { // ** body not listed **"macon", 0}, // subroutine
  1190  { // ** body not listed **"minso4", 0}, // subroutine
  1192  { // ** body not listed **"mpadd2", 0}, // subroutine
  1194  { // ** body not listed **"mpadd", 0}, // subroutine
  1196  { // ** body not listed **"mpcdm", 0}, // subroutine
  1198  { // ** body not listed **"mpcmd", 0}, // subroutine
  1202  { // ** body not listed **"mperr", 0}, // subroutine
  1204  { // ** body not listed **"mpmlp", 0}, // subroutine
  1206  { // ** body not listed **"mpmul", 0}, // subroutine
  1208  { // ** body not listed **"mpnzr", 0}, // subroutine
  1210  { // ** body not listed **"mpstr", 0}, // subroutine
  1212  { // ** body not listed **"numxer", 0}, // function
  1214  { // ** body not listed **"ohtror", 0}, // subroutine
  1216  { // ** body not listed **"orthog", 0}, // subroutine
  1218  { // ** body not listed **"orthor", 0}, // subroutine
  1220  { // ** body not listed **"pcoef", 0}, // subroutine
  1222  { // ** body not listed **"pimach", 0}, // function
  1224  { // ** body not listed **"pnnzrs", 0}, // subroutine
  1226  { // ** body not listed **"poisn2", 0}, // subroutine
  1228  { // ** body not listed **"polcof", 0}, // subroutine
  1230  { // ** body not listed **"polint", 0}, // subroutine
  1232  { // ** body not listed **"pos3d1", 0}, // subroutine
  1234  { // ** body not listed **"ppadd", 0}, // subroutine
  1236  { // ** body not listed **"ppgsf", 0}, // function
  1238  { // ** body not listed **"ppsgf", 0}, // function
  1240  { // ** body not listed **"proc", 0}, // subroutine
  1242  { // ** body not listed **"prod", 0}, // subroutine
  1244  { // ** body not listed **"prvec", 0}, // function
  1246  { // ** body not listed **"prwvir", 0}, // subroutine
  1248  { // ** body not listed **"psifn", 0}, // subroutine
  1250  { // ** body not listed **"pvalue", 0}, // subroutine
  1254  { // ** body not listed **"rc3jj", 0}, // subroutine
  1256  { // ** body not listed **"rc6j", 0}, // subroutine
  1258  { // ** body not listed **"rd", 0}, // real*4 function
  1260  { // ** body not listed **"rf", 0}, // real*4 function
  1262  { // ** body not listed **"rpqr79", 0}, // subroutine
  1264  { // ** body not listed **"s1merg", 0}, // subroutine
  1266  { // ** body not listed **"sbols", 0}, // subroutine
  1268  { // ** body not listed **"sclosm", 0}, // subroutine
  1270  { // ** body not listed **"scov", 0}, // subroutine
  1272  { // ** body not listed **"sgefs", 0}, // subroutine
  1274  { // ** body not listed **"sglss", 0}, // subroutine
  1276  { // ** body not listed **"snbdi", 0}, // subroutine
  1278  { // ** body not listed **"snbfs", 0}, // subroutine
  1280  { // ** body not listed **"snbsl", 0}, // subroutine
  1282  { // ** body not listed **"snls1", 0}, // subroutine
  1284  { // ** body not listed **"snsq", 0}, // subroutine
  1286  { // ** body not listed **"sopenm", 0}, // subroutine
  1288  { // ** body not listed **"sos", 0}, // subroutine
  1290  { // ** body not listed **"speli4", 0}, // subroutine
  1292  { // ** body not listed **"spincw", 0}, // subroutine
  1294  { // ** body not listed **"splpce", 0}, // subroutine
  1296  { // ** body not listed **"splp", 0}, // subroutine
  1298  { // ** body not listed **"splpfl", 0}, // subroutine
  1300  { // ** body not listed **"splpmu", 0}, // subroutine
  1302  { // ** body not listed **"spofs", 0}, // subroutine
  1306  { // ** body not listed **"spopt", 0}, // subroutine
  1308  { // ** body not listed **"spsort", 0}, // subroutine
  1310  { // ** body not listed **"ssiev", 0}, // subroutine
  1312  { // ** body not listed **"stor1", 0}, // subroutine
  1314  { // ** body not listed **"suds", 0}, // subroutine
  1316  { // ** body not listed **"swritp", 0}, // subroutine
  1318  { // ** body not listed **"tevls", 0}, // subroutine
  1320  { // ** body not listed **"tridq", 0}, // subroutine
  1322  { // ** body not listed **"trisp", 0}, // subroutine
  1324  { // ** body not listed **"u11ls", 0}, // subroutine
  1326  { // ** body not listed **"u12ls", 0}, // subroutine
  1328  { // ** body not listed **"ulsia", 0}, // subroutine
  1330  { // ** body not listed **"vnwrms", 0}, // real*4 function
  1332  { // ** body not listed **"wnlsm", 0}, // subroutine
  1334  { // ** body not listed **"wnlt2", 0}, // logical*4 function
  1336  { // ** body not listed **"wnnls", 0}, // subroutine
  1338  { // ** body not listed **"xc210", 0}, // subroutine
  1340  { // ** body not listed **"xred", 0}, // subroutine
  1342  { // ** body not listed **NULL, 0}
  1343  };
  1354  } ccblk_;
  1355  
  1356  // common /cblkt_/
  1357  static struct {
  1358    int_4 npp_, k_, nm_, ncmplx_, ik_;
  1359    real_4 eps_, cnv_, machep_;
  1360  } cblkt_;
  1361  
  1362  // common /spl4_/
  1363  static struct {
  1364    int_4 kswx_, kswy_, k_, l_, mit_, nit_, is_, ms_, js_, ns_;
  1365    real_4 ait_, bit_, cit_, dit_, dlx_, dly_, tdlx3_, tdly3_, dlx4_, dly4_;
  1366  } spl4_;
  1367  
  1368  // common /splpcm_/
  1369  static struct {
  1370    int_4 kswx_, kswy_, k_, l_, mit_, nit_, is_, ms_, js_, ns_;
  1371    real_4 ait_, bit_, cit_, dit_, dlx_, dly_, tdlx3_, tdly3_, dlx4_, dly4_;
  1372  } splpcm_;
  1373  
  1374  // common /dml5mc_/
  1375  static struct {
  1376    int_4 lpar_;
  1377    real_8 eps_, fouru_, sqovfl_, sru_, twou_, uro_;
  1378  } dml5mc_;
  1379  
  1380  // common /dml18j_/
  1381  static struct {
  1382    int_4 icoco_, indpvt_, integ_, mxnon_, ndisk_, neq_, neqivp_, nfcc_, nic_, nopg_, nps_, ntape_, ntp_, numort_, nxpts_, 
  1383    lnfcc_;
  1384    real_8 ae_, re_, tol_;
  1385  } dml18j_;
  1386  
  1387  // common /la05dd_/
  1388  static struct {
  1389    int_4 lp_, lenl_, lenu_, ncp_, lrow_, lcol_;
  1390    real_8 small_;
  1391  } la05dd_;
  1392  
  1393  // common /mpcom_/
  1394  static struct {
  1395    int_4 mpb_, mpt_, mpm_, mplun_, mpmxr_, mpr_[30], b_, t_, m_, lun_, mxr_, r_[30];
  1396  } mpcom_;
  1397  
  1398  // common /dml8sz_/
  1399  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** COMMON BLOCKS                                    PAGE 00030
  1400  
  1401  static struct {
  1402    int_4 igofx_, inhomo_, ivp_, ncompd_, nfc_, ncomp_;
  1403    real_8 c_, xsav_;
  1404  } dml8sz_;
  1405  
  1406  // common /dml15t_/
  1407  static struct {
  1408    int_4 info_[15], istkop_, knswot_, kop_, lotjp_, mnswot_, nswot_;
  1409    real_8 pwcnd_, px_, tnd_, x_, xbeg_, xend_, xop_, xot_;
  1410  } dml15t_;
  1411  
  1412  // common /dxblk2_/
  1413  static struct {
  1414    int_4 l_, l2_, kmax_;
  1415    real_8 radix_, radixl_, rad2l_, dlg10r_;
  1416  } dxblk2_;
  1417  
  1418  // common /dxblk3_/
  1419  static struct {
  1420    int_4 nlg102_, mlg102_, lg102_[21];
  1421  } dxblk3_;
  1422  
  1423  // common /ml5mco_/
  1424  static struct {
  1425    int_4 lpar_;
  1426    real_4 uro_, sru_, eps_, sqovfl_, twou_, fouru_;
  1427  } ml5mco_;
  1428  
  1429  // common /ml18jr_/
  1430  static struct {
  1431    int_4 nxpts_, nic_, nopg_, mxnon_, ndisk_, ntape_, neq_, indpvt_, integ_, nps_, ntp_, neqivp_, numort_, nfcc_, icoco_, 
  1432    lnfcc_;
  1433    real_4 ae_, re_, tol_;
  1434  } ml18jr_;
  1435  
  1436  // common /ml8sz_/
  1437  static struct {
  1438    int_4 igofx_, inhomo_, ivp_, ncompd_, nfc_, ncomp_;
  1439    real_4 c_, xsav_;
  1440  } ml8sz_;
  1441  
  1442  // common /ml15to_/
  1443  static struct {
  1444    int_4 info_[15], istkop_, knswot_, kop_, lotjp_, mnswot_, nswot_;
  1445    real_4 px_, pwcnd_, tnd_, x_, xbeg_, xend_, xot_, xop_;
  1446  } ml15to_;
  1447  
  1448  // common /la05ds_/
  1449  static struct {
  1450    int_4 lp_, lenl_, lenu_, ncp_, lrow_, lcol_;
  1451  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** COMMON BLOCKS                                    PAGE 00031
  1452  
  1453    real_4 small_;
  1454  } la05ds_;
  1455  
  1456  // common /xblk2_/
  1457  static struct {
  1458    int_4 l_, l2_, kmax_;
  1459    real_4 radix_, radixl_, rad2l_, dlg10r_;
  1460  } xblk2_;
  1461  
  1462  // common /xblk3_/
  1463  static struct {
  1464    int_4 nlg102_, mlg102_, lg102_[21];
  1465  } xblk3_;
  1466  
  1467  
  1468  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00032
  1469  
  1470  
  1471  prototype int_4 _aaaaaa (char _p_ ver_);
  1472  prototype int_4 _asyik (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ kode_, real_4 _p_ flgik_, real_4 _p_ ra_, real_4 _p_ 
  1473  arg_, int_4 _p_ in_, real_4 _p_ y_);
  1474  prototype int_4 _asyjy (int_4 (*_funjy)(), real_4 _p_ x_, real_4 _p_ fnu_, real_4 _p_ flgjy_, int_4 _p_ in_, real_4 _p_ 
  1475  y_, real_4 _p_ wk_, int_4 _p_ iflw_);
  1476  prototype int_4 _avint (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ n_, real_4 _p_ xlo_, real_4 _p_ xup_, real_4 _p_ ans_, 
  1477  int_4 _p_ ierr_);
  1478  prototype real_4 _bcrh (real_4 _p_ xll_, real_4 _p_ xrr_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_, 
  1479  real_4 (*_f)(), real_4 _p_ sgn_);
  1480  prototype int_4 _bdiff (int_4 _p_ l_, real_4 _p_ v_);
  1481  prototype int_4 _bksol (int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ x_);
  1482  prototype int_4 _blktr1 (int_4 _p_ n_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, int_4 _p_ m_, real_4 _p_ am_, 
  1483  real_4 _p_ bm_, real_4 _p_ cm_, int_4 _p_ idimy_, real_4 _p_ y_, real_4 _p_ b_, real_4 _p_ w1_, real_4 _p_ w2_, real_4 
  1484  _p_ w3_, real_4 _p_ wd_, real_4 _p_ ww_, real_4 _p_ wu_, int_4 (*_prdct)(), int_4 (*_cprdct)());
  1485  prototype int_4 _bndacc (real_4 _p_ g_, int_4 _p_ mdg_, int_4 _p_ nb_, int_4 _p_ ip_, int_4 _p_ ir_, int_4 _p_ mt_, 
  1486  int_4 _p_ jt_);
  1487  prototype int_4 _bndsol (int_4 _p_ mode_, real_4 _p_ g_, int_4 _p_ mdg_, int_4 _p_ nb_, int_4 _p_ ip_, int_4 _p_ ir_, 
  1488  real_4 _p_ x_, int_4 _p_ n_, real_4 _p_ rnorm_);
  1489  prototype int_4 _bsgq8 (real_4 (*_fun)(), real_4 _p_ xt_, real_4 _p_ bc_, int_4 _p_ n_, int_4 _p_ kk_, int_4 _p_ id_, 
  1490  real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ inbv_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ ierr_, real_4 _p_ work_);
  1491  prototype int_4 _bsplvd (real_4 _p_ t_, int_4 _p_ k_, real_4 _p_ x_, int_4 _p_ ileft_, real_4 _p_ vnikx_, int_4 _p_ 
  1492  nderiv_);
  1493  prototype int_4 _bsplvn (real_4 _p_ t_, int_4 _p_ jhigh_, int_4 _p_ index_, real_4 _p_ x_, int_4 _p_ ileft_, real_4 _p_ 
  1494  vnikx_);
  1495  prototype real_4 _bsrh (real_4 _p_ xll_, real_4 _p_ xrr_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_, 
  1496  real_4 (*_f)(), real_4 _p_ sgn_);
  1497  prototype int_4 _c1merg (complex_8 _p_ tcos_, int_4 _p_ i1_, int_4 _p_ m1_, int_4 _p_ i2_, int_4 _p_ m2_, int_4 _p_ i3_
  1498  );
  1499  prototype int_4 _casyi (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ 
  1500  nz_, real_4 _p_ rl_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
  1501  prototype int_4 _cblkt1 (int_4 _p_ n_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, int_4 _p_ m_, complex_8 _p_ am_, 
  1502  complex_8 _p_ bm_, complex_8 _p_ cm_, int_4 _p_ idimy_, complex_8 _p_ y_, real_4 _p_ b_, complex_8 _p_ w1_, complex_8 
  1503  _p_ w2_, complex_8 _p_ w3_, complex_8 _p_ wd_, complex_8 _p_ ww_, complex_8 _p_ wu_, int_4 (*_prdct)(), int_4 
  1504  (*_cprdct)());
  1505  prototype int_4 _ccmpb (int_4 _p_ n_, int_4 _p_ ierror_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ b_, 
  1506  real_4 _p_ ah_, real_4 _p_ bh_);
  1507  prototype int_4 _cfod (int_4 _p_ meth_, real_4 _p_ elco_, real_4 _p_ tesco_);
  1508  prototype int_4 _cgeev (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ v_, int_4 _p_ ldv_, 
  1509  real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ info_);
  1510  prototype int_4 _cgefs (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ 
  1511  ind_, complex_8 _p_ work_, int_4 _p_ iwork_);
  1512  prototype int_4 _cgeir (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ 
  1513  ind_, complex_8 _p_ work_, int_4 _p_ iwork_);
  1514  prototype int_4 _chiev (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ v_, int_4 _p_ ldv_, 
  1515  real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ info_);
  1516  prototype int_4 _chkpr4 (int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ 
  1517  c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, int_4 (*_cofx)(), int_4 _p_ idmn_, int_4 _p_ ierror_);
  1518  prototype int_4 _chkprm (int_4 _p_ intl_, int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ 
  1519  mbdcnd_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, int_4 (*_cofx)(), int_4 (*_cofy)(), int_4 _p_ 
  1520  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00033
  1521  
  1522  idmn_, int_4 _p_ ierror_);
  1523  prototype int_4 _chksn4 (int_4 _p_ mbdcnd_, int_4 _p_ nbdcnd_, real_4 _p_ alpha_, real_4 _p_ beta_, int_4 (*_cofx)(), 
  1524  logical_4 _p_ singlr_);
  1525  prototype int_4 _chksng (int_4 _p_ mbdcnd_, int_4 _p_ nbdcnd_, real_4 _p_ alpha_, real_4 _p_ beta_, real_4 _p_ gama_, 
  1526  real_4 _p_ xnu_, int_4 (*_cofx)(), int_4 (*_cofy)(), logical_4 _p_ singlr_);
  1527  prototype int_4 _cmpcsg (int_4 _p_ n_, int_4 _p_ ijump_, real_4 _p_ fnum_, real_4 _p_ fden_, complex_8 _p_ a_);
  1528  prototype int_4 _cmposd (int_4 _p_ mr_, int_4 _p_ nr_, int_4 _p_ istag_, complex_8 _p_ ba_, complex_8 _p_ bb_, 
  1529  complex_8 _p_ bc_, complex_8 _p_ q_, int_4 _p_ idimq_, complex_8 _p_ b_, complex_8 _p_ w_, complex_8 _p_ d_, complex_8 
  1530  _p_ tcos_, complex_8 _p_ p_);
  1531  prototype int_4 _cmposn (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ istag_, int_4 _p_ mixbnd_, complex_8 _p_ a_, complex_8 
  1532  _p_ bb_, complex_8 _p_ c_, complex_8 _p_ q_, int_4 _p_ idimq_, complex_8 _p_ b_, complex_8 _p_ b2_, complex_8 _p_ b3_, 
  1533  complex_8 _p_ w_, complex_8 _p_ w2_, complex_8 _p_ w3_, complex_8 _p_ d_, complex_8 _p_ tcos_, complex_8 _p_ p_);
  1534  prototype int_4 _cmposp (int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, complex_8 _p_ bb_, complex_8 _p_ c_, complex_8 
  1535  _p_ q_, int_4 _p_ idimq_, complex_8 _p_ b_, complex_8 _p_ b2_, complex_8 _p_ b3_, complex_8 _p_ w_, complex_8 _p_ w2_, 
  1536  complex_8 _p_ w3_, complex_8 _p_ d_, complex_8 _p_ tcos_, complex_8 _p_ p_);
  1537  prototype int_4 _cmptr3 (int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, complex_8 _p_ c_, int_4 _p_ k_, complex_8 
  1538  _p_ y1_, complex_8 _p_ y2_, complex_8 _p_ y3_, complex_8 _p_ tcos_, complex_8 _p_ d_, complex_8 _p_ w1_, complex_8 _p_ 
  1539  w2_, complex_8 _p_ w3_);
  1540  prototype int_4 _cmptrx (int_4 _p_ idegbr_, int_4 _p_ idegcr_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, 
  1541  complex_8 _p_ c_, complex_8 _p_ y_, complex_8 _p_ tcos_, complex_8 _p_ d_, complex_8 _p_ w_);
  1542  prototype int_4 _cnbco (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_
  1543  , real_4 _p_ rcond_, complex_8 _p_ z_);
  1544  prototype int_4 _cnbdi (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_
  1545  , complex_8 _p_ det_);
  1546  prototype int_4 _cnbfa (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_
  1547  , int_4 _p_ info_);
  1548  prototype int_4 _cnbfs (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, complex_8 _p_ 
  1549  v_, int_4 _p_ itask_, int_4 _p_ ind_, complex_8 _p_ work_, int_4 _p_ iwork_);
  1550  prototype int_4 _cnbir (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, complex_8 _p_ 
  1551  v_, int_4 _p_ itask_, int_4 _p_ ind_, complex_8 _p_ work_, int_4 _p_ iwork_);
  1552  prototype int_4 _cnbsl (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_
  1553  , complex_8 _p_ b_, int_4 _p_ job_);
  1554  prototype int_4 _compb (int_4 _p_ n_, int_4 _p_ ierror_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ b_, 
  1555  real_4 _p_ ah_, real_4 _p_ bh_);
  1556  prototype int_4 _cosgen (int_4 _p_ n_, int_4 _p_ ijump_, real_4 _p_ fnum_, real_4 _p_ fden_, real_4 _p_ a_);
  1557  prototype int_4 _cpadd (int_4 _p_ n_, int_4 _p_ ierror_, real_4 _p_ a_, real_4 _p_ c_, complex_8 _p_ cbp_, real_4 _p_ 
  1558  bp_, real_4 _p_ bh_);
  1559  prototype int_4 _cpevl (int_4 _p_ n_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ z_, complex_8 _p_ c_, complex_8 _p_ 
  1560  b_, logical_4 _p_ kbd_);
  1561  prototype int_4 _cpevlr (int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ c_);
  1562  prototype int_4 _cpofs (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ 
  1563  ind_, complex_8 _p_ work_);
  1564  prototype int_4 _cpoir (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ 
  1565  ind_, complex_8 _p_ work_);
  1566  prototype int_4 _cpqr79 (int_4 _p_ ndeg_, complex_8 _p_ coeff_, complex_8 _p_ root_, int_4 _p_ ierr_, real_4 _p_ work_)
  1567  ;
  1568  prototype int_4 _cproc (int_4 _p_ nd_, complex_8 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ 
  1569  bm2_, int_4 _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ 
  1570  b_, complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ w_, real_4 _p_ yy_);
  1571  prototype int_4 _cprocp (int_4 _p_ nd_, complex_8 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ 
  1572  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00034
  1573  
  1574  bm2_, int_4 _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ 
  1575  b_, complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ u_, real_4 _p_ yy_);
  1576  prototype int_4 _cprod (int_4 _p_ nd_, complex_8 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ 
  1577  bm2_, int_4 _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ yy_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 
  1578  _p_ c_, complex_8 _p_ d_, complex_8 _p_ w_, complex_8 _p_ y_);
  1579  prototype int_4 _cprodp (int_4 _p_ nd_, complex_8 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ 
  1580  bm2_, int_4 _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ yy_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 
  1581  _p_ c_, complex_8 _p_ d_, complex_8 _p_ u_, complex_8 _p_ y_);
  1582  prototype int_4 _cpzero (int_4 _p_ in_, complex_8 _p_ a_, complex_8 _p_ r_, complex_8 _p_ t_, int_4 _p_ iflg_, real_4 
  1583  _p_ s_);
  1584  prototype int_4 _crati (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ n_, complex_8 _p_ cy_, real_4 _p_ tol_);
  1585  prototype int_4 _cs1s2 (complex_8 _p_ zr_, complex_8 _p_ s1_, complex_8 _p_ s2_, int_4 _p_ nz_, real_4 _p_ ascle_, 
  1586  real_4 _p_ alim_, int_4 _p_ iuf_);
  1587  prototype int_4 _cscale (real_4 _p_ a_, int_4 _p_ nrda_, int_4 _p_ nrow_, int_4 _p_ ncol_, real_4 _p_ cols_, real_4 _p_ 
  1588  colsav_, real_4 _p_ rows_, real_4 _p_ rowsav_, real_4 _p_ anorm_, real_4 _p_ scales_, int_4 _p_ iscale_, int_4 _p_ ic_)
  1589  ;
  1590  prototype int_4 _cshch (complex_8 _p_ z_, complex_8 _p_ csh_, complex_8 _p_ cch_);
  1591  prototype int_4 _cuchk (complex_8 _p_ y_, int_4 _p_ nz_, real_4 _p_ ascle_, real_4 _p_ tol_);
  1592  prototype int_4 _cunhj (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ ipmtr_, real_4 _p_ tol_, complex_8 _p_ phi_, 
  1593  complex_8 _p_ arg_, complex_8 _p_ zeta1_, complex_8 _p_ zeta2_, complex_8 _p_ asum_, complex_8 _p_ bsum_);
  1594  prototype int_4 _cunik (complex_8 _p_ zr_, real_4 _p_ fnu_, int_4 _p_ ikflg_, int_4 _p_ ipmtr_, real_4 _p_ tol_, int_4 
  1595  _p_ init_, complex_8 _p_ phi_, complex_8 _p_ zeta1_, complex_8 _p_ zeta2_, complex_8 _p_ sum_, complex_8 _p_ cwrk_);
  1596  prototype real_4 _cv (real_4 _p_ xval_, int_4 _p_ ndata_, int_4 _p_ nconst_, int_4 _p_ nord_, int_4 _p_ nbkpt_, real_4 
  1597  _p_ bkpt_, real_4 _p_ w_);
  1598  prototype int_4 _d1merg (real_8 _p_ tcos_, int_4 _p_ i1_, int_4 _p_ m1_, int_4 _p_ i2_, int_4 _p_ m2_, int_4 _p_ i3_);
  1599  prototype int_4 _d1mpyq (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ v_, real_8 _p_ w_);
  1600  prototype int_4 _d1updt (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ s_, int_4 _p_ ls_, real_8 _p_ u_, real_8 _p_ v_, real_8 
  1601  _p_ w_, logical_4 _p_ sing_);
  1602  prototype int_4 _dasyik (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ kode_, real_8 _p_ flgik_, real_8 _p_ ra_, real_8 _p_ 
  1603  arg_, int_4 _p_ in_, real_8 _p_ y_);
  1604  prototype int_4 _davint (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ n_, real_8 _p_ xlo_, real_8 _p_ xup_, real_8 _p_ ans_, 
  1605  int_4 _p_ ierr_);
  1606  prototype int_4 _dbdiff (int_4 _p_ l_, real_8 _p_ v_);
  1607  prototype int_4 _dbksol (int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ x_);
  1608  prototype int_4 _dbndac (real_8 _p_ g_, int_4 _p_ mdg_, int_4 _p_ nb_, int_4 _p_ ip_, int_4 _p_ ir_, int_4 _p_ mt_, 
  1609  int_4 _p_ jt_);
  1610  prototype int_4 _dbndsl (int_4 _p_ mode_, real_8 _p_ g_, int_4 _p_ mdg_, int_4 _p_ nb_, int_4 _p_ ip_, int_4 _p_ ir_, 
  1611  real_8 _p_ x_, int_4 _p_ n_, real_8 _p_ rnorm_);
  1612  prototype int_4 _dbocls (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mcon_, int_4 _p_ mrows_, int_4 _p_ ncols_, real_8 _p_ 
  1613  bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_8 _p_ x_, real_8 _p_ rnormc_, real_8 _p_ rnorm_, int_4 _p_ 
  1614  mode_, real_8 _p_ rw_, int_4 _p_ iw_);
  1615  prototype int_4 _dbols (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mrows_, int_4 _p_ ncols_, real_8 _p_ bl_, real_8 _p_ 
  1616  bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, real_8 _p_ rw_, int_4 _p_ iw_)
  1617  ;
  1618  prototype int_4 _dbolsm (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ minput_, int_4 _p_ ncols_, real_8 _p_ bl_, real_8 _p_ 
  1619  bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, real_8 _p_ rw_, real_8 _p_ ww_
  1620  , real_8 _p_ scl_, int_4 _p_ ibasis_, int_4 _p_ ibb_);
  1621  prototype int_4 _dbsgq8 (real_8 (*_fun)(), real_8 _p_ xt_, real_8 _p_ bc_, int_4 _p_ n_, int_4 _p_ kk_, int_4 _p_ id_, 
  1622  real_8 _p_ a_, real_8 _p_ b_, int_4 _p_ inbv_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ ierr_, real_8 _p_ work_);
  1623  prototype int_4 _dcfod (int_4 _p_ meth_, real_8 _p_ elco_, real_8 _p_ tesco_);
  1624  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00035
  1625  
  1626  prototype int_4 _dckder (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ fjac_, int_4 _p_ 
  1627  ldfjac_, real_8 _p_ xp_, real_8 _p_ fvecp_, int_4 _p_ mode_, real_8 _p_ err_);
  1628  prototype int_4 _dcoef (real_8 _p_ yh_, real_8 _p_ yp_, int_4 _p_ ncomp_, int_4 _p_ nrowb_, int_4 _p_ nfc_, int_4 _p_ 
  1629  nic_, real_8 _p_ b_, real_8 _p_ beta_, real_8 _p_ coef_, int_4 _p_ inhomo_, real_8 _p_ re_, real_8 _p_ ae_, real_8 _p_ 
  1630  by_, real_8 _p_ cvec_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ iflag_, int_4 _p_ nfcc_);
  1631  prototype int_4 _dcov (int_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, 
  1632  real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ info_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_);
  1633  prototype int_4 _dcscal (real_8 _p_ a_, int_4 _p_ nrda_, int_4 _p_ nrow_, int_4 _p_ ncol_, real_8 _p_ cols_, real_8 _p_ 
  1634  colsav_, real_8 _p_ rows_, real_8 _p_ rowsav_, real_8 _p_ anorm_, real_8 _p_ scales_, int_4 _p_ iscale_, int_4 _p_ ic_)
  1635  ;
  1636  prototype real_8 _dcv (real_8 _p_ xval_, int_4 _p_ ndata_, int_4 _p_ nconst_, int_4 _p_ nord_, int_4 _p_ nbkpt_, real_8 
  1637  _p_ bkpt_, real_8 _p_ w_);
  1638  prototype int_4 _ddes (int_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ tout_, int_4 _p_ info_, 
  1639  real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ idid_, real_8 _p_ ypout_, real_8 _p_ yp_, real_8 _p_ yy_, real_8 _p_ wt_, 
  1640  real_8 _p_ p_, real_8 _p_ phi_, real_8 _p_ alpha_, real_8 _p_ beta_, real_8 _p_ psi_, real_8 _p_ v_, real_8 _p_ w_, 
  1641  real_8 _p_ sig_, real_8 _p_ g_, real_8 _p_ gi_, real_8 _p_ h_, real_8 _p_ eps_, real_8 _p_ x_, real_8 _p_ xold_, real_8 
  1642  _p_ hold_, real_8 _p_ told_, real_8 _p_ delsgn_, real_8 _p_ tstop_, real_8 _p_ twou_, real_8 _p_ fouru_, logical_4 _p_ 
  1643  start_, logical_4 _p_ phase1_, logical_4 _p_ nornd_, logical_4 _p_ stiff_, logical_4 _p_ intout_, int_4 _p_ ns_, int_4 
  1644  _p_ kord_, int_4 _p_ kold_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kle4_, int_4 _p_ iquit_, int_4 _p_ kprev_, 
  1645  int_4 _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_8 _p_ rpar_, int_4 _p_ ipar_);
  1646  prototype int_4 _ddoglg (int_4 _p_ n_, real_8 _p_ r_, int_4 _p_ lr_, real_8 _p_ diag_, real_8 _p_ qtb_, real_8 _p_ 
  1647  delta_, real_8 _p_ x_, real_8 _p_ wa1_, real_8 _p_ wa2_);
  1648  prototype int_4 _defcmn (int_4 _p_ ndata_, real_8 _p_ xdata_, real_8 _p_ ydata_, real_8 _p_ sddata_, int_4 _p_ nord_, 
  1649  int_4 _p_ nbkpt_, real_8 _p_ bkptin_, int_4 _p_ mdein_, int_4 _p_ mdeout_, real_8 _p_ coeff_, real_8 _p_ bf_, real_8 
  1650  _p_ xtemp_, real_8 _p_ ptemp_, real_8 _p_ bkpt_, real_8 _p_ g_, int_4 _p_ mdg_, real_8 _p_ w_, int_4 _p_ mdw_, int_4 
  1651  _p_ lw_);
  1652  prototype int_4 _defe4 (int_4 (*_cofx)(), int_4 _p_ idmn_, real_4 _p_ usol_, real_4 _p_ grhs_);
  1653  prototype int_4 _defehl (int_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ t_, real_4 _p_ y_, real_4 _p_ h_, real_4 _p_ yp_, 
  1654  real_4 _p_ f1_, real_4 _p_ f2_, real_4 _p_ f3_, real_4 _p_ f4_, real_4 _p_ f5_, real_4 _p_ ys_, real_4 _p_ rpar_, int_4 
  1655  _p_ ipar_);
  1656  prototype int_4 _defer (int_4 (*_cofx)(), int_4 (*_cofy)(), int_4 _p_ idmn_, real_4 _p_ usol_, real_4 _p_ grhs_);
  1657  prototype real_8 _denorm (int_4 _p_ n_, real_8 _p_ x_);
  1658  prototype int_4 _derkfs (int_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ t_, real_4 _p_ y_, real_4 _p_ tout_, int_4 _p_ info_
  1659  , real_4 _p_ rtol_, real_4 _p_ atol_, int_4 _p_ idid_, real_4 _p_ h_, real_4 _p_ tolfac_, real_4 _p_ yp_, real_4 _p_ 
  1660  f1_, real_4 _p_ f2_, real_4 _p_ f3_, real_4 _p_ f4_, real_4 _p_ f5_, real_4 _p_ ys_, real_4 _p_ told_, real_4 _p_ 
  1661  dtsign_, real_4 _p_ u26_, real_4 _p_ rer_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kop_, int_4 _p_ iquit_, 
  1662  logical_4 _p_ stiff_, logical_4 _p_ nonstf_, int_4 _p_ ntstep_, int_4 _p_ nstifs_, real_4 _p_ rpar_, int_4 _p_ ipar_);
  1663  prototype int_4 _des (int_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ t_, real_4 _p_ y_, real_4 _p_ tout_, int_4 _p_ info_, 
  1664  real_4 _p_ rtol_, real_4 _p_ atol_, int_4 _p_ idid_, real_4 _p_ ypout_, real_4 _p_ yp_, real_4 _p_ yy_, real_4 _p_ wt_, 
  1665  real_4 _p_ p_, real_4 _p_ phi_, real_4 _p_ alpha_, real_4 _p_ beta_, real_4 _p_ psi_, real_4 _p_ v_, real_4 _p_ w_, 
  1666  real_4 _p_ sig_, real_4 _p_ g_, real_4 _p_ gi_, real_4 _p_ h_, real_4 _p_ eps_, real_4 _p_ x_, real_4 _p_ xold_, real_4 
  1667  _p_ hold_, real_4 _p_ told_, real_4 _p_ delsgn_, real_4 _p_ tstop_, real_4 _p_ twou_, real_4 _p_ fouru_, logical_4 _p_ 
  1668  start_, logical_4 _p_ phase1_, logical_4 _p_ nornd_, logical_4 _p_ stiff_, logical_4 _p_ intout_, int_4 _p_ ns_, int_4 
  1669  _p_ kord_, int_4 _p_ kold_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kle4_, int_4 _p_ iquit_, int_4 _p_ kprev_, 
  1670  int_4 _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_4 _p_ rpar_, int_4 _p_ ipar_);
  1671  prototype int_4 _dfcmn (int_4 _p_ ndata_, real_8 _p_ xdata_, real_8 _p_ ydata_, real_8 _p_ sddata_, int_4 _p_ nord_, 
  1672  int_4 _p_ nbkpt_, real_8 _p_ bkptin_, int_4 _p_ nconst_, real_8 _p_ xconst_, real_8 _p_ yconst_, int_4 _p_ nderiv_, 
  1673  int_4 _p_ mode_, real_8 _p_ coeff_, real_8 _p_ bf_, real_8 _p_ xtemp_, real_8 _p_ ptemp_, real_8 _p_ bkpt_, real_8 _p_ 
  1674  g_, int_4 _p_ mdg_, real_8 _p_ w_, int_4 _p_ mdw_, real_8 _p_ work_, int_4 _p_ iwork_);
  1675  prototype int_4 _dfdjc1 (int_4 (*_fcn)(), int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ fjac_, int_4 _p_ 
  1676  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00036
  1677  
  1678  ldfjac_, int_4 _p_ iflag_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ epsfcn_, real_8 _p_ wa1_, real_8 _p_ wa2_);
  1679  prototype int_4 _dfdjc3 (int_4 (*_fcn)(), int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ fjac_
  1680  , int_4 _p_ ldfjac_, int_4 _p_ iflag_, real_8 _p_ epsfcn_, real_8 _p_ wa_);
  1681  prototype int_4 _dfehl (int_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ h_, real_8 _p_ yp_, 
  1682  real_8 _p_ f1_, real_8 _p_ f2_, real_8 _p_ f3_, real_8 _p_ f4_, real_8 _p_ f5_, real_8 _p_ ys_, real_8 _p_ rpar_, int_4 
  1683  _p_ ipar_);
  1684  prototype int_4 _dfspvd (real_8 _p_ t_, int_4 _p_ k_, real_8 _p_ x_, int_4 _p_ ileft_, real_8 _p_ vnikx_, int_4 _p_ 
  1685  nderiv_);
  1686  prototype int_4 _dfspvn (real_8 _p_ t_, int_4 _p_ jhigh_, int_4 _p_ index_, real_8 _p_ x_, int_4 _p_ ileft_, real_8 _p_ 
  1687  vnikx_);
  1688  prototype int_4 _dfulmt (int_4 _p_ i_, int_4 _p_ j_, real_8 _p_ aij_, int_4 _p_ indcat_, real_8 _p_ prgopt_, real_8 _p_ 
  1689  dattrv_, int_4 _p_ iflag_);
  1690  prototype int_4 _dfzero (real_8 (*_f)(), real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ r_, real_8 _p_ re_, real_8 _p_ ae_, 
  1691  int_4 _p_ iflag_);
  1692  prototype int_4 _dgaus8 (real_8 (*_fun)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ 
  1693  ierr_);
  1694  prototype int_4 _dgefs (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
  1695  real_8 _p_ work_, int_4 _p_ iwork_);
  1696  prototype int_4 _dglss (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 
  1697  _p_ nb_, real_8 _p_ rnorm_, real_8 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_);
  1698  prototype int_4 _dh12 (int_4 _p_ mode_, int_4 _p_ lpivot_, int_4 _p_ l1_, int_4 _p_ m_, real_8 _p_ u_, int_4 _p_ iue_, 
  1699  real_8 _p_ up_, real_8 _p_ c_, int_4 _p_ ice_, int_4 _p_ icv_, int_4 _p_ ncv_);
  1700  prototype int_4 _dhfti (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 
  1701  _p_ nb_, real_8 _p_ tau_, int_4 _p_ krank_, real_8 _p_ rnorm_, real_8 _p_ h_, real_8 _p_ g_, int_4 _p_ ip_);
  1702  prototype int_4 _dhstrt (int_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ y_, real_8 _p_ 
  1703  yprime_, real_8 _p_ etol_, int_4 _p_ morder_, real_8 _p_ small_, real_8 _p_ big_, real_8 _p_ spy_, real_8 _p_ pv_, 
  1704  real_8 _p_ yp_, real_8 _p_ sf_, real_8 _p_ rpar_, int_4 _p_ ipar_, real_8 _p_ h_);
  1705  prototype real_8 _dhvnrm (real_8 _p_ v_, int_4 _p_ ncomp_);
  1706  prototype int_4 _djairy (real_8 _p_ x_, real_8 _p_ rx_, real_8 _p_ c_, real_8 _p_ ai_, real_8 _p_ dai_);
  1707  prototype int_4 _dllsia (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, 
  1708  int_4 _p_ nb_, real_8 _p_ re_, real_8 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 
  1709  _p_ ksure_, real_8 _p_ rnorm_, real_8 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_);
  1710  prototype int_4 _dlpdp (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n1_, int_4 _p_ n2_, real_8 _p_ prgopt_, 
  1711  real_8 _p_ x_, real_8 _p_ wnorm_, int_4 _p_ mode_, real_8 _p_ ws_, int_4 _p_ is_);
  1712  prototype int_4 _dlsei (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ me_, int_4 _p_ ma_, int_4 _p_ mg_, int_4 _p_ n_, 
  1713  real_8 _p_ prgopt_, real_8 _p_ x_, real_8 _p_ rnorme_, real_8 _p_ rnorml_, int_4 _p_ mode_, real_8 _p_ ws_, int_4 _p_ 
  1714  ip_);
  1715  prototype int_4 _dlsi (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ ma_, int_4 _p_ mg_, int_4 _p_ n_, real_8 _p_ prgopt_, 
  1716  real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, real_8 _p_ ws_, int_4 _p_ ip_);
  1717  prototype int_4 _dlssud (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ b_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nrda_, 
  1718  real_8 _p_ u_, int_4 _p_ nrdu_, int_4 _p_ iflag_, int_4 _p_ mlso_, int_4 _p_ irank_, int_4 _p_ iscale_, real_8 _p_ q_, 
  1719  real_8 _p_ diag_, int_4 _p_ kpivot_, real_8 _p_ s_, real_8 _p_ div_, real_8 _p_ td_, int_4 _p_ isflg_, real_8 _p_ 
  1720  scales_);
  1721  prototype int_4 _dmacon (void);
  1722  prototype int_4 _dmgsbv (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ ia_, int_4 _p_ niv_, int_4 _p_ iflag_, 
  1723  real_8 _p_ s_, real_8 _p_ p_, int_4 _p_ ip_, int_4 _p_ inhomo_, real_8 _p_ v_, real_8 _p_ w_, real_8 _p_ wcnd_);
  1724  prototype int_4 _dmpar (int_4 _p_ n_, real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ ipvt_, real_8 _p_ diag_, real_8 _p_ qtb_
  1725  , real_8 _p_ delta_, real_8 _p_ par_, real_8 _p_ x_, real_8 _p_ sigma_, real_8 _p_ wa1_, real_8 _p_ wa2_);
  1726  prototype int_4 _dnbco (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
  1727  real_8 _p_ rcond_, real_8 _p_ z_);
  1728  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00037
  1729  
  1730  prototype int_4 _dnbdi (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
  1731  real_8 _p_ det_);
  1732  prototype int_4 _dnbfa (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
  1733  int_4 _p_ info_);
  1734  prototype int_4 _dnbfs (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ v_, 
  1735  int_4 _p_ itask_, int_4 _p_ ind_, real_8 _p_ work_, int_4 _p_ iwork_);
  1736  prototype int_4 _dnbsl (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
  1737  real_8 _p_ b_, int_4 _p_ job_);
  1738  prototype int_4 _dnls1e (real_8 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_
  1739  , real_8 _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ iw_, real_8 _p_ wa_, int_4 _p_ lwa_);
  1740  prototype int_4 _dnls1 (int_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, 
  1741  real_8 _p_ fjac_, int_4 _p_ ldfjac_, real_8 _p_ ftol_, real_8 _p_ xtol_, real_8 _p_ gtol_, int_4 _p_ maxfev_, real_8 
  1742  _p_ epsfcn_, real_8 _p_ diag_, int_4 _p_ mode_, real_8 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_
  1743  , int_4 _p_ njev_, int_4 _p_ ipvt_, real_8 _p_ qtf_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_
  1744  );
  1745  prototype int_4 _dnsqe (real_4 (*_fcn)(), int_4 (*_jac)(), int_4 _p_ iopt_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ 
  1746  fvec_, real_8 _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, real_8 _p_ wa_, int_4 _p_ lwa_);
  1747  prototype int_4 _dnsq (int_4 (*_fcn)(), int_4 (*_jac)(), int_4 _p_ iopt_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_
  1748  , real_8 _p_ fjac_, int_4 _p_ ldfjac_, real_8 _p_ xtol_, int_4 _p_ maxfev_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ 
  1749  epsfcn_, real_8 _p_ diag_, int_4 _p_ mode_, real_8 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_, 
  1750  int_4 _p_ njev_, real_8 _p_ r_, int_4 _p_ lr_, real_8 _p_ qtf_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, 
  1751  real_8 _p_ wa4_);
  1752  prototype int_4 _dohtrl (real_8 _p_ q_, int_4 _p_ n_, int_4 _p_ nrda_, real_8 _p_ diag_, int_4 _p_ irank_, real_8 _p_ 
  1753  div_, real_8 _p_ td_);
  1754  prototype int_4 _dorthr (real_8 _p_ a_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nrda_, int_4 _p_ iflag_, int_4 _p_ irank_
  1755  , int_4 _p_ iscale_, real_8 _p_ diag_, int_4 _p_ kpivot_, real_8 _p_ scales_, real_8 _p_ rows_, real_8 _p_ rs_);
  1756  prototype int_4 _dp1vlu (int_4 _p_ l_, int_4 _p_ nder_, real_8 _p_ x_, real_8 _p_ yfit_, real_8 _p_ yp_, real_8 _p_ a_)
  1757  ;
  1758  prototype int_4 _dpchng (int_4 _p_ ii_, real_8 _p_ xval_, int_4 _p_ iplace_, real_8 _p_ sx_, int_4 _p_ ix_, int_4 _p_ 
  1759  ircx_);
  1760  prototype int_4 _dpcoef (int_4 _p_ l_, real_8 _p_ c_, real_8 _p_ tc_, real_8 _p_ a_);
  1761  prototype int_4 _dpincw (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ npp_, int_4 _p_ 
  1762  jstrt_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ 
  1763  ibb_, real_8 _p_ costsc_, real_8 _p_ gg_, real_8 _p_ erdnrm_, real_8 _p_ dulnrm_, real_8 _p_ amat_, real_8 _p_ basmat_, 
  1764  real_8 _p_ csc_, real_8 _p_ wr_, real_8 _p_ ww_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 _p_ costs_, real_8 _p_ colnrm_, 
  1765  real_8 _p_ duals_, logical_4 _p_ stpedg_);
  1766  prototype int_4 _dpinit (int_4 _p_ mrelas_, int_4 _p_ nvars_, real_8 _p_ costs_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 
  1767  _p_ ind_, real_8 _p_ primal_, int_4 _p_ info_, real_8 _p_ amat_, real_8 _p_ csc_, real_8 _p_ costsc_, real_8 _p_ 
  1768  colnrm_, real_8 _p_ xlamda_, real_8 _p_ anorm_, real_8 _p_ rhs_, real_8 _p_ rhsnrm_, int_4 _p_ ibasis_, int_4 _p_ ibb_, 
  1769  int_4 _p_ imat_, logical_4 _p_ lopt_);
  1770  prototype int_4 _dpintm (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ sx_, int_4 _p_ ix_, int_4 _p_ lmx_, int_4 _p_ ipagef_);
  1771  prototype int_4 _dplint (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ c_);
  1772  prototype int_4 _dplpce (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ itlp_, int_4 
  1773  _p_ itbrc_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 
  1774  _p_ ibb_, real_8 _p_ erdnrm_, real_8 _p_ eps_, real_8 _p_ tune_, real_8 _p_ gg_, real_8 _p_ amat_, real_8 _p_ basmat_, 
  1775  real_8 _p_ csc_, real_8 _p_ wr_, real_8 _p_ ww_, real_8 _p_ primal_, real_8 _p_ erd_, real_8 _p_ erp_, logical_4 _p_ 
  1776  singlr_, logical_4 _p_ redbas_);
  1777  prototype int_4 _dplpdm (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ nredc_, int_4 
  1778  _p_ info_, int_4 _p_ iopt_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 
  1779  _p_ ind_, int_4 _p_ ibb_, real_8 _p_ anorm_, real_8 _p_ eps_, real_8 _p_ uu_, real_8 _p_ gg_, real_8 _p_ amat_, real_8 
  1780  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00038
  1781  
  1782  _p_ basmat_, real_8 _p_ csc_, real_8 _p_ wr_, logical_4 _p_ singlr_, logical_4 _p_ redbas_);
  1783  prototype int_4 _dplpfe (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ ienter_, int_4 
  1784  _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_8 
  1785  _p_ erdnrm_, real_8 _p_ eps_, real_8 _p_ gg_, real_8 _p_ dulnrm_, real_8 _p_ dirnrm_, real_8 _p_ amat_, real_8 _p_ 
  1786  basmat_, real_8 _p_ csc_, real_8 _p_ wr_, real_8 _p_ ww_, real_8 _p_ bl_, real_8 _p_ bu_, real_8 _p_ rz_, real_8 _p_ 
  1787  rg_, real_8 _p_ colnrm_, real_8 _p_ duals_, logical_4 _p_ found_);
  1788  prototype int_4 _dplpfl (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ ibasis_, 
  1789  int_4 _p_ ind_, int_4 _p_ ibb_, real_8 _p_ theta_, real_8 _p_ dirnrm_, real_8 _p_ rprnrm_, real_8 _p_ csc_, real_8 _p_ 
  1790  ww_, real_8 _p_ bl_, real_8 _p_ bu_, real_8 _p_ erp_, real_8 _p_ rprim_, real_8 _p_ primal_, logical_4 _p_ finite_, 
  1791  logical_4 _p_ zerolv_);
  1792  prototype int_4 _dplpmn (real_4 (*_dusrmt)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_8 _p_ costs_, real_8 _p_ 
  1793  prgopt_, real_8 _p_ dattrv_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_8 _p_ primal_, 
  1794  real_8 _p_ duals_, real_8 _p_ amat_, real_8 _p_ csc_, real_8 _p_ colnrm_, real_8 _p_ erd_, real_8 _p_ erp_, real_8 _p_ 
  1795  basmat_, real_8 _p_ wr_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 _p_ rprim_, real_8 _p_ rhs_, real_8 _p_ ww_, int_4 _p_ 
  1796  lmx_, int_4 _p_ lbm_, int_4 _p_ ibasis_, int_4 _p_ ibb_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ 
  1797  iwr_);
  1798  prototype int_4 _dplpmu (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ nredc_, int_4 
  1799  _p_ info_, int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ iopt_, int_4 _p_ npp_, int_4 _p_ jstrt_, int_4 _p_ ibasis_, 
  1800  int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_8 _p_ anorm_, 
  1801  real_8 _p_ eps_, real_8 _p_ uu_, real_8 _p_ gg_, real_8 _p_ rprnrm_, real_8 _p_ erdnrm_, real_8 _p_ dulnrm_, real_8 _p_ 
  1802  theta_, real_8 _p_ costsc_, real_8 _p_ xlamda_, real_8 _p_ rhsnrm_, real_8 _p_ amat_, real_8 _p_ basmat_, real_8 _p_ 
  1803  csc_, real_8 _p_ wr_, real_8 _p_ rprim_, real_8 _p_ ww_, real_8 _p_ bu_, real_8 _p_ bl_, real_8 _p_ rhs_, real_8 _p_ 
  1804  erd_, real_8 _p_ erp_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 _p_ colnrm_, real_8 _p_ costs_, real_8 _p_ primal_, 
  1805  real_8 _p_ duals_, logical_4 _p_ singlr_, logical_4 _p_ redbas_, logical_4 _p_ zerolv_, logical_4 _p_ stpedg_);
  1806  prototype int_4 _dplpup (int_4 (*_dusrmt)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_8 _p_ prgopt_, real_8 _p_ 
  1807  dattrv_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_8 _p_ amat_, int_4 _p_ imat_, logical_4 
  1808  _p_ sizeup_, real_8 _p_ asmall_, real_8 _p_ abig_);
  1809  prototype int_4 _dpnnzr (int_4 _p_ i_, real_8 _p_ xval_, int_4 _p_ iplace_, real_8 _p_ sx_, int_4 _p_ ix_, int_4 _p_ 
  1810  ircx_);
  1811  prototype int_4 _dpofs (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
  1812  real_8 _p_ work_);
  1813  prototype int_4 _dpolcf (real_8 _p_ xx_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ c_, real_8 _p_ d_, real_8 _p_ work_);
  1814  prototype int_4 _dpolft (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ w_, int_4 _p_ maxdeg_, int_4 _p_ ndeg_, 
  1815  real_8 _p_ eps_, real_8 _p_ r_, int_4 _p_ ierr_, real_8 _p_ a_);
  1816  prototype int_4 _dpolvl (int_4 _p_ nder_, real_8 _p_ xx_, real_8 _p_ yfit_, real_8 _p_ yp_, int_4 _p_ n_, real_8 _p_ x_
  1817  , real_8 _p_ c_, real_8 _p_ work_, int_4 _p_ ierr_);
  1818  prototype int_4 _dpopt (real_8 _p_ prgopt_, int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ info_, real_8 _p_ csc_, 
  1819  int_4 _p_ ibasis_, real_8 _p_ ropt_, int_4 _p_ intopt_, logical_4 _p_ lopt_);
  1820  prototype int_4 _dpperm (real_8 _p_ dx_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ ier_);
  1821  prototype int_4 _dppgq8 (real_8 (*_fun)(), int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ kk_
  1822  , int_4 _p_ id_, real_8 _p_ a_, real_8 _p_ b_, int_4 _p_ inppv_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ ierr_);
  1823  prototype real_8 _dprvec (int_4 _p_ m_, real_8 _p_ u_, real_8 _p_ v_);
  1824  prototype int_4 _dprwpg (int_4 _p_ key_, int_4 _p_ ipage_, int_4 _p_ lpg_, real_8 _p_ sx_, int_4 _p_ ix_);
  1825  prototype int_4 _dprwvr (int_4 _p_ key_, int_4 _p_ ipage_, int_4 _p_ lpg_, real_8 _p_ sx_, int_4 _p_ ix_);
  1826  prototype real_8 _dpsixn (int_4 _p_ n_);
  1827  prototype int_4 _dpsort (real_8 _p_ dx_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ kflag_, int_4 _p_ ier_);
  1828  prototype real_8 _dqdota (int_4 _p_ n_, real_8 _p_ db_, int_4 _p_ qc_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, 
  1829  int_4 _p_ incy_);
  1830  prototype real_8 _dqdoti (int_4 _p_ n_, real_8 _p_ db_, int_4 _p_ qc_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, 
  1831  int_4 _p_ incy_);
  1832  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00039
  1833  
  1834  prototype int_4 _dqform (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ wa_);
  1835  prototype int_4 _dqrfac (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, logical_4 _p_ pivot_, int_4 _p_ 
  1836  ipvt_, int_4 _p_ lipvt_, real_8 _p_ sigma_, real_8 _p_ acnorm_, real_8 _p_ wa_);
  1837  prototype int_4 _dqrslv (int_4 _p_ n_, real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ ipvt_, real_8 _p_ diag_, real_8 _p_ 
  1838  qtb_, real_8 _p_ x_, real_8 _p_ sigma_, real_8 _p_ wa_);
  1839  prototype int_4 _drc3jj (real_8 _p_ l2_, real_8 _p_ l3_, real_8 _p_ m2_, real_8 _p_ m3_, real_8 _p_ l1min_, real_8 _p_ 
  1840  l1max_, real_8 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_);
  1841  prototype int_4 _drc3jm (real_8 _p_ l1_, real_8 _p_ l2_, real_8 _p_ l3_, real_8 _p_ m1_, real_8 _p_ m2min_, real_8 _p_ 
  1842  m2max_, real_8 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_);
  1843  prototype int_4 _drc6j (real_8 _p_ l2_, real_8 _p_ l3_, real_8 _p_ l4_, real_8 _p_ l5_, real_8 _p_ l6_, real_8 _p_ 
  1844  l1min_, real_8 _p_ l1max_, real_8 _p_ sixcof_, int_4 _p_ ndim_, int_4 _p_ ier_);
  1845  prototype real_8 _drc (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ ier_);
  1846  prototype real_8 _drd (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ z_, int_4 _p_ ier_);
  1847  prototype int_4 _dreadp (int_4 _p_ ipage_, int_4 _p_ list_, real_8 _p_ rlist_, int_4 _p_ lpage_, int_4 _p_ irec_);
  1848  prototype int_4 _dreort (int_4 _p_ ncomp_, real_8 _p_ y_, real_8 _p_ yp_, real_8 _p_ yhp_, int_4 _p_ niv_, real_8 _p_ 
  1849  w_, real_8 _p_ s_, real_8 _p_ p_, int_4 _p_ ip_, real_8 _p_ stowa_, int_4 _p_ iflag_);
  1850  prototype real_8 _drf (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ z_, int_4 _p_ ier_);
  1851  prototype real_8 _drj (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ z_, real_8 _p_ p_, int_4 _p_ ier_);
  1852  prototype int_4 _drkfs (int_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ tout_, int_4 _p_ info_
  1853  , real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ idid_, real_8 _p_ h_, real_8 _p_ tolfac_, real_8 _p_ yp_, real_8 _p_ 
  1854  f1_, real_8 _p_ f2_, real_8 _p_ f3_, real_8 _p_ f4_, real_8 _p_ f5_, real_8 _p_ ys_, real_8 _p_ told_, real_8 _p_ 
  1855  dtsign_, real_8 _p_ u26_, real_8 _p_ rer_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kop_, int_4 _p_ iquit_, 
  1856  logical_4 _p_ stiff_, logical_4 _p_ nonstf_, int_4 _p_ ntstep_, int_4 _p_ nstifs_, real_8 _p_ rpar_, int_4 _p_ ipar_);
  1857  prototype int_4 _dsort (real_8 _p_ dx_, real_8 _p_ dy_, int_4 _p_ n_, int_4 _p_ kflag_);
  1858  prototype int_4 _dsoseq (real_8 (*_fnc)(), int_4 _p_ n_, real_8 _p_ s_, real_8 _p_ rtolx_, real_8 _p_ atolx_, real_8 
  1859  _p_ tolf_, int_4 _p_ iflag_, int_4 _p_ mxit_, int_4 _p_ ncjs_, int_4 _p_ nsrrc_, int_4 _p_ nsri_, int_4 _p_ iprint_, 
  1860  real_8 _p_ fmax_, real_8 _p_ c_, int_4 _p_ nc_, real_8 _p_ b_, real_8 _p_ p_, real_8 _p_ temp_, real_8 _p_ x_, real_8 
  1861  _p_ y_, real_8 _p_ fac_, int_4 _p_ is_);
  1862  prototype int_4 _dsos (real_8 (*_fnc)(), int_4 _p_ neq_, real_8 _p_ x_, real_8 _p_ rtolx_, real_8 _p_ atolx_, real_8 
  1863  _p_ tolf_, int_4 _p_ iflag_, real_8 _p_ rw_, int_4 _p_ lrw_, int_4 _p_ iw_, int_4 _p_ liw_);
  1864  prototype int_4 _dsossl (int_4 _p_ k_, int_4 _p_ n_, int_4 _p_ l_, real_8 _p_ x_, real_8 _p_ c_, real_8 _p_ b_, int_4 
  1865  _p_ m_);
  1866  prototype int_4 _dsplp (real_4 (*_dusrmt)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_8 _p_ costs_, real_8 _p_ prgopt_
  1867  , real_8 _p_ dattrv_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_8 _p_ primal_, real_8 _p_ 
  1868  duals_, int_4 _p_ ibasis_, real_8 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_);
  1869  prototype int_4 _dstor1 (real_8 _p_ u_, real_8 _p_ yh_, real_8 _p_ v_, real_8 _p_ yp_, int_4 _p_ ntemp_, int_4 _p_ 
  1870  ndisk_, int_4 _p_ ntape_);
  1871  prototype int_4 _dstway (real_8 _p_ u_, real_8 _p_ v_, real_8 _p_ yhp_, int_4 _p_ inout_, real_8 _p_ stowa_);
  1872  prototype int_4 _dsuds (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ b_, int_4 _p_ neq_, int_4 _p_ nuk_, int_4 _p_ nrda_, 
  1873  int_4 _p_ iflag_, int_4 _p_ mlso_, real_8 _p_ work_, int_4 _p_ iwork_);
  1874  prototype int_4 _du11ls (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ ub_, real_8 _p_ db_, 
  1875  int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_8 _p_ h_, real_8 _p_ w_, real_8 _p_ eb_, int_4 
  1876  _p_ ic_, int_4 _p_ ir_);
  1877  prototype int_4 _du11us (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ ub_, real_8 _p_ db_, 
  1878  int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_8 _p_ h_, real_8 _p_ w_, real_8 _p_ eb_, int_4 
  1879  _p_ ir_, int_4 _p_ ic_);
  1880  prototype int_4 _du12ls (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, 
  1881  int_4 _p_ nb_, int_4 _p_ mode_, int_4 _p_ krank_, real_8 _p_ rnorm_, real_8 _p_ h_, real_8 _p_ w_, int_4 _p_ ic_, int_4 
  1882  _p_ ir_);
  1883  prototype int_4 _du12us (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, 
  1884  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00040
  1885  
  1886  int_4 _p_ nb_, int_4 _p_ mode_, int_4 _p_ krank_, real_8 _p_ rnorm_, real_8 _p_ h_, real_8 _p_ w_, int_4 _p_ ir_, int_4 
  1887  _p_ ic_);
  1888  prototype int_4 _dulsia (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, 
  1889  int_4 _p_ nb_, real_8 _p_ re_, real_8 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 
  1890  _p_ ksure_, real_8 _p_ rnorm_, real_8 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_);
  1891  prototype int_4 _dusrmt (int_4 _p_ i_, int_4 _p_ j_, real_8 _p_ aij_, int_4 _p_ indcat_, real_8 _p_ prgopt_, real_8 _p_ 
  1892  dattrv_, int_4 _p_ iflag_);
  1893  prototype int_4 _dvecs (int_4 _p_ ncomp_, int_4 _p_ lnfc_, real_8 _p_ yhp_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 
  1894  _p_ inhomo_, int_4 _p_ iflag_);
  1895  prototype real_8 _dvnrms (int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ w_);
  1896  prototype int_4 _dwnlit (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ l_, int_4 _p_ ipivot_, 
  1897  int_4 _p_ itype_, real_8 _p_ h_, real_8 _p_ scale_, real_8 _p_ rnorm_, int_4 _p_ idope_, real_8 _p_ dope_, logical_4 
  1898  _p_ done_);
  1899  prototype int_4 _dwnlsm (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mme_, int_4 _p_ ma_, int_4 _p_ n_, int_4 _p_ l_, 
  1900  real_8 _p_ prgopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ ipivot_, int_4 _p_ itype_, real_8 _p_ 
  1901  wd_, real_8 _p_ h_, real_8 _p_ scale_, real_8 _p_ z_, real_8 _p_ temp_, real_8 _p_ d_);
  1902  prototype int_4 _dwnlt1 (int_4 _p_ i_, int_4 _p_ lend_, int_4 _p_ mend_, int_4 _p_ ir_, int_4 _p_ mdw_, logical_4 _p_ 
  1903  recalc_, int_4 _p_ imax_, real_8 _p_ hbar_, real_8 _p_ h_, real_8 _p_ scale_, real_8 _p_ w_);
  1904  prototype logical_4 _dwnlt2 (int_4 _p_ me_, int_4 _p_ mend_, int_4 _p_ ir_, real_8 _p_ factor_, real_8 _p_ tau_, real_8 
  1905  _p_ scale_, real_8 _p_ wic_);
  1906  prototype int_4 _dwnlt3 (int_4 _p_ i_, int_4 _p_ imax_, int_4 _p_ m_, int_4 _p_ mdw_, int_4 _p_ ipivot_, real_8 _p_ h_, 
  1907  real_8 _p_ w_);
  1908  prototype int_4 _dwnnls (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ me_, int_4 _p_ ma_, int_4 _p_ n_, int_4 _p_ l_, 
  1909  real_8 _p_ prgopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ iwork_, real_8 _p_ work_);
  1910  prototype int_4 _dwritp (int_4 _p_ ipage_, int_4 _p_ list_, real_8 _p_ rlist_, int_4 _p_ lpage_, int_4 _p_ irec_);
  1911  prototype int_4 _dwupdt (int_4 _p_ n_, real_8 _p_ r_, int_4 _p_ ldr_, real_8 _p_ w_, real_8 _p_ b_, real_8 _p_ alpha_, 
  1912  real_8 _p_ cos_, real_8 _p_ sin_);
  1913  prototype int_4 _dx4 (real_4 _p_ u_, int_4 _p_ idmn_, int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ uxxx_, real_4 _p_ uxxxx_);
  1914  prototype int_4 _dxadj (real_8 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_);
  1915  prototype int_4 _dxc210 (int_4 _p_ k_, real_8 _p_ z_, int_4 _p_ j_, int_4 _p_ ierror_);
  1916  prototype int_4 _dx (real_4 _p_ u_, int_4 _p_ idmn_, int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ uxxx_, real_4 _p_ uxxxx_);
  1917  prototype real_8 _dxpsi (real_8 _p_ a_, int_4 _p_ ipsik_, int_4 _p_ ipsix_);
  1918  prototype int_4 _dxred (real_8 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_);
  1919  prototype int_4 _dy4 (real_4 _p_ u_, int_4 _p_ idmn_, int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ uyyy_, real_4 _p_ uyyyy_);
  1920  prototype int_4 _dyairy (real_8 _p_ x_, real_8 _p_ rx_, real_8 _p_ c_, real_8 _p_ bi_, real_8 _p_ dbi_);
  1921  prototype int_4 _dy (real_4 _p_ u_, int_4 _p_ idmn_, int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ uyyy_, real_4 _p_ uyyyy_);
  1922  prototype int_4 _efcmn (int_4 _p_ ndata_, real_4 _p_ xdata_, real_4 _p_ ydata_, real_4 _p_ sddata_, int_4 _p_ nord_, 
  1923  int_4 _p_ nbkpt_, real_4 _p_ bkptin_, int_4 _p_ mdein_, int_4 _p_ mdeout_, real_4 _p_ coeff_, real_4 _p_ bf_, real_4 
  1924  _p_ xtemp_, real_4 _p_ ptemp_, real_4 _p_ bkpt_, real_4 _p_ g_, int_4 _p_ mdg_, real_4 _p_ w_, int_4 _p_ mdw_, int_4 
  1925  _p_ lw_);
  1926  prototype int_4 _fcmn (int_4 _p_ ndata_, real_4 _p_ xdata_, real_4 _p_ ydata_, real_4 _p_ sddata_, int_4 _p_ nord_, 
  1927  int_4 _p_ nbkpt_, real_4 _p_ bkptin_, int_4 _p_ nconst_, real_4 _p_ xconst_, real_4 _p_ yconst_, int_4 _p_ nderiv_, 
  1928  int_4 _p_ mode_, real_4 _p_ coeff_, real_4 _p_ bf_, real_4 _p_ xtemp_, real_4 _p_ ptemp_, real_4 _p_ bkpt_, real_4 _p_ 
  1929  g_, int_4 _p_ mdg_, real_4 _p_ w_, int_4 _p_ mdw_, real_4 _p_ work_, int_4 _p_ iwork_);
  1930  prototype int_4 _fdjac3 (int_4 (*_fcn)(), int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 _p_ fjac_
  1931  , int_4 _p_ ldfjac_, int_4 _p_ iflag_, real_4 _p_ epsfcn_, real_4 _p_ wa_);
  1932  prototype int_4 _fdump (void);
  1933  prototype int_4 _fftdoc (void);
  1934  prototype int_4 _fulmat (int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ aij_, int_4 _p_ indcat_, real_4 _p_ prgopt_, real_4 _p_ 
  1935  dattrv_, int_4 _p_ iflag_);
  1936  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00041
  1937  
  1938  prototype int_4 _fzero (real_4 (*_f)(), real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ r_, real_4 _p_ re_, real_4 _p_ ae_, 
  1939  int_4 _p_ iflag_);
  1940  prototype real_4 _gamrn (real_4 _p_ x_);
  1941  prototype int_4 _gaus8 (real_4 (*_fun)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ 
  1942  ierr_);
  1943  prototype int_4 _h12 (int_4 _p_ mode_, int_4 _p_ lpivot_, int_4 _p_ l1_, int_4 _p_ m_, real_4 _p_ u_, int_4 _p_ iue_, 
  1944  real_4 _p_ up_, real_4 _p_ c_, int_4 _p_ ice_, int_4 _p_ icv_, int_4 _p_ ncv_);
  1945  prototype int_4 _hfti (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 
  1946  _p_ nb_, real_4 _p_ tau_, int_4 _p_ krank_, real_4 _p_ rnorm_, real_4 _p_ h_, real_4 _p_ g_, int_4 _p_ ip_);
  1947  prototype int_4 _hkseq (real_4 _p_ x_, int_4 _p_ m_, real_4 _p_ h_, int_4 _p_ ierr_);
  1948  prototype int_4 _hpperm (char _p_ _p_ hx_, int_4 _p_ n_, int_4 _p_ iperm_, char _p_ work_, int_4 _p_ ier_);
  1949  prototype int_4 _hpsort (char _p_ _p_ hx_, int_4 _p_ n_, int_4 _p_ strbeg_, int_4 _p_ strend_, int_4 _p_ iperm_, int_4 
  1950  _p_ kflag_, char _p_ work_, int_4 _p_ ier_);
  1951  prototype int_4 _hstart (int_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ y_, real_4 _p_ yprime_
  1952  , real_4 _p_ etol_, int_4 _p_ morder_, real_4 _p_ small_, real_4 _p_ big_, real_4 _p_ spy_, real_4 _p_ pv_, real_4 _p_ 
  1953  yp_, real_4 _p_ sf_, real_4 _p_ rpar_, int_4 _p_ ipar_, real_4 _p_ h_);
  1954  prototype int_4 _hstcs1 (int_4 _p_ intl_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ 
  1955  bda_, real_4 _p_ bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, 
  1956  real_4 _p_ elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierr1_, real_4 _p_ am_, real_4 _p_ 
  1957  bm_, real_4 _p_ cm_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ snth_, real_4 _p_ rsq_, real_4 _p_ wrk_
  1958  );
  1959  prototype real_4 _hvnrm (real_4 _p_ v_, int_4 _p_ ncomp_);
  1960  prototype int_4 _hwscs1 (int_4 _p_ intl_, real_4 _p_ ts_, real_4 _p_ tf_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ 
  1961  bdts_, real_4 _p_ bdtf_, real_4 _p_ rs_, real_4 _p_ rf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdrs_, real_4 _p_ 
  1962  bdrf_, real_4 _p_ elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, real_4 _p_ w_, real_4 _p_ s_, real_4 
  1963  _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ r_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ 
  1964  sint_, real_4 _p_ bmh_);
  1965  prototype int_4 _hwsss1 (real_4 _p_ ts_, real_4 _p_ tf_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bdts_, real_4 _p_ 
  1966  bdtf_, real_4 _p_ ps_, real_4 _p_ pf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdps_, real_4 _p_ bdpf_, real_4 _p_ 
  1967  elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 
  1968  _p_ sn_, real_4 _p_ ss_, real_4 _p_ sint_, real_4 _p_ d_);
  1969  prototype int_4 _i1merg (real_4 _p_ icos_, int_4 _p_ i1_, int_4 _p_ m1_, int_4 _p_ i2_, int_4 _p_ m2_, int_4 _p_ i3_);
  1970  prototype int_4 _idloc (int_4 _p_ loc_, real_8 _p_ sx_, int_4 _p_ ix_);
  1971  prototype int_4 _indxa (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idxa_, int_4 _p_ na_);
  1972  prototype int_4 _indxb (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idx_, int_4 _p_ idp_);
  1973  prototype int_4 _indxc (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idxc_, int_4 _p_ nc_);
  1974  prototype int_4 _inxca (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idxa_, int_4 _p_ na_);
  1975  prototype int_4 _inxcb (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idx_, int_4 _p_ idp_);
  1976  prototype int_4 _inxcc (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idxc_, int_4 _p_ nc_);
  1977  prototype int_4 _iploc (int_4 _p_ loc_, real_4 _p_ sx_, int_4 _p_ ix_);
  1978  prototype int_4 _ipperm (int_4 _p_ ix_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ ier_);
  1979  prototype int_4 _ipsort (int_4 _p_ ix_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ kflag_, int_4 _p_ ier_);
  1980  prototype int_4 _isort (int_4 _p_ ix_, int_4 _p_ iy_, int_4 _p_ n_, int_4 _p_ kflag_);
  1981  prototype int_4 _jairy (real_4 _p_ x_, real_4 _p_ rx_, real_4 _p_ c_, real_4 _p_ ai_, real_4 _p_ dai_);
  1982  prototype int_4 _llsia (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 
  1983  _p_ nb_, real_4 _p_ re_, real_4 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ 
  1984  ksure_, real_4 _p_ rnorm_, real_4 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_);
  1985  prototype int_4 _lpdp (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n1_, int_4 _p_ n2_, real_4 _p_ prgopt_, 
  1986  real_4 _p_ x_, real_4 _p_ wnorm_, int_4 _p_ mode_, real_4 _p_ ws_, int_4 _p_ is_);
  1987  prototype int_4 _lsei (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ me_, int_4 _p_ ma_, int_4 _p_ mg_, int_4 _p_ n_, real_4 
  1988  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00042
  1989  
  1990  _p_ prgopt_, real_4 _p_ x_, real_4 _p_ rnorme_, real_4 _p_ rnorml_, int_4 _p_ mode_, real_4 _p_ ws_, int_4 _p_ ip_);
  1991  prototype int_4 _lsi (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ ma_, int_4 _p_ mg_, int_4 _p_ n_, real_4 _p_ prgopt_, 
  1992  real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, real_4 _p_ ws_, int_4 _p_ ip_);
  1993  prototype int_4 _lssods (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ nrda_, 
  1994  int_4 _p_ iflag_, int_4 _p_ irank_, int_4 _p_ iscale_, real_4 _p_ q_, real_4 _p_ diag_, int_4 _p_ kpivot_, int_4 _p_ 
  1995  iter_, real_4 _p_ resnrm_, real_4 _p_ xnorm_, real_4 _p_ z_, real_4 _p_ r_, real_4 _p_ div_, real_4 _p_ td_, real_4 _p_ 
  1996  scales_);
  1997  prototype int_4 _lssuds (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ b_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nrda_, 
  1998  real_4 _p_ u_, int_4 _p_ nrdu_, int_4 _p_ iflag_, int_4 _p_ mlso_, int_4 _p_ irank_, int_4 _p_ iscale_, real_4 _p_ q_, 
  1999  real_4 _p_ diag_, int_4 _p_ kpivot_, real_4 _p_ s_, real_4 _p_ div_, real_4 _p_ td_, int_4 _p_ isflg_, real_4 _p_ 
  2000  scales_);
  2001  prototype int_4 _macon (void);
  2002  prototype int_4 _mgsbv (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ ia_, int_4 _p_ niv_, int_4 _p_ iflag_, 
  2003  real_4 _p_ s_, real_4 _p_ p_, int_4 _p_ ip_, int_4 _p_ inhomo_, real_4 _p_ v_, real_4 _p_ w_, real_4 _p_ wcnd_);
  2004  prototype int_4 _minso4 (real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ zn_, real_4 _p_ zm_, real_4 _p_ pertb_);
  2005  prototype int_4 _minsol (real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ zn_, real_4 _p_ zm_, real_4 _p_ pertb_);
  2006  prototype int_4 _mpadd2 (int_4 _p_ x_, int_4 _p_ y_, int_4 _p_ z_, int_4 _p_ y1_, int_4 _p_ trunc_);
  2007  prototype int_4 _mpadd3 (int_4 _p_ x_, int_4 _p_ y_, int_4 _p_ s_, int_4 _p_ med_, int_4 _p_ re_);
  2008  prototype int_4 _mpadd (int_4 _p_ x_, int_4 _p_ y_, int_4 _p_ z_);
  2009  prototype int_4 _mpblas (int_4 _p_ i1_);
  2010  prototype int_4 _mpcdm (real_8 _p_ dx_, int_4 _p_ z_);
  2011  prototype int_4 _mpchk (int_4 _p_ i_, int_4 _p_ j_);
  2012  prototype int_4 _mpcmd (int_4 _p_ x_, real_8 _p_ dz_);
  2013  prototype int_4 _mpdivi (int_4 _p_ x_, int_4 _p_ iy_, int_4 _p_ z_);
  2014  prototype int_4 _mperr (void);
  2015  prototype int_4 _mpmaxr (int_4 _p_ x_);
  2016  prototype int_4 _mpmlp (int_4 _p_ u_, int_4 _p_ v_, int_4 _p_ w_, int_4 _p_ j_);
  2017  prototype int_4 _mpmul2 (int_4 _p_ x_, int_4 _p_ iy_, int_4 _p_ z_, int_4 _p_ trunc_);
  2018  prototype int_4 _mpmul (int_4 _p_ x_, int_4 _p_ y_, int_4 _p_ z_);
  2019  prototype int_4 _mpmuli (int_4 _p_ x_, int_4 _p_ iy_, int_4 _p_ z_);
  2020  prototype int_4 _mpnzr (int_4 _p_ rs_, int_4 _p_ re_, int_4 _p_ z_, int_4 _p_ trunc_);
  2021  prototype int_4 _mpovfl (int_4 _p_ x_);
  2022  prototype int_4 _mpstr (int_4 _p_ x_, int_4 _p_ y_);
  2023  prototype int_4 _mpunfl (int_4 _p_ x_);
  2024  prototype int_4 _numxer (int_4 _p_ nerr_);
  2025  prototype int_4 _ohtrol (real_4 _p_ q_, int_4 _p_ n_, int_4 _p_ nrda_, real_4 _p_ diag_, int_4 _p_ irank_, real_4 _p_ 
  2026  div_, real_4 _p_ td_);
  2027  prototype int_4 _ohtror (real_4 _p_ q_, int_4 _p_ n_, int_4 _p_ nrda_, real_4 _p_ diag_, int_4 _p_ irank_, real_4 _p_ 
  2028  div_, real_4 _p_ td_);
  2029  prototype int_4 _ortho4 (real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ zn_, real_4 _p_ zm_, real_4 _p_ pertrb_);
  2030  prototype int_4 _orthog (real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ zn_, real_4 _p_ zm_, real_4 _p_ pertrb_);
  2031  prototype int_4 _orthol (real_4 _p_ a_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ nrda_, int_4 _p_ iflag_, int_4 _p_ irank_
  2032  , int_4 _p_ iscale_, real_4 _p_ diag_, int_4 _p_ kpivot_, real_4 _p_ scales_, real_4 _p_ cols_, real_4 _p_ cs_);
  2033  prototype int_4 _orthor (real_4 _p_ a_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nrda_, int_4 _p_ iflag_, int_4 _p_ irank_
  2034  , int_4 _p_ iscale_, real_4 _p_ diag_, int_4 _p_ kpivot_, real_4 _p_ scales_, real_4 _p_ rows_, real_4 _p_ rs_);
  2035  prototype int_4 _pchngs (int_4 _p_ ii_, real_4 _p_ xval_, int_4 _p_ iplace_, real_4 _p_ sx_, int_4 _p_ ix_, int_4 _p_ 
  2036  ircx_);
  2037  prototype int_4 _pcoef (int_4 _p_ l_, real_4 _p_ c_, real_4 _p_ tc_, real_4 _p_ a_);
  2038  prototype real_4 _pgsf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_);
  2039  prototype real_4 _pimach (real_4 _p_ dum_);
  2040  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00043
  2041  
  2042  prototype int_4 _pinitm (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ ix_, int_4 _p_ lmx_, int_4 _p_ ipagef_);
  2043  prototype int_4 _pnnzrs (int_4 _p_ i_, real_4 _p_ xval_, int_4 _p_ iplace_, real_4 _p_ sx_, int_4 _p_ ix_, int_4 _p_ 
  2044  ircx_);
  2045  prototype int_4 _poisd2 (int_4 _p_ mr_, int_4 _p_ nr_, int_4 _p_ istag_, real_4 _p_ ba_, real_4 _p_ bb_, real_4 _p_ bc_
  2046  , real_4 _p_ q_, int_4 _p_ idimq_, real_4 _p_ b_, real_4 _p_ w_, real_4 _p_ d_, real_4 _p_ tcos_, real_4 _p_ p_);
  2047  prototype int_4 _poisn2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ istag_, int_4 _p_ mixbnd_, real_4 _p_ a_, real_4 _p_ bb_
  2048  , real_4 _p_ c_, real_4 _p_ q_, int_4 _p_ idimq_, real_4 _p_ b_, real_4 _p_ b2_, real_4 _p_ b3_, real_4 _p_ w_, real_4 
  2049  _p_ w2_, real_4 _p_ w3_, real_4 _p_ d_, real_4 _p_ tcos_, real_4 _p_ p_);
  2050  prototype int_4 _poisp2 (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ bb_, real_4 _p_ c_, real_4 _p_ q_, int_4 
  2051  _p_ idimq_, real_4 _p_ b_, real_4 _p_ b2_, real_4 _p_ b3_, real_4 _p_ w_, real_4 _p_ w2_, real_4 _p_ w3_, real_4 _p_ d_
  2052  , real_4 _p_ tcos_, real_4 _p_ p_);
  2053  prototype int_4 _polcof (real_4 _p_ xx_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ work_);
  2054  prototype int_4 _polfit (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ w_, int_4 _p_ maxdeg_, int_4 _p_ ndeg_, 
  2055  real_4 _p_ eps_, real_4 _p_ r_, int_4 _p_ ierr_, real_4 _p_ a_);
  2056  prototype int_4 _polint (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ c_);
  2057  prototype int_4 _polyvl (int_4 _p_ nder_, real_4 _p_ xx_, real_4 _p_ yfit_, real_4 _p_ yp_, int_4 _p_ n_, real_4 _p_ x_
  2058  , real_4 _p_ c_, real_4 _p_ work_, int_4 _p_ ierr_);
  2059  prototype int_4 _pos3d1 (int_4 _p_ lp_, int_4 _p_ l_, int_4 _p_ mp_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, real_4 
  2060  _p_ b_, real_4 _p_ c_, int_4 _p_ ldimf_, int_4 _p_ mdimf_, real_4 _p_ f_, real_4 _p_ xrt_, real_4 _p_ yrt_, real_4 _p_ 
  2061  t_, real_4 _p_ d_, real_4 _p_ wx_, real_4 _p_ wy_, real_4 _p_ c1_, real_4 _p_ c2_, real_4 _p_ bb_);
  2062  prototype int_4 _postg2 (int_4 _p_ nperod_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ bb_, real_4 _p_ c_, 
  2063  int_4 _p_ idimq_, real_4 _p_ q_, real_4 _p_ b_, real_4 _p_ b2_, real_4 _p_ b3_, real_4 _p_ w_, real_4 _p_ w2_, real_4 
  2064  _p_ w3_, real_4 _p_ d_, real_4 _p_ tcos_, real_4 _p_ p_);
  2065  prototype int_4 _ppadd (int_4 _p_ n_, int_4 _p_ ierror_, real_4 _p_ a_, real_4 _p_ c_, complex_8 _p_ cbp_, real_4 _p_ 
  2066  bp_, real_4 _p_ bh_);
  2067  prototype int_4 _ppgq8 (real_4 (*_fun)(), int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ kk_, 
  2068  int_4 _p_ id_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ inppv_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ ierr_);
  2069  prototype real_4 _ppgsf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_);
  2070  prototype real_4 _pppsf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_);
  2071  prototype real_4 _ppsgf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_);
  2072  prototype real_4 _ppspf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_);
  2073  prototype int_4 _proc (int_4 _p_ nd_, real_4 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, 
  2074  int_4 _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, 
  2075  complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ w_, complex_8 _p_ u_);
  2076  prototype int_4 _procp (int_4 _p_ nd_, real_4 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_
  2077  , int_4 _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, 
  2078  complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ u_, complex_8 _p_ w_);
  2079  prototype int_4 _prod (int_4 _p_ nd_, real_4 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, 
  2080  int_4 _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, 
  2081  real_4 _p_ d_, real_4 _p_ w_, real_4 _p_ u_);
  2082  prototype int_4 _prodp (int_4 _p_ nd_, real_4 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_
  2083  , int_4 _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ 
  2084  c_, real_4 _p_ d_, real_4 _p_ u_, real_4 _p_ w_);
  2085  prototype real_4 _prvec (int_4 _p_ m_, real_4 _p_ u_, real_4 _p_ v_);
  2086  prototype int_4 _prwpge (int_4 _p_ key_, int_4 _p_ ipage_, int_4 _p_ lpg_, real_4 _p_ sx_, int_4 _p_ ix_);
  2087  prototype int_4 _prwvir (int_4 _p_ key_, int_4 _p_ ipage_, int_4 _p_ lpg_, real_4 _p_ sx_, int_4 _p_ ix_);
  2088  prototype real_4 _psgf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_);
  2089  prototype int_4 _psifn (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_4 _p_ ans_, int_4 _p_ nz_, 
  2090  int_4 _p_ ierr_);
  2091  prototype real_4 _psixn (int_4 _p_ n_);
  2092  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00044
  2093  
  2094  prototype int_4 _pvalue (int_4 _p_ l_, int_4 _p_ nder_, real_4 _p_ x_, real_4 _p_ yfit_, real_4 _p_ yp_, real_4 _p_ a_)
  2095  ;
  2096  prototype real_4 _pythag (real_4 _p_ a_, real_4 _p_ b_);
  2097  prototype int_4 _rc3jj (real_4 _p_ l2_, real_4 _p_ l3_, real_4 _p_ m2_, real_4 _p_ m3_, real_4 _p_ l1min_, real_4 _p_ 
  2098  l1max_, real_4 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_);
  2099  prototype int_4 _rc3jm (real_4 _p_ l1_, real_4 _p_ l2_, real_4 _p_ l3_, real_4 _p_ m1_, real_4 _p_ m2min_, real_4 _p_ 
  2100  m2max_, real_4 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_);
  2101  prototype int_4 _rc6j (real_4 _p_ l2_, real_4 _p_ l3_, real_4 _p_ l4_, real_4 _p_ l5_, real_4 _p_ l6_, real_4 _p_ 
  2102  l1min_, real_4 _p_ l1max_, real_4 _p_ sixcof_, int_4 _p_ ndim_, int_4 _p_ ier_);
  2103  prototype real_4 _rc (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ ier_);
  2104  prototype real_4 _rd (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ z_, int_4 _p_ ier_);
  2105  prototype int_4 _reort (int_4 _p_ ncomp_, real_4 _p_ y_, real_4 _p_ yp_, real_4 _p_ yhp_, int_4 _p_ niv_, real_4 _p_ w_
  2106  , real_4 _p_ s_, real_4 _p_ p_, int_4 _p_ ip_, real_4 _p_ stowa_, int_4 _p_ iflag_);
  2107  prototype real_4 _rf (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ z_, int_4 _p_ ier_);
  2108  prototype real_4 _rj (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ z_, real_4 _p_ p_, int_4 _p_ ier_);
  2109  prototype int_4 _rpqr79 (int_4 _p_ ndeg_, real_4 _p_ coeff_, complex_8 _p_ root_, int_4 _p_ ierr_, real_4 _p_ work_);
  2110  prototype int_4 _rpzero (int_4 _p_ n_, real_4 _p_ a_, complex_8 _p_ r_, complex_8 _p_ t_, int_4 _p_ iflg_, real_4 _p_ 
  2111  s_);
  2112  prototype int_4 _s1merg (real_4 _p_ tcos_, int_4 _p_ i1_, int_4 _p_ m1_, int_4 _p_ i2_, int_4 _p_ m2_, int_4 _p_ i3_);
  2113  prototype int_4 _sbocls (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mcon_, int_4 _p_ mrows_, int_4 _p_ ncols_, real_4 _p_ 
  2114  bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_4 _p_ x_, real_4 _p_ rnormc_, real_4 _p_ rnorm_, int_4 _p_ 
  2115  mode_, real_4 _p_ rw_, int_4 _p_ iw_);
  2116  prototype int_4 _sbols (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mrows_, int_4 _p_ ncols_, real_4 _p_ bl_, real_4 _p_ 
  2117  bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, real_4 _p_ rw_, int_4 _p_ iw_)
  2118  ;
  2119  prototype int_4 _sbolsm (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ minput_, int_4 _p_ ncols_, real_4 _p_ bl_, real_4 _p_ 
  2120  bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, real_4 _p_ rw_, real_4 _p_ ww_
  2121  , real_4 _p_ scl_, int_4 _p_ ibasis_, int_4 _p_ ibb_);
  2122  prototype int_4 _sclosm (int_4 _p_ ipage_);
  2123  prototype int_4 _scoef (real_4 _p_ yh_, real_4 _p_ yp_, int_4 _p_ ncomp_, int_4 _p_ nrowb_, int_4 _p_ nfc_, int_4 _p_ 
  2124  nic_, real_4 _p_ b_, real_4 _p_ beta_, real_4 _p_ coef_, int_4 _p_ inhomo_, real_4 _p_ re_, real_4 _p_ ae_, real_4 _p_ 
  2125  by_, real_4 _p_ cvec_, real_4 _p_ work_, int_4 _p_ iwork_, int_4 _p_ iflag_, int_4 _p_ nfcc_);
  2126  prototype int_4 _scov (int_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, 
  2127  real_4 _p_ r_, int_4 _p_ ldr_, int_4 _p_ info_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_);
  2128  prototype int_4 _sgeev (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ v_, int_4 _p_ ldv_, 
  2129  real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ info_);
  2130  prototype int_4 _sgefs (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
  2131  real_4 _p_ work_, int_4 _p_ iwork_);
  2132  prototype int_4 _sgeir (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
  2133  real_4 _p_ work_, int_4 _p_ iwork_);
  2134  prototype int_4 _sglss (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 
  2135  _p_ nb_, real_4 _p_ rnorm_, real_4 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_);
  2136  prototype int_4 _snbco (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
  2137  real_4 _p_ rcond_, real_4 _p_ z_);
  2138  prototype int_4 _snbdi (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
  2139  real_4 _p_ det_);
  2140  prototype int_4 _snbfa (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
  2141  int_4 _p_ info_);
  2142  prototype int_4 _snbfs (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, real_4 _p_ v_, 
  2143  int_4 _p_ itask_, int_4 _p_ ind_, real_4 _p_ work_, int_4 _p_ iwork_);
  2144  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00045
  2145  
  2146  prototype int_4 _snbir (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, real_4 _p_ v_, 
  2147  int_4 _p_ itask_, int_4 _p_ ind_, real_4 _p_ work_, int_4 _p_ iwork_);
  2148  prototype int_4 _snbsl (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
  2149  real_4 _p_ b_, int_4 _p_ job_);
  2150  prototype int_4 _snls1e (real_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_
  2151  , real_4 _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ iw_, real_4 _p_ wa_, int_4 _p_ lwa_);
  2152  prototype int_4 _snls1 (int_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, 
  2153  real_4 _p_ fjac_, int_4 _p_ ldfjac_, real_4 _p_ ftol_, real_4 _p_ xtol_, real_4 _p_ gtol_, int_4 _p_ maxfev_, real_4 
  2154  _p_ epsfcn_, real_4 _p_ diag_, int_4 _p_ mode_, real_4 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_
  2155  , int_4 _p_ njev_, int_4 _p_ ipvt_, real_4 _p_ qtf_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_
  2156  );
  2157  prototype int_4 _snsqe (real_4 (*_fcn)(), int_4 (*_jac)(), int_4 _p_ iopt_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ 
  2158  fvec_, real_4 _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, real_4 _p_ wa_, int_4 _p_ lwa_);
  2159  prototype int_4 _snsq (int_4 (*_fcn)(), int_4 (*_jac)(), int_4 _p_ iopt_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_
  2160  , real_4 _p_ fjac_, int_4 _p_ ldfjac_, real_4 _p_ xtol_, int_4 _p_ maxfev_, int_4 _p_ ml_, int_4 _p_ mu_, real_4 _p_ 
  2161  epsfcn_, real_4 _p_ diag_, int_4 _p_ mode_, real_4 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_, 
  2162  int_4 _p_ njev_, real_4 _p_ r_, int_4 _p_ lr_, real_4 _p_ qtf_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, 
  2163  real_4 _p_ wa4_);
  2164  prototype int_4 _sods (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ b_, int_4 _p_ neq_, int_4 _p_ nuk_, int_4 _p_ nrda_, 
  2165  int_4 _p_ iflag_, real_4 _p_ work_, int_4 _p_ iwork_);
  2166  prototype int_4 _sopenm (int_4 _p_ ipage_, int_4 _p_ lpage_);
  2167  prototype int_4 _soseqs (real_4 (*_fnc)(), int_4 _p_ n_, real_4 _p_ s_, real_4 _p_ rtolx_, real_4 _p_ atolx_, real_4 
  2168  _p_ tolf_, int_4 _p_ iflag_, int_4 _p_ mxit_, int_4 _p_ ncjs_, int_4 _p_ nsrrc_, int_4 _p_ nsri_, int_4 _p_ iprint_, 
  2169  real_4 _p_ fmax_, real_4 _p_ c_, int_4 _p_ nc_, real_4 _p_ b_, real_4 _p_ p_, real_4 _p_ temp_, real_4 _p_ x_, real_4 
  2170  _p_ y_, real_4 _p_ fac_, int_4 _p_ is_);
  2171  prototype int_4 _sos (real_4 (*_fnc)(), int_4 _p_ neq_, real_4 _p_ x_, real_4 _p_ rtolx_, real_4 _p_ atolx_, real_4 _p_ 
  2172  tolf_, int_4 _p_ iflag_, real_4 _p_ rw_, int_4 _p_ lrw_, int_4 _p_ iw_, int_4 _p_ liw_);
  2173  prototype int_4 _sossol (int_4 _p_ k_, int_4 _p_ n_, int_4 _p_ l_, real_4 _p_ x_, real_4 _p_ c_, real_4 _p_ b_, int_4 
  2174  _p_ m_);
  2175  prototype int_4 _speli4 (int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ 
  2176  bda_, real_4 _p_ alpha_, real_4 _p_ bdb_, real_4 _p_ beta_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ 
  2177  nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, int_4 (*_cofx)(), real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ 
  2178  dn_, real_4 _p_ un_, real_4 _p_ zn_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ dm_, real_4 _p_ um_, 
  2179  real_4 _p_ zm_, real_4 _p_ grhs_, real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ w_, real_4 _p_ pertrb_, int_4 _p_ 
  2180  ierror_);
  2181  prototype int_4 _spelip (int_4 _p_ intl_, int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ 
  2182  mbdcnd_, real_4 _p_ bda_, real_4 _p_ alpha_, real_4 _p_ bdb_, real_4 _p_ beta_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ 
  2183  n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ gama_, real_4 _p_ bdd_, real_4 _p_ xnu_, int_4 (*_cofx)(), int_4 
  2184  (*_cofy)(), real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ dn_, real_4 _p_ un_, real_4 _p_ zn_, real_4 _p_ 
  2185  am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ dm_, real_4 _p_ um_, real_4 _p_ zm_, real_4 _p_ grhs_, real_4 _p_ usol_
  2186  , int_4 _p_ idmn_, real_4 _p_ w_, real_4 _p_ pertrb_, int_4 _p_ ierror_);
  2187  prototype int_4 _spincw (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ npp_, int_4 _p_ 
  2188  jstrt_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ 
  2189  ibb_, real_4 _p_ costsc_, real_4 _p_ gg_, real_4 _p_ erdnrm_, real_4 _p_ dulnrm_, real_4 _p_ amat_, real_4 _p_ basmat_, 
  2190  real_4 _p_ csc_, real_4 _p_ wr_, real_4 _p_ ww_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 _p_ costs_, real_4 _p_ colnrm_, 
  2191  real_4 _p_ duals_, logical_4 _p_ stpedg_);
  2192  prototype int_4 _spinit (int_4 _p_ mrelas_, int_4 _p_ nvars_, real_4 _p_ costs_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 
  2193  _p_ ind_, real_4 _p_ primal_, int_4 _p_ info_, real_4 _p_ amat_, real_4 _p_ csc_, real_4 _p_ costsc_, real_4 _p_ 
  2194  colnrm_, real_4 _p_ xlamda_, real_4 _p_ anorm_, real_4 _p_ rhs_, real_4 _p_ rhsnrm_, int_4 _p_ ibasis_, int_4 _p_ ibb_, 
  2195  int_4 _p_ imat_, logical_4 _p_ lopt_);
  2196  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00046
  2197  
  2198  prototype int_4 _splpce (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ itlp_, int_4 
  2199  _p_ itbrc_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 
  2200  _p_ ibb_, real_4 _p_ erdnrm_, real_4 _p_ eps_, real_4 _p_ tune_, real_4 _p_ gg_, real_4 _p_ amat_, real_4 _p_ basmat_, 
  2201  real_4 _p_ csc_, real_4 _p_ wr_, real_4 _p_ ww_, real_4 _p_ primal_, real_4 _p_ erd_, real_4 _p_ erp_, logical_4 _p_ 
  2202  singlr_, logical_4 _p_ redbas_);
  2203  prototype int_4 _splpdm (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ nredc_, int_4 
  2204  _p_ info_, int_4 _p_ iopt_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 
  2205  _p_ ind_, int_4 _p_ ibb_, real_4 _p_ anorm_, real_4 _p_ eps_, real_4 _p_ uu_, real_4 _p_ gg_, real_4 _p_ amat_, real_4 
  2206  _p_ basmat_, real_4 _p_ csc_, real_4 _p_ wr_, logical_4 _p_ singlr_, logical_4 _p_ redbas_);
  2207  prototype int_4 _splp (real_4 (*_usrmat)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_4 _p_ costs_, real_4 _p_ prgopt_, 
  2208  real_4 _p_ dattrv_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_4 _p_ primal_, real_4 _p_ 
  2209  duals_, int_4 _p_ ibasis_, real_4 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_);
  2210  prototype int_4 _splpfe (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ ienter_, int_4 
  2211  _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_4 
  2212  _p_ erdnrm_, real_4 _p_ eps_, real_4 _p_ gg_, real_4 _p_ dulnrm_, real_4 _p_ dirnrm_, real_4 _p_ amat_, real_4 _p_ 
  2213  basmat_, real_4 _p_ csc_, real_4 _p_ wr_, real_4 _p_ ww_, real_4 _p_ bl_, real_4 _p_ bu_, real_4 _p_ rz_, real_4 _p_ 
  2214  rg_, real_4 _p_ colnrm_, real_4 _p_ duals_, logical_4 _p_ found_);
  2215  prototype int_4 _splpfl (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ ibasis_, 
  2216  int_4 _p_ ind_, int_4 _p_ ibb_, real_4 _p_ theta_, real_4 _p_ dirnrm_, real_4 _p_ rprnrm_, real_4 _p_ csc_, real_4 _p_ 
  2217  ww_, real_4 _p_ bl_, real_4 _p_ bu_, real_4 _p_ erp_, real_4 _p_ rprim_, real_4 _p_ primal_, logical_4 _p_ finite_, 
  2218  logical_4 _p_ zerolv_);
  2219  prototype int_4 _splpmn (real_4 (*_usrmat)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_4 _p_ costs_, real_4 _p_ 
  2220  prgopt_, real_4 _p_ dattrv_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_4 _p_ primal_, 
  2221  real_4 _p_ duals_, real_4 _p_ amat_, real_4 _p_ csc_, real_4 _p_ colnrm_, real_4 _p_ erd_, real_4 _p_ erp_, real_4 _p_ 
  2222  basmat_, real_4 _p_ wr_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 _p_ rprim_, real_4 _p_ rhs_, real_4 _p_ ww_, int_4 _p_ 
  2223  lmx_, int_4 _p_ lbm_, int_4 _p_ ibasis_, int_4 _p_ ibb_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ 
  2224  iwr_);
  2225  prototype int_4 _splpmu (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ nredc_, int_4 
  2226  _p_ info_, int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ iopt_, int_4 _p_ npp_, int_4 _p_ jstrt_, int_4 _p_ ibasis_, 
  2227  int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_4 _p_ anorm_, 
  2228  real_4 _p_ eps_, real_4 _p_ uu_, real_4 _p_ gg_, real_4 _p_ rprnrm_, real_4 _p_ erdnrm_, real_4 _p_ dulnrm_, real_4 _p_ 
  2229  theta_, real_4 _p_ costsc_, real_4 _p_ xlamda_, real_4 _p_ rhsnrm_, real_4 _p_ amat_, real_4 _p_ basmat_, real_4 _p_ 
  2230  csc_, real_4 _p_ wr_, real_4 _p_ rprim_, real_4 _p_ ww_, real_4 _p_ bu_, real_4 _p_ bl_, real_4 _p_ rhs_, real_4 _p_ 
  2231  erd_, real_4 _p_ erp_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 _p_ colnrm_, real_4 _p_ costs_, real_4 _p_ primal_, 
  2232  real_4 _p_ duals_, logical_4 _p_ singlr_, logical_4 _p_ redbas_, logical_4 _p_ zerolv_, logical_4 _p_ stpedg_);
  2233  prototype int_4 _splpup (int_4 (*_usrmat)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_4 _p_ prgopt_, real_4 _p_ 
  2234  dattrv_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_4 _p_ amat_, int_4 _p_ imat_, logical_4 
  2235  _p_ sizeup_, real_4 _p_ asmall_, real_4 _p_ abig_);
  2236  prototype int_4 _spofs (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
  2237  real_4 _p_ work_);
  2238  prototype int_4 _spoir (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
  2239  real_4 _p_ work_);
  2240  prototype int_4 _spopt (real_4 _p_ prgopt_, int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ info_, real_4 _p_ csc_, 
  2241  int_4 _p_ ibasis_, real_4 _p_ ropt_, int_4 _p_ intopt_, logical_4 _p_ lopt_);
  2242  prototype int_4 _spperm (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ ier_);
  2243  prototype int_4 _spsort (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ kflag_, int_4 _p_ ier_);
  2244  prototype int_4 _sreadp (int_4 _p_ ipage_, int_4 _p_ list_, real_4 _p_ rlist_, int_4 _p_ lpage_, int_4 _p_ irec_);
  2245  prototype int_4 _ssiev (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ work_, int_4 _p_ job_, 
  2246  int_4 _p_ info_);
  2247  prototype int_4 _ssort (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ n_, int_4 _p_ kflag_);
  2248  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00047
  2249  
  2250  prototype int_4 _stor1 (real_4 _p_ u_, real_4 _p_ yh_, real_4 _p_ v_, real_4 _p_ yp_, int_4 _p_ ntemp_, int_4 _p_ 
  2251  ndisk_, int_4 _p_ ntape_);
  2252  prototype int_4 _stway (real_4 _p_ u_, real_4 _p_ v_, real_4 _p_ yhp_, int_4 _p_ inout_, real_4 _p_ stowa_);
  2253  prototype int_4 _suds (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ b_, int_4 _p_ neq_, int_4 _p_ nuk_, int_4 _p_ nrda_, 
  2254  int_4 _p_ iflag_, int_4 _p_ mlso_, real_4 _p_ work_, int_4 _p_ iwork_);
  2255  prototype int_4 _svecs (int_4 _p_ ncomp_, int_4 _p_ lnfc_, real_4 _p_ yhp_, real_4 _p_ work_, int_4 _p_ iwork_, int_4 
  2256  _p_ inhomo_, int_4 _p_ iflag_);
  2257  prototype int_4 _swritp (int_4 _p_ ipage_, int_4 _p_ list_, real_4 _p_ rlist_, int_4 _p_ lpage_, int_4 _p_ irec_);
  2258  prototype int_4 _tevlc (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e2_, int_4 _p_ ierr_);
  2259  prototype int_4 _tevls (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e2_, int_4 _p_ ierr_);
  2260  prototype int_4 _tri3 (int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, int_4 _p_ k_, real_4 _p_ y1_, real_4 
  2261  _p_ y2_, real_4 _p_ y3_, real_4 _p_ tcos_, real_4 _p_ d_, real_4 _p_ w1_, real_4 _p_ w2_, real_4 _p_ w3_);
  2262  prototype int_4 _tridq (int_4 _p_ mr_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ y_, real_4 _p_ d_);
  2263  prototype int_4 _tris4 (int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ u_, real_4 
  2264  _p_ z_);
  2265  prototype int_4 _trisp (int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ u_, real_4 
  2266  _p_ z_);
  2267  prototype int_4 _trix (int_4 _p_ idegbr_, int_4 _p_ idegcr_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, 
  2268  real_4 _p_ y_, real_4 _p_ tcos_, real_4 _p_ d_, real_4 _p_ w_);
  2269  prototype int_4 _u11ls (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ ub_, real_4 _p_ db_, 
  2270  int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_4 _p_ h_, real_4 _p_ w_, real_4 _p_ eb_, int_4 
  2271  _p_ ic_, int_4 _p_ ir_);
  2272  prototype int_4 _u11us (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ ub_, real_4 _p_ db_, 
  2273  int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_4 _p_ h_, real_4 _p_ w_, real_4 _p_ eb_, int_4 
  2274  _p_ ir_, int_4 _p_ ic_);
  2275  prototype int_4 _u12ls (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 
  2276  _p_ nb_, int_4 _p_ mode_, int_4 _p_ krank_, real_4 _p_ rnorm_, real_4 _p_ h_, real_4 _p_ w_, int_4 _p_ ic_, int_4 _p_ 
  2277  ir_);
  2278  prototype int_4 _u12us (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 
  2279  _p_ nb_, int_4 _p_ mode_, int_4 _p_ krank_, real_4 _p_ rnorm_, real_4 _p_ h_, real_4 _p_ w_, int_4 _p_ ir_, int_4 _p_ 
  2280  ic_);
  2281  prototype int_4 _ulsia (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 
  2282  _p_ nb_, real_4 _p_ re_, real_4 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ 
  2283  ksure_, real_4 _p_ rnorm_, real_4 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_);
  2284  prototype int_4 _usrmat (int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ aij_, int_4 _p_ indcat_, real_4 _p_ prgopt_, real_4 _p_ 
  2285  dattrv_, int_4 _p_ iflag_);
  2286  prototype real_4 _vnwrms (int_4 _p_ n_, real_4 _p_ v_, real_4 _p_ w_);
  2287  prototype int_4 _wnlit (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ l_, int_4 _p_ ipivot_, 
  2288  int_4 _p_ itype_, real_4 _p_ h_, real_4 _p_ scale_, real_4 _p_ rnorm_, int_4 _p_ idope_, real_4 _p_ dope_, logical_4 
  2289  _p_ done_);
  2290  prototype int_4 _wnlsm (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mme_, int_4 _p_ ma_, int_4 _p_ n_, int_4 _p_ l_, 
  2291  real_4 _p_ prgopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ ipivot_, int_4 _p_ itype_, real_4 _p_ 
  2292  wd_, real_4 _p_ h_, real_4 _p_ scale_, real_4 _p_ z_, real_4 _p_ temp_, real_4 _p_ d_);
  2293  prototype int_4 _wnlt1 (int_4 _p_ i_, int_4 _p_ lend_, int_4 _p_ mend_, int_4 _p_ ir_, int_4 _p_ mdw_, logical_4 _p_ 
  2294  recalc_, int_4 _p_ imax_, real_4 _p_ hbar_, real_4 _p_ h_, real_4 _p_ scale_, real_4 _p_ w_);
  2295  prototype logical_4 _wnlt2 (int_4 _p_ me_, int_4 _p_ mend_, int_4 _p_ ir_, real_4 _p_ factor_, real_4 _p_ tau_, real_4 
  2296  _p_ scale_, real_4 _p_ wic_);
  2297  prototype int_4 _wnlt3 (int_4 _p_ i_, int_4 _p_ imax_, int_4 _p_ m_, int_4 _p_ mdw_, int_4 _p_ ipivot_, real_4 _p_ h_, 
  2298  real_4 _p_ w_);
  2299  prototype int_4 _wnnls (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ me_, int_4 _p_ ma_, int_4 _p_ n_, int_4 _p_ l_, real_4 
  2300  // VIF  THU 20 NOV 2025 22:21:23  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00048
  2301  
  2302  _p_ prgopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ iwork_, real_4 _p_ work_);
  2303  prototype int_4 _xadj (real_4 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_);
  2304  prototype int_4 _xc210 (int_4 _p_ k_, real_4 _p_ z_, int_4 _p_ j_, int_4 _p_ ierror_);
  2305  prototype real_4 _xpsi (real_4 _p_ a_, int_4 _p_ ipsik_, int_4 _p_ ipsix_);
  2306  prototype int_4 _xred (real_4 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_);
  2307  prototype int_4 _yairy (real_4 _p_ x_, real_4 _p_ rx_, real_4 _p_ c_, real_4 _p_ bi_, real_4 _p_ dbi_);
  2308  
  2309  
  2310  
  2311  
  2312  
  2313  
  2314  
  2315  
  2316  
  2317  
  2318  
  2319  
  2320  
  2321  // VIF  THU 20 NOV 2025 22:21:23  ** AAAAAA                       ** AAAAAA                                           PAGE 00049
  2322  
  2323  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2324  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2325  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2326  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2327  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2328  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2329  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2330  
  2331  //                                      A       A       A       A       A       A
  2332  //                                     A A     A A     A A     A A     A A     A A
  2333  //                                    A   A   A   A   A   A   A   A   A   A   A   A
  2334  //                                   A     A A     A A     A A     A A     A A     A
  2335  //                                   AAAAAAA AAAAAAA AAAAAAA AAAAAAA AAAAAAA AAAAAAA
  2336  //                                   A     A A     A A     A A     A A     A A     A
  2337  //                                   A     A A     A A     A A     A A     A A     A
  2338  
  2339  
  2340  // VIF  THU 20 NOV 2025 22:21:23  ** AAAAAA                       ** DIAGNOSTICS                                      PAGE 00050
  2341  
  2342  
  2343  // VIF  THU 20 NOV 2025 22:21:23  ** AAAAAA                       ** GENERATED CODE                                   PAGE 00051
  2344  
  2345  int_4 _aaaaaa (char _p_ ver_)
  2346  { // ** body not listed **
  2350  }
  2351  
  2352  // VIF  THU 20 NOV 2025 22:21:23  ** ASYIK                        ** ASYIK                                            PAGE 00052
  2353  
  2354  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2355  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2356  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2357  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2358  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2359  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2360  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2361  
  2362  //                                           A     SSSSS  Y     Y   III   K    K
  2363  //                                          A A   S     S  Y   Y     I    K   K
  2364  //                                         A   A  S         Y Y      I    K  K
  2365  //                                        A     A  SSSSS     Y       I    KKK
  2366  //                                        AAAAAAA       S    Y       I    K  K
  2367  //                                        A     A S     S    Y       I    K   K
  2368  //                                        A     A  SSSSS     Y      III   K    K
  2369  
  2370  
  2371  // VIF  THU 20 NOV 2025 22:21:23  ** ASYIK                        ** DIAGNOSTICS                                      PAGE 00053
  2372  
  2373  
  2374  // VIF  THU 20 NOV 2025 22:21:23  ** ASYIK                        ** GENERATED CODE                                   PAGE 00054
  2375  
  2376  int_4 _asyik (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ kode_, real_4 _p_ flgik_, real_4 _p_ ra_, real_4 _p_ arg_, 
  2377  int_4 _p_ in_, real_4 _p_ y_)
  2378  { // ** body not listed **
  2872  }
  2873  
  2874  // VIF  THU 20 NOV 2025 22:21:23  ** ASYJY                        ** ASYJY                                            PAGE 00064
  2875  
  2876  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2877  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2878  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2879  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2880  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2881  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2882  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2883  
  2884  //                                          A     SSSSS  Y     Y       J Y     Y
  2885  //                                         A A   S     S  Y   Y        J  Y   Y
  2886  //                                        A   A  S         Y Y         J   Y Y
  2887  //                                       A     A  SSSSS     Y          J    Y
  2888  //                                       AAAAAAA       S    Y    J     J    Y
  2889  //                                       A     A S     S    Y    J     J    Y
  2890  //                                       A     A  SSSSS     Y     JJJJJ     Y
  2891  
  2892  
  2893  // VIF  THU 20 NOV 2025 22:21:23  ** ASYJY                        ** DIAGNOSTICS                                      PAGE 00065
  2894  
  2895  
  2896  // VIF  THU 20 NOV 2025 22:21:23  ** ASYJY                        ** GENERATED CODE                                   PAGE 00066
  2897  
  2898  int_4 _asyjy (int_4 (*_funjy)(), real_4 _p_ x_, real_4 _p_ fnu_, real_4 _p_ flgjy_, int_4 _p_ in_, real_4 _p_ y_, 
  2899  real_4 _p_ wk_, int_4 _p_ iflw_)
  2900  { // ** body not listed **
  5423  }
  5424  
  5425  // VIF  THU 20 NOV 2025 22:21:23  ** AVINT                        ** AVINT                                            PAGE 00115
  5426  
  5427  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5428  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5429  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5430  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5431  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5432  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5433  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5434  
  5435  //                                          A    V     V   III   N     N TTTTTTT
  5436  //                                         A A   V     V    I    NN    N    T
  5437  //                                        A   A  V     V    I    N N   N    T
  5438  //                                       A     A V     V    I    N  N  N    T
  5439  //                                       AAAAAAA  V   V     I    N   N N    T
  5440  //                                       A     A   V V      I    N    NN    T
  5441  //                                       A     A    V      III   N     N    T
  5442  
  5443  
  5444  // VIF  THU 20 NOV 2025 22:21:23  ** AVINT                        ** DIAGNOSTICS                                      PAGE 00116
  5445  
  5446  
  5447  // VIF  THU 20 NOV 2025 22:21:23  ** AVINT                        ** GENERATED CODE                                   PAGE 00117
  5448  
  5449  int_4 _avint (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ n_, real_4 _p_ xlo_, real_4 _p_ xup_, real_4 _p_ ans_, int_4 _p_ 
  5450  ierr_)
  5451  { // ** body not listed **
  5601  }
  5602  
  5603  // VIF  THU 20 NOV 2025 22:21:23  ** BCRH                         ** BCRH                                             PAGE 00120
  5604  
  5605  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  5606  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  5607  //                           F       U     U N N   N C          T       I    O     O N N   N
  5608  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  5609  //                           F       U     U N   N N C          T       I    O     O N   N N
  5610  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  5611  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  5612  
  5613  //                                           BBBBBB   CCCCC  RRRRRR  H     H
  5614  //                                           B     B C     C R     R H     H
  5615  //                                           B     B C       R     R H     H
  5616  //                                           BBBBBB  C       RRRRRR  HHHHHHH
  5617  //                                           B     B C       R   R   H     H
  5618  //                                           B     B C     C R    R  H     H
  5619  //                                           BBBBBB   CCCCC  R     R H     H
  5620  
  5621  
  5622  // VIF  THU 20 NOV 2025 22:21:23  ** BCRH                         ** DIAGNOSTICS                                      PAGE 00121
  5623  
  5624  
  5625  // VIF  THU 20 NOV 2025 22:21:23  ** BCRH                         ** GENERATED CODE                                   PAGE 00122
  5626  
  5627  real_4 _bcrh (real_4 _p_ xll_, real_4 _p_ xrr_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_, real_4 
  5628  (*_f)(), real_4 _p_ sgn_)
  5629  { // ** body not listed **
  5664  }
  5665  
  5666  
  5667  // VIF  THU 20 NOV 2025 22:21:23  ** BDIFF                        ** BDIFF                                            PAGE 00123
  5668  
  5669  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5670  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5671  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5672  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5673  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5674  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5675  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5676  
  5677  //                                       BBBBBB  DDDDDD    III   FFFFFFF FFFFFFF
  5678  //                                       B     B D     D    I    F       F
  5679  //                                       B     B D     D    I    F       F
  5680  //                                       BBBBBB  D     D    I    FFFFF   FFFFF
  5681  //                                       B     B D     D    I    F       F
  5682  //                                       B     B D     D    I    F       F
  5683  //                                       BBBBBB  DDDDDD    III   F       F
  5684  
  5685  
  5686  // VIF  THU 20 NOV 2025 22:21:23  ** BDIFF                        ** DIAGNOSTICS                                      PAGE 00124
  5687  
  5688  
  5689  // VIF  THU 20 NOV 2025 22:21:23  ** BDIFF                        ** GENERATED CODE                                   PAGE 00125
  5690  
  5691  int_4 _bdiff (int_4 _p_ l_, real_4 _p_ v_)
  5692  { // ** body not listed **
  5707  }
  5708  
  5709  // VIF  THU 20 NOV 2025 22:21:23  ** BKSOL                        ** BKSOL                                            PAGE 00126
  5710  
  5711  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5712  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5713  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5714  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5715  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5716  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5717  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5718  
  5719  //                                       BBBBBB  K    K   SSSSS   OOOOO  L
  5720  //                                       B     B K   K   S     S O     O L
  5721  //                                       B     B K  K    S       O     O L
  5722  //                                       BBBBBB  KKK      SSSSS  O     O L
  5723  //                                       B     B K  K          S O     O L
  5724  //                                       B     B K   K   S     S O     O L
  5725  //                                       BBBBBB  K    K   SSSSS   OOOOO  LLLLLLL
  5726  
  5727  
  5728  // VIF  THU 20 NOV 2025 22:21:23  ** BKSOL                        ** DIAGNOSTICS                                      PAGE 00127
  5729  
  5730  
  5731  // VIF  THU 20 NOV 2025 22:21:23  ** BKSOL                        ** GENERATED CODE                                   PAGE 00128
  5732  
  5733  int_4 _bksol (int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ x_)
  5734  { // ** body not listed **
  5751  }
  5752  
  5753  // VIF  THU 20 NOV 2025 22:21:23  ** BLKTR1                       ** BLKTR1                                           PAGE 00129
  5754  
  5755  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5756  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5757  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5758  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5759  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5760  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5761  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5762  
  5763  //                                    BBBBBB  L       K    K  TTTTTTT RRRRRR     1
  5764  //                                    B     B L       K   K      T    R     R   11
  5765  //                                    B     B L       K  K       T    R     R  1 1
  5766  //                                    BBBBBB  L       KKK        T    RRRRRR     1
  5767  //                                    B     B L       K  K       T    R   R      1
  5768  //                                    B     B L       K   K      T    R    R     1
  5769  //                                    BBBBBB  LLLLLLL K    K     T    R     R  11111
  5770  
  5771  
  5772  // VIF  THU 20 NOV 2025 22:21:23  ** BLKTR1                       ** DIAGNOSTICS                                      PAGE 00130
  5773  
  5774  
  5775  // VIF  THU 20 NOV 2025 22:21:23  ** BLKTR1                       ** GENERATED CODE                                   PAGE 00131
  5776  
  5777  int_4 _blktr1 (int_4 _p_ n_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, int_4 _p_ m_, real_4 _p_ am_, real_4 _p_ 
  5778  bm_, real_4 _p_ cm_, int_4 _p_ idimy_, real_4 _p_ y_, real_4 _p_ b_, real_4 _p_ w1_, real_4 _p_ w2_, real_4 _p_ w3_, 
  5779  real_4 _p_ wd_, real_4 _p_ ww_, real_4 _p_ wu_, int_4 (*_prdct)(), int_4 (*_cprdct)())
  5780  { // ** body not listed **
  6125  }
  6126  
  6127  // VIF  THU 20 NOV 2025 22:21:23  ** BNDACC                       ** BNDACC                                           PAGE 00138
  6128  
  6129  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6130  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6131  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6132  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6133  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6134  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6135  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6136  
  6137  //                                   BBBBBB  N     N DDDDDD     A     CCCCC   CCCCC
  6138  //                                   B     B NN    N D     D   A A   C     C C     C
  6139  //                                   B     B N N   N D     D  A   A  C       C
  6140  //                                   BBBBBB  N  N  N D     D A     A C       C
  6141  //                                   B     B N   N N D     D AAAAAAA C       C
  6142  //                                   B     B N    NN D     D A     A C     C C     C
  6143  //                                   BBBBBB  N     N DDDDDD  A     A  CCCCC   CCCCC
  6144  
  6145  
  6146  // VIF  THU 20 NOV 2025 22:21:23  ** BNDACC                       ** DIAGNOSTICS                                      PAGE 00139
  6147  
  6148  
  6149  // VIF  THU 20 NOV 2025 22:21:23  ** BNDACC                       ** GENERATED CODE                                   PAGE 00140
  6150  
  6151  int_4 _bndacc (real_4 _p_ g_, int_4 _p_ mdg_, int_4 _p_ nb_, int_4 _p_ ip_, int_4 _p_ ir_, int_4 _p_ mt_, int_4 _p_ jt_
  6152  )
  6153  { // ** body not listed **
  6231  }
  6232  
  6233  // VIF  THU 20 NOV 2025 22:21:23  ** BNDSOL                       ** BNDSOL                                           PAGE 00142
  6234  
  6235  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6236  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6237  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6238  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6239  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6240  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6241  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6242  
  6243  //                                   BBBBBB  N     N DDDDDD   SSSSS   OOOOO  L
  6244  //                                   B     B NN    N D     D S     S O     O L
  6245  //                                   B     B N N   N D     D S       O     O L
  6246  //                                   BBBBBB  N  N  N D     D  SSSSS  O     O L
  6247  //                                   B     B N   N N D     D       S O     O L
  6248  //                                   B     B N    NN D     D S     S O     O L
  6249  //                                   BBBBBB  N     N DDDDDD   SSSSS   OOOOO  LLLLLLL
  6250  
  6251  
  6252  // VIF  THU 20 NOV 2025 22:21:23  ** BNDSOL                       ** DIAGNOSTICS                                      PAGE 00143
  6253  
  6254  
  6255  // VIF  THU 20 NOV 2025 22:21:23  ** BNDSOL                       ** GENERATED CODE                                   PAGE 00144
  6256  
  6257  int_4 _bndsol (int_4 _p_ mode_, real_4 _p_ g_, int_4 _p_ mdg_, int_4 _p_ nb_, int_4 _p_ ip_, int_4 _p_ ir_, real_4 _p_ 
  6258  x_, int_4 _p_ n_, real_4 _p_ rnorm_)
  6259  { // ** body not listed **
  6349  }
  6350  
  6351  // VIF  THU 20 NOV 2025 22:21:23  ** BSGQ8                        ** BSGQ8                                            PAGE 00146
  6352  
  6353  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6354  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6355  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6356  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6357  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6358  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6359  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6360  
  6361  //                                       BBBBBB   SSSSS   GGGGG   QQQQQ   88888
  6362  //                                       B     B S     S G     G Q     Q 8     8
  6363  //                                       B     B S       G       Q     Q 8     8
  6364  //                                       BBBBBB   SSSSS  G  GGGG Q     Q  88888
  6365  //                                       B     B       S G     G Q   Q Q 8     8
  6366  //                                       B     B S     S G     G Q    Q  8     8
  6367  //                                       BBBBBB   SSSSS   GGGGG   QQQQ Q  88888
  6368  
  6369  
  6370  // VIF  THU 20 NOV 2025 22:21:23  ** BSGQ8                        ** DIAGNOSTICS                                      PAGE 00147
  6371  
  6372  
  6373  // VIF  THU 20 NOV 2025 22:21:23  ** BSGQ8                        ** GENERATED CODE                                   PAGE 00148
  6374  
  6375  int_4 _bsgq8 (real_4 (*_fun)(), real_4 _p_ xt_, real_4 _p_ bc_, int_4 _p_ n_, int_4 _p_ kk_, int_4 _p_ id_, real_4 _p_ 
  6376  a_, real_4 _p_ b_, int_4 _p_ inbv_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ ierr_, real_4 _p_ work_)
  6377  { // ** body not listed **
  6668  }
  6669  
  6670  // VIF  THU 20 NOV 2025 22:21:23  ** BSPLVD                       ** BSPLVD                                           PAGE 00154
  6671  
  6672  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6673  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6674  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6675  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6676  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6677  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6678  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6679  
  6680  //                                   BBBBBB   SSSSS  PPPPPP  L       V     V DDDDDD
  6681  //                                   B     B S     S P     P L       V     V D     D
  6682  //                                   B     B S       P     P L       V     V D     D
  6683  //                                   BBBBBB   SSSSS  PPPPPP  L       V     V D     D
  6684  //                                   B     B       S P       L        V   V  D     D
  6685  //                                   B     B S     S P       L         V V   D     D
  6686  //                                   BBBBBB   SSSSS  P       LLLLLLL    V    DDDDDD
  6687  
  6688  
  6689  // VIF  THU 20 NOV 2025 22:21:23  ** BSPLVD                       ** DIAGNOSTICS                                      PAGE 00155
  6690  
  6691  
  6692  // VIF  THU 20 NOV 2025 22:21:23  ** BSPLVD                       ** GENERATED CODE                                   PAGE 00156
  6693  
  6694  int_4 _bsplvd (real_4 _p_ t_, int_4 _p_ k_, real_4 _p_ x_, int_4 _p_ ileft_, real_4 _p_ vnikx_, int_4 _p_ nderiv_)
  6695  { // ** body not listed **
  6763  }
  6764  
  6765  // VIF  THU 20 NOV 2025 22:21:23  ** BSPLVN                       ** BSPLVN                                           PAGE 00158
  6766  
  6767  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6768  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6769  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6770  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6771  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6772  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6773  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6774  
  6775  //                                   BBBBBB   SSSSS  PPPPPP  L       V     V N     N
  6776  //                                   B     B S     S P     P L       V     V NN    N
  6777  //                                   B     B S       P     P L       V     V N N   N
  6778  //                                   BBBBBB   SSSSS  PPPPPP  L       V     V N  N  N
  6779  //                                   B     B       S P       L        V   V  N   N N
  6780  //                                   B     B S     S P       L         V V   N    NN
  6781  //                                   BBBBBB   SSSSS  P       LLLLLLL    V    N     N
  6782  
  6783  
  6784  // VIF  THU 20 NOV 2025 22:21:23  ** BSPLVN                       ** DIAGNOSTICS                                      PAGE 00159
  6785  
  6786  
  6787  // VIF  THU 20 NOV 2025 22:21:23  ** BSPLVN                       ** GENERATED CODE                                   PAGE 00160
  6788  
  6789  int_4 _bsplvn (real_4 _p_ t_, int_4 _p_ jhigh_, int_4 _p_ index_, real_4 _p_ x_, int_4 _p_ ileft_, real_4 _p_ vnikx_)
  6790  { // ** body not listed **
  6900  }
  6901  
  6902  // VIF  THU 20 NOV 2025 22:21:23  ** BSRH                         ** BSRH                                             PAGE 00163
  6903  
  6904  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  6905  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  6906  //                           F       U     U N N   N C          T       I    O     O N N   N
  6907  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  6908  //                           F       U     U N   N N C          T       I    O     O N   N N
  6909  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  6910  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  6911  
  6912  //                                           BBBBBB   SSSSS  RRRRRR  H     H
  6913  //                                           B     B S     S R     R H     H
  6914  //                                           B     B S       R     R H     H
  6915  //                                           BBBBBB   SSSSS  RRRRRR  HHHHHHH
  6916  //                                           B     B       S R   R   H     H
  6917  //                                           B     B S     S R    R  H     H
  6918  //                                           BBBBBB   SSSSS  R     R H     H
  6919  
  6920  
  6921  // VIF  THU 20 NOV 2025 22:21:23  ** BSRH                         ** DIAGNOSTICS                                      PAGE 00164
  6922  
  6923  
  6924  // VIF  THU 20 NOV 2025 22:21:23  ** BSRH                         ** GENERATED CODE                                   PAGE 00165
  6925  
  6926  real_4 _bsrh (real_4 _p_ xll_, real_4 _p_ xrr_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_, real_4 
  6927  (*_f)(), real_4 _p_ sgn_)
  6928  { // ** body not listed **
  6963  }
  6964  
  6965  
  6966  // VIF  THU 20 NOV 2025 22:21:23  ** C1MERG                       ** C1MERG                                           PAGE 00166
  6967  
  6968  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6969  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6970  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6971  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6972  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6973  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6974  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6975  
  6976  //                                    CCCCC     1    M     M EEEEEEE RRRRRR   GGGGG
  6977  //                                   C     C   11    MM   MM E       R     R G     G
  6978  //                                   C        1 1    M M M M E       R     R G
  6979  //                                   C          1    M  M  M EEEEE   RRRRRR  G  GGGG
  6980  //                                   C          1    M     M E       R   R   G     G
  6981  //                                   C     C    1    M     M E       R    R  G     G
  6982  //                                    CCCCC   11111  M     M EEEEEEE R     R  GGGGG
  6983  
  6984  
  6985  // VIF  THU 20 NOV 2025 22:21:23  ** C1MERG                       ** DIAGNOSTICS                                      PAGE 00167
  6986  
  6987  
  6988  // VIF  THU 20 NOV 2025 22:21:23  ** C1MERG                       ** GENERATED CODE                                   PAGE 00168
  6989  
  6990  int_4 _c1merg (complex_8 _p_ tcos_, int_4 _p_ i1_, int_4 _p_ m1_, int_4 _p_ i2_, int_4 _p_ m2_, int_4 _p_ i3_)
  6991  { // ** body not listed **
  7030  }
  7031  
  7032  // VIF  THU 20 NOV 2025 22:21:23  ** CASYI                        ** CASYI                                            PAGE 00169
  7033  
  7034  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7035  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7036  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7037  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7038  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7039  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7040  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7041  
  7042  //                                         CCCCC     A     SSSSS  Y     Y   III
  7043  //                                        C     C   A A   S     S  Y   Y     I
  7044  //                                        C        A   A  S         Y Y      I
  7045  //                                        C       A     A  SSSSS     Y       I
  7046  //                                        C       AAAAAAA       S    Y       I
  7047  //                                        C     C A     A S     S    Y       I
  7048  //                                         CCCCC  A     A  SSSSS     Y      III
  7049  
  7050  
  7051  // VIF  THU 20 NOV 2025 22:21:23  ** CASYI                        ** DIAGNOSTICS                                      PAGE 00170
  7052  
  7053  
  7054  // VIF  THU 20 NOV 2025 22:21:23  ** CASYI                        ** GENERATED CODE                                   PAGE 00171
  7055  
  7056  int_4 _casyi (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, real_4 
  7057  _p_ rl_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
  7058  { // ** body not listed **
  7223  }
  7224  
  7225  // VIF  THU 20 NOV 2025 22:21:23  ** CBLKT1                       ** CBLKT1                                           PAGE 00175
  7226  
  7227  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7228  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7229  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7230  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7231  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7232  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7233  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7234  
  7235  //                                     CCCCC  BBBBBB  L       K    K  TTTTTTT    1
  7236  //                                    C     C B     B L       K   K      T      11
  7237  //                                    C       B     B L       K  K       T     1 1
  7238  //                                    C       BBBBBB  L       KKK        T       1
  7239  //                                    C       B     B L       K  K       T       1
  7240  //                                    C     C B     B L       K   K      T       1
  7241  //                                     CCCCC  BBBBBB  LLLLLLL K    K     T     11111
  7242  
  7243  
  7244  // VIF  THU 20 NOV 2025 22:21:23  ** CBLKT1                       ** DIAGNOSTICS                                      PAGE 00176
  7245  
  7246  
  7247  // VIF  THU 20 NOV 2025 22:21:23  ** CBLKT1                       ** GENERATED CODE                                   PAGE 00177
  7248  
  7249  int_4 _cblkt1 (int_4 _p_ n_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, int_4 _p_ m_, complex_8 _p_ am_, complex_8 
  7250  _p_ bm_, complex_8 _p_ cm_, int_4 _p_ idimy_, complex_8 _p_ y_, real_4 _p_ b_, complex_8 _p_ w1_, complex_8 _p_ w2_, 
  7251  complex_8 _p_ w3_, complex_8 _p_ wd_, complex_8 _p_ ww_, complex_8 _p_ wu_, int_4 (*_prdct)(), int_4 (*_cprdct)())
  7252  { // ** body not listed **
  7597  }
  7598  
  7599  // VIF  THU 20 NOV 2025 22:21:23  ** CCMPB                        ** CCMPB                                            PAGE 00184
  7600  
  7601  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7602  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7603  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7604  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7605  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7606  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7607  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7608  
  7609  //                                        CCCCC   CCCCC  M     M PPPPPP  BBBBBB
  7610  //                                       C     C C     C MM   MM P     P B     B
  7611  //                                       C       C       M M M M P     P B     B
  7612  //                                       C       C       M  M  M PPPPPP  BBBBBB
  7613  //                                       C       C       M     M P       B     B
  7614  //                                       C     C C     C M     M P       B     B
  7615  //                                        CCCCC   CCCCC  M     M P       BBBBBB
  7616  
  7617  
  7618  // VIF  THU 20 NOV 2025 22:21:23  ** CCMPB                        ** DIAGNOSTICS                                      PAGE 00185
  7619  
  7620  
  7621  // VIF  THU 20 NOV 2025 22:21:23  ** CCMPB                        ** GENERATED CODE                                   PAGE 00186
  7622  
  7623  int_4 _ccmpb (int_4 _p_ n_, int_4 _p_ ierror_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ b_, real_4 
  7624  _p_ ah_, real_4 _p_ bh_)
  7625  { // ** body not listed **
  7789  }
  7790  
  7791  // VIF  THU 20 NOV 2025 22:21:23  ** CFOD                         ** CFOD                                             PAGE 00190
  7792  
  7793  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7794  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7795  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7796  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7797  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7798  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7799  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7800  
  7801  //                                            CCCCC  FFFFFFF  OOOOO  DDDDDD
  7802  //                                           C     C F       O     O D     D
  7803  //                                           C       F       O     O D     D
  7804  //                                           C       FFFFF   O     O D     D
  7805  //                                           C       F       O     O D     D
  7806  //                                           C     C F       O     O D     D
  7807  //                                            CCCCC  F        OOOOO  DDDDDD
  7808  
  7809  
  7810  // VIF  THU 20 NOV 2025 22:21:23  ** CFOD                         ** DIAGNOSTICS                                      PAGE 00191
  7811  
  7812  
  7813  // VIF  THU 20 NOV 2025 22:21:23  ** CFOD                         ** GENERATED CODE                                   PAGE 00192
  7814  
  7815  int_4 _cfod (int_4 _p_ meth_, real_4 _p_ elco_, real_4 _p_ tesco_)
  7816  { // ** body not listed **
  7893  }
  7894  
  7895  // VIF  THU 20 NOV 2025 22:21:23  ** CGEEV                        ** CGEEV                                            PAGE 00194
  7896  
  7897  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7898  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7899  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7900  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7901  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7902  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7903  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7904  
  7905  //                                        CCCCC   GGGGG  EEEEEEE EEEEEEE V     V
  7906  //                                       C     C G     G E       E       V     V
  7907  //                                       C       G       E       E       V     V
  7908  //                                       C       G  GGGG EEEEE   EEEEE   V     V
  7909  //                                       C       G     G E       E        V   V
  7910  //                                       C     C G     G E       E         V V
  7911  //                                        CCCCC   GGGGG  EEEEEEE EEEEEEE    V
  7912  
  7913  
  7914  // VIF  THU 20 NOV 2025 22:21:23  ** CGEEV                        ** DIAGNOSTICS                                      PAGE 00195
  7915  
  7916  
  7917  // VIF  THU 20 NOV 2025 22:21:23  ** CGEEV                        ** GENERATED CODE                                   PAGE 00196
  7918  
  7919  int_4 _cgeev (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ 
  7920  work_, int_4 _p_ job_, int_4 _p_ info_)
  7921  { // ** body not listed **
  8018  }
  8019  
  8020  // VIF  THU 20 NOV 2025 22:21:23  ** CGEFS                        ** CGEFS                                            PAGE 00198
  8021  
  8022  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8023  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8024  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8025  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8026  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8027  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8028  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8029  
  8030  //                                        CCCCC   GGGGG  EEEEEEE FFFFFFF  SSSSS
  8031  //                                       C     C G     G E       F       S     S
  8032  //                                       C       G       E       F       S
  8033  //                                       C       G  GGGG EEEEE   FFFFF    SSSSS
  8034  //                                       C       G     G E       F             S
  8035  //                                       C     C G     G E       F       S     S
  8036  //                                        CCCCC   GGGGG  EEEEEEE F        SSSSS
  8037  
  8038  
  8039  // VIF  THU 20 NOV 2025 22:21:23  ** CGEFS                        ** DIAGNOSTICS                                      PAGE 00199
  8040  
  8041  
  8042  // VIF  THU 20 NOV 2025 22:21:23  ** CGEFS                        ** GENERATED CODE                                   PAGE 00200
  8043  
  8044  int_4 _cgefs (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
  8045  complex_8 _p_ work_, int_4 _p_ iwork_)
  8046  { // ** body not listed **
  8247  }
  8248  
  8249  // VIF  THU 20 NOV 2025 22:21:23  ** CGEIR                        ** CGEIR                                            PAGE 00204
  8250  
  8251  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8252  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8253  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8254  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8255  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8256  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8257  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8258  
  8259  //                                        CCCCC   GGGGG  EEEEEEE   III   RRRRRR
  8260  //                                       C     C G     G E          I    R     R
  8261  //                                       C       G       E          I    R     R
  8262  //                                       C       G  GGGG EEEEE      I    RRRRRR
  8263  //                                       C       G     G E          I    R   R
  8264  //                                       C     C G     G E          I    R    R
  8265  //                                        CCCCC   GGGGG  EEEEEEE   III   R     R
  8266  
  8267  
  8268  // VIF  THU 20 NOV 2025 22:21:23  ** CGEIR                        ** DIAGNOSTICS                                      PAGE 00205
  8269  
  8270  
  8271  // VIF  THU 20 NOV 2025 22:21:23  ** CGEIR                        ** GENERATED CODE                                   PAGE 00206
  8272  
  8273  int_4 _cgeir (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
  8274  complex_8 _p_ work_, int_4 _p_ iwork_)
  8275  { // ** body not listed **
  8497  }
  8498  
  8499  // VIF  THU 20 NOV 2025 22:21:23  ** CHIEV                        ** CHIEV                                            PAGE 00211
  8500  
  8501  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8502  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8503  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8504  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8505  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8506  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8507  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8508  
  8509  //                                        CCCCC  H     H   III   EEEEEEE V     V
  8510  //                                       C     C H     H    I    E       V     V
  8511  //                                       C       H     H    I    E       V     V
  8512  //                                       C       HHHHHHH    I    EEEEE   V     V
  8513  //                                       C       H     H    I    E        V   V
  8514  //                                       C     C H     H    I    E         V V
  8515  //                                        CCCCC  H     H   III   EEEEEEE    V
  8516  
  8517  
  8518  // VIF  THU 20 NOV 2025 22:21:23  ** CHIEV                        ** DIAGNOSTICS                                      PAGE 00212
  8519  
  8520  
  8521  // VIF  THU 20 NOV 2025 22:21:23  ** CHIEV                        ** GENERATED CODE                                   PAGE 00213
  8522  
  8523  int_4 _chiev (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ 
  8524  work_, int_4 _p_ job_, int_4 _p_ info_)
  8525  { // ** body not listed **
  8642  }
  8643  
  8644  // VIF  THU 20 NOV 2025 22:21:23  ** CHKPR4                       ** CHKPR4                                           PAGE 00216
  8645  
  8646  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8647  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8648  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8649  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8650  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8651  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8652  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8653  
  8654  //                                    CCCCC  H     H K    K  PPPPPP  RRRRRR  4
  8655  //                                   C     C H     H K   K   P     P R     R 4    4
  8656  //                                   C       H     H K  K    P     P R     R 4    4
  8657  //                                   C       HHHHHHH KKK     PPPPPP  RRRRRR  4444444
  8658  //                                   C       H     H K  K    P       R   R        4
  8659  //                                   C     C H     H K   K   P       R    R       4
  8660  //                                    CCCCC  H     H K    K  P       R     R      4
  8661  
  8662  
  8663  // VIF  THU 20 NOV 2025 22:21:23  ** CHKPR4                       ** DIAGNOSTICS                                      PAGE 00217
  8664  
  8665  
  8666  // VIF  THU 20 NOV 2025 22:21:23  ** CHKPR4                       ** GENERATED CODE                                   PAGE 00218
  8667  
  8668  int_4 _chkpr4 (int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ c_, real_4 
  8669  _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, int_4 (*_cofx)(), int_4 _p_ idmn_, int_4 _p_ ierror_)
  8670  { // ** body not listed **
  8716  }
  8717  
  8718  // VIF  THU 20 NOV 2025 22:21:23  ** CHKPRM                       ** CHKPRM                                           PAGE 00219
  8719  
  8720  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8721  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8722  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8723  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8724  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8725  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8726  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8727  
  8728  //                                    CCCCC  H     H K    K  PPPPPP  RRRRRR  M     M
  8729  //                                   C     C H     H K   K   P     P R     R MM   MM
  8730  //                                   C       H     H K  K    P     P R     R M M M M
  8731  //                                   C       HHHHHHH KKK     PPPPPP  RRRRRR  M  M  M
  8732  //                                   C       H     H K  K    P       R   R   M     M
  8733  //                                   C     C H     H K   K   P       R    R  M     M
  8734  //                                    CCCCC  H     H K    K  P       R     R M     M
  8735  
  8736  
  8737  // VIF  THU 20 NOV 2025 22:21:23  ** CHKPRM                       ** DIAGNOSTICS                                      PAGE 00220
  8738  
  8739  
  8740  // VIF  THU 20 NOV 2025 22:21:23  ** CHKPRM                       ** GENERATED CODE                                   PAGE 00221
  8741  
  8742  int_4 _chkprm (int_4 _p_ intl_, int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, 
  8743  real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, int_4 (*_cofx)(), int_4 (*_cofy)(), int_4 _p_ idmn_, 
  8744  int_4 _p_ ierror_)
  8745  { // ** body not listed **
  8802  }
  8803  
  8804  // VIF  THU 20 NOV 2025 22:21:23  ** CHKSN4                       ** CHKSN4                                           PAGE 00223
  8805  
  8806  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8807  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8808  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8809  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8810  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8811  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8812  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8813  
  8814  //                                    CCCCC  H     H K    K   SSSSS  N     N 4
  8815  //                                   C     C H     H K   K   S     S NN    N 4    4
  8816  //                                   C       H     H K  K    S       N N   N 4    4
  8817  //                                   C       HHHHHHH KKK      SSSSS  N  N  N 4444444
  8818  //                                   C       H     H K  K          S N   N N      4
  8819  //                                   C     C H     H K   K   S     S N    NN      4
  8820  //                                    CCCCC  H     H K    K   SSSSS  N     N      4
  8821  
  8822  
  8823  // VIF  THU 20 NOV 2025 22:21:23  ** CHKSN4                       ** DIAGNOSTICS                                      PAGE 00224
  8824  
  8825  
  8826  // VIF  THU 20 NOV 2025 22:21:23  ** CHKSN4                       ** GENERATED CODE                                   PAGE 00225
  8827  
  8828  int_4 _chksn4 (int_4 _p_ mbdcnd_, int_4 _p_ nbdcnd_, real_4 _p_ alpha_, real_4 _p_ beta_, int_4 (*_cofx)(), logical_4 
  8829  _p_ singlr_)
  8830  { // ** body not listed **
  8855  }
  8856  
  8857  // VIF  THU 20 NOV 2025 22:21:23  ** CHKSNG                       ** CHKSNG                                           PAGE 00226
  8858  
  8859  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8860  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8861  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8862  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8863  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8864  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8865  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8866  
  8867  //                                    CCCCC  H     H K    K   SSSSS  N     N  GGGGG
  8868  //                                   C     C H     H K   K   S     S NN    N G     G
  8869  //                                   C       H     H K  K    S       N N   N G
  8870  //                                   C       HHHHHHH KKK      SSSSS  N  N  N G  GGGG
  8871  //                                   C       H     H K  K          S N   N N G     G
  8872  //                                   C     C H     H K   K   S     S N    NN G     G
  8873  //                                    CCCCC  H     H K    K   SSSSS  N     N  GGGGG
  8874  
  8875  
  8876  // VIF  THU 20 NOV 2025 22:21:23  ** CHKSNG                       ** DIAGNOSTICS                                      PAGE 00227
  8877  
  8878  
  8879  // VIF  THU 20 NOV 2025 22:21:23  ** CHKSNG                       ** GENERATED CODE                                   PAGE 00228
  8880  
  8881  int_4 _chksng (int_4 _p_ mbdcnd_, int_4 _p_ nbdcnd_, real_4 _p_ alpha_, real_4 _p_ beta_, real_4 _p_ gama_, real_4 _p_ 
  8882  xnu_, int_4 (*_cofx)(), int_4 (*_cofy)(), logical_4 _p_ singlr_)
  8883  { // ** body not listed **
  8922  }
  8923  
  8924  // VIF  THU 20 NOV 2025 22:21:23  ** CMPCSG                       ** CMPCSG                                           PAGE 00229
  8925  
  8926  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8927  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8928  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8929  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8930  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8931  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8932  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8933  
  8934  //                                    CCCCC  M     M PPPPPP   CCCCC   SSSSS   GGGGG
  8935  //                                   C     C MM   MM P     P C     C S     S G     G
  8936  //                                   C       M M M M P     P C       S       G
  8937  //                                   C       M  M  M PPPPPP  C        SSSSS  G  GGGG
  8938  //                                   C       M     M P       C             S G     G
  8939  //                                   C     C M     M P       C     C S     S G     G
  8940  //                                    CCCCC  M     M P        CCCCC   SSSSS   GGGGG
  8941  
  8942  
  8943  // VIF  THU 20 NOV 2025 22:21:23  ** CMPCSG                       ** DIAGNOSTICS                                      PAGE 00230
  8944  
  8945  
  8946  // VIF  THU 20 NOV 2025 22:21:23  ** CMPCSG                       ** GENERATED CODE                                   PAGE 00231
  8947  
  8948  int_4 _cmpcsg (int_4 _p_ n_, int_4 _p_ ijump_, real_4 _p_ fnum_, real_4 _p_ fden_, complex_8 _p_ a_)
  8949  { // ** body not listed **
  8982  }
  8983  
  8984  // VIF  THU 20 NOV 2025 22:21:23  ** CMPOSD                       ** CMPOSD                                           PAGE 00232
  8985  
  8986  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8987  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8988  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8989  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8990  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8991  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8992  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8993  
  8994  //                                    CCCCC  M     M PPPPPP   OOOOO   SSSSS  DDDDDD
  8995  //                                   C     C MM   MM P     P O     O S     S D     D
  8996  //                                   C       M M M M P     P O     O S       D     D
  8997  //                                   C       M  M  M PPPPPP  O     O  SSSSS  D     D
  8998  //                                   C       M     M P       O     O       S D     D
  8999  //                                   C     C M     M P       O     O S     S D     D
  9000  //                                    CCCCC  M     M P        OOOOO   SSSSS  DDDDDD
  9001  
  9002  
  9003  // VIF  THU 20 NOV 2025 22:21:23  ** CMPOSD                       ** DIAGNOSTICS                                      PAGE 00233
  9004  
  9005  
  9006  // VIF  THU 20 NOV 2025 22:21:23  ** CMPOSD                       ** GENERATED CODE                                   PAGE 00234
  9007  
  9008  int_4 _cmposd (int_4 _p_ mr_, int_4 _p_ nr_, int_4 _p_ istag_, complex_8 _p_ ba_, complex_8 _p_ bb_, complex_8 _p_ bc_, 
  9009  complex_8 _p_ q_, int_4 _p_ idimq_, complex_8 _p_ b_, complex_8 _p_ w_, complex_8 _p_ d_, complex_8 _p_ tcos_, 
  9010  complex_8 _p_ p_)
  9011  { // ** body not listed **
  9449  }
  9450  
  9451  // VIF  THU 20 NOV 2025 22:21:23  ** CMPOSN                       ** CMPOSN                                           PAGE 00243
  9452  
  9453  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9454  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9455  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9456  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9457  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9458  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9459  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9460  
  9461  //                                    CCCCC  M     M PPPPPP   OOOOO   SSSSS  N     N
  9462  //                                   C     C MM   MM P     P O     O S     S NN    N
  9463  //                                   C       M M M M P     P O     O S       N N   N
  9464  //                                   C       M  M  M PPPPPP  O     O  SSSSS  N  N  N
  9465  //                                   C       M     M P       O     O       S N   N N
  9466  //                                   C     C M     M P       O     O S     S N    NN
  9467  //                                    CCCCC  M     M P        OOOOO   SSSSS  N     N
  9468  
  9469  
  9470  // VIF  THU 20 NOV 2025 22:21:23  ** CMPOSN                       ** DIAGNOSTICS                                      PAGE 00244
  9471  
  9472  
  9473  // VIF  THU 20 NOV 2025 22:21:23  ** CMPOSN                       ** GENERATED CODE                                   PAGE 00245
  9474  
  9475  int_4 _cmposn (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ istag_, int_4 _p_ mixbnd_, complex_8 _p_ a_, complex_8 _p_ bb_, 
  9476  complex_8 _p_ c_, complex_8 _p_ q_, int_4 _p_ idimq_, complex_8 _p_ b_, complex_8 _p_ b2_, complex_8 _p_ b3_, complex_8 
  9477  _p_ w_, complex_8 _p_ w2_, complex_8 _p_ w3_, complex_8 _p_ d_, complex_8 _p_ tcos_, complex_8 _p_ p_)
  9478  { // ** body not listed **
 10138  }
 10139  
 10140  // VIF  THU 20 NOV 2025 22:21:23  ** CMPOSP                       ** CMPOSP                                           PAGE 00258
 10141  
 10142  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10143  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10144  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10145  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10146  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10147  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10148  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10149  
 10150  //                                    CCCCC  M     M PPPPPP   OOOOO   SSSSS  PPPPPP
 10151  //                                   C     C MM   MM P     P O     O S     S P     P
 10152  //                                   C       M M M M P     P O     O S       P     P
 10153  //                                   C       M  M  M PPPPPP  O     O  SSSSS  PPPPPP
 10154  //                                   C       M     M P       O     O       S P
 10155  //                                   C     C M     M P       O     O S     S P
 10156  //                                    CCCCC  M     M P        OOOOO   SSSSS  P
 10157  
 10158  
 10159  // VIF  THU 20 NOV 2025 22:21:23  ** CMPOSP                       ** DIAGNOSTICS                                      PAGE 00259
 10160  
 10161  
 10162  // VIF  THU 20 NOV 2025 22:21:23  ** CMPOSP                       ** GENERATED CODE                                   PAGE 00260
 10163  
 10164  int_4 _cmposp (int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, complex_8 _p_ bb_, complex_8 _p_ c_, complex_8 _p_ q_, 
 10165  int_4 _p_ idimq_, complex_8 _p_ b_, complex_8 _p_ b2_, complex_8 _p_ b3_, complex_8 _p_ w_, complex_8 _p_ w2_, 
 10166  complex_8 _p_ w3_, complex_8 _p_ d_, complex_8 _p_ tcos_, complex_8 _p_ p_)
 10167  { // ** body not listed **
 10264  }
 10265  
 10266  // VIF  THU 20 NOV 2025 22:21:23  ** CMPTR3                       ** CMPTR3                                           PAGE 00262
 10267  
 10268  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10269  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10270  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10271  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10272  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10273  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10274  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10275  
 10276  //                                    CCCCC  M     M PPPPPP  TTTTTTT RRRRRR   33333
 10277  //                                   C     C MM   MM P     P    T    R     R 3     3
 10278  //                                   C       M M M M P     P    T    R     R       3
 10279  //                                   C       M  M  M PPPPPP     T    RRRRRR   33333
 10280  //                                   C       M     M P          T    R   R         3
 10281  //                                   C     C M     M P          T    R    R  3     3
 10282  //                                    CCCCC  M     M P          T    R     R  33333
 10283  
 10284  
 10285  // VIF  THU 20 NOV 2025 22:21:23  ** CMPTR3                       ** DIAGNOSTICS                                      PAGE 00263
 10286  
 10287  
 10288  // VIF  THU 20 NOV 2025 22:21:23  ** CMPTR3                       ** GENERATED CODE                                   PAGE 00264
 10289  
 10290  int_4 _cmptr3 (int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, complex_8 _p_ c_, int_4 _p_ k_, complex_8 _p_ y1_, 
 10291  complex_8 _p_ y2_, complex_8 _p_ y3_, complex_8 _p_ tcos_, complex_8 _p_ d_, complex_8 _p_ w1_, complex_8 _p_ w2_, 
 10292  complex_8 _p_ w3_)
 10293  { // ** body not listed **
 10407  }
 10408  
 10409  // VIF  THU 20 NOV 2025 22:21:23  ** CMPTRX                       ** CMPTRX                                           PAGE 00267
 10410  
 10411  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10412  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10413  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10414  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10415  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10416  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10417  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10418  
 10419  //                                    CCCCC  M     M PPPPPP  TTTTTTT RRRRRR  X     X
 10420  //                                   C     C MM   MM P     P    T    R     R  X   X
 10421  //                                   C       M M M M P     P    T    R     R   X X
 10422  //                                   C       M  M  M PPPPPP     T    RRRRRR     X
 10423  //                                   C       M     M P          T    R   R     X X
 10424  //                                   C     C M     M P          T    R    R   X   X
 10425  //                                    CCCCC  M     M P          T    R     R X     X
 10426  
 10427  
 10428  // VIF  THU 20 NOV 2025 22:21:23  ** CMPTRX                       ** DIAGNOSTICS                                      PAGE 00268
 10429  
 10430  
 10431  // VIF  THU 20 NOV 2025 22:21:23  ** CMPTRX                       ** GENERATED CODE                                   PAGE 00269
 10432  
 10433  int_4 _cmptrx (int_4 _p_ idegbr_, int_4 _p_ idegcr_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, complex_8 _p_ c_
 10434  , complex_8 _p_ y_, complex_8 _p_ tcos_, complex_8 _p_ d_, complex_8 _p_ w_)
 10435  { // ** body not listed **
 10490  }
 10491  
 10492  // VIF  THU 20 NOV 2025 22:21:23  ** CNBCO                        ** CNBCO                                            PAGE 00271
 10493  
 10494  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10495  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10496  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10497  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10498  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10499  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10500  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10501  
 10502  //                                        CCCCC  N     N BBBBBB   CCCCC   OOOOO
 10503  //                                       C     C NN    N B     B C     C O     O
 10504  //                                       C       N N   N B     B C       O     O
 10505  //                                       C       N  N  N BBBBBB  C       O     O
 10506  //                                       C       N   N N B     B C       O     O
 10507  //                                       C     C N    NN B     B C     C O     O
 10508  //                                        CCCCC  N     N BBBBBB   CCCCC   OOOOO
 10509  
 10510  
 10511  // VIF  THU 20 NOV 2025 22:21:23  ** CNBCO                        ** DIAGNOSTICS                                      PAGE 00272
 10512  
 10513  
 10514  // VIF  THU 20 NOV 2025 22:21:23  ** CNBCO                        ** GENERATED CODE                                   PAGE 00273
 10515  
 10516  int_4 _cnbco (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 
 10517  _p_ rcond_, complex_8 _p_ z_)
 10518  { // ** body not listed **
 10687  }
 10688  
 10689  // VIF  THU 20 NOV 2025 22:21:23  ** CNBDI                        ** CNBDI                                            PAGE 00277
 10690  
 10691  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10692  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10693  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10694  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10695  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10696  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10697  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10698  
 10699  //                                         CCCCC  N     N BBBBBB  DDDDDD    III
 10700  //                                        C     C NN    N B     B D     D    I
 10701  //                                        C       N N   N B     B D     D    I
 10702  //                                        C       N  N  N BBBBBB  D     D    I
 10703  //                                        C       N   N N B     B D     D    I
 10704  //                                        C     C N    NN B     B D     D    I
 10705  //                                         CCCCC  N     N BBBBBB  DDDDDD    III
 10706  
 10707  
 10708  // VIF  THU 20 NOV 2025 22:21:23  ** CNBDI                        ** DIAGNOSTICS                                      PAGE 00278
 10709  
 10710  
 10711  // VIF  THU 20 NOV 2025 22:21:23  ** CNBDI                        ** GENERATED CODE                                   PAGE 00279
 10712  
 10713  int_4 _cnbdi (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
 10714  complex_8 _p_ det_)
 10715  { // ** body not listed **
 10750  }
 10751  
 10752  // VIF  THU 20 NOV 2025 22:21:23  ** CNBFA                        ** CNBFA                                            PAGE 00280
 10753  
 10754  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10755  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10756  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10757  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10758  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10759  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10760  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10761  
 10762  //                                        CCCCC  N     N BBBBBB  FFFFFFF    A
 10763  //                                       C     C NN    N B     B F         A A
 10764  //                                       C       N N   N B     B F        A   A
 10765  //                                       C       N  N  N BBBBBB  FFFFF   A     A
 10766  //                                       C       N   N N B     B F       AAAAAAA
 10767  //                                       C     C N    NN B     B F       A     A
 10768  //                                        CCCCC  N     N BBBBBB  F       A     A
 10769  
 10770  
 10771  // VIF  THU 20 NOV 2025 22:21:23  ** CNBFA                        ** DIAGNOSTICS                                      PAGE 00281
 10772  
 10773  
 10774  // VIF  THU 20 NOV 2025 22:21:23  ** CNBFA                        ** GENERATED CODE                                   PAGE 00282
 10775  
 10776  int_4 _cnbfa (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4 
 10777  _p_ info_)
 10778  { // ** body not listed **
 10837  }
 10838  
 10839  // VIF  THU 20 NOV 2025 22:21:23  ** CNBFS                        ** CNBFS                                            PAGE 00284
 10840  
 10841  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10842  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10843  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10844  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10845  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10846  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10847  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10848  
 10849  //                                        CCCCC  N     N BBBBBB  FFFFFFF  SSSSS
 10850  //                                       C     C NN    N B     B F       S     S
 10851  //                                       C       N N   N B     B F       S
 10852  //                                       C       N  N  N BBBBBB  FFFFF    SSSSS
 10853  //                                       C       N   N N B     B F             S
 10854  //                                       C     C N    NN B     B F       S     S
 10855  //                                        CCCCC  N     N BBBBBB  F        SSSSS
 10856  
 10857  
 10858  // VIF  THU 20 NOV 2025 22:21:23  ** CNBFS                        ** DIAGNOSTICS                                      PAGE 00285
 10859  
 10860  
 10861  // VIF  THU 20 NOV 2025 22:21:23  ** CNBFS                        ** GENERATED CODE                                   PAGE 00286
 10862  
 10863  int_4 _cnbfs (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, complex_8 _p_ v_, int_4 
 10864  _p_ itask_, int_4 _p_ ind_, complex_8 _p_ work_, int_4 _p_ iwork_)
 10865  { // ** body not listed **
 11158  }
 11159  
 11160  // VIF  THU 20 NOV 2025 22:21:23  ** CNBIR                        ** CNBIR                                            PAGE 00292
 11161  
 11162  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11163  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11164  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11165  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11166  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11167  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11168  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11169  
 11170  //                                        CCCCC  N     N BBBBBB    III   RRRRRR
 11171  //                                       C     C NN    N B     B    I    R     R
 11172  //                                       C       N N   N B     B    I    R     R
 11173  //                                       C       N  N  N BBBBBB     I    RRRRRR
 11174  //                                       C       N   N N B     B    I    R   R
 11175  //                                       C     C N    NN B     B    I    R    R
 11176  //                                        CCCCC  N     N BBBBBB    III   R     R
 11177  
 11178  
 11179  // VIF  THU 20 NOV 2025 22:21:23  ** CNBIR                        ** DIAGNOSTICS                                      PAGE 00293
 11180  
 11181  
 11182  // VIF  THU 20 NOV 2025 22:21:23  ** CNBIR                        ** GENERATED CODE                                   PAGE 00294
 11183  
 11184  int_4 _cnbir (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, complex_8 _p_ v_, int_4 
 11185  _p_ itask_, int_4 _p_ ind_, complex_8 _p_ work_, int_4 _p_ iwork_)
 11186  { // ** body not listed **
 11505  }
 11506  
 11507  // VIF  THU 20 NOV 2025 22:21:23  ** CNBSL                        ** CNBSL                                            PAGE 00301
 11508  
 11509  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11510  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11511  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11512  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11513  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11514  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11515  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11516  
 11517  //                                        CCCCC  N     N BBBBBB   SSSSS  L
 11518  //                                       C     C NN    N B     B S     S L
 11519  //                                       C       N N   N B     B S       L
 11520  //                                       C       N  N  N BBBBBB   SSSSS  L
 11521  //                                       C       N   N N B     B       S L
 11522  //                                       C     C N    NN B     B S     S L
 11523  //                                        CCCCC  N     N BBBBBB   SSSSS  LLLLLLL
 11524  
 11525  
 11526  // VIF  THU 20 NOV 2025 22:21:23  ** CNBSL                        ** DIAGNOSTICS                                      PAGE 00302
 11527  
 11528  
 11529  // VIF  THU 20 NOV 2025 22:21:23  ** CNBSL                        ** GENERATED CODE                                   PAGE 00303
 11530  
 11531  int_4 _cnbsl (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
 11532  complex_8 _p_ b_, int_4 _p_ job_)
 11533  { // ** body not listed **
 11605  }
 11606  
 11607  // VIF  THU 20 NOV 2025 22:21:23  ** COMPB                        ** COMPB                                            PAGE 00305
 11608  
 11609  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11610  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11611  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11612  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11613  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11614  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11615  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11616  
 11617  //                                        CCCCC   OOOOO  M     M PPPPPP  BBBBBB
 11618  //                                       C     C O     O MM   MM P     P B     B
 11619  //                                       C       O     O M M M M P     P B     B
 11620  //                                       C       O     O M  M  M PPPPPP  BBBBBB
 11621  //                                       C       O     O M     M P       B     B
 11622  //                                       C     C O     O M     M P       B     B
 11623  //                                        CCCCC   OOOOO  M     M P       BBBBBB
 11624  
 11625  
 11626  // VIF  THU 20 NOV 2025 22:21:23  ** COMPB                        ** DIAGNOSTICS                                      PAGE 00306
 11627  
 11628  
 11629  // VIF  THU 20 NOV 2025 22:21:23  ** COMPB                        ** GENERATED CODE                                   PAGE 00307
 11630  
 11631  int_4 _compb (int_4 _p_ n_, int_4 _p_ ierror_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ b_, real_4 
 11632  _p_ ah_, real_4 _p_ bh_)
 11633  { // ** body not listed **
 11797  }
 11798  
 11799  // VIF  THU 20 NOV 2025 22:21:23  ** COSGEN                       ** COSGEN                                           PAGE 00311
 11800  
 11801  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11802  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11803  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11804  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11805  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11806  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11807  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11808  
 11809  //                                    CCCCC   OOOOO   SSSSS   GGGGG  EEEEEEE N     N
 11810  //                                   C     C O     O S     S G     G E       NN    N
 11811  //                                   C       O     O S       G       E       N N   N
 11812  //                                   C       O     O  SSSSS  G  GGGG EEEEE   N  N  N
 11813  //                                   C       O     O       S G     G E       N   N N
 11814  //                                   C     C O     O S     S G     G E       N    NN
 11815  //                                    CCCCC   OOOOO   SSSSS   GGGGG  EEEEEEE N     N
 11816  
 11817  
 11818  // VIF  THU 20 NOV 2025 22:21:23  ** COSGEN                       ** DIAGNOSTICS                                      PAGE 00312
 11819  
 11820  
 11821  // VIF  THU 20 NOV 2025 22:21:23  ** COSGEN                       ** GENERATED CODE                                   PAGE 00313
 11822  
 11823  int_4 _cosgen (int_4 _p_ n_, int_4 _p_ ijump_, real_4 _p_ fnum_, real_4 _p_ fden_, real_4 _p_ a_)
 11824  { // ** body not listed **
 11857  }
 11858  
 11859  // VIF  THU 20 NOV 2025 22:21:23  ** CPADD                        ** CPADD                                            PAGE 00314
 11860  
 11861  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11862  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11863  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11864  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11865  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11866  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11867  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11868  
 11869  //                                        CCCCC  PPPPPP     A    DDDDDD  DDDDDD
 11870  //                                       C     C P     P   A A   D     D D     D
 11871  //                                       C       P     P  A   A  D     D D     D
 11872  //                                       C       PPPPPP  A     A D     D D     D
 11873  //                                       C       P       AAAAAAA D     D D     D
 11874  //                                       C     C P       A     A D     D D     D
 11875  //                                        CCCCC  P       A     A DDDDDD  DDDDDD
 11876  
 11877  
 11878  // VIF  THU 20 NOV 2025 22:21:23  ** CPADD                        ** DIAGNOSTICS                                      PAGE 00315
 11879  
 11880  
 11881  // VIF  THU 20 NOV 2025 22:21:23  ** CPADD                        ** GENERATED CODE                                   PAGE 00316
 11882  
 11883  int_4 _cpadd (int_4 _p_ n_, int_4 _p_ ierror_, real_4 _p_ a_, real_4 _p_ c_, complex_8 _p_ cbp_, real_4 _p_ bp_, real_4 
 11884  _p_ bh_)
 11885  { // ** body not listed **
 12181  }
 12182  
 12183  // VIF  THU 20 NOV 2025 22:21:23  ** CPEVL                        ** CPEVL                                            PAGE 00322
 12184  
 12185  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12186  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12187  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12188  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12189  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12190  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12191  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12192  
 12193  //                                        CCCCC  PPPPPP  EEEEEEE V     V L
 12194  //                                       C     C P     P E       V     V L
 12195  //                                       C       P     P E       V     V L
 12196  //                                       C       PPPPPP  EEEEE   V     V L
 12197  //                                       C       P       E        V   V  L
 12198  //                                       C     C P       E         V V   L
 12199  //                                        CCCCC  P       EEEEEEE    V    LLLLLLL
 12200  
 12201  
 12202  // VIF  THU 20 NOV 2025 22:21:23  ** CPEVL                        ** DIAGNOSTICS                                      PAGE 00323
 12203  
 12204  
 12205  // VIF  THU 20 NOV 2025 22:21:23  ** CPEVL                        ** GENERATED CODE                                   PAGE 00324
 12206  
 12207  int_4 _cpevl (int_4 _p_ n_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ z_, complex_8 _p_ c_, complex_8 _p_ b_, 
 12208  logical_4 _p_ kbd_)
 12209  { // ** body not listed **
 12271  }
 12272  
 12273  // VIF  THU 20 NOV 2025 22:21:23  ** CPEVLR                       ** CPEVLR                                           PAGE 00326
 12274  
 12275  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12276  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12277  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12278  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12279  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12280  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12281  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12282  
 12283  //                                    CCCCC  PPPPPP  EEEEEEE V     V L       RRRRRR
 12284  //                                   C     C P     P E       V     V L       R     R
 12285  //                                   C       P     P E       V     V L       R     R
 12286  //                                   C       PPPPPP  EEEEE   V     V L       RRRRRR
 12287  //                                   C       P       E        V   V  L       R   R
 12288  //                                   C     C P       E         V V   L       R    R
 12289  //                                    CCCCC  P       EEEEEEE    V    LLLLLLL R     R
 12290  
 12291  
 12292  // VIF  THU 20 NOV 2025 22:21:23  ** CPEVLR                       ** DIAGNOSTICS                                      PAGE 00327
 12293  
 12294  
 12295  // VIF  THU 20 NOV 2025 22:21:23  ** CPEVLR                       ** GENERATED CODE                                   PAGE 00328
 12296  
 12297  int_4 _cpevlr (int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ c_)
 12298  { // ** body not listed **
 12318  }
 12319  
 12320  // VIF  THU 20 NOV 2025 22:21:23  ** CPOFS                        ** CPOFS                                            PAGE 00329
 12321  
 12322  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12323  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12324  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12325  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12326  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12327  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12328  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12329  
 12330  //                                        CCCCC  PPPPPP   OOOOO  FFFFFFF  SSSSS
 12331  //                                       C     C P     P O     O F       S     S
 12332  //                                       C       P     P O     O F       S
 12333  //                                       C       PPPPPP  O     O FFFFF    SSSSS
 12334  //                                       C       P       O     O F             S
 12335  //                                       C     C P       O     O F       S     S
 12336  //                                        CCCCC  P        OOOOO  F        SSSSS
 12337  
 12338  
 12339  // VIF  THU 20 NOV 2025 22:21:23  ** CPOFS                        ** DIAGNOSTICS                                      PAGE 00330
 12340  
 12341  
 12342  // VIF  THU 20 NOV 2025 22:21:23  ** CPOFS                        ** GENERATED CODE                                   PAGE 00331
 12343  
 12344  int_4 _cpofs (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
 12345  complex_8 _p_ work_)
 12346  { // ** body not listed **
 12548  }
 12549  
 12550  // VIF  THU 20 NOV 2025 22:21:23  ** CPOIR                        ** CPOIR                                            PAGE 00335
 12551  
 12552  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12553  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12554  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12555  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12556  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12557  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12558  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12559  
 12560  //                                        CCCCC  PPPPPP   OOOOO    III   RRRRRR
 12561  //                                       C     C P     P O     O    I    R     R
 12562  //                                       C       P     P O     O    I    R     R
 12563  //                                       C       PPPPPP  O     O    I    RRRRRR
 12564  //                                       C       P       O     O    I    R   R
 12565  //                                       C     C P       O     O    I    R    R
 12566  //                                        CCCCC  P        OOOOO    III   R     R
 12567  
 12568  
 12569  // VIF  THU 20 NOV 2025 22:21:23  ** CPOIR                        ** DIAGNOSTICS                                      PAGE 00336
 12570  
 12571  
 12572  // VIF  THU 20 NOV 2025 22:21:23  ** CPOIR                        ** GENERATED CODE                                   PAGE 00337
 12573  
 12574  int_4 _cpoir (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
 12575  complex_8 _p_ work_)
 12576  { // ** body not listed **
 12803  }
 12804  
 12805  // VIF  THU 20 NOV 2025 22:21:23  ** CPQR79                       ** CPQR79                                           PAGE 00342
 12806  
 12807  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12808  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12809  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12810  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12811  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12812  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12813  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12814  
 12815  //                                    CCCCC  PPPPPP   QQQQQ  RRRRRR  7777777  99999
 12816  //                                   C     C P     P Q     Q R     R 7    7  9     9
 12817  //                                   C       P     P Q     Q R     R     7   9     9
 12818  //                                   C       PPPPPP  Q     Q RRRRRR     7     999999
 12819  //                                   C       P       Q   Q Q R   R     7           9
 12820  //                                   C     C P       Q    Q  R    R    7     9     9
 12821  //                                    CCCCC  P        QQQQ Q R     R   7      99999
 12822  
 12823  
 12824  // VIF  THU 20 NOV 2025 22:21:23  ** CPQR79                       ** DIAGNOSTICS                                      PAGE 00343
 12825  
 12826  
 12827  // VIF  THU 20 NOV 2025 22:21:23  ** CPQR79                       ** GENERATED CODE                                   PAGE 00344
 12828  
 12829  int_4 _cpqr79 (int_4 _p_ ndeg_, complex_8 _p_ coeff_, complex_8 _p_ root_, int_4 _p_ ierr_, real_4 _p_ work_)
 12830  { // ** body not listed **
 12883  }
 12884  
 12885  // VIF  THU 20 NOV 2025 22:21:23  ** CPROC                        ** CPROC                                            PAGE 00346
 12886  
 12887  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12888  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12889  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12890  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12891  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12892  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12893  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12894  
 12895  //                                        CCCCC  PPPPPP  RRRRRR   OOOOO   CCCCC
 12896  //                                       C     C P     P R     R O     O C     C
 12897  //                                       C       P     P R     R O     O C
 12898  //                                       C       PPPPPP  RRRRRR  O     O C
 12899  //                                       C       P       R   R   O     O C
 12900  //                                       C     C P       R    R  O     O C     C
 12901  //                                        CCCCC  P       R     R  OOOOO   CCCCC
 12902  
 12903  
 12904  // VIF  THU 20 NOV 2025 22:21:23  ** CPROC                        ** DIAGNOSTICS                                      PAGE 00347
 12905  
 12906  
 12907  // VIF  THU 20 NOV 2025 22:21:23  ** CPROC                        ** GENERATED CODE                                   PAGE 00348
 12908  
 12909  int_4 _cproc (int_4 _p_ nd_, complex_8 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, int_4 
 12910  _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, 
 12911  complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ w_, real_4 _p_ yy_)
 12912  { // ** body not listed **
 13071  }
 13072  
 13073  // VIF  THU 20 NOV 2025 22:21:23  ** CPROCP                       ** CPROCP                                           PAGE 00352
 13074  
 13075  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13076  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13077  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13078  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13079  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13080  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13081  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13082  
 13083  //                                    CCCCC  PPPPPP  RRRRRR   OOOOO   CCCCC  PPPPPP
 13084  //                                   C     C P     P R     R O     O C     C P     P
 13085  //                                   C       P     P R     R O     O C       P     P
 13086  //                                   C       PPPPPP  RRRRRR  O     O C       PPPPPP
 13087  //                                   C       P       R   R   O     O C       P
 13088  //                                   C     C P       R    R  O     O C     C P
 13089  //                                    CCCCC  P       R     R  OOOOO   CCCCC  P
 13090  
 13091  
 13092  // VIF  THU 20 NOV 2025 22:21:23  ** CPROCP                       ** DIAGNOSTICS                                      PAGE 00353
 13093  
 13094  
 13095  // VIF  THU 20 NOV 2025 22:21:23  ** CPROCP                       ** GENERATED CODE                                   PAGE 00354
 13096  
 13097  int_4 _cprocp (int_4 _p_ nd_, complex_8 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, 
 13098  int_4 _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, 
 13099  complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ u_, real_4 _p_ yy_)
 13100  { // ** body not listed **
 13288  }
 13289  
 13290  // VIF  THU 20 NOV 2025 22:21:23  ** CPROD                        ** CPROD                                            PAGE 00358
 13291  
 13292  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13293  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13294  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13295  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13296  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13297  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13298  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13299  
 13300  //                                        CCCCC  PPPPPP  RRRRRR   OOOOO  DDDDDD
 13301  //                                       C     C P     P R     R O     O D     D
 13302  //                                       C       P     P R     R O     O D     D
 13303  //                                       C       PPPPPP  RRRRRR  O     O D     D
 13304  //                                       C       P       R   R   O     O D     D
 13305  //                                       C     C P       R    R  O     O D     D
 13306  //                                        CCCCC  P       R     R  OOOOO  DDDDDD
 13307  
 13308  
 13309  // VIF  THU 20 NOV 2025 22:21:23  ** CPROD                        ** DIAGNOSTICS                                      PAGE 00359
 13310  
 13311  
 13312  // VIF  THU 20 NOV 2025 22:21:23  ** CPROD                        ** GENERATED CODE                                   PAGE 00360
 13313  
 13314  int_4 _cprod (int_4 _p_ nd_, complex_8 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, int_4 
 13315  _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ yy_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, 
 13316  complex_8 _p_ d_, complex_8 _p_ w_, complex_8 _p_ y_)
 13317  { // ** body not listed **
 13479  }
 13480  
 13481  // VIF  THU 20 NOV 2025 22:21:23  ** CPRODP                       ** CPRODP                                           PAGE 00364
 13482  
 13483  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13484  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13485  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13486  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13487  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13488  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13489  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13490  
 13491  //                                    CCCCC  PPPPPP  RRRRRR   OOOOO  DDDDDD  PPPPPP
 13492  //                                   C     C P     P R     R O     O D     D P     P
 13493  //                                   C       P     P R     R O     O D     D P     P
 13494  //                                   C       PPPPPP  RRRRRR  O     O D     D PPPPPP
 13495  //                                   C       P       R   R   O     O D     D P
 13496  //                                   C     C P       R    R  O     O D     D P
 13497  //                                    CCCCC  P       R     R  OOOOO  DDDDDD  P
 13498  
 13499  
 13500  // VIF  THU 20 NOV 2025 22:21:23  ** CPRODP                       ** DIAGNOSTICS                                      PAGE 00365
 13501  
 13502  
 13503  // VIF  THU 20 NOV 2025 22:21:23  ** CPRODP                       ** GENERATED CODE                                   PAGE 00366
 13504  
 13505  int_4 _cprodp (int_4 _p_ nd_, complex_8 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, 
 13506  int_4 _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ yy_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_
 13507  , complex_8 _p_ d_, complex_8 _p_ u_, complex_8 _p_ y_)
 13508  { // ** body not listed **
 13699  }
 13700  
 13701  // VIF  THU 20 NOV 2025 22:21:23  ** CPZERO                       ** CPZERO                                           PAGE 00370
 13702  
 13703  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13704  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13705  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13706  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13707  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13708  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13709  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13710  
 13711  //                                    CCCCC  PPPPPP  ZZZZZZZ EEEEEEE RRRRRR   OOOOO
 13712  //                                   C     C P     P      Z  E       R     R O     O
 13713  //                                   C       P     P     Z   E       R     R O     O
 13714  //                                   C       PPPPPP     Z    EEEEE   RRRRRR  O     O
 13715  //                                   C       P         Z     E       R   R   O     O
 13716  //                                   C     C P        *      E       R    R  O     O
 13717  //                                    CCCCC  P       ZZZZZZZ EEEEEEE R     R  OOOOO
 13718  
 13719  
 13720  // VIF  THU 20 NOV 2025 22:21:23  ** CPZERO                       ** DIAGNOSTICS                                      PAGE 00371
 13721  
 13722  
 13723  // VIF  THU 20 NOV 2025 22:21:23  ** CPZERO                       ** GENERATED CODE                                   PAGE 00372
 13724  
 13725  int_4 _cpzero (int_4 _p_ in_, complex_8 _p_ a_, complex_8 _p_ r_, complex_8 _p_ t_, int_4 _p_ iflg_, real_4 _p_ s_)
 13726  { // ** body not listed **
 13851  }
 13852  
 13853  // VIF  THU 20 NOV 2025 22:21:23  ** CRATI                        ** CRATI                                            PAGE 00375
 13854  
 13855  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13856  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13857  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13858  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13859  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13860  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13861  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13862  
 13863  //                                         CCCCC  RRRRRR     A    TTTTTTT   III
 13864  //                                        C     C R     R   A A      T       I
 13865  //                                        C       R     R  A   A     T       I
 13866  //                                        C       RRRRRR  A     A    T       I
 13867  //                                        C       R   R   AAAAAAA    T       I
 13868  //                                        C     C R    R  A     A    T       I
 13869  //                                         CCCCC  R     R A     A    T      III
 13870  
 13871  
 13872  // VIF  THU 20 NOV 2025 22:21:23  ** CRATI                        ** DIAGNOSTICS                                      PAGE 00376
 13873  
 13874  
 13875  // VIF  THU 20 NOV 2025 22:21:23  ** CRATI                        ** GENERATED CODE                                   PAGE 00377
 13876  
 13877  int_4 _crati (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ n_, complex_8 _p_ cy_, real_4 _p_ tol_)
 13878  { // ** body not listed **
 13993  }
 13994  
 13995  // VIF  THU 20 NOV 2025 22:21:23  ** CS1S2                        ** CS1S2                                            PAGE 00380
 13996  
 13997  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13998  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13999  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14000  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14001  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14002  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14003  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14004  
 14005  //                                        CCCCC   SSSSS     1     SSSSS   22222
 14006  //                                       C     C S     S   11    S     S 2     2
 14007  //                                       C       S        1 1    S             2
 14008  //                                       C        SSSSS     1     SSSSS   22222
 14009  //                                       C             S    1          S 2
 14010  //                                       C     C S     S    1    S     S 2
 14011  //                                        CCCCC   SSSSS   11111   SSSSS  2222222
 14012  
 14013  
 14014  // VIF  THU 20 NOV 2025 22:21:23  ** CS1S2                        ** DIAGNOSTICS                                      PAGE 00381
 14015  
 14016  
 14017  // VIF  THU 20 NOV 2025 22:21:23  ** CS1S2                        ** GENERATED CODE                                   PAGE 00382
 14018  
 14019  int_4 _cs1s2 (complex_8 _p_ zr_, complex_8 _p_ s1_, complex_8 _p_ s2_, int_4 _p_ nz_, real_4 _p_ ascle_, real_4 _p_ 
 14020  alim_, int_4 _p_ iuf_)
 14021  { // ** body not listed **
 14074  }
 14075  
 14076  // VIF  THU 20 NOV 2025 22:21:23  ** CSCALE                       ** CSCALE                                           PAGE 00384
 14077  
 14078  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14079  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14080  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14081  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14082  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14083  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14084  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14085  
 14086  //                                    CCCCC   SSSSS   CCCCC     A    L       EEEEEEE
 14087  //                                   C     C S     S C     C   A A   L       E
 14088  //                                   C       S       C        A   A  L       E
 14089  //                                   C        SSSSS  C       A     A L       EEEEE
 14090  //                                   C             S C       AAAAAAA L       E
 14091  //                                   C     C S     S C     C A     A L       E
 14092  //                                    CCCCC   SSSSS   CCCCC  A     A LLLLLLL EEEEEEE
 14093  
 14094  
 14095  // VIF  THU 20 NOV 2025 22:21:23  ** CSCALE                       ** DIAGNOSTICS                                      PAGE 00385
 14096  
 14097  
 14098  // VIF  THU 20 NOV 2025 22:21:23  ** CSCALE                       ** GENERATED CODE                                   PAGE 00386
 14099  
 14100  int_4 _cscale (real_4 _p_ a_, int_4 _p_ nrda_, int_4 _p_ nrow_, int_4 _p_ ncol_, real_4 _p_ cols_, real_4 _p_ colsav_, 
 14101  real_4 _p_ rows_, real_4 _p_ rowsav_, real_4 _p_ anorm_, real_4 _p_ scales_, int_4 _p_ iscale_, int_4 _p_ ic_)
 14102  { // ** body not listed **
 14190  }
 14191  
 14192  // VIF  THU 20 NOV 2025 22:21:23  ** CSHCH                        ** CSHCH                                            PAGE 00388
 14193  
 14194  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14195  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14196  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14197  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14198  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14199  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14200  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14201  
 14202  //                                        CCCCC   SSSSS  H     H  CCCCC  H     H
 14203  //                                       C     C S     S H     H C     C H     H
 14204  //                                       C       S       H     H C       H     H
 14205  //                                       C        SSSSS  HHHHHHH C       HHHHHHH
 14206  //                                       C             S H     H C       H     H
 14207  //                                       C     C S     S H     H C     C H     H
 14208  //                                        CCCCC   SSSSS  H     H  CCCCC  H     H
 14209  
 14210  
 14211  // VIF  THU 20 NOV 2025 22:21:23  ** CSHCH                        ** DIAGNOSTICS                                      PAGE 00389
 14212  
 14213  
 14214  // VIF  THU 20 NOV 2025 22:21:23  ** CSHCH                        ** GENERATED CODE                                   PAGE 00390
 14215  
 14216  int_4 _cshch (complex_8 _p_ z_, complex_8 _p_ csh_, complex_8 _p_ cch_)
 14217  { // ** body not listed **
 14233  }
 14234  
 14235  // VIF  THU 20 NOV 2025 22:21:23  ** CUCHK                        ** CUCHK                                            PAGE 00391
 14236  
 14237  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14238  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14239  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14240  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14241  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14242  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14243  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14244  
 14245  //                                         CCCCC  U     U  CCCCC  H     H K    K
 14246  //                                        C     C U     U C     C H     H K   K
 14247  //                                        C       U     U C       H     H K  K
 14248  //                                        C       U     U C       HHHHHHH KKK
 14249  //                                        C       U     U C       H     H K  K
 14250  //                                        C     C U     U C     C H     H K   K
 14251  //                                         CCCCC   UUUUU   CCCCC  H     H K    K
 14252  
 14253  
 14254  // VIF  THU 20 NOV 2025 22:21:23  ** CUCHK                        ** DIAGNOSTICS                                      PAGE 00392
 14255  
 14256  
 14257  // VIF  THU 20 NOV 2025 22:21:23  ** CUCHK                        ** GENERATED CODE                                   PAGE 00393
 14258  
 14259  int_4 _cuchk (complex_8 _p_ y_, int_4 _p_ nz_, real_4 _p_ ascle_, real_4 _p_ tol_)
 14260  { // ** body not listed **
 14279  }
 14280  
 14281  // VIF  THU 20 NOV 2025 22:21:23  ** CUNHJ                        ** CUNHJ                                            PAGE 00394
 14282  
 14283  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14284  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14285  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14286  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14287  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14288  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14289  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14290  
 14291  //                                        CCCCC  U     U N     N H     H       J
 14292  //                                       C     C U     U NN    N H     H       J
 14293  //                                       C       U     U N N   N H     H       J
 14294  //                                       C       U     U N  N  N HHHHHHH       J
 14295  //                                       C       U     U N   N N H     H J     J
 14296  //                                       C     C U     U N    NN H     H J     J
 14297  //                                        CCCCC   UUUUU  N     N H     H  JJJJJ
 14298  
 14299  
 14300  // VIF  THU 20 NOV 2025 22:21:23  ** CUNHJ                        ** DIAGNOSTICS                                      PAGE 00395
 14301  
 14302  
 14303  // VIF  THU 20 NOV 2025 22:21:23  ** CUNHJ                        ** GENERATED CODE                                   PAGE 00396
 14304  
 14305  int_4 _cunhj (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ ipmtr_, real_4 _p_ tol_, complex_8 _p_ phi_, complex_8 _p_ 
 14306  arg_, complex_8 _p_ zeta1_, complex_8 _p_ zeta2_, complex_8 _p_ asum_, complex_8 _p_ bsum_)
 14307  { // ** body not listed **
 18274  }
 18275  
 18276  // VIF  THU 20 NOV 2025 22:21:23  ** CUNIK                        ** CUNIK                                            PAGE 00473
 18277  
 18278  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18279  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18280  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18281  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18282  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18283  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18284  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18285  
 18286  //                                         CCCCC  U     U N     N   III   K    K
 18287  //                                        C     C U     U NN    N    I    K   K
 18288  //                                        C       U     U N N   N    I    K  K
 18289  //                                        C       U     U N  N  N    I    KKK
 18290  //                                        C       U     U N   N N    I    K  K
 18291  //                                        C     C U     U N    NN    I    K   K
 18292  //                                         CCCCC   UUUUU  N     N   III   K    K
 18293  
 18294  
 18295  // VIF  THU 20 NOV 2025 22:21:23  ** CUNIK                        ** DIAGNOSTICS                                      PAGE 00474
 18296  
 18297  
 18298  // VIF  THU 20 NOV 2025 22:21:23  ** CUNIK                        ** GENERATED CODE                                   PAGE 00475
 18299  
 18300  int_4 _cunik (complex_8 _p_ zr_, real_4 _p_ fnu_, int_4 _p_ ikflg_, int_4 _p_ ipmtr_, real_4 _p_ tol_, int_4 _p_ init_, 
 18301  complex_8 _p_ phi_, complex_8 _p_ zeta1_, complex_8 _p_ zeta2_, complex_8 _p_ sum_, complex_8 _p_ cwrk_)
 18302  { // ** body not listed **
 19213  }
 19214  
 19215  // VIF  THU 20 NOV 2025 22:21:23  ** CV                           ** CV                                               PAGE 00493
 19216  
 19217  //                                   RRRRRR  EEEEEEE    A    L               4
 19218  //                                   R     R E         A A   L        *   *  4    4
 19219  //                                   R     R E        A   A  L         * *   4    4
 19220  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 19221  //                                   R   R   E       AAAAAAA L         * *        4
 19222  //                                   R    R  E       A     A L        *   *       4
 19223  //                                   R     R EEEEEEE A     A LLLLLLL              4
 19224  
 19225  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 19226  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 19227  //                           F       U     U N N   N C          T       I    O     O N N   N
 19228  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 19229  //                           F       U     U N   N N C          T       I    O     O N   N N
 19230  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 19231  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 19232  
 19233  //                                                    CCCCC  V     V
 19234  //                                                   C     C V     V
 19235  //                                                   C       V     V
 19236  //                                                   C       V     V
 19237  //                                                   C        V   V
 19238  //                                                   C     C   V V
 19239  //                                                    CCCCC     V
 19240  
 19241  
 19242  // VIF  THU 20 NOV 2025 22:21:23  ** CV                           ** DIAGNOSTICS                                      PAGE 00494
 19243  
 19244  
 19245  // VIF  THU 20 NOV 2025 22:21:23  ** CV                           ** GENERATED CODE                                   PAGE 00495
 19246  
 19247  real_4 _cv (real_4 _p_ xval_, int_4 _p_ ndata_, int_4 _p_ nconst_, int_4 _p_ nord_, int_4 _p_ nbkpt_, real_4 _p_ bkpt_, 
 19248  real_4 _p_ w_)
 19249  { // ** body not listed **
 19279  }
 19280  
 19281  // VIF  THU 20 NOV 2025 22:21:23  ** D1MERG                       ** D1MERG                                           PAGE 00496
 19282  
 19283  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19284  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19285  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19286  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19287  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19288  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19289  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19290  
 19291  //                                   DDDDDD     1    M     M EEEEEEE RRRRRR   GGGGG
 19292  //                                   D     D   11    MM   MM E       R     R G     G
 19293  //                                   D     D  1 1    M M M M E       R     R G
 19294  //                                   D     D    1    M  M  M EEEEE   RRRRRR  G  GGGG
 19295  //                                   D     D    1    M     M E       R   R   G     G
 19296  //                                   D     D    1    M     M E       R    R  G     G
 19297  //                                   DDDDDD   11111  M     M EEEEEEE R     R  GGGGG
 19298  
 19299  
 19300  // VIF  THU 20 NOV 2025 22:21:23  ** D1MERG                       ** DIAGNOSTICS                                      PAGE 00497
 19301  
 19302  
 19303  // VIF  THU 20 NOV 2025 22:21:23  ** D1MERG                       ** GENERATED CODE                                   PAGE 00498
 19304  
 19305  int_4 _d1merg (real_8 _p_ tcos_, int_4 _p_ i1_, int_4 _p_ m1_, int_4 _p_ i2_, int_4 _p_ m2_, int_4 _p_ i3_)
 19306  { // ** body not listed **
 19345  }
 19346  
 19347  // VIF  THU 20 NOV 2025 22:21:23  ** D1MPYQ                       ** D1MPYQ                                           PAGE 00499
 19348  
 19349  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19350  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19351  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19352  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19353  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19354  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19355  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19356  
 19357  //                                   DDDDDD     1    M     M PPPPPP  Y     Y  QQQQQ
 19358  //                                   D     D   11    MM   MM P     P  Y   Y  Q     Q
 19359  //                                   D     D  1 1    M M M M P     P   Y Y   Q     Q
 19360  //                                   D     D    1    M  M  M PPPPPP     Y    Q     Q
 19361  //                                   D     D    1    M     M P          Y    Q   Q Q
 19362  //                                   D     D    1    M     M P          Y    Q    Q
 19363  //                                   DDDDDD   11111  M     M P          Y     QQQQ Q
 19364  
 19365  
 19366  // VIF  THU 20 NOV 2025 22:21:23  ** D1MPYQ                       ** DIAGNOSTICS                                      PAGE 00500
 19367  
 19368  
 19369  // VIF  THU 20 NOV 2025 22:21:23  ** D1MPYQ                       ** GENERATED CODE                                   PAGE 00501
 19370  
 19371  int_4 _d1mpyq (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ v_, real_8 _p_ w_)
 19372  { // ** body not listed **
 19438  }
 19439  
 19440  // VIF  THU 20 NOV 2025 22:21:23  ** D1UPDT                       ** D1UPDT                                           PAGE 00503
 19441  
 19442  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19443  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19444  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19445  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19446  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19447  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19448  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19449  
 19450  //                                   DDDDDD     1    U     U PPPPPP  DDDDDD  TTTTTTT
 19451  //                                   D     D   11    U     U P     P D     D    T
 19452  //                                   D     D  1 1    U     U P     P D     D    T
 19453  //                                   D     D    1    U     U PPPPPP  D     D    T
 19454  //                                   D     D    1    U     U P       D     D    T
 19455  //                                   D     D    1    U     U P       D     D    T
 19456  //                                   DDDDDD   11111   UUUUU  P       DDDDDD     T
 19457  
 19458  
 19459  // VIF  THU 20 NOV 2025 22:21:23  ** D1UPDT                       ** DIAGNOSTICS                                      PAGE 00504
 19460  
 19461  
 19462  // VIF  THU 20 NOV 2025 22:21:23  ** D1UPDT                       ** GENERATED CODE                                   PAGE 00505
 19463  
 19464  int_4 _d1updt (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ s_, int_4 _p_ ls_, real_8 _p_ u_, real_8 _p_ v_, real_8 _p_ w_, 
 19465  logical_4 _p_ sing_)
 19466  { // ** body not listed **
 19605  }
 19606  
 19607  // VIF  THU 20 NOV 2025 22:21:23  ** DASYIK                       ** DASYIK                                           PAGE 00508
 19608  
 19609  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19610  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19611  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19612  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19613  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19614  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19615  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19616  
 19617  //                                    DDDDDD     A     SSSSS  Y     Y   III   K    K
 19618  //                                    D     D   A A   S     S  Y   Y     I    K   K
 19619  //                                    D     D  A   A  S         Y Y      I    K  K
 19620  //                                    D     D A     A  SSSSS     Y       I    KKK
 19621  //                                    D     D AAAAAAA       S    Y       I    K  K
 19622  //                                    D     D A     A S     S    Y       I    K   K
 19623  //                                    DDDDDD  A     A  SSSSS     Y      III   K    K
 19624  
 19625  
 19626  // VIF  THU 20 NOV 2025 22:21:23  ** DASYIK                       ** DIAGNOSTICS                                      PAGE 00509
 19627  
 19628  
 19629  // VIF  THU 20 NOV 2025 22:21:23  ** DASYIK                       ** GENERATED CODE                                   PAGE 00510
 19630  
 19631  int_4 _dasyik (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ kode_, real_8 _p_ flgik_, real_8 _p_ ra_, real_8 _p_ arg_, 
 19632  int_4 _p_ in_, real_8 _p_ y_)
 19633  { // ** body not listed **
 20127  }
 20128  
 20129  // VIF  THU 20 NOV 2025 22:21:23  ** DAVINT                       ** DAVINT                                           PAGE 00520
 20130  
 20131  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20132  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20133  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20134  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20135  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20136  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20137  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20138  
 20139  //                                   DDDDDD     A    V     V   III   N     N TTTTTTT
 20140  //                                   D     D   A A   V     V    I    NN    N    T
 20141  //                                   D     D  A   A  V     V    I    N N   N    T
 20142  //                                   D     D A     A V     V    I    N  N  N    T
 20143  //                                   D     D AAAAAAA  V   V     I    N   N N    T
 20144  //                                   D     D A     A   V V      I    N    NN    T
 20145  //                                   DDDDDD  A     A    V      III   N     N    T
 20146  
 20147  
 20148  // VIF  THU 20 NOV 2025 22:21:23  ** DAVINT                       ** DIAGNOSTICS                                      PAGE 00521
 20149  
 20150  
 20151  // VIF  THU 20 NOV 2025 22:21:23  ** DAVINT                       ** GENERATED CODE                                   PAGE 00522
 20152  
 20153  int_4 _davint (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ n_, real_8 _p_ xlo_, real_8 _p_ xup_, real_8 _p_ ans_, int_4 _p_ 
 20154  ierr_)
 20155  { // ** body not listed **
 20303  }
 20304  
 20305  // VIF  THU 20 NOV 2025 22:21:23  ** DBDIFF                       ** DBDIFF                                           PAGE 00525
 20306  
 20307  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20308  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20309  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20310  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20311  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20312  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20313  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20314  
 20315  //                                   DDDDDD  BBBBBB  DDDDDD    III   FFFFFFF FFFFFFF
 20316  //                                   D     D B     B D     D    I    F       F
 20317  //                                   D     D B     B D     D    I    F       F
 20318  //                                   D     D BBBBBB  D     D    I    FFFFF   FFFFF
 20319  //                                   D     D B     B D     D    I    F       F
 20320  //                                   D     D B     B D     D    I    F       F
 20321  //                                   DDDDDD  BBBBBB  DDDDDD    III   F       F
 20322  
 20323  
 20324  // VIF  THU 20 NOV 2025 22:21:23  ** DBDIFF                       ** DIAGNOSTICS                                      PAGE 00526
 20325  
 20326  
 20327  // VIF  THU 20 NOV 2025 22:21:23  ** DBDIFF                       ** GENERATED CODE                                   PAGE 00527
 20328  
 20329  int_4 _dbdiff (int_4 _p_ l_, real_8 _p_ v_)
 20330  { // ** body not listed **
 20345  }
 20346  
 20347  // VIF  THU 20 NOV 2025 22:21:23  ** DBKSOL                       ** DBKSOL                                           PAGE 00528
 20348  
 20349  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20350  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20351  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20352  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20353  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20354  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20355  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20356  
 20357  //                                   DDDDDD  BBBBBB  K    K   SSSSS   OOOOO  L
 20358  //                                   D     D B     B K   K   S     S O     O L
 20359  //                                   D     D B     B K  K    S       O     O L
 20360  //                                   D     D BBBBBB  KKK      SSSSS  O     O L
 20361  //                                   D     D B     B K  K          S O     O L
 20362  //                                   D     D B     B K   K   S     S O     O L
 20363  //                                   DDDDDD  BBBBBB  K    K   SSSSS   OOOOO  LLLLLLL
 20364  
 20365  
 20366  // VIF  THU 20 NOV 2025 22:21:23  ** DBKSOL                       ** DIAGNOSTICS                                      PAGE 00529
 20367  
 20368  
 20369  // VIF  THU 20 NOV 2025 22:21:23  ** DBKSOL                       ** GENERATED CODE                                   PAGE 00530
 20370  
 20371  int_4 _dbksol (int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ x_)
 20372  { // ** body not listed **
 20389  }
 20390  
 20391  // VIF  THU 20 NOV 2025 22:21:23  ** DBNDAC                       ** DBNDAC                                           PAGE 00531
 20392  
 20393  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20394  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20395  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20396  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20397  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20398  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20399  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20400  
 20401  //                                   DDDDDD  BBBBBB  N     N DDDDDD     A     CCCCC
 20402  //                                   D     D B     B NN    N D     D   A A   C     C
 20403  //                                   D     D B     B N N   N D     D  A   A  C
 20404  //                                   D     D BBBBBB  N  N  N D     D A     A C
 20405  //                                   D     D B     B N   N N D     D AAAAAAA C
 20406  //                                   D     D B     B N    NN D     D A     A C     C
 20407  //                                   DDDDDD  BBBBBB  N     N DDDDDD  A     A  CCCCC
 20408  
 20409  
 20410  // VIF  THU 20 NOV 2025 22:21:23  ** DBNDAC                       ** DIAGNOSTICS                                      PAGE 00532
 20411  
 20412  
 20413  // VIF  THU 20 NOV 2025 22:21:23  ** DBNDAC                       ** GENERATED CODE                                   PAGE 00533
 20414  
 20415  int_4 _dbndac (real_8 _p_ g_, int_4 _p_ mdg_, int_4 _p_ nb_, int_4 _p_ ip_, int_4 _p_ ir_, int_4 _p_ mt_, int_4 _p_ jt_
 20416  )
 20417  { // ** body not listed **
 20495  }
 20496  
 20497  // VIF  THU 20 NOV 2025 22:21:23  ** DBNDSL                       ** DBNDSL                                           PAGE 00535
 20498  
 20499  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20500  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20501  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20502  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20503  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20504  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20505  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20506  
 20507  //                                   DDDDDD  BBBBBB  N     N DDDDDD   SSSSS  L
 20508  //                                   D     D B     B NN    N D     D S     S L
 20509  //                                   D     D B     B N N   N D     D S       L
 20510  //                                   D     D BBBBBB  N  N  N D     D  SSSSS  L
 20511  //                                   D     D B     B N   N N D     D       S L
 20512  //                                   D     D B     B N    NN D     D S     S L
 20513  //                                   DDDDDD  BBBBBB  N     N DDDDDD   SSSSS  LLLLLLL
 20514  
 20515  
 20516  // VIF  THU 20 NOV 2025 22:21:23  ** DBNDSL                       ** DIAGNOSTICS                                      PAGE 00536
 20517  
 20518  
 20519  // VIF  THU 20 NOV 2025 22:21:23  ** DBNDSL                       ** GENERATED CODE                                   PAGE 00537
 20520  
 20521  int_4 _dbndsl (int_4 _p_ mode_, real_8 _p_ g_, int_4 _p_ mdg_, int_4 _p_ nb_, int_4 _p_ ip_, int_4 _p_ ir_, real_8 _p_ 
 20522  x_, int_4 _p_ n_, real_8 _p_ rnorm_)
 20523  { // ** body not listed **
 20613  }
 20614  
 20615  // VIF  THU 20 NOV 2025 22:21:23  ** DBOCLS                       ** DBOCLS                                           PAGE 00539
 20616  
 20617  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20618  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20619  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20620  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20621  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20622  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20623  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20624  
 20625  //                                   DDDDDD  BBBBBB   OOOOO   CCCCC  L        SSSSS
 20626  //                                   D     D B     B O     O C     C L       S     S
 20627  //                                   D     D B     B O     O C       L       S
 20628  //                                   D     D BBBBBB  O     O C       L        SSSSS
 20629  //                                   D     D B     B O     O C       L             S
 20630  //                                   D     D B     B O     O C     C L       S     S
 20631  //                                   DDDDDD  BBBBBB   OOOOO   CCCCC  LLLLLLL  SSSSS
 20632  
 20633  
 20634  // VIF  THU 20 NOV 2025 22:21:23  ** DBOCLS                       ** DIAGNOSTICS                                      PAGE 00540
 20635  
 20636  
 20637  // VIF  THU 20 NOV 2025 22:21:23  ** DBOCLS                       ** GENERATED CODE                                   PAGE 00541
 20638  
 20639  int_4 _dbocls (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mcon_, int_4 _p_ mrows_, int_4 _p_ ncols_, real_8 _p_ bl_, 
 20640  real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_8 _p_ x_, real_8 _p_ rnormc_, real_8 _p_ rnorm_, int_4 _p_ mode_, 
 20641  real_8 _p_ rw_, int_4 _p_ iw_)
 20642  { // ** body not listed **
 22259  }
 22260  
 22261  // VIF  THU 20 NOV 2025 22:21:23  ** DBOLS                        ** DBOLS                                            PAGE 00573
 22262  
 22263  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 22264  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 22265  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 22266  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 22267  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 22268  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 22269  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 22270  
 22271  //                                       DDDDDD  BBBBBB   OOOOO  L        SSSSS
 22272  //                                       D     D B     B O     O L       S     S
 22273  //                                       D     D B     B O     O L       S
 22274  //                                       D     D BBBBBB  O     O L        SSSSS
 22275  //                                       D     D B     B O     O L             S
 22276  //                                       D     D B     B O     O L       S     S
 22277  //                                       DDDDDD  BBBBBB   OOOOO  LLLLLLL  SSSSS
 22278  
 22279  
 22280  // VIF  THU 20 NOV 2025 22:21:23  ** DBOLS                        ** DIAGNOSTICS                                      PAGE 00574
 22281  
 22282  
 22283  // VIF  THU 20 NOV 2025 22:21:23  ** DBOLS                        ** GENERATED CODE                                   PAGE 00575
 22284  
 22285  int_4 _dbols (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mrows_, int_4 _p_ ncols_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 
 22286  _p_ ind_, int_4 _p_ iopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, real_8 _p_ rw_, int_4 _p_ iw_)
 22287  { // ** body not listed **
 23702  }
 23703  
 23704  // VIF  THU 20 NOV 2025 22:21:23  ** DBOLSM                       ** DBOLSM                                           PAGE 00603
 23705  
 23706  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23707  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23708  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23709  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23710  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23711  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23712  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23713  
 23714  //                                   DDDDDD  BBBBBB   OOOOO  L        SSSSS  M     M
 23715  //                                   D     D B     B O     O L       S     S MM   MM
 23716  //                                   D     D B     B O     O L       S       M M M M
 23717  //                                   D     D BBBBBB  O     O L        SSSSS  M  M  M
 23718  //                                   D     D B     B O     O L             S M     M
 23719  //                                   D     D B     B O     O L       S     S M     M
 23720  //                                   DDDDDD  BBBBBB   OOOOO  LLLLLLL  SSSSS  M     M
 23721  
 23722  
 23723  // VIF  THU 20 NOV 2025 22:21:23  ** DBOLSM                       ** DIAGNOSTICS                                      PAGE 00604
 23724  
 23725  
 23726  // VIF  THU 20 NOV 2025 22:21:23  ** DBOLSM                       ** GENERATED CODE                                   PAGE 00605
 23727  
 23728  int_4 _dbolsm (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ minput_, int_4 _p_ ncols_, real_8 _p_ bl_, real_8 _p_ bu_, 
 23729  int_4 _p_ ind_, int_4 _p_ iopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, real_8 _p_ rw_, real_8 _p_ ww_, 
 23730  real_8 _p_ scl_, int_4 _p_ ibasis_, int_4 _p_ ibb_)
 23731  { // ** body not listed **
 25545  }
 25546  // VIF  THU 20 NOV 2025 22:21:23  ** DBOLSM                       ** GENERATED CODE                                   PAGE 00640
 25547  
 25548  
 25549  // VIF  THU 20 NOV 2025 22:21:23  ** DBSGQ8                       ** DBSGQ8                                           PAGE 00641
 25550  
 25551  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25552  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25553  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25554  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25555  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25556  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25557  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25558  
 25559  //                                   DDDDDD  BBBBBB   SSSSS   GGGGG   QQQQQ   88888
 25560  //                                   D     D B     B S     S G     G Q     Q 8     8
 25561  //                                   D     D B     B S       G       Q     Q 8     8
 25562  //                                   D     D BBBBBB   SSSSS  G  GGGG Q     Q  88888
 25563  //                                   D     D B     B       S G     G Q   Q Q 8     8
 25564  //                                   D     D B     B S     S G     G Q    Q  8     8
 25565  //                                   DDDDDD  BBBBBB   SSSSS   GGGGG   QQQQ Q  88888
 25566  
 25567  
 25568  // VIF  THU 20 NOV 2025 22:21:23  ** DBSGQ8                       ** DIAGNOSTICS                                      PAGE 00642
 25569  
 25570  
 25571  // VIF  THU 20 NOV 2025 22:21:23  ** DBSGQ8                       ** GENERATED CODE                                   PAGE 00643
 25572  
 25573  int_4 _dbsgq8 (real_8 (*_fun)(), real_8 _p_ xt_, real_8 _p_ bc_, int_4 _p_ n_, int_4 _p_ kk_, int_4 _p_ id_, real_8 _p_ 
 25574  a_, real_8 _p_ b_, int_4 _p_ inbv_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ ierr_, real_8 _p_ work_)
 25575  { // ** body not listed **
 25868  }
 25869  
 25870  // VIF  THU 20 NOV 2025 22:21:23  ** DCFOD                        ** DCFOD                                            PAGE 00649
 25871  
 25872  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25873  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25874  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25875  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25876  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25877  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25878  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25879  
 25880  //                                       DDDDDD   CCCCC  FFFFFFF  OOOOO  DDDDDD
 25881  //                                       D     D C     C F       O     O D     D
 25882  //                                       D     D C       F       O     O D     D
 25883  //                                       D     D C       FFFFF   O     O D     D
 25884  //                                       D     D C       F       O     O D     D
 25885  //                                       D     D C     C F       O     O D     D
 25886  //                                       DDDDDD   CCCCC  F        OOOOO  DDDDDD
 25887  
 25888  
 25889  // VIF  THU 20 NOV 2025 22:21:23  ** DCFOD                        ** DIAGNOSTICS                                      PAGE 00650
 25890  
 25891  
 25892  // VIF  THU 20 NOV 2025 22:21:23  ** DCFOD                        ** GENERATED CODE                                   PAGE 00651
 25893  
 25894  int_4 _dcfod (int_4 _p_ meth_, real_8 _p_ elco_, real_8 _p_ tesco_)
 25895  { // ** body not listed **
 25972  }
 25973  
 25974  // VIF  THU 20 NOV 2025 22:21:23  ** DCKDER                       ** DCKDER                                           PAGE 00653
 25975  
 25976  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25977  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25978  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25979  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25980  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25981  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25982  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25983  
 25984  //                                   DDDDDD   CCCCC  K    K  DDDDDD  EEEEEEE RRRRRR
 25985  //                                   D     D C     C K   K   D     D E       R     R
 25986  //                                   D     D C       K  K    D     D E       R     R
 25987  //                                   D     D C       KKK     D     D EEEEE   RRRRRR
 25988  //                                   D     D C       K  K    D     D E       R   R
 25989  //                                   D     D C     C K   K   D     D E       R    R
 25990  //                                   DDDDDD   CCCCC  K    K  DDDDDD  EEEEEEE R     R
 25991  
 25992  
 25993  // VIF  THU 20 NOV 2025 22:21:23  ** DCKDER                       ** DIAGNOSTICS                                      PAGE 00654
 25994  
 25995  
 25996  // VIF  THU 20 NOV 2025 22:21:23  ** DCKDER                       ** GENERATED CODE                                   PAGE 00655
 25997  
 25998  int_4 _dckder (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ fjac_, int_4 _p_ ldfjac_, real_8 
 25999  _p_ xp_, real_8 _p_ fvecp_, int_4 _p_ mode_, real_8 _p_ err_)
 26000  { // ** body not listed **
 26077  }
 26078  
 26079  // VIF  THU 20 NOV 2025 22:21:23  ** DCOEF                        ** DCOEF                                            PAGE 00657
 26080  
 26081  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26082  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26083  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26084  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26085  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26086  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26087  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26088  
 26089  //                                       DDDDDD   CCCCC   OOOOO  EEEEEEE FFFFFFF
 26090  //                                       D     D C     C O     O E       F
 26091  //                                       D     D C       O     O E       F
 26092  //                                       D     D C       O     O EEEEE   FFFFF
 26093  //                                       D     D C       O     O E       F
 26094  //                                       D     D C     C O     O E       F
 26095  //                                       DDDDDD   CCCCC   OOOOO  EEEEEEE F
 26096  
 26097  
 26098  // VIF  THU 20 NOV 2025 22:21:23  ** DCOEF                        ** DIAGNOSTICS                                      PAGE 00658
 26099  
 26100  
 26101  // VIF  THU 20 NOV 2025 22:21:23  ** DCOEF                        ** GENERATED CODE                                   PAGE 00659
 26102  
 26103  int_4 _dcoef (real_8 _p_ yh_, real_8 _p_ yp_, int_4 _p_ ncomp_, int_4 _p_ nrowb_, int_4 _p_ nfc_, int_4 _p_ nic_, 
 26104  real_8 _p_ b_, real_8 _p_ beta_, real_8 _p_ coef_, int_4 _p_ inhomo_, real_8 _p_ re_, real_8 _p_ ae_, real_8 _p_ by_, 
 26105  real_8 _p_ cvec_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ iflag_, int_4 _p_ nfcc_)
 26106  { // ** body not listed **
 26244  }
 26245  
 26246  // VIF  THU 20 NOV 2025 22:21:23  ** DCOV                         ** DCOV                                             PAGE 00662
 26247  
 26248  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26249  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26250  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26251  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26252  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26253  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26254  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26255  
 26256  //                                           DDDDDD   CCCCC   OOOOO  V     V
 26257  //                                           D     D C     C O     O V     V
 26258  //                                           D     D C       O     O V     V
 26259  //                                           D     D C       O     O V     V
 26260  //                                           D     D C       O     O  V   V
 26261  //                                           D     D C     C O     O   V V
 26262  //                                           DDDDDD   CCCCC   OOOOO     V
 26263  
 26264  
 26265  // VIF  THU 20 NOV 2025 22:21:23  ** DCOV                         ** DIAGNOSTICS                                      PAGE 00663
 26266  
 26267  
 26268  // VIF  THU 20 NOV 2025 22:21:23  ** DCOV                         ** GENERATED CODE                                   PAGE 00664
 26269  
 26270  int_4 _dcov (int_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ 
 26271  r_, int_4 _p_ ldr_, int_4 _p_ info_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
 26272  { // ** body not listed **
 26417  }
 26418  
 26419  // VIF  THU 20 NOV 2025 22:21:23  ** DCSCAL                       ** DCSCAL                                           PAGE 00667
 26420  
 26421  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26422  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26423  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26424  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26425  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26426  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26427  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26428  
 26429  //                                   DDDDDD   CCCCC   SSSSS   CCCCC     A    L
 26430  //                                   D     D C     C S     S C     C   A A   L
 26431  //                                   D     D C       S       C        A   A  L
 26432  //                                   D     D C        SSSSS  C       A     A L
 26433  //                                   D     D C             S C       AAAAAAA L
 26434  //                                   D     D C     C S     S C     C A     A L
 26435  //                                   DDDDDD   CCCCC   SSSSS   CCCCC  A     A LLLLLLL
 26436  
 26437  
 26438  // VIF  THU 20 NOV 2025 22:21:23  ** DCSCAL                       ** DIAGNOSTICS                                      PAGE 00668
 26439  
 26440  
 26441  // VIF  THU 20 NOV 2025 22:21:23  ** DCSCAL                       ** GENERATED CODE                                   PAGE 00669
 26442  
 26443  int_4 _dcscal (real_8 _p_ a_, int_4 _p_ nrda_, int_4 _p_ nrow_, int_4 _p_ ncol_, real_8 _p_ cols_, real_8 _p_ colsav_, 
 26444  real_8 _p_ rows_, real_8 _p_ rowsav_, real_8 _p_ anorm_, real_8 _p_ scales_, int_4 _p_ iscale_, int_4 _p_ ic_)
 26445  { // ** body not listed **
 26533  }
 26534  
 26535  // VIF  THU 20 NOV 2025 22:21:23  ** DCV                          ** DCV                                              PAGE 00671
 26536  
 26537  //                                   RRRRRR  EEEEEEE    A    L                88888
 26538  //                                   R     R E         A A   L        *   *  8     8
 26539  //                                   R     R E        A   A  L         * *   8     8
 26540  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 26541  //                                   R   R   E       AAAAAAA L         * *   8     8
 26542  //                                   R    R  E       A     A L        *   *  8     8
 26543  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 26544  
 26545  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 26546  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 26547  //                           F       U     U N N   N C          T       I    O     O N N   N
 26548  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 26549  //                           F       U     U N   N N C          T       I    O     O N   N N
 26550  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 26551  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 26552  
 26553  //                                               DDDDDD   CCCCC  V     V
 26554  //                                               D     D C     C V     V
 26555  //                                               D     D C       V     V
 26556  //                                               D     D C       V     V
 26557  //                                               D     D C        V   V
 26558  //                                               D     D C     C   V V
 26559  //                                               DDDDDD   CCCCC     V
 26560  
 26561  
 26562  // VIF  THU 20 NOV 2025 22:21:23  ** DCV                          ** DIAGNOSTICS                                      PAGE 00672
 26563  
 26564  
 26565  // VIF  THU 20 NOV 2025 22:21:23  ** DCV                          ** GENERATED CODE                                   PAGE 00673
 26566  
 26567  real_8 _dcv (real_8 _p_ xval_, int_4 _p_ ndata_, int_4 _p_ nconst_, int_4 _p_ nord_, int_4 _p_ nbkpt_, real_8 _p_ bkpt_
 26568  , real_8 _p_ w_)
 26569  { // ** body not listed **
 26599  }
 26600  
 26601  // VIF  THU 20 NOV 2025 22:21:23  ** DDES                         ** DDES                                             PAGE 00674
 26602  
 26603  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26604  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26605  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26606  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26607  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26608  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26609  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26610  
 26611  //                                           DDDDDD  DDDDDD  EEEEEEE  SSSSS
 26612  //                                           D     D D     D E       S     S
 26613  //                                           D     D D     D E       S
 26614  //                                           D     D D     D EEEEE    SSSSS
 26615  //                                           D     D D     D E             S
 26616  //                                           D     D D     D E       S     S
 26617  //                                           DDDDDD  DDDDDD  EEEEEEE  SSSSS
 26618  
 26619  
 26620  // VIF  THU 20 NOV 2025 22:21:23  ** DDES                         ** DIAGNOSTICS                                      PAGE 00675
 26621  
 26622  
 26623  // VIF  THU 20 NOV 2025 22:21:23  ** DDES                         ** GENERATED CODE                                   PAGE 00676
 26624  
 26625  int_4 _ddes (int_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ tout_, int_4 _p_ info_, real_8 
 26626  _p_ rtol_, real_8 _p_ atol_, int_4 _p_ idid_, real_8 _p_ ypout_, real_8 _p_ yp_, real_8 _p_ yy_, real_8 _p_ wt_, real_8 
 26627  _p_ p_, real_8 _p_ phi_, real_8 _p_ alpha_, real_8 _p_ beta_, real_8 _p_ psi_, real_8 _p_ v_, real_8 _p_ w_, real_8 _p_ 
 26628  sig_, real_8 _p_ g_, real_8 _p_ gi_, real_8 _p_ h_, real_8 _p_ eps_, real_8 _p_ x_, real_8 _p_ xold_, real_8 _p_ hold_, 
 26629  real_8 _p_ told_, real_8 _p_ delsgn_, real_8 _p_ tstop_, real_8 _p_ twou_, real_8 _p_ fouru_, logical_4 _p_ start_, 
 26630  logical_4 _p_ phase1_, logical_4 _p_ nornd_, logical_4 _p_ stiff_, logical_4 _p_ intout_, int_4 _p_ ns_, int_4 _p_ 
 26631  kord_, int_4 _p_ kold_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kle4_, int_4 _p_ iquit_, int_4 _p_ kprev_, int_4 
 26632  _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_8 _p_ rpar_, int_4 _p_ ipar_)
 26633  { // ** body not listed **
 27564  }
 27565  
 27566  // VIF  THU 20 NOV 2025 22:21:23  ** DDOGLG                       ** DDOGLG                                           PAGE 00695
 27567  
 27568  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 27569  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 27570  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 27571  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 27572  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 27573  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 27574  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 27575  
 27576  //                                   DDDDDD  DDDDDD   OOOOO   GGGGG  L        GGGGG
 27577  //                                   D     D D     D O     O G     G L       G     G
 27578  //                                   D     D D     D O     O G       L       G
 27579  //                                   D     D D     D O     O G  GGGG L       G  GGGG
 27580  //                                   D     D D     D O     O G     G L       G     G
 27581  //                                   D     D D     D O     O G     G L       G     G
 27582  //                                   DDDDDD  DDDDDD   OOOOO   GGGGG  LLLLLLL  GGGGG
 27583  
 27584  
 27585  // VIF  THU 20 NOV 2025 22:21:23  ** DDOGLG                       ** DIAGNOSTICS                                      PAGE 00696
 27586  
 27587  
 27588  // VIF  THU 20 NOV 2025 22:21:23  ** DDOGLG                       ** GENERATED CODE                                   PAGE 00697
 27589  
 27590  int_4 _ddoglg (int_4 _p_ n_, real_8 _p_ r_, int_4 _p_ lr_, real_8 _p_ diag_, real_8 _p_ qtb_, real_8 _p_ delta_, real_8 
 27591  _p_ x_, real_8 _p_ wa1_, real_8 _p_ wa2_)
 27592  { // ** body not listed **
 27707  }
 27708  
 27709  // VIF  THU 20 NOV 2025 22:21:23  ** DEFCMN                       ** DEFCMN                                           PAGE 00700
 27710  
 27711  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 27712  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 27713  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 27714  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 27715  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 27716  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 27717  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 27718  
 27719  //                                   DDDDDD  EEEEEEE FFFFFFF  CCCCC  M     M N     N
 27720  //                                   D     D E       F       C     C MM   MM NN    N
 27721  //                                   D     D E       F       C       M M M M N N   N
 27722  //                                   D     D EEEEE   FFFFF   C       M  M  M N  N  N
 27723  //                                   D     D E       F       C       M     M N   N N
 27724  //                                   D     D E       F       C     C M     M N    NN
 27725  //                                   DDDDDD  EEEEEEE F        CCCCC  M     M N     N
 27726  
 27727  
 27728  // VIF  THU 20 NOV 2025 22:21:23  ** DEFCMN                       ** DIAGNOSTICS                                      PAGE 00701
 27729  
 27730  
 27731  // VIF  THU 20 NOV 2025 22:21:23  ** DEFCMN                       ** GENERATED CODE                                   PAGE 00702
 27732  
 27733  int_4 _defcmn (int_4 _p_ ndata_, real_8 _p_ xdata_, real_8 _p_ ydata_, real_8 _p_ sddata_, int_4 _p_ nord_, int_4 _p_ 
 27734  nbkpt_, real_8 _p_ bkptin_, int_4 _p_ mdein_, int_4 _p_ mdeout_, real_8 _p_ coeff_, real_8 _p_ bf_, real_8 _p_ xtemp_, 
 27735  real_8 _p_ ptemp_, real_8 _p_ bkpt_, real_8 _p_ g_, int_4 _p_ mdg_, real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ lw_)
 27736  { // ** body not listed **
 27941  }
 27942  
 27943  // VIF  THU 20 NOV 2025 22:21:23  ** DEFE4                        ** DEFE4                                            PAGE 00707
 27944  
 27945  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 27946  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 27947  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 27948  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 27949  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 27950  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 27951  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 27952  
 27953  //                                       DDDDDD  EEEEEEE FFFFFFF EEEEEEE 4
 27954  //                                       D     D E       F       E       4    4
 27955  //                                       D     D E       F       E       4    4
 27956  //                                       D     D EEEEE   FFFFF   EEEEE   4444444
 27957  //                                       D     D E       F       E            4
 27958  //                                       D     D E       F       E            4
 27959  //                                       DDDDDD  EEEEEEE F       EEEEEEE      4
 27960  
 27961  
 27962  // VIF  THU 20 NOV 2025 22:21:23  ** DEFE4                        ** DIAGNOSTICS                                      PAGE 00708
 27963  
 27964  
 27965  // VIF  THU 20 NOV 2025 22:21:23  ** DEFE4                        ** GENERATED CODE                                   PAGE 00709
 27966  
 27967  int_4 _defe4 (int_4 (*_cofx)(), int_4 _p_ idmn_, real_4 _p_ usol_, real_4 _p_ grhs_)
 27968  { // ** body not listed **
 28000  }
 28001  
 28002  // VIF  THU 20 NOV 2025 22:21:23  ** DEFEHL                       ** DEFEHL                                           PAGE 00710
 28003  
 28004  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 28005  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 28006  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 28007  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 28008  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 28009  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 28010  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 28011  
 28012  //                                   DDDDDD  EEEEEEE FFFFFFF EEEEEEE H     H L
 28013  //                                   D     D E       F       E       H     H L
 28014  //                                   D     D E       F       E       H     H L
 28015  //                                   D     D EEEEE   FFFFF   EEEEE   HHHHHHH L
 28016  //                                   D     D E       F       E       H     H L
 28017  //                                   D     D E       F       E       H     H L
 28018  //                                   DDDDDD  EEEEEEE F       EEEEEEE H     H LLLLLLL
 28019  
 28020  
 28021  // VIF  THU 20 NOV 2025 22:21:23  ** DEFEHL                       ** DIAGNOSTICS                                      PAGE 00711
 28022  
 28023  
 28024  // VIF  THU 20 NOV 2025 22:21:23  ** DEFEHL                       ** GENERATED CODE                                   PAGE 00712
 28025  
 28026  int_4 _defehl (int_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ t_, real_4 _p_ y_, real_4 _p_ h_, real_4 _p_ yp_, real_4 _p_ 
 28027  f1_, real_4 _p_ f2_, real_4 _p_ f3_, real_4 _p_ f4_, real_4 _p_ f5_, real_4 _p_ ys_, real_4 _p_ rpar_, int_4 _p_ ipar_)
 28028  { // ** body not listed **
 28066  }
 28067  
 28068  // VIF  THU 20 NOV 2025 22:21:23  ** DEFER                        ** DEFER                                            PAGE 00713
 28069  
 28070  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 28071  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 28072  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 28073  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 28074  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 28075  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 28076  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 28077  
 28078  //                                       DDDDDD  EEEEEEE FFFFFFF EEEEEEE RRRRRR
 28079  //                                       D     D E       F       E       R     R
 28080  //                                       D     D E       F       E       R     R
 28081  //                                       D     D EEEEE   FFFFF   EEEEE   RRRRRR
 28082  //                                       D     D E       F       E       R   R
 28083  //                                       D     D E       F       E       R    R
 28084  //                                       DDDDDD  EEEEEEE F       EEEEEEE R     R
 28085  
 28086  
 28087  // VIF  THU 20 NOV 2025 22:21:23  ** DEFER                        ** DIAGNOSTICS                                      PAGE 00714
 28088  
 28089  
 28090  // VIF  THU 20 NOV 2025 22:21:23  ** DEFER                        ** GENERATED CODE                                   PAGE 00715
 28091  
 28092  int_4 _defer (int_4 (*_cofx)(), int_4 (*_cofy)(), int_4 _p_ idmn_, real_4 _p_ usol_, real_4 _p_ grhs_)
 28093  { // ** body not listed **
 28127  }
 28128  
 28129  // VIF  THU 20 NOV 2025 22:21:23  ** DENORM                       ** DENORM                                           PAGE 00716
 28130  
 28131  //                                   RRRRRR  EEEEEEE    A    L                88888
 28132  //                                   R     R E         A A   L        *   *  8     8
 28133  //                                   R     R E        A   A  L         * *   8     8
 28134  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 28135  //                                   R   R   E       AAAAAAA L         * *   8     8
 28136  //                                   R    R  E       A     A L        *   *  8     8
 28137  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 28138  
 28139  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 28140  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 28141  //                           F       U     U N N   N C          T       I    O     O N N   N
 28142  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 28143  //                           F       U     U N   N N C          T       I    O     O N   N N
 28144  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 28145  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 28146  
 28147  //                                   DDDDDD  EEEEEEE N     N  OOOOO  RRRRRR  M     M
 28148  //                                   D     D E       NN    N O     O R     R MM   MM
 28149  //                                   D     D E       N N   N O     O R     R M M M M
 28150  //                                   D     D EEEEE   N  N  N O     O RRRRRR  M  M  M
 28151  //                                   D     D E       N   N N O     O R   R   M     M
 28152  //                                   D     D E       N    NN O     O R    R  M     M
 28153  //                                   DDDDDD  EEEEEEE N     N  OOOOO  R     R M     M
 28154  
 28155  
 28156  // VIF  THU 20 NOV 2025 22:21:23  ** DENORM                       ** DIAGNOSTICS                                      PAGE 00717
 28157  
 28158  
 28159  // VIF  THU 20 NOV 2025 22:21:23  ** DENORM                       ** GENERATED CODE                                   PAGE 00718
 28160  
 28161  real_8 _denorm (int_4 _p_ n_, real_8 _p_ x_)
 28162  { // ** body not listed **
 28267  }
 28268  
 28269  // VIF  THU 20 NOV 2025 22:21:23  ** DERKFS                       ** DERKFS                                           PAGE 00721
 28270  
 28271  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 28272  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 28273  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 28274  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 28275  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 28276  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 28277  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 28278  
 28279  //                                   DDDDDD  EEEEEEE RRRRRR  K    K  FFFFFFF  SSSSS
 28280  //                                   D     D E       R     R K   K   F       S     S
 28281  //                                   D     D E       R     R K  K    F       S
 28282  //                                   D     D EEEEE   RRRRRR  KKK     FFFFF    SSSSS
 28283  //                                   D     D E       R   R   K  K    F             S
 28284  //                                   D     D E       R    R  K   K   F       S     S
 28285  //                                   DDDDDD  EEEEEEE R     R K    K  F        SSSSS
 28286  
 28287  
 28288  // VIF  THU 20 NOV 2025 22:21:23  ** DERKFS                       ** DIAGNOSTICS                                      PAGE 00722
 28289  
 28290  
 28291  // VIF  THU 20 NOV 2025 22:21:23  ** DERKFS                       ** GENERATED CODE                                   PAGE 00723
 28292  
 28293  int_4 _derkfs (int_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ t_, real_4 _p_ y_, real_4 _p_ tout_, int_4 _p_ info_, real_4 
 28294  _p_ rtol_, real_4 _p_ atol_, int_4 _p_ idid_, real_4 _p_ h_, real_4 _p_ tolfac_, real_4 _p_ yp_, real_4 _p_ f1_, real_4 
 28295  _p_ f2_, real_4 _p_ f3_, real_4 _p_ f4_, real_4 _p_ f5_, real_4 _p_ ys_, real_4 _p_ told_, real_4 _p_ dtsign_, real_4 
 28296  _p_ u26_, real_4 _p_ rer_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kop_, int_4 _p_ iquit_, logical_4 _p_ stiff_, 
 28297  logical_4 _p_ nonstf_, int_4 _p_ ntstep_, int_4 _p_ nstifs_, real_4 _p_ rpar_, int_4 _p_ ipar_)
 28298  { // ** body not listed **
 29187  }
 29188  
 29189  // VIF  THU 20 NOV 2025 22:21:23  ** DES                          ** DES                                              PAGE 00741
 29190  
 29191  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 29192  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 29193  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 29194  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 29195  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 29196  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 29197  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 29198  
 29199  //                                               DDDDDD  EEEEEEE  SSSSS
 29200  //                                               D     D E       S     S
 29201  //                                               D     D E       S
 29202  //                                               D     D EEEEE    SSSSS
 29203  //                                               D     D E             S
 29204  //                                               D     D E       S     S
 29205  //                                               DDDDDD  EEEEEEE  SSSSS
 29206  
 29207  
 29208  // VIF  THU 20 NOV 2025 22:21:23  ** DES                          ** DIAGNOSTICS                                      PAGE 00742
 29209  
 29210  
 29211  // VIF  THU 20 NOV 2025 22:21:23  ** DES                          ** GENERATED CODE                                   PAGE 00743
 29212  
 29213  int_4 _des (int_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ t_, real_4 _p_ y_, real_4 _p_ tout_, int_4 _p_ info_, real_4 _p_ 
 29214  rtol_, real_4 _p_ atol_, int_4 _p_ idid_, real_4 _p_ ypout_, real_4 _p_ yp_, real_4 _p_ yy_, real_4 _p_ wt_, real_4 _p_ 
 29215  p_, real_4 _p_ phi_, real_4 _p_ alpha_, real_4 _p_ beta_, real_4 _p_ psi_, real_4 _p_ v_, real_4 _p_ w_, real_4 _p_ 
 29216  sig_, real_4 _p_ g_, real_4 _p_ gi_, real_4 _p_ h_, real_4 _p_ eps_, real_4 _p_ x_, real_4 _p_ xold_, real_4 _p_ hold_, 
 29217  real_4 _p_ told_, real_4 _p_ delsgn_, real_4 _p_ tstop_, real_4 _p_ twou_, real_4 _p_ fouru_, logical_4 _p_ start_, 
 29218  logical_4 _p_ phase1_, logical_4 _p_ nornd_, logical_4 _p_ stiff_, logical_4 _p_ intout_, int_4 _p_ ns_, int_4 _p_ 
 29219  kord_, int_4 _p_ kold_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kle4_, int_4 _p_ iquit_, int_4 _p_ kprev_, int_4 
 29220  _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_4 _p_ rpar_, int_4 _p_ ipar_)
 29221  { // ** body not listed **
 30153  }
 30154  
 30155  // VIF  THU 20 NOV 2025 22:21:23  ** DFCMN                        ** DFCMN                                            PAGE 00762
 30156  
 30157  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 30158  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 30159  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 30160  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 30161  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 30162  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 30163  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 30164  
 30165  //                                       DDDDDD  FFFFFFF  CCCCC  M     M N     N
 30166  //                                       D     D F       C     C MM   MM NN    N
 30167  //                                       D     D F       C       M M M M N N   N
 30168  //                                       D     D FFFFF   C       M  M  M N  N  N
 30169  //                                       D     D F       C       M     M N   N N
 30170  //                                       D     D F       C     C M     M N    NN
 30171  //                                       DDDDDD  F        CCCCC  M     M N     N
 30172  
 30173  
 30174  // VIF  THU 20 NOV 2025 22:21:23  ** DFCMN                        ** DIAGNOSTICS                                      PAGE 00763
 30175  
 30176  
 30177  // VIF  THU 20 NOV 2025 22:21:23  ** DFCMN                        ** GENERATED CODE                                   PAGE 00764
 30178  
 30179  int_4 _dfcmn (int_4 _p_ ndata_, real_8 _p_ xdata_, real_8 _p_ ydata_, real_8 _p_ sddata_, int_4 _p_ nord_, int_4 _p_ 
 30180  nbkpt_, real_8 _p_ bkptin_, int_4 _p_ nconst_, real_8 _p_ xconst_, real_8 _p_ yconst_, int_4 _p_ nderiv_, int_4 _p_ 
 30181  mode_, real_8 _p_ coeff_, real_8 _p_ bf_, real_8 _p_ xtemp_, real_8 _p_ ptemp_, real_8 _p_ bkpt_, real_8 _p_ g_, int_4 
 30182  _p_ mdg_, real_8 _p_ w_, int_4 _p_ mdw_, real_8 _p_ work_, int_4 _p_ iwork_)
 30183  { // ** body not listed **
 30565  }
 30566  
 30567  // VIF  THU 20 NOV 2025 22:21:23  ** DFDJC1                       ** DFDJC1                                           PAGE 00772
 30568  
 30569  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 30570  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 30571  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 30572  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 30573  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 30574  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 30575  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 30576  
 30577  //                                    DDDDDD  FFFFFFF DDDDDD        J  CCCCC     1
 30578  //                                    D     D F       D     D       J C     C   11
 30579  //                                    D     D F       D     D       J C        1 1
 30580  //                                    D     D FFFFF   D     D       J C          1
 30581  //                                    D     D F       D     D J     J C          1
 30582  //                                    D     D F       D     D J     J C     C    1
 30583  //                                    DDDDDD  F       DDDDDD   JJJJJ   CCCCC   11111
 30584  
 30585  
 30586  // VIF  THU 20 NOV 2025 22:21:23  ** DFDJC1                       ** DIAGNOSTICS                                      PAGE 00773
 30587  
 30588  
 30589  // VIF  THU 20 NOV 2025 22:21:23  ** DFDJC1                       ** GENERATED CODE                                   PAGE 00774
 30590  
 30591  int_4 _dfdjc1 (int_4 (*_fcn)(), int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ fjac_, int_4 _p_ ldfjac_, 
 30592  int_4 _p_ iflag_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ epsfcn_, real_8 _p_ wa1_, real_8 _p_ wa2_)
 30593  { // ** body not listed **
 30668  }
 30669  
 30670  // VIF  THU 20 NOV 2025 22:21:23  ** DFDJC3                       ** DFDJC3                                           PAGE 00776
 30671  
 30672  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 30673  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 30674  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 30675  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 30676  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 30677  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 30678  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 30679  
 30680  //                                   DDDDDD  FFFFFFF DDDDDD        J  CCCCC   33333
 30681  //                                   D     D F       D     D       J C     C 3     3
 30682  //                                   D     D F       D     D       J C             3
 30683  //                                   D     D FFFFF   D     D       J C        33333
 30684  //                                   D     D F       D     D J     J C             3
 30685  //                                   D     D F       D     D J     J C     C 3     3
 30686  //                                   DDDDDD  F       DDDDDD   JJJJJ   CCCCC   33333
 30687  
 30688  
 30689  // VIF  THU 20 NOV 2025 22:21:23  ** DFDJC3                       ** DIAGNOSTICS                                      PAGE 00777
 30690  
 30691  
 30692  // VIF  THU 20 NOV 2025 22:21:23  ** DFDJC3                       ** GENERATED CODE                                   PAGE 00778
 30693  
 30694  int_4 _dfdjc3 (int_4 (*_fcn)(), int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ fjac_, int_4 
 30695  _p_ ldfjac_, int_4 _p_ iflag_, real_8 _p_ epsfcn_, real_8 _p_ wa_)
 30696  { // ** body not listed **
 30735  }
 30736  
 30737  // VIF  THU 20 NOV 2025 22:21:23  ** DFEHL                        ** DFEHL                                            PAGE 00779
 30738  
 30739  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 30740  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 30741  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 30742  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 30743  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 30744  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 30745  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 30746  
 30747  //                                       DDDDDD  FFFFFFF EEEEEEE H     H L
 30748  //                                       D     D F       E       H     H L
 30749  //                                       D     D F       E       H     H L
 30750  //                                       D     D FFFFF   EEEEE   HHHHHHH L
 30751  //                                       D     D F       E       H     H L
 30752  //                                       D     D F       E       H     H L
 30753  //                                       DDDDDD  F       EEEEEEE H     H LLLLLLL
 30754  
 30755  
 30756  // VIF  THU 20 NOV 2025 22:21:23  ** DFEHL                        ** DIAGNOSTICS                                      PAGE 00780
 30757  
 30758  
 30759  // VIF  THU 20 NOV 2025 22:21:23  ** DFEHL                        ** GENERATED CODE                                   PAGE 00781
 30760  
 30761  int_4 _dfehl (int_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ h_, real_8 _p_ yp_, real_8 _p_ 
 30762  f1_, real_8 _p_ f2_, real_8 _p_ f3_, real_8 _p_ f4_, real_8 _p_ f5_, real_8 _p_ ys_, real_8 _p_ rpar_, int_4 _p_ ipar_)
 30763  { // ** body not listed **
 30801  }
 30802  
 30803  // VIF  THU 20 NOV 2025 22:21:23  ** DFSPVD                       ** DFSPVD                                           PAGE 00782
 30804  
 30805  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 30806  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 30807  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 30808  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 30809  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 30810  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 30811  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 30812  
 30813  //                                   DDDDDD  FFFFFFF  SSSSS  PPPPPP  V     V DDDDDD
 30814  //                                   D     D F       S     S P     P V     V D     D
 30815  //                                   D     D F       S       P     P V     V D     D
 30816  //                                   D     D FFFFF    SSSSS  PPPPPP  V     V D     D
 30817  //                                   D     D F             S P        V   V  D     D
 30818  //                                   D     D F       S     S P         V V   D     D
 30819  //                                   DDDDDD  F        SSSSS  P          V    DDDDDD
 30820  
 30821  
 30822  // VIF  THU 20 NOV 2025 22:21:23  ** DFSPVD                       ** DIAGNOSTICS                                      PAGE 00783
 30823  
 30824  
 30825  // VIF  THU 20 NOV 2025 22:21:23  ** DFSPVD                       ** GENERATED CODE                                   PAGE 00784
 30826  
 30827  int_4 _dfspvd (real_8 _p_ t_, int_4 _p_ k_, real_8 _p_ x_, int_4 _p_ ileft_, real_8 _p_ vnikx_, int_4 _p_ nderiv_)
 30828  { // ** body not listed **
 30896  }
 30897  
 30898  // VIF  THU 20 NOV 2025 22:21:23  ** DFSPVN                       ** DFSPVN                                           PAGE 00786
 30899  
 30900  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 30901  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 30902  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 30903  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 30904  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 30905  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 30906  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 30907  
 30908  //                                   DDDDDD  FFFFFFF  SSSSS  PPPPPP  V     V N     N
 30909  //                                   D     D F       S     S P     P V     V NN    N
 30910  //                                   D     D F       S       P     P V     V N N   N
 30911  //                                   D     D FFFFF    SSSSS  PPPPPP  V     V N  N  N
 30912  //                                   D     D F             S P        V   V  N   N N
 30913  //                                   D     D F       S     S P         V V   N    NN
 30914  //                                   DDDDDD  F        SSSSS  P          V    N     N
 30915  
 30916  
 30917  // VIF  THU 20 NOV 2025 22:21:23  ** DFSPVN                       ** DIAGNOSTICS                                      PAGE 00787
 30918  
 30919  
 30920  // VIF  THU 20 NOV 2025 22:21:23  ** DFSPVN                       ** GENERATED CODE                                   PAGE 00788
 30921  
 30922  int_4 _dfspvn (real_8 _p_ t_, int_4 _p_ jhigh_, int_4 _p_ index_, real_8 _p_ x_, int_4 _p_ ileft_, real_8 _p_ vnikx_)
 30923  { // ** body not listed **
 31033  }
 31034  
 31035  // VIF  THU 20 NOV 2025 22:21:23  ** DFULMT                       ** DFULMT                                           PAGE 00791
 31036  
 31037  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 31038  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 31039  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 31040  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 31041  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 31042  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 31043  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 31044  
 31045  //                                   DDDDDD  FFFFFFF U     U L       M     M TTTTTTT
 31046  //                                   D     D F       U     U L       MM   MM    T
 31047  //                                   D     D F       U     U L       M M M M    T
 31048  //                                   D     D FFFFF   U     U L       M  M  M    T
 31049  //                                   D     D F       U     U L       M     M    T
 31050  //                                   D     D F       U     U L       M     M    T
 31051  //                                   DDDDDD  F        UUUUU  LLLLLLL M     M    T
 31052  
 31053  
 31054  // VIF  THU 20 NOV 2025 22:21:23  ** DFULMT                       ** DIAGNOSTICS                                      PAGE 00792
 31055  
 31056  
 31057  // VIF  THU 20 NOV 2025 22:21:23  ** DFULMT                       ** GENERATED CODE                                   PAGE 00793
 31058  
 31059  int_4 _dfulmt (int_4 _p_ i_, int_4 _p_ j_, real_8 _p_ aij_, int_4 _p_ indcat_, real_8 _p_ prgopt_, real_8 _p_ dattrv_, 
 31060  int_4 _p_ iflag_)
 31061  { // ** body not listed **
 31134  }
 31135  
 31136  // VIF  THU 20 NOV 2025 22:21:23  ** DFZERO                       ** DFZERO                                           PAGE 00795
 31137  
 31138  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 31139  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 31140  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 31141  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 31142  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 31143  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 31144  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 31145  
 31146  //                                   DDDDDD  FFFFFFF ZZZZZZZ EEEEEEE RRRRRR   OOOOO
 31147  //                                   D     D F            Z  E       R     R O     O
 31148  //                                   D     D F           Z   E       R     R O     O
 31149  //                                   D     D FFFFF      Z    EEEEE   RRRRRR  O     O
 31150  //                                   D     D F         Z     E       R   R   O     O
 31151  //                                   D     D F        *      E       R    R  O     O
 31152  //                                   DDDDDD  F       ZZZZZZZ EEEEEEE R     R  OOOOO
 31153  
 31154  
 31155  // VIF  THU 20 NOV 2025 22:21:23  ** DFZERO                       ** DIAGNOSTICS                                      PAGE 00796
 31156  
 31157  
 31158  // VIF  THU 20 NOV 2025 22:21:23  ** DFZERO                       ** GENERATED CODE                                   PAGE 00797
 31159  
 31160  int_4 _dfzero (real_8 (*_f)(), real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ r_, real_8 _p_ re_, real_8 _p_ ae_, int_4 _p_ 
 31161  iflag_)
 31162  { // ** body not listed **
 31296  }
 31297  
 31298  // VIF  THU 20 NOV 2025 22:21:23  ** DGAUS8                       ** DGAUS8                                           PAGE 00800
 31299  
 31300  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 31301  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 31302  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 31303  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 31304  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 31305  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 31306  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 31307  
 31308  //                                   DDDDDD   GGGGG     A    U     U  SSSSS   88888
 31309  //                                   D     D G     G   A A   U     U S     S 8     8
 31310  //                                   D     D G        A   A  U     U S       8     8
 31311  //                                   D     D G  GGGG A     A U     U  SSSSS   88888
 31312  //                                   D     D G     G AAAAAAA U     U       S 8     8
 31313  //                                   D     D G     G A     A U     U S     S 8     8
 31314  //                                   DDDDDD   GGGGG  A     A  UUUUU   SSSSS   88888
 31315  
 31316  
 31317  // VIF  THU 20 NOV 2025 22:21:23  ** DGAUS8                       ** DIAGNOSTICS                                      PAGE 00801
 31318  
 31319  
 31320  // VIF  THU 20 NOV 2025 22:21:23  ** DGAUS8                       ** GENERATED CODE                                   PAGE 00802
 31321  
 31322  int_4 _dgaus8 (real_8 (*_fun)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ ierr_)
 31323  { // ** body not listed **
 31596  }
 31597  
 31598  // VIF  THU 20 NOV 2025 22:21:23  ** DGEFS                        ** DGEFS                                            PAGE 00808
 31599  
 31600  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 31601  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 31602  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 31603  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 31604  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 31605  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 31606  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 31607  
 31608  //                                       DDDDDD   GGGGG  EEEEEEE FFFFFFF  SSSSS
 31609  //                                       D     D G     G E       F       S     S
 31610  //                                       D     D G       E       F       S
 31611  //                                       D     D G  GGGG EEEEE   FFFFF    SSSSS
 31612  //                                       D     D G     G E       F             S
 31613  //                                       D     D G     G E       F       S     S
 31614  //                                       DDDDDD   GGGGG  EEEEEEE F        SSSSS
 31615  
 31616  
 31617  // VIF  THU 20 NOV 2025 22:21:23  ** DGEFS                        ** DIAGNOSTICS                                      PAGE 00809
 31618  
 31619  
 31620  // VIF  THU 20 NOV 2025 22:21:23  ** DGEFS                        ** GENERATED CODE                                   PAGE 00810
 31621  
 31622  int_4 _dgefs (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, real_8 _p_ 
 31623  work_, int_4 _p_ iwork_)
 31624  { // ** body not listed **
 31825  }
 31826  
 31827  // VIF  THU 20 NOV 2025 22:21:23  ** DGLSS                        ** DGLSS                                            PAGE 00814
 31828  
 31829  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 31830  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 31831  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 31832  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 31833  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 31834  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 31835  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 31836  
 31837  //                                       DDDDDD   GGGGG  L        SSSSS   SSSSS
 31838  //                                       D     D G     G L       S     S S     S
 31839  //                                       D     D G       L       S       S
 31840  //                                       D     D G  GGGG L        SSSSS   SSSSS
 31841  //                                       D     D G     G L             S       S
 31842  //                                       D     D G     G L       S     S S     S
 31843  //                                       DDDDDD   GGGGG  LLLLLLL  SSSSS   SSSSS
 31844  
 31845  
 31846  // VIF  THU 20 NOV 2025 22:21:23  ** DGLSS                        ** DIAGNOSTICS                                      PAGE 00815
 31847  
 31848  
 31849  // VIF  THU 20 NOV 2025 22:21:23  ** DGLSS                        ** GENERATED CODE                                   PAGE 00816
 31850  
 31851  int_4 _dglss (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 31852  real_8 _p_ rnorm_, real_8 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_)
 31853  { // ** body not listed **
 31881  }
 31882  
 31883  // VIF  THU 20 NOV 2025 22:21:23  ** DH12                         ** DH12                                             PAGE 00817
 31884  
 31885  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 31886  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 31887  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 31888  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 31889  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 31890  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 31891  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 31892  
 31893  //                                           DDDDDD  H     H    1     22222
 31894  //                                           D     D H     H   11    2     2
 31895  //                                           D     D H     H  1 1          2
 31896  //                                           D     D HHHHHHH    1     22222
 31897  //                                           D     D H     H    1    2
 31898  //                                           D     D H     H    1    2
 31899  //                                           DDDDDD  H     H  11111  2222222
 31900  
 31901  
 31902  // VIF  THU 20 NOV 2025 22:21:23  ** DH12                         ** DIAGNOSTICS                                      PAGE 00818
 31903  
 31904  
 31905  // VIF  THU 20 NOV 2025 22:21:23  ** DH12                         ** GENERATED CODE                                   PAGE 00819
 31906  
 31907  int_4 _dh12 (int_4 _p_ mode_, int_4 _p_ lpivot_, int_4 _p_ l1_, int_4 _p_ m_, real_8 _p_ u_, int_4 _p_ iue_, real_8 _p_ 
 31908  up_, real_8 _p_ c_, int_4 _p_ ice_, int_4 _p_ icv_, int_4 _p_ ncv_)
 31909  { // ** body not listed **
 32015  }
 32016  
 32017  // VIF  THU 20 NOV 2025 22:21:23  ** DHFTI                        ** DHFTI                                            PAGE 00822
 32018  
 32019  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 32020  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 32021  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 32022  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 32023  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 32024  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 32025  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 32026  
 32027  //                                        DDDDDD  H     H FFFFFFF TTTTTTT   III
 32028  //                                        D     D H     H F          T       I
 32029  //                                        D     D H     H F          T       I
 32030  //                                        D     D HHHHHHH FFFFF      T       I
 32031  //                                        D     D H     H F          T       I
 32032  //                                        D     D H     H F          T       I
 32033  //                                        DDDDDD  H     H F          T      III
 32034  
 32035  
 32036  // VIF  THU 20 NOV 2025 22:21:23  ** DHFTI                        ** DIAGNOSTICS                                      PAGE 00823
 32037  
 32038  
 32039  // VIF  THU 20 NOV 2025 22:21:23  ** DHFTI                        ** GENERATED CODE                                   PAGE 00824
 32040  
 32041  int_4 _dhfti (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 32042  real_8 _p_ tau_, int_4 _p_ krank_, real_8 _p_ rnorm_, real_8 _p_ h_, real_8 _p_ g_, int_4 _p_ ip_)
 32043  { // ** body not listed **
 32234  }
 32235  
 32236  // VIF  THU 20 NOV 2025 22:21:23  ** DHSTRT                       ** DHSTRT                                           PAGE 00828
 32237  
 32238  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 32239  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 32240  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 32241  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 32242  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 32243  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 32244  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 32245  
 32246  //                                   DDDDDD  H     H  SSSSS  TTTTTTT RRRRRR  TTTTTTT
 32247  //                                   D     D H     H S     S    T    R     R    T
 32248  //                                   D     D H     H S          T    R     R    T
 32249  //                                   D     D HHHHHHH  SSSSS     T    RRRRRR     T
 32250  //                                   D     D H     H       S    T    R   R      T
 32251  //                                   D     D H     H S     S    T    R    R     T
 32252  //                                   DDDDDD  H     H  SSSSS     T    R     R    T
 32253  
 32254  
 32255  // VIF  THU 20 NOV 2025 22:21:23  ** DHSTRT                       ** DIAGNOSTICS                                      PAGE 00829
 32256  
 32257  
 32258  // VIF  THU 20 NOV 2025 22:21:23  ** DHSTRT                       ** GENERATED CODE                                   PAGE 00830
 32259  
 32260  int_4 _dhstrt (int_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ y_, real_8 _p_ yprime_, real_8 
 32261  _p_ etol_, int_4 _p_ morder_, real_8 _p_ small_, real_8 _p_ big_, real_8 _p_ spy_, real_8 _p_ pv_, real_8 _p_ yp_, 
 32262  real_8 _p_ sf_, real_8 _p_ rpar_, int_4 _p_ ipar_, real_8 _p_ h_)
 32263  { // ** body not listed **
 32412  }
 32413  
 32414  // VIF  THU 20 NOV 2025 22:21:23  ** DHVNRM                       ** DHVNRM                                           PAGE 00833
 32415  
 32416  //                                   RRRRRR  EEEEEEE    A    L                88888
 32417  //                                   R     R E         A A   L        *   *  8     8
 32418  //                                   R     R E        A   A  L         * *   8     8
 32419  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 32420  //                                   R   R   E       AAAAAAA L         * *   8     8
 32421  //                                   R    R  E       A     A L        *   *  8     8
 32422  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 32423  
 32424  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 32425  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 32426  //                           F       U     U N N   N C          T       I    O     O N N   N
 32427  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 32428  //                           F       U     U N   N N C          T       I    O     O N   N N
 32429  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 32430  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 32431  
 32432  //                                   DDDDDD  H     H V     V N     N RRRRRR  M     M
 32433  //                                   D     D H     H V     V NN    N R     R MM   MM
 32434  //                                   D     D H     H V     V N N   N R     R M M M M
 32435  //                                   D     D HHHHHHH V     V N  N  N RRRRRR  M  M  M
 32436  //                                   D     D H     H  V   V  N   N N R   R   M     M
 32437  //                                   D     D H     H   V V   N    NN R    R  M     M
 32438  //                                   DDDDDD  H     H    V    N     N R     R M     M
 32439  
 32440  
 32441  // VIF  THU 20 NOV 2025 22:21:23  ** DHVNRM                       ** DIAGNOSTICS                                      PAGE 00834
 32442  
 32443  
 32444  // VIF  THU 20 NOV 2025 22:21:23  ** DHVNRM                       ** GENERATED CODE                                   PAGE 00835
 32445  
 32446  real_8 _dhvnrm (real_8 _p_ v_, int_4 _p_ ncomp_)
 32447  { // ** body not listed **
 32456  }
 32457  
 32458  // VIF  THU 20 NOV 2025 22:21:23  ** DJAIRY                       ** DJAIRY                                           PAGE 00836
 32459  
 32460  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 32461  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 32462  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 32463  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 32464  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 32465  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 32466  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 32467  
 32468  //                                   DDDDDD        J    A      III   RRRRRR  Y     Y
 32469  //                                   D     D       J   A A      I    R     R  Y   Y
 32470  //                                   D     D       J  A   A     I    R     R   Y Y
 32471  //                                   D     D       J A     A    I    RRRRRR     Y
 32472  //                                   D     D J     J AAAAAAA    I    R   R      Y
 32473  //                                   D     D J     J A     A    I    R    R     Y
 32474  //                                   DDDDDD   JJJJJ  A     A   III   R     R    Y
 32475  
 32476  
 32477  // VIF  THU 20 NOV 2025 22:21:23  ** DJAIRY                       ** DIAGNOSTICS                                      PAGE 00837
 32478  
 32479  
 32480  // VIF  THU 20 NOV 2025 22:21:23  ** DJAIRY                       ** GENERATED CODE                                   PAGE 00838
 32481  
 32482  int_4 _djairy (real_8 _p_ x_, real_8 _p_ rx_, real_8 _p_ c_, real_8 _p_ ai_, real_8 _p_ dai_)
 32483  { // ** body not listed **
 34406  }
 34407  
 34408  // VIF  THU 20 NOV 2025 22:21:23  ** DLLSIA                       ** DLLSIA                                           PAGE 00876
 34409  
 34410  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 34411  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 34412  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 34413  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 34414  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 34415  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 34416  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 34417  
 34418  //                                   DDDDDD  L       L        SSSSS    III      A
 34419  //                                   D     D L       L       S     S    I      A A
 34420  //                                   D     D L       L       S          I     A   A
 34421  //                                   D     D L       L        SSSSS     I    A     A
 34422  //                                   D     D L       L             S    I    AAAAAAA
 34423  //                                   D     D L       L       S     S    I    A     A
 34424  //                                   DDDDDD  LLLLLLL LLLLLLL  SSSSS    III   A     A
 34425  
 34426  
 34427  // VIF  THU 20 NOV 2025 22:21:23  ** DLLSIA                       ** DIAGNOSTICS                                      PAGE 00877
 34428  
 34429  
 34430  // VIF  THU 20 NOV 2025 22:21:23  ** DLLSIA                       ** GENERATED CODE                                   PAGE 00878
 34431  
 34432  int_4 _dllsia (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 34433  real_8 _p_ re_, real_8 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, 
 34434  real_8 _p_ rnorm_, real_8 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_)
 34435  { // ** body not listed **
 34694  }
 34695  
 34696  // VIF  THU 20 NOV 2025 22:21:23  ** DLPDP                        ** DLPDP                                            PAGE 00884
 34697  
 34698  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 34699  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 34700  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 34701  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 34702  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 34703  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 34704  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 34705  
 34706  //                                       DDDDDD  L       PPPPPP  DDDDDD  PPPPPP
 34707  //                                       D     D L       P     P D     D P     P
 34708  //                                       D     D L       P     P D     D P     P
 34709  //                                       D     D L       PPPPPP  D     D PPPPPP
 34710  //                                       D     D L       P       D     D P
 34711  //                                       D     D L       P       D     D P
 34712  //                                       DDDDDD  LLLLLLL P       DDDDDD  P
 34713  
 34714  
 34715  // VIF  THU 20 NOV 2025 22:21:23  ** DLPDP                        ** DIAGNOSTICS                                      PAGE 00885
 34716  
 34717  
 34718  // VIF  THU 20 NOV 2025 22:21:23  ** DLPDP                        ** GENERATED CODE                                   PAGE 00886
 34719  
 34720  int_4 _dlpdp (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n1_, int_4 _p_ n2_, real_8 _p_ prgopt_, real_8 _p_ 
 34721  x_, real_8 _p_ wnorm_, int_4 _p_ mode_, real_8 _p_ ws_, int_4 _p_ is_)
 34722  { // ** body not listed **
 34890  }
 34891  
 34892  // VIF  THU 20 NOV 2025 22:21:23  ** DLSEI                        ** DLSEI                                            PAGE 00890
 34893  
 34894  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 34895  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 34896  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 34897  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 34898  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 34899  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 34900  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 34901  
 34902  //                                        DDDDDD  L        SSSSS  EEEEEEE   III
 34903  //                                        D     D L       S     S E          I
 34904  //                                        D     D L       S       E          I
 34905  //                                        D     D L        SSSSS  EEEEE      I
 34906  //                                        D     D L             S E          I
 34907  //                                        D     D L       S     S E          I
 34908  //                                        DDDDDD  LLLLLLL  SSSSS  EEEEEEE   III
 34909  
 34910  
 34911  // VIF  THU 20 NOV 2025 22:21:23  ** DLSEI                        ** DIAGNOSTICS                                      PAGE 00891
 34912  
 34913  
 34914  // VIF  THU 20 NOV 2025 22:21:23  ** DLSEI                        ** GENERATED CODE                                   PAGE 00892
 34915  
 34916  int_4 _dlsei (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ me_, int_4 _p_ ma_, int_4 _p_ mg_, int_4 _p_ n_, real_8 _p_ 
 34917  prgopt_, real_8 _p_ x_, real_8 _p_ rnorme_, real_8 _p_ rnorml_, int_4 _p_ mode_, real_8 _p_ ws_, int_4 _p_ ip_)
 34918  { // ** body not listed **
 35449  }
 35450  
 35451  // VIF  THU 20 NOV 2025 22:21:23  ** DLSI                         ** DLSI                                             PAGE 00903
 35452  
 35453  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 35454  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 35455  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 35456  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 35457  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 35458  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 35459  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 35460  
 35461  //                                            DDDDDD  L        SSSSS    III
 35462  //                                            D     D L       S     S    I
 35463  //                                            D     D L       S          I
 35464  //                                            D     D L        SSSSS     I
 35465  //                                            D     D L             S    I
 35466  //                                            D     D L       S     S    I
 35467  //                                            DDDDDD  LLLLLLL  SSSSS    III
 35468  
 35469  
 35470  // VIF  THU 20 NOV 2025 22:21:23  ** DLSI                         ** DIAGNOSTICS                                      PAGE 00904
 35471  
 35472  
 35473  // VIF  THU 20 NOV 2025 22:21:23  ** DLSI                         ** GENERATED CODE                                   PAGE 00905
 35474  
 35475  int_4 _dlsi (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ ma_, int_4 _p_ mg_, int_4 _p_ n_, real_8 _p_ prgopt_, real_8 _p_ 
 35476  x_, real_8 _p_ rnorm_, int_4 _p_ mode_, real_8 _p_ ws_, int_4 _p_ ip_)
 35477  { // ** body not listed **
 35703  }
 35704  
 35705  // VIF  THU 20 NOV 2025 22:21:23  ** DLSSUD                       ** DLSSUD                                           PAGE 00910
 35706  
 35707  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 35708  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 35709  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 35710  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 35711  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 35712  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 35713  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 35714  
 35715  //                                   DDDDDD  L        SSSSS   SSSSS  U     U DDDDDD
 35716  //                                   D     D L       S     S S     S U     U D     D
 35717  //                                   D     D L       S       S       U     U D     D
 35718  //                                   D     D L        SSSSS   SSSSS  U     U D     D
 35719  //                                   D     D L             S       S U     U D     D
 35720  //                                   D     D L       S     S S     S U     U D     D
 35721  //                                   DDDDDD  LLLLLLL  SSSSS   SSSSS   UUUUU  DDDDDD
 35722  
 35723  
 35724  // VIF  THU 20 NOV 2025 22:21:23  ** DLSSUD                       ** DIAGNOSTICS                                      PAGE 00911
 35725  
 35726  
 35727  // VIF  THU 20 NOV 2025 22:21:23  ** DLSSUD                       ** GENERATED CODE                                   PAGE 00912
 35728  
 35729  int_4 _dlssud (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ b_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nrda_, real_8 _p_ u_, 
 35730  int_4 _p_ nrdu_, int_4 _p_ iflag_, int_4 _p_ mlso_, int_4 _p_ irank_, int_4 _p_ iscale_, real_8 _p_ q_, real_8 _p_ 
 35731  diag_, int_4 _p_ kpivot_, real_8 _p_ s_, real_8 _p_ div_, real_8 _p_ td_, int_4 _p_ isflg_, real_8 _p_ scales_)
 35732  { // ** body not listed **
 35910  }
 35911  
 35912  // VIF  THU 20 NOV 2025 22:21:23  ** DMACON                       ** DMACON                                           PAGE 00916
 35913  
 35914  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 35915  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 35916  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 35917  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 35918  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 35919  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 35920  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 35921  
 35922  //                                   DDDDDD  M     M    A     CCCCC   OOOOO  N     N
 35923  //                                   D     D MM   MM   A A   C     C O     O NN    N
 35924  //                                   D     D M M M M  A   A  C       O     O N N   N
 35925  //                                   D     D M  M  M A     A C       O     O N  N  N
 35926  //                                   D     D M     M AAAAAAA C       O     O N   N N
 35927  //                                   D     D M     M A     A C     C O     O N    NN
 35928  //                                   DDDDDD  M     M A     A  CCCCC   OOOOO  N     N
 35929  
 35930  
 35931  // VIF  THU 20 NOV 2025 22:21:23  ** DMACON                       ** DIAGNOSTICS                                      PAGE 00917
 35932  
 35933  
 35934  // VIF  THU 20 NOV 2025 22:21:23  ** DMACON                       ** GENERATED CODE                                   PAGE 00918
 35935  
 35936  int_4 _dmacon (void)
 35937  { // ** body not listed **
 35953  }
 35954  
 35955  // VIF  THU 20 NOV 2025 22:21:23  ** DMGSBV                       ** DMGSBV                                           PAGE 00919
 35956  
 35957  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 35958  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 35959  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 35960  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 35961  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 35962  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 35963  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 35964  
 35965  //                                   DDDDDD  M     M  GGGGG   SSSSS  BBBBBB  V     V
 35966  //                                   D     D MM   MM G     G S     S B     B V     V
 35967  //                                   D     D M M M M G       S       B     B V     V
 35968  //                                   D     D M  M  M G  GGGG  SSSSS  BBBBBB  V     V
 35969  //                                   D     D M     M G     G       S B     B  V   V
 35970  //                                   D     D M     M G     G S     S B     B   V V
 35971  //                                   DDDDDD  M     M  GGGGG   SSSSS  BBBBBB     V
 35972  
 35973  
 35974  // VIF  THU 20 NOV 2025 22:21:23  ** DMGSBV                       ** DIAGNOSTICS                                      PAGE 00920
 35975  
 35976  
 35977  // VIF  THU 20 NOV 2025 22:21:23  ** DMGSBV                       ** GENERATED CODE                                   PAGE 00921
 35978  
 35979  int_4 _dmgsbv (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ ia_, int_4 _p_ niv_, int_4 _p_ iflag_, real_8 _p_ 
 35980  s_, real_8 _p_ p_, int_4 _p_ ip_, int_4 _p_ inhomo_, real_8 _p_ v_, real_8 _p_ w_, real_8 _p_ wcnd_)
 35981  { // ** body not listed **
 36228  }
 36229  
 36230  // VIF  THU 20 NOV 2025 22:21:23  ** DMPAR                        ** DMPAR                                            PAGE 00926
 36231  
 36232  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 36233  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 36234  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 36235  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 36236  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 36237  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 36238  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 36239  
 36240  //                                       DDDDDD  M     M PPPPPP     A    RRRRRR
 36241  //                                       D     D MM   MM P     P   A A   R     R
 36242  //                                       D     D M M M M P     P  A   A  R     R
 36243  //                                       D     D M  M  M PPPPPP  A     A RRRRRR
 36244  //                                       D     D M     M P       AAAAAAA R   R
 36245  //                                       D     D M     M P       A     A R    R
 36246  //                                       DDDDDD  M     M P       A     A R     R
 36247  
 36248  
 36249  // VIF  THU 20 NOV 2025 22:21:23  ** DMPAR                        ** DIAGNOSTICS                                      PAGE 00927
 36250  
 36251  
 36252  // VIF  THU 20 NOV 2025 22:21:23  ** DMPAR                        ** GENERATED CODE                                   PAGE 00928
 36253  
 36254  int_4 _dmpar (int_4 _p_ n_, real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ ipvt_, real_8 _p_ diag_, real_8 _p_ qtb_, real_8 
 36255  _p_ delta_, real_8 _p_ par_, real_8 _p_ x_, real_8 _p_ sigma_, real_8 _p_ wa1_, real_8 _p_ wa2_)
 36256  { // ** body not listed **
 36424  }
 36425  
 36426  // VIF  THU 20 NOV 2025 22:21:23  ** DNBCO                        ** DNBCO                                            PAGE 00932
 36427  
 36428  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 36429  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 36430  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 36431  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 36432  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 36433  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 36434  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 36435  
 36436  //                                       DDDDDD  N     N BBBBBB   CCCCC   OOOOO
 36437  //                                       D     D NN    N B     B C     C O     O
 36438  //                                       D     D N N   N B     B C       O     O
 36439  //                                       D     D N  N  N BBBBBB  C       O     O
 36440  //                                       D     D N   N N B     B C       O     O
 36441  //                                       D     D N    NN B     B C     C O     O
 36442  //                                       DDDDDD  N     N BBBBBB   CCCCC   OOOOO
 36443  
 36444  
 36445  // VIF  THU 20 NOV 2025 22:21:23  ** DNBCO                        ** DIAGNOSTICS                                      PAGE 00933
 36446  
 36447  
 36448  // VIF  THU 20 NOV 2025 22:21:23  ** DNBCO                        ** GENERATED CODE                                   PAGE 00934
 36449  
 36450  int_4 _dnbco (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 _p_ 
 36451  rcond_, real_8 _p_ z_)
 36452  { // ** body not listed **
 36607  }
 36608  
 36609  // VIF  THU 20 NOV 2025 22:21:23  ** DNBDI                        ** DNBDI                                            PAGE 00938
 36610  
 36611  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 36612  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 36613  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 36614  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 36615  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 36616  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 36617  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 36618  
 36619  //                                        DDDDDD  N     N BBBBBB  DDDDDD    III
 36620  //                                        D     D NN    N B     B D     D    I
 36621  //                                        D     D N N   N B     B D     D    I
 36622  //                                        D     D N  N  N BBBBBB  D     D    I
 36623  //                                        D     D N   N N B     B D     D    I
 36624  //                                        D     D N    NN B     B D     D    I
 36625  //                                        DDDDDD  N     N BBBBBB  DDDDDD    III
 36626  
 36627  
 36628  // VIF  THU 20 NOV 2025 22:21:23  ** DNBDI                        ** DIAGNOSTICS                                      PAGE 00939
 36629  
 36630  
 36631  // VIF  THU 20 NOV 2025 22:21:23  ** DNBDI                        ** GENERATED CODE                                   PAGE 00940
 36632  
 36633  int_4 _dnbdi (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 _p_ 
 36634  det_)
 36635  { // ** body not listed **
 36669  }
 36670  
 36671  // VIF  THU 20 NOV 2025 22:21:23  ** DNBFA                        ** DNBFA                                            PAGE 00941
 36672  
 36673  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 36674  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 36675  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 36676  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 36677  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 36678  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 36679  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 36680  
 36681  //                                       DDDDDD  N     N BBBBBB  FFFFFFF    A
 36682  //                                       D     D NN    N B     B F         A A
 36683  //                                       D     D N N   N B     B F        A   A
 36684  //                                       D     D N  N  N BBBBBB  FFFFF   A     A
 36685  //                                       D     D N   N N B     B F       AAAAAAA
 36686  //                                       D     D N    NN B     B F       A     A
 36687  //                                       DDDDDD  N     N BBBBBB  F       A     A
 36688  
 36689  
 36690  // VIF  THU 20 NOV 2025 22:21:23  ** DNBFA                        ** DIAGNOSTICS                                      PAGE 00942
 36691  
 36692  
 36693  // VIF  THU 20 NOV 2025 22:21:23  ** DNBFA                        ** GENERATED CODE                                   PAGE 00943
 36694  
 36695  int_4 _dnbfa (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4 _p_ 
 36696  info_)
 36697  { // ** body not listed **
 36754  }
 36755  
 36756  // VIF  THU 20 NOV 2025 22:21:23  ** DNBFS                        ** DNBFS                                            PAGE 00945
 36757  
 36758  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 36759  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 36760  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 36761  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 36762  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 36763  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 36764  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 36765  
 36766  //                                       DDDDDD  N     N BBBBBB  FFFFFFF  SSSSS
 36767  //                                       D     D NN    N B     B F       S     S
 36768  //                                       D     D N N   N B     B F       S
 36769  //                                       D     D N  N  N BBBBBB  FFFFF    SSSSS
 36770  //                                       D     D N   N N B     B F             S
 36771  //                                       D     D N    NN B     B F       S     S
 36772  //                                       DDDDDD  N     N BBBBBB  F        SSSSS
 36773  
 36774  
 36775  // VIF  THU 20 NOV 2025 22:21:23  ** DNBFS                        ** DIAGNOSTICS                                      PAGE 00946
 36776  
 36777  
 36778  // VIF  THU 20 NOV 2025 22:21:23  ** DNBFS                        ** GENERATED CODE                                   PAGE 00947
 36779  
 36780  int_4 _dnbfs (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ v_, int_4 _p_ 
 36781  itask_, int_4 _p_ ind_, real_8 _p_ work_, int_4 _p_ iwork_)
 36782  { // ** body not listed **
 37075  }
 37076  
 37077  // VIF  THU 20 NOV 2025 22:21:23  ** DNBSL                        ** DNBSL                                            PAGE 00953
 37078  
 37079  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 37080  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 37081  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 37082  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 37083  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 37084  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 37085  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 37086  
 37087  //                                       DDDDDD  N     N BBBBBB   SSSSS  L
 37088  //                                       D     D NN    N B     B S     S L
 37089  //                                       D     D N N   N B     B S       L
 37090  //                                       D     D N  N  N BBBBBB   SSSSS  L
 37091  //                                       D     D N   N N B     B       S L
 37092  //                                       D     D N    NN B     B S     S L
 37093  //                                       DDDDDD  N     N BBBBBB   SSSSS  LLLLLLL
 37094  
 37095  
 37096  // VIF  THU 20 NOV 2025 22:21:23  ** DNBSL                        ** DIAGNOSTICS                                      PAGE 00954
 37097  
 37098  
 37099  // VIF  THU 20 NOV 2025 22:21:23  ** DNBSL                        ** GENERATED CODE                                   PAGE 00955
 37100  
 37101  int_4 _dnbsl (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 _p_ 
 37102  b_, int_4 _p_ job_)
 37103  { // ** body not listed **
 37175  }
 37176  
 37177  // VIF  THU 20 NOV 2025 22:21:23  ** DNLS1E                       ** DNLS1E                                           PAGE 00957
 37178  
 37179  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 37180  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 37181  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 37182  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 37183  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 37184  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 37185  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 37186  
 37187  //                                   DDDDDD  N     N L        SSSSS     1    EEEEEEE
 37188  //                                   D     D NN    N L       S     S   11    E
 37189  //                                   D     D N N   N L       S        1 1    E
 37190  //                                   D     D N  N  N L        SSSSS     1    EEEEE
 37191  //                                   D     D N   N N L             S    1    E
 37192  //                                   D     D N    NN L       S     S    1    E
 37193  //                                   DDDDDD  N     N LLLLLLL  SSSSS   11111  EEEEEEE
 37194  
 37195  
 37196  // VIF  THU 20 NOV 2025 22:21:23  ** DNLS1E                       ** DIAGNOSTICS                                      PAGE 00958
 37197  
 37198  
 37199  // VIF  THU 20 NOV 2025 22:21:23  ** DNLS1E                       ** GENERATED CODE                                   PAGE 00959
 37200  
 37201  int_4 _dnls1e (real_8 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 
 37202  _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ iw_, real_8 _p_ wa_, int_4 _p_ lwa_)
 37203  { // ** body not listed **
 37257  }
 37258  
 37259  // VIF  THU 20 NOV 2025 22:21:23  ** DNLS1                        ** DNLS1                                            PAGE 00961
 37260  
 37261  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 37262  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 37263  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 37264  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 37265  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 37266  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 37267  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 37268  
 37269  //                                        DDDDDD  N     N L        SSSSS     1
 37270  //                                        D     D NN    N L       S     S   11
 37271  //                                        D     D N N   N L       S        1 1
 37272  //                                        D     D N  N  N L        SSSSS     1
 37273  //                                        D     D N   N N L             S    1
 37274  //                                        D     D N    NN L       S     S    1
 37275  //                                        DDDDDD  N     N LLLLLLL  SSSSS   11111
 37276  
 37277  
 37278  // VIF  THU 20 NOV 2025 22:21:23  ** DNLS1                        ** DIAGNOSTICS                                      PAGE 00962
 37279  
 37280  
 37281  // VIF  THU 20 NOV 2025 22:21:23  ** DNLS1                        ** GENERATED CODE                                   PAGE 00963
 37282  
 37283  int_4 _dnls1 (int_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ 
 37284  fjac_, int_4 _p_ ldfjac_, real_8 _p_ ftol_, real_8 _p_ xtol_, real_8 _p_ gtol_, int_4 _p_ maxfev_, real_8 _p_ epsfcn_, 
 37285  real_8 _p_ diag_, int_4 _p_ mode_, real_8 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_, int_4 _p_ 
 37286  njev_, int_4 _p_ ipvt_, real_8 _p_ qtf_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
 37287  { // ** body not listed **
 37894  }
 37895  
 37896  // VIF  THU 20 NOV 2025 22:21:23  ** DNSQE                        ** DNSQE                                            PAGE 00975
 37897  
 37898  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 37899  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 37900  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 37901  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 37902  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 37903  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 37904  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 37905  
 37906  //                                       DDDDDD  N     N  SSSSS   QQQQQ  EEEEEEE
 37907  //                                       D     D NN    N S     S Q     Q E
 37908  //                                       D     D N N   N S       Q     Q E
 37909  //                                       D     D N  N  N  SSSSS  Q     Q EEEEE
 37910  //                                       D     D N   N N       S Q   Q Q E
 37911  //                                       D     D N    NN S     S Q    Q  E
 37912  //                                       DDDDDD  N     N  SSSSS   QQQQ Q EEEEEEE
 37913  
 37914  
 37915  // VIF  THU 20 NOV 2025 22:21:23  ** DNSQE                        ** DIAGNOSTICS                                      PAGE 00976
 37916  
 37917  
 37918  // VIF  THU 20 NOV 2025 22:21:23  ** DNSQE                        ** GENERATED CODE                                   PAGE 00977
 37919  
 37920  int_4 _dnsqe (real_4 (*_fcn)(), int_4 (*_jac)(), int_4 _p_ iopt_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 
 37921  _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, real_8 _p_ wa_, int_4 _p_ lwa_)
 37922  { // ** body not listed **
 37983  }
 37984  
 37985  // VIF  THU 20 NOV 2025 22:21:23  ** DNSQ                         ** DNSQ                                             PAGE 00979
 37986  
 37987  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 37988  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 37989  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 37990  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 37991  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 37992  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 37993  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 37994  
 37995  //                                           DDDDDD  N     N  SSSSS   QQQQQ
 37996  //                                           D     D NN    N S     S Q     Q
 37997  //                                           D     D N N   N S       Q     Q
 37998  //                                           D     D N  N  N  SSSSS  Q     Q
 37999  //                                           D     D N   N N       S Q   Q Q
 38000  //                                           D     D N    NN S     S Q    Q
 38001  //                                           DDDDDD  N     N  SSSSS   QQQQ Q
 38002  
 38003  
 38004  // VIF  THU 20 NOV 2025 22:21:23  ** DNSQ                         ** DIAGNOSTICS                                      PAGE 00980
 38005  
 38006  
 38007  // VIF  THU 20 NOV 2025 22:21:23  ** DNSQ                         ** GENERATED CODE                                   PAGE 00981
 38008  
 38009  int_4 _dnsq (int_4 (*_fcn)(), int_4 (*_jac)(), int_4 _p_ iopt_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 
 38010  _p_ fjac_, int_4 _p_ ldfjac_, real_8 _p_ xtol_, int_4 _p_ maxfev_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ epsfcn_, 
 38011  real_8 _p_ diag_, int_4 _p_ mode_, real_8 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_, int_4 _p_ 
 38012  njev_, real_8 _p_ r_, int_4 _p_ lr_, real_8 _p_ qtf_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ 
 38013  wa4_)
 38014  { // ** body not listed **
 38345  }
 38346  
 38347  // VIF  THU 20 NOV 2025 22:21:23  ** DOHTRL                       ** DOHTRL                                           PAGE 00988
 38348  
 38349  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 38350  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 38351  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 38352  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 38353  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 38354  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 38355  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 38356  
 38357  //                                   DDDDDD   OOOOO  H     H TTTTTTT RRRRRR  L
 38358  //                                   D     D O     O H     H    T    R     R L
 38359  //                                   D     D O     O H     H    T    R     R L
 38360  //                                   D     D O     O HHHHHHH    T    RRRRRR  L
 38361  //                                   D     D O     O H     H    T    R   R   L
 38362  //                                   D     D O     O H     H    T    R    R  L
 38363  //                                   DDDDDD   OOOOO  H     H    T    R     R LLLLLLL
 38364  
 38365  
 38366  // VIF  THU 20 NOV 2025 22:21:23  ** DOHTRL                       ** DIAGNOSTICS                                      PAGE 00989
 38367  
 38368  
 38369  // VIF  THU 20 NOV 2025 22:21:23  ** DOHTRL                       ** GENERATED CODE                                   PAGE 00990
 38370  
 38371  int_4 _dohtrl (real_8 _p_ q_, int_4 _p_ n_, int_4 _p_ nrda_, real_8 _p_ diag_, int_4 _p_ irank_, real_8 _p_ div_, 
 38372  real_8 _p_ td_)
 38373  { // ** body not listed **
 38406  }
 38407  
 38408  // VIF  THU 20 NOV 2025 22:21:23  ** DORTHR                       ** DORTHR                                           PAGE 00991
 38409  
 38410  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 38411  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 38412  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 38413  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 38414  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 38415  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 38416  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 38417  
 38418  //                                   DDDDDD   OOOOO  RRRRRR  TTTTTTT H     H RRRRRR
 38419  //                                   D     D O     O R     R    T    H     H R     R
 38420  //                                   D     D O     O R     R    T    H     H R     R
 38421  //                                   D     D O     O RRRRRR     T    HHHHHHH RRRRRR
 38422  //                                   D     D O     O R   R      T    H     H R   R
 38423  //                                   D     D O     O R    R     T    H     H R    R
 38424  //                                   DDDDDD   OOOOO  R     R    T    H     H R     R
 38425  
 38426  
 38427  // VIF  THU 20 NOV 2025 22:21:23  ** DORTHR                       ** DIAGNOSTICS                                      PAGE 00992
 38428  
 38429  
 38430  // VIF  THU 20 NOV 2025 22:21:23  ** DORTHR                       ** GENERATED CODE                                   PAGE 00993
 38431  
 38432  int_4 _dorthr (real_8 _p_ a_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nrda_, int_4 _p_ iflag_, int_4 _p_ irank_, int_4 
 38433  _p_ iscale_, real_8 _p_ diag_, int_4 _p_ kpivot_, real_8 _p_ scales_, real_8 _p_ rows_, real_8 _p_ rs_)
 38434  { // ** body not listed **
 38544  }
 38545  
 38546  // VIF  THU 20 NOV 2025 22:21:23  ** DP1VLU                       ** DP1VLU                                           PAGE 00996
 38547  
 38548  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 38549  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 38550  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 38551  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 38552  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 38553  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 38554  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 38555  
 38556  //                                   DDDDDD  PPPPPP     1    V     V L       U     U
 38557  //                                   D     D P     P   11    V     V L       U     U
 38558  //                                   D     D P     P  1 1    V     V L       U     U
 38559  //                                   D     D PPPPPP     1    V     V L       U     U
 38560  //                                   D     D P          1     V   V  L       U     U
 38561  //                                   D     D P          1      V V   L       U     U
 38562  //                                   DDDDDD  P        11111     V    LLLLLLL  UUUUU
 38563  
 38564  
 38565  // VIF  THU 20 NOV 2025 22:21:23  ** DP1VLU                       ** DIAGNOSTICS                                      PAGE 00997
 38566  
 38567  
 38568  // VIF  THU 20 NOV 2025 22:21:23  ** DP1VLU                       ** GENERATED CODE                                   PAGE 00998
 38569  
 38570  int_4 _dp1vlu (int_4 _p_ l_, int_4 _p_ nder_, real_8 _p_ x_, real_8 _p_ yfit_, real_8 _p_ yp_, real_8 _p_ a_)
 38571  { // ** body not listed **
 38752  }
 38753  
 38754  // VIF  THU 20 NOV 2025 22:21:23  ** DPCHNG                       ** DPCHNG                                           PAGE 01002
 38755  
 38756  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 38757  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 38758  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 38759  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 38760  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 38761  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 38762  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 38763  
 38764  //                                   DDDDDD  PPPPPP   CCCCC  H     H N     N  GGGGG
 38765  //                                   D     D P     P C     C H     H NN    N G     G
 38766  //                                   D     D P     P C       H     H N N   N G
 38767  //                                   D     D PPPPPP  C       HHHHHHH N  N  N G  GGGG
 38768  //                                   D     D P       C       H     H N   N N G     G
 38769  //                                   D     D P       C     C H     H N    NN G     G
 38770  //                                   DDDDDD  P        CCCCC  H     H N     N  GGGGG
 38771  
 38772  
 38773  // VIF  THU 20 NOV 2025 22:21:23  ** DPCHNG                       ** DIAGNOSTICS                                      PAGE 01003
 38774  
 38775  
 38776  // VIF  THU 20 NOV 2025 22:21:23  ** DPCHNG                       ** GENERATED CODE                                   PAGE 01004
 38777  
 38778  int_4 _dpchng (int_4 _p_ ii_, real_8 _p_ xval_, int_4 _p_ iplace_, real_8 _p_ sx_, int_4 _p_ ix_, int_4 _p_ ircx_)
 38779  { // ** body not listed **
 38999  }
 39000  
 39001  // VIF  THU 20 NOV 2025 22:21:23  ** DPCOEF                       ** DPCOEF                                           PAGE 01009
 39002  
 39003  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 39004  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 39005  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 39006  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 39007  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 39008  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 39009  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 39010  
 39011  //                                   DDDDDD  PPPPPP   CCCCC   OOOOO  EEEEEEE FFFFFFF
 39012  //                                   D     D P     P C     C O     O E       F
 39013  //                                   D     D P     P C       O     O E       F
 39014  //                                   D     D PPPPPP  C       O     O EEEEE   FFFFF
 39015  //                                   D     D P       C       O     O E       F
 39016  //                                   D     D P       C     C O     O E       F
 39017  //                                   DDDDDD  P        CCCCC   OOOOO  EEEEEEE F
 39018  
 39019  
 39020  // VIF  THU 20 NOV 2025 22:21:23  ** DPCOEF                       ** DIAGNOSTICS                                      PAGE 01010
 39021  
 39022  
 39023  // VIF  THU 20 NOV 2025 22:21:23  ** DPCOEF                       ** GENERATED CODE                                   PAGE 01011
 39024  
 39025  int_4 _dpcoef (int_4 _p_ l_, real_8 _p_ c_, real_8 _p_ tc_, real_8 _p_ a_)
 39026  { // ** body not listed **
 39055  }
 39056  
 39057  // VIF  THU 20 NOV 2025 22:21:23  ** DPINCW                       ** DPINCW                                           PAGE 01012
 39058  
 39059  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 39060  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 39061  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 39062  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 39063  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 39064  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 39065  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 39066  
 39067  //                                   DDDDDD  PPPPPP    III   N     N  CCCCC  W     W
 39068  //                                   D     D P     P    I    NN    N C     C W     W
 39069  //                                   D     D P     P    I    N N   N C       W     W
 39070  //                                   D     D PPPPPP     I    N  N  N C       W  W  W
 39071  //                                   D     D P          I    N   N N C       W  W  W
 39072  //                                   D     D P          I    N    NN C     C W  W  W
 39073  //                                   DDDDDD  P         III   N     N  CCCCC   WW WW
 39074  
 39075  
 39076  // VIF  THU 20 NOV 2025 22:21:23  ** DPINCW                       ** DIAGNOSTICS                                      PAGE 01013
 39077  
 39078  
 39079  // VIF  THU 20 NOV 2025 22:21:23  ** DPINCW                       ** GENERATED CODE                                   PAGE 01014
 39080  
 39081  int_4 _dpincw (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ npp_, int_4 _p_ jstrt_, 
 39082  int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, 
 39083  real_8 _p_ costsc_, real_8 _p_ gg_, real_8 _p_ erdnrm_, real_8 _p_ dulnrm_, real_8 _p_ amat_, real_8 _p_ basmat_, 
 39084  real_8 _p_ csc_, real_8 _p_ wr_, real_8 _p_ ww_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 _p_ costs_, real_8 _p_ colnrm_, 
 39085  real_8 _p_ duals_, logical_4 _p_ stpedg_)
 39086  { // ** body not listed **
 39222  }
 39223  
 39224  // VIF  THU 20 NOV 2025 22:21:23  ** DPINIT                       ** DPINIT                                           PAGE 01017
 39225  
 39226  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 39227  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 39228  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 39229  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 39230  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 39231  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 39232  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 39233  
 39234  //                                   DDDDDD  PPPPPP    III   N     N   III   TTTTTTT
 39235  //                                   D     D P     P    I    NN    N    I       T
 39236  //                                   D     D P     P    I    N N   N    I       T
 39237  //                                   D     D PPPPPP     I    N  N  N    I       T
 39238  //                                   D     D P          I    N   N N    I       T
 39239  //                                   D     D P          I    N    NN    I       T
 39240  //                                   DDDDDD  P         III   N     N   III      T
 39241  
 39242  
 39243  // VIF  THU 20 NOV 2025 22:21:23  ** DPINIT                       ** DIAGNOSTICS                                      PAGE 01018
 39244  
 39245  
 39246  // VIF  THU 20 NOV 2025 22:21:23  ** DPINIT                       ** GENERATED CODE                                   PAGE 01019
 39247  
 39248  int_4 _dpinit (int_4 _p_ mrelas_, int_4 _p_ nvars_, real_8 _p_ costs_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, 
 39249  real_8 _p_ primal_, int_4 _p_ info_, real_8 _p_ amat_, real_8 _p_ csc_, real_8 _p_ costsc_, real_8 _p_ colnrm_, real_8 
 39250  _p_ xlamda_, real_8 _p_ anorm_, real_8 _p_ rhs_, real_8 _p_ rhsnrm_, int_4 _p_ ibasis_, int_4 _p_ ibb_, int_4 _p_ imat_
 39251  , logical_4 _p_ lopt_)
 39252  { // ** body not listed **
 39534  }
 39535  
 39536  // VIF  THU 20 NOV 2025 22:21:23  ** DPINTM                       ** DPINTM                                           PAGE 01025
 39537  
 39538  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 39539  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 39540  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 39541  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 39542  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 39543  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 39544  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 39545  
 39546  //                                   DDDDDD  PPPPPP    III   N     N TTTTTTT M     M
 39547  //                                   D     D P     P    I    NN    N    T    MM   MM
 39548  //                                   D     D P     P    I    N N   N    T    M M M M
 39549  //                                   D     D PPPPPP     I    N  N  N    T    M  M  M
 39550  //                                   D     D P          I    N   N N    T    M     M
 39551  //                                   D     D P          I    N    NN    T    M     M
 39552  //                                   DDDDDD  P         III   N     N    T    M     M
 39553  
 39554  
 39555  // VIF  THU 20 NOV 2025 22:21:23  ** DPINTM                       ** DIAGNOSTICS                                      PAGE 01026
 39556  
 39557  
 39558  // VIF  THU 20 NOV 2025 22:21:23  ** DPINTM                       ** GENERATED CODE                                   PAGE 01027
 39559  
 39560  int_4 _dpintm (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ sx_, int_4 _p_ ix_, int_4 _p_ lmx_, int_4 _p_ ipagef_)
 39561  { // ** body not listed **
 39638  }
 39639  
 39640  // VIF  THU 20 NOV 2025 22:21:23  ** DPLINT                       ** DPLINT                                           PAGE 01029
 39641  
 39642  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 39643  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 39644  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 39645  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 39646  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 39647  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 39648  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 39649  
 39650  //                                   DDDDDD  PPPPPP  L         III   N     N TTTTTTT
 39651  //                                   D     D P     P L          I    NN    N    T
 39652  //                                   D     D P     P L          I    N N   N    T
 39653  //                                   D     D PPPPPP  L          I    N  N  N    T
 39654  //                                   D     D P       L          I    N   N N    T
 39655  //                                   D     D P       L          I    N    NN    T
 39656  //                                   DDDDDD  P       LLLLLLL   III   N     N    T
 39657  
 39658  
 39659  // VIF  THU 20 NOV 2025 22:21:23  ** DPLINT                       ** DIAGNOSTICS                                      PAGE 01030
 39660  
 39661  
 39662  // VIF  THU 20 NOV 2025 22:21:23  ** DPLINT                       ** GENERATED CODE                                   PAGE 01031
 39663  
 39664  int_4 _dplint (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ c_)
 39665  { // ** body not listed **
 39696  }
 39697  
 39698  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPCE                       ** DPLPCE                                           PAGE 01032
 39699  
 39700  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 39701  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 39702  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 39703  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 39704  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 39705  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 39706  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 39707  
 39708  //                                   DDDDDD  PPPPPP  L       PPPPPP   CCCCC  EEEEEEE
 39709  //                                   D     D P     P L       P     P C     C E
 39710  //                                   D     D P     P L       P     P C       E
 39711  //                                   D     D PPPPPP  L       PPPPPP  C       EEEEE
 39712  //                                   D     D P       L       P       C       E
 39713  //                                   D     D P       L       P       C     C E
 39714  //                                   DDDDDD  P       LLLLLLL P        CCCCC  EEEEEEE
 39715  
 39716  
 39717  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPCE                       ** DIAGNOSTICS                                      PAGE 01033
 39718  
 39719  
 39720  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPCE                       ** GENERATED CODE                                   PAGE 01034
 39721  
 39722  int_4 _dplpce (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ itlp_, int_4 _p_ itbrc_, 
 39723  int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, 
 39724  real_8 _p_ erdnrm_, real_8 _p_ eps_, real_8 _p_ tune_, real_8 _p_ gg_, real_8 _p_ amat_, real_8 _p_ basmat_, real_8 _p_ 
 39725  csc_, real_8 _p_ wr_, real_8 _p_ ww_, real_8 _p_ primal_, real_8 _p_ erd_, real_8 _p_ erp_, logical_4 _p_ singlr_, 
 39726  logical_4 _p_ redbas_)
 39727  { // ** body not listed **
 39926  }
 39927  
 39928  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPDM                       ** DPLPDM                                           PAGE 01038
 39929  
 39930  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 39931  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 39932  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 39933  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 39934  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 39935  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 39936  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 39937  
 39938  //                                   DDDDDD  PPPPPP  L       PPPPPP  DDDDDD  M     M
 39939  //                                   D     D P     P L       P     P D     D MM   MM
 39940  //                                   D     D P     P L       P     P D     D M M M M
 39941  //                                   D     D PPPPPP  L       PPPPPP  D     D M  M  M
 39942  //                                   D     D P       L       P       D     D M     M
 39943  //                                   D     D P       L       P       D     D M     M
 39944  //                                   DDDDDD  P       LLLLLLL P       DDDDDD  M     M
 39945  
 39946  
 39947  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPDM                       ** DIAGNOSTICS                                      PAGE 01039
 39948  
 39949  
 39950  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPDM                       ** GENERATED CODE                                   PAGE 01040
 39951  
 39952  int_4 _dplpdm (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ nredc_, int_4 _p_ info_, 
 39953  int_4 _p_ iopt_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, 
 39954  int_4 _p_ ibb_, real_8 _p_ anorm_, real_8 _p_ eps_, real_8 _p_ uu_, real_8 _p_ gg_, real_8 _p_ amat_, real_8 _p_ 
 39955  basmat_, real_8 _p_ csc_, real_8 _p_ wr_, logical_4 _p_ singlr_, logical_4 _p_ redbas_)
 39956  { // ** body not listed **
 40058  }
 40059  
 40060  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPFE                       ** DPLPFE                                           PAGE 01043
 40061  
 40062  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 40063  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 40064  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 40065  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 40066  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 40067  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 40068  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 40069  
 40070  //                                   DDDDDD  PPPPPP  L       PPPPPP  FFFFFFF EEEEEEE
 40071  //                                   D     D P     P L       P     P F       E
 40072  //                                   D     D P     P L       P     P F       E
 40073  //                                   D     D PPPPPP  L       PPPPPP  FFFFF   EEEEE
 40074  //                                   D     D P       L       P       F       E
 40075  //                                   D     D P       L       P       F       E
 40076  //                                   DDDDDD  P       LLLLLLL P       F       EEEEEEE
 40077  
 40078  
 40079  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPFE                       ** DIAGNOSTICS                                      PAGE 01044
 40080  
 40081  
 40082  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPFE                       ** GENERATED CODE                                   PAGE 01045
 40083  
 40084  int_4 _dplpfe (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ ienter_, int_4 _p_ 
 40085  ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_8 _p_ 
 40086  erdnrm_, real_8 _p_ eps_, real_8 _p_ gg_, real_8 _p_ dulnrm_, real_8 _p_ dirnrm_, real_8 _p_ amat_, real_8 _p_ basmat_, 
 40087  real_8 _p_ csc_, real_8 _p_ wr_, real_8 _p_ ww_, real_8 _p_ bl_, real_8 _p_ bu_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 
 40088  _p_ colnrm_, real_8 _p_ duals_, logical_4 _p_ found_)
 40089  { // ** body not listed **
 40244  }
 40245  
 40246  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPFL                       ** DPLPFL                                           PAGE 01049
 40247  
 40248  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 40249  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 40250  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 40251  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 40252  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 40253  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 40254  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 40255  
 40256  //                                   DDDDDD  PPPPPP  L       PPPPPP  FFFFFFF L
 40257  //                                   D     D P     P L       P     P F       L
 40258  //                                   D     D P     P L       P     P F       L
 40259  //                                   D     D PPPPPP  L       PPPPPP  FFFFF   L
 40260  //                                   D     D P       L       P       F       L
 40261  //                                   D     D P       L       P       F       L
 40262  //                                   DDDDDD  P       LLLLLLL P       F       LLLLLLL
 40263  
 40264  
 40265  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPFL                       ** DIAGNOSTICS                                      PAGE 01050
 40266  
 40267  
 40268  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPFL                       ** GENERATED CODE                                   PAGE 01051
 40269  
 40270  int_4 _dplpfl (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ ibasis_, int_4 _p_ 
 40271  ind_, int_4 _p_ ibb_, real_8 _p_ theta_, real_8 _p_ dirnrm_, real_8 _p_ rprnrm_, real_8 _p_ csc_, real_8 _p_ ww_, 
 40272  real_8 _p_ bl_, real_8 _p_ bu_, real_8 _p_ erp_, real_8 _p_ rprim_, real_8 _p_ primal_, logical_4 _p_ finite_, 
 40273  logical_4 _p_ zerolv_)
 40274  { // ** body not listed **
 40430  }
 40431  
 40432  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPMN                       ** DPLPMN                                           PAGE 01055
 40433  
 40434  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 40435  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 40436  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 40437  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 40438  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 40439  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 40440  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 40441  
 40442  //                                   DDDDDD  PPPPPP  L       PPPPPP  M     M N     N
 40443  //                                   D     D P     P L       P     P MM   MM NN    N
 40444  //                                   D     D P     P L       P     P M M M M N N   N
 40445  //                                   D     D PPPPPP  L       PPPPPP  M  M  M N  N  N
 40446  //                                   D     D P       L       P       M     M N   N N
 40447  //                                   D     D P       L       P       M     M N    NN
 40448  //                                   DDDDDD  P       LLLLLLL P       M     M N     N
 40449  
 40450  
 40451  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPMN                       ** DIAGNOSTICS                                      PAGE 01056
 40452  
 40453  
 40454  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPMN                       ** GENERATED CODE                                   PAGE 01057
 40455  
 40456  int_4 _dplpmn (real_4 (*_dusrmt)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_8 _p_ costs_, real_8 _p_ prgopt_, real_8 
 40457  _p_ dattrv_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_8 _p_ primal_, real_8 _p_ duals_, 
 40458  real_8 _p_ amat_, real_8 _p_ csc_, real_8 _p_ colnrm_, real_8 _p_ erd_, real_8 _p_ erp_, real_8 _p_ basmat_, real_8 _p_ 
 40459  wr_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 _p_ rprim_, real_8 _p_ rhs_, real_8 _p_ ww_, int_4 _p_ lmx_, int_4 _p_ lbm_
 40460  , int_4 _p_ ibasis_, int_4 _p_ ibb_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_)
 40461  { // ** body not listed **
 41779  }
 41780  
 41781  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPMU                       ** DPLPMU                                           PAGE 01083
 41782  
 41783  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 41784  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 41785  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 41786  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 41787  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 41788  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 41789  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 41790  
 41791  //                                   DDDDDD  PPPPPP  L       PPPPPP  M     M U     U
 41792  //                                   D     D P     P L       P     P MM   MM U     U
 41793  //                                   D     D P     P L       P     P M M M M U     U
 41794  //                                   D     D PPPPPP  L       PPPPPP  M  M  M U     U
 41795  //                                   D     D P       L       P       M     M U     U
 41796  //                                   D     D P       L       P       M     M U     U
 41797  //                                   DDDDDD  P       LLLLLLL P       M     M  UUUUU
 41798  
 41799  
 41800  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPMU                       ** DIAGNOSTICS                                      PAGE 01084
 41801  
 41802  
 41803  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPMU                       ** GENERATED CODE                                   PAGE 01085
 41804  
 41805  int_4 _dplpmu (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ nredc_, int_4 _p_ info_, 
 41806  int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ iopt_, int_4 _p_ npp_, int_4 _p_ jstrt_, int_4 _p_ ibasis_, int_4 _p_ 
 41807  imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_8 _p_ anorm_, real_8 _p_ 
 41808  eps_, real_8 _p_ uu_, real_8 _p_ gg_, real_8 _p_ rprnrm_, real_8 _p_ erdnrm_, real_8 _p_ dulnrm_, real_8 _p_ theta_, 
 41809  real_8 _p_ costsc_, real_8 _p_ xlamda_, real_8 _p_ rhsnrm_, real_8 _p_ amat_, real_8 _p_ basmat_, real_8 _p_ csc_, 
 41810  real_8 _p_ wr_, real_8 _p_ rprim_, real_8 _p_ ww_, real_8 _p_ bu_, real_8 _p_ bl_, real_8 _p_ rhs_, real_8 _p_ erd_, 
 41811  real_8 _p_ erp_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 _p_ colnrm_, real_8 _p_ costs_, real_8 _p_ primal_, real_8 _p_ 
 41812  duals_, logical_4 _p_ singlr_, logical_4 _p_ redbas_, logical_4 _p_ zerolv_, logical_4 _p_ stpedg_)
 41813  { // ** body not listed **
 42289  }
 42290  
 42291  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPUP                       ** DPLPUP                                           PAGE 01095
 42292  
 42293  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 42294  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 42295  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 42296  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 42297  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 42298  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 42299  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 42300  
 42301  //                                   DDDDDD  PPPPPP  L       PPPPPP  U     U PPPPPP
 42302  //                                   D     D P     P L       P     P U     U P     P
 42303  //                                   D     D P     P L       P     P U     U P     P
 42304  //                                   D     D PPPPPP  L       PPPPPP  U     U PPPPPP
 42305  //                                   D     D P       L       P       U     U P
 42306  //                                   D     D P       L       P       U     U P
 42307  //                                   DDDDDD  P       LLLLLLL P        UUUUU  P
 42308  
 42309  
 42310  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPUP                       ** DIAGNOSTICS                                      PAGE 01096
 42311  
 42312  
 42313  // VIF  THU 20 NOV 2025 22:21:23  ** DPLPUP                       ** GENERATED CODE                                   PAGE 01097
 42314  
 42315  int_4 _dplpup (int_4 (*_dusrmt)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_8 _p_ prgopt_, real_8 _p_ dattrv_, real_8 
 42316  _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_8 _p_ amat_, int_4 _p_ imat_, logical_4 _p_ sizeup_, 
 42317  real_8 _p_ asmall_, real_8 _p_ abig_)
 42318  { // ** body not listed **
 42892  }
 42893  
 42894  // VIF  THU 20 NOV 2025 22:21:23  ** DPNNZR                       ** DPNNZR                                           PAGE 01109
 42895  
 42896  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 42897  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 42898  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 42899  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 42900  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 42901  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 42902  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 42903  
 42904  //                                   DDDDDD  PPPPPP  N     N N     N ZZZZZZZ RRRRRR
 42905  //                                   D     D P     P NN    N NN    N      Z  R     R
 42906  //                                   D     D P     P N N   N N N   N     Z   R     R
 42907  //                                   D     D PPPPPP  N  N  N N  N  N    Z    RRRRRR
 42908  //                                   D     D P       N   N N N   N N   Z     R   R
 42909  //                                   D     D P       N    NN N    NN  *      R    R
 42910  //                                   DDDDDD  P       N     N N     N ZZZZZZZ R     R
 42911  
 42912  
 42913  // VIF  THU 20 NOV 2025 22:21:23  ** DPNNZR                       ** DIAGNOSTICS                                      PAGE 01110
 42914  
 42915  
 42916  // VIF  THU 20 NOV 2025 22:21:23  ** DPNNZR                       ** GENERATED CODE                                   PAGE 01111
 42917  
 42918  int_4 _dpnnzr (int_4 _p_ i_, real_8 _p_ xval_, int_4 _p_ iplace_, real_8 _p_ sx_, int_4 _p_ ix_, int_4 _p_ ircx_)
 42919  { // ** body not listed **
 43132  }
 43133  
 43134  // VIF  THU 20 NOV 2025 22:21:23  ** DPOFS                        ** DPOFS                                            PAGE 01116
 43135  
 43136  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 43137  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 43138  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 43139  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 43140  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 43141  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 43142  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 43143  
 43144  //                                       DDDDDD  PPPPPP   OOOOO  FFFFFFF  SSSSS
 43145  //                                       D     D P     P O     O F       S     S
 43146  //                                       D     D P     P O     O F       S
 43147  //                                       D     D PPPPPP  O     O FFFFF    SSSSS
 43148  //                                       D     D P       O     O F             S
 43149  //                                       D     D P       O     O F       S     S
 43150  //                                       DDDDDD  P        OOOOO  F        SSSSS
 43151  
 43152  
 43153  // VIF  THU 20 NOV 2025 22:21:23  ** DPOFS                        ** DIAGNOSTICS                                      PAGE 01117
 43154  
 43155  
 43156  // VIF  THU 20 NOV 2025 22:21:23  ** DPOFS                        ** GENERATED CODE                                   PAGE 01118
 43157  
 43158  int_4 _dpofs (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, real_8 _p_ 
 43159  work_)
 43160  { // ** body not listed **
 43362  }
 43363  
 43364  // VIF  THU 20 NOV 2025 22:21:23  ** DPOLCF                       ** DPOLCF                                           PAGE 01122
 43365  
 43366  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 43367  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 43368  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 43369  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 43370  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 43371  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 43372  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 43373  
 43374  //                                   DDDDDD  PPPPPP   OOOOO  L        CCCCC  FFFFFFF
 43375  //                                   D     D P     P O     O L       C     C F
 43376  //                                   D     D P     P O     O L       C       F
 43377  //                                   D     D PPPPPP  O     O L       C       FFFFF
 43378  //                                   D     D P       O     O L       C       F
 43379  //                                   D     D P       O     O L       C     C F
 43380  //                                   DDDDDD  P        OOOOO  LLLLLLL  CCCCC  F
 43381  
 43382  
 43383  // VIF  THU 20 NOV 2025 22:21:23  ** DPOLCF                       ** DIAGNOSTICS                                      PAGE 01123
 43384  
 43385  
 43386  // VIF  THU 20 NOV 2025 22:21:23  ** DPOLCF                       ** GENERATED CODE                                   PAGE 01124
 43387  
 43388  int_4 _dpolcf (real_8 _p_ xx_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ c_, real_8 _p_ d_, real_8 _p_ work_)
 43389  { // ** body not listed **
 43428  }
 43429  
 43430  // VIF  THU 20 NOV 2025 22:21:23  ** DPOLFT                       ** DPOLFT                                           PAGE 01125
 43431  
 43432  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 43433  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 43434  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 43435  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 43436  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 43437  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 43438  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 43439  
 43440  //                                   DDDDDD  PPPPPP   OOOOO  L       FFFFFFF TTTTTTT
 43441  //                                   D     D P     P O     O L       F          T
 43442  //                                   D     D P     P O     O L       F          T
 43443  //                                   D     D PPPPPP  O     O L       FFFFF      T
 43444  //                                   D     D P       O     O L       F          T
 43445  //                                   D     D P       O     O L       F          T
 43446  //                                   DDDDDD  P        OOOOO  LLLLLLL F          T
 43447  
 43448  
 43449  // VIF  THU 20 NOV 2025 22:21:23  ** DPOLFT                       ** DIAGNOSTICS                                      PAGE 01126
 43450  
 43451  
 43452  // VIF  THU 20 NOV 2025 22:21:23  ** DPOLFT                       ** GENERATED CODE                                   PAGE 01127
 43453  
 43454  int_4 _dpolft (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ w_, int_4 _p_ maxdeg_, int_4 _p_ ndeg_, real_8 
 43455  _p_ eps_, real_8 _p_ r_, int_4 _p_ ierr_, real_8 _p_ a_)
 43456  { // ** body not listed **
 43789  }
 43790  
 43791  // VIF  THU 20 NOV 2025 22:21:23  ** DPOLVL                       ** DPOLVL                                           PAGE 01134
 43792  
 43793  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 43794  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 43795  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 43796  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 43797  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 43798  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 43799  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 43800  
 43801  //                                   DDDDDD  PPPPPP   OOOOO  L       V     V L
 43802  //                                   D     D P     P O     O L       V     V L
 43803  //                                   D     D P     P O     O L       V     V L
 43804  //                                   D     D PPPPPP  O     O L       V     V L
 43805  //                                   D     D P       O     O L        V   V  L
 43806  //                                   D     D P       O     O L         V V   L
 43807  //                                   DDDDDD  P        OOOOO  LLLLLLL    V    LLLLLLL
 43808  
 43809  
 43810  // VIF  THU 20 NOV 2025 22:21:23  ** DPOLVL                       ** DIAGNOSTICS                                      PAGE 01135
 43811  
 43812  
 43813  // VIF  THU 20 NOV 2025 22:21:23  ** DPOLVL                       ** GENERATED CODE                                   PAGE 01136
 43814  
 43815  int_4 _dpolvl (int_4 _p_ nder_, real_8 _p_ xx_, real_8 _p_ yfit_, real_8 _p_ yp_, int_4 _p_ n_, real_8 _p_ x_, real_8 
 43816  _p_ c_, real_8 _p_ work_, int_4 _p_ ierr_)
 43817  { // ** body not listed **
 43913  }
 43914  
 43915  // VIF  THU 20 NOV 2025 22:21:23  ** DPOPT                        ** DPOPT                                            PAGE 01138
 43916  
 43917  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 43918  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 43919  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 43920  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 43921  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 43922  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 43923  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 43924  
 43925  //                                       DDDDDD  PPPPPP   OOOOO  PPPPPP  TTTTTTT
 43926  //                                       D     D P     P O     O P     P    T
 43927  //                                       D     D P     P O     O P     P    T
 43928  //                                       D     D PPPPPP  O     O PPPPPP     T
 43929  //                                       D     D P       O     O P          T
 43930  //                                       D     D P       O     O P          T
 43931  //                                       DDDDDD  P        OOOOO  P          T
 43932  
 43933  
 43934  // VIF  THU 20 NOV 2025 22:21:23  ** DPOPT                        ** DIAGNOSTICS                                      PAGE 01139
 43935  
 43936  
 43937  // VIF  THU 20 NOV 2025 22:21:23  ** DPOPT                        ** GENERATED CODE                                   PAGE 01140
 43938  
 43939  int_4 _dpopt (real_8 _p_ prgopt_, int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ info_, real_8 _p_ csc_, int_4 _p_ 
 43940  ibasis_, real_8 _p_ ropt_, int_4 _p_ intopt_, logical_4 _p_ lopt_)
 43941  { // ** body not listed **
 44311  }
 44312  
 44313  // VIF  THU 20 NOV 2025 22:21:23  ** DPPERM                       ** DPPERM                                           PAGE 01148
 44314  
 44315  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 44316  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 44317  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 44318  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 44319  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 44320  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 44321  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 44322  
 44323  //                                   DDDDDD  PPPPPP  PPPPPP  EEEEEEE RRRRRR  M     M
 44324  //                                   D     D P     P P     P E       R     R MM   MM
 44325  //                                   D     D P     P P     P E       R     R M M M M
 44326  //                                   D     D PPPPPP  PPPPPP  EEEEE   RRRRRR  M  M  M
 44327  //                                   D     D P       P       E       R   R   M     M
 44328  //                                   D     D P       P       E       R    R  M     M
 44329  //                                   DDDDDD  P       P       EEEEEEE R     R M     M
 44330  
 44331  
 44332  // VIF  THU 20 NOV 2025 22:21:23  ** DPPERM                       ** DIAGNOSTICS                                      PAGE 01149
 44333  
 44334  
 44335  // VIF  THU 20 NOV 2025 22:21:23  ** DPPERM                       ** GENERATED CODE                                   PAGE 01150
 44336  
 44337  int_4 _dpperm (real_8 _p_ dx_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ ier_)
 44338  { // ** body not listed **
 44383  }
 44384  
 44385  // VIF  THU 20 NOV 2025 22:21:23  ** DPPGQ8                       ** DPPGQ8                                           PAGE 01151
 44386  
 44387  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 44388  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 44389  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 44390  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 44391  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 44392  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 44393  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 44394  
 44395  //                                   DDDDDD  PPPPPP  PPPPPP   GGGGG   QQQQQ   88888
 44396  //                                   D     D P     P P     P G     G Q     Q 8     8
 44397  //                                   D     D P     P P     P G       Q     Q 8     8
 44398  //                                   D     D PPPPPP  PPPPPP  G  GGGG Q     Q  88888
 44399  //                                   D     D P       P       G     G Q   Q Q 8     8
 44400  //                                   D     D P       P       G     G Q    Q  8     8
 44401  //                                   DDDDDD  P       P        GGGGG   QQQQ Q  88888
 44402  
 44403  
 44404  // VIF  THU 20 NOV 2025 22:21:23  ** DPPGQ8                       ** DIAGNOSTICS                                      PAGE 01152
 44405  
 44406  
 44407  // VIF  THU 20 NOV 2025 22:21:23  ** DPPGQ8                       ** GENERATED CODE                                   PAGE 01153
 44408  
 44409  int_4 _dppgq8 (real_8 (*_fun)(), int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ kk_, int_4 
 44410  _p_ id_, real_8 _p_ a_, real_8 _p_ b_, int_4 _p_ inppv_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ ierr_)
 44411  { // ** body not listed **
 44704  }
 44705  
 44706  // VIF  THU 20 NOV 2025 22:21:23  ** DPRVEC                       ** DPRVEC                                           PAGE 01159
 44707  
 44708  //                                   RRRRRR  EEEEEEE    A    L                88888
 44709  //                                   R     R E         A A   L        *   *  8     8
 44710  //                                   R     R E        A   A  L         * *   8     8
 44711  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 44712  //                                   R   R   E       AAAAAAA L         * *   8     8
 44713  //                                   R    R  E       A     A L        *   *  8     8
 44714  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 44715  
 44716  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 44717  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 44718  //                           F       U     U N N   N C          T       I    O     O N N   N
 44719  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 44720  //                           F       U     U N   N N C          T       I    O     O N   N N
 44721  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 44722  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 44723  
 44724  //                                   DDDDDD  PPPPPP  RRRRRR  V     V EEEEEEE  CCCCC
 44725  //                                   D     D P     P R     R V     V E       C     C
 44726  //                                   D     D P     P R     R V     V E       C
 44727  //                                   D     D PPPPPP  RRRRRR  V     V EEEEE   C
 44728  //                                   D     D P       R   R    V   V  E       C
 44729  //                                   D     D P       R    R    V V   E       C     C
 44730  //                                   DDDDDD  P       R     R    V    EEEEEEE  CCCCC
 44731  
 44732  
 44733  // VIF  THU 20 NOV 2025 22:21:23  ** DPRVEC                       ** DIAGNOSTICS                                      PAGE 01160
 44734  
 44735  
 44736  // VIF  THU 20 NOV 2025 22:21:23  ** DPRVEC                       ** GENERATED CODE                                   PAGE 01161
 44737  
 44738  real_8 _dprvec (int_4 _p_ m_, real_8 _p_ u_, real_8 _p_ v_)
 44739  { // ** body not listed **
 44750  }
 44751  
 44752  // VIF  THU 20 NOV 2025 22:21:23  ** DPRWPG                       ** DPRWPG                                           PAGE 01162
 44753  
 44754  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 44755  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 44756  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 44757  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 44758  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 44759  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 44760  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 44761  
 44762  //                                   DDDDDD  PPPPPP  RRRRRR  W     W PPPPPP   GGGGG
 44763  //                                   D     D P     P R     R W     W P     P G     G
 44764  //                                   D     D P     P R     R W     W P     P G
 44765  //                                   D     D PPPPPP  RRRRRR  W  W  W PPPPPP  G  GGGG
 44766  //                                   D     D P       R   R   W  W  W P       G     G
 44767  //                                   D     D P       R    R  W  W  W P       G     G
 44768  //                                   DDDDDD  P       R     R  WW WW  P        GGGGG
 44769  
 44770  
 44771  // VIF  THU 20 NOV 2025 22:21:23  ** DPRWPG                       ** DIAGNOSTICS                                      PAGE 01163
 44772  
 44773  
 44774  // VIF  THU 20 NOV 2025 22:21:23  ** DPRWPG                       ** GENERATED CODE                                   PAGE 01164
 44775  
 44776  int_4 _dprwpg (int_4 _p_ key_, int_4 _p_ ipage_, int_4 _p_ lpg_, real_8 _p_ sx_, int_4 _p_ ix_)
 44777  { // ** body not listed **
 44797  }
 44798  
 44799  // VIF  THU 20 NOV 2025 22:21:23  ** DPRWVR                       ** DPRWVR                                           PAGE 01165
 44800  
 44801  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 44802  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 44803  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 44804  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 44805  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 44806  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 44807  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 44808  
 44809  //                                   DDDDDD  PPPPPP  RRRRRR  W     W V     V RRRRRR
 44810  //                                   D     D P     P R     R W     W V     V R     R
 44811  //                                   D     D P     P R     R W     W V     V R     R
 44812  //                                   D     D PPPPPP  RRRRRR  W  W  W V     V RRRRRR
 44813  //                                   D     D P       R   R   W  W  W  V   V  R   R
 44814  //                                   D     D P       R    R  W  W  W   V V   R    R
 44815  //                                   DDDDDD  P       R     R  WW WW     V    R     R
 44816  
 44817  
 44818  // VIF  THU 20 NOV 2025 22:21:23  ** DPRWVR                       ** DIAGNOSTICS                                      PAGE 01166
 44819  
 44820  
 44821  // VIF  THU 20 NOV 2025 22:21:23  ** DPRWVR                       ** GENERATED CODE                                   PAGE 01167
 44822  
 44823  int_4 _dprwvr (int_4 _p_ key_, int_4 _p_ ipage_, int_4 _p_ lpg_, real_8 _p_ sx_, int_4 _p_ ix_)
 44824  { // ** body not listed **
 44871  }
 44872  
 44873  // VIF  THU 20 NOV 2025 22:21:23  ** DPSIXN                       ** DPSIXN                                           PAGE 01168
 44874  
 44875  //                                   RRRRRR  EEEEEEE    A    L                88888
 44876  //                                   R     R E         A A   L        *   *  8     8
 44877  //                                   R     R E        A   A  L         * *   8     8
 44878  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 44879  //                                   R   R   E       AAAAAAA L         * *   8     8
 44880  //                                   R    R  E       A     A L        *   *  8     8
 44881  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 44882  
 44883  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 44884  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 44885  //                           F       U     U N N   N C          T       I    O     O N N   N
 44886  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 44887  //                           F       U     U N   N N C          T       I    O     O N   N N
 44888  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 44889  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 44890  
 44891  //                                   DDDDDD  PPPPPP   SSSSS    III   X     X N     N
 44892  //                                   D     D P     P S     S    I     X   X  NN    N
 44893  //                                   D     D P     P S          I      X X   N N   N
 44894  //                                   D     D PPPPPP   SSSSS     I       X    N  N  N
 44895  //                                   D     D P             S    I      X X   N   N N
 44896  //                                   D     D P       S     S    I     X   X  N    NN
 44897  //                                   DDDDDD  P        SSSSS    III   X     X N     N
 44898  
 44899  
 44900  // VIF  THU 20 NOV 2025 22:21:23  ** DPSIXN                       ** DIAGNOSTICS                                      PAGE 01169
 44901  
 44902  
 44903  // VIF  THU 20 NOV 2025 22:21:23  ** DPSIXN                       ** GENERATED CODE                                   PAGE 01170
 44904  
 44905  real_8 _dpsixn (int_4 _p_ n_)
 44906  { // ** body not listed **
 45639  }
 45640  
 45641  // VIF  THU 20 NOV 2025 22:21:23  ** DPSORT                       ** DPSORT                                           PAGE 01185
 45642  
 45643  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 45644  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 45645  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 45646  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 45647  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 45648  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 45649  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 45650  
 45651  //                                   DDDDDD  PPPPPP   SSSSS   OOOOO  RRRRRR  TTTTTTT
 45652  //                                   D     D P     P S     S O     O R     R    T
 45653  //                                   D     D P     P S       O     O R     R    T
 45654  //                                   D     D PPPPPP   SSSSS  O     O RRRRRR     T
 45655  //                                   D     D P             S O     O R   R      T
 45656  //                                   D     D P       S     S O     O R    R     T
 45657  //                                   DDDDDD  P        SSSSS   OOOOO  R     R    T
 45658  
 45659  
 45660  // VIF  THU 20 NOV 2025 22:21:23  ** DPSORT                       ** DIAGNOSTICS                                      PAGE 01186
 45661  
 45662  
 45663  // VIF  THU 20 NOV 2025 22:21:23  ** DPSORT                       ** GENERATED CODE                                   PAGE 01187
 45664  
 45665  int_4 _dpsort (real_8 _p_ dx_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ kflag_, int_4 _p_ ier_)
 45666  { // ** body not listed **
 45830  }
 45831  
 45832  // VIF  THU 20 NOV 2025 22:21:23  ** DQDOTA                       ** DQDOTA                                           PAGE 01191
 45833  
 45834  //                                   RRRRRR  EEEEEEE    A    L                88888
 45835  //                                   R     R E         A A   L        *   *  8     8
 45836  //                                   R     R E        A   A  L         * *   8     8
 45837  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 45838  //                                   R   R   E       AAAAAAA L         * *   8     8
 45839  //                                   R    R  E       A     A L        *   *  8     8
 45840  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 45841  
 45842  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 45843  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 45844  //                           F       U     U N N   N C          T       I    O     O N N   N
 45845  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 45846  //                           F       U     U N   N N C          T       I    O     O N   N N
 45847  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 45848  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 45849  
 45850  //                                   DDDDDD   QQQQQ  DDDDDD   OOOOO  TTTTTTT    A
 45851  //                                   D     D Q     Q D     D O     O    T      A A
 45852  //                                   D     D Q     Q D     D O     O    T     A   A
 45853  //                                   D     D Q     Q D     D O     O    T    A     A
 45854  //                                   D     D Q   Q Q D     D O     O    T    AAAAAAA
 45855  //                                   D     D Q    Q  D     D O     O    T    A     A
 45856  //                                   DDDDDD   QQQQ Q DDDDDD   OOOOO     T    A     A
 45857  
 45858  
 45859  // VIF  THU 20 NOV 2025 22:21:23  ** DQDOTA                       ** DIAGNOSTICS                                      PAGE 01192
 45860  
 45861  
 45862  // VIF  THU 20 NOV 2025 22:21:23  ** DQDOTA                       ** GENERATED CODE                                   PAGE 01193
 45863  
 45864  real_8 _dqdota (int_4 _p_ n_, real_8 _p_ db_, int_4 _p_ qc_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ 
 45865  incy_)
 45866  { // ** body not listed **
 45916  }
 45917  
 45918  // VIF  THU 20 NOV 2025 22:21:23  ** DQDOTI                       ** DQDOTI                                           PAGE 01195
 45919  
 45920  //                                   RRRRRR  EEEEEEE    A    L                88888
 45921  //                                   R     R E         A A   L        *   *  8     8
 45922  //                                   R     R E        A   A  L         * *   8     8
 45923  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 45924  //                                   R   R   E       AAAAAAA L         * *   8     8
 45925  //                                   R    R  E       A     A L        *   *  8     8
 45926  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 45927  
 45928  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 45929  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 45930  //                           F       U     U N N   N C          T       I    O     O N N   N
 45931  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 45932  //                           F       U     U N   N N C          T       I    O     O N   N N
 45933  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 45934  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 45935  
 45936  //                                    DDDDDD   QQQQQ  DDDDDD   OOOOO  TTTTTTT   III
 45937  //                                    D     D Q     Q D     D O     O    T       I
 45938  //                                    D     D Q     Q D     D O     O    T       I
 45939  //                                    D     D Q     Q D     D O     O    T       I
 45940  //                                    D     D Q   Q Q D     D O     O    T       I
 45941  //                                    D     D Q    Q  D     D O     O    T       I
 45942  //                                    DDDDDD   QQQQ Q DDDDDD   OOOOO     T      III
 45943  
 45944  
 45945  // VIF  THU 20 NOV 2025 22:21:23  ** DQDOTI                       ** DIAGNOSTICS                                      PAGE 01196
 45946  
 45947  
 45948  // VIF  THU 20 NOV 2025 22:21:23  ** DQDOTI                       ** GENERATED CODE                                   PAGE 01197
 45949  
 45950  real_8 _dqdoti (int_4 _p_ n_, real_8 _p_ db_, int_4 _p_ qc_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ 
 45951  incy_)
 45952  { // ** body not listed **
 46003  }
 46004  
 46005  // VIF  THU 20 NOV 2025 22:21:23  ** DQFORM                       ** DQFORM                                           PAGE 01199
 46006  
 46007  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 46008  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 46009  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 46010  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 46011  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 46012  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 46013  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 46014  
 46015  //                                   DDDDDD   QQQQQ  FFFFFFF  OOOOO  RRRRRR  M     M
 46016  //                                   D     D Q     Q F       O     O R     R MM   MM
 46017  //                                   D     D Q     Q F       O     O R     R M M M M
 46018  //                                   D     D Q     Q FFFFF   O     O RRRRRR  M  M  M
 46019  //                                   D     D Q   Q Q F       O     O R   R   M     M
 46020  //                                   D     D Q    Q  F       O     O R    R  M     M
 46021  //                                   DDDDDD   QQQQ Q F        OOOOO  R     R M     M
 46022  
 46023  
 46024  // VIF  THU 20 NOV 2025 22:21:23  ** DQFORM                       ** DIAGNOSTICS                                      PAGE 01200
 46025  
 46026  
 46027  // VIF  THU 20 NOV 2025 22:21:23  ** DQFORM                       ** GENERATED CODE                                   PAGE 01201
 46028  
 46029  int_4 _dqform (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ wa_)
 46030  { // ** body not listed **
 46100  }
 46101  
 46102  // VIF  THU 20 NOV 2025 22:21:23  ** DQRFAC                       ** DQRFAC                                           PAGE 01203
 46103  
 46104  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 46105  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 46106  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 46107  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 46108  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 46109  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 46110  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 46111  
 46112  //                                   DDDDDD   QQQQQ  RRRRRR  FFFFFFF    A     CCCCC
 46113  //                                   D     D Q     Q R     R F         A A   C     C
 46114  //                                   D     D Q     Q R     R F        A   A  C
 46115  //                                   D     D Q     Q RRRRRR  FFFFF   A     A C
 46116  //                                   D     D Q   Q Q R   R   F       AAAAAAA C
 46117  //                                   D     D Q    Q  R    R  F       A     A C     C
 46118  //                                   DDDDDD   QQQQ Q R     R F       A     A  CCCCC
 46119  
 46120  
 46121  // VIF  THU 20 NOV 2025 22:21:23  ** DQRFAC                       ** DIAGNOSTICS                                      PAGE 01204
 46122  
 46123  
 46124  // VIF  THU 20 NOV 2025 22:21:23  ** DQRFAC                       ** GENERATED CODE                                   PAGE 01205
 46125  
 46126  int_4 _dqrfac (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, logical_4 _p_ pivot_, int_4 _p_ ipvt_, int_4 
 46127  _p_ lipvt_, real_8 _p_ sigma_, real_8 _p_ acnorm_, real_8 _p_ wa_)
 46128  { // ** body not listed **
 46238  }
 46239  
 46240  // VIF  THU 20 NOV 2025 22:21:23  ** DQRSLV                       ** DQRSLV                                           PAGE 01208
 46241  
 46242  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 46243  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 46244  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 46245  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 46246  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 46247  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 46248  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 46249  
 46250  //                                   DDDDDD   QQQQQ  RRRRRR   SSSSS  L       V     V
 46251  //                                   D     D Q     Q R     R S     S L       V     V
 46252  //                                   D     D Q     Q R     R S       L       V     V
 46253  //                                   D     D Q     Q RRRRRR   SSSSS  L       V     V
 46254  //                                   D     D Q   Q Q R   R         S L        V   V
 46255  //                                   D     D Q    Q  R    R  S     S L         V V
 46256  //                                   DDDDDD   QQQQ Q R     R  SSSSS  LLLLLLL    V
 46257  
 46258  
 46259  // VIF  THU 20 NOV 2025 22:21:23  ** DQRSLV                       ** DIAGNOSTICS                                      PAGE 01209
 46260  
 46261  
 46262  // VIF  THU 20 NOV 2025 22:21:23  ** DQRSLV                       ** GENERATED CODE                                   PAGE 01210
 46263  
 46264  int_4 _dqrslv (int_4 _p_ n_, real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ ipvt_, real_8 _p_ diag_, real_8 _p_ qtb_, real_8 
 46265  _p_ x_, real_8 _p_ sigma_, real_8 _p_ wa_)
 46266  { // ** body not listed **
 46382  }
 46383  
 46384  // VIF  THU 20 NOV 2025 22:21:23  ** DRC3JJ                       ** DRC3JJ                                           PAGE 01213
 46385  
 46386  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 46387  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 46388  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 46389  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 46390  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 46391  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 46392  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 46393  
 46394  //                                   DDDDDD  RRRRRR   CCCCC   33333        J       J
 46395  //                                   D     D R     R C     C 3     3       J       J
 46396  //                                   D     D R     R C             3       J       J
 46397  //                                   D     D RRRRRR  C        33333        J       J
 46398  //                                   D     D R   R   C             3 J     J J     J
 46399  //                                   D     D R    R  C     C 3     3 J     J J     J
 46400  //                                   DDDDDD  R     R  CCCCC   33333   JJJJJ   JJJJJ
 46401  
 46402  
 46403  // VIF  THU 20 NOV 2025 22:21:23  ** DRC3JJ                       ** DIAGNOSTICS                                      PAGE 01214
 46404  
 46405  
 46406  // VIF  THU 20 NOV 2025 22:21:23  ** DRC3JJ                       ** GENERATED CODE                                   PAGE 01215
 46407  
 46408  int_4 _drc3jj (real_8 _p_ l2_, real_8 _p_ l3_, real_8 _p_ m2_, real_8 _p_ m3_, real_8 _p_ l1min_, real_8 _p_ l1max_, 
 46409  real_8 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_)
 46410  { // ** body not listed **
 46703  }
 46704  
 46705  // VIF  THU 20 NOV 2025 22:21:23  ** DRC3JM                       ** DRC3JM                                           PAGE 01221
 46706  
 46707  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 46708  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 46709  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 46710  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 46711  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 46712  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 46713  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 46714  
 46715  //                                   DDDDDD  RRRRRR   CCCCC   33333        J M     M
 46716  //                                   D     D R     R C     C 3     3       J MM   MM
 46717  //                                   D     D R     R C             3       J M M M M
 46718  //                                   D     D RRRRRR  C        33333        J M  M  M
 46719  //                                   D     D R   R   C             3 J     J M     M
 46720  //                                   D     D R    R  C     C 3     3 J     J M     M
 46721  //                                   DDDDDD  R     R  CCCCC   33333   JJJJJ  M     M
 46722  
 46723  
 46724  // VIF  THU 20 NOV 2025 22:21:23  ** DRC3JM                       ** DIAGNOSTICS                                      PAGE 01222
 46725  
 46726  
 46727  // VIF  THU 20 NOV 2025 22:21:23  ** DRC3JM                       ** GENERATED CODE                                   PAGE 01223
 46728  
 46729  int_4 _drc3jm (real_8 _p_ l1_, real_8 _p_ l2_, real_8 _p_ l3_, real_8 _p_ m1_, real_8 _p_ m2min_, real_8 _p_ m2max_, 
 46730  real_8 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_)
 46731  { // ** body not listed **
 47015  }
 47016  
 47017  // VIF  THU 20 NOV 2025 22:21:23  ** DRC6J                        ** DRC6J                                            PAGE 01229
 47018  
 47019  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 47020  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 47021  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 47022  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 47023  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 47024  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 47025  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 47026  
 47027  //                                       DDDDDD  RRRRRR   CCCCC   66666        J
 47028  //                                       D     D R     R C     C 6     6       J
 47029  //                                       D     D R     R C       6             J
 47030  //                                       D     D RRRRRR  C       666666        J
 47031  //                                       D     D R   R   C       6     6 J     J
 47032  //                                       D     D R    R  C     C 6     6 J     J
 47033  //                                       DDDDDD  R     R  CCCCC   66666   JJJJJ
 47034  
 47035  
 47036  // VIF  THU 20 NOV 2025 22:21:23  ** DRC6J                        ** DIAGNOSTICS                                      PAGE 01230
 47037  
 47038  
 47039  // VIF  THU 20 NOV 2025 22:21:23  ** DRC6J                        ** GENERATED CODE                                   PAGE 01231
 47040  
 47041  int_4 _drc6j (real_8 _p_ l2_, real_8 _p_ l3_, real_8 _p_ l4_, real_8 _p_ l5_, real_8 _p_ l6_, real_8 _p_ l1min_, real_8 
 47042  _p_ l1max_, real_8 _p_ sixcof_, int_4 _p_ ndim_, int_4 _p_ ier_)
 47043  { // ** body not listed **
 47354  }
 47355  
 47356  // VIF  THU 20 NOV 2025 22:21:23  ** DRC                          ** DRC                                              PAGE 01238
 47357  
 47358  //                                   RRRRRR  EEEEEEE    A    L                88888
 47359  //                                   R     R E         A A   L        *   *  8     8
 47360  //                                   R     R E        A   A  L         * *   8     8
 47361  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 47362  //                                   R   R   E       AAAAAAA L         * *   8     8
 47363  //                                   R    R  E       A     A L        *   *  8     8
 47364  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 47365  
 47366  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 47367  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 47368  //                           F       U     U N N   N C          T       I    O     O N N   N
 47369  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 47370  //                           F       U     U N   N N C          T       I    O     O N   N N
 47371  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 47372  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 47373  
 47374  //                                               DDDDDD  RRRRRR   CCCCC
 47375  //                                               D     D R     R C     C
 47376  //                                               D     D R     R C
 47377  //                                               D     D RRRRRR  C
 47378  //                                               D     D R   R   C
 47379  //                                               D     D R    R  C     C
 47380  //                                               DDDDDD  R     R  CCCCC
 47381  
 47382  
 47383  // VIF  THU 20 NOV 2025 22:21:23  ** DRC                          ** DIAGNOSTICS                                      PAGE 01239
 47384  
 47385  
 47386  // VIF  THU 20 NOV 2025 22:21:23  ** DRC                          ** GENERATED CODE                                   PAGE 01240
 47387  
 47388  real_8 _drc (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ ier_)
 47389  { // ** body not listed **
 47785  }
 47786  
 47787  // VIF  THU 20 NOV 2025 22:21:23  ** DRD                          ** DRD                                              PAGE 01248
 47788  
 47789  //                                   RRRRRR  EEEEEEE    A    L                88888
 47790  //                                   R     R E         A A   L        *   *  8     8
 47791  //                                   R     R E        A   A  L         * *   8     8
 47792  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 47793  //                                   R   R   E       AAAAAAA L         * *   8     8
 47794  //                                   R    R  E       A     A L        *   *  8     8
 47795  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 47796  
 47797  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 47798  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 47799  //                           F       U     U N N   N C          T       I    O     O N N   N
 47800  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 47801  //                           F       U     U N   N N C          T       I    O     O N   N N
 47802  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 47803  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 47804  
 47805  //                                               DDDDDD  RRRRRR  DDDDDD
 47806  //                                               D     D R     R D     D
 47807  //                                               D     D R     R D     D
 47808  //                                               D     D RRRRRR  D     D
 47809  //                                               D     D R   R   D     D
 47810  //                                               D     D R    R  D     D
 47811  //                                               DDDDDD  R     R DDDDDD
 47812  
 47813  
 47814  // VIF  THU 20 NOV 2025 22:21:23  ** DRD                          ** DIAGNOSTICS                                      PAGE 01249
 47815  
 47816  
 47817  // VIF  THU 20 NOV 2025 22:21:23  ** DRD                          ** GENERATED CODE                                   PAGE 01250
 47818  
 47819  real_8 _drd (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ z_, int_4 _p_ ier_)
 47820  { // ** body not listed **
 48326  }
 48327  
 48328  // VIF  THU 20 NOV 2025 22:21:23  ** DREADP                       ** DREADP                                           PAGE 01260
 48329  
 48330  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 48331  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 48332  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 48333  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 48334  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 48335  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 48336  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 48337  
 48338  //                                   DDDDDD  RRRRRR  EEEEEEE    A    DDDDDD  PPPPPP
 48339  //                                   D     D R     R E         A A   D     D P     P
 48340  //                                   D     D R     R E        A   A  D     D P     P
 48341  //                                   D     D RRRRRR  EEEEE   A     A D     D PPPPPP
 48342  //                                   D     D R   R   E       AAAAAAA D     D P
 48343  //                                   D     D R    R  E       A     A D     D P
 48344  //                                   DDDDDD  R     R EEEEEEE A     A DDDDDD  P
 48345  
 48346  
 48347  // VIF  THU 20 NOV 2025 22:21:23  ** DREADP                       ** DIAGNOSTICS                                      PAGE 01261
 48348  
 48349  
 48350  // VIF  THU 20 NOV 2025 22:21:23  ** DREADP                       ** GENERATED CODE                                   PAGE 01262
 48351  
 48352  int_4 _dreadp (int_4 _p_ ipage_, int_4 _p_ list_, real_8 _p_ rlist_, int_4 _p_ lpage_, int_4 _p_ irec_)
 48353  { // ** body not listed **
 48464  }
 48465  
 48466  // VIF  THU 20 NOV 2025 22:21:23  ** DREORT                       ** DREORT                                           PAGE 01265
 48467  
 48468  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 48469  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 48470  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 48471  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 48472  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 48473  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 48474  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 48475  
 48476  //                                   DDDDDD  RRRRRR  EEEEEEE  OOOOO  RRRRRR  TTTTTTT
 48477  //                                   D     D R     R E       O     O R     R    T
 48478  //                                   D     D R     R E       O     O R     R    T
 48479  //                                   D     D RRRRRR  EEEEE   O     O RRRRRR     T
 48480  //                                   D     D R   R   E       O     O R   R      T
 48481  //                                   D     D R    R  E       O     O R    R     T
 48482  //                                   DDDDDD  R     R EEEEEEE  OOOOO  R     R    T
 48483  
 48484  
 48485  // VIF  THU 20 NOV 2025 22:21:23  ** DREORT                       ** DIAGNOSTICS                                      PAGE 01266
 48486  
 48487  
 48488  // VIF  THU 20 NOV 2025 22:21:23  ** DREORT                       ** GENERATED CODE                                   PAGE 01267
 48489  
 48490  int_4 _dreort (int_4 _p_ ncomp_, real_8 _p_ y_, real_8 _p_ yp_, real_8 _p_ yhp_, int_4 _p_ niv_, real_8 _p_ w_, real_8 
 48491  _p_ s_, real_8 _p_ p_, int_4 _p_ ip_, real_8 _p_ stowa_, int_4 _p_ iflag_)
 48492  { // ** body not listed **
 48639  }
 48640  
 48641  // VIF  THU 20 NOV 2025 22:21:23  ** DRF                          ** DRF                                              PAGE 01270
 48642  
 48643  //                                   RRRRRR  EEEEEEE    A    L                88888
 48644  //                                   R     R E         A A   L        *   *  8     8
 48645  //                                   R     R E        A   A  L         * *   8     8
 48646  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 48647  //                                   R   R   E       AAAAAAA L         * *   8     8
 48648  //                                   R    R  E       A     A L        *   *  8     8
 48649  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 48650  
 48651  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 48652  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 48653  //                           F       U     U N N   N C          T       I    O     O N N   N
 48654  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 48655  //                           F       U     U N   N N C          T       I    O     O N   N N
 48656  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 48657  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 48658  
 48659  //                                               DDDDDD  RRRRRR  FFFFFFF
 48660  //                                               D     D R     R F
 48661  //                                               D     D R     R F
 48662  //                                               D     D RRRRRR  FFFFF
 48663  //                                               D     D R   R   F
 48664  //                                               D     D R    R  F
 48665  //                                               DDDDDD  R     R F
 48666  
 48667  
 48668  // VIF  THU 20 NOV 2025 22:21:23  ** DRF                          ** DIAGNOSTICS                                      PAGE 01271
 48669  
 48670  
 48671  // VIF  THU 20 NOV 2025 22:21:23  ** DRF                          ** GENERATED CODE                                   PAGE 01272
 48672  
 48673  real_8 _drf (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ z_, int_4 _p_ ier_)
 48674  { // ** body not listed **
 49210  }
 49211  
 49212  // VIF  THU 20 NOV 2025 22:21:23  ** DRJ                          ** DRJ                                              PAGE 01283
 49213  
 49214  //                                   RRRRRR  EEEEEEE    A    L                88888
 49215  //                                   R     R E         A A   L        *   *  8     8
 49216  //                                   R     R E        A   A  L         * *   8     8
 49217  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 49218  //                                   R   R   E       AAAAAAA L         * *   8     8
 49219  //                                   R    R  E       A     A L        *   *  8     8
 49220  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 49221  
 49222  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 49223  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 49224  //                           F       U     U N N   N C          T       I    O     O N N   N
 49225  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 49226  //                           F       U     U N   N N C          T       I    O     O N   N N
 49227  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 49228  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 49229  
 49230  //                                               DDDDDD  RRRRRR        J
 49231  //                                               D     D R     R       J
 49232  //                                               D     D R     R       J
 49233  //                                               D     D RRRRRR        J
 49234  //                                               D     D R   R   J     J
 49235  //                                               D     D R    R  J     J
 49236  //                                               DDDDDD  R     R  JJJJJ
 49237  
 49238  
 49239  // VIF  THU 20 NOV 2025 22:21:23  ** DRJ                          ** DIAGNOSTICS                                      PAGE 01284
 49240  
 49241  
 49242  // VIF  THU 20 NOV 2025 22:21:23  ** DRJ                          ** GENERATED CODE                                   PAGE 01285
 49243  
 49244  real_8 _drj (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ z_, real_8 _p_ p_, int_4 _p_ ier_)
 49245  { // ** body not listed **
 49879  }
 49880  
 49881  // VIF  THU 20 NOV 2025 22:21:23  ** DRKFS                        ** DRKFS                                            PAGE 01298
 49882  
 49883  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 49884  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 49885  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 49886  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 49887  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 49888  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 49889  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 49890  
 49891  //                                       DDDDDD  RRRRRR  K    K  FFFFFFF  SSSSS
 49892  //                                       D     D R     R K   K   F       S     S
 49893  //                                       D     D R     R K  K    F       S
 49894  //                                       D     D RRRRRR  KKK     FFFFF    SSSSS
 49895  //                                       D     D R   R   K  K    F             S
 49896  //                                       D     D R    R  K   K   F       S     S
 49897  //                                       DDDDDD  R     R K    K  F        SSSSS
 49898  
 49899  
 49900  // VIF  THU 20 NOV 2025 22:21:23  ** DRKFS                        ** DIAGNOSTICS                                      PAGE 01299
 49901  
 49902  
 49903  // VIF  THU 20 NOV 2025 22:21:23  ** DRKFS                        ** GENERATED CODE                                   PAGE 01300
 49904  
 49905  int_4 _drkfs (int_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ tout_, int_4 _p_ info_, real_8 
 49906  _p_ rtol_, real_8 _p_ atol_, int_4 _p_ idid_, real_8 _p_ h_, real_8 _p_ tolfac_, real_8 _p_ yp_, real_8 _p_ f1_, real_8 
 49907  _p_ f2_, real_8 _p_ f3_, real_8 _p_ f4_, real_8 _p_ f5_, real_8 _p_ ys_, real_8 _p_ told_, real_8 _p_ dtsign_, real_8 
 49908  _p_ u26_, real_8 _p_ rer_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kop_, int_4 _p_ iquit_, logical_4 _p_ stiff_, 
 49909  logical_4 _p_ nonstf_, int_4 _p_ ntstep_, int_4 _p_ nstifs_, real_8 _p_ rpar_, int_4 _p_ ipar_)
 49910  { // ** body not listed **
 50813  }
 50814  
 50815  // VIF  THU 20 NOV 2025 22:21:23  ** DSORT                        ** DSORT                                            PAGE 01318
 50816  
 50817  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 50818  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 50819  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 50820  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 50821  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 50822  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 50823  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 50824  
 50825  //                                       DDDDDD   SSSSS   OOOOO  RRRRRR  TTTTTTT
 50826  //                                       D     D S     S O     O R     R    T
 50827  //                                       D     D S       O     O R     R    T
 50828  //                                       D     D  SSSSS  O     O RRRRRR     T
 50829  //                                       D     D       S O     O R   R      T
 50830  //                                       D     D S     S O     O R    R     T
 50831  //                                       DDDDDD   SSSSS   OOOOO  R     R    T
 50832  
 50833  
 50834  // VIF  THU 20 NOV 2025 22:21:23  ** DSORT                        ** DIAGNOSTICS                                      PAGE 01319
 50835  
 50836  
 50837  // VIF  THU 20 NOV 2025 22:21:23  ** DSORT                        ** GENERATED CODE                                   PAGE 01320
 50838  
 50839  int_4 _dsort (real_8 _p_ dx_, real_8 _p_ dy_, int_4 _p_ n_, int_4 _p_ kflag_)
 50840  { // ** body not listed **
 51091  }
 51092  
 51093  // VIF  THU 20 NOV 2025 22:21:23  ** DSOSEQ                       ** DSOSEQ                                           PAGE 01325
 51094  
 51095  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 51096  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 51097  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 51098  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 51099  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 51100  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 51101  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 51102  
 51103  //                                   DDDDDD   SSSSS   OOOOO   SSSSS  EEEEEEE  QQQQQ
 51104  //                                   D     D S     S O     O S     S E       Q     Q
 51105  //                                   D     D S       O     O S       E       Q     Q
 51106  //                                   D     D  SSSSS  O     O  SSSSS  EEEEE   Q     Q
 51107  //                                   D     D       S O     O       S E       Q   Q Q
 51108  //                                   D     D S     S O     O S     S E       Q    Q
 51109  //                                   DDDDDD   SSSSS   OOOOO   SSSSS  EEEEEEE  QQQQ Q
 51110  
 51111  
 51112  // VIF  THU 20 NOV 2025 22:21:23  ** DSOSEQ                       ** DIAGNOSTICS                                      PAGE 01326
 51113  
 51114  
 51115  // VIF  THU 20 NOV 2025 22:21:23  ** DSOSEQ                       ** GENERATED CODE                                   PAGE 01327
 51116  
 51117  int_4 _dsoseq (real_8 (*_fnc)(), int_4 _p_ n_, real_8 _p_ s_, real_8 _p_ rtolx_, real_8 _p_ atolx_, real_8 _p_ tolf_, 
 51118  int_4 _p_ iflag_, int_4 _p_ mxit_, int_4 _p_ ncjs_, int_4 _p_ nsrrc_, int_4 _p_ nsri_, int_4 _p_ iprint_, real_8 _p_ 
 51119  fmax_, real_8 _p_ c_, int_4 _p_ nc_, real_8 _p_ b_, real_8 _p_ p_, real_8 _p_ temp_, real_8 _p_ x_, real_8 _p_ y_, 
 51120  real_8 _p_ fac_, int_4 _p_ is_)
 51121  { // ** body not listed **
 51514  }
 51515  
 51516  // VIF  THU 20 NOV 2025 22:21:23  ** DSOS                         ** DSOS                                             PAGE 01335
 51517  
 51518  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 51519  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 51520  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 51521  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 51522  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 51523  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 51524  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 51525  
 51526  //                                           DDDDDD   SSSSS   OOOOO   SSSSS
 51527  //                                           D     D S     S O     O S     S
 51528  //                                           D     D S       O     O S
 51529  //                                           D     D  SSSSS  O     O  SSSSS
 51530  //                                           D     D       S O     O       S
 51531  //                                           D     D S     S O     O S     S
 51532  //                                           DDDDDD   SSSSS   OOOOO   SSSSS
 51533  
 51534  
 51535  // VIF  THU 20 NOV 2025 22:21:23  ** DSOS                         ** DIAGNOSTICS                                      PAGE 01336
 51536  
 51537  
 51538  // VIF  THU 20 NOV 2025 22:21:23  ** DSOS                         ** GENERATED CODE                                   PAGE 01337
 51539  
 51540  int_4 _dsos (real_8 (*_fnc)(), int_4 _p_ neq_, real_8 _p_ x_, real_8 _p_ rtolx_, real_8 _p_ atolx_, real_8 _p_ tolf_, 
 51541  int_4 _p_ iflag_, real_8 _p_ rw_, int_4 _p_ lrw_, int_4 _p_ iw_, int_4 _p_ liw_)
 51542  { // ** body not listed **
 51889  }
 51890  
 51891  // VIF  THU 20 NOV 2025 22:21:23  ** DSOSSL                       ** DSOSSL                                           PAGE 01344
 51892  
 51893  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 51894  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 51895  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 51896  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 51897  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 51898  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 51899  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 51900  
 51901  //                                   DDDDDD   SSSSS   OOOOO   SSSSS   SSSSS  L
 51902  //                                   D     D S     S O     O S     S S     S L
 51903  //                                   D     D S       O     O S       S       L
 51904  //                                   D     D  SSSSS  O     O  SSSSS   SSSSS  L
 51905  //                                   D     D       S O     O       S       S L
 51906  //                                   D     D S     S O     O S     S S     S L
 51907  //                                   DDDDDD   SSSSS   OOOOO   SSSSS   SSSSS  LLLLLLL
 51908  
 51909  
 51910  // VIF  THU 20 NOV 2025 22:21:23  ** DSOSSL                       ** DIAGNOSTICS                                      PAGE 01345
 51911  
 51912  
 51913  // VIF  THU 20 NOV 2025 22:21:23  ** DSOSSL                       ** GENERATED CODE                                   PAGE 01346
 51914  
 51915  int_4 _dsossl (int_4 _p_ k_, int_4 _p_ n_, int_4 _p_ l_, real_8 _p_ x_, real_8 _p_ c_, real_8 _p_ b_, int_4 _p_ m_)
 51916  { // ** body not listed **
 51950  }
 51951  
 51952  // VIF  THU 20 NOV 2025 22:21:23  ** DSPLP                        ** DSPLP                                            PAGE 01347
 51953  
 51954  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 51955  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 51956  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 51957  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 51958  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 51959  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 51960  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 51961  
 51962  //                                       DDDDDD   SSSSS  PPPPPP  L       PPPPPP
 51963  //                                       D     D S     S P     P L       P     P
 51964  //                                       D     D S       P     P L       P     P
 51965  //                                       D     D  SSSSS  PPPPPP  L       PPPPPP
 51966  //                                       D     D       S P       L       P
 51967  //                                       D     D S     S P       L       P
 51968  //                                       DDDDDD   SSSSS  P       LLLLLLL P
 51969  
 51970  
 51971  // VIF  THU 20 NOV 2025 22:21:23  ** DSPLP                        ** DIAGNOSTICS                                      PAGE 01348
 51972  
 51973  
 51974  // VIF  THU 20 NOV 2025 22:21:23  ** DSPLP                        ** GENERATED CODE                                   PAGE 01349
 51975  
 51976  int_4 _dsplp (real_4 (*_dusrmt)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_8 _p_ costs_, real_8 _p_ prgopt_, real_8 
 51977  _p_ dattrv_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_8 _p_ primal_, real_8 _p_ duals_, 
 51978  int_4 _p_ ibasis_, real_8 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_)
 51979  { // ** body not listed **
 52295  }
 52296  
 52297  // VIF  THU 20 NOV 2025 22:21:23  ** DSTOR1                       ** DSTOR1                                           PAGE 01356
 52298  
 52299  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 52300  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 52301  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 52302  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 52303  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 52304  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 52305  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 52306  
 52307  //                                    DDDDDD   SSSSS  TTTTTTT  OOOOO  RRRRRR     1
 52308  //                                    D     D S     S    T    O     O R     R   11
 52309  //                                    D     D S          T    O     O R     R  1 1
 52310  //                                    D     D  SSSSS     T    O     O RRRRRR     1
 52311  //                                    D     D       S    T    O     O R   R      1
 52312  //                                    D     D S     S    T    O     O R    R     1
 52313  //                                    DDDDDD   SSSSS     T     OOOOO  R     R  11111
 52314  
 52315  
 52316  // VIF  THU 20 NOV 2025 22:21:23  ** DSTOR1                       ** DIAGNOSTICS                                      PAGE 01357
 52317  
 52318  
 52319  // VIF  THU 20 NOV 2025 22:21:23  ** DSTOR1                       ** GENERATED CODE                                   PAGE 01358
 52320  
 52321  int_4 _dstor1 (real_8 _p_ u_, real_8 _p_ yh_, real_8 _p_ v_, real_8 _p_ yp_, int_4 _p_ ntemp_, int_4 _p_ ndisk_, int_4 
 52322  _p_ ntape_)
 52323  { // ** body not listed **
 52368  }
 52369  
 52370  // VIF  THU 20 NOV 2025 22:21:23  ** DSTWAY                       ** DSTWAY                                           PAGE 01359
 52371  
 52372  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 52373  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 52374  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 52375  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 52376  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 52377  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 52378  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 52379  
 52380  //                                   DDDDDD   SSSSS  TTTTTTT W     W    A    Y     Y
 52381  //                                   D     D S     S    T    W     W   A A    Y   Y
 52382  //                                   D     D S          T    W     W  A   A    Y Y
 52383  //                                   D     D  SSSSS     T    W  W  W A     A    Y
 52384  //                                   D     D       S    T    W  W  W AAAAAAA    Y
 52385  //                                   D     D S     S    T    W  W  W A     A    Y
 52386  //                                   DDDDDD   SSSSS     T     WW WW  A     A    Y
 52387  
 52388  
 52389  // VIF  THU 20 NOV 2025 22:21:23  ** DSTWAY                       ** DIAGNOSTICS                                      PAGE 01360
 52390  
 52391  
 52392  // VIF  THU 20 NOV 2025 22:21:23  ** DSTWAY                       ** GENERATED CODE                                   PAGE 01361
 52393  
 52394  int_4 _dstway (real_8 _p_ u_, real_8 _p_ v_, real_8 _p_ yhp_, int_4 _p_ inout_, real_8 _p_ stowa_)
 52395  { // ** body not listed **
 52455  }
 52456  
 52457  // VIF  THU 20 NOV 2025 22:21:23  ** DSUDS                        ** DSUDS                                            PAGE 01363
 52458  
 52459  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 52460  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 52461  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 52462  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 52463  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 52464  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 52465  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 52466  
 52467  //                                       DDDDDD   SSSSS  U     U DDDDDD   SSSSS
 52468  //                                       D     D S     S U     U D     D S     S
 52469  //                                       D     D S       U     U D     D S
 52470  //                                       D     D  SSSSS  U     U D     D  SSSSS
 52471  //                                       D     D       S U     U D     D       S
 52472  //                                       D     D S     S U     U D     D S     S
 52473  //                                       DDDDDD   SSSSS   UUUUU  DDDDDD   SSSSS
 52474  
 52475  
 52476  // VIF  THU 20 NOV 2025 22:21:23  ** DSUDS                        ** DIAGNOSTICS                                      PAGE 01364
 52477  
 52478  
 52479  // VIF  THU 20 NOV 2025 22:21:23  ** DSUDS                        ** GENERATED CODE                                   PAGE 01365
 52480  
 52481  int_4 _dsuds (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ b_, int_4 _p_ neq_, int_4 _p_ nuk_, int_4 _p_ nrda_, int_4 _p_ 
 52482  iflag_, int_4 _p_ mlso_, real_8 _p_ work_, int_4 _p_ iwork_)
 52483  { // ** body not listed **
 52496  }
 52497  
 52498  // VIF  THU 20 NOV 2025 22:21:23  ** DU11LS                       ** DU11LS                                           PAGE 01366
 52499  
 52500  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 52501  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 52502  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 52503  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 52504  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 52505  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 52506  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 52507  
 52508  //                                   DDDDDD  U     U    1       1    L        SSSSS
 52509  //                                   D     D U     U   11      11    L       S     S
 52510  //                                   D     D U     U  1 1     1 1    L       S
 52511  //                                   D     D U     U    1       1    L        SSSSS
 52512  //                                   D     D U     U    1       1    L             S
 52513  //                                   D     D U     U    1       1    L       S     S
 52514  //                                   DDDDDD   UUUUU   11111   11111  LLLLLLL  SSSSS
 52515  
 52516  
 52517  // VIF  THU 20 NOV 2025 22:21:23  ** DU11LS                       ** DIAGNOSTICS                                      PAGE 01367
 52518  
 52519  
 52520  // VIF  THU 20 NOV 2025 22:21:23  ** DU11LS                       ** GENERATED CODE                                   PAGE 01368
 52521  
 52522  int_4 _du11ls (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ ub_, real_8 _p_ db_, int_4 _p_ 
 52523  mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_8 _p_ h_, real_8 _p_ w_, real_8 _p_ eb_, int_4 _p_ ic_, 
 52524  int_4 _p_ ir_)
 52525  { // ** body not listed **
 52817  }
 52818  
 52819  // VIF  THU 20 NOV 2025 22:21:23  ** DU11US                       ** DU11US                                           PAGE 01374
 52820  
 52821  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 52822  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 52823  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 52824  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 52825  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 52826  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 52827  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 52828  
 52829  //                                   DDDDDD  U     U    1       1    U     U  SSSSS
 52830  //                                   D     D U     U   11      11    U     U S     S
 52831  //                                   D     D U     U  1 1     1 1    U     U S
 52832  //                                   D     D U     U    1       1    U     U  SSSSS
 52833  //                                   D     D U     U    1       1    U     U       S
 52834  //                                   D     D U     U    1       1    U     U S     S
 52835  //                                   DDDDDD   UUUUU   11111   11111   UUUUU   SSSSS
 52836  
 52837  
 52838  // VIF  THU 20 NOV 2025 22:21:23  ** DU11US                       ** DIAGNOSTICS                                      PAGE 01375
 52839  
 52840  
 52841  // VIF  THU 20 NOV 2025 22:21:23  ** DU11US                       ** GENERATED CODE                                   PAGE 01376
 52842  
 52843  int_4 _du11us (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ ub_, real_8 _p_ db_, int_4 _p_ 
 52844  mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_8 _p_ h_, real_8 _p_ w_, real_8 _p_ eb_, int_4 _p_ ir_, 
 52845  int_4 _p_ ic_)
 52846  { // ** body not listed **
 53138  }
 53139  
 53140  // VIF  THU 20 NOV 2025 22:21:23  ** DU12LS                       ** DU12LS                                           PAGE 01382
 53141  
 53142  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 53143  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 53144  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 53145  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 53146  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 53147  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 53148  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 53149  
 53150  //                                   DDDDDD  U     U    1     22222  L        SSSSS
 53151  //                                   D     D U     U   11    2     2 L       S     S
 53152  //                                   D     D U     U  1 1          2 L       S
 53153  //                                   D     D U     U    1     22222  L        SSSSS
 53154  //                                   D     D U     U    1    2       L             S
 53155  //                                   D     D U     U    1    2       L       S     S
 53156  //                                   DDDDDD   UUUUU   11111  2222222 LLLLLLL  SSSSS
 53157  
 53158  
 53159  // VIF  THU 20 NOV 2025 22:21:23  ** DU12LS                       ** DIAGNOSTICS                                      PAGE 01383
 53160  
 53161  
 53162  // VIF  THU 20 NOV 2025 22:21:23  ** DU12LS                       ** GENERATED CODE                                   PAGE 01384
 53163  
 53164  int_4 _du12ls (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 53165  int_4 _p_ mode_, int_4 _p_ krank_, real_8 _p_ rnorm_, real_8 _p_ h_, real_8 _p_ w_, int_4 _p_ ic_, int_4 _p_ ir_)
 53166  { // ** body not listed **
 53311  }
 53312  
 53313  // VIF  THU 20 NOV 2025 22:21:23  ** DU12US                       ** DU12US                                           PAGE 01387
 53314  
 53315  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 53316  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 53317  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 53318  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 53319  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 53320  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 53321  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 53322  
 53323  //                                   DDDDDD  U     U    1     22222  U     U  SSSSS
 53324  //                                   D     D U     U   11    2     2 U     U S     S
 53325  //                                   D     D U     U  1 1          2 U     U S
 53326  //                                   D     D U     U    1     22222  U     U  SSSSS
 53327  //                                   D     D U     U    1    2       U     U       S
 53328  //                                   D     D U     U    1    2       U     U S     S
 53329  //                                   DDDDDD   UUUUU   11111  2222222  UUUUU   SSSSS
 53330  
 53331  
 53332  // VIF  THU 20 NOV 2025 22:21:23  ** DU12US                       ** DIAGNOSTICS                                      PAGE 01388
 53333  
 53334  
 53335  // VIF  THU 20 NOV 2025 22:21:23  ** DU12US                       ** GENERATED CODE                                   PAGE 01389
 53336  
 53337  int_4 _du12us (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 53338  int_4 _p_ mode_, int_4 _p_ krank_, real_8 _p_ rnorm_, real_8 _p_ h_, real_8 _p_ w_, int_4 _p_ ir_, int_4 _p_ ic_)
 53339  { // ** body not listed **
 53483  }
 53484  
 53485  // VIF  THU 20 NOV 2025 22:21:23  ** DULSIA                       ** DULSIA                                           PAGE 01392
 53486  
 53487  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 53488  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 53489  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 53490  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 53491  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 53492  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 53493  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 53494  
 53495  //                                   DDDDDD  U     U L        SSSSS    III      A
 53496  //                                   D     D U     U L       S     S    I      A A
 53497  //                                   D     D U     U L       S          I     A   A
 53498  //                                   D     D U     U L        SSSSS     I    A     A
 53499  //                                   D     D U     U L             S    I    AAAAAAA
 53500  //                                   D     D U     U L       S     S    I    A     A
 53501  //                                   DDDDDD   UUUUU  LLLLLLL  SSSSS    III   A     A
 53502  
 53503  
 53504  // VIF  THU 20 NOV 2025 22:21:23  ** DULSIA                       ** DIAGNOSTICS                                      PAGE 01393
 53505  
 53506  
 53507  // VIF  THU 20 NOV 2025 22:21:23  ** DULSIA                       ** GENERATED CODE                                   PAGE 01394
 53508  
 53509  int_4 _dulsia (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 53510  real_8 _p_ re_, real_8 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, 
 53511  real_8 _p_ rnorm_, real_8 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_)
 53512  { // ** body not listed **
 53771  }
 53772  
 53773  // VIF  THU 20 NOV 2025 22:21:23  ** DUSRMT                       ** DUSRMT                                           PAGE 01400
 53774  
 53775  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 53776  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 53777  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 53778  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 53779  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 53780  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 53781  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 53782  
 53783  //                                   DDDDDD  U     U  SSSSS  RRRRRR  M     M TTTTTTT
 53784  //                                   D     D U     U S     S R     R MM   MM    T
 53785  //                                   D     D U     U S       R     R M M M M    T
 53786  //                                   D     D U     U  SSSSS  RRRRRR  M  M  M    T
 53787  //                                   D     D U     U       S R   R   M     M    T
 53788  //                                   D     D U     U S     S R    R  M     M    T
 53789  //                                   DDDDDD   UUUUU   SSSSS  R     R M     M    T
 53790  
 53791  
 53792  // VIF  THU 20 NOV 2025 22:21:23  ** DUSRMT                       ** DIAGNOSTICS                                      PAGE 01401
 53793  
 53794  
 53795  // VIF  THU 20 NOV 2025 22:21:23  ** DUSRMT                       ** GENERATED CODE                                   PAGE 01402
 53796  
 53797  int_4 _dusrmt (int_4 _p_ i_, int_4 _p_ j_, real_8 _p_ aij_, int_4 _p_ indcat_, real_8 _p_ prgopt_, real_8 _p_ dattrv_, 
 53798  int_4 _p_ iflag_)
 53799  { // ** body not listed **
 53837  }
 53838  
 53839  // VIF  THU 20 NOV 2025 22:21:23  ** DVECS                        ** DVECS                                            PAGE 01403
 53840  
 53841  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 53842  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 53843  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 53844  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 53845  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 53846  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 53847  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 53848  
 53849  //                                       DDDDDD  V     V EEEEEEE  CCCCC   SSSSS
 53850  //                                       D     D V     V E       C     C S     S
 53851  //                                       D     D V     V E       C       S
 53852  //                                       D     D V     V EEEEE   C        SSSSS
 53853  //                                       D     D  V   V  E       C             S
 53854  //                                       D     D   V V   E       C     C S     S
 53855  //                                       DDDDDD     V    EEEEEEE  CCCCC   SSSSS
 53856  
 53857  
 53858  // VIF  THU 20 NOV 2025 22:21:23  ** DVECS                        ** DIAGNOSTICS                                      PAGE 01404
 53859  
 53860  
 53861  // VIF  THU 20 NOV 2025 22:21:23  ** DVECS                        ** GENERATED CODE                                   PAGE 01405
 53862  
 53863  int_4 _dvecs (int_4 _p_ ncomp_, int_4 _p_ lnfc_, real_8 _p_ yhp_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ inhomo_
 53864  , int_4 _p_ iflag_)
 53865  { // ** body not listed **
 53903  }
 53904  
 53905  // VIF  THU 20 NOV 2025 22:21:23  ** DVNRMS                       ** DVNRMS                                           PAGE 01406
 53906  
 53907  //                                   RRRRRR  EEEEEEE    A    L                88888
 53908  //                                   R     R E         A A   L        *   *  8     8
 53909  //                                   R     R E        A   A  L         * *   8     8
 53910  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 53911  //                                   R   R   E       AAAAAAA L         * *   8     8
 53912  //                                   R    R  E       A     A L        *   *  8     8
 53913  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 53914  
 53915  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 53916  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 53917  //                           F       U     U N N   N C          T       I    O     O N N   N
 53918  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 53919  //                           F       U     U N   N N C          T       I    O     O N   N N
 53920  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 53921  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 53922  
 53923  //                                   DDDDDD  V     V N     N RRRRRR  M     M  SSSSS
 53924  //                                   D     D V     V NN    N R     R MM   MM S     S
 53925  //                                   D     D V     V N N   N R     R M M M M S
 53926  //                                   D     D V     V N  N  N RRRRRR  M  M  M  SSSSS
 53927  //                                   D     D  V   V  N   N N R   R   M     M       S
 53928  //                                   D     D   V V   N    NN R    R  M     M S     S
 53929  //                                   DDDDDD     V    N     N R     R M     M  SSSSS
 53930  
 53931  
 53932  // VIF  THU 20 NOV 2025 22:21:23  ** DVNRMS                       ** DIAGNOSTICS                                      PAGE 01407
 53933  
 53934  
 53935  // VIF  THU 20 NOV 2025 22:21:23  ** DVNRMS                       ** GENERATED CODE                                   PAGE 01408
 53936  
 53937  real_8 _dvnrms (int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ w_)
 53938  { // ** body not listed **
 53950  }
 53951  
 53952  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLIT                       ** DWNLIT                                           PAGE 01409
 53953  
 53954  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 53955  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 53956  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 53957  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 53958  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 53959  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 53960  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 53961  
 53962  //                                   DDDDDD  W     W N     N L         III   TTTTTTT
 53963  //                                   D     D W     W NN    N L          I       T
 53964  //                                   D     D W     W N N   N L          I       T
 53965  //                                   D     D W  W  W N  N  N L          I       T
 53966  //                                   D     D W  W  W N   N N L          I       T
 53967  //                                   D     D W  W  W N    NN L          I       T
 53968  //                                   DDDDDD   WW WW  N     N LLLLLLL   III      T
 53969  
 53970  
 53971  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLIT                       ** DIAGNOSTICS                                      PAGE 01410
 53972  
 53973  
 53974  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLIT                       ** GENERATED CODE                                   PAGE 01411
 53975  
 53976  int_4 _dwnlit (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ l_, int_4 _p_ ipivot_, int_4 _p_ 
 53977  itype_, real_8 _p_ h_, real_8 _p_ scale_, real_8 _p_ rnorm_, int_4 _p_ idope_, real_8 _p_ dope_, logical_4 _p_ done_)
 53978  { // ** body not listed **
 54149  }
 54150  
 54151  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLSM                       ** DWNLSM                                           PAGE 01415
 54152  
 54153  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 54154  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 54155  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 54156  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 54157  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 54158  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 54159  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 54160  
 54161  //                                   DDDDDD  W     W N     N L        SSSSS  M     M
 54162  //                                   D     D W     W NN    N L       S     S MM   MM
 54163  //                                   D     D W     W N N   N L       S       M M M M
 54164  //                                   D     D W  W  W N  N  N L        SSSSS  M  M  M
 54165  //                                   D     D W  W  W N   N N L             S M     M
 54166  //                                   D     D W  W  W N    NN L       S     S M     M
 54167  //                                   DDDDDD   WW WW  N     N LLLLLLL  SSSSS  M     M
 54168  
 54169  
 54170  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLSM                       ** DIAGNOSTICS                                      PAGE 01416
 54171  
 54172  
 54173  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLSM                       ** GENERATED CODE                                   PAGE 01417
 54174  
 54175  int_4 _dwnlsm (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mme_, int_4 _p_ ma_, int_4 _p_ n_, int_4 _p_ l_, real_8 _p_ 
 54176  prgopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ ipivot_, int_4 _p_ itype_, real_8 _p_ wd_, real_8 
 54177  _p_ h_, real_8 _p_ scale_, real_8 _p_ z_, real_8 _p_ temp_, real_8 _p_ d_)
 54178  { // ** body not listed **
 54623  }
 54624  
 54625  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLT1                       ** DWNLT1                                           PAGE 01426
 54626  
 54627  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 54628  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 54629  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 54630  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 54631  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 54632  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 54633  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 54634  
 54635  //                                    DDDDDD  W     W N     N L       TTTTTTT    1
 54636  //                                    D     D W     W NN    N L          T      11
 54637  //                                    D     D W     W N N   N L          T     1 1
 54638  //                                    D     D W  W  W N  N  N L          T       1
 54639  //                                    D     D W  W  W N   N N L          T       1
 54640  //                                    D     D W  W  W N    NN L          T       1
 54641  //                                    DDDDDD   WW WW  N     N LLLLLLL    T     11111
 54642  
 54643  
 54644  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLT1                       ** DIAGNOSTICS                                      PAGE 01427
 54645  
 54646  
 54647  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLT1                       ** GENERATED CODE                                   PAGE 01428
 54648  
 54649  int_4 _dwnlt1 (int_4 _p_ i_, int_4 _p_ lend_, int_4 _p_ mend_, int_4 _p_ ir_, int_4 _p_ mdw_, logical_4 _p_ recalc_, 
 54650  int_4 _p_ imax_, real_8 _p_ hbar_, real_8 _p_ h_, real_8 _p_ scale_, real_8 _p_ w_)
 54651  { // ** body not listed **
 54676  }
 54677  
 54678  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLT2                       ** DWNLT2                                           PAGE 01429
 54679  
 54680  //                       L        OOOOO   GGGGG    III    CCCCC     A    L               4
 54681  //                       L       O     O G     G    I    C     C   A A   L        *   *  4    4
 54682  //                       L       O     O G          I    C        A   A  L         * *   4    4
 54683  //                       L       O     O G  GGGG    I    C       A     A L       ******* 4444444
 54684  //                       L       O     O G     G    I    C       AAAAAAA L         * *        4
 54685  //                       L       O     O G     G    I    C     C A     A L        *   *       4
 54686  //                       LLLLLLL  OOOOO   GGGGG    III    CCCCC  A     A LLLLLLL              4
 54687  
 54688  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 54689  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 54690  //                           F       U     U N N   N C          T       I    O     O N N   N
 54691  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 54692  //                           F       U     U N   N N C          T       I    O     O N   N N
 54693  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 54694  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 54695  
 54696  //                                   DDDDDD  W     W N     N L       TTTTTTT  22222
 54697  //                                   D     D W     W NN    N L          T    2     2
 54698  //                                   D     D W     W N N   N L          T          2
 54699  //                                   D     D W  W  W N  N  N L          T     22222
 54700  //                                   D     D W  W  W N   N N L          T    2
 54701  //                                   D     D W  W  W N    NN L          T    2
 54702  //                                   DDDDDD   WW WW  N     N LLLLLLL    T    2222222
 54703  
 54704  
 54705  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLT2                       ** DIAGNOSTICS                                      PAGE 01430
 54706  
 54707  
 54708  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLT2                       ** GENERATED CODE                                   PAGE 01431
 54709  
 54710  logical_4 _dwnlt2 (int_4 _p_ me_, int_4 _p_ mend_, int_4 _p_ ir_, real_8 _p_ factor_, real_8 _p_ tau_, real_8 _p_ 
 54711  scale_, real_8 _p_ wic_)
 54712  { // ** body not listed **
 54734  }
 54735  
 54736  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLT3                       ** DWNLT3                                           PAGE 01432
 54737  
 54738  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 54739  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 54740  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 54741  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 54742  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 54743  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 54744  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 54745  
 54746  //                                   DDDDDD  W     W N     N L       TTTTTTT  33333
 54747  //                                   D     D W     W NN    N L          T    3     3
 54748  //                                   D     D W     W N N   N L          T          3
 54749  //                                   D     D W  W  W N  N  N L          T     33333
 54750  //                                   D     D W  W  W N   N N L          T          3
 54751  //                                   D     D W  W  W N    NN L          T    3     3
 54752  //                                   DDDDDD   WW WW  N     N LLLLLLL    T     33333
 54753  
 54754  
 54755  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLT3                       ** DIAGNOSTICS                                      PAGE 01433
 54756  
 54757  
 54758  // VIF  THU 20 NOV 2025 22:21:23  ** DWNLT3                       ** GENERATED CODE                                   PAGE 01434
 54759  
 54760  int_4 _dwnlt3 (int_4 _p_ i_, int_4 _p_ imax_, int_4 _p_ m_, int_4 _p_ mdw_, int_4 _p_ ipivot_, real_8 _p_ h_, real_8 
 54761  _p_ w_)
 54762  { // ** body not listed **
 54777  }
 54778  
 54779  // VIF  THU 20 NOV 2025 22:21:23  ** DWNNLS                       ** DWNNLS                                           PAGE 01435
 54780  
 54781  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 54782  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 54783  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 54784  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 54785  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 54786  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 54787  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 54788  
 54789  //                                   DDDDDD  W     W N     N N     N L        SSSSS
 54790  //                                   D     D W     W NN    N NN    N L       S     S
 54791  //                                   D     D W     W N N   N N N   N L       S
 54792  //                                   D     D W  W  W N  N  N N  N  N L        SSSSS
 54793  //                                   D     D W  W  W N   N N N   N N L             S
 54794  //                                   D     D W  W  W N    NN N    NN L       S     S
 54795  //                                   DDDDDD   WW WW  N     N N     N LLLLLLL  SSSSS
 54796  
 54797  
 54798  // VIF  THU 20 NOV 2025 22:21:23  ** DWNNLS                       ** DIAGNOSTICS                                      PAGE 01436
 54799  
 54800  
 54801  // VIF  THU 20 NOV 2025 22:21:23  ** DWNNLS                       ** GENERATED CODE                                   PAGE 01437
 54802  
 54803  int_4 _dwnnls (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ me_, int_4 _p_ ma_, int_4 _p_ n_, int_4 _p_ l_, real_8 _p_ 
 54804  prgopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ iwork_, real_8 _p_ work_)
 54805  { // ** body not listed **
 54933  }
 54934  
 54935  // VIF  THU 20 NOV 2025 22:21:23  ** DWRITP                       ** DWRITP                                           PAGE 01440
 54936  
 54937  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 54938  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 54939  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 54940  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 54941  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 54942  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 54943  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 54944  
 54945  //                                   DDDDDD  W     W RRRRRR    III   TTTTTTT PPPPPP
 54946  //                                   D     D W     W R     R    I       T    P     P
 54947  //                                   D     D W     W R     R    I       T    P     P
 54948  //                                   D     D W  W  W RRRRRR     I       T    PPPPPP
 54949  //                                   D     D W  W  W R   R      I       T    P
 54950  //                                   D     D W  W  W R    R     I       T    P
 54951  //                                   DDDDDD   WW WW  R     R   III      T    P
 54952  
 54953  
 54954  // VIF  THU 20 NOV 2025 22:21:23  ** DWRITP                       ** DIAGNOSTICS                                      PAGE 01441
 54955  
 54956  
 54957  // VIF  THU 20 NOV 2025 22:21:23  ** DWRITP                       ** GENERATED CODE                                   PAGE 01442
 54958  
 54959  int_4 _dwritp (int_4 _p_ ipage_, int_4 _p_ list_, real_8 _p_ rlist_, int_4 _p_ lpage_, int_4 _p_ irec_)
 54960  { // ** body not listed **
 55071  }
 55072  
 55073  // VIF  THU 20 NOV 2025 22:21:23  ** DWUPDT                       ** DWUPDT                                           PAGE 01445
 55074  
 55075  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 55076  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 55077  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 55078  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 55079  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 55080  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 55081  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 55082  
 55083  //                                   DDDDDD  W     W U     U PPPPPP  DDDDDD  TTTTTTT
 55084  //                                   D     D W     W U     U P     P D     D    T
 55085  //                                   D     D W     W U     U P     P D     D    T
 55086  //                                   D     D W  W  W U     U PPPPPP  D     D    T
 55087  //                                   D     D W  W  W U     U P       D     D    T
 55088  //                                   D     D W  W  W U     U P       D     D    T
 55089  //                                   DDDDDD   WW WW   UUUUU  P       DDDDDD     T
 55090  
 55091  
 55092  // VIF  THU 20 NOV 2025 22:21:23  ** DWUPDT                       ** DIAGNOSTICS                                      PAGE 01446
 55093  
 55094  
 55095  // VIF  THU 20 NOV 2025 22:21:23  ** DWUPDT                       ** GENERATED CODE                                   PAGE 01447
 55096  
 55097  int_4 _dwupdt (int_4 _p_ n_, real_8 _p_ r_, int_4 _p_ ldr_, real_8 _p_ w_, real_8 _p_ b_, real_8 _p_ alpha_, real_8 _p_ 
 55098  cos_, real_8 _p_ sin_)
 55099  { // ** body not listed **
 55172  }
 55173  
 55174  // VIF  THU 20 NOV 2025 22:21:23  ** DX4                          ** DX4                                              PAGE 01449
 55175  
 55176  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 55177  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 55178  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 55179  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 55180  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 55181  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 55182  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 55183  
 55184  //                                               DDDDDD  X     X 4
 55185  //                                               D     D  X   X  4    4
 55186  //                                               D     D   X X   4    4
 55187  //                                               D     D    X    4444444
 55188  //                                               D     D   X X        4
 55189  //                                               D     D  X   X       4
 55190  //                                               DDDDDD  X     X      4
 55191  
 55192  
 55193  // VIF  THU 20 NOV 2025 22:21:23  ** DX4                          ** DIAGNOSTICS                                      PAGE 01450
 55194  
 55195  
 55196  // VIF  THU 20 NOV 2025 22:21:23  ** DX4                          ** GENERATED CODE                                   PAGE 01451
 55197  
 55198  int_4 _dx4 (real_4 _p_ u_, int_4 _p_ idmn_, int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ uxxx_, real_4 _p_ uxxxx_)
 55199  { // ** body not listed **
 55290  }
 55291  
 55292  // VIF  THU 20 NOV 2025 22:21:23  ** DXADJ                        ** DXADJ                                            PAGE 01453
 55293  
 55294  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 55295  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 55296  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 55297  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 55298  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 55299  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 55300  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 55301  
 55302  //                                       DDDDDD  X     X    A    DDDDDD        J
 55303  //                                       D     D  X   X    A A   D     D       J
 55304  //                                       D     D   X X    A   A  D     D       J
 55305  //                                       D     D    X    A     A D     D       J
 55306  //                                       D     D   X X   AAAAAAA D     D J     J
 55307  //                                       D     D  X   X  A     A D     D J     J
 55308  //                                       DDDDDD  X     X A     A DDDDDD   JJJJJ
 55309  
 55310  
 55311  // VIF  THU 20 NOV 2025 22:21:23  ** DXADJ                        ** DIAGNOSTICS                                      PAGE 01454
 55312  
 55313  
 55314  // VIF  THU 20 NOV 2025 22:21:23  ** DXADJ                        ** GENERATED CODE                                   PAGE 01455
 55315  
 55316  int_4 _dxadj (real_8 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_)
 55317  { // ** body not listed **
 55373  }
 55374  
 55375  // VIF  THU 20 NOV 2025 22:21:23  ** DXC210                       ** DXC210                                           PAGE 01457
 55376  
 55377  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 55378  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 55379  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 55380  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 55381  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 55382  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 55383  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 55384  
 55385  //                                   DDDDDD  X     X  CCCCC   22222     1      000
 55386  //                                   D     D  X   X  C     C 2     2   11     0   0
 55387  //                                   D     D   X X   C             2  1 1    0     0
 55388  //                                   D     D    X    C        22222     1    0     0
 55389  //                                   D     D   X X   C       2          1    0     0
 55390  //                                   D     D  X   X  C     C 2          1     0   0
 55391  //                                   DDDDDD  X     X  CCCCC  2222222  11111    000
 55392  
 55393  
 55394  // VIF  THU 20 NOV 2025 22:21:23  ** DXC210                       ** DIAGNOSTICS                                      PAGE 01458
 55395  
 55396  
 55397  // VIF  THU 20 NOV 2025 22:21:23  ** DXC210                       ** GENERATED CODE                                   PAGE 01459
 55398  
 55399  int_4 _dxc210 (int_4 _p_ k_, real_8 _p_ z_, int_4 _p_ j_, int_4 _p_ ierror_)
 55400  { // ** body not listed **
 55466  }
 55467  
 55468  // VIF  THU 20 NOV 2025 22:21:23  ** DX                           ** DX                                               PAGE 01461
 55469  
 55470  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 55471  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 55472  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 55473  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 55474  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 55475  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 55476  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 55477  
 55478  //                                                   DDDDDD  X     X
 55479  //                                                   D     D  X   X
 55480  //                                                   D     D   X X
 55481  //                                                   D     D    X
 55482  //                                                   D     D   X X
 55483  //                                                   D     D  X   X
 55484  //                                                   DDDDDD  X     X
 55485  
 55486  
 55487  // VIF  THU 20 NOV 2025 22:21:23  ** DX                           ** DIAGNOSTICS                                      PAGE 01462
 55488  
 55489  
 55490  // VIF  THU 20 NOV 2025 22:21:23  ** DX                           ** GENERATED CODE                                   PAGE 01463
 55491  
 55492  int_4 _dx (real_4 _p_ u_, int_4 _p_ idmn_, int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ uxxx_, real_4 _p_ uxxxx_)
 55493  { // ** body not listed **
 55585  }
 55586  
 55587  // VIF  THU 20 NOV 2025 22:21:23  ** DXPSI                        ** DXPSI                                            PAGE 01465
 55588  
 55589  //                                   RRRRRR  EEEEEEE    A    L                88888
 55590  //                                   R     R E         A A   L        *   *  8     8
 55591  //                                   R     R E        A   A  L         * *   8     8
 55592  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 55593  //                                   R   R   E       AAAAAAA L         * *   8     8
 55594  //                                   R    R  E       A     A L        *   *  8     8
 55595  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 55596  
 55597  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 55598  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 55599  //                           F       U     U N N   N C          T       I    O     O N N   N
 55600  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 55601  //                           F       U     U N   N N C          T       I    O     O N   N N
 55602  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 55603  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 55604  
 55605  //                                        DDDDDD  X     X PPPPPP   SSSSS    III
 55606  //                                        D     D  X   X  P     P S     S    I
 55607  //                                        D     D   X X   P     P S          I
 55608  //                                        D     D    X    PPPPPP   SSSSS     I
 55609  //                                        D     D   X X   P             S    I
 55610  //                                        D     D  X   X  P       S     S    I
 55611  //                                        DDDDDD  X     X P        SSSSS    III
 55612  
 55613  
 55614  // VIF  THU 20 NOV 2025 22:21:23  ** DXPSI                        ** DIAGNOSTICS                                      PAGE 01466
 55615  
 55616  
 55617  // VIF  THU 20 NOV 2025 22:21:23  ** DXPSI                        ** GENERATED CODE                                   PAGE 01467
 55618  
 55619  real_8 _dxpsi (real_8 _p_ a_, int_4 _p_ ipsik_, int_4 _p_ ipsix_)
 55620  { // ** body not listed **
 55807  }
 55808  
 55809  // VIF  THU 20 NOV 2025 22:21:23  ** DXRED                        ** DXRED                                            PAGE 01471
 55810  
 55811  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 55812  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 55813  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 55814  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 55815  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 55816  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 55817  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 55818  
 55819  //                                       DDDDDD  X     X RRRRRR  EEEEEEE DDDDDD
 55820  //                                       D     D  X   X  R     R E       D     D
 55821  //                                       D     D   X X   R     R E       D     D
 55822  //                                       D     D    X    RRRRRR  EEEEE   D     D
 55823  //                                       D     D   X X   R   R   E       D     D
 55824  //                                       D     D  X   X  R    R  E       D     D
 55825  //                                       DDDDDD  X     X R     R EEEEEEE DDDDDD
 55826  
 55827  
 55828  // VIF  THU 20 NOV 2025 22:21:23  ** DXRED                        ** DIAGNOSTICS                                      PAGE 01472
 55829  
 55830  
 55831  // VIF  THU 20 NOV 2025 22:21:23  ** DXRED                        ** GENERATED CODE                                   PAGE 01473
 55832  
 55833  int_4 _dxred (real_8 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_)
 55834  { // ** body not listed **
 55907  }
 55908  
 55909  // VIF  THU 20 NOV 2025 22:21:23  ** DY4                          ** DY4                                              PAGE 01475
 55910  
 55911  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 55912  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 55913  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 55914  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 55915  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 55916  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 55917  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 55918  
 55919  //                                               DDDDDD  Y     Y 4
 55920  //                                               D     D  Y   Y  4    4
 55921  //                                               D     D   Y Y   4    4
 55922  //                                               D     D    Y    4444444
 55923  //                                               D     D    Y         4
 55924  //                                               D     D    Y         4
 55925  //                                               DDDDDD     Y         4
 55926  
 55927  
 55928  // VIF  THU 20 NOV 2025 22:21:23  ** DY4                          ** DIAGNOSTICS                                      PAGE 01476
 55929  
 55930  
 55931  // VIF  THU 20 NOV 2025 22:21:23  ** DY4                          ** GENERATED CODE                                   PAGE 01477
 55932  
 55933  int_4 _dy4 (real_4 _p_ u_, int_4 _p_ idmn_, int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ uyyy_, real_4 _p_ uyyyy_)
 55934  { // ** body not listed **
 56024  }
 56025  
 56026  // VIF  THU 20 NOV 2025 22:21:23  ** DYAIRY                       ** DYAIRY                                           PAGE 01479
 56027  
 56028  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 56029  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 56030  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 56031  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 56032  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 56033  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 56034  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 56035  
 56036  //                                   DDDDDD  Y     Y    A      III   RRRRRR  Y     Y
 56037  //                                   D     D  Y   Y    A A      I    R     R  Y   Y
 56038  //                                   D     D   Y Y    A   A     I    R     R   Y Y
 56039  //                                   D     D    Y    A     A    I    RRRRRR     Y
 56040  //                                   D     D    Y    AAAAAAA    I    R   R      Y
 56041  //                                   D     D    Y    A     A    I    R    R     Y
 56042  //                                   DDDDDD     Y    A     A   III   R     R    Y
 56043  
 56044  
 56045  // VIF  THU 20 NOV 2025 22:21:23  ** DYAIRY                       ** DIAGNOSTICS                                      PAGE 01480
 56046  
 56047  
 56048  // VIF  THU 20 NOV 2025 22:21:23  ** DYAIRY                       ** GENERATED CODE                                   PAGE 01481
 56049  
 56050  int_4 _dyairy (real_8 _p_ x_, real_8 _p_ rx_, real_8 _p_ c_, real_8 _p_ bi_, real_8 _p_ dbi_)
 56051  { // ** body not listed **
 58272  }
 58273  
 58274  // VIF  THU 20 NOV 2025 22:21:23  ** DY                           ** DY                                               PAGE 01524
 58275  
 58276  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 58277  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 58278  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 58279  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 58280  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 58281  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 58282  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 58283  
 58284  //                                                   DDDDDD  Y     Y
 58285  //                                                   D     D  Y   Y
 58286  //                                                   D     D   Y Y
 58287  //                                                   D     D    Y
 58288  //                                                   D     D    Y
 58289  //                                                   D     D    Y
 58290  //                                                   DDDDDD     Y
 58291  
 58292  
 58293  // VIF  THU 20 NOV 2025 22:21:23  ** DY                           ** DIAGNOSTICS                                      PAGE 01525
 58294  
 58295  
 58296  // VIF  THU 20 NOV 2025 22:21:23  ** DY                           ** GENERATED CODE                                   PAGE 01526
 58297  
 58298  int_4 _dy (real_4 _p_ u_, int_4 _p_ idmn_, int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ uyyy_, real_4 _p_ uyyyy_)
 58299  { // ** body not listed **
 58391  }
 58392  
 58393  // VIF  THU 20 NOV 2025 22:21:23  ** EFCMN                        ** EFCMN                                            PAGE 01528
 58394  
 58395  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 58396  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 58397  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 58398  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 58399  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 58400  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 58401  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 58402  
 58403  //                                       EEEEEEE FFFFFFF  CCCCC  M     M N     N
 58404  //                                       E       F       C     C MM   MM NN    N
 58405  //                                       E       F       C       M M M M N N   N
 58406  //                                       EEEEE   FFFFF   C       M  M  M N  N  N
 58407  //                                       E       F       C       M     M N   N N
 58408  //                                       E       F       C     C M     M N    NN
 58409  //                                       EEEEEEE F        CCCCC  M     M N     N
 58410  
 58411  
 58412  // VIF  THU 20 NOV 2025 22:21:23  ** EFCMN                        ** DIAGNOSTICS                                      PAGE 01529
 58413  
 58414  
 58415  // VIF  THU 20 NOV 2025 22:21:23  ** EFCMN                        ** GENERATED CODE                                   PAGE 01530
 58416  
 58417  int_4 _efcmn (int_4 _p_ ndata_, real_4 _p_ xdata_, real_4 _p_ ydata_, real_4 _p_ sddata_, int_4 _p_ nord_, int_4 _p_ 
 58418  nbkpt_, real_4 _p_ bkptin_, int_4 _p_ mdein_, int_4 _p_ mdeout_, real_4 _p_ coeff_, real_4 _p_ bf_, real_4 _p_ xtemp_, 
 58419  real_4 _p_ ptemp_, real_4 _p_ bkpt_, real_4 _p_ g_, int_4 _p_ mdg_, real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ lw_)
 58420  { // ** body not listed **
 58625  }
 58626  
 58627  // VIF  THU 20 NOV 2025 22:21:23  ** FCMN                         ** FCMN                                             PAGE 01535
 58628  
 58629  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 58630  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 58631  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 58632  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 58633  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 58634  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 58635  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 58636  
 58637  //                                           FFFFFFF  CCCCC  M     M N     N
 58638  //                                           F       C     C MM   MM NN    N
 58639  //                                           F       C       M M M M N N   N
 58640  //                                           FFFFF   C       M  M  M N  N  N
 58641  //                                           F       C       M     M N   N N
 58642  //                                           F       C     C M     M N    NN
 58643  //                                           F        CCCCC  M     M N     N
 58644  
 58645  
 58646  // VIF  THU 20 NOV 2025 22:21:23  ** FCMN                         ** DIAGNOSTICS                                      PAGE 01536
 58647  
 58648  
 58649  // VIF  THU 20 NOV 2025 22:21:23  ** FCMN                         ** GENERATED CODE                                   PAGE 01537
 58650  
 58651  int_4 _fcmn (int_4 _p_ ndata_, real_4 _p_ xdata_, real_4 _p_ ydata_, real_4 _p_ sddata_, int_4 _p_ nord_, int_4 _p_ 
 58652  nbkpt_, real_4 _p_ bkptin_, int_4 _p_ nconst_, real_4 _p_ xconst_, real_4 _p_ yconst_, int_4 _p_ nderiv_, int_4 _p_ 
 58653  mode_, real_4 _p_ coeff_, real_4 _p_ bf_, real_4 _p_ xtemp_, real_4 _p_ ptemp_, real_4 _p_ bkpt_, real_4 _p_ g_, int_4 
 58654  _p_ mdg_, real_4 _p_ w_, int_4 _p_ mdw_, real_4 _p_ work_, int_4 _p_ iwork_)
 58655  { // ** body not listed **
 59037  }
 59038  
 59039  // VIF  THU 20 NOV 2025 22:21:23  ** FDJAC3                       ** FDJAC3                                           PAGE 01545
 59040  
 59041  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 59042  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 59043  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 59044  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 59045  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 59046  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 59047  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 59048  
 59049  //                                   FFFFFFF DDDDDD        J    A     CCCCC   33333
 59050  //                                   F       D     D       J   A A   C     C 3     3
 59051  //                                   F       D     D       J  A   A  C             3
 59052  //                                   FFFFF   D     D       J A     A C        33333
 59053  //                                   F       D     D J     J AAAAAAA C             3
 59054  //                                   F       D     D J     J A     A C     C 3     3
 59055  //                                   F       DDDDDD   JJJJJ  A     A  CCCCC   33333
 59056  
 59057  
 59058  // VIF  THU 20 NOV 2025 22:21:23  ** FDJAC3                       ** DIAGNOSTICS                                      PAGE 01546
 59059  
 59060  
 59061  // VIF  THU 20 NOV 2025 22:21:23  ** FDJAC3                       ** GENERATED CODE                                   PAGE 01547
 59062  
 59063  int_4 _fdjac3 (int_4 (*_fcn)(), int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 _p_ fjac_, int_4 
 59064  _p_ ldfjac_, int_4 _p_ iflag_, real_4 _p_ epsfcn_, real_4 _p_ wa_)
 59065  { // ** body not listed **
 59104  }
 59105  
 59106  // VIF  THU 20 NOV 2025 22:21:23  ** FDUMP                        ** FDUMP                                            PAGE 01548
 59107  
 59108  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 59109  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 59110  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 59111  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 59112  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 59113  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 59114  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 59115  
 59116  //                                       FFFFFFF DDDDDD  U     U M     M PPPPPP
 59117  //                                       F       D     D U     U MM   MM P     P
 59118  //                                       F       D     D U     U M M M M P     P
 59119  //                                       FFFFF   D     D U     U M  M  M PPPPPP
 59120  //                                       F       D     D U     U M     M P
 59121  //                                       F       D     D U     U M     M P
 59122  //                                       F       DDDDDD   UUUUU  M     M P
 59123  
 59124  
 59125  // VIF  THU 20 NOV 2025 22:21:23  ** FDUMP                        ** DIAGNOSTICS                                      PAGE 01549
 59126  
 59127  
 59128  // VIF  THU 20 NOV 2025 22:21:23  ** FDUMP                        ** GENERATED CODE                                   PAGE 01550
 59129  
 59130  int_4 _fdump (void)
 59131  { // ** body not listed **
 59134  }
 59135  
 59136  // VIF  THU 20 NOV 2025 22:21:23  ** FFTDOC                       ** FFTDOC                                           PAGE 01551
 59137  
 59138  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 59139  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 59140  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 59141  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 59142  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 59143  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 59144  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 59145  
 59146  //                                   FFFFFFF FFFFFFF TTTTTTT DDDDDD   OOOOO   CCCCC
 59147  //                                   F       F          T    D     D O     O C     C
 59148  //                                   F       F          T    D     D O     O C
 59149  //                                   FFFFF   FFFFF      T    D     D O     O C
 59150  //                                   F       F          T    D     D O     O C
 59151  //                                   F       F          T    D     D O     O C     C
 59152  //                                   F       F          T    DDDDDD   OOOOO   CCCCC
 59153  
 59154  
 59155  // VIF  THU 20 NOV 2025 22:21:23  ** FFTDOC                       ** DIAGNOSTICS                                      PAGE 01552
 59156  
 59157  
 59158  // VIF  THU 20 NOV 2025 22:21:23  ** FFTDOC                       ** GENERATED CODE                                   PAGE 01553
 59159  
 59160  int_4 _fftdoc (void)
 59161  { // ** body not listed **
 59164  }
 59165  
 59166  // VIF  THU 20 NOV 2025 22:21:23  ** FULMAT                       ** FULMAT                                           PAGE 01554
 59167  
 59168  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 59169  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 59170  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 59171  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 59172  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 59173  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 59174  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 59175  
 59176  //                                   FFFFFFF U     U L       M     M    A    TTTTTTT
 59177  //                                   F       U     U L       MM   MM   A A      T
 59178  //                                   F       U     U L       M M M M  A   A     T
 59179  //                                   FFFFF   U     U L       M  M  M A     A    T
 59180  //                                   F       U     U L       M     M AAAAAAA    T
 59181  //                                   F       U     U L       M     M A     A    T
 59182  //                                   F        UUUUU  LLLLLLL M     M A     A    T
 59183  
 59184  
 59185  // VIF  THU 20 NOV 2025 22:21:23  ** FULMAT                       ** DIAGNOSTICS                                      PAGE 01555
 59186  
 59187  
 59188  // VIF  THU 20 NOV 2025 22:21:23  ** FULMAT                       ** GENERATED CODE                                   PAGE 01556
 59189  
 59190  int_4 _fulmat (int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ aij_, int_4 _p_ indcat_, real_4 _p_ prgopt_, real_4 _p_ dattrv_, 
 59191  int_4 _p_ iflag_)
 59192  { // ** body not listed **
 59266  }
 59267  
 59268  // VIF  THU 20 NOV 2025 22:21:23  ** FZERO                        ** FZERO                                            PAGE 01558
 59269  
 59270  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 59271  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 59272  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 59273  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 59274  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 59275  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 59276  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 59277  
 59278  //                                       FFFFFFF ZZZZZZZ EEEEEEE RRRRRR   OOOOO
 59279  //                                       F            Z  E       R     R O     O
 59280  //                                       F           Z   E       R     R O     O
 59281  //                                       FFFFF      Z    EEEEE   RRRRRR  O     O
 59282  //                                       F         Z     E       R   R   O     O
 59283  //                                       F        *      E       R    R  O     O
 59284  //                                       F       ZZZZZZZ EEEEEEE R     R  OOOOO
 59285  
 59286  
 59287  // VIF  THU 20 NOV 2025 22:21:23  ** FZERO                        ** DIAGNOSTICS                                      PAGE 01559
 59288  
 59289  
 59290  // VIF  THU 20 NOV 2025 22:21:23  ** FZERO                        ** GENERATED CODE                                   PAGE 01560
 59291  
 59292  int_4 _fzero (real_4 (*_f)(), real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ r_, real_4 _p_ re_, real_4 _p_ ae_, int_4 _p_ 
 59293  iflag_)
 59294  { // ** body not listed **
 59428  }
 59429  
 59430  // VIF  THU 20 NOV 2025 22:21:23  ** GAMRN                        ** GAMRN                                            PAGE 01563
 59431  
 59432  //                                   RRRRRR  EEEEEEE    A    L               4
 59433  //                                   R     R E         A A   L        *   *  4    4
 59434  //                                   R     R E        A   A  L         * *   4    4
 59435  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 59436  //                                   R   R   E       AAAAAAA L         * *        4
 59437  //                                   R    R  E       A     A L        *   *       4
 59438  //                                   R     R EEEEEEE A     A LLLLLLL              4
 59439  
 59440  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 59441  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 59442  //                           F       U     U N N   N C          T       I    O     O N N   N
 59443  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 59444  //                           F       U     U N   N N C          T       I    O     O N   N N
 59445  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 59446  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 59447  
 59448  //                                        GGGGG     A    M     M RRRRRR  N     N
 59449  //                                       G     G   A A   MM   MM R     R NN    N
 59450  //                                       G        A   A  M M M M R     R N N   N
 59451  //                                       G  GGGG A     A M  M  M RRRRRR  N  N  N
 59452  //                                       G     G AAAAAAA M     M R   R   N   N N
 59453  //                                       G     G A     A M     M R    R  N    NN
 59454  //                                        GGGGG  A     A M     M R     R N     N
 59455  
 59456  
 59457  // VIF  THU 20 NOV 2025 22:21:23  ** GAMRN                        ** DIAGNOSTICS                                      PAGE 01564
 59458  
 59459  
 59460  // VIF  THU 20 NOV 2025 22:21:23  ** GAMRN                        ** GENERATED CODE                                   PAGE 01565
 59461  
 59462  real_4 _gamrn (real_4 _p_ x_)
 59463  { // ** body not listed **
 59602  }
 59603  
 59604  // VIF  THU 20 NOV 2025 22:21:23  ** GAUS8                        ** GAUS8                                            PAGE 01568
 59605  
 59606  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 59607  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 59608  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 59609  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 59610  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 59611  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 59612  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 59613  
 59614  //                                        GGGGG     A    U     U  SSSSS   88888
 59615  //                                       G     G   A A   U     U S     S 8     8
 59616  //                                       G        A   A  U     U S       8     8
 59617  //                                       G  GGGG A     A U     U  SSSSS   88888
 59618  //                                       G     G AAAAAAA U     U       S 8     8
 59619  //                                       G     G A     A U     U S     S 8     8
 59620  //                                        GGGGG  A     A  UUUUU   SSSSS   88888
 59621  
 59622  
 59623  // VIF  THU 20 NOV 2025 22:21:23  ** GAUS8                        ** DIAGNOSTICS                                      PAGE 01569
 59624  
 59625  
 59626  // VIF  THU 20 NOV 2025 22:21:23  ** GAUS8                        ** GENERATED CODE                                   PAGE 01570
 59627  
 59628  int_4 _gaus8 (real_4 (*_fun)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ ierr_)
 59629  { // ** body not listed **
 59902  }
 59903  
 59904  // VIF  THU 20 NOV 2025 22:21:23  ** H12                          ** H12                                              PAGE 01576
 59905  
 59906  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 59907  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 59908  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 59909  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 59910  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 59911  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 59912  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 59913  
 59914  //                                               H     H    1     22222
 59915  //                                               H     H   11    2     2
 59916  //                                               H     H  1 1          2
 59917  //                                               HHHHHHH    1     22222
 59918  //                                               H     H    1    2
 59919  //                                               H     H    1    2
 59920  //                                               H     H  11111  2222222
 59921  
 59922  
 59923  // VIF  THU 20 NOV 2025 22:21:23  ** H12                          ** DIAGNOSTICS                                      PAGE 01577
 59924  
 59925  
 59926  // VIF  THU 20 NOV 2025 22:21:23  ** H12                          ** GENERATED CODE                                   PAGE 01578
 59927  
 59928  int_4 _h12 (int_4 _p_ mode_, int_4 _p_ lpivot_, int_4 _p_ l1_, int_4 _p_ m_, real_4 _p_ u_, int_4 _p_ iue_, real_4 _p_ 
 59929  up_, real_4 _p_ c_, int_4 _p_ ice_, int_4 _p_ icv_, int_4 _p_ ncv_)
 59930  { // ** body not listed **
 60064  }
 60065  
 60066  // VIF  THU 20 NOV 2025 22:21:23  ** HFTI                         ** HFTI                                             PAGE 01581
 60067  
 60068  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 60069  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 60070  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 60071  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 60072  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 60073  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 60074  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 60075  
 60076  //                                            H     H FFFFFFF TTTTTTT   III
 60077  //                                            H     H F          T       I
 60078  //                                            H     H F          T       I
 60079  //                                            HHHHHHH FFFFF      T       I
 60080  //                                            H     H F          T       I
 60081  //                                            H     H F          T       I
 60082  //                                            H     H F          T      III
 60083  
 60084  
 60085  // VIF  THU 20 NOV 2025 22:21:23  ** HFTI                         ** DIAGNOSTICS                                      PAGE 01582
 60086  
 60087  
 60088  // VIF  THU 20 NOV 2025 22:21:23  ** HFTI                         ** GENERATED CODE                                   PAGE 01583
 60089  
 60090  int_4 _hfti (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 60091  real_4 _p_ tau_, int_4 _p_ krank_, real_4 _p_ rnorm_, real_4 _p_ h_, real_4 _p_ g_, int_4 _p_ ip_)
 60092  { // ** body not listed **
 60281  }
 60282  
 60283  // VIF  THU 20 NOV 2025 22:21:23  ** HKSEQ                        ** HKSEQ                                            PAGE 01587
 60284  
 60285  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 60286  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 60287  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 60288  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 60289  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 60290  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 60291  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 60292  
 60293  //                                       H     H K    K   SSSSS  EEEEEEE  QQQQQ
 60294  //                                       H     H K   K   S     S E       Q     Q
 60295  //                                       H     H K  K    S       E       Q     Q
 60296  //                                       HHHHHHH KKK      SSSSS  EEEEE   Q     Q
 60297  //                                       H     H K  K          S E       Q   Q Q
 60298  //                                       H     H K   K   S     S E       Q    Q
 60299  //                                       H     H K    K   SSSSS  EEEEEEE  QQQQ Q
 60300  
 60301  
 60302  // VIF  THU 20 NOV 2025 22:21:23  ** HKSEQ                        ** DIAGNOSTICS                                      PAGE 01588
 60303  
 60304  
 60305  // VIF  THU 20 NOV 2025 22:21:23  ** HKSEQ                        ** GENERATED CODE                                   PAGE 01589
 60306  
 60307  int_4 _hkseq (real_4 _p_ x_, int_4 _p_ m_, real_4 _p_ h_, int_4 _p_ ierr_)
 60308  { // ** body not listed **
 60567  }
 60568  
 60569  // VIF  THU 20 NOV 2025 22:21:23  ** HPPERM                       ** HPPERM                                           PAGE 01595
 60570  
 60571  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 60572  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 60573  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 60574  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 60575  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 60576  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 60577  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 60578  
 60579  //                                   H     H PPPPPP  PPPPPP  EEEEEEE RRRRRR  M     M
 60580  //                                   H     H P     P P     P E       R     R MM   MM
 60581  //                                   H     H P     P P     P E       R     R M M M M
 60582  //                                   HHHHHHH PPPPPP  PPPPPP  EEEEE   RRRRRR  M  M  M
 60583  //                                   H     H P       P       E       R   R   M     M
 60584  //                                   H     H P       P       E       R    R  M     M
 60585  //                                   H     H P       P       EEEEEEE R     R M     M
 60586  
 60587  
 60588  // VIF  THU 20 NOV 2025 22:21:23  ** HPPERM                       ** DIAGNOSTICS                                      PAGE 01596
 60589  
 60590  
 60591  // VIF  THU 20 NOV 2025 22:21:23  ** HPPERM                       ** GENERATED CODE                                   PAGE 01597
 60592  
 60593  int_4 _hpperm (char _p_ _p_ hx_, int_4 _p_ n_, int_4 _p_ iperm_, char _p_ work_, int_4 _p_ ier_)
 60594  { // ** body not listed **
 60645  }
 60646  
 60647  // VIF  THU 20 NOV 2025 22:21:23  ** HPSORT                       ** HPSORT                                           PAGE 01599
 60648  
 60649  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 60650  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 60651  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 60652  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 60653  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 60654  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 60655  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 60656  
 60657  //                                   H     H PPPPPP   SSSSS   OOOOO  RRRRRR  TTTTTTT
 60658  //                                   H     H P     P S     S O     O R     R    T
 60659  //                                   H     H P     P S       O     O R     R    T
 60660  //                                   HHHHHHH PPPPPP   SSSSS  O     O RRRRRR     T
 60661  //                                   H     H P             S O     O R   R      T
 60662  //                                   H     H P       S     S O     O R    R     T
 60663  //                                   H     H P        SSSSS   OOOOO  R     R    T
 60664  
 60665  
 60666  // VIF  THU 20 NOV 2025 22:21:23  ** HPSORT                       ** DIAGNOSTICS                                      PAGE 01600
 60667  
 60668  
 60669  // VIF  THU 20 NOV 2025 22:21:23  ** HPSORT                       ** GENERATED CODE                                   PAGE 01601
 60670  
 60671  int_4 _hpsort (char _p_ _p_ hx_, int_4 _p_ n_, int_4 _p_ strbeg_, int_4 _p_ strend_, int_4 _p_ iperm_, int_4 _p_ kflag_
 60672  , char _p_ work_, int_4 _p_ ier_)
 60673  { // ** body not listed **
 60865  }
 60866  
 60867  // VIF  THU 20 NOV 2025 22:21:23  ** HSTART                       ** HSTART                                           PAGE 01605
 60868  
 60869  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 60870  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 60871  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 60872  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 60873  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 60874  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 60875  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 60876  
 60877  //                                   H     H  SSSSS  TTTTTTT    A    RRRRRR  TTTTTTT
 60878  //                                   H     H S     S    T      A A   R     R    T
 60879  //                                   H     H S          T     A   A  R     R    T
 60880  //                                   HHHHHHH  SSSSS     T    A     A RRRRRR     T
 60881  //                                   H     H       S    T    AAAAAAA R   R      T
 60882  //                                   H     H S     S    T    A     A R    R     T
 60883  //                                   H     H  SSSSS     T    A     A R     R    T
 60884  
 60885  
 60886  // VIF  THU 20 NOV 2025 22:21:23  ** HSTART                       ** DIAGNOSTICS                                      PAGE 01606
 60887  
 60888  
 60889  // VIF  THU 20 NOV 2025 22:21:23  ** HSTART                       ** GENERATED CODE                                   PAGE 01607
 60890  
 60891  int_4 _hstart (int_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ y_, real_4 _p_ yprime_, real_4 
 60892  _p_ etol_, int_4 _p_ morder_, real_4 _p_ small_, real_4 _p_ big_, real_4 _p_ spy_, real_4 _p_ pv_, real_4 _p_ yp_, 
 60893  real_4 _p_ sf_, real_4 _p_ rpar_, int_4 _p_ ipar_, real_4 _p_ h_)
 60894  { // ** body not listed **
 61080  }
 61081  
 61082  // VIF  THU 20 NOV 2025 22:21:23  ** HSTCS1                       ** HSTCS1                                           PAGE 01611
 61083  
 61084  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 61085  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 61086  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 61087  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 61088  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 61089  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 61090  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 61091  
 61092  //                                    H     H  SSSSS  TTTTTTT  CCCCC   SSSSS     1
 61093  //                                    H     H S     S    T    C     C S     S   11
 61094  //                                    H     H S          T    C       S        1 1
 61095  //                                    HHHHHHH  SSSSS     T    C        SSSSS     1
 61096  //                                    H     H       S    T    C             S    1
 61097  //                                    H     H S     S    T    C     C S     S    1
 61098  //                                    H     H  SSSSS     T     CCCCC   SSSSS   11111
 61099  
 61100  
 61101  // VIF  THU 20 NOV 2025 22:21:23  ** HSTCS1                       ** DIAGNOSTICS                                      PAGE 01612
 61102  
 61103  
 61104  // VIF  THU 20 NOV 2025 22:21:23  ** HSTCS1                       ** GENERATED CODE                                   PAGE 01613
 61105  
 61106  int_4 _hstcs1 (int_4 _p_ intl_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 
 61107  _p_ bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_ 
 61108  elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierr1_, real_4 _p_ am_, real_4 _p_ bm_, real_4 
 61109  _p_ cm_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ snth_, real_4 _p_ rsq_, real_4 _p_ wrk_)
 61110  { // ** body not listed **
 61350  }
 61351  
 61352  // VIF  THU 20 NOV 2025 22:21:23  ** HVNRM                        ** HVNRM                                            PAGE 01618
 61353  
 61354  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 61355  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 61356  //                           F       U     U N N   N C          T       I    O     O N N   N
 61357  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 61358  //                           F       U     U N   N N C          T       I    O     O N   N N
 61359  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 61360  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 61361  
 61362  //                                       H     H V     V N     N RRRRRR  M     M
 61363  //                                       H     H V     V NN    N R     R MM   MM
 61364  //                                       H     H V     V N N   N R     R M M M M
 61365  //                                       HHHHHHH V     V N  N  N RRRRRR  M  M  M
 61366  //                                       H     H  V   V  N   N N R   R   M     M
 61367  //                                       H     H   V V   N    NN R    R  M     M
 61368  //                                       H     H    V    N     N R     R M     M
 61369  
 61370  
 61371  // VIF  THU 20 NOV 2025 22:21:23  ** HVNRM                        ** DIAGNOSTICS                                      PAGE 01619
 61372  
 61373  
 61374  // VIF  THU 20 NOV 2025 22:21:23  ** HVNRM                        ** GENERATED CODE                                   PAGE 01620
 61375  
 61376  real_4 _hvnrm (real_4 _p_ v_, int_4 _p_ ncomp_)
 61377  { // ** body not listed **
 61386  }
 61387  
 61388  
 61389  // VIF  THU 20 NOV 2025 22:21:23  ** HWSCS1                       ** HWSCS1                                           PAGE 01621
 61390  
 61391  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 61392  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 61393  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 61394  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 61395  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 61396  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 61397  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 61398  
 61399  //                                    H     H W     W  SSSSS   CCCCC   SSSSS     1
 61400  //                                    H     H W     W S     S C     C S     S   11
 61401  //                                    H     H W     W S       C       S        1 1
 61402  //                                    HHHHHHH W  W  W  SSSSS  C        SSSSS     1
 61403  //                                    H     H W  W  W       S C             S    1
 61404  //                                    H     H W  W  W S     S C     C S     S    1
 61405  //                                    H     H  WW WW   SSSSS   CCCCC   SSSSS   11111
 61406  
 61407  
 61408  // VIF  THU 20 NOV 2025 22:21:23  ** HWSCS1                       ** DIAGNOSTICS                                      PAGE 01622
 61409  
 61410  
 61411  // VIF  THU 20 NOV 2025 22:21:23  ** HWSCS1                       ** GENERATED CODE                                   PAGE 01623
 61412  
 61413  int_4 _hwscs1 (int_4 _p_ intl_, real_4 _p_ ts_, real_4 _p_ tf_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bdts_, 
 61414  real_4 _p_ bdtf_, real_4 _p_ rs_, real_4 _p_ rf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdrs_, real_4 _p_ bdrf_, 
 61415  real_4 _p_ elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, real_4 _p_ w_, real_4 _p_ s_, real_4 _p_ an_, 
 61416  real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ r_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ sint_, real_4 
 61417  _p_ bmh_)
 61418  { // ** body not listed **
 61928  }
 61929  
 61930  // VIF  THU 20 NOV 2025 22:21:23  ** HWSSS1                       ** HWSSS1                                           PAGE 01633
 61931  
 61932  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 61933  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 61934  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 61935  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 61936  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 61937  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 61938  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 61939  
 61940  //                                    H     H W     W  SSSSS   SSSSS   SSSSS     1
 61941  //                                    H     H W     W S     S S     S S     S   11
 61942  //                                    H     H W     W S       S       S        1 1
 61943  //                                    HHHHHHH W  W  W  SSSSS   SSSSS   SSSSS     1
 61944  //                                    H     H W  W  W       S       S       S    1
 61945  //                                    H     H W  W  W S     S S     S S     S    1
 61946  //                                    H     H  WW WW   SSSSS   SSSSS   SSSSS   11111
 61947  
 61948  
 61949  // VIF  THU 20 NOV 2025 22:21:23  ** HWSSS1                       ** DIAGNOSTICS                                      PAGE 01634
 61950  
 61951  
 61952  // VIF  THU 20 NOV 2025 22:21:23  ** HWSSS1                       ** GENERATED CODE                                   PAGE 01635
 61953  
 61954  int_4 _hwsss1 (real_4 _p_ ts_, real_4 _p_ tf_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bdts_, real_4 _p_ bdtf_, 
 61955  real_4 _p_ ps_, real_4 _p_ pf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdps_, real_4 _p_ bdpf_, real_4 _p_ elmbda_
 61956  , real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ sn_, 
 61957  real_4 _p_ ss_, real_4 _p_ sint_, real_4 _p_ d_)
 61958  { // ** body not listed **
 62619  }
 62620  
 62621  // VIF  THU 20 NOV 2025 22:21:23  ** I1MERG                       ** I1MERG                                           PAGE 01648
 62622  
 62623  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 62624  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 62625  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 62626  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 62627  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 62628  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 62629  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 62630  
 62631  //                                     III      1    M     M EEEEEEE RRRRRR   GGGGG
 62632  //                                      I      11    MM   MM E       R     R G     G
 62633  //                                      I     1 1    M M M M E       R     R G
 62634  //                                      I       1    M  M  M EEEEE   RRRRRR  G  GGGG
 62635  //                                      I       1    M     M E       R   R   G     G
 62636  //                                      I       1    M     M E       R    R  G     G
 62637  //                                     III    11111  M     M EEEEEEE R     R  GGGGG
 62638  
 62639  
 62640  // VIF  THU 20 NOV 2025 22:21:23  ** I1MERG                       ** DIAGNOSTICS                                      PAGE 01649
 62641  
 62642  
 62643  // VIF  THU 20 NOV 2025 22:21:23  ** I1MERG                       ** GENERATED CODE                                   PAGE 01650
 62644  
 62645  int_4 _i1merg (real_4 _p_ icos_, int_4 _p_ i1_, int_4 _p_ m1_, int_4 _p_ i2_, int_4 _p_ m2_, int_4 _p_ i3_)
 62646  { // ** body not listed **
 62685  }
 62686  
 62687  // VIF  THU 20 NOV 2025 22:21:23  ** IDLOC                        ** IDLOC                                            PAGE 01651
 62688  
 62689  //                         III   N     N TTTTTTT EEEEEEE  GGGGG  EEEEEEE RRRRRR          4
 62690  //                          I    NN    N    T    E       G     G E       R     R  *   *  4    4
 62691  //                          I    N N   N    T    E       G       E       R     R   * *   4    4
 62692  //                          I    N  N  N    T    EEEEE   G  GGGG EEEEE   RRRRRR  ******* 4444444
 62693  //                          I    N   N N    T    E       G     G E       R   R     * *        4
 62694  //                          I    N    NN    T    E       G     G E       R    R   *   *       4
 62695  //                         III   N     N    T    EEEEEEE  GGGGG  EEEEEEE R     R              4
 62696  
 62697  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 62698  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 62699  //                           F       U     U N N   N C          T       I    O     O N N   N
 62700  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 62701  //                           F       U     U N   N N C          T       I    O     O N   N N
 62702  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 62703  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 62704  
 62705  //                                         III   DDDDDD  L        OOOOO   CCCCC
 62706  //                                          I    D     D L       O     O C     C
 62707  //                                          I    D     D L       O     O C
 62708  //                                          I    D     D L       O     O C
 62709  //                                          I    D     D L       O     O C
 62710  //                                          I    D     D L       O     O C     C
 62711  //                                         III   DDDDDD  LLLLLLL  OOOOO   CCCCC
 62712  
 62713  
 62714  // VIF  THU 20 NOV 2025 22:21:23  ** IDLOC                        ** DIAGNOSTICS                                      PAGE 01652
 62715  
 62716  
 62717  // VIF  THU 20 NOV 2025 22:21:23  ** IDLOC                        ** GENERATED CODE                                   PAGE 01653
 62718  
 62719  int_4 _idloc (int_4 _p_ loc_, real_8 _p_ sx_, int_4 _p_ ix_)
 62720  { // ** body not listed **
 62753  }
 62754  
 62755  // VIF  THU 20 NOV 2025 22:21:23  ** INDXA                        ** INDXA                                            PAGE 01654
 62756  
 62757  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 62758  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 62759  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 62760  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 62761  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 62762  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 62763  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 62764  
 62765  //                                         III   N     N DDDDDD  X     X    A
 62766  //                                          I    NN    N D     D  X   X    A A
 62767  //                                          I    N N   N D     D   X X    A   A
 62768  //                                          I    N  N  N D     D    X    A     A
 62769  //                                          I    N   N N D     D   X X   AAAAAAA
 62770  //                                          I    N    NN D     D  X   X  A     A
 62771  //                                         III   N     N DDDDDD  X     X A     A
 62772  
 62773  
 62774  // VIF  THU 20 NOV 2025 22:21:23  ** INDXA                        ** DIAGNOSTICS                                      PAGE 01655
 62775  
 62776  
 62777  // VIF  THU 20 NOV 2025 22:21:23  ** INDXA                        ** GENERATED CODE                                   PAGE 01656
 62778  
 62779  int_4 _indxa (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idxa_, int_4 _p_ na_)
 62780  { // ** body not listed **
 62797  }
 62798  
 62799  // VIF  THU 20 NOV 2025 22:21:23  ** INDXB                        ** INDXB                                            PAGE 01657
 62800  
 62801  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 62802  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 62803  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 62804  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 62805  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 62806  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 62807  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 62808  
 62809  //                                         III   N     N DDDDDD  X     X BBBBBB
 62810  //                                          I    NN    N D     D  X   X  B     B
 62811  //                                          I    N N   N D     D   X X   B     B
 62812  //                                          I    N  N  N D     D    X    BBBBBB
 62813  //                                          I    N   N N D     D   X X   B     B
 62814  //                                          I    N    NN D     D  X   X  B     B
 62815  //                                         III   N     N DDDDDD  X     X BBBBBB
 62816  
 62817  
 62818  // VIF  THU 20 NOV 2025 22:21:23  ** INDXB                        ** DIAGNOSTICS                                      PAGE 01658
 62819  
 62820  
 62821  // VIF  THU 20 NOV 2025 22:21:23  ** INDXB                        ** GENERATED CODE                                   PAGE 01659
 62822  
 62823  int_4 _indxb (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idx_, int_4 _p_ idp_)
 62824  { // ** body not listed **
 62884  }
 62885  
 62886  // VIF  THU 20 NOV 2025 22:21:23  ** INDXC                        ** INDXC                                            PAGE 01661
 62887  
 62888  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 62889  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 62890  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 62891  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 62892  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 62893  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 62894  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 62895  
 62896  //                                         III   N     N DDDDDD  X     X  CCCCC
 62897  //                                          I    NN    N D     D  X   X  C     C
 62898  //                                          I    N N   N D     D   X X   C
 62899  //                                          I    N  N  N D     D    X    C
 62900  //                                          I    N   N N D     D   X X   C
 62901  //                                          I    N    NN D     D  X   X  C     C
 62902  //                                         III   N     N DDDDDD  X     X  CCCCC
 62903  
 62904  
 62905  // VIF  THU 20 NOV 2025 22:21:23  ** INDXC                        ** DIAGNOSTICS                                      PAGE 01662
 62906  
 62907  
 62908  // VIF  THU 20 NOV 2025 22:21:23  ** INDXC                        ** GENERATED CODE                                   PAGE 01663
 62909  
 62910  int_4 _indxc (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idxc_, int_4 _p_ nc_)
 62911  { // ** body not listed **
 62928  }
 62929  
 62930  // VIF  THU 20 NOV 2025 22:21:23  ** INXCA                        ** INXCA                                            PAGE 01664
 62931  
 62932  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 62933  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 62934  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 62935  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 62936  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 62937  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 62938  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 62939  
 62940  //                                         III   N     N X     X  CCCCC     A
 62941  //                                          I    NN    N  X   X  C     C   A A
 62942  //                                          I    N N   N   X X   C        A   A
 62943  //                                          I    N  N  N    X    C       A     A
 62944  //                                          I    N   N N   X X   C       AAAAAAA
 62945  //                                          I    N    NN  X   X  C     C A     A
 62946  //                                         III   N     N X     X  CCCCC  A     A
 62947  
 62948  
 62949  // VIF  THU 20 NOV 2025 22:21:23  ** INXCA                        ** DIAGNOSTICS                                      PAGE 01665
 62950  
 62951  
 62952  // VIF  THU 20 NOV 2025 22:21:23  ** INXCA                        ** GENERATED CODE                                   PAGE 01666
 62953  
 62954  int_4 _inxca (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idxa_, int_4 _p_ na_)
 62955  { // ** body not listed **
 62972  }
 62973  
 62974  // VIF  THU 20 NOV 2025 22:21:23  ** INXCB                        ** INXCB                                            PAGE 01667
 62975  
 62976  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 62977  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 62978  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 62979  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 62980  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 62981  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 62982  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 62983  
 62984  //                                         III   N     N X     X  CCCCC  BBBBBB
 62985  //                                          I    NN    N  X   X  C     C B     B
 62986  //                                          I    N N   N   X X   C       B     B
 62987  //                                          I    N  N  N    X    C       BBBBBB
 62988  //                                          I    N   N N   X X   C       B     B
 62989  //                                          I    N    NN  X   X  C     C B     B
 62990  //                                         III   N     N X     X  CCCCC  BBBBBB
 62991  
 62992  
 62993  // VIF  THU 20 NOV 2025 22:21:23  ** INXCB                        ** DIAGNOSTICS                                      PAGE 01668
 62994  
 62995  
 62996  // VIF  THU 20 NOV 2025 22:21:23  ** INXCB                        ** GENERATED CODE                                   PAGE 01669
 62997  
 62998  int_4 _inxcb (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idx_, int_4 _p_ idp_)
 62999  { // ** body not listed **
 63058  }
 63059  
 63060  // VIF  THU 20 NOV 2025 22:21:23  ** INXCC                        ** INXCC                                            PAGE 01671
 63061  
 63062  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 63063  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 63064  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 63065  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 63066  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 63067  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 63068  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 63069  
 63070  //                                         III   N     N X     X  CCCCC   CCCCC
 63071  //                                          I    NN    N  X   X  C     C C     C
 63072  //                                          I    N N   N   X X   C       C
 63073  //                                          I    N  N  N    X    C       C
 63074  //                                          I    N   N N   X X   C       C
 63075  //                                          I    N    NN  X   X  C     C C     C
 63076  //                                         III   N     N X     X  CCCCC   CCCCC
 63077  
 63078  
 63079  // VIF  THU 20 NOV 2025 22:21:23  ** INXCC                        ** DIAGNOSTICS                                      PAGE 01672
 63080  
 63081  
 63082  // VIF  THU 20 NOV 2025 22:21:23  ** INXCC                        ** GENERATED CODE                                   PAGE 01673
 63083  
 63084  int_4 _inxcc (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idxc_, int_4 _p_ nc_)
 63085  { // ** body not listed **
 63102  }
 63103  
 63104  // VIF  THU 20 NOV 2025 22:21:23  ** IPLOC                        ** IPLOC                                            PAGE 01674
 63105  
 63106  //                         III   N     N TTTTTTT EEEEEEE  GGGGG  EEEEEEE RRRRRR          4
 63107  //                          I    NN    N    T    E       G     G E       R     R  *   *  4    4
 63108  //                          I    N N   N    T    E       G       E       R     R   * *   4    4
 63109  //                          I    N  N  N    T    EEEEE   G  GGGG EEEEE   RRRRRR  ******* 4444444
 63110  //                          I    N   N N    T    E       G     G E       R   R     * *        4
 63111  //                          I    N    NN    T    E       G     G E       R    R   *   *       4
 63112  //                         III   N     N    T    EEEEEEE  GGGGG  EEEEEEE R     R              4
 63113  
 63114  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 63115  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 63116  //                           F       U     U N N   N C          T       I    O     O N N   N
 63117  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 63118  //                           F       U     U N   N N C          T       I    O     O N   N N
 63119  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 63120  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 63121  
 63122  //                                         III   PPPPPP  L        OOOOO   CCCCC
 63123  //                                          I    P     P L       O     O C     C
 63124  //                                          I    P     P L       O     O C
 63125  //                                          I    PPPPPP  L       O     O C
 63126  //                                          I    P       L       O     O C
 63127  //                                          I    P       L       O     O C     C
 63128  //                                         III   P       LLLLLLL  OOOOO   CCCCC
 63129  
 63130  
 63131  // VIF  THU 20 NOV 2025 22:21:23  ** IPLOC                        ** DIAGNOSTICS                                      PAGE 01675
 63132  
 63133  
 63134  // VIF  THU 20 NOV 2025 22:21:23  ** IPLOC                        ** GENERATED CODE                                   PAGE 01676
 63135  
 63136  int_4 _iploc (int_4 _p_ loc_, real_4 _p_ sx_, int_4 _p_ ix_)
 63137  { // ** body not listed **
 63170  }
 63171  
 63172  // VIF  THU 20 NOV 2025 22:21:23  ** IPPERM                       ** IPPERM                                           PAGE 01677
 63173  
 63174  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 63175  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 63176  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 63177  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 63178  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 63179  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 63180  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 63181  
 63182  //                                     III   PPPPPP  PPPPPP  EEEEEEE RRRRRR  M     M
 63183  //                                      I    P     P P     P E       R     R MM   MM
 63184  //                                      I    P     P P     P E       R     R M M M M
 63185  //                                      I    PPPPPP  PPPPPP  EEEEE   RRRRRR  M  M  M
 63186  //                                      I    P       P       E       R   R   M     M
 63187  //                                      I    P       P       E       R    R  M     M
 63188  //                                     III   P       P       EEEEEEE R     R M     M
 63189  
 63190  
 63191  // VIF  THU 20 NOV 2025 22:21:23  ** IPPERM                       ** DIAGNOSTICS                                      PAGE 01678
 63192  
 63193  
 63194  // VIF  THU 20 NOV 2025 22:21:23  ** IPPERM                       ** GENERATED CODE                                   PAGE 01679
 63195  
 63196  int_4 _ipperm (int_4 _p_ ix_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ ier_)
 63197  { // ** body not listed **
 63241  }
 63242  
 63243  // VIF  THU 20 NOV 2025 22:21:23  ** IPSORT                       ** IPSORT                                           PAGE 01680
 63244  
 63245  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 63246  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 63247  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 63248  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 63249  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 63250  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 63251  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 63252  
 63253  //                                     III   PPPPPP   SSSSS   OOOOO  RRRRRR  TTTTTTT
 63254  //                                      I    P     P S     S O     O R     R    T
 63255  //                                      I    P     P S       O     O R     R    T
 63256  //                                      I    PPPPPP   SSSSS  O     O RRRRRR     T
 63257  //                                      I    P             S O     O R   R      T
 63258  //                                      I    P       S     S O     O R    R     T
 63259  //                                     III   P        SSSSS   OOOOO  R     R    T
 63260  
 63261  
 63262  // VIF  THU 20 NOV 2025 22:21:23  ** IPSORT                       ** DIAGNOSTICS                                      PAGE 01681
 63263  
 63264  
 63265  // VIF  THU 20 NOV 2025 22:21:23  ** IPSORT                       ** GENERATED CODE                                   PAGE 01682
 63266  
 63267  int_4 _ipsort (int_4 _p_ ix_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ kflag_, int_4 _p_ ier_)
 63268  { // ** body not listed **
 63432  }
 63433  
 63434  // VIF  THU 20 NOV 2025 22:21:23  ** ISORT                        ** ISORT                                            PAGE 01686
 63435  
 63436  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 63437  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 63438  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 63439  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 63440  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 63441  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 63442  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 63443  
 63444  //                                         III    SSSSS   OOOOO  RRRRRR  TTTTTTT
 63445  //                                          I    S     S O     O R     R    T
 63446  //                                          I    S       O     O R     R    T
 63447  //                                          I     SSSSS  O     O RRRRRR     T
 63448  //                                          I          S O     O R   R      T
 63449  //                                          I    S     S O     O R    R     T
 63450  //                                         III    SSSSS   OOOOO  R     R    T
 63451  
 63452  
 63453  // VIF  THU 20 NOV 2025 22:21:23  ** ISORT                        ** DIAGNOSTICS                                      PAGE 01687
 63454  
 63455  
 63456  // VIF  THU 20 NOV 2025 22:21:23  ** ISORT                        ** GENERATED CODE                                   PAGE 01688
 63457  
 63458  int_4 _isort (int_4 _p_ ix_, int_4 _p_ iy_, int_4 _p_ n_, int_4 _p_ kflag_)
 63459  { // ** body not listed **
 63710  }
 63711  
 63712  // VIF  THU 20 NOV 2025 22:21:23  ** JAIRY                        ** JAIRY                                            PAGE 01693
 63713  
 63714  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 63715  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 63716  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 63717  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 63718  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 63719  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 63720  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 63721  
 63722  //                                             J    A      III   RRRRRR  Y     Y
 63723  //                                             J   A A      I    R     R  Y   Y
 63724  //                                             J  A   A     I    R     R   Y Y
 63725  //                                             J A     A    I    RRRRRR     Y
 63726  //                                       J     J AAAAAAA    I    R   R      Y
 63727  //                                       J     J A     A    I    R    R     Y
 63728  //                                        JJJJJ  A     A   III   R     R    Y
 63729  
 63730  
 63731  // VIF  THU 20 NOV 2025 22:21:23  ** JAIRY                        ** DIAGNOSTICS                                      PAGE 01694
 63732  
 63733  
 63734  // VIF  THU 20 NOV 2025 22:21:23  ** JAIRY                        ** GENERATED CODE                                   PAGE 01695
 63735  
 63736  int_4 _jairy (real_4 _p_ x_, real_4 _p_ rx_, real_4 _p_ c_, real_4 _p_ ai_, real_4 _p_ dai_)
 63737  { // ** body not listed **
 65660  }
 65661  
 65662  // VIF  THU 20 NOV 2025 22:21:23  ** LLSIA                        ** LLSIA                                            PAGE 01733
 65663  
 65664  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 65665  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 65666  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 65667  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 65668  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 65669  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 65670  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 65671  
 65672  //                                       L       L        SSSSS    III      A
 65673  //                                       L       L       S     S    I      A A
 65674  //                                       L       L       S          I     A   A
 65675  //                                       L       L        SSSSS     I    A     A
 65676  //                                       L       L             S    I    AAAAAAA
 65677  //                                       L       L       S     S    I    A     A
 65678  //                                       LLLLLLL LLLLLLL  SSSSS    III   A     A
 65679  
 65680  
 65681  // VIF  THU 20 NOV 2025 22:21:23  ** LLSIA                        ** DIAGNOSTICS                                      PAGE 01734
 65682  
 65683  
 65684  // VIF  THU 20 NOV 2025 22:21:23  ** LLSIA                        ** GENERATED CODE                                   PAGE 01735
 65685  
 65686  int_4 _llsia (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 65687  real_4 _p_ re_, real_4 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, 
 65688  real_4 _p_ rnorm_, real_4 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_)
 65689  { // ** body not listed **
 65948  }
 65949  
 65950  // VIF  THU 20 NOV 2025 22:21:23  ** LPDP                         ** LPDP                                             PAGE 01741
 65951  
 65952  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 65953  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 65954  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 65955  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 65956  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 65957  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 65958  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 65959  
 65960  //                                           L       PPPPPP  DDDDDD  PPPPPP
 65961  //                                           L       P     P D     D P     P
 65962  //                                           L       P     P D     D P     P
 65963  //                                           L       PPPPPP  D     D PPPPPP
 65964  //                                           L       P       D     D P
 65965  //                                           L       P       D     D P
 65966  //                                           LLLLLLL P       DDDDDD  P
 65967  
 65968  
 65969  // VIF  THU 20 NOV 2025 22:21:23  ** LPDP                         ** DIAGNOSTICS                                      PAGE 01742
 65970  
 65971  
 65972  // VIF  THU 20 NOV 2025 22:21:23  ** LPDP                         ** GENERATED CODE                                   PAGE 01743
 65973  
 65974  int_4 _lpdp (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n1_, int_4 _p_ n2_, real_4 _p_ prgopt_, real_4 _p_ 
 65975  x_, real_4 _p_ wnorm_, int_4 _p_ mode_, real_4 _p_ ws_, int_4 _p_ is_)
 65976  { // ** body not listed **
 66143  }
 66144  
 66145  // VIF  THU 20 NOV 2025 22:21:23  ** LSEI                         ** LSEI                                             PAGE 01747
 66146  
 66147  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 66148  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 66149  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 66150  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 66151  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 66152  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 66153  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 66154  
 66155  //                                            L        SSSSS  EEEEEEE   III
 66156  //                                            L       S     S E          I
 66157  //                                            L       S       E          I
 66158  //                                            L        SSSSS  EEEEE      I
 66159  //                                            L             S E          I
 66160  //                                            L       S     S E          I
 66161  //                                            LLLLLLL  SSSSS  EEEEEEE   III
 66162  
 66163  
 66164  // VIF  THU 20 NOV 2025 22:21:23  ** LSEI                         ** DIAGNOSTICS                                      PAGE 01748
 66165  
 66166  
 66167  // VIF  THU 20 NOV 2025 22:21:23  ** LSEI                         ** GENERATED CODE                                   PAGE 01749
 66168  
 66169  int_4 _lsei (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ me_, int_4 _p_ ma_, int_4 _p_ mg_, int_4 _p_ n_, real_4 _p_ 
 66170  prgopt_, real_4 _p_ x_, real_4 _p_ rnorme_, real_4 _p_ rnorml_, int_4 _p_ mode_, real_4 _p_ ws_, int_4 _p_ ip_)
 66171  { // ** body not listed **
 66702  }
 66703  
 66704  // VIF  THU 20 NOV 2025 22:21:23  ** LSI                          ** LSI                                              PAGE 01760
 66705  
 66706  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 66707  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 66708  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 66709  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 66710  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 66711  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 66712  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 66713  
 66714  //                                                L        SSSSS    III
 66715  //                                                L       S     S    I
 66716  //                                                L       S          I
 66717  //                                                L        SSSSS     I
 66718  //                                                L             S    I
 66719  //                                                L       S     S    I
 66720  //                                                LLLLLLL  SSSSS    III
 66721  
 66722  
 66723  // VIF  THU 20 NOV 2025 22:21:23  ** LSI                          ** DIAGNOSTICS                                      PAGE 01761
 66724  
 66725  
 66726  // VIF  THU 20 NOV 2025 22:21:23  ** LSI                          ** GENERATED CODE                                   PAGE 01762
 66727  
 66728  int_4 _lsi (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ ma_, int_4 _p_ mg_, int_4 _p_ n_, real_4 _p_ prgopt_, real_4 _p_ 
 66729  x_, real_4 _p_ rnorm_, int_4 _p_ mode_, real_4 _p_ ws_, int_4 _p_ ip_)
 66730  { // ** body not listed **
 66956  }
 66957  
 66958  // VIF  THU 20 NOV 2025 22:21:23  ** LSSODS                       ** LSSODS                                           PAGE 01767
 66959  
 66960  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 66961  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 66962  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 66963  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 66964  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 66965  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 66966  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 66967  
 66968  //                                   L        SSSSS   SSSSS   OOOOO  DDDDDD   SSSSS
 66969  //                                   L       S     S S     S O     O D     D S     S
 66970  //                                   L       S       S       O     O D     D S
 66971  //                                   L        SSSSS   SSSSS  O     O D     D  SSSSS
 66972  //                                   L             S       S O     O D     D       S
 66973  //                                   L       S     S S     S O     O D     D S     S
 66974  //                                   LLLLLLL  SSSSS   SSSSS   OOOOO  DDDDDD   SSSSS
 66975  
 66976  
 66977  // VIF  THU 20 NOV 2025 22:21:23  ** LSSODS                       ** DIAGNOSTICS                                      PAGE 01768
 66978  
 66979  
 66980  // VIF  THU 20 NOV 2025 22:21:23  ** LSSODS                       ** GENERATED CODE                                   PAGE 01769
 66981  
 66982  int_4 _lssods (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ nrda_, int_4 _p_ 
 66983  iflag_, int_4 _p_ irank_, int_4 _p_ iscale_, real_4 _p_ q_, real_4 _p_ diag_, int_4 _p_ kpivot_, int_4 _p_ iter_, 
 66984  real_4 _p_ resnrm_, real_4 _p_ xnorm_, real_4 _p_ z_, real_4 _p_ r_, real_4 _p_ div_, real_4 _p_ td_, real_4 _p_ 
 66985  scales_)
 66986  { // ** body not listed **
 67161  }
 67162  
 67163  // VIF  THU 20 NOV 2025 22:21:23  ** LSSUDS                       ** LSSUDS                                           PAGE 01773
 67164  
 67165  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 67166  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 67167  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 67168  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 67169  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 67170  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 67171  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 67172  
 67173  //                                   L        SSSSS   SSSSS  U     U DDDDDD   SSSSS
 67174  //                                   L       S     S S     S U     U D     D S     S
 67175  //                                   L       S       S       U     U D     D S
 67176  //                                   L        SSSSS   SSSSS  U     U D     D  SSSSS
 67177  //                                   L             S       S U     U D     D       S
 67178  //                                   L       S     S S     S U     U D     D S     S
 67179  //                                   LLLLLLL  SSSSS   SSSSS   UUUUU  DDDDDD   SSSSS
 67180  
 67181  
 67182  // VIF  THU 20 NOV 2025 22:21:23  ** LSSUDS                       ** DIAGNOSTICS                                      PAGE 01774
 67183  
 67184  
 67185  // VIF  THU 20 NOV 2025 22:21:23  ** LSSUDS                       ** GENERATED CODE                                   PAGE 01775
 67186  
 67187  int_4 _lssuds (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ b_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nrda_, real_4 _p_ u_, 
 67188  int_4 _p_ nrdu_, int_4 _p_ iflag_, int_4 _p_ mlso_, int_4 _p_ irank_, int_4 _p_ iscale_, real_4 _p_ q_, real_4 _p_ 
 67189  diag_, int_4 _p_ kpivot_, real_4 _p_ s_, real_4 _p_ div_, real_4 _p_ td_, int_4 _p_ isflg_, real_4 _p_ scales_)
 67190  { // ** body not listed **
 67367  }
 67368  
 67369  // VIF  THU 20 NOV 2025 22:21:23  ** MACON                        ** MACON                                            PAGE 01779
 67370  
 67371  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 67372  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 67373  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 67374  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 67375  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 67376  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 67377  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 67378  
 67379  //                                       M     M    A     CCCCC   OOOOO  N     N
 67380  //                                       MM   MM   A A   C     C O     O NN    N
 67381  //                                       M M M M  A   A  C       O     O N N   N
 67382  //                                       M  M  M A     A C       O     O N  N  N
 67383  //                                       M     M AAAAAAA C       O     O N   N N
 67384  //                                       M     M A     A C     C O     O N    NN
 67385  //                                       M     M A     A  CCCCC   OOOOO  N     N
 67386  
 67387  
 67388  // VIF  THU 20 NOV 2025 22:21:23  ** MACON                        ** DIAGNOSTICS                                      PAGE 01780
 67389  
 67390  
 67391  // VIF  THU 20 NOV 2025 22:21:23  ** MACON                        ** GENERATED CODE                                   PAGE 01781
 67392  
 67393  int_4 _macon (void)
 67394  { // ** body not listed **
 67410  }
 67411  
 67412  // VIF  THU 20 NOV 2025 22:21:23  ** MGSBV                        ** MGSBV                                            PAGE 01782
 67413  
 67414  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 67415  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 67416  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 67417  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 67418  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 67419  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 67420  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 67421  
 67422  //                                       M     M  GGGGG   SSSSS  BBBBBB  V     V
 67423  //                                       MM   MM G     G S     S B     B V     V
 67424  //                                       M M M M G       S       B     B V     V
 67425  //                                       M  M  M G  GGGG  SSSSS  BBBBBB  V     V
 67426  //                                       M     M G     G       S B     B  V   V
 67427  //                                       M     M G     G S     S B     B   V V
 67428  //                                       M     M  GGGGG   SSSSS  BBBBBB     V
 67429  
 67430  
 67431  // VIF  THU 20 NOV 2025 22:21:23  ** MGSBV                        ** DIAGNOSTICS                                      PAGE 01783
 67432  
 67433  
 67434  // VIF  THU 20 NOV 2025 22:21:23  ** MGSBV                        ** GENERATED CODE                                   PAGE 01784
 67435  
 67436  int_4 _mgsbv (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ ia_, int_4 _p_ niv_, int_4 _p_ iflag_, real_4 _p_ s_
 67437  , real_4 _p_ p_, int_4 _p_ ip_, int_4 _p_ inhomo_, real_4 _p_ v_, real_4 _p_ w_, real_4 _p_ wcnd_)
 67438  { // ** body not listed **
 67686  }
 67687  
 67688  // VIF  THU 20 NOV 2025 22:21:23  ** MINSO4                       ** MINSO4                                           PAGE 01789
 67689  
 67690  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 67691  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 67692  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 67693  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 67694  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 67695  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 67696  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 67697  
 67698  //                                   M     M   III   N     N  SSSSS   OOOOO  4
 67699  //                                   MM   MM    I    NN    N S     S O     O 4    4
 67700  //                                   M M M M    I    N N   N S       O     O 4    4
 67701  //                                   M  M  M    I    N  N  N  SSSSS  O     O 4444444
 67702  //                                   M     M    I    N   N N       S O     O      4
 67703  //                                   M     M    I    N    NN S     S O     O      4
 67704  //                                   M     M   III   N     N  SSSSS   OOOOO       4
 67705  
 67706  
 67707  // VIF  THU 20 NOV 2025 22:21:23  ** MINSO4                       ** DIAGNOSTICS                                      PAGE 01790
 67708  
 67709  
 67710  // VIF  THU 20 NOV 2025 22:21:23  ** MINSO4                       ** GENERATED CODE                                   PAGE 01791
 67711  
 67712  int_4 _minso4 (real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ zn_, real_4 _p_ zm_, real_4 _p_ pertb_)
 67713  { // ** body not listed **
 67738  }
 67739  
 67740  // VIF  THU 20 NOV 2025 22:21:23  ** MINSOL                       ** MINSOL                                           PAGE 01792
 67741  
 67742  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 67743  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 67744  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 67745  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 67746  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 67747  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 67748  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 67749  
 67750  //                                   M     M   III   N     N  SSSSS   OOOOO  L
 67751  //                                   MM   MM    I    NN    N S     S O     O L
 67752  //                                   M M M M    I    N N   N S       O     O L
 67753  //                                   M  M  M    I    N  N  N  SSSSS  O     O L
 67754  //                                   M     M    I    N   N N       S O     O L
 67755  //                                   M     M    I    N    NN S     S O     O L
 67756  //                                   M     M   III   N     N  SSSSS   OOOOO  LLLLLLL
 67757  
 67758  
 67759  // VIF  THU 20 NOV 2025 22:21:23  ** MINSOL                       ** DIAGNOSTICS                                      PAGE 01793
 67760  
 67761  
 67762  // VIF  THU 20 NOV 2025 22:21:23  ** MINSOL                       ** GENERATED CODE                                   PAGE 01794
 67763  
 67764  int_4 _minsol (real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ zn_, real_4 _p_ zm_, real_4 _p_ pertb_)
 67765  { // ** body not listed **
 67790  }
 67791  
 67792  // VIF  THU 20 NOV 2025 22:21:23  ** MPADD2                       ** MPADD2                                           PAGE 01795
 67793  
 67794  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 67795  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 67796  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 67797  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 67798  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 67799  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 67800  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 67801  
 67802  //                                   M     M PPPPPP     A    DDDDDD  DDDDDD   22222
 67803  //                                   MM   MM P     P   A A   D     D D     D 2     2
 67804  //                                   M M M M P     P  A   A  D     D D     D       2
 67805  //                                   M  M  M PPPPPP  A     A D     D D     D  22222
 67806  //                                   M     M P       AAAAAAA D     D D     D 2
 67807  //                                   M     M P       A     A D     D D     D 2
 67808  //                                   M     M P       A     A DDDDDD  DDDDDD  2222222
 67809  
 67810  
 67811  // VIF  THU 20 NOV 2025 22:21:23  ** MPADD2                       ** DIAGNOSTICS                                      PAGE 01796
 67812  
 67813  
 67814  // VIF  THU 20 NOV 2025 22:21:23  ** MPADD2                       ** GENERATED CODE                                   PAGE 01797
 67815  
 67816  int_4 _mpadd2 (int_4 _p_ x_, int_4 _p_ y_, int_4 _p_ z_, int_4 _p_ y1_, int_4 _p_ trunc_)
 67817  { // ** body not listed **
 67912  }
 67913  
 67914  // VIF  THU 20 NOV 2025 22:21:23  ** MPADD3                       ** MPADD3                                           PAGE 01799
 67915  
 67916  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 67917  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 67918  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 67919  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 67920  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 67921  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 67922  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 67923  
 67924  //                                   M     M PPPPPP     A    DDDDDD  DDDDDD   33333
 67925  //                                   MM   MM P     P   A A   D     D D     D 3     3
 67926  //                                   M M M M P     P  A   A  D     D D     D       3
 67927  //                                   M  M  M PPPPPP  A     A D     D D     D  33333
 67928  //                                   M     M P       AAAAAAA D     D D     D       3
 67929  //                                   M     M P       A     A D     D D     D 3     3
 67930  //                                   M     M P       A     A DDDDDD  DDDDDD   33333
 67931  
 67932  
 67933  // VIF  THU 20 NOV 2025 22:21:23  ** MPADD3                       ** DIAGNOSTICS                                      PAGE 01800
 67934  
 67935  
 67936  // VIF  THU 20 NOV 2025 22:21:23  ** MPADD3                       ** GENERATED CODE                                   PAGE 01801
 67937  
 67938  int_4 _mpadd3 (int_4 _p_ x_, int_4 _p_ y_, int_4 _p_ s_, int_4 _p_ med_, int_4 _p_ re_)
 67939  { // ** body not listed **
 68070  }
 68071  
 68072  // VIF  THU 20 NOV 2025 22:21:23  ** MPADD                        ** MPADD                                            PAGE 01804
 68073  
 68074  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 68075  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 68076  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 68077  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 68078  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 68079  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 68080  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 68081  
 68082  //                                       M     M PPPPPP     A    DDDDDD  DDDDDD
 68083  //                                       MM   MM P     P   A A   D     D D     D
 68084  //                                       M M M M P     P  A   A  D     D D     D
 68085  //                                       M  M  M PPPPPP  A     A D     D D     D
 68086  //                                       M     M P       AAAAAAA D     D D     D
 68087  //                                       M     M P       A     A D     D D     D
 68088  //                                       M     M P       A     A DDDDDD  DDDDDD
 68089  
 68090  
 68091  // VIF  THU 20 NOV 2025 22:21:23  ** MPADD                        ** DIAGNOSTICS                                      PAGE 01805
 68092  
 68093  
 68094  // VIF  THU 20 NOV 2025 22:21:23  ** MPADD                        ** GENERATED CODE                                   PAGE 01806
 68095  
 68096  int_4 _mpadd (int_4 _p_ x_, int_4 _p_ y_, int_4 _p_ z_)
 68097  { // ** body not listed **
 68101  }
 68102  
 68103  // VIF  THU 20 NOV 2025 22:21:23  ** MPBLAS                       ** MPBLAS                                           PAGE 01807
 68104  
 68105  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 68106  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 68107  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 68108  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 68109  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 68110  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 68111  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 68112  
 68113  //                                   M     M PPPPPP  BBBBBB  L          A     SSSSS
 68114  //                                   MM   MM P     P B     B L         A A   S     S
 68115  //                                   M M M M P     P B     B L        A   A  S
 68116  //                                   M  M  M PPPPPP  BBBBBB  L       A     A  SSSSS
 68117  //                                   M     M P       B     B L       AAAAAAA       S
 68118  //                                   M     M P       B     B L       A     A S     S
 68119  //                                   M     M P       BBBBBB  LLLLLLL A     A  SSSSS
 68120  
 68121  
 68122  // VIF  THU 20 NOV 2025 22:21:23  ** MPBLAS                       ** DIAGNOSTICS                                      PAGE 01808
 68123  
 68124  
 68125  // VIF  THU 20 NOV 2025 22:21:23  ** MPBLAS                       ** GENERATED CODE                                   PAGE 01809
 68126  
 68127  int_4 _mpblas (int_4 _p_ i1_)
 68128  { // ** body not listed **
 68147  }
 68148  
 68149  // VIF  THU 20 NOV 2025 22:21:23  ** MPCDM                        ** MPCDM                                            PAGE 01810
 68150  
 68151  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 68152  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 68153  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 68154  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 68155  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 68156  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 68157  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 68158  
 68159  //                                       M     M PPPPPP   CCCCC  DDDDDD  M     M
 68160  //                                       MM   MM P     P C     C D     D MM   MM
 68161  //                                       M M M M P     P C       D     D M M M M
 68162  //                                       M  M  M PPPPPP  C       D     D M  M  M
 68163  //                                       M     M P       C       D     D M     M
 68164  //                                       M     M P       C     C D     D M     M
 68165  //                                       M     M P        CCCCC  DDDDDD  M     M
 68166  
 68167  
 68168  // VIF  THU 20 NOV 2025 22:21:23  ** MPCDM                        ** DIAGNOSTICS                                      PAGE 01811
 68169  
 68170  
 68171  // VIF  THU 20 NOV 2025 22:21:23  ** MPCDM                        ** GENERATED CODE                                   PAGE 01812
 68172  
 68173  int_4 _mpcdm (real_8 _p_ dx_, int_4 _p_ z_)
 68174  { // ** body not listed **
 68262  }
 68263  
 68264  // VIF  THU 20 NOV 2025 22:21:23  ** MPCHK                        ** MPCHK                                            PAGE 01814
 68265  
 68266  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 68267  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 68268  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 68269  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 68270  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 68271  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 68272  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 68273  
 68274  //                                        M     M PPPPPP   CCCCC  H     H K    K
 68275  //                                        MM   MM P     P C     C H     H K   K
 68276  //                                        M M M M P     P C       H     H K  K
 68277  //                                        M  M  M PPPPPP  C       HHHHHHH KKK
 68278  //                                        M     M P       C       H     H K  K
 68279  //                                        M     M P       C     C H     H K   K
 68280  //                                        M     M P        CCCCC  H     H K    K
 68281  
 68282  
 68283  // VIF  THU 20 NOV 2025 22:21:23  ** MPCHK                        ** DIAGNOSTICS                                      PAGE 01815
 68284  
 68285  
 68286  // VIF  THU 20 NOV 2025 22:21:23  ** MPCHK                        ** GENERATED CODE                                   PAGE 01816
 68287  
 68288  int_4 _mpchk (int_4 _p_ i_, int_4 _p_ j_)
 68289  { // ** body not listed **
 68573  }
 68574  
 68575  // VIF  THU 20 NOV 2025 22:21:23  ** MPCMD                        ** MPCMD                                            PAGE 01822
 68576  
 68577  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 68578  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 68579  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 68580  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 68581  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 68582  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 68583  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 68584  
 68585  //                                       M     M PPPPPP   CCCCC  M     M DDDDDD
 68586  //                                       MM   MM P     P C     C MM   MM D     D
 68587  //                                       M M M M P     P C       M M M M D     D
 68588  //                                       M  M  M PPPPPP  C       M  M  M D     D
 68589  //                                       M     M P       C       M     M D     D
 68590  //                                       M     M P       C     C M     M D     D
 68591  //                                       M     M P        CCCCC  M     M DDDDDD
 68592  
 68593  
 68594  // VIF  THU 20 NOV 2025 22:21:23  ** MPCMD                        ** DIAGNOSTICS                                      PAGE 01823
 68595  
 68596  
 68597  // VIF  THU 20 NOV 2025 22:21:23  ** MPCMD                        ** GENERATED CODE                                   PAGE 01824
 68598  
 68599  int_4 _mpcmd (int_4 _p_ x_, real_8 _p_ dz_)
 68600  { // ** body not listed **
 68652  }
 68653  
 68654  // VIF  THU 20 NOV 2025 22:21:23  ** MPDIVI                       ** MPDIVI                                           PAGE 01826
 68655  
 68656  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 68657  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 68658  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 68659  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 68660  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 68661  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 68662  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 68663  
 68664  //                                    M     M PPPPPP  DDDDDD    III   V     V   III
 68665  //                                    MM   MM P     P D     D    I    V     V    I
 68666  //                                    M M M M P     P D     D    I    V     V    I
 68667  //                                    M  M  M PPPPPP  D     D    I    V     V    I
 68668  //                                    M     M P       D     D    I     V   V     I
 68669  //                                    M     M P       D     D    I      V V      I
 68670  //                                    M     M P       DDDDDD    III      V      III
 68671  
 68672  
 68673  // VIF  THU 20 NOV 2025 22:21:23  ** MPDIVI                       ** DIAGNOSTICS                                      PAGE 01827
 68674  
 68675  
 68676  // VIF  THU 20 NOV 2025 22:21:23  ** MPDIVI                       ** GENERATED CODE                                   PAGE 01828
 68677  
 68678  int_4 _mpdivi (int_4 _p_ x_, int_4 _p_ iy_, int_4 _p_ z_)
 68679  { // ** body not listed **
 68878  }
 68879  
 68880  // VIF  THU 20 NOV 2025 22:21:23  ** MPERR                        ** MPERR                                            PAGE 01832
 68881  
 68882  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 68883  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 68884  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 68885  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 68886  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 68887  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 68888  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 68889  
 68890  //                                       M     M PPPPPP  EEEEEEE RRRRRR  RRRRRR
 68891  //                                       MM   MM P     P E       R     R R     R
 68892  //                                       M M M M P     P E       R     R R     R
 68893  //                                       M  M  M PPPPPP  EEEEE   RRRRRR  RRRRRR
 68894  //                                       M     M P       E       R   R   R   R
 68895  //                                       M     M P       E       R    R  R    R
 68896  //                                       M     M P       EEEEEEE R     R R     R
 68897  
 68898  
 68899  // VIF  THU 20 NOV 2025 22:21:23  ** MPERR                        ** DIAGNOSTICS                                      PAGE 01833
 68900  
 68901  
 68902  // VIF  THU 20 NOV 2025 22:21:23  ** MPERR                        ** GENERATED CODE                                   PAGE 01834
 68903  
 68904  int_4 _mperr (void)
 68905  { // ** body not listed **
 68912  }
 68913  
 68914  // VIF  THU 20 NOV 2025 22:21:23  ** MPMAXR                       ** MPMAXR                                           PAGE 01835
 68915  
 68916  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 68917  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 68918  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 68919  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 68920  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 68921  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 68922  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 68923  
 68924  //                                   M     M PPPPPP  M     M    A    X     X RRRRRR
 68925  //                                   MM   MM P     P MM   MM   A A    X   X  R     R
 68926  //                                   M M M M P     P M M M M  A   A    X X   R     R
 68927  //                                   M  M  M PPPPPP  M  M  M A     A    X    RRRRRR
 68928  //                                   M     M P       M     M AAAAAAA   X X   R   R
 68929  //                                   M     M P       M     M A     A  X   X  R    R
 68930  //                                   M     M P       M     M A     A X     X R     R
 68931  
 68932  
 68933  // VIF  THU 20 NOV 2025 22:21:23  ** MPMAXR                       ** DIAGNOSTICS                                      PAGE 01836
 68934  
 68935  
 68936  // VIF  THU 20 NOV 2025 22:21:23  ** MPMAXR                       ** GENERATED CODE                                   PAGE 01837
 68937  
 68938  int_4 _mpmaxr (int_4 _p_ x_)
 68939  { // ** body not listed **
 68951  }
 68952  
 68953  // VIF  THU 20 NOV 2025 22:21:23  ** MPMLP                        ** MPMLP                                            PAGE 01838
 68954  
 68955  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 68956  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 68957  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 68958  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 68959  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 68960  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 68961  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 68962  
 68963  //                                       M     M PPPPPP  M     M L       PPPPPP
 68964  //                                       MM   MM P     P MM   MM L       P     P
 68965  //                                       M M M M P     P M M M M L       P     P
 68966  //                                       M  M  M PPPPPP  M  M  M L       PPPPPP
 68967  //                                       M     M P       M     M L       P
 68968  //                                       M     M P       M     M L       P
 68969  //                                       M     M P       M     M LLLLLLL P
 68970  
 68971  
 68972  // VIF  THU 20 NOV 2025 22:21:23  ** MPMLP                        ** DIAGNOSTICS                                      PAGE 01839
 68973  
 68974  
 68975  // VIF  THU 20 NOV 2025 22:21:23  ** MPMLP                        ** GENERATED CODE                                   PAGE 01840
 68976  
 68977  int_4 _mpmlp (int_4 _p_ u_, int_4 _p_ v_, int_4 _p_ w_, int_4 _p_ j_)
 68978  { // ** body not listed **
 68985  }
 68986  
 68987  // VIF  THU 20 NOV 2025 22:21:23  ** MPMUL2                       ** MPMUL2                                           PAGE 01841
 68988  
 68989  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 68990  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 68991  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 68992  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 68993  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 68994  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 68995  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 68996  
 68997  //                                   M     M PPPPPP  M     M U     U L        22222
 68998  //                                   MM   MM P     P MM   MM U     U L       2     2
 68999  //                                   M M M M P     P M M M M U     U L             2
 69000  //                                   M  M  M PPPPPP  M  M  M U     U L        22222
 69001  //                                   M     M P       M     M U     U L       2
 69002  //                                   M     M P       M     M U     U L       2
 69003  //                                   M     M P       M     M  UUUUU  LLLLLLL 2222222
 69004  
 69005  
 69006  // VIF  THU 20 NOV 2025 22:21:23  ** MPMUL2                       ** DIAGNOSTICS                                      PAGE 01842
 69007  
 69008  
 69009  // VIF  THU 20 NOV 2025 22:21:23  ** MPMUL2                       ** GENERATED CODE                                   PAGE 01843
 69010  
 69011  int_4 _mpmul2 (int_4 _p_ x_, int_4 _p_ iy_, int_4 _p_ z_, int_4 _p_ trunc_)
 69012  { // ** body not listed **
 69160  }
 69161  
 69162  // VIF  THU 20 NOV 2025 22:21:23  ** MPMUL                        ** MPMUL                                            PAGE 01846
 69163  
 69164  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 69165  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 69166  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 69167  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 69168  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 69169  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 69170  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 69171  
 69172  //                                       M     M PPPPPP  M     M U     U L
 69173  //                                       MM   MM P     P MM   MM U     U L
 69174  //                                       M M M M P     P M M M M U     U L
 69175  //                                       M  M  M PPPPPP  M  M  M U     U L
 69176  //                                       M     M P       M     M U     U L
 69177  //                                       M     M P       M     M U     U L
 69178  //                                       M     M P       M     M  UUUUU  LLLLLLL
 69179  
 69180  
 69181  // VIF  THU 20 NOV 2025 22:21:23  ** MPMUL                        ** DIAGNOSTICS                                      PAGE 01847
 69182  
 69183  
 69184  // VIF  THU 20 NOV 2025 22:21:23  ** MPMUL                        ** GENERATED CODE                                   PAGE 01848
 69185  
 69186  int_4 _mpmul (int_4 _p_ x_, int_4 _p_ y_, int_4 _p_ z_)
 69187  { // ** body not listed **
 69299  }
 69300  
 69301  // VIF  THU 20 NOV 2025 22:21:23  ** MPMULI                       ** MPMULI                                           PAGE 01851
 69302  
 69303  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 69304  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 69305  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 69306  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 69307  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 69308  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 69309  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 69310  
 69311  //                                    M     M PPPPPP  M     M U     U L         III
 69312  //                                    MM   MM P     P MM   MM U     U L          I
 69313  //                                    M M M M P     P M M M M U     U L          I
 69314  //                                    M  M  M PPPPPP  M  M  M U     U L          I
 69315  //                                    M     M P       M     M U     U L          I
 69316  //                                    M     M P       M     M U     U L          I
 69317  //                                    M     M P       M     M  UUUUU  LLLLLLL   III
 69318  
 69319  
 69320  // VIF  THU 20 NOV 2025 22:21:23  ** MPMULI                       ** DIAGNOSTICS                                      PAGE 01852
 69321  
 69322  
 69323  // VIF  THU 20 NOV 2025 22:21:23  ** MPMULI                       ** GENERATED CODE                                   PAGE 01853
 69324  
 69325  int_4 _mpmuli (int_4 _p_ x_, int_4 _p_ iy_, int_4 _p_ z_)
 69326  { // ** body not listed **
 69330  }
 69331  
 69332  // VIF  THU 20 NOV 2025 22:21:23  ** MPNZR                        ** MPNZR                                            PAGE 01854
 69333  
 69334  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 69335  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 69336  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 69337  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 69338  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 69339  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 69340  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 69341  
 69342  //                                       M     M PPPPPP  N     N ZZZZZZZ RRRRRR
 69343  //                                       MM   MM P     P NN    N      Z  R     R
 69344  //                                       M M M M P     P N N   N     Z   R     R
 69345  //                                       M  M  M PPPPPP  N  N  N    Z    RRRRRR
 69346  //                                       M     M P       N   N N   Z     R   R
 69347  //                                       M     M P       N    NN  *      R    R
 69348  //                                       M     M P       N     N ZZZZZZZ R     R
 69349  
 69350  
 69351  // VIF  THU 20 NOV 2025 22:21:23  ** MPNZR                        ** DIAGNOSTICS                                      PAGE 01855
 69352  
 69353  
 69354  // VIF  THU 20 NOV 2025 22:21:23  ** MPNZR                        ** GENERATED CODE                                   PAGE 01856
 69355  
 69356  int_4 _mpnzr (int_4 _p_ rs_, int_4 _p_ re_, int_4 _p_ z_, int_4 _p_ trunc_)
 69357  { // ** body not listed **
 69499  }
 69500  
 69501  // VIF  THU 20 NOV 2025 22:21:23  ** MPOVFL                       ** MPOVFL                                           PAGE 01859
 69502  
 69503  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 69504  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 69505  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 69506  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 69507  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 69508  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 69509  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 69510  
 69511  //                                   M     M PPPPPP   OOOOO  V     V FFFFFFF L
 69512  //                                   MM   MM P     P O     O V     V F       L
 69513  //                                   M M M M P     P O     O V     V F       L
 69514  //                                   M  M  M PPPPPP  O     O V     V FFFFF   L
 69515  //                                   M     M P       O     O  V   V  F       L
 69516  //                                   M     M P       O     O   V V   F       L
 69517  //                                   M     M P        OOOOO     V    F       LLLLLLL
 69518  
 69519  
 69520  // VIF  THU 20 NOV 2025 22:21:23  ** MPOVFL                       ** DIAGNOSTICS                                      PAGE 01860
 69521  
 69522  
 69523  // VIF  THU 20 NOV 2025 22:21:23  ** MPOVFL                       ** GENERATED CODE                                   PAGE 01861
 69524  
 69525  int_4 _mpovfl (int_4 _p_ x_)
 69526  { // ** body not listed **
 69548  }
 69549  
 69550  // VIF  THU 20 NOV 2025 22:21:23  ** MPSTR                        ** MPSTR                                            PAGE 01862
 69551  
 69552  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 69553  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 69554  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 69555  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 69556  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 69557  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 69558  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 69559  
 69560  //                                       M     M PPPPPP   SSSSS  TTTTTTT RRRRRR
 69561  //                                       MM   MM P     P S     S    T    R     R
 69562  //                                       M M M M P     P S          T    R     R
 69563  //                                       M  M  M PPPPPP   SSSSS     T    RRRRRR
 69564  //                                       M     M P             S    T    R   R
 69565  //                                       M     M P       S     S    T    R    R
 69566  //                                       M     M P        SSSSS     T    R     R
 69567  
 69568  
 69569  // VIF  THU 20 NOV 2025 22:21:23  ** MPSTR                        ** DIAGNOSTICS                                      PAGE 01863
 69570  
 69571  
 69572  // VIF  THU 20 NOV 2025 22:21:23  ** MPSTR                        ** GENERATED CODE                                   PAGE 01864
 69573  
 69574  int_4 _mpstr (int_4 _p_ x_, int_4 _p_ y_)
 69575  { // ** body not listed **
 69582  }
 69583  
 69584  // VIF  THU 20 NOV 2025 22:21:23  ** MPUNFL                       ** MPUNFL                                           PAGE 01865
 69585  
 69586  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 69587  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 69588  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 69589  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 69590  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 69591  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 69592  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 69593  
 69594  //                                   M     M PPPPPP  U     U N     N FFFFFFF L
 69595  //                                   MM   MM P     P U     U NN    N F       L
 69596  //                                   M M M M P     P U     U N N   N F       L
 69597  //                                   M  M  M PPPPPP  U     U N  N  N FFFFF   L
 69598  //                                   M     M P       U     U N   N N F       L
 69599  //                                   M     M P       U     U N    NN F       L
 69600  //                                   M     M P        UUUUU  N     N F       LLLLLLL
 69601  
 69602  
 69603  // VIF  THU 20 NOV 2025 22:21:23  ** MPUNFL                       ** DIAGNOSTICS                                      PAGE 01866
 69604  
 69605  
 69606  // VIF  THU 20 NOV 2025 22:21:23  ** MPUNFL                       ** GENERATED CODE                                   PAGE 01867
 69607  
 69608  int_4 _mpunfl (int_4 _p_ x_)
 69609  { // ** body not listed **
 69615  }
 69616  
 69617  // VIF  THU 20 NOV 2025 22:21:23  ** NUMXER                       ** NUMXER                                           PAGE 01868
 69618  
 69619  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 69620  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 69621  //                           F       U     U N N   N C          T       I    O     O N N   N
 69622  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 69623  //                           F       U     U N   N N C          T       I    O     O N   N N
 69624  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 69625  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 69626  
 69627  //                                   N     N U     U M     M X     X EEEEEEE RRRRRR
 69628  //                                   NN    N U     U MM   MM  X   X  E       R     R
 69629  //                                   N N   N U     U M M M M   X X   E       R     R
 69630  //                                   N  N  N U     U M  M  M    X    EEEEE   RRRRRR
 69631  //                                   N   N N U     U M     M   X X   E       R   R
 69632  //                                   N    NN U     U M     M  X   X  E       R    R
 69633  //                                   N     N  UUUUU  M     M X     X EEEEEEE R     R
 69634  
 69635  
 69636  // VIF  THU 20 NOV 2025 22:21:23  ** NUMXER                       ** DIAGNOSTICS                                      PAGE 01869
 69637  
 69638  
 69639  // VIF  THU 20 NOV 2025 22:21:23  ** NUMXER                       ** GENERATED CODE                                   PAGE 01870
 69640  
 69641  int_4 _numxer (int_4 _p_ nerr_)
 69642  { // ** body not listed **
 69650  }
 69651  
 69652  
 69653  // VIF  THU 20 NOV 2025 22:21:23  ** OHTROL                       ** OHTROL                                           PAGE 01871
 69654  
 69655  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 69656  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 69657  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 69658  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 69659  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 69660  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 69661  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 69662  
 69663  //                                    OOOOO  H     H TTTTTTT RRRRRR   OOOOO  L
 69664  //                                   O     O H     H    T    R     R O     O L
 69665  //                                   O     O H     H    T    R     R O     O L
 69666  //                                   O     O HHHHHHH    T    RRRRRR  O     O L
 69667  //                                   O     O H     H    T    R   R   O     O L
 69668  //                                   O     O H     H    T    R    R  O     O L
 69669  //                                    OOOOO  H     H    T    R     R  OOOOO  LLLLLLL
 69670  
 69671  
 69672  // VIF  THU 20 NOV 2025 22:21:23  ** OHTROL                       ** DIAGNOSTICS                                      PAGE 01872
 69673  
 69674  
 69675  // VIF  THU 20 NOV 2025 22:21:23  ** OHTROL                       ** GENERATED CODE                                   PAGE 01873
 69676  
 69677  int_4 _ohtrol (real_4 _p_ q_, int_4 _p_ n_, int_4 _p_ nrda_, real_4 _p_ diag_, int_4 _p_ irank_, real_4 _p_ div_, 
 69678  real_4 _p_ td_)
 69679  { // ** body not listed **
 69712  }
 69713  
 69714  // VIF  THU 20 NOV 2025 22:21:23  ** OHTROR                       ** OHTROR                                           PAGE 01874
 69715  
 69716  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 69717  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 69718  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 69719  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 69720  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 69721  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 69722  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 69723  
 69724  //                                    OOOOO  H     H TTTTTTT RRRRRR   OOOOO  RRRRRR
 69725  //                                   O     O H     H    T    R     R O     O R     R
 69726  //                                   O     O H     H    T    R     R O     O R     R
 69727  //                                   O     O HHHHHHH    T    RRRRRR  O     O RRRRRR
 69728  //                                   O     O H     H    T    R   R   O     O R   R
 69729  //                                   O     O H     H    T    R    R  O     O R    R
 69730  //                                    OOOOO  H     H    T    R     R  OOOOO  R     R
 69731  
 69732  
 69733  // VIF  THU 20 NOV 2025 22:21:23  ** OHTROR                       ** DIAGNOSTICS                                      PAGE 01875
 69734  
 69735  
 69736  // VIF  THU 20 NOV 2025 22:21:23  ** OHTROR                       ** GENERATED CODE                                   PAGE 01876
 69737  
 69738  int_4 _ohtror (real_4 _p_ q_, int_4 _p_ n_, int_4 _p_ nrda_, real_4 _p_ diag_, int_4 _p_ irank_, real_4 _p_ div_, 
 69739  real_4 _p_ td_)
 69740  { // ** body not listed **
 69773  }
 69774  
 69775  // VIF  THU 20 NOV 2025 22:21:23  ** ORTHO4                       ** ORTHO4                                           PAGE 01877
 69776  
 69777  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 69778  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 69779  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 69780  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 69781  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 69782  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 69783  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 69784  
 69785  //                                    OOOOO  RRRRRR  TTTTTTT H     H  OOOOO  4
 69786  //                                   O     O R     R    T    H     H O     O 4    4
 69787  //                                   O     O R     R    T    H     H O     O 4    4
 69788  //                                   O     O RRRRRR     T    HHHHHHH O     O 4444444
 69789  //                                   O     O R   R      T    H     H O     O      4
 69790  //                                   O     O R    R     T    H     H O     O      4
 69791  //                                    OOOOO  R     R    T    H     H  OOOOO       4
 69792  
 69793  
 69794  // VIF  THU 20 NOV 2025 22:21:23  ** ORTHO4                       ** DIAGNOSTICS                                      PAGE 01878
 69795  
 69796  
 69797  // VIF  THU 20 NOV 2025 22:21:23  ** ORTHO4                       ** GENERATED CODE                                   PAGE 01879
 69798  
 69799  int_4 _ortho4 (real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ zn_, real_4 _p_ zm_, real_4 _p_ pertrb_)
 69800  { // ** body not listed **
 69825  }
 69826  
 69827  // VIF  THU 20 NOV 2025 22:21:23  ** ORTHOG                       ** ORTHOG                                           PAGE 01880
 69828  
 69829  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 69830  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 69831  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 69832  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 69833  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 69834  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 69835  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 69836  
 69837  //                                    OOOOO  RRRRRR  TTTTTTT H     H  OOOOO   GGGGG
 69838  //                                   O     O R     R    T    H     H O     O G     G
 69839  //                                   O     O R     R    T    H     H O     O G
 69840  //                                   O     O RRRRRR     T    HHHHHHH O     O G  GGGG
 69841  //                                   O     O R   R      T    H     H O     O G     G
 69842  //                                   O     O R    R     T    H     H O     O G     G
 69843  //                                    OOOOO  R     R    T    H     H  OOOOO   GGGGG
 69844  
 69845  
 69846  // VIF  THU 20 NOV 2025 22:21:23  ** ORTHOG                       ** DIAGNOSTICS                                      PAGE 01881
 69847  
 69848  
 69849  // VIF  THU 20 NOV 2025 22:21:23  ** ORTHOG                       ** GENERATED CODE                                   PAGE 01882
 69850  
 69851  int_4 _orthog (real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ zn_, real_4 _p_ zm_, real_4 _p_ pertrb_)
 69852  { // ** body not listed **
 69877  }
 69878  
 69879  // VIF  THU 20 NOV 2025 22:21:23  ** ORTHOL                       ** ORTHOL                                           PAGE 01883
 69880  
 69881  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 69882  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 69883  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 69884  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 69885  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 69886  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 69887  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 69888  
 69889  //                                    OOOOO  RRRRRR  TTTTTTT H     H  OOOOO  L
 69890  //                                   O     O R     R    T    H     H O     O L
 69891  //                                   O     O R     R    T    H     H O     O L
 69892  //                                   O     O RRRRRR     T    HHHHHHH O     O L
 69893  //                                   O     O R   R      T    H     H O     O L
 69894  //                                   O     O R    R     T    H     H O     O L
 69895  //                                    OOOOO  R     R    T    H     H  OOOOO  LLLLLLL
 69896  
 69897  
 69898  // VIF  THU 20 NOV 2025 22:21:23  ** ORTHOL                       ** DIAGNOSTICS                                      PAGE 01884
 69899  
 69900  
 69901  // VIF  THU 20 NOV 2025 22:21:23  ** ORTHOL                       ** GENERATED CODE                                   PAGE 01885
 69902  
 69903  int_4 _orthol (real_4 _p_ a_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ nrda_, int_4 _p_ iflag_, int_4 _p_ irank_, int_4 
 69904  _p_ iscale_, real_4 _p_ diag_, int_4 _p_ kpivot_, real_4 _p_ scales_, real_4 _p_ cols_, real_4 _p_ cs_)
 69905  { // ** body not listed **
 70017  }
 70018  
 70019  // VIF  THU 20 NOV 2025 22:21:23  ** ORTHOR                       ** ORTHOR                                           PAGE 01888
 70020  
 70021  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 70022  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 70023  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 70024  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 70025  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 70026  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 70027  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 70028  
 70029  //                                    OOOOO  RRRRRR  TTTTTTT H     H  OOOOO  RRRRRR
 70030  //                                   O     O R     R    T    H     H O     O R     R
 70031  //                                   O     O R     R    T    H     H O     O R     R
 70032  //                                   O     O RRRRRR     T    HHHHHHH O     O RRRRRR
 70033  //                                   O     O R   R      T    H     H O     O R   R
 70034  //                                   O     O R    R     T    H     H O     O R    R
 70035  //                                    OOOOO  R     R    T    H     H  OOOOO  R     R
 70036  
 70037  
 70038  // VIF  THU 20 NOV 2025 22:21:23  ** ORTHOR                       ** DIAGNOSTICS                                      PAGE 01889
 70039  
 70040  
 70041  // VIF  THU 20 NOV 2025 22:21:23  ** ORTHOR                       ** GENERATED CODE                                   PAGE 01890
 70042  
 70043  int_4 _orthor (real_4 _p_ a_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nrda_, int_4 _p_ iflag_, int_4 _p_ irank_, int_4 
 70044  _p_ iscale_, real_4 _p_ diag_, int_4 _p_ kpivot_, real_4 _p_ scales_, real_4 _p_ rows_, real_4 _p_ rs_)
 70045  { // ** body not listed **
 70154  }
 70155  
 70156  // VIF  THU 20 NOV 2025 22:21:23  ** PCHNGS                       ** PCHNGS                                           PAGE 01893
 70157  
 70158  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 70159  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 70160  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 70161  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 70162  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 70163  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 70164  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 70165  
 70166  //                                   PPPPPP   CCCCC  H     H N     N  GGGGG   SSSSS
 70167  //                                   P     P C     C H     H NN    N G     G S     S
 70168  //                                   P     P C       H     H N N   N G       S
 70169  //                                   PPPPPP  C       HHHHHHH N  N  N G  GGGG  SSSSS
 70170  //                                   P       C       H     H N   N N G     G       S
 70171  //                                   P       C     C H     H N    NN G     G S     S
 70172  //                                   P        CCCCC  H     H N     N  GGGGG   SSSSS
 70173  
 70174  
 70175  // VIF  THU 20 NOV 2025 22:21:23  ** PCHNGS                       ** DIAGNOSTICS                                      PAGE 01894
 70176  
 70177  
 70178  // VIF  THU 20 NOV 2025 22:21:23  ** PCHNGS                       ** GENERATED CODE                                   PAGE 01895
 70179  
 70180  int_4 _pchngs (int_4 _p_ ii_, real_4 _p_ xval_, int_4 _p_ iplace_, real_4 _p_ sx_, int_4 _p_ ix_, int_4 _p_ ircx_)
 70181  { // ** body not listed **
 70401  }
 70402  
 70403  // VIF  THU 20 NOV 2025 22:21:23  ** PCOEF                        ** PCOEF                                            PAGE 01900
 70404  
 70405  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 70406  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 70407  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 70408  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 70409  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 70410  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 70411  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 70412  
 70413  //                                       PPPPPP   CCCCC   OOOOO  EEEEEEE FFFFFFF
 70414  //                                       P     P C     C O     O E       F
 70415  //                                       P     P C       O     O E       F
 70416  //                                       PPPPPP  C       O     O EEEEE   FFFFF
 70417  //                                       P       C       O     O E       F
 70418  //                                       P       C     C O     O E       F
 70419  //                                       P        CCCCC   OOOOO  EEEEEEE F
 70420  
 70421  
 70422  // VIF  THU 20 NOV 2025 22:21:23  ** PCOEF                        ** DIAGNOSTICS                                      PAGE 01901
 70423  
 70424  
 70425  // VIF  THU 20 NOV 2025 22:21:23  ** PCOEF                        ** GENERATED CODE                                   PAGE 01902
 70426  
 70427  int_4 _pcoef (int_4 _p_ l_, real_4 _p_ c_, real_4 _p_ tc_, real_4 _p_ a_)
 70428  { // ** body not listed **
 70457  }
 70458  
 70459  // VIF  THU 20 NOV 2025 22:21:23  ** PGSF                         ** PGSF                                             PAGE 01903
 70460  
 70461  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 70462  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 70463  //                           F       U     U N N   N C          T       I    O     O N N   N
 70464  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 70465  //                           F       U     U N   N N C          T       I    O     O N   N N
 70466  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 70467  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 70468  
 70469  //                                           PPPPPP   GGGGG   SSSSS  FFFFFFF
 70470  //                                           P     P G     G S     S F
 70471  //                                           P     P G       S       F
 70472  //                                           PPPPPP  G  GGGG  SSSSS  FFFFF
 70473  //                                           P       G     G       S F
 70474  //                                           P       G     G S     S F
 70475  //                                           P        GGGGG   SSSSS  F
 70476  
 70477  
 70478  // VIF  THU 20 NOV 2025 22:21:23  ** PGSF                         ** DIAGNOSTICS                                      PAGE 01904
 70479  
 70480  
 70481  // VIF  THU 20 NOV 2025 22:21:23  ** PGSF                         ** GENERATED CODE                                   PAGE 01905
 70482  
 70483  real_4 _pgsf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_)
 70484  { // ** body not listed **
 70511  }
 70512  
 70513  
 70514  // VIF  THU 20 NOV 2025 22:21:23  ** PIMACH                       ** PIMACH                                           PAGE 01906
 70515  
 70516  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 70517  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 70518  //                           F       U     U N N   N C          T       I    O     O N N   N
 70519  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 70520  //                           F       U     U N   N N C          T       I    O     O N   N N
 70521  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 70522  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 70523  
 70524  //                                   PPPPPP    III   M     M    A     CCCCC  H     H
 70525  //                                   P     P    I    MM   MM   A A   C     C H     H
 70526  //                                   P     P    I    M M M M  A   A  C       H     H
 70527  //                                   PPPPPP     I    M  M  M A     A C       HHHHHHH
 70528  //                                   P          I    M     M AAAAAAA C       H     H
 70529  //                                   P          I    M     M A     A C     C H     H
 70530  //                                   P         III   M     M A     A  CCCCC  H     H
 70531  
 70532  
 70533  // VIF  THU 20 NOV 2025 22:21:23  ** PIMACH                       ** DIAGNOSTICS                                      PAGE 01907
 70534  
 70535  
 70536  // VIF  THU 20 NOV 2025 22:21:23  ** PIMACH                       ** GENERATED CODE                                   PAGE 01908
 70537  
 70538  real_4 _pimach (real_4 _p_ dum_)
 70539  { // ** body not listed **
 70544  }
 70545  
 70546  
 70547  // VIF  THU 20 NOV 2025 22:21:23  ** PINITM                       ** PINITM                                           PAGE 01909
 70548  
 70549  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 70550  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 70551  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 70552  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 70553  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 70554  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 70555  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 70556  
 70557  //                                   PPPPPP    III   N     N   III   TTTTTTT M     M
 70558  //                                   P     P    I    NN    N    I       T    MM   MM
 70559  //                                   P     P    I    N N   N    I       T    M M M M
 70560  //                                   PPPPPP     I    N  N  N    I       T    M  M  M
 70561  //                                   P          I    N   N N    I       T    M     M
 70562  //                                   P          I    N    NN    I       T    M     M
 70563  //                                   P         III   N     N   III      T    M     M
 70564  
 70565  
 70566  // VIF  THU 20 NOV 2025 22:21:23  ** PINITM                       ** DIAGNOSTICS                                      PAGE 01910
 70567  
 70568  
 70569  // VIF  THU 20 NOV 2025 22:21:23  ** PINITM                       ** GENERATED CODE                                   PAGE 01911
 70570  
 70571  int_4 _pinitm (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ ix_, int_4 _p_ lmx_, int_4 _p_ ipagef_)
 70572  { // ** body not listed **
 70649  }
 70650  
 70651  // VIF  THU 20 NOV 2025 22:21:23  ** PNNZRS                       ** PNNZRS                                           PAGE 01913
 70652  
 70653  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 70654  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 70655  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 70656  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 70657  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 70658  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 70659  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 70660  
 70661  //                                   PPPPPP  N     N N     N ZZZZZZZ RRRRRR   SSSSS
 70662  //                                   P     P NN    N NN    N      Z  R     R S     S
 70663  //                                   P     P N N   N N N   N     Z   R     R S
 70664  //                                   PPPPPP  N  N  N N  N  N    Z    RRRRRR   SSSSS
 70665  //                                   P       N   N N N   N N   Z     R   R         S
 70666  //                                   P       N    NN N    NN  *      R    R  S     S
 70667  //                                   P       N     N N     N ZZZZZZZ R     R  SSSSS
 70668  
 70669  
 70670  // VIF  THU 20 NOV 2025 22:21:23  ** PNNZRS                       ** DIAGNOSTICS                                      PAGE 01914
 70671  
 70672  
 70673  // VIF  THU 20 NOV 2025 22:21:23  ** PNNZRS                       ** GENERATED CODE                                   PAGE 01915
 70674  
 70675  int_4 _pnnzrs (int_4 _p_ i_, real_4 _p_ xval_, int_4 _p_ iplace_, real_4 _p_ sx_, int_4 _p_ ix_, int_4 _p_ ircx_)
 70676  { // ** body not listed **
 70889  }
 70890  
 70891  // VIF  THU 20 NOV 2025 22:21:23  ** POISD2                       ** POISD2                                           PAGE 01920
 70892  
 70893  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 70894  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 70895  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 70896  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 70897  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 70898  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 70899  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 70900  
 70901  //                                   PPPPPP   OOOOO    III    SSSSS  DDDDDD   22222
 70902  //                                   P     P O     O    I    S     S D     D 2     2
 70903  //                                   P     P O     O    I    S       D     D       2
 70904  //                                   PPPPPP  O     O    I     SSSSS  D     D  22222
 70905  //                                   P       O     O    I          S D     D 2
 70906  //                                   P       O     O    I    S     S D     D 2
 70907  //                                   P        OOOOO    III    SSSSS  DDDDDD  2222222
 70908  
 70909  
 70910  // VIF  THU 20 NOV 2025 22:21:23  ** POISD2                       ** DIAGNOSTICS                                      PAGE 01921
 70911  
 70912  
 70913  // VIF  THU 20 NOV 2025 22:21:23  ** POISD2                       ** GENERATED CODE                                   PAGE 01922
 70914  
 70915  int_4 _poisd2 (int_4 _p_ mr_, int_4 _p_ nr_, int_4 _p_ istag_, real_4 _p_ ba_, real_4 _p_ bb_, real_4 _p_ bc_, real_4 
 70916  _p_ q_, int_4 _p_ idimq_, real_4 _p_ b_, real_4 _p_ w_, real_4 _p_ d_, real_4 _p_ tcos_, real_4 _p_ p_)
 70917  { // ** body not listed **
 71354  }
 71355  
 71356  // VIF  THU 20 NOV 2025 22:21:23  ** POISN2                       ** POISN2                                           PAGE 01931
 71357  
 71358  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 71359  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 71360  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 71361  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 71362  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 71363  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 71364  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 71365  
 71366  //                                   PPPPPP   OOOOO    III    SSSSS  N     N  22222
 71367  //                                   P     P O     O    I    S     S NN    N 2     2
 71368  //                                   P     P O     O    I    S       N N   N       2
 71369  //                                   PPPPPP  O     O    I     SSSSS  N  N  N  22222
 71370  //                                   P       O     O    I          S N   N N 2
 71371  //                                   P       O     O    I    S     S N    NN 2
 71372  //                                   P        OOOOO    III    SSSSS  N     N 2222222
 71373  
 71374  
 71375  // VIF  THU 20 NOV 2025 22:21:23  ** POISN2                       ** DIAGNOSTICS                                      PAGE 01932
 71376  
 71377  
 71378  // VIF  THU 20 NOV 2025 22:21:23  ** POISN2                       ** GENERATED CODE                                   PAGE 01933
 71379  
 71380  int_4 _poisn2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ istag_, int_4 _p_ mixbnd_, real_4 _p_ a_, real_4 _p_ bb_, real_4 
 71381  _p_ c_, real_4 _p_ q_, int_4 _p_ idimq_, real_4 _p_ b_, real_4 _p_ b2_, real_4 _p_ b3_, real_4 _p_ w_, real_4 _p_ w2_, 
 71382  real_4 _p_ w3_, real_4 _p_ d_, real_4 _p_ tcos_, real_4 _p_ p_)
 71383  { // ** body not listed **
 72042  }
 72043  
 72044  // VIF  THU 20 NOV 2025 22:21:23  ** POISP2                       ** POISP2                                           PAGE 01946
 72045  
 72046  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 72047  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 72048  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 72049  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 72050  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 72051  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 72052  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 72053  
 72054  //                                   PPPPPP   OOOOO    III    SSSSS  PPPPPP   22222
 72055  //                                   P     P O     O    I    S     S P     P 2     2
 72056  //                                   P     P O     O    I    S       P     P       2
 72057  //                                   PPPPPP  O     O    I     SSSSS  PPPPPP   22222
 72058  //                                   P       O     O    I          S P       2
 72059  //                                   P       O     O    I    S     S P       2
 72060  //                                   P        OOOOO    III    SSSSS  P       2222222
 72061  
 72062  
 72063  // VIF  THU 20 NOV 2025 22:21:23  ** POISP2                       ** DIAGNOSTICS                                      PAGE 01947
 72064  
 72065  
 72066  // VIF  THU 20 NOV 2025 22:21:23  ** POISP2                       ** GENERATED CODE                                   PAGE 01948
 72067  
 72068  int_4 _poisp2 (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ bb_, real_4 _p_ c_, real_4 _p_ q_, int_4 _p_ 
 72069  idimq_, real_4 _p_ b_, real_4 _p_ b2_, real_4 _p_ b3_, real_4 _p_ w_, real_4 _p_ w2_, real_4 _p_ w3_, real_4 _p_ d_, 
 72070  real_4 _p_ tcos_, real_4 _p_ p_)
 72071  { // ** body not listed **
 72168  }
 72169  
 72170  // VIF  THU 20 NOV 2025 22:21:23  ** POLCOF                       ** POLCOF                                           PAGE 01950
 72171  
 72172  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 72173  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 72174  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 72175  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 72176  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 72177  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 72178  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 72179  
 72180  //                                   PPPPPP   OOOOO  L        CCCCC   OOOOO  FFFFFFF
 72181  //                                   P     P O     O L       C     C O     O F
 72182  //                                   P     P O     O L       C       O     O F
 72183  //                                   PPPPPP  O     O L       C       O     O FFFFF
 72184  //                                   P       O     O L       C       O     O F
 72185  //                                   P       O     O L       C     C O     O F
 72186  //                                   P        OOOOO  LLLLLLL  CCCCC   OOOOO  F
 72187  
 72188  
 72189  // VIF  THU 20 NOV 2025 22:21:23  ** POLCOF                       ** DIAGNOSTICS                                      PAGE 01951
 72190  
 72191  
 72192  // VIF  THU 20 NOV 2025 22:21:23  ** POLCOF                       ** GENERATED CODE                                   PAGE 01952
 72193  
 72194  int_4 _polcof (real_4 _p_ xx_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ work_)
 72195  { // ** body not listed **
 72234  }
 72235  
 72236  // VIF  THU 20 NOV 2025 22:21:23  ** POLFIT                       ** POLFIT                                           PAGE 01953
 72237  
 72238  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 72239  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 72240  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 72241  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 72242  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 72243  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 72244  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 72245  
 72246  //                                   PPPPPP   OOOOO  L       FFFFFFF   III   TTTTTTT
 72247  //                                   P     P O     O L       F          I       T
 72248  //                                   P     P O     O L       F          I       T
 72249  //                                   PPPPPP  O     O L       FFFFF      I       T
 72250  //                                   P       O     O L       F          I       T
 72251  //                                   P       O     O L       F          I       T
 72252  //                                   P        OOOOO  LLLLLLL F         III      T
 72253  
 72254  
 72255  // VIF  THU 20 NOV 2025 22:21:23  ** POLFIT                       ** DIAGNOSTICS                                      PAGE 01954
 72256  
 72257  
 72258  // VIF  THU 20 NOV 2025 22:21:23  ** POLFIT                       ** GENERATED CODE                                   PAGE 01955
 72259  
 72260  int_4 _polfit (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ w_, int_4 _p_ maxdeg_, int_4 _p_ ndeg_, real_4 
 72261  _p_ eps_, real_4 _p_ r_, int_4 _p_ ierr_, real_4 _p_ a_)
 72262  { // ** body not listed **
 72595  }
 72596  
 72597  // VIF  THU 20 NOV 2025 22:21:23  ** POLINT                       ** POLINT                                           PAGE 01962
 72598  
 72599  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 72600  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 72601  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 72602  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 72603  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 72604  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 72605  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 72606  
 72607  //                                   PPPPPP   OOOOO  L         III   N     N TTTTTTT
 72608  //                                   P     P O     O L          I    NN    N    T
 72609  //                                   P     P O     O L          I    N N   N    T
 72610  //                                   PPPPPP  O     O L          I    N  N  N    T
 72611  //                                   P       O     O L          I    N   N N    T
 72612  //                                   P       O     O L          I    N    NN    T
 72613  //                                   P        OOOOO  LLLLLLL   III   N     N    T
 72614  
 72615  
 72616  // VIF  THU 20 NOV 2025 22:21:23  ** POLINT                       ** DIAGNOSTICS                                      PAGE 01963
 72617  
 72618  
 72619  // VIF  THU 20 NOV 2025 22:21:23  ** POLINT                       ** GENERATED CODE                                   PAGE 01964
 72620  
 72621  int_4 _polint (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ c_)
 72622  { // ** body not listed **
 72653  }
 72654  
 72655  // VIF  THU 20 NOV 2025 22:21:23  ** POLYVL                       ** POLYVL                                           PAGE 01965
 72656  
 72657  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 72658  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 72659  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 72660  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 72661  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 72662  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 72663  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 72664  
 72665  //                                   PPPPPP   OOOOO  L       Y     Y V     V L
 72666  //                                   P     P O     O L        Y   Y  V     V L
 72667  //                                   P     P O     O L         Y Y   V     V L
 72668  //                                   PPPPPP  O     O L          Y    V     V L
 72669  //                                   P       O     O L          Y     V   V  L
 72670  //                                   P       O     O L          Y      V V   L
 72671  //                                   P        OOOOO  LLLLLLL    Y       V    LLLLLLL
 72672  
 72673  
 72674  // VIF  THU 20 NOV 2025 22:21:23  ** POLYVL                       ** DIAGNOSTICS                                      PAGE 01966
 72675  
 72676  
 72677  // VIF  THU 20 NOV 2025 22:21:23  ** POLYVL                       ** GENERATED CODE                                   PAGE 01967
 72678  
 72679  int_4 _polyvl (int_4 _p_ nder_, real_4 _p_ xx_, real_4 _p_ yfit_, real_4 _p_ yp_, int_4 _p_ n_, real_4 _p_ x_, real_4 
 72680  _p_ c_, real_4 _p_ work_, int_4 _p_ ierr_)
 72681  { // ** body not listed **
 72777  }
 72778  
 72779  // VIF  THU 20 NOV 2025 22:21:23  ** POS3D1                       ** POS3D1                                           PAGE 01969
 72780  
 72781  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 72782  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 72783  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 72784  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 72785  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 72786  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 72787  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 72788  
 72789  //                                    PPPPPP   OOOOO   SSSSS   33333  DDDDDD     1
 72790  //                                    P     P O     O S     S 3     3 D     D   11
 72791  //                                    P     P O     O S             3 D     D  1 1
 72792  //                                    PPPPPP  O     O  SSSSS   33333  D     D    1
 72793  //                                    P       O     O       S       3 D     D    1
 72794  //                                    P       O     O S     S 3     3 D     D    1
 72795  //                                    P        OOOOO   SSSSS   33333  DDDDDD   11111
 72796  
 72797  
 72798  // VIF  THU 20 NOV 2025 22:21:23  ** POS3D1                       ** DIAGNOSTICS                                      PAGE 01970
 72799  
 72800  
 72801  // VIF  THU 20 NOV 2025 22:21:23  ** POS3D1                       ** GENERATED CODE                                   PAGE 01971
 72802  
 72803  int_4 _pos3d1 (int_4 _p_ lp_, int_4 _p_ l_, int_4 _p_ mp_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ b_, 
 72804  real_4 _p_ c_, int_4 _p_ ldimf_, int_4 _p_ mdimf_, real_4 _p_ f_, real_4 _p_ xrt_, real_4 _p_ yrt_, real_4 _p_ t_, 
 72805  real_4 _p_ d_, real_4 _p_ wx_, real_4 _p_ wy_, real_4 _p_ c1_, real_4 _p_ c2_, real_4 _p_ bb_)
 72806  { // ** body not listed **
 73091  }
 73092  
 73093  // VIF  THU 20 NOV 2025 22:21:23  ** POSTG2                       ** POSTG2                                           PAGE 01977
 73094  
 73095  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 73096  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 73097  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 73098  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 73099  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 73100  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 73101  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 73102  
 73103  //                                   PPPPPP   OOOOO   SSSSS  TTTTTTT  GGGGG   22222
 73104  //                                   P     P O     O S     S    T    G     G 2     2
 73105  //                                   P     P O     O S          T    G             2
 73106  //                                   PPPPPP  O     O  SSSSS     T    G  GGGG  22222
 73107  //                                   P       O     O       S    T    G     G 2
 73108  //                                   P       O     O S     S    T    G     G 2
 73109  //                                   P        OOOOO   SSSSS     T     GGGGG  2222222
 73110  
 73111  
 73112  // VIF  THU 20 NOV 2025 22:21:23  ** POSTG2                       ** DIAGNOSTICS                                      PAGE 01978
 73113  
 73114  
 73115  // VIF  THU 20 NOV 2025 22:21:23  ** POSTG2                       ** GENERATED CODE                                   PAGE 01979
 73116  
 73117  int_4 _postg2 (int_4 _p_ nperod_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ bb_, real_4 _p_ c_, int_4 _p_ 
 73118  idimq_, real_4 _p_ q_, real_4 _p_ b_, real_4 _p_ b2_, real_4 _p_ b3_, real_4 _p_ w_, real_4 _p_ w2_, real_4 _p_ w3_, 
 73119  real_4 _p_ d_, real_4 _p_ tcos_, real_4 _p_ p_)
 73120  { // ** body not listed **
 73778  }
 73779  
 73780  // VIF  THU 20 NOV 2025 22:21:23  ** PPADD                        ** PPADD                                            PAGE 01992
 73781  
 73782  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 73783  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 73784  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 73785  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 73786  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 73787  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 73788  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 73789  
 73790  //                                       PPPPPP  PPPPPP     A    DDDDDD  DDDDDD
 73791  //                                       P     P P     P   A A   D     D D     D
 73792  //                                       P     P P     P  A   A  D     D D     D
 73793  //                                       PPPPPP  PPPPPP  A     A D     D D     D
 73794  //                                       P       P       AAAAAAA D     D D     D
 73795  //                                       P       P       A     A D     D D     D
 73796  //                                       P       P       A     A DDDDDD  DDDDDD
 73797  
 73798  
 73799  // VIF  THU 20 NOV 2025 22:21:23  ** PPADD                        ** DIAGNOSTICS                                      PAGE 01993
 73800  
 73801  
 73802  // VIF  THU 20 NOV 2025 22:21:23  ** PPADD                        ** GENERATED CODE                                   PAGE 01994
 73803  
 73804  int_4 _ppadd (int_4 _p_ n_, int_4 _p_ ierror_, real_4 _p_ a_, real_4 _p_ c_, complex_8 _p_ cbp_, real_4 _p_ bp_, real_4 
 73805  _p_ bh_)
 73806  { // ** body not listed **
 74102  }
 74103  
 74104  // VIF  THU 20 NOV 2025 22:21:23  ** PPGQ8                        ** PPGQ8                                            PAGE 02000
 74105  
 74106  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 74107  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 74108  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 74109  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 74110  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 74111  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 74112  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 74113  
 74114  //                                       PPPPPP  PPPPPP   GGGGG   QQQQQ   88888
 74115  //                                       P     P P     P G     G Q     Q 8     8
 74116  //                                       P     P P     P G       Q     Q 8     8
 74117  //                                       PPPPPP  PPPPPP  G  GGGG Q     Q  88888
 74118  //                                       P       P       G     G Q   Q Q 8     8
 74119  //                                       P       P       G     G Q    Q  8     8
 74120  //                                       P       P        GGGGG   QQQQ Q  88888
 74121  
 74122  
 74123  // VIF  THU 20 NOV 2025 22:21:23  ** PPGQ8                        ** DIAGNOSTICS                                      PAGE 02001
 74124  
 74125  
 74126  // VIF  THU 20 NOV 2025 22:21:23  ** PPGQ8                        ** GENERATED CODE                                   PAGE 02002
 74127  
 74128  int_4 _ppgq8 (real_4 (*_fun)(), int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ kk_, int_4 _p_ 
 74129  id_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ inppv_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ ierr_)
 74130  { // ** body not listed **
 74423  }
 74424  
 74425  // VIF  THU 20 NOV 2025 22:21:23  ** PPGSF                        ** PPGSF                                            PAGE 02008
 74426  
 74427  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 74428  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 74429  //                           F       U     U N N   N C          T       I    O     O N N   N
 74430  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 74431  //                           F       U     U N   N N C          T       I    O     O N   N N
 74432  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 74433  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 74434  
 74435  //                                       PPPPPP  PPPPPP   GGGGG   SSSSS  FFFFFFF
 74436  //                                       P     P P     P G     G S     S F
 74437  //                                       P     P P     P G       S       F
 74438  //                                       PPPPPP  PPPPPP  G  GGGG  SSSSS  FFFFF
 74439  //                                       P       P       G     G       S F
 74440  //                                       P       P       G     G S     S F
 74441  //                                       P       P        GGGGG   SSSSS  F
 74442  
 74443  
 74444  // VIF  THU 20 NOV 2025 22:21:23  ** PPGSF                        ** DIAGNOSTICS                                      PAGE 02009
 74445  
 74446  
 74447  // VIF  THU 20 NOV 2025 22:21:23  ** PPGSF                        ** GENERATED CODE                                   PAGE 02010
 74448  
 74449  real_4 _ppgsf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_)
 74450  { // ** body not listed **
 74461  }
 74462  
 74463  
 74464  // VIF  THU 20 NOV 2025 22:21:23  ** PPPSF                        ** PPPSF                                            PAGE 02011
 74465  
 74466  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 74467  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 74468  //                           F       U     U N N   N C          T       I    O     O N N   N
 74469  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 74470  //                           F       U     U N   N N C          T       I    O     O N   N N
 74471  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 74472  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 74473  
 74474  //                                       PPPPPP  PPPPPP  PPPPPP   SSSSS  FFFFFFF
 74475  //                                       P     P P     P P     P S     S F
 74476  //                                       P     P P     P P     P S       F
 74477  //                                       PPPPPP  PPPPPP  PPPPPP   SSSSS  FFFFF
 74478  //                                       P       P       P             S F
 74479  //                                       P       P       P       S     S F
 74480  //                                       P       P       P        SSSSS  F
 74481  
 74482  
 74483  // VIF  THU 20 NOV 2025 22:21:23  ** PPPSF                        ** DIAGNOSTICS                                      PAGE 02012
 74484  
 74485  
 74486  // VIF  THU 20 NOV 2025 22:21:23  ** PPPSF                        ** GENERATED CODE                                   PAGE 02013
 74487  
 74488  real_4 _pppsf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_)
 74489  { // ** body not listed **
 74499  }
 74500  
 74501  
 74502  // VIF  THU 20 NOV 2025 22:21:23  ** PPSGF                        ** PPSGF                                            PAGE 02014
 74503  
 74504  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 74505  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 74506  //                           F       U     U N N   N C          T       I    O     O N N   N
 74507  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 74508  //                           F       U     U N   N N C          T       I    O     O N   N N
 74509  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 74510  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 74511  
 74512  //                                       PPPPPP  PPPPPP   SSSSS   GGGGG  FFFFFFF
 74513  //                                       P     P P     P S     S G     G F
 74514  //                                       P     P P     P S       G       F
 74515  //                                       PPPPPP  PPPPPP   SSSSS  G  GGGG FFFFF
 74516  //                                       P       P             S G     G F
 74517  //                                       P       P       S     S G     G F
 74518  //                                       P       P        SSSSS   GGGGG  F
 74519  
 74520  
 74521  // VIF  THU 20 NOV 2025 22:21:23  ** PPSGF                        ** DIAGNOSTICS                                      PAGE 02015
 74522  
 74523  
 74524  // VIF  THU 20 NOV 2025 22:21:23  ** PPSGF                        ** GENERATED CODE                                   PAGE 02016
 74525  
 74526  real_4 _ppsgf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_)
 74527  { // ** body not listed **
 74538  }
 74539  
 74540  
 74541  // VIF  THU 20 NOV 2025 22:21:23  ** PPSPF                        ** PPSPF                                            PAGE 02017
 74542  
 74543  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 74544  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 74545  //                           F       U     U N N   N C          T       I    O     O N N   N
 74546  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 74547  //                           F       U     U N   N N C          T       I    O     O N   N N
 74548  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 74549  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 74550  
 74551  //                                       PPPPPP  PPPPPP   SSSSS  PPPPPP  FFFFFFF
 74552  //                                       P     P P     P S     S P     P F
 74553  //                                       P     P P     P S       P     P F
 74554  //                                       PPPPPP  PPPPPP   SSSSS  PPPPPP  FFFFF
 74555  //                                       P       P             S P       F
 74556  //                                       P       P       S     S P       F
 74557  //                                       P       P        SSSSS  P       F
 74558  
 74559  
 74560  // VIF  THU 20 NOV 2025 22:21:23  ** PPSPF                        ** DIAGNOSTICS                                      PAGE 02018
 74561  
 74562  
 74563  // VIF  THU 20 NOV 2025 22:21:23  ** PPSPF                        ** GENERATED CODE                                   PAGE 02019
 74564  
 74565  real_4 _ppspf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_)
 74566  { // ** body not listed **
 74576  }
 74577  
 74578  
 74579  // VIF  THU 20 NOV 2025 22:21:23  ** PROC                         ** PROC                                             PAGE 02020
 74580  
 74581  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 74582  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 74583  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 74584  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 74585  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 74586  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 74587  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 74588  
 74589  //                                           PPPPPP  RRRRRR   OOOOO   CCCCC
 74590  //                                           P     P R     R O     O C     C
 74591  //                                           P     P R     R O     O C
 74592  //                                           PPPPPP  RRRRRR  O     O C
 74593  //                                           P       R   R   O     O C
 74594  //                                           P       R    R  O     O C     C
 74595  //                                           P       R     R  OOOOO   CCCCC
 74596  
 74597  
 74598  // VIF  THU 20 NOV 2025 22:21:23  ** PROC                         ** DIAGNOSTICS                                      PAGE 02021
 74599  
 74600  
 74601  // VIF  THU 20 NOV 2025 22:21:23  ** PROC                         ** GENERATED CODE                                   PAGE 02022
 74602  
 74603  int_4 _proc (int_4 _p_ nd_, real_4 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, int_4 _p_ 
 74604  na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, complex_8 
 74605  _p_ c_, complex_8 _p_ d_, complex_8 _p_ w_, complex_8 _p_ u_)
 74606  { // ** body not listed **
 74786  }
 74787  
 74788  // VIF  THU 20 NOV 2025 22:21:23  ** PROCP                        ** PROCP                                            PAGE 02026
 74789  
 74790  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 74791  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 74792  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 74793  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 74794  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 74795  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 74796  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 74797  
 74798  //                                       PPPPPP  RRRRRR   OOOOO   CCCCC  PPPPPP
 74799  //                                       P     P R     R O     O C     C P     P
 74800  //                                       P     P R     R O     O C       P     P
 74801  //                                       PPPPPP  RRRRRR  O     O C       PPPPPP
 74802  //                                       P       R   R   O     O C       P
 74803  //                                       P       R    R  O     O C     C P
 74804  //                                       P       R     R  OOOOO   CCCCC  P
 74805  
 74806  
 74807  // VIF  THU 20 NOV 2025 22:21:23  ** PROCP                        ** DIAGNOSTICS                                      PAGE 02027
 74808  
 74809  
 74810  // VIF  THU 20 NOV 2025 22:21:23  ** PROCP                        ** GENERATED CODE                                   PAGE 02028
 74811  
 74812  int_4 _procp (int_4 _p_ nd_, real_4 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, int_4 
 74813  _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, 
 74814  complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ u_, complex_8 _p_ w_)
 74815  { // ** body not listed **
 75026  }
 75027  
 75028  // VIF  THU 20 NOV 2025 22:21:23  ** PROD                         ** PROD                                             PAGE 02033
 75029  
 75030  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 75031  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 75032  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 75033  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 75034  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 75035  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 75036  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 75037  
 75038  //                                           PPPPPP  RRRRRR   OOOOO  DDDDDD
 75039  //                                           P     P R     R O     O D     D
 75040  //                                           P     P R     R O     O D     D
 75041  //                                           PPPPPP  RRRRRR  O     O D     D
 75042  //                                           P       R   R   O     O D     D
 75043  //                                           P       R    R  O     O D     D
 75044  //                                           P       R     R  OOOOO  DDDDDD
 75045  
 75046  
 75047  // VIF  THU 20 NOV 2025 22:21:23  ** PROD                         ** DIAGNOSTICS                                      PAGE 02034
 75048  
 75049  
 75050  // VIF  THU 20 NOV 2025 22:21:23  ** PROD                         ** GENERATED CODE                                   PAGE 02035
 75051  
 75052  int_4 _prod (int_4 _p_ nd_, real_4 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, int_4 _p_ 
 75053  na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 
 75054  _p_ d_, real_4 _p_ w_, real_4 _p_ u_)
 75055  { // ** body not listed **
 75234  }
 75235  
 75236  // VIF  THU 20 NOV 2025 22:21:23  ** PRODP                        ** PRODP                                            PAGE 02039
 75237  
 75238  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 75239  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 75240  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 75241  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 75242  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 75243  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 75244  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 75245  
 75246  //                                       PPPPPP  RRRRRR   OOOOO  DDDDDD  PPPPPP
 75247  //                                       P     P R     R O     O D     D P     P
 75248  //                                       P     P R     R O     O D     D P     P
 75249  //                                       PPPPPP  RRRRRR  O     O D     D PPPPPP
 75250  //                                       P       R   R   O     O D     D P
 75251  //                                       P       R    R  O     O D     D P
 75252  //                                       P       R     R  OOOOO  DDDDDD  P
 75253  
 75254  
 75255  // VIF  THU 20 NOV 2025 22:21:23  ** PRODP                        ** DIAGNOSTICS                                      PAGE 02040
 75256  
 75257  
 75258  // VIF  THU 20 NOV 2025 22:21:23  ** PRODP                        ** GENERATED CODE                                   PAGE 02041
 75259  
 75260  int_4 _prodp (int_4 _p_ nd_, real_4 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, int_4 
 75261  _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, 
 75262  real_4 _p_ d_, real_4 _p_ u_, real_4 _p_ w_)
 75263  { // ** body not listed **
 75473  }
 75474  
 75475  // VIF  THU 20 NOV 2025 22:21:23  ** PRVEC                        ** PRVEC                                            PAGE 02046
 75476  
 75477  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 75478  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 75479  //                           F       U     U N N   N C          T       I    O     O N N   N
 75480  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 75481  //                           F       U     U N   N N C          T       I    O     O N   N N
 75482  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 75483  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 75484  
 75485  //                                       PPPPPP  RRRRRR  V     V EEEEEEE  CCCCC
 75486  //                                       P     P R     R V     V E       C     C
 75487  //                                       P     P R     R V     V E       C
 75488  //                                       PPPPPP  RRRRRR  V     V EEEEE   C
 75489  //                                       P       R   R    V   V  E       C
 75490  //                                       P       R    R    V V   E       C     C
 75491  //                                       P       R     R    V    EEEEEEE  CCCCC
 75492  
 75493  
 75494  // VIF  THU 20 NOV 2025 22:21:23  ** PRVEC                        ** DIAGNOSTICS                                      PAGE 02047
 75495  
 75496  
 75497  // VIF  THU 20 NOV 2025 22:21:23  ** PRVEC                        ** GENERATED CODE                                   PAGE 02048
 75498  
 75499  real_4 _prvec (int_4 _p_ m_, real_4 _p_ u_, real_4 _p_ v_)
 75500  { // ** body not listed **
 75510  }
 75511  
 75512  
 75513  // VIF  THU 20 NOV 2025 22:21:23  ** PRWPGE                       ** PRWPGE                                           PAGE 02049
 75514  
 75515  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 75516  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 75517  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 75518  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 75519  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 75520  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 75521  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 75522  
 75523  //                                   PPPPPP  RRRRRR  W     W PPPPPP   GGGGG  EEEEEEE
 75524  //                                   P     P R     R W     W P     P G     G E
 75525  //                                   P     P R     R W     W P     P G       E
 75526  //                                   PPPPPP  RRRRRR  W  W  W PPPPPP  G  GGGG EEEEE
 75527  //                                   P       R   R   W  W  W P       G     G E
 75528  //                                   P       R    R  W  W  W P       G     G E
 75529  //                                   P       R     R  WW WW  P        GGGGG  EEEEEEE
 75530  
 75531  
 75532  // VIF  THU 20 NOV 2025 22:21:23  ** PRWPGE                       ** DIAGNOSTICS                                      PAGE 02050
 75533  
 75534  
 75535  // VIF  THU 20 NOV 2025 22:21:23  ** PRWPGE                       ** GENERATED CODE                                   PAGE 02051
 75536  
 75537  int_4 _prwpge (int_4 _p_ key_, int_4 _p_ ipage_, int_4 _p_ lpg_, real_4 _p_ sx_, int_4 _p_ ix_)
 75538  { // ** body not listed **
 75558  }
 75559  
 75560  // VIF  THU 20 NOV 2025 22:21:23  ** PRWVIR                       ** PRWVIR                                           PAGE 02052
 75561  
 75562  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 75563  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 75564  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 75565  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 75566  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 75567  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 75568  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 75569  
 75570  //                                   PPPPPP  RRRRRR  W     W V     V   III   RRRRRR
 75571  //                                   P     P R     R W     W V     V    I    R     R
 75572  //                                   P     P R     R W     W V     V    I    R     R
 75573  //                                   PPPPPP  RRRRRR  W  W  W V     V    I    RRRRRR
 75574  //                                   P       R   R   W  W  W  V   V     I    R   R
 75575  //                                   P       R    R  W  W  W   V V      I    R    R
 75576  //                                   P       R     R  WW WW     V      III   R     R
 75577  
 75578  
 75579  // VIF  THU 20 NOV 2025 22:21:23  ** PRWVIR                       ** DIAGNOSTICS                                      PAGE 02053
 75580  
 75581  
 75582  // VIF  THU 20 NOV 2025 22:21:23  ** PRWVIR                       ** GENERATED CODE                                   PAGE 02054
 75583  
 75584  int_4 _prwvir (int_4 _p_ key_, int_4 _p_ ipage_, int_4 _p_ lpg_, real_4 _p_ sx_, int_4 _p_ ix_)
 75585  { // ** body not listed **
 75632  }
 75633  
 75634  // VIF  THU 20 NOV 2025 22:21:23  ** PSGF                         ** PSGF                                             PAGE 02055
 75635  
 75636  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 75637  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 75638  //                           F       U     U N N   N C          T       I    O     O N N   N
 75639  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 75640  //                           F       U     U N   N N C          T       I    O     O N   N N
 75641  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 75642  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 75643  
 75644  //                                           PPPPPP   SSSSS   GGGGG  FFFFFFF
 75645  //                                           P     P S     S G     G F
 75646  //                                           P     P S       G       F
 75647  //                                           PPPPPP   SSSSS  G  GGGG FFFFF
 75648  //                                           P             S G     G F
 75649  //                                           P       S     S G     G F
 75650  //                                           P        SSSSS   GGGGG  F
 75651  
 75652  
 75653  // VIF  THU 20 NOV 2025 22:21:23  ** PSGF                         ** DIAGNOSTICS                                      PAGE 02056
 75654  
 75655  
 75656  // VIF  THU 20 NOV 2025 22:21:23  ** PSGF                         ** GENERATED CODE                                   PAGE 02057
 75657  
 75658  real_4 _psgf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_)
 75659  { // ** body not listed **
 75686  }
 75687  
 75688  
 75689  // VIF  THU 20 NOV 2025 22:21:23  ** PSIFN                        ** PSIFN                                            PAGE 02058
 75690  
 75691  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 75692  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 75693  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 75694  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 75695  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 75696  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 75697  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 75698  
 75699  //                                       PPPPPP   SSSSS    III   FFFFFFF N     N
 75700  //                                       P     P S     S    I    F       NN    N
 75701  //                                       P     P S          I    F       N N   N
 75702  //                                       PPPPPP   SSSSS     I    FFFFF   N  N  N
 75703  //                                       P             S    I    F       N   N N
 75704  //                                       P       S     S    I    F       N    NN
 75705  //                                       P        SSSSS    III   F       N     N
 75706  
 75707  
 75708  // VIF  THU 20 NOV 2025 22:21:23  ** PSIFN                        ** DIAGNOSTICS                                      PAGE 02059
 75709  
 75710  
 75711  // VIF  THU 20 NOV 2025 22:21:23  ** PSIFN                        ** GENERATED CODE                                   PAGE 02060
 75712  
 75713  int_4 _psifn (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_4 _p_ ans_, int_4 _p_ nz_, int_4 _p_ 
 75714  ierr_)
 75715  { // ** body not listed **
 76165  }
 76166  
 76167  // VIF  THU 20 NOV 2025 22:21:23  ** PSIXN                        ** PSIXN                                            PAGE 02069
 76168  
 76169  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 76170  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 76171  //                           F       U     U N N   N C          T       I    O     O N N   N
 76172  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 76173  //                           F       U     U N   N N C          T       I    O     O N   N N
 76174  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 76175  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 76176  
 76177  //                                       PPPPPP   SSSSS    III   X     X N     N
 76178  //                                       P     P S     S    I     X   X  NN    N
 76179  //                                       P     P S          I      X X   N N   N
 76180  //                                       PPPPPP   SSSSS     I       X    N  N  N
 76181  //                                       P             S    I      X X   N   N N
 76182  //                                       P       S     S    I     X   X  N    NN
 76183  //                                       P        SSSSS    III   X     X N     N
 76184  
 76185  
 76186  // VIF  THU 20 NOV 2025 22:21:23  ** PSIXN                        ** DIAGNOSTICS                                      PAGE 02070
 76187  
 76188  
 76189  // VIF  THU 20 NOV 2025 22:21:23  ** PSIXN                        ** GENERATED CODE                                   PAGE 02071
 76190  
 76191  real_4 _psixn (int_4 _p_ n_)
 76192  { // ** body not listed **
 76924  }
 76925  
 76926  
 76927  // VIF  THU 20 NOV 2025 22:21:23  ** PVALUE                       ** PVALUE                                           PAGE 02086
 76928  
 76929  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 76930  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 76931  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 76932  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 76933  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 76934  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 76935  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 76936  
 76937  //                                   PPPPPP  V     V    A    L       U     U EEEEEEE
 76938  //                                   P     P V     V   A A   L       U     U E
 76939  //                                   P     P V     V  A   A  L       U     U E
 76940  //                                   PPPPPP  V     V A     A L       U     U EEEEE
 76941  //                                   P        V   V  AAAAAAA L       U     U E
 76942  //                                   P         V V   A     A L       U     U E
 76943  //                                   P          V    A     A LLLLLLL  UUUUU  EEEEEEE
 76944  
 76945  
 76946  // VIF  THU 20 NOV 2025 22:21:23  ** PVALUE                       ** DIAGNOSTICS                                      PAGE 02087
 76947  
 76948  
 76949  // VIF  THU 20 NOV 2025 22:21:23  ** PVALUE                       ** GENERATED CODE                                   PAGE 02088
 76950  
 76951  int_4 _pvalue (int_4 _p_ l_, int_4 _p_ nder_, real_4 _p_ x_, real_4 _p_ yfit_, real_4 _p_ yp_, real_4 _p_ a_)
 76952  { // ** body not listed **
 77133  }
 77134  
 77135  // VIF  THU 20 NOV 2025 22:21:23  ** PYTHAG                       ** PYTHAG                                           PAGE 02092
 77136  
 77137  //                                   RRRRRR  EEEEEEE    A    L               4
 77138  //                                   R     R E         A A   L        *   *  4    4
 77139  //                                   R     R E        A   A  L         * *   4    4
 77140  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 77141  //                                   R   R   E       AAAAAAA L         * *        4
 77142  //                                   R    R  E       A     A L        *   *       4
 77143  //                                   R     R EEEEEEE A     A LLLLLLL              4
 77144  
 77145  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 77146  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 77147  //                           F       U     U N N   N C          T       I    O     O N N   N
 77148  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 77149  //                           F       U     U N   N N C          T       I    O     O N   N N
 77150  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 77151  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 77152  
 77153  //                                   PPPPPP  Y     Y TTTTTTT H     H    A     GGGGG
 77154  //                                   P     P  Y   Y     T    H     H   A A   G     G
 77155  //                                   P     P   Y Y      T    H     H  A   A  G
 77156  //                                   PPPPPP     Y       T    HHHHHHH A     A G  GGGG
 77157  //                                   P          Y       T    H     H AAAAAAA G     G
 77158  //                                   P          Y       T    H     H A     A G     G
 77159  //                                   P          Y       T    H     H A     A  GGGGG
 77160  
 77161  
 77162  // VIF  THU 20 NOV 2025 22:21:23  ** PYTHAG                       ** DIAGNOSTICS                                      PAGE 02093
 77163  
 77164  
 77165  // VIF  THU 20 NOV 2025 22:21:23  ** PYTHAG                       ** GENERATED CODE                                   PAGE 02094
 77166  
 77167  real_4 _pythag (real_4 _p_ a_, real_4 _p_ b_)
 77168  { // ** body not listed **
 77191  }
 77192  
 77193  // VIF  THU 20 NOV 2025 22:21:23  ** RC3JJ                        ** RC3JJ                                            PAGE 02095
 77194  
 77195  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 77196  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 77197  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 77198  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 77199  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 77200  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 77201  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 77202  
 77203  //                                       RRRRRR   CCCCC   33333        J       J
 77204  //                                       R     R C     C 3     3       J       J
 77205  //                                       R     R C             3       J       J
 77206  //                                       RRRRRR  C        33333        J       J
 77207  //                                       R   R   C             3 J     J J     J
 77208  //                                       R    R  C     C 3     3 J     J J     J
 77209  //                                       R     R  CCCCC   33333   JJJJJ   JJJJJ
 77210  
 77211  
 77212  // VIF  THU 20 NOV 2025 22:21:23  ** RC3JJ                        ** DIAGNOSTICS                                      PAGE 02096
 77213  
 77214  
 77215  // VIF  THU 20 NOV 2025 22:21:23  ** RC3JJ                        ** GENERATED CODE                                   PAGE 02097
 77216  
 77217  int_4 _rc3jj (real_4 _p_ l2_, real_4 _p_ l3_, real_4 _p_ m2_, real_4 _p_ m3_, real_4 _p_ l1min_, real_4 _p_ l1max_, 
 77218  real_4 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_)
 77219  { // ** body not listed **
 77513  }
 77514  
 77515  // VIF  THU 20 NOV 2025 22:21:23  ** RC3JM                        ** RC3JM                                            PAGE 02103
 77516  
 77517  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 77518  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 77519  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 77520  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 77521  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 77522  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 77523  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 77524  
 77525  //                                       RRRRRR   CCCCC   33333        J M     M
 77526  //                                       R     R C     C 3     3       J MM   MM
 77527  //                                       R     R C             3       J M M M M
 77528  //                                       RRRRRR  C        33333        J M  M  M
 77529  //                                       R   R   C             3 J     J M     M
 77530  //                                       R    R  C     C 3     3 J     J M     M
 77531  //                                       R     R  CCCCC   33333   JJJJJ  M     M
 77532  
 77533  
 77534  // VIF  THU 20 NOV 2025 22:21:23  ** RC3JM                        ** DIAGNOSTICS                                      PAGE 02104
 77535  
 77536  
 77537  // VIF  THU 20 NOV 2025 22:21:23  ** RC3JM                        ** GENERATED CODE                                   PAGE 02105
 77538  
 77539  int_4 _rc3jm (real_4 _p_ l1_, real_4 _p_ l2_, real_4 _p_ l3_, real_4 _p_ m1_, real_4 _p_ m2min_, real_4 _p_ m2max_, 
 77540  real_4 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_)
 77541  { // ** body not listed **
 77826  }
 77827  
 77828  // VIF  THU 20 NOV 2025 22:21:23  ** RC6J                         ** RC6J                                             PAGE 02111
 77829  
 77830  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 77831  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 77832  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 77833  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 77834  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 77835  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 77836  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 77837  
 77838  //                                           RRRRRR   CCCCC   66666        J
 77839  //                                           R     R C     C 6     6       J
 77840  //                                           R     R C       6             J
 77841  //                                           RRRRRR  C       666666        J
 77842  //                                           R   R   C       6     6 J     J
 77843  //                                           R    R  C     C 6     6 J     J
 77844  //                                           R     R  CCCCC   66666   JJJJJ
 77845  
 77846  
 77847  // VIF  THU 20 NOV 2025 22:21:23  ** RC6J                         ** DIAGNOSTICS                                      PAGE 02112
 77848  
 77849  
 77850  // VIF  THU 20 NOV 2025 22:21:23  ** RC6J                         ** GENERATED CODE                                   PAGE 02113
 77851  
 77852  int_4 _rc6j (real_4 _p_ l2_, real_4 _p_ l3_, real_4 _p_ l4_, real_4 _p_ l5_, real_4 _p_ l6_, real_4 _p_ l1min_, real_4 
 77853  _p_ l1max_, real_4 _p_ sixcof_, int_4 _p_ ndim_, int_4 _p_ ier_)
 77854  { // ** body not listed **
 78165  }
 78166  
 78167  // VIF  THU 20 NOV 2025 22:21:23  ** RC                           ** RC                                               PAGE 02120
 78168  
 78169  //                                   RRRRRR  EEEEEEE    A    L               4
 78170  //                                   R     R E         A A   L        *   *  4    4
 78171  //                                   R     R E        A   A  L         * *   4    4
 78172  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 78173  //                                   R   R   E       AAAAAAA L         * *        4
 78174  //                                   R    R  E       A     A L        *   *       4
 78175  //                                   R     R EEEEEEE A     A LLLLLLL              4
 78176  
 78177  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 78178  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 78179  //                           F       U     U N N   N C          T       I    O     O N N   N
 78180  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 78181  //                           F       U     U N   N N C          T       I    O     O N   N N
 78182  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 78183  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 78184  
 78185  //                                                   RRRRRR   CCCCC
 78186  //                                                   R     R C     C
 78187  //                                                   R     R C
 78188  //                                                   RRRRRR  C
 78189  //                                                   R   R   C
 78190  //                                                   R    R  C     C
 78191  //                                                   R     R  CCCCC
 78192  
 78193  
 78194  // VIF  THU 20 NOV 2025 22:21:23  ** RC                           ** DIAGNOSTICS                                      PAGE 02121
 78195  
 78196  
 78197  // VIF  THU 20 NOV 2025 22:21:23  ** RC                           ** GENERATED CODE                                   PAGE 02122
 78198  
 78199  real_4 _rc (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ ier_)
 78200  { // ** body not listed **
 78596  }
 78597  
 78598  // VIF  THU 20 NOV 2025 22:21:23  ** RD                           ** RD                                               PAGE 02130
 78599  
 78600  //                                   RRRRRR  EEEEEEE    A    L               4
 78601  //                                   R     R E         A A   L        *   *  4    4
 78602  //                                   R     R E        A   A  L         * *   4    4
 78603  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 78604  //                                   R   R   E       AAAAAAA L         * *        4
 78605  //                                   R    R  E       A     A L        *   *       4
 78606  //                                   R     R EEEEEEE A     A LLLLLLL              4
 78607  
 78608  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 78609  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 78610  //                           F       U     U N N   N C          T       I    O     O N N   N
 78611  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 78612  //                           F       U     U N   N N C          T       I    O     O N   N N
 78613  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 78614  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 78615  
 78616  //                                                   RRRRRR  DDDDDD
 78617  //                                                   R     R D     D
 78618  //                                                   R     R D     D
 78619  //                                                   RRRRRR  D     D
 78620  //                                                   R   R   D     D
 78621  //                                                   R    R  D     D
 78622  //                                                   R     R DDDDDD
 78623  
 78624  
 78625  // VIF  THU 20 NOV 2025 22:21:23  ** RD                           ** DIAGNOSTICS                                      PAGE 02131
 78626  
 78627  
 78628  // VIF  THU 20 NOV 2025 22:21:23  ** RD                           ** GENERATED CODE                                   PAGE 02132
 78629  
 78630  real_4 _rd (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ z_, int_4 _p_ ier_)
 78631  { // ** body not listed **
 79137  }
 79138  
 79139  // VIF  THU 20 NOV 2025 22:21:23  ** REORT                        ** REORT                                            PAGE 02142
 79140  
 79141  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 79142  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 79143  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 79144  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 79145  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 79146  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 79147  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 79148  
 79149  //                                       RRRRRR  EEEEEEE  OOOOO  RRRRRR  TTTTTTT
 79150  //                                       R     R E       O     O R     R    T
 79151  //                                       R     R E       O     O R     R    T
 79152  //                                       RRRRRR  EEEEE   O     O RRRRRR     T
 79153  //                                       R   R   E       O     O R   R      T
 79154  //                                       R    R  E       O     O R    R     T
 79155  //                                       R     R EEEEEEE  OOOOO  R     R    T
 79156  
 79157  
 79158  // VIF  THU 20 NOV 2025 22:21:23  ** REORT                        ** DIAGNOSTICS                                      PAGE 02143
 79159  
 79160  
 79161  // VIF  THU 20 NOV 2025 22:21:23  ** REORT                        ** GENERATED CODE                                   PAGE 02144
 79162  
 79163  int_4 _reort (int_4 _p_ ncomp_, real_4 _p_ y_, real_4 _p_ yp_, real_4 _p_ yhp_, int_4 _p_ niv_, real_4 _p_ w_, real_4 
 79164  _p_ s_, real_4 _p_ p_, int_4 _p_ ip_, real_4 _p_ stowa_, int_4 _p_ iflag_)
 79165  { // ** body not listed **
 79299  }
 79300  
 79301  // VIF  THU 20 NOV 2025 22:21:23  ** RF                           ** RF                                               PAGE 02147
 79302  
 79303  //                                   RRRRRR  EEEEEEE    A    L               4
 79304  //                                   R     R E         A A   L        *   *  4    4
 79305  //                                   R     R E        A   A  L         * *   4    4
 79306  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 79307  //                                   R   R   E       AAAAAAA L         * *        4
 79308  //                                   R    R  E       A     A L        *   *       4
 79309  //                                   R     R EEEEEEE A     A LLLLLLL              4
 79310  
 79311  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 79312  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 79313  //                           F       U     U N N   N C          T       I    O     O N N   N
 79314  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 79315  //                           F       U     U N   N N C          T       I    O     O N   N N
 79316  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 79317  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 79318  
 79319  //                                                   RRRRRR  FFFFFFF
 79320  //                                                   R     R F
 79321  //                                                   R     R F
 79322  //                                                   RRRRRR  FFFFF
 79323  //                                                   R   R   F
 79324  //                                                   R    R  F
 79325  //                                                   R     R F
 79326  
 79327  
 79328  // VIF  THU 20 NOV 2025 22:21:23  ** RF                           ** DIAGNOSTICS                                      PAGE 02148
 79329  
 79330  
 79331  // VIF  THU 20 NOV 2025 22:21:23  ** RF                           ** GENERATED CODE                                   PAGE 02149
 79332  
 79333  real_4 _rf (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ z_, int_4 _p_ ier_)
 79334  { // ** body not listed **
 79870  }
 79871  
 79872  // VIF  THU 20 NOV 2025 22:21:23  ** RJ                           ** RJ                                               PAGE 02160
 79873  
 79874  //                                   RRRRRR  EEEEEEE    A    L               4
 79875  //                                   R     R E         A A   L        *   *  4    4
 79876  //                                   R     R E        A   A  L         * *   4    4
 79877  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 79878  //                                   R   R   E       AAAAAAA L         * *        4
 79879  //                                   R    R  E       A     A L        *   *       4
 79880  //                                   R     R EEEEEEE A     A LLLLLLL              4
 79881  
 79882  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 79883  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 79884  //                           F       U     U N N   N C          T       I    O     O N N   N
 79885  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 79886  //                           F       U     U N   N N C          T       I    O     O N   N N
 79887  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 79888  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 79889  
 79890  //                                                   RRRRRR        J
 79891  //                                                   R     R       J
 79892  //                                                   R     R       J
 79893  //                                                   RRRRRR        J
 79894  //                                                   R   R   J     J
 79895  //                                                   R    R  J     J
 79896  //                                                   R     R  JJJJJ
 79897  
 79898  
 79899  // VIF  THU 20 NOV 2025 22:21:23  ** RJ                           ** DIAGNOSTICS                                      PAGE 02161
 79900  
 79901  
 79902  // VIF  THU 20 NOV 2025 22:21:23  ** RJ                           ** GENERATED CODE                                   PAGE 02162
 79903  
 79904  real_4 _rj (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ z_, real_4 _p_ p_, int_4 _p_ ier_)
 79905  { // ** body not listed **
 80539  }
 80540  
 80541  // VIF  THU 20 NOV 2025 22:21:23  ** RPQR79                       ** RPQR79                                           PAGE 02175
 80542  
 80543  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 80544  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 80545  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 80546  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 80547  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 80548  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 80549  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 80550  
 80551  //                                   RRRRRR  PPPPPP   QQQQQ  RRRRRR  7777777  99999
 80552  //                                   R     R P     P Q     Q R     R 7    7  9     9
 80553  //                                   R     R P     P Q     Q R     R     7   9     9
 80554  //                                   RRRRRR  PPPPPP  Q     Q RRRRRR     7     999999
 80555  //                                   R   R   P       Q   Q Q R   R     7           9
 80556  //                                   R    R  P       Q    Q  R    R    7     9     9
 80557  //                                   R     R P        QQQQ Q R     R   7      99999
 80558  
 80559  
 80560  // VIF  THU 20 NOV 2025 22:21:23  ** RPQR79                       ** DIAGNOSTICS                                      PAGE 02176
 80561  
 80562  
 80563  // VIF  THU 20 NOV 2025 22:21:23  ** RPQR79                       ** GENERATED CODE                                   PAGE 02177
 80564  
 80565  int_4 _rpqr79 (int_4 _p_ ndeg_, real_4 _p_ coeff_, complex_8 _p_ root_, int_4 _p_ ierr_, real_4 _p_ work_)
 80566  { // ** body not listed **
 80613  }
 80614  
 80615  // VIF  THU 20 NOV 2025 22:21:23  ** RPZERO                       ** RPZERO                                           PAGE 02178
 80616  
 80617  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 80618  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 80619  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 80620  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 80621  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 80622  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 80623  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 80624  
 80625  //                                   RRRRRR  PPPPPP  ZZZZZZZ EEEEEEE RRRRRR   OOOOO
 80626  //                                   R     R P     P      Z  E       R     R O     O
 80627  //                                   R     R P     P     Z   E       R     R O     O
 80628  //                                   RRRRRR  PPPPPP     Z    EEEEE   RRRRRR  O     O
 80629  //                                   R   R   P         Z     E       R   R   O     O
 80630  //                                   R    R  P        *      E       R    R  O     O
 80631  //                                   R     R P       ZZZZZZZ EEEEEEE R     R  OOOOO
 80632  
 80633  
 80634  // VIF  THU 20 NOV 2025 22:21:23  ** RPZERO                       ** DIAGNOSTICS                                      PAGE 02179
 80635  
 80636  
 80637  // VIF  THU 20 NOV 2025 22:21:23  ** RPZERO                       ** GENERATED CODE                                   PAGE 02180
 80638  
 80639  int_4 _rpzero (int_4 _p_ n_, real_4 _p_ a_, complex_8 _p_ r_, complex_8 _p_ t_, int_4 _p_ iflg_, real_4 _p_ s_)
 80640  { // ** body not listed **
 80649  }
 80650  
 80651  // VIF  THU 20 NOV 2025 22:21:23  ** S1MERG                       ** S1MERG                                           PAGE 02181
 80652  
 80653  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 80654  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 80655  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 80656  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 80657  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 80658  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 80659  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 80660  
 80661  //                                    SSSSS     1    M     M EEEEEEE RRRRRR   GGGGG
 80662  //                                   S     S   11    MM   MM E       R     R G     G
 80663  //                                   S        1 1    M M M M E       R     R G
 80664  //                                    SSSSS     1    M  M  M EEEEE   RRRRRR  G  GGGG
 80665  //                                         S    1    M     M E       R   R   G     G
 80666  //                                   S     S    1    M     M E       R    R  G     G
 80667  //                                    SSSSS   11111  M     M EEEEEEE R     R  GGGGG
 80668  
 80669  
 80670  // VIF  THU 20 NOV 2025 22:21:23  ** S1MERG                       ** DIAGNOSTICS                                      PAGE 02182
 80671  
 80672  
 80673  // VIF  THU 20 NOV 2025 22:21:23  ** S1MERG                       ** GENERATED CODE                                   PAGE 02183
 80674  
 80675  int_4 _s1merg (real_4 _p_ tcos_, int_4 _p_ i1_, int_4 _p_ m1_, int_4 _p_ i2_, int_4 _p_ m2_, int_4 _p_ i3_)
 80676  { // ** body not listed **
 80715  }
 80716  
 80717  // VIF  THU 20 NOV 2025 22:21:23  ** SBOCLS                       ** SBOCLS                                           PAGE 02184
 80718  
 80719  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 80720  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 80721  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 80722  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 80723  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 80724  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 80725  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 80726  
 80727  //                                    SSSSS  BBBBBB   OOOOO   CCCCC  L        SSSSS
 80728  //                                   S     S B     B O     O C     C L       S     S
 80729  //                                   S       B     B O     O C       L       S
 80730  //                                    SSSSS  BBBBBB  O     O C       L        SSSSS
 80731  //                                         S B     B O     O C       L             S
 80732  //                                   S     S B     B O     O C     C L       S     S
 80733  //                                    SSSSS  BBBBBB   OOOOO   CCCCC  LLLLLLL  SSSSS
 80734  
 80735  
 80736  // VIF  THU 20 NOV 2025 22:21:23  ** SBOCLS                       ** DIAGNOSTICS                                      PAGE 02185
 80737  
 80738  
 80739  // VIF  THU 20 NOV 2025 22:21:23  ** SBOCLS                       ** GENERATED CODE                                   PAGE 02186
 80740  
 80741  int_4 _sbocls (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mcon_, int_4 _p_ mrows_, int_4 _p_ ncols_, real_4 _p_ bl_, 
 80742  real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_4 _p_ x_, real_4 _p_ rnormc_, real_4 _p_ rnorm_, int_4 _p_ mode_, 
 80743  real_4 _p_ rw_, int_4 _p_ iw_)
 80744  { // ** body not listed **
 82361  }
 82362  
 82363  // VIF  THU 20 NOV 2025 22:21:23  ** SBOLS                        ** SBOLS                                            PAGE 02218
 82364  
 82365  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 82366  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 82367  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 82368  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 82369  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 82370  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 82371  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 82372  
 82373  //                                        SSSSS  BBBBBB   OOOOO  L        SSSSS
 82374  //                                       S     S B     B O     O L       S     S
 82375  //                                       S       B     B O     O L       S
 82376  //                                        SSSSS  BBBBBB  O     O L        SSSSS
 82377  //                                             S B     B O     O L             S
 82378  //                                       S     S B     B O     O L       S     S
 82379  //                                        SSSSS  BBBBBB   OOOOO  LLLLLLL  SSSSS
 82380  
 82381  
 82382  // VIF  THU 20 NOV 2025 22:21:23  ** SBOLS                        ** DIAGNOSTICS                                      PAGE 02219
 82383  
 82384  
 82385  // VIF  THU 20 NOV 2025 22:21:23  ** SBOLS                        ** GENERATED CODE                                   PAGE 02220
 82386  
 82387  int_4 _sbols (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mrows_, int_4 _p_ ncols_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 
 82388  _p_ ind_, int_4 _p_ iopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, real_4 _p_ rw_, int_4 _p_ iw_)
 82389  { // ** body not listed **
 83805  }
 83806  
 83807  // VIF  THU 20 NOV 2025 22:21:23  ** SBOLSM                       ** SBOLSM                                           PAGE 02248
 83808  
 83809  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 83810  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 83811  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 83812  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 83813  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 83814  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 83815  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 83816  
 83817  //                                    SSSSS  BBBBBB   OOOOO  L        SSSSS  M     M
 83818  //                                   S     S B     B O     O L       S     S MM   MM
 83819  //                                   S       B     B O     O L       S       M M M M
 83820  //                                    SSSSS  BBBBBB  O     O L        SSSSS  M  M  M
 83821  //                                         S B     B O     O L             S M     M
 83822  //                                   S     S B     B O     O L       S     S M     M
 83823  //                                    SSSSS  BBBBBB   OOOOO  LLLLLLL  SSSSS  M     M
 83824  
 83825  
 83826  // VIF  THU 20 NOV 2025 22:21:23  ** SBOLSM                       ** DIAGNOSTICS                                      PAGE 02249
 83827  
 83828  
 83829  // VIF  THU 20 NOV 2025 22:21:23  ** SBOLSM                       ** GENERATED CODE                                   PAGE 02250
 83830  
 83831  int_4 _sbolsm (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ minput_, int_4 _p_ ncols_, real_4 _p_ bl_, real_4 _p_ bu_, 
 83832  int_4 _p_ ind_, int_4 _p_ iopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, real_4 _p_ rw_, real_4 _p_ ww_, 
 83833  real_4 _p_ scl_, int_4 _p_ ibasis_, int_4 _p_ ibb_)
 83834  { // ** body not listed **
 85648  }
 85649  // VIF  THU 20 NOV 2025 22:21:23  ** SBOLSM                       ** GENERATED CODE                                   PAGE 02285
 85650  
 85651  
 85652  // VIF  THU 20 NOV 2025 22:21:23  ** SCLOSM                       ** SCLOSM                                           PAGE 02286
 85653  
 85654  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 85655  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 85656  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 85657  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 85658  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 85659  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 85660  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 85661  
 85662  //                                    SSSSS   CCCCC  L        OOOOO   SSSSS  M     M
 85663  //                                   S     S C     C L       O     O S     S MM   MM
 85664  //                                   S       C       L       O     O S       M M M M
 85665  //                                    SSSSS  C       L       O     O  SSSSS  M  M  M
 85666  //                                         S C       L       O     O       S M     M
 85667  //                                   S     S C     C L       O     O S     S M     M
 85668  //                                    SSSSS   CCCCC  LLLLLLL  OOOOO   SSSSS  M     M
 85669  
 85670  
 85671  // VIF  THU 20 NOV 2025 22:21:23  ** SCLOSM                       ** DIAGNOSTICS                                      PAGE 02287
 85672  
 85673  
 85674  // VIF  THU 20 NOV 2025 22:21:23  ** SCLOSM                       ** GENERATED CODE                                   PAGE 02288
 85675  
 85676  int_4 _sclosm (int_4 _p_ ipage_)
 85677  { // ** body not listed **
 85738  }
 85739  
 85740  // VIF  THU 20 NOV 2025 22:21:23  ** SCOEF                        ** SCOEF                                            PAGE 02290
 85741  
 85742  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 85743  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 85744  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 85745  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 85746  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 85747  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 85748  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 85749  
 85750  //                                        SSSSS   CCCCC   OOOOO  EEEEEEE FFFFFFF
 85751  //                                       S     S C     C O     O E       F
 85752  //                                       S       C       O     O E       F
 85753  //                                        SSSSS  C       O     O EEEEE   FFFFF
 85754  //                                             S C       O     O E       F
 85755  //                                       S     S C     C O     O E       F
 85756  //                                        SSSSS   CCCCC   OOOOO  EEEEEEE F
 85757  
 85758  
 85759  // VIF  THU 20 NOV 2025 22:21:23  ** SCOEF                        ** DIAGNOSTICS                                      PAGE 02291
 85760  
 85761  
 85762  // VIF  THU 20 NOV 2025 22:21:23  ** SCOEF                        ** GENERATED CODE                                   PAGE 02292
 85763  
 85764  int_4 _scoef (real_4 _p_ yh_, real_4 _p_ yp_, int_4 _p_ ncomp_, int_4 _p_ nrowb_, int_4 _p_ nfc_, int_4 _p_ nic_, 
 85765  real_4 _p_ b_, real_4 _p_ beta_, real_4 _p_ coef_, int_4 _p_ inhomo_, real_4 _p_ re_, real_4 _p_ ae_, real_4 _p_ by_, 
 85766  real_4 _p_ cvec_, real_4 _p_ work_, int_4 _p_ iwork_, int_4 _p_ iflag_, int_4 _p_ nfcc_)
 85767  { // ** body not listed **
 85902  }
 85903  
 85904  // VIF  THU 20 NOV 2025 22:21:23  ** SCOV                         ** SCOV                                             PAGE 02295
 85905  
 85906  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 85907  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 85908  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 85909  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 85910  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 85911  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 85912  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 85913  
 85914  //                                            SSSSS   CCCCC   OOOOO  V     V
 85915  //                                           S     S C     C O     O V     V
 85916  //                                           S       C       O     O V     V
 85917  //                                            SSSSS  C       O     O V     V
 85918  //                                                 S C       O     O  V   V
 85919  //                                           S     S C     C O     O   V V
 85920  //                                            SSSSS   CCCCC   OOOOO     V
 85921  
 85922  
 85923  // VIF  THU 20 NOV 2025 22:21:23  ** SCOV                         ** DIAGNOSTICS                                      PAGE 02296
 85924  
 85925  
 85926  // VIF  THU 20 NOV 2025 22:21:23  ** SCOV                         ** GENERATED CODE                                   PAGE 02297
 85927  
 85928  int_4 _scov (int_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 _p_ 
 85929  r_, int_4 _p_ ldr_, int_4 _p_ info_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
 85930  { // ** body not listed **
 86076  }
 86077  
 86078  // VIF  THU 20 NOV 2025 22:21:23  ** SGEEV                        ** SGEEV                                            PAGE 02300
 86079  
 86080  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 86081  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 86082  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 86083  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 86084  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 86085  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 86086  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 86087  
 86088  //                                        SSSSS   GGGGG  EEEEEEE EEEEEEE V     V
 86089  //                                       S     S G     G E       E       V     V
 86090  //                                       S       G       E       E       V     V
 86091  //                                        SSSSS  G  GGGG EEEEE   EEEEE   V     V
 86092  //                                             S G     G E       E        V   V
 86093  //                                       S     S G     G E       E         V V
 86094  //                                        SSSSS   GGGGG  EEEEEEE EEEEEEE    V
 86095  
 86096  
 86097  // VIF  THU 20 NOV 2025 22:21:23  ** SGEEV                        ** DIAGNOSTICS                                      PAGE 02301
 86098  
 86099  
 86100  // VIF  THU 20 NOV 2025 22:21:23  ** SGEEV                        ** GENERATED CODE                                   PAGE 02302
 86101  
 86102  int_4 _sgeev (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ 
 86103  work_, int_4 _p_ job_, int_4 _p_ info_)
 86104  { // ** body not listed **
 86211  }
 86212  
 86213  // VIF  THU 20 NOV 2025 22:21:23  ** SGEFS                        ** SGEFS                                            PAGE 02305
 86214  
 86215  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 86216  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 86217  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 86218  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 86219  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 86220  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 86221  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 86222  
 86223  //                                        SSSSS   GGGGG  EEEEEEE FFFFFFF  SSSSS
 86224  //                                       S     S G     G E       F       S     S
 86225  //                                       S       G       E       F       S
 86226  //                                        SSSSS  G  GGGG EEEEE   FFFFF    SSSSS
 86227  //                                             S G     G E       F             S
 86228  //                                       S     S G     G E       F       S     S
 86229  //                                        SSSSS   GGGGG  EEEEEEE F        SSSSS
 86230  
 86231  
 86232  // VIF  THU 20 NOV 2025 22:21:23  ** SGEFS                        ** DIAGNOSTICS                                      PAGE 02306
 86233  
 86234  
 86235  // VIF  THU 20 NOV 2025 22:21:23  ** SGEFS                        ** GENERATED CODE                                   PAGE 02307
 86236  
 86237  int_4 _sgefs (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, real_4 _p_ 
 86238  work_, int_4 _p_ iwork_)
 86239  { // ** body not listed **
 86440  }
 86441  
 86442  // VIF  THU 20 NOV 2025 22:21:23  ** SGEIR                        ** SGEIR                                            PAGE 02311
 86443  
 86444  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 86445  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 86446  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 86447  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 86448  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 86449  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 86450  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 86451  
 86452  //                                        SSSSS   GGGGG  EEEEEEE   III   RRRRRR
 86453  //                                       S     S G     G E          I    R     R
 86454  //                                       S       G       E          I    R     R
 86455  //                                        SSSSS  G  GGGG EEEEE      I    RRRRRR
 86456  //                                             S G     G E          I    R   R
 86457  //                                       S     S G     G E          I    R    R
 86458  //                                        SSSSS   GGGGG  EEEEEEE   III   R     R
 86459  
 86460  
 86461  // VIF  THU 20 NOV 2025 22:21:23  ** SGEIR                        ** DIAGNOSTICS                                      PAGE 02312
 86462  
 86463  
 86464  // VIF  THU 20 NOV 2025 22:21:23  ** SGEIR                        ** GENERATED CODE                                   PAGE 02313
 86465  
 86466  int_4 _sgeir (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, real_4 _p_ 
 86467  work_, int_4 _p_ iwork_)
 86468  { // ** body not listed **
 86690  }
 86691  
 86692  // VIF  THU 20 NOV 2025 22:21:23  ** SGLSS                        ** SGLSS                                            PAGE 02318
 86693  
 86694  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 86695  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 86696  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 86697  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 86698  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 86699  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 86700  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 86701  
 86702  //                                        SSSSS   GGGGG  L        SSSSS   SSSSS
 86703  //                                       S     S G     G L       S     S S     S
 86704  //                                       S       G       L       S       S
 86705  //                                        SSSSS  G  GGGG L        SSSSS   SSSSS
 86706  //                                             S G     G L             S       S
 86707  //                                       S     S G     G L       S     S S     S
 86708  //                                        SSSSS   GGGGG  LLLLLLL  SSSSS   SSSSS
 86709  
 86710  
 86711  // VIF  THU 20 NOV 2025 22:21:23  ** SGLSS                        ** DIAGNOSTICS                                      PAGE 02319
 86712  
 86713  
 86714  // VIF  THU 20 NOV 2025 22:21:23  ** SGLSS                        ** GENERATED CODE                                   PAGE 02320
 86715  
 86716  int_4 _sglss (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 86717  real_4 _p_ rnorm_, real_4 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_)
 86718  { // ** body not listed **
 86746  }
 86747  
 86748  // VIF  THU 20 NOV 2025 22:21:23  ** SNBCO                        ** SNBCO                                            PAGE 02321
 86749  
 86750  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 86751  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 86752  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 86753  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 86754  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 86755  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 86756  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 86757  
 86758  //                                        SSSSS  N     N BBBBBB   CCCCC   OOOOO
 86759  //                                       S     S NN    N B     B C     C O     O
 86760  //                                       S       N N   N B     B C       O     O
 86761  //                                        SSSSS  N  N  N BBBBBB  C       O     O
 86762  //                                             S N   N N B     B C       O     O
 86763  //                                       S     S N    NN B     B C     C O     O
 86764  //                                        SSSSS  N     N BBBBBB   CCCCC   OOOOO
 86765  
 86766  
 86767  // VIF  THU 20 NOV 2025 22:21:23  ** SNBCO                        ** DIAGNOSTICS                                      PAGE 02322
 86768  
 86769  
 86770  // VIF  THU 20 NOV 2025 22:21:23  ** SNBCO                        ** GENERATED CODE                                   PAGE 02323
 86771  
 86772  int_4 _snbco (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 _p_ 
 86773  rcond_, real_4 _p_ z_)
 86774  { // ** body not listed **
 86929  }
 86930  
 86931  // VIF  THU 20 NOV 2025 22:21:23  ** SNBDI                        ** SNBDI                                            PAGE 02327
 86932  
 86933  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 86934  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 86935  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 86936  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 86937  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 86938  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 86939  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 86940  
 86941  //                                         SSSSS  N     N BBBBBB  DDDDDD    III
 86942  //                                        S     S NN    N B     B D     D    I
 86943  //                                        S       N N   N B     B D     D    I
 86944  //                                         SSSSS  N  N  N BBBBBB  D     D    I
 86945  //                                              S N   N N B     B D     D    I
 86946  //                                        S     S N    NN B     B D     D    I
 86947  //                                         SSSSS  N     N BBBBBB  DDDDDD    III
 86948  
 86949  
 86950  // VIF  THU 20 NOV 2025 22:21:23  ** SNBDI                        ** DIAGNOSTICS                                      PAGE 02328
 86951  
 86952  
 86953  // VIF  THU 20 NOV 2025 22:21:23  ** SNBDI                        ** GENERATED CODE                                   PAGE 02329
 86954  
 86955  int_4 _snbdi (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 _p_ 
 86956  det_)
 86957  { // ** body not listed **
 86991  }
 86992  
 86993  // VIF  THU 20 NOV 2025 22:21:23  ** SNBFA                        ** SNBFA                                            PAGE 02330
 86994  
 86995  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 86996  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 86997  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 86998  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 86999  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 87000  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 87001  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 87002  
 87003  //                                        SSSSS  N     N BBBBBB  FFFFFFF    A
 87004  //                                       S     S NN    N B     B F         A A
 87005  //                                       S       N N   N B     B F        A   A
 87006  //                                        SSSSS  N  N  N BBBBBB  FFFFF   A     A
 87007  //                                             S N   N N B     B F       AAAAAAA
 87008  //                                       S     S N    NN B     B F       A     A
 87009  //                                        SSSSS  N     N BBBBBB  F       A     A
 87010  
 87011  
 87012  // VIF  THU 20 NOV 2025 22:21:23  ** SNBFA                        ** DIAGNOSTICS                                      PAGE 02331
 87013  
 87014  
 87015  // VIF  THU 20 NOV 2025 22:21:23  ** SNBFA                        ** GENERATED CODE                                   PAGE 02332
 87016  
 87017  int_4 _snbfa (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4 _p_ 
 87018  info_)
 87019  { // ** body not listed **
 87076  }
 87077  
 87078  // VIF  THU 20 NOV 2025 22:21:23  ** SNBFS                        ** SNBFS                                            PAGE 02334
 87079  
 87080  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 87081  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 87082  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 87083  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 87084  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 87085  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 87086  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 87087  
 87088  //                                        SSSSS  N     N BBBBBB  FFFFFFF  SSSSS
 87089  //                                       S     S NN    N B     B F       S     S
 87090  //                                       S       N N   N B     B F       S
 87091  //                                        SSSSS  N  N  N BBBBBB  FFFFF    SSSSS
 87092  //                                             S N   N N B     B F             S
 87093  //                                       S     S N    NN B     B F       S     S
 87094  //                                        SSSSS  N     N BBBBBB  F        SSSSS
 87095  
 87096  
 87097  // VIF  THU 20 NOV 2025 22:21:23  ** SNBFS                        ** DIAGNOSTICS                                      PAGE 02335
 87098  
 87099  
 87100  // VIF  THU 20 NOV 2025 22:21:23  ** SNBFS                        ** GENERATED CODE                                   PAGE 02336
 87101  
 87102  int_4 _snbfs (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, real_4 _p_ v_, int_4 _p_ 
 87103  itask_, int_4 _p_ ind_, real_4 _p_ work_, int_4 _p_ iwork_)
 87104  { // ** body not listed **
 87397  }
 87398  
 87399  // VIF  THU 20 NOV 2025 22:21:23  ** SNBIR                        ** SNBIR                                            PAGE 02342
 87400  
 87401  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 87402  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 87403  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 87404  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 87405  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 87406  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 87407  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 87408  
 87409  //                                        SSSSS  N     N BBBBBB    III   RRRRRR
 87410  //                                       S     S NN    N B     B    I    R     R
 87411  //                                       S       N N   N B     B    I    R     R
 87412  //                                        SSSSS  N  N  N BBBBBB     I    RRRRRR
 87413  //                                             S N   N N B     B    I    R   R
 87414  //                                       S     S N    NN B     B    I    R    R
 87415  //                                        SSSSS  N     N BBBBBB    III   R     R
 87416  
 87417  
 87418  // VIF  THU 20 NOV 2025 22:21:23  ** SNBIR                        ** DIAGNOSTICS                                      PAGE 02343
 87419  
 87420  
 87421  // VIF  THU 20 NOV 2025 22:21:23  ** SNBIR                        ** GENERATED CODE                                   PAGE 02344
 87422  
 87423  int_4 _snbir (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, real_4 _p_ v_, int_4 _p_ 
 87424  itask_, int_4 _p_ ind_, real_4 _p_ work_, int_4 _p_ iwork_)
 87425  { // ** body not listed **
 87744  }
 87745  
 87746  // VIF  THU 20 NOV 2025 22:21:23  ** SNBSL                        ** SNBSL                                            PAGE 02351
 87747  
 87748  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 87749  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 87750  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 87751  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 87752  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 87753  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 87754  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 87755  
 87756  //                                        SSSSS  N     N BBBBBB   SSSSS  L
 87757  //                                       S     S NN    N B     B S     S L
 87758  //                                       S       N N   N B     B S       L
 87759  //                                        SSSSS  N  N  N BBBBBB   SSSSS  L
 87760  //                                             S N   N N B     B       S L
 87761  //                                       S     S N    NN B     B S     S L
 87762  //                                        SSSSS  N     N BBBBBB   SSSSS  LLLLLLL
 87763  
 87764  
 87765  // VIF  THU 20 NOV 2025 22:21:23  ** SNBSL                        ** DIAGNOSTICS                                      PAGE 02352
 87766  
 87767  
 87768  // VIF  THU 20 NOV 2025 22:21:23  ** SNBSL                        ** GENERATED CODE                                   PAGE 02353
 87769  
 87770  int_4 _snbsl (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 _p_ 
 87771  b_, int_4 _p_ job_)
 87772  { // ** body not listed **
 87844  }
 87845  
 87846  // VIF  THU 20 NOV 2025 22:21:23  ** SNLS1E                       ** SNLS1E                                           PAGE 02355
 87847  
 87848  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 87849  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 87850  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 87851  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 87852  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 87853  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 87854  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 87855  
 87856  //                                    SSSSS  N     N L        SSSSS     1    EEEEEEE
 87857  //                                   S     S NN    N L       S     S   11    E
 87858  //                                   S       N N   N L       S        1 1    E
 87859  //                                    SSSSS  N  N  N L        SSSSS     1    EEEEE
 87860  //                                         S N   N N L             S    1    E
 87861  //                                   S     S N    NN L       S     S    1    E
 87862  //                                    SSSSS  N     N LLLLLLL  SSSSS   11111  EEEEEEE
 87863  
 87864  
 87865  // VIF  THU 20 NOV 2025 22:21:23  ** SNLS1E                       ** DIAGNOSTICS                                      PAGE 02356
 87866  
 87867  
 87868  // VIF  THU 20 NOV 2025 22:21:23  ** SNLS1E                       ** GENERATED CODE                                   PAGE 02357
 87869  
 87870  int_4 _snls1e (real_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 
 87871  _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ iw_, real_4 _p_ wa_, int_4 _p_ lwa_)
 87872  { // ** body not listed **
 87926  }
 87927  
 87928  // VIF  THU 20 NOV 2025 22:21:23  ** SNLS1                        ** SNLS1                                            PAGE 02359
 87929  
 87930  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 87931  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 87932  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 87933  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 87934  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 87935  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 87936  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 87937  
 87938  //                                         SSSSS  N     N L        SSSSS     1
 87939  //                                        S     S NN    N L       S     S   11
 87940  //                                        S       N N   N L       S        1 1
 87941  //                                         SSSSS  N  N  N L        SSSSS     1
 87942  //                                              S N   N N L             S    1
 87943  //                                        S     S N    NN L       S     S    1
 87944  //                                         SSSSS  N     N LLLLLLL  SSSSS   11111
 87945  
 87946  
 87947  // VIF  THU 20 NOV 2025 22:21:23  ** SNLS1                        ** DIAGNOSTICS                                      PAGE 02360
 87948  
 87949  
 87950  // VIF  THU 20 NOV 2025 22:21:23  ** SNLS1                        ** GENERATED CODE                                   PAGE 02361
 87951  
 87952  int_4 _snls1 (int_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 _p_ 
 87953  fjac_, int_4 _p_ ldfjac_, real_4 _p_ ftol_, real_4 _p_ xtol_, real_4 _p_ gtol_, int_4 _p_ maxfev_, real_4 _p_ epsfcn_, 
 87954  real_4 _p_ diag_, int_4 _p_ mode_, real_4 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_, int_4 _p_ 
 87955  njev_, int_4 _p_ ipvt_, real_4 _p_ qtf_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
 87956  { // ** body not listed **
 88564  }
 88565  
 88566  // VIF  THU 20 NOV 2025 22:21:23  ** SNSQE                        ** SNSQE                                            PAGE 02373
 88567  
 88568  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 88569  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 88570  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 88571  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 88572  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 88573  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 88574  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 88575  
 88576  //                                        SSSSS  N     N  SSSSS   QQQQQ  EEEEEEE
 88577  //                                       S     S NN    N S     S Q     Q E
 88578  //                                       S       N N   N S       Q     Q E
 88579  //                                        SSSSS  N  N  N  SSSSS  Q     Q EEEEE
 88580  //                                             S N   N N       S Q   Q Q E
 88581  //                                       S     S N    NN S     S Q    Q  E
 88582  //                                        SSSSS  N     N  SSSSS   QQQQ Q EEEEEEE
 88583  
 88584  
 88585  // VIF  THU 20 NOV 2025 22:21:23  ** SNSQE                        ** DIAGNOSTICS                                      PAGE 02374
 88586  
 88587  
 88588  // VIF  THU 20 NOV 2025 22:21:23  ** SNSQE                        ** GENERATED CODE                                   PAGE 02375
 88589  
 88590  int_4 _snsqe (real_4 (*_fcn)(), int_4 (*_jac)(), int_4 _p_ iopt_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 
 88591  _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, real_4 _p_ wa_, int_4 _p_ lwa_)
 88592  { // ** body not listed **
 88653  }
 88654  
 88655  // VIF  THU 20 NOV 2025 22:21:23  ** SNSQ                         ** SNSQ                                             PAGE 02377
 88656  
 88657  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 88658  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 88659  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 88660  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 88661  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 88662  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 88663  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 88664  
 88665  //                                            SSSSS  N     N  SSSSS   QQQQQ
 88666  //                                           S     S NN    N S     S Q     Q
 88667  //                                           S       N N   N S       Q     Q
 88668  //                                            SSSSS  N  N  N  SSSSS  Q     Q
 88669  //                                                 S N   N N       S Q   Q Q
 88670  //                                           S     S N    NN S     S Q    Q
 88671  //                                            SSSSS  N     N  SSSSS   QQQQ Q
 88672  
 88673  
 88674  // VIF  THU 20 NOV 2025 22:21:23  ** SNSQ                         ** DIAGNOSTICS                                      PAGE 02378
 88675  
 88676  
 88677  // VIF  THU 20 NOV 2025 22:21:23  ** SNSQ                         ** GENERATED CODE                                   PAGE 02379
 88678  
 88679  int_4 _snsq (int_4 (*_fcn)(), int_4 (*_jac)(), int_4 _p_ iopt_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 
 88680  _p_ fjac_, int_4 _p_ ldfjac_, real_4 _p_ xtol_, int_4 _p_ maxfev_, int_4 _p_ ml_, int_4 _p_ mu_, real_4 _p_ epsfcn_, 
 88681  real_4 _p_ diag_, int_4 _p_ mode_, real_4 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_, int_4 _p_ 
 88682  njev_, real_4 _p_ r_, int_4 _p_ lr_, real_4 _p_ qtf_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ 
 88683  wa4_)
 88684  { // ** body not listed **
 89016  }
 89017  
 89018  // VIF  THU 20 NOV 2025 22:21:23  ** SODS                         ** SODS                                             PAGE 02386
 89019  
 89020  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89021  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89022  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89023  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89024  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89025  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89026  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89027  
 89028  //                                            SSSSS   OOOOO  DDDDDD   SSSSS
 89029  //                                           S     S O     O D     D S     S
 89030  //                                           S       O     O D     D S
 89031  //                                            SSSSS  O     O D     D  SSSSS
 89032  //                                                 S O     O D     D       S
 89033  //                                           S     S O     O D     D S     S
 89034  //                                            SSSSS   OOOOO  DDDDDD   SSSSS
 89035  
 89036  
 89037  // VIF  THU 20 NOV 2025 22:21:23  ** SODS                         ** DIAGNOSTICS                                      PAGE 02387
 89038  
 89039  
 89040  // VIF  THU 20 NOV 2025 22:21:23  ** SODS                         ** GENERATED CODE                                   PAGE 02388
 89041  
 89042  int_4 _sods (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ b_, int_4 _p_ neq_, int_4 _p_ nuk_, int_4 _p_ nrda_, int_4 _p_ 
 89043  iflag_, real_4 _p_ work_, int_4 _p_ iwork_)
 89044  { // ** body not listed **
 89059  }
 89060  
 89061  // VIF  THU 20 NOV 2025 22:21:23  ** SOPENM                       ** SOPENM                                           PAGE 02389
 89062  
 89063  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89064  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89065  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89066  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89067  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89068  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89069  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89070  
 89071  //                                    SSSSS   OOOOO  PPPPPP  EEEEEEE N     N M     M
 89072  //                                   S     S O     O P     P E       NN    N MM   MM
 89073  //                                   S       O     O P     P E       N N   N M M M M
 89074  //                                    SSSSS  O     O PPPPPP  EEEEE   N  N  N M  M  M
 89075  //                                         S O     O P       E       N   N N M     M
 89076  //                                   S     S O     O P       E       N    NN M     M
 89077  //                                    SSSSS   OOOOO  P       EEEEEEE N     N M     M
 89078  
 89079  
 89080  // VIF  THU 20 NOV 2025 22:21:23  ** SOPENM                       ** DIAGNOSTICS                                      PAGE 02390
 89081  
 89082  
 89083  // VIF  THU 20 NOV 2025 22:21:23  ** SOPENM                       ** GENERATED CODE                                   PAGE 02391
 89084  
 89085  int_4 _sopenm (int_4 _p_ ipage_, int_4 _p_ lpage_)
 89086  { // ** body not listed **
 89142  }
 89143  
 89144  // VIF  THU 20 NOV 2025 22:21:23  ** SOSEQS                       ** SOSEQS                                           PAGE 02393
 89145  
 89146  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89147  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89148  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89149  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89150  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89151  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89152  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89153  
 89154  //                                    SSSSS   OOOOO   SSSSS  EEEEEEE  QQQQQ   SSSSS
 89155  //                                   S     S O     O S     S E       Q     Q S     S
 89156  //                                   S       O     O S       E       Q     Q S
 89157  //                                    SSSSS  O     O  SSSSS  EEEEE   Q     Q  SSSSS
 89158  //                                         S O     O       S E       Q   Q Q       S
 89159  //                                   S     S O     O S     S E       Q    Q  S     S
 89160  //                                    SSSSS   OOOOO   SSSSS  EEEEEEE  QQQQ Q  SSSSS
 89161  
 89162  
 89163  // VIF  THU 20 NOV 2025 22:21:23  ** SOSEQS                       ** DIAGNOSTICS                                      PAGE 02394
 89164  
 89165  
 89166  // VIF  THU 20 NOV 2025 22:21:23  ** SOSEQS                       ** GENERATED CODE                                   PAGE 02395
 89167  
 89168  int_4 _soseqs (real_4 (*_fnc)(), int_4 _p_ n_, real_4 _p_ s_, real_4 _p_ rtolx_, real_4 _p_ atolx_, real_4 _p_ tolf_, 
 89169  int_4 _p_ iflag_, int_4 _p_ mxit_, int_4 _p_ ncjs_, int_4 _p_ nsrrc_, int_4 _p_ nsri_, int_4 _p_ iprint_, real_4 _p_ 
 89170  fmax_, real_4 _p_ c_, int_4 _p_ nc_, real_4 _p_ b_, real_4 _p_ p_, real_4 _p_ temp_, real_4 _p_ x_, real_4 _p_ y_, 
 89171  real_4 _p_ fac_, int_4 _p_ is_)
 89172  { // ** body not listed **
 89560  }
 89561  
 89562  // VIF  THU 20 NOV 2025 22:21:23  ** SOS                          ** SOS                                              PAGE 02403
 89563  
 89564  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89565  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89566  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89567  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89568  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89569  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89570  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89571  
 89572  //                                                SSSSS   OOOOO   SSSSS
 89573  //                                               S     S O     O S     S
 89574  //                                               S       O     O S
 89575  //                                                SSSSS  O     O  SSSSS
 89576  //                                                     S O     O       S
 89577  //                                               S     S O     O S     S
 89578  //                                                SSSSS   OOOOO   SSSSS
 89579  
 89580  
 89581  // VIF  THU 20 NOV 2025 22:21:23  ** SOS                          ** DIAGNOSTICS                                      PAGE 02404
 89582  
 89583  
 89584  // VIF  THU 20 NOV 2025 22:21:23  ** SOS                          ** GENERATED CODE                                   PAGE 02405
 89585  
 89586  int_4 _sos (real_4 (*_fnc)(), int_4 _p_ neq_, real_4 _p_ x_, real_4 _p_ rtolx_, real_4 _p_ atolx_, real_4 _p_ tolf_, 
 89587  int_4 _p_ iflag_, real_4 _p_ rw_, int_4 _p_ lrw_, int_4 _p_ iw_, int_4 _p_ liw_)
 89588  { // ** body not listed **
 89935  }
 89936  
 89937  // VIF  THU 20 NOV 2025 22:21:23  ** SOSSOL                       ** SOSSOL                                           PAGE 02412
 89938  
 89939  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89940  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89941  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89942  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89943  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89944  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89945  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89946  
 89947  //                                    SSSSS   OOOOO   SSSSS   SSSSS   OOOOO  L
 89948  //                                   S     S O     O S     S S     S O     O L
 89949  //                                   S       O     O S       S       O     O L
 89950  //                                    SSSSS  O     O  SSSSS   SSSSS  O     O L
 89951  //                                         S O     O       S       S O     O L
 89952  //                                   S     S O     O S     S S     S O     O L
 89953  //                                    SSSSS   OOOOO   SSSSS   SSSSS   OOOOO  LLLLLLL
 89954  
 89955  
 89956  // VIF  THU 20 NOV 2025 22:21:23  ** SOSSOL                       ** DIAGNOSTICS                                      PAGE 02413
 89957  
 89958  
 89959  // VIF  THU 20 NOV 2025 22:21:23  ** SOSSOL                       ** GENERATED CODE                                   PAGE 02414
 89960  
 89961  int_4 _sossol (int_4 _p_ k_, int_4 _p_ n_, int_4 _p_ l_, real_4 _p_ x_, real_4 _p_ c_, real_4 _p_ b_, int_4 _p_ m_)
 89962  { // ** body not listed **
 89996  }
 89997  
 89998  // VIF  THU 20 NOV 2025 22:21:23  ** SPELI4                       ** SPELI4                                           PAGE 02415
 89999  
 90000  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 90001  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 90002  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 90003  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 90004  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 90005  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 90006  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 90007  
 90008  //                                    SSSSS  PPPPPP  EEEEEEE L         III   4
 90009  //                                   S     S P     P E       L          I    4    4
 90010  //                                   S       P     P E       L          I    4    4
 90011  //                                    SSSSS  PPPPPP  EEEEE   L          I    4444444
 90012  //                                         S P       E       L          I         4
 90013  //                                   S     S P       E       L          I         4
 90014  //                                    SSSSS  P       EEEEEEE LLLLLLL   III        4
 90015  
 90016  
 90017  // VIF  THU 20 NOV 2025 22:21:23  ** SPELI4                       ** DIAGNOSTICS                                      PAGE 02416
 90018  
 90019  
 90020  // VIF  THU 20 NOV 2025 22:21:23  ** SPELI4                       ** GENERATED CODE                                   PAGE 02417
 90021  
 90022  int_4 _speli4 (int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, 
 90023  real_4 _p_ alpha_, real_4 _p_ bdb_, real_4 _p_ beta_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, 
 90024  real_4 _p_ bdc_, real_4 _p_ bdd_, int_4 (*_cofx)(), real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ dn_, 
 90025  real_4 _p_ un_, real_4 _p_ zn_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ dm_, real_4 _p_ um_, real_4 
 90026  _p_ zm_, real_4 _p_ grhs_, real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ w_, real_4 _p_ pertrb_, int_4 _p_ ierror_)
 90027  { // ** body not listed **
 90343  }
 90344  
 90345  // VIF  THU 20 NOV 2025 22:21:23  ** SPELIP                       ** SPELIP                                           PAGE 02424
 90346  
 90347  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 90348  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 90349  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 90350  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 90351  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 90352  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 90353  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 90354  
 90355  //                                    SSSSS  PPPPPP  EEEEEEE L         III   PPPPPP
 90356  //                                   S     S P     P E       L          I    P     P
 90357  //                                   S       P     P E       L          I    P     P
 90358  //                                    SSSSS  PPPPPP  EEEEE   L          I    PPPPPP
 90359  //                                         S P       E       L          I    P
 90360  //                                   S     S P       E       L          I    P
 90361  //                                    SSSSS  P       EEEEEEE LLLLLLL   III   P
 90362  
 90363  
 90364  // VIF  THU 20 NOV 2025 22:21:23  ** SPELIP                       ** DIAGNOSTICS                                      PAGE 02425
 90365  
 90366  
 90367  // VIF  THU 20 NOV 2025 22:21:23  ** SPELIP                       ** GENERATED CODE                                   PAGE 02426
 90368  
 90369  int_4 _spelip (int_4 _p_ intl_, int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, 
 90370  real_4 _p_ bda_, real_4 _p_ alpha_, real_4 _p_ bdb_, real_4 _p_ beta_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, 
 90371  int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ gama_, real_4 _p_ bdd_, real_4 _p_ xnu_, int_4 (*_cofx)(), int_4 
 90372  (*_cofy)(), real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ dn_, real_4 _p_ un_, real_4 _p_ zn_, real_4 _p_ 
 90373  am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ dm_, real_4 _p_ um_, real_4 _p_ zm_, real_4 _p_ grhs_, real_4 _p_ usol_
 90374  , int_4 _p_ idmn_, real_4 _p_ w_, real_4 _p_ pertrb_, int_4 _p_ ierror_)
 90375  { // ** body not listed **
 90688  }
 90689  
 90690  // VIF  THU 20 NOV 2025 22:21:23  ** SPINCW                       ** SPINCW                                           PAGE 02433
 90691  
 90692  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 90693  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 90694  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 90695  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 90696  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 90697  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 90698  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 90699  
 90700  //                                    SSSSS  PPPPPP    III   N     N  CCCCC  W     W
 90701  //                                   S     S P     P    I    NN    N C     C W     W
 90702  //                                   S       P     P    I    N N   N C       W     W
 90703  //                                    SSSSS  PPPPPP     I    N  N  N C       W  W  W
 90704  //                                         S P          I    N   N N C       W  W  W
 90705  //                                   S     S P          I    N    NN C     C W  W  W
 90706  //                                    SSSSS  P         III   N     N  CCCCC   WW WW
 90707  
 90708  
 90709  // VIF  THU 20 NOV 2025 22:21:23  ** SPINCW                       ** DIAGNOSTICS                                      PAGE 02434
 90710  
 90711  
 90712  // VIF  THU 20 NOV 2025 22:21:23  ** SPINCW                       ** GENERATED CODE                                   PAGE 02435
 90713  
 90714  int_4 _spincw (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ npp_, int_4 _p_ jstrt_, 
 90715  int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, 
 90716  real_4 _p_ costsc_, real_4 _p_ gg_, real_4 _p_ erdnrm_, real_4 _p_ dulnrm_, real_4 _p_ amat_, real_4 _p_ basmat_, 
 90717  real_4 _p_ csc_, real_4 _p_ wr_, real_4 _p_ ww_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 _p_ costs_, real_4 _p_ colnrm_, 
 90718  real_4 _p_ duals_, logical_4 _p_ stpedg_)
 90719  { // ** body not listed **
 90855  }
 90856  
 90857  // VIF  THU 20 NOV 2025 22:21:23  ** SPINIT                       ** SPINIT                                           PAGE 02438
 90858  
 90859  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 90860  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 90861  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 90862  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 90863  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 90864  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 90865  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 90866  
 90867  //                                    SSSSS  PPPPPP    III   N     N   III   TTTTTTT
 90868  //                                   S     S P     P    I    NN    N    I       T
 90869  //                                   S       P     P    I    N N   N    I       T
 90870  //                                    SSSSS  PPPPPP     I    N  N  N    I       T
 90871  //                                         S P          I    N   N N    I       T
 90872  //                                   S     S P          I    N    NN    I       T
 90873  //                                    SSSSS  P         III   N     N   III      T
 90874  
 90875  
 90876  // VIF  THU 20 NOV 2025 22:21:23  ** SPINIT                       ** DIAGNOSTICS                                      PAGE 02439
 90877  
 90878  
 90879  // VIF  THU 20 NOV 2025 22:21:23  ** SPINIT                       ** GENERATED CODE                                   PAGE 02440
 90880  
 90881  int_4 _spinit (int_4 _p_ mrelas_, int_4 _p_ nvars_, real_4 _p_ costs_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, 
 90882  real_4 _p_ primal_, int_4 _p_ info_, real_4 _p_ amat_, real_4 _p_ csc_, real_4 _p_ costsc_, real_4 _p_ colnrm_, real_4 
 90883  _p_ xlamda_, real_4 _p_ anorm_, real_4 _p_ rhs_, real_4 _p_ rhsnrm_, int_4 _p_ ibasis_, int_4 _p_ ibb_, int_4 _p_ imat_
 90884  , logical_4 _p_ lopt_)
 90885  { // ** body not listed **
 91167  }
 91168  
 91169  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPCE                       ** SPLPCE                                           PAGE 02446
 91170  
 91171  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 91172  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 91173  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 91174  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 91175  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 91176  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 91177  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 91178  
 91179  //                                    SSSSS  PPPPPP  L       PPPPPP   CCCCC  EEEEEEE
 91180  //                                   S     S P     P L       P     P C     C E
 91181  //                                   S       P     P L       P     P C       E
 91182  //                                    SSSSS  PPPPPP  L       PPPPPP  C       EEEEE
 91183  //                                         S P       L       P       C       E
 91184  //                                   S     S P       L       P       C     C E
 91185  //                                    SSSSS  P       LLLLLLL P        CCCCC  EEEEEEE
 91186  
 91187  
 91188  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPCE                       ** DIAGNOSTICS                                      PAGE 02447
 91189  
 91190  
 91191  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPCE                       ** GENERATED CODE                                   PAGE 02448
 91192  
 91193  int_4 _splpce (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ itlp_, int_4 _p_ itbrc_, 
 91194  int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, 
 91195  real_4 _p_ erdnrm_, real_4 _p_ eps_, real_4 _p_ tune_, real_4 _p_ gg_, real_4 _p_ amat_, real_4 _p_ basmat_, real_4 _p_ 
 91196  csc_, real_4 _p_ wr_, real_4 _p_ ww_, real_4 _p_ primal_, real_4 _p_ erd_, real_4 _p_ erp_, logical_4 _p_ singlr_, 
 91197  logical_4 _p_ redbas_)
 91198  { // ** body not listed **
 91396  }
 91397  
 91398  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPDM                       ** SPLPDM                                           PAGE 02452
 91399  
 91400  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 91401  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 91402  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 91403  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 91404  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 91405  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 91406  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 91407  
 91408  //                                    SSSSS  PPPPPP  L       PPPPPP  DDDDDD  M     M
 91409  //                                   S     S P     P L       P     P D     D MM   MM
 91410  //                                   S       P     P L       P     P D     D M M M M
 91411  //                                    SSSSS  PPPPPP  L       PPPPPP  D     D M  M  M
 91412  //                                         S P       L       P       D     D M     M
 91413  //                                   S     S P       L       P       D     D M     M
 91414  //                                    SSSSS  P       LLLLLLL P       DDDDDD  M     M
 91415  
 91416  
 91417  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPDM                       ** DIAGNOSTICS                                      PAGE 02453
 91418  
 91419  
 91420  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPDM                       ** GENERATED CODE                                   PAGE 02454
 91421  
 91422  int_4 _splpdm (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ nredc_, int_4 _p_ info_, 
 91423  int_4 _p_ iopt_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, 
 91424  int_4 _p_ ibb_, real_4 _p_ anorm_, real_4 _p_ eps_, real_4 _p_ uu_, real_4 _p_ gg_, real_4 _p_ amat_, real_4 _p_ 
 91425  basmat_, real_4 _p_ csc_, real_4 _p_ wr_, logical_4 _p_ singlr_, logical_4 _p_ redbas_)
 91426  { // ** body not listed **
 91528  }
 91529  
 91530  // VIF  THU 20 NOV 2025 22:21:23  ** SPLP                         ** SPLP                                             PAGE 02457
 91531  
 91532  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 91533  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 91534  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 91535  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 91536  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 91537  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 91538  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 91539  
 91540  //                                            SSSSS  PPPPPP  L       PPPPPP
 91541  //                                           S     S P     P L       P     P
 91542  //                                           S       P     P L       P     P
 91543  //                                            SSSSS  PPPPPP  L       PPPPPP
 91544  //                                                 S P       L       P
 91545  //                                           S     S P       L       P
 91546  //                                            SSSSS  P       LLLLLLL P
 91547  
 91548  
 91549  // VIF  THU 20 NOV 2025 22:21:23  ** SPLP                         ** DIAGNOSTICS                                      PAGE 02458
 91550  
 91551  
 91552  // VIF  THU 20 NOV 2025 22:21:23  ** SPLP                         ** GENERATED CODE                                   PAGE 02459
 91553  
 91554  int_4 _splp (real_4 (*_usrmat)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_4 _p_ costs_, real_4 _p_ prgopt_, real_4 
 91555  _p_ dattrv_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_4 _p_ primal_, real_4 _p_ duals_, 
 91556  int_4 _p_ ibasis_, real_4 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_)
 91557  { // ** body not listed **
 91873  }
 91874  
 91875  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPFE                       ** SPLPFE                                           PAGE 02466
 91876  
 91877  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 91878  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 91879  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 91880  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 91881  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 91882  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 91883  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 91884  
 91885  //                                    SSSSS  PPPPPP  L       PPPPPP  FFFFFFF EEEEEEE
 91886  //                                   S     S P     P L       P     P F       E
 91887  //                                   S       P     P L       P     P F       E
 91888  //                                    SSSSS  PPPPPP  L       PPPPPP  FFFFF   EEEEE
 91889  //                                         S P       L       P       F       E
 91890  //                                   S     S P       L       P       F       E
 91891  //                                    SSSSS  P       LLLLLLL P       F       EEEEEEE
 91892  
 91893  
 91894  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPFE                       ** DIAGNOSTICS                                      PAGE 02467
 91895  
 91896  
 91897  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPFE                       ** GENERATED CODE                                   PAGE 02468
 91898  
 91899  int_4 _splpfe (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ ienter_, int_4 _p_ 
 91900  ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_4 _p_ 
 91901  erdnrm_, real_4 _p_ eps_, real_4 _p_ gg_, real_4 _p_ dulnrm_, real_4 _p_ dirnrm_, real_4 _p_ amat_, real_4 _p_ basmat_, 
 91902  real_4 _p_ csc_, real_4 _p_ wr_, real_4 _p_ ww_, real_4 _p_ bl_, real_4 _p_ bu_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 
 91903  _p_ colnrm_, real_4 _p_ duals_, logical_4 _p_ found_)
 91904  { // ** body not listed **
 92056  }
 92057  
 92058  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPFL                       ** SPLPFL                                           PAGE 02472
 92059  
 92060  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 92061  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 92062  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 92063  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 92064  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 92065  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 92066  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 92067  
 92068  //                                    SSSSS  PPPPPP  L       PPPPPP  FFFFFFF L
 92069  //                                   S     S P     P L       P     P F       L
 92070  //                                   S       P     P L       P     P F       L
 92071  //                                    SSSSS  PPPPPP  L       PPPPPP  FFFFF   L
 92072  //                                         S P       L       P       F       L
 92073  //                                   S     S P       L       P       F       L
 92074  //                                    SSSSS  P       LLLLLLL P       F       LLLLLLL
 92075  
 92076  
 92077  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPFL                       ** DIAGNOSTICS                                      PAGE 02473
 92078  
 92079  
 92080  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPFL                       ** GENERATED CODE                                   PAGE 02474
 92081  
 92082  int_4 _splpfl (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ ibasis_, int_4 _p_ 
 92083  ind_, int_4 _p_ ibb_, real_4 _p_ theta_, real_4 _p_ dirnrm_, real_4 _p_ rprnrm_, real_4 _p_ csc_, real_4 _p_ ww_, 
 92084  real_4 _p_ bl_, real_4 _p_ bu_, real_4 _p_ erp_, real_4 _p_ rprim_, real_4 _p_ primal_, logical_4 _p_ finite_, 
 92085  logical_4 _p_ zerolv_)
 92086  { // ** body not listed **
 92242  }
 92243  
 92244  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPMN                       ** SPLPMN                                           PAGE 02478
 92245  
 92246  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 92247  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 92248  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 92249  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 92250  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 92251  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 92252  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 92253  
 92254  //                                    SSSSS  PPPPPP  L       PPPPPP  M     M N     N
 92255  //                                   S     S P     P L       P     P MM   MM NN    N
 92256  //                                   S       P     P L       P     P M M M M N N   N
 92257  //                                    SSSSS  PPPPPP  L       PPPPPP  M  M  M N  N  N
 92258  //                                         S P       L       P       M     M N   N N
 92259  //                                   S     S P       L       P       M     M N    NN
 92260  //                                    SSSSS  P       LLLLLLL P       M     M N     N
 92261  
 92262  
 92263  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPMN                       ** DIAGNOSTICS                                      PAGE 02479
 92264  
 92265  
 92266  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPMN                       ** GENERATED CODE                                   PAGE 02480
 92267  
 92268  int_4 _splpmn (real_4 (*_usrmat)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_4 _p_ costs_, real_4 _p_ prgopt_, real_4 
 92269  _p_ dattrv_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_4 _p_ primal_, real_4 _p_ duals_, 
 92270  real_4 _p_ amat_, real_4 _p_ csc_, real_4 _p_ colnrm_, real_4 _p_ erd_, real_4 _p_ erp_, real_4 _p_ basmat_, real_4 _p_ 
 92271  wr_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 _p_ rprim_, real_4 _p_ rhs_, real_4 _p_ ww_, int_4 _p_ lmx_, int_4 _p_ lbm_
 92272  , int_4 _p_ ibasis_, int_4 _p_ ibb_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_)
 92273  { // ** body not listed **
 93590  }
 93591  
 93592  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPMU                       ** SPLPMU                                           PAGE 02506
 93593  
 93594  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 93595  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 93596  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 93597  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 93598  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 93599  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 93600  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 93601  
 93602  //                                    SSSSS  PPPPPP  L       PPPPPP  M     M U     U
 93603  //                                   S     S P     P L       P     P MM   MM U     U
 93604  //                                   S       P     P L       P     P M M M M U     U
 93605  //                                    SSSSS  PPPPPP  L       PPPPPP  M  M  M U     U
 93606  //                                         S P       L       P       M     M U     U
 93607  //                                   S     S P       L       P       M     M U     U
 93608  //                                    SSSSS  P       LLLLLLL P       M     M  UUUUU
 93609  
 93610  
 93611  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPMU                       ** DIAGNOSTICS                                      PAGE 02507
 93612  
 93613  
 93614  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPMU                       ** GENERATED CODE                                   PAGE 02508
 93615  
 93616  int_4 _splpmu (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ nredc_, int_4 _p_ info_, 
 93617  int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ iopt_, int_4 _p_ npp_, int_4 _p_ jstrt_, int_4 _p_ ibasis_, int_4 _p_ 
 93618  imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_4 _p_ anorm_, real_4 _p_ 
 93619  eps_, real_4 _p_ uu_, real_4 _p_ gg_, real_4 _p_ rprnrm_, real_4 _p_ erdnrm_, real_4 _p_ dulnrm_, real_4 _p_ theta_, 
 93620  real_4 _p_ costsc_, real_4 _p_ xlamda_, real_4 _p_ rhsnrm_, real_4 _p_ amat_, real_4 _p_ basmat_, real_4 _p_ csc_, 
 93621  real_4 _p_ wr_, real_4 _p_ rprim_, real_4 _p_ ww_, real_4 _p_ bu_, real_4 _p_ bl_, real_4 _p_ rhs_, real_4 _p_ erd_, 
 93622  real_4 _p_ erp_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 _p_ colnrm_, real_4 _p_ costs_, real_4 _p_ primal_, real_4 _p_ 
 93623  duals_, logical_4 _p_ singlr_, logical_4 _p_ redbas_, logical_4 _p_ zerolv_, logical_4 _p_ stpedg_)
 93624  { // ** body not listed **
 94100  }
 94101  
 94102  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPUP                       ** SPLPUP                                           PAGE 02518
 94103  
 94104  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 94105  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 94106  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 94107  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 94108  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 94109  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 94110  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 94111  
 94112  //                                    SSSSS  PPPPPP  L       PPPPPP  U     U PPPPPP
 94113  //                                   S     S P     P L       P     P U     U P     P
 94114  //                                   S       P     P L       P     P U     U P     P
 94115  //                                    SSSSS  PPPPPP  L       PPPPPP  U     U PPPPPP
 94116  //                                         S P       L       P       U     U P
 94117  //                                   S     S P       L       P       U     U P
 94118  //                                    SSSSS  P       LLLLLLL P        UUUUU  P
 94119  
 94120  
 94121  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPUP                       ** DIAGNOSTICS                                      PAGE 02519
 94122  
 94123  
 94124  // VIF  THU 20 NOV 2025 22:21:23  ** SPLPUP                       ** GENERATED CODE                                   PAGE 02520
 94125  
 94126  int_4 _splpup (int_4 (*_usrmat)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_4 _p_ prgopt_, real_4 _p_ dattrv_, real_4 
 94127  _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_4 _p_ amat_, int_4 _p_ imat_, logical_4 _p_ sizeup_, 
 94128  real_4 _p_ asmall_, real_4 _p_ abig_)
 94129  { // ** body not listed **
 94703  }
 94704  
 94705  // VIF  THU 20 NOV 2025 22:21:23  ** SPOFS                        ** SPOFS                                            PAGE 02532
 94706  
 94707  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 94708  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 94709  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 94710  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 94711  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 94712  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 94713  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 94714  
 94715  //                                        SSSSS  PPPPPP   OOOOO  FFFFFFF  SSSSS
 94716  //                                       S     S P     P O     O F       S     S
 94717  //                                       S       P     P O     O F       S
 94718  //                                        SSSSS  PPPPPP  O     O FFFFF    SSSSS
 94719  //                                             S P       O     O F             S
 94720  //                                       S     S P       O     O F       S     S
 94721  //                                        SSSSS  P        OOOOO  F        SSSSS
 94722  
 94723  
 94724  // VIF  THU 20 NOV 2025 22:21:23  ** SPOFS                        ** DIAGNOSTICS                                      PAGE 02533
 94725  
 94726  
 94727  // VIF  THU 20 NOV 2025 22:21:23  ** SPOFS                        ** GENERATED CODE                                   PAGE 02534
 94728  
 94729  int_4 _spofs (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, real_4 _p_ 
 94730  work_)
 94731  { // ** body not listed **
 94933  }
 94934  
 94935  // VIF  THU 20 NOV 2025 22:21:23  ** SPOIR                        ** SPOIR                                            PAGE 02538
 94936  
 94937  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 94938  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 94939  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 94940  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 94941  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 94942  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 94943  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 94944  
 94945  //                                        SSSSS  PPPPPP   OOOOO    III   RRRRRR
 94946  //                                       S     S P     P O     O    I    R     R
 94947  //                                       S       P     P O     O    I    R     R
 94948  //                                        SSSSS  PPPPPP  O     O    I    RRRRRR
 94949  //                                             S P       O     O    I    R   R
 94950  //                                       S     S P       O     O    I    R    R
 94951  //                                        SSSSS  P        OOOOO    III   R     R
 94952  
 94953  
 94954  // VIF  THU 20 NOV 2025 22:21:23  ** SPOIR                        ** DIAGNOSTICS                                      PAGE 02539
 94955  
 94956  
 94957  // VIF  THU 20 NOV 2025 22:21:23  ** SPOIR                        ** GENERATED CODE                                   PAGE 02540
 94958  
 94959  int_4 _spoir (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, real_4 _p_ 
 94960  work_)
 94961  { // ** body not listed **
 95183  }
 95184  
 95185  // VIF  THU 20 NOV 2025 22:21:23  ** SPOPT                        ** SPOPT                                            PAGE 02545
 95186  
 95187  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 95188  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 95189  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 95190  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 95191  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 95192  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 95193  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 95194  
 95195  //                                        SSSSS  PPPPPP   OOOOO  PPPPPP  TTTTTTT
 95196  //                                       S     S P     P O     O P     P    T
 95197  //                                       S       P     P O     O P     P    T
 95198  //                                        SSSSS  PPPPPP  O     O PPPPPP     T
 95199  //                                             S P       O     O P          T
 95200  //                                       S     S P       O     O P          T
 95201  //                                        SSSSS  P        OOOOO  P          T
 95202  
 95203  
 95204  // VIF  THU 20 NOV 2025 22:21:23  ** SPOPT                        ** DIAGNOSTICS                                      PAGE 02546
 95205  
 95206  
 95207  // VIF  THU 20 NOV 2025 22:21:23  ** SPOPT                        ** GENERATED CODE                                   PAGE 02547
 95208  
 95209  int_4 _spopt (real_4 _p_ prgopt_, int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ info_, real_4 _p_ csc_, int_4 _p_ 
 95210  ibasis_, real_4 _p_ ropt_, int_4 _p_ intopt_, logical_4 _p_ lopt_)
 95211  { // ** body not listed **
 95581  }
 95582  
 95583  // VIF  THU 20 NOV 2025 22:21:23  ** SPPERM                       ** SPPERM                                           PAGE 02555
 95584  
 95585  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 95586  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 95587  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 95588  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 95589  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 95590  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 95591  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 95592  
 95593  //                                    SSSSS  PPPPPP  PPPPPP  EEEEEEE RRRRRR  M     M
 95594  //                                   S     S P     P P     P E       R     R MM   MM
 95595  //                                   S       P     P P     P E       R     R M M M M
 95596  //                                    SSSSS  PPPPPP  PPPPPP  EEEEE   RRRRRR  M  M  M
 95597  //                                         S P       P       E       R   R   M     M
 95598  //                                   S     S P       P       E       R    R  M     M
 95599  //                                    SSSSS  P       P       EEEEEEE R     R M     M
 95600  
 95601  
 95602  // VIF  THU 20 NOV 2025 22:21:23  ** SPPERM                       ** DIAGNOSTICS                                      PAGE 02556
 95603  
 95604  
 95605  // VIF  THU 20 NOV 2025 22:21:23  ** SPPERM                       ** GENERATED CODE                                   PAGE 02557
 95606  
 95607  int_4 _spperm (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ ier_)
 95608  { // ** body not listed **
 95653  }
 95654  
 95655  // VIF  THU 20 NOV 2025 22:21:23  ** SPSORT                       ** SPSORT                                           PAGE 02558
 95656  
 95657  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 95658  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 95659  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 95660  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 95661  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 95662  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 95663  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 95664  
 95665  //                                    SSSSS  PPPPPP   SSSSS   OOOOO  RRRRRR  TTTTTTT
 95666  //                                   S     S P     P S     S O     O R     R    T
 95667  //                                   S       P     P S       O     O R     R    T
 95668  //                                    SSSSS  PPPPPP   SSSSS  O     O RRRRRR     T
 95669  //                                         S P             S O     O R   R      T
 95670  //                                   S     S P       S     S O     O R    R     T
 95671  //                                    SSSSS  P        SSSSS   OOOOO  R     R    T
 95672  
 95673  
 95674  // VIF  THU 20 NOV 2025 22:21:23  ** SPSORT                       ** DIAGNOSTICS                                      PAGE 02559
 95675  
 95676  
 95677  // VIF  THU 20 NOV 2025 22:21:23  ** SPSORT                       ** GENERATED CODE                                   PAGE 02560
 95678  
 95679  int_4 _spsort (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ kflag_, int_4 _p_ ier_)
 95680  { // ** body not listed **
 95844  }
 95845  
 95846  // VIF  THU 20 NOV 2025 22:21:23  ** SREADP                       ** SREADP                                           PAGE 02564
 95847  
 95848  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 95849  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 95850  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 95851  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 95852  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 95853  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 95854  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 95855  
 95856  //                                    SSSSS  RRRRRR  EEEEEEE    A    DDDDDD  PPPPPP
 95857  //                                   S     S R     R E         A A   D     D P     P
 95858  //                                   S       R     R E        A   A  D     D P     P
 95859  //                                    SSSSS  RRRRRR  EEEEE   A     A D     D PPPPPP
 95860  //                                         S R   R   E       AAAAAAA D     D P
 95861  //                                   S     S R    R  E       A     A D     D P
 95862  //                                    SSSSS  R     R EEEEEEE A     A DDDDDD  P
 95863  
 95864  
 95865  // VIF  THU 20 NOV 2025 22:21:23  ** SREADP                       ** DIAGNOSTICS                                      PAGE 02565
 95866  
 95867  
 95868  // VIF  THU 20 NOV 2025 22:21:23  ** SREADP                       ** GENERATED CODE                                   PAGE 02566
 95869  
 95870  int_4 _sreadp (int_4 _p_ ipage_, int_4 _p_ list_, real_4 _p_ rlist_, int_4 _p_ lpage_, int_4 _p_ irec_)
 95871  { // ** body not listed **
 95982  }
 95983  
 95984  // VIF  THU 20 NOV 2025 22:21:23  ** SSIEV                        ** SSIEV                                            PAGE 02569
 95985  
 95986  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 95987  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 95988  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 95989  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 95990  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 95991  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 95992  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 95993  
 95994  //                                        SSSSS   SSSSS    III   EEEEEEE V     V
 95995  //                                       S     S S     S    I    E       V     V
 95996  //                                       S       S          I    E       V     V
 95997  //                                        SSSSS   SSSSS     I    EEEEE   V     V
 95998  //                                             S       S    I    E        V   V
 95999  //                                       S     S S     S    I    E         V V
 96000  //                                        SSSSS   SSSSS    III   EEEEEEE    V
 96001  
 96002  
 96003  // VIF  THU 20 NOV 2025 22:21:23  ** SSIEV                        ** DIAGNOSTICS                                      PAGE 02570
 96004  
 96005  
 96006  // VIF  THU 20 NOV 2025 22:21:23  ** SSIEV                        ** GENERATED CODE                                   PAGE 02571
 96007  
 96008  int_4 _ssiev (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ 
 96009  info_)
 96010  { // ** body not listed **
 96047  }
 96048  
 96049  // VIF  THU 20 NOV 2025 22:21:23  ** SSORT                        ** SSORT                                            PAGE 02572
 96050  
 96051  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 96052  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 96053  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 96054  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 96055  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 96056  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 96057  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 96058  
 96059  //                                        SSSSS   SSSSS   OOOOO  RRRRRR  TTTTTTT
 96060  //                                       S     S S     S O     O R     R    T
 96061  //                                       S       S       O     O R     R    T
 96062  //                                        SSSSS   SSSSS  O     O RRRRRR     T
 96063  //                                             S       S O     O R   R      T
 96064  //                                       S     S S     S O     O R    R     T
 96065  //                                        SSSSS   SSSSS   OOOOO  R     R    T
 96066  
 96067  
 96068  // VIF  THU 20 NOV 2025 22:21:23  ** SSORT                        ** DIAGNOSTICS                                      PAGE 02573
 96069  
 96070  
 96071  // VIF  THU 20 NOV 2025 22:21:23  ** SSORT                        ** GENERATED CODE                                   PAGE 02574
 96072  
 96073  int_4 _ssort (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ n_, int_4 _p_ kflag_)
 96074  { // ** body not listed **
 96325  }
 96326  
 96327  // VIF  THU 20 NOV 2025 22:21:23  ** STOR1                        ** STOR1                                            PAGE 02579
 96328  
 96329  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 96330  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 96331  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 96332  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 96333  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 96334  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 96335  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 96336  
 96337  //                                         SSSSS  TTTTTTT  OOOOO  RRRRRR     1
 96338  //                                        S     S    T    O     O R     R   11
 96339  //                                        S          T    O     O R     R  1 1
 96340  //                                         SSSSS     T    O     O RRRRRR     1
 96341  //                                              S    T    O     O R   R      1
 96342  //                                        S     S    T    O     O R    R     1
 96343  //                                         SSSSS     T     OOOOO  R     R  11111
 96344  
 96345  
 96346  // VIF  THU 20 NOV 2025 22:21:23  ** STOR1                        ** DIAGNOSTICS                                      PAGE 02580
 96347  
 96348  
 96349  // VIF  THU 20 NOV 2025 22:21:23  ** STOR1                        ** GENERATED CODE                                   PAGE 02581
 96350  
 96351  int_4 _stor1 (real_4 _p_ u_, real_4 _p_ yh_, real_4 _p_ v_, real_4 _p_ yp_, int_4 _p_ ntemp_, int_4 _p_ ndisk_, int_4 
 96352  _p_ ntape_)
 96353  { // ** body not listed **
 96398  }
 96399  
 96400  // VIF  THU 20 NOV 2025 22:21:23  ** STWAY                        ** STWAY                                            PAGE 02582
 96401  
 96402  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 96403  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 96404  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 96405  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 96406  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 96407  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 96408  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 96409  
 96410  //                                        SSSSS  TTTTTTT W     W    A    Y     Y
 96411  //                                       S     S    T    W     W   A A    Y   Y
 96412  //                                       S          T    W     W  A   A    Y Y
 96413  //                                        SSSSS     T    W  W  W A     A    Y
 96414  //                                             S    T    W  W  W AAAAAAA    Y
 96415  //                                       S     S    T    W  W  W A     A    Y
 96416  //                                        SSSSS     T     WW WW  A     A    Y
 96417  
 96418  
 96419  // VIF  THU 20 NOV 2025 22:21:23  ** STWAY                        ** DIAGNOSTICS                                      PAGE 02583
 96420  
 96421  
 96422  // VIF  THU 20 NOV 2025 22:21:23  ** STWAY                        ** GENERATED CODE                                   PAGE 02584
 96423  
 96424  int_4 _stway (real_4 _p_ u_, real_4 _p_ v_, real_4 _p_ yhp_, int_4 _p_ inout_, real_4 _p_ stowa_)
 96425  { // ** body not listed **
 96484  }
 96485  
 96486  // VIF  THU 20 NOV 2025 22:21:23  ** SUDS                         ** SUDS                                             PAGE 02586
 96487  
 96488  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 96489  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 96490  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 96491  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 96492  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 96493  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 96494  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 96495  
 96496  //                                            SSSSS  U     U DDDDDD   SSSSS
 96497  //                                           S     S U     U D     D S     S
 96498  //                                           S       U     U D     D S
 96499  //                                            SSSSS  U     U D     D  SSSSS
 96500  //                                                 S U     U D     D       S
 96501  //                                           S     S U     U D     D S     S
 96502  //                                            SSSSS   UUUUU  DDDDDD   SSSSS
 96503  
 96504  
 96505  // VIF  THU 20 NOV 2025 22:21:23  ** SUDS                         ** DIAGNOSTICS                                      PAGE 02587
 96506  
 96507  
 96508  // VIF  THU 20 NOV 2025 22:21:23  ** SUDS                         ** GENERATED CODE                                   PAGE 02588
 96509  
 96510  int_4 _suds (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ b_, int_4 _p_ neq_, int_4 _p_ nuk_, int_4 _p_ nrda_, int_4 _p_ 
 96511  iflag_, int_4 _p_ mlso_, real_4 _p_ work_, int_4 _p_ iwork_)
 96512  { // ** body not listed **
 96525  }
 96526  
 96527  // VIF  THU 20 NOV 2025 22:21:23  ** SVECS                        ** SVECS                                            PAGE 02589
 96528  
 96529  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 96530  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 96531  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 96532  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 96533  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 96534  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 96535  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 96536  
 96537  //                                        SSSSS  V     V EEEEEEE  CCCCC   SSSSS
 96538  //                                       S     S V     V E       C     C S     S
 96539  //                                       S       V     V E       C       S
 96540  //                                        SSSSS  V     V EEEEE   C        SSSSS
 96541  //                                             S  V   V  E       C             S
 96542  //                                       S     S   V V   E       C     C S     S
 96543  //                                        SSSSS     V    EEEEEEE  CCCCC   SSSSS
 96544  
 96545  
 96546  // VIF  THU 20 NOV 2025 22:21:23  ** SVECS                        ** DIAGNOSTICS                                      PAGE 02590
 96547  
 96548  
 96549  // VIF  THU 20 NOV 2025 22:21:23  ** SVECS                        ** GENERATED CODE                                   PAGE 02591
 96550  
 96551  int_4 _svecs (int_4 _p_ ncomp_, int_4 _p_ lnfc_, real_4 _p_ yhp_, real_4 _p_ work_, int_4 _p_ iwork_, int_4 _p_ inhomo_
 96552  , int_4 _p_ iflag_)
 96553  { // ** body not listed **
 96583  }
 96584  
 96585  // VIF  THU 20 NOV 2025 22:21:23  ** SWRITP                       ** SWRITP                                           PAGE 02592
 96586  
 96587  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 96588  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 96589  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 96590  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 96591  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 96592  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 96593  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 96594  
 96595  //                                    SSSSS  W     W RRRRRR    III   TTTTTTT PPPPPP
 96596  //                                   S     S W     W R     R    I       T    P     P
 96597  //                                   S       W     W R     R    I       T    P     P
 96598  //                                    SSSSS  W  W  W RRRRRR     I       T    PPPPPP
 96599  //                                         S W  W  W R   R      I       T    P
 96600  //                                   S     S W  W  W R    R     I       T    P
 96601  //                                    SSSSS   WW WW  R     R   III      T    P
 96602  
 96603  
 96604  // VIF  THU 20 NOV 2025 22:21:23  ** SWRITP                       ** DIAGNOSTICS                                      PAGE 02593
 96605  
 96606  
 96607  // VIF  THU 20 NOV 2025 22:21:23  ** SWRITP                       ** GENERATED CODE                                   PAGE 02594
 96608  
 96609  int_4 _swritp (int_4 _p_ ipage_, int_4 _p_ list_, real_4 _p_ rlist_, int_4 _p_ lpage_, int_4 _p_ irec_)
 96610  { // ** body not listed **
 96721  }
 96722  
 96723  // VIF  THU 20 NOV 2025 22:21:23  ** TEVLC                        ** TEVLC                                            PAGE 02597
 96724  
 96725  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 96726  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 96727  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 96728  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 96729  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 96730  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 96731  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 96732  
 96733  //                                       TTTTTTT EEEEEEE V     V L        CCCCC
 96734  //                                          T    E       V     V L       C     C
 96735  //                                          T    E       V     V L       C
 96736  //                                          T    EEEEE   V     V L       C
 96737  //                                          T    E        V   V  L       C
 96738  //                                          T    E         V V   L       C     C
 96739  //                                          T    EEEEEEE    V    LLLLLLL  CCCCC
 96740  
 96741  
 96742  // VIF  THU 20 NOV 2025 22:21:23  ** TEVLC                        ** DIAGNOSTICS                                      PAGE 02598
 96743  
 96744  
 96745  // VIF  THU 20 NOV 2025 22:21:23  ** TEVLC                        ** GENERATED CODE                                   PAGE 02599
 96746  
 96747  int_4 _tevlc (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e2_, int_4 _p_ ierr_)
 96748  { // ** body not listed **
 96864  }
 96865  
 96866  // VIF  THU 20 NOV 2025 22:21:23  ** TEVLS                        ** TEVLS                                            PAGE 02602
 96867  
 96868  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 96869  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 96870  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 96871  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 96872  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 96873  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 96874  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 96875  
 96876  //                                       TTTTTTT EEEEEEE V     V L        SSSSS
 96877  //                                          T    E       V     V L       S     S
 96878  //                                          T    E       V     V L       S
 96879  //                                          T    EEEEE   V     V L        SSSSS
 96880  //                                          T    E        V   V  L             S
 96881  //                                          T    E         V V   L       S     S
 96882  //                                          T    EEEEEEE    V    LLLLLLL  SSSSS
 96883  
 96884  
 96885  // VIF  THU 20 NOV 2025 22:21:23  ** TEVLS                        ** DIAGNOSTICS                                      PAGE 02603
 96886  
 96887  
 96888  // VIF  THU 20 NOV 2025 22:21:23  ** TEVLS                        ** GENERATED CODE                                   PAGE 02604
 96889  
 96890  int_4 _tevls (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e2_, int_4 _p_ ierr_)
 96891  { // ** body not listed **
 97007  }
 97008  
 97009  // VIF  THU 20 NOV 2025 22:21:23  ** TRI3                         ** TRI3                                             PAGE 02607
 97010  
 97011  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 97012  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 97013  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 97014  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 97015  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 97016  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 97017  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 97018  
 97019  //                                           TTTTTTT RRRRRR    III    33333
 97020  //                                              T    R     R    I    3     3
 97021  //                                              T    R     R    I          3
 97022  //                                              T    RRRRRR     I     33333
 97023  //                                              T    R   R      I          3
 97024  //                                              T    R    R     I    3     3
 97025  //                                              T    R     R   III    33333
 97026  
 97027  
 97028  // VIF  THU 20 NOV 2025 22:21:23  ** TRI3                         ** DIAGNOSTICS                                      PAGE 02608
 97029  
 97030  
 97031  // VIF  THU 20 NOV 2025 22:21:23  ** TRI3                         ** GENERATED CODE                                   PAGE 02609
 97032  
 97033  int_4 _tri3 (int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, int_4 _p_ k_, real_4 _p_ y1_, real_4 _p_ y2_, 
 97034  real_4 _p_ y3_, real_4 _p_ tcos_, real_4 _p_ d_, real_4 _p_ w1_, real_4 _p_ w2_, real_4 _p_ w3_)
 97035  { // ** body not listed **
 97149  }
 97150  
 97151  // VIF  THU 20 NOV 2025 22:21:23  ** TRIDQ                        ** TRIDQ                                            PAGE 02612
 97152  
 97153  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 97154  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 97155  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 97156  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 97157  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 97158  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 97159  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 97160  
 97161  //                                       TTTTTTT RRRRRR    III   DDDDDD   QQQQQ
 97162  //                                          T    R     R    I    D     D Q     Q
 97163  //                                          T    R     R    I    D     D Q     Q
 97164  //                                          T    RRRRRR     I    D     D Q     Q
 97165  //                                          T    R   R      I    D     D Q   Q Q
 97166  //                                          T    R    R     I    D     D Q    Q
 97167  //                                          T    R     R   III   DDDDDD   QQQQ Q
 97168  
 97169  
 97170  // VIF  THU 20 NOV 2025 22:21:23  ** TRIDQ                        ** DIAGNOSTICS                                      PAGE 02613
 97171  
 97172  
 97173  // VIF  THU 20 NOV 2025 22:21:23  ** TRIDQ                        ** GENERATED CODE                                   PAGE 02614
 97174  
 97175  int_4 _tridq (int_4 _p_ mr_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ y_, real_4 _p_ d_)
 97176  { // ** body not listed **
 97204  }
 97205  
 97206  // VIF  THU 20 NOV 2025 22:21:23  ** TRIS4                        ** TRIS4                                            PAGE 02615
 97207  
 97208  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 97209  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 97210  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 97211  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 97212  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 97213  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 97214  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 97215  
 97216  //                                       TTTTTTT RRRRRR    III    SSSSS  4
 97217  //                                          T    R     R    I    S     S 4    4
 97218  //                                          T    R     R    I    S       4    4
 97219  //                                          T    RRRRRR     I     SSSSS  4444444
 97220  //                                          T    R   R      I          S      4
 97221  //                                          T    R    R     I    S     S      4
 97222  //                                          T    R     R   III    SSSSS       4
 97223  
 97224  
 97225  // VIF  THU 20 NOV 2025 22:21:23  ** TRIS4                        ** DIAGNOSTICS                                      PAGE 02616
 97226  
 97227  
 97228  // VIF  THU 20 NOV 2025 22:21:23  ** TRIS4                        ** GENERATED CODE                                   PAGE 02617
 97229  
 97230  int_4 _tris4 (int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ u_, real_4 _p_ z_)
 97231  { // ** body not listed **
 97260  }
 97261  
 97262  // VIF  THU 20 NOV 2025 22:21:23  ** TRISP                        ** TRISP                                            PAGE 02618
 97263  
 97264  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 97265  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 97266  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 97267  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 97268  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 97269  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 97270  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 97271  
 97272  //                                       TTTTTTT RRRRRR    III    SSSSS  PPPPPP
 97273  //                                          T    R     R    I    S     S P     P
 97274  //                                          T    R     R    I    S       P     P
 97275  //                                          T    RRRRRR     I     SSSSS  PPPPPP
 97276  //                                          T    R   R      I          S P
 97277  //                                          T    R    R     I    S     S P
 97278  //                                          T    R     R   III    SSSSS  P
 97279  
 97280  
 97281  // VIF  THU 20 NOV 2025 22:21:23  ** TRISP                        ** DIAGNOSTICS                                      PAGE 02619
 97282  
 97283  
 97284  // VIF  THU 20 NOV 2025 22:21:23  ** TRISP                        ** GENERATED CODE                                   PAGE 02620
 97285  
 97286  int_4 _trisp (int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ u_, real_4 _p_ z_)
 97287  { // ** body not listed **
 97316  }
 97317  
 97318  // VIF  THU 20 NOV 2025 22:21:23  ** TRIX                         ** TRIX                                             PAGE 02621
 97319  
 97320  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 97321  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 97322  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 97323  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 97324  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 97325  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 97326  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 97327  
 97328  //                                           TTTTTTT RRRRRR    III   X     X
 97329  //                                              T    R     R    I     X   X
 97330  //                                              T    R     R    I      X X
 97331  //                                              T    RRRRRR     I       X
 97332  //                                              T    R   R      I      X X
 97333  //                                              T    R    R     I     X   X
 97334  //                                              T    R     R   III   X     X
 97335  
 97336  
 97337  // VIF  THU 20 NOV 2025 22:21:23  ** TRIX                         ** DIAGNOSTICS                                      PAGE 02622
 97338  
 97339  
 97340  // VIF  THU 20 NOV 2025 22:21:23  ** TRIX                         ** GENERATED CODE                                   PAGE 02623
 97341  
 97342  int_4 _trix (int_4 _p_ idegbr_, int_4 _p_ idegcr_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 
 97343  _p_ y_, real_4 _p_ tcos_, real_4 _p_ d_, real_4 _p_ w_)
 97344  { // ** body not listed **
 97399  }
 97400  
 97401  // VIF  THU 20 NOV 2025 22:21:23  ** U11LS                        ** U11LS                                            PAGE 02625
 97402  
 97403  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 97404  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 97405  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 97406  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 97407  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 97408  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 97409  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 97410  
 97411  //                                       U     U    1       1    L        SSSSS
 97412  //                                       U     U   11      11    L       S     S
 97413  //                                       U     U  1 1     1 1    L       S
 97414  //                                       U     U    1       1    L        SSSSS
 97415  //                                       U     U    1       1    L             S
 97416  //                                       U     U    1       1    L       S     S
 97417  //                                        UUUUU   11111   11111  LLLLLLL  SSSSS
 97418  
 97419  
 97420  // VIF  THU 20 NOV 2025 22:21:23  ** U11LS                        ** DIAGNOSTICS                                      PAGE 02626
 97421  
 97422  
 97423  // VIF  THU 20 NOV 2025 22:21:23  ** U11LS                        ** GENERATED CODE                                   PAGE 02627
 97424  
 97425  int_4 _u11ls (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ ub_, real_4 _p_ db_, int_4 _p_ 
 97426  mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_4 _p_ h_, real_4 _p_ w_, real_4 _p_ eb_, int_4 _p_ ic_, 
 97427  int_4 _p_ ir_)
 97428  { // ** body not listed **
 97720  }
 97721  
 97722  // VIF  THU 20 NOV 2025 22:21:23  ** U11US                        ** U11US                                            PAGE 02633
 97723  
 97724  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 97725  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 97726  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 97727  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 97728  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 97729  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 97730  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 97731  
 97732  //                                       U     U    1       1    U     U  SSSSS
 97733  //                                       U     U   11      11    U     U S     S
 97734  //                                       U     U  1 1     1 1    U     U S
 97735  //                                       U     U    1       1    U     U  SSSSS
 97736  //                                       U     U    1       1    U     U       S
 97737  //                                       U     U    1       1    U     U S     S
 97738  //                                        UUUUU   11111   11111   UUUUU   SSSSS
 97739  
 97740  
 97741  // VIF  THU 20 NOV 2025 22:21:23  ** U11US                        ** DIAGNOSTICS                                      PAGE 02634
 97742  
 97743  
 97744  // VIF  THU 20 NOV 2025 22:21:23  ** U11US                        ** GENERATED CODE                                   PAGE 02635
 97745  
 97746  int_4 _u11us (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ ub_, real_4 _p_ db_, int_4 _p_ 
 97747  mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_4 _p_ h_, real_4 _p_ w_, real_4 _p_ eb_, int_4 _p_ ir_, 
 97748  int_4 _p_ ic_)
 97749  { // ** body not listed **
 98041  }
 98042  
 98043  // VIF  THU 20 NOV 2025 22:21:23  ** U12LS                        ** U12LS                                            PAGE 02641
 98044  
 98045  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 98046  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 98047  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 98048  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 98049  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 98050  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 98051  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 98052  
 98053  //                                       U     U    1     22222  L        SSSSS
 98054  //                                       U     U   11    2     2 L       S     S
 98055  //                                       U     U  1 1          2 L       S
 98056  //                                       U     U    1     22222  L        SSSSS
 98057  //                                       U     U    1    2       L             S
 98058  //                                       U     U    1    2       L       S     S
 98059  //                                        UUUUU   11111  2222222 LLLLLLL  SSSSS
 98060  
 98061  
 98062  // VIF  THU 20 NOV 2025 22:21:23  ** U12LS                        ** DIAGNOSTICS                                      PAGE 02642
 98063  
 98064  
 98065  // VIF  THU 20 NOV 2025 22:21:23  ** U12LS                        ** GENERATED CODE                                   PAGE 02643
 98066  
 98067  int_4 _u12ls (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 98068  int_4 _p_ mode_, int_4 _p_ krank_, real_4 _p_ rnorm_, real_4 _p_ h_, real_4 _p_ w_, int_4 _p_ ic_, int_4 _p_ ir_)
 98069  { // ** body not listed **
 98214  }
 98215  
 98216  // VIF  THU 20 NOV 2025 22:21:23  ** U12US                        ** U12US                                            PAGE 02646
 98217  
 98218  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 98219  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 98220  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 98221  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 98222  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 98223  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 98224  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 98225  
 98226  //                                       U     U    1     22222  U     U  SSSSS
 98227  //                                       U     U   11    2     2 U     U S     S
 98228  //                                       U     U  1 1          2 U     U S
 98229  //                                       U     U    1     22222  U     U  SSSSS
 98230  //                                       U     U    1    2       U     U       S
 98231  //                                       U     U    1    2       U     U S     S
 98232  //                                        UUUUU   11111  2222222  UUUUU   SSSSS
 98233  
 98234  
 98235  // VIF  THU 20 NOV 2025 22:21:23  ** U12US                        ** DIAGNOSTICS                                      PAGE 02647
 98236  
 98237  
 98238  // VIF  THU 20 NOV 2025 22:21:23  ** U12US                        ** GENERATED CODE                                   PAGE 02648
 98239  
 98240  int_4 _u12us (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 98241  int_4 _p_ mode_, int_4 _p_ krank_, real_4 _p_ rnorm_, real_4 _p_ h_, real_4 _p_ w_, int_4 _p_ ir_, int_4 _p_ ic_)
 98242  { // ** body not listed **
 98386  }
 98387  
 98388  // VIF  THU 20 NOV 2025 22:21:23  ** ULSIA                        ** ULSIA                                            PAGE 02651
 98389  
 98390  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 98391  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 98392  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 98393  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 98394  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 98395  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 98396  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 98397  
 98398  //                                       U     U L        SSSSS    III      A
 98399  //                                       U     U L       S     S    I      A A
 98400  //                                       U     U L       S          I     A   A
 98401  //                                       U     U L        SSSSS     I    A     A
 98402  //                                       U     U L             S    I    AAAAAAA
 98403  //                                       U     U L       S     S    I    A     A
 98404  //                                        UUUUU  LLLLLLL  SSSSS    III   A     A
 98405  
 98406  
 98407  // VIF  THU 20 NOV 2025 22:21:23  ** ULSIA                        ** DIAGNOSTICS                                      PAGE 02652
 98408  
 98409  
 98410  // VIF  THU 20 NOV 2025 22:21:23  ** ULSIA                        ** GENERATED CODE                                   PAGE 02653
 98411  
 98412  int_4 _ulsia (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 98413  real_4 _p_ re_, real_4 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, 
 98414  real_4 _p_ rnorm_, real_4 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_)
 98415  { // ** body not listed **
 98674  }
 98675  
 98676  // VIF  THU 20 NOV 2025 22:21:23  ** USRMAT                       ** USRMAT                                           PAGE 02659
 98677  
 98678  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 98679  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 98680  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 98681  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 98682  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 98683  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 98684  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 98685  
 98686  //                                   U     U  SSSSS  RRRRRR  M     M    A    TTTTTTT
 98687  //                                   U     U S     S R     R MM   MM   A A      T
 98688  //                                   U     U S       R     R M M M M  A   A     T
 98689  //                                   U     U  SSSSS  RRRRRR  M  M  M A     A    T
 98690  //                                   U     U       S R   R   M     M AAAAAAA    T
 98691  //                                   U     U S     S R    R  M     M A     A    T
 98692  //                                    UUUUU   SSSSS  R     R M     M A     A    T
 98693  
 98694  
 98695  // VIF  THU 20 NOV 2025 22:21:23  ** USRMAT                       ** DIAGNOSTICS                                      PAGE 02660
 98696  
 98697  
 98698  // VIF  THU 20 NOV 2025 22:21:23  ** USRMAT                       ** GENERATED CODE                                   PAGE 02661
 98699  
 98700  int_4 _usrmat (int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ aij_, int_4 _p_ indcat_, real_4 _p_ prgopt_, real_4 _p_ dattrv_, 
 98701  int_4 _p_ iflag_)
 98702  { // ** body not listed **
 98740  }
 98741  
 98742  // VIF  THU 20 NOV 2025 22:21:23  ** VNWRMS                       ** VNWRMS                                           PAGE 02662
 98743  
 98744  //                                   RRRRRR  EEEEEEE    A    L               4
 98745  //                                   R     R E         A A   L        *   *  4    4
 98746  //                                   R     R E        A   A  L         * *   4    4
 98747  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 98748  //                                   R   R   E       AAAAAAA L         * *        4
 98749  //                                   R    R  E       A     A L        *   *       4
 98750  //                                   R     R EEEEEEE A     A LLLLLLL              4
 98751  
 98752  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 98753  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 98754  //                           F       U     U N N   N C          T       I    O     O N N   N
 98755  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 98756  //                           F       U     U N   N N C          T       I    O     O N   N N
 98757  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 98758  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 98759  
 98760  //                                   V     V N     N W     W RRRRRR  M     M  SSSSS
 98761  //                                   V     V NN    N W     W R     R MM   MM S     S
 98762  //                                   V     V N N   N W     W R     R M M M M S
 98763  //                                   V     V N  N  N W  W  W RRRRRR  M  M  M  SSSSS
 98764  //                                    V   V  N   N N W  W  W R   R   M     M       S
 98765  //                                     V V   N    NN W  W  W R    R  M     M S     S
 98766  //                                      V    N     N  WW WW  R     R M     M  SSSSS
 98767  
 98768  
 98769  // VIF  THU 20 NOV 2025 22:21:23  ** VNWRMS                       ** DIAGNOSTICS                                      PAGE 02663
 98770  
 98771  
 98772  // VIF  THU 20 NOV 2025 22:21:23  ** VNWRMS                       ** GENERATED CODE                                   PAGE 02664
 98773  
 98774  real_4 _vnwrms (int_4 _p_ n_, real_4 _p_ v_, real_4 _p_ w_)
 98775  { // ** body not listed **
 98787  }
 98788  
 98789  // VIF  THU 20 NOV 2025 22:21:23  ** WNLIT                        ** WNLIT                                            PAGE 02665
 98790  
 98791  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 98792  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 98793  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 98794  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 98795  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 98796  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 98797  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 98798  
 98799  //                                       W     W N     N L         III   TTTTTTT
 98800  //                                       W     W NN    N L          I       T
 98801  //                                       W     W N N   N L          I       T
 98802  //                                       W  W  W N  N  N L          I       T
 98803  //                                       W  W  W N   N N L          I       T
 98804  //                                       W  W  W N    NN L          I       T
 98805  //                                        WW WW  N     N LLLLLLL   III      T
 98806  
 98807  
 98808  // VIF  THU 20 NOV 2025 22:21:23  ** WNLIT                        ** DIAGNOSTICS                                      PAGE 02666
 98809  
 98810  
 98811  // VIF  THU 20 NOV 2025 22:21:23  ** WNLIT                        ** GENERATED CODE                                   PAGE 02667
 98812  
 98813  int_4 _wnlit (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ l_, int_4 _p_ ipivot_, int_4 _p_ 
 98814  itype_, real_4 _p_ h_, real_4 _p_ scale_, real_4 _p_ rnorm_, int_4 _p_ idope_, real_4 _p_ dope_, logical_4 _p_ done_)
 98815  { // ** body not listed **
 98986  }
 98987  
 98988  // VIF  THU 20 NOV 2025 22:21:23  ** WNLSM                        ** WNLSM                                            PAGE 02671
 98989  
 98990  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 98991  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 98992  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 98993  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 98994  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 98995  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 98996  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 98997  
 98998  //                                       W     W N     N L        SSSSS  M     M
 98999  //                                       W     W NN    N L       S     S MM   MM
 99000  //                                       W     W N N   N L       S       M M M M
 99001  //                                       W  W  W N  N  N L        SSSSS  M  M  M
 99002  //                                       W  W  W N   N N L             S M     M
 99003  //                                       W  W  W N    NN L       S     S M     M
 99004  //                                        WW WW  N     N LLLLLLL  SSSSS  M     M
 99005  
 99006  
 99007  // VIF  THU 20 NOV 2025 22:21:23  ** WNLSM                        ** DIAGNOSTICS                                      PAGE 02672
 99008  
 99009  
 99010  // VIF  THU 20 NOV 2025 22:21:23  ** WNLSM                        ** GENERATED CODE                                   PAGE 02673
 99011  
 99012  int_4 _wnlsm (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mme_, int_4 _p_ ma_, int_4 _p_ n_, int_4 _p_ l_, real_4 _p_ 
 99013  prgopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ ipivot_, int_4 _p_ itype_, real_4 _p_ wd_, real_4 
 99014  _p_ h_, real_4 _p_ scale_, real_4 _p_ z_, real_4 _p_ temp_, real_4 _p_ d_)
 99015  { // ** body not listed **
 99459  }
 99460  
 99461  // VIF  THU 20 NOV 2025 22:21:23  ** WNLT1                        ** WNLT1                                            PAGE 02682
 99462  
 99463  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 99464  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 99465  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 99466  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 99467  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 99468  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 99469  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 99470  
 99471  //                                        W     W N     N L       TTTTTTT    1
 99472  //                                        W     W NN    N L          T      11
 99473  //                                        W     W N N   N L          T     1 1
 99474  //                                        W  W  W N  N  N L          T       1
 99475  //                                        W  W  W N   N N L          T       1
 99476  //                                        W  W  W N    NN L          T       1
 99477  //                                         WW WW  N     N LLLLLLL    T     11111
 99478  
 99479  
 99480  // VIF  THU 20 NOV 2025 22:21:23  ** WNLT1                        ** DIAGNOSTICS                                      PAGE 02683
 99481  
 99482  
 99483  // VIF  THU 20 NOV 2025 22:21:23  ** WNLT1                        ** GENERATED CODE                                   PAGE 02684
 99484  
 99485  int_4 _wnlt1 (int_4 _p_ i_, int_4 _p_ lend_, int_4 _p_ mend_, int_4 _p_ ir_, int_4 _p_ mdw_, logical_4 _p_ recalc_, 
 99486  int_4 _p_ imax_, real_4 _p_ hbar_, real_4 _p_ h_, real_4 _p_ scale_, real_4 _p_ w_)
 99487  { // ** body not listed **
 99512  }
 99513  
 99514  // VIF  THU 20 NOV 2025 22:21:23  ** WNLT2                        ** WNLT2                                            PAGE 02685
 99515  
 99516  //                       L        OOOOO   GGGGG    III    CCCCC     A    L               4
 99517  //                       L       O     O G     G    I    C     C   A A   L        *   *  4    4
 99518  //                       L       O     O G          I    C        A   A  L         * *   4    4
 99519  //                       L       O     O G  GGGG    I    C       A     A L       ******* 4444444
 99520  //                       L       O     O G     G    I    C       AAAAAAA L         * *        4
 99521  //                       L       O     O G     G    I    C     C A     A L        *   *       4
 99522  //                       LLLLLLL  OOOOO   GGGGG    III    CCCCC  A     A LLLLLLL              4
 99523  
 99524  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 99525  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 99526  //                           F       U     U N N   N C          T       I    O     O N N   N
 99527  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 99528  //                           F       U     U N   N N C          T       I    O     O N   N N
 99529  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 99530  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 99531  
 99532  //                                       W     W N     N L       TTTTTTT  22222
 99533  //                                       W     W NN    N L          T    2     2
 99534  //                                       W     W N N   N L          T          2
 99535  //                                       W  W  W N  N  N L          T     22222
 99536  //                                       W  W  W N   N N L          T    2
 99537  //                                       W  W  W N    NN L          T    2
 99538  //                                        WW WW  N     N LLLLLLL    T    2222222
 99539  
 99540  
 99541  // VIF  THU 20 NOV 2025 22:21:23  ** WNLT2                        ** DIAGNOSTICS                                      PAGE 02686
 99542  
 99543  
 99544  // VIF  THU 20 NOV 2025 22:21:23  ** WNLT2                        ** GENERATED CODE                                   PAGE 02687
 99545  
 99546  logical_4 _wnlt2 (int_4 _p_ me_, int_4 _p_ mend_, int_4 _p_ ir_, real_4 _p_ factor_, real_4 _p_ tau_, real_4 _p_ scale_
 99547  , real_4 _p_ wic_)
 99548  { // ** body not listed **
 99570  }
 99571  
 99572  // VIF  THU 20 NOV 2025 22:21:23  ** WNLT3                        ** WNLT3                                            PAGE 02688
 99573  
 99574  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 99575  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 99576  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 99577  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 99578  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 99579  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 99580  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 99581  
 99582  //                                       W     W N     N L       TTTTTTT  33333
 99583  //                                       W     W NN    N L          T    3     3
 99584  //                                       W     W N N   N L          T          3
 99585  //                                       W  W  W N  N  N L          T     33333
 99586  //                                       W  W  W N   N N L          T          3
 99587  //                                       W  W  W N    NN L          T    3     3
 99588  //                                        WW WW  N     N LLLLLLL    T     33333
 99589  
 99590  
 99591  // VIF  THU 20 NOV 2025 22:21:23  ** WNLT3                        ** DIAGNOSTICS                                      PAGE 02689
 99592  
 99593  
 99594  // VIF  THU 20 NOV 2025 22:21:23  ** WNLT3                        ** GENERATED CODE                                   PAGE 02690
 99595  
 99596  int_4 _wnlt3 (int_4 _p_ i_, int_4 _p_ imax_, int_4 _p_ m_, int_4 _p_ mdw_, int_4 _p_ ipivot_, real_4 _p_ h_, real_4 _p_ 
 99597  w_)
 99598  { // ** body not listed **
 99613  }
 99614  
 99615  // VIF  THU 20 NOV 2025 22:21:23  ** WNNLS                        ** WNNLS                                            PAGE 02691
 99616  
 99617  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 99618  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 99619  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 99620  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 99621  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 99622  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 99623  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 99624  
 99625  //                                       W     W N     N N     N L        SSSSS
 99626  //                                       W     W NN    N NN    N L       S     S
 99627  //                                       W     W N N   N N N   N L       S
 99628  //                                       W  W  W N  N  N N  N  N L        SSSSS
 99629  //                                       W  W  W N   N N N   N N L             S
 99630  //                                       W  W  W N    NN N    NN L       S     S
 99631  //                                        WW WW  N     N N     N LLLLLLL  SSSSS
 99632  
 99633  
 99634  // VIF  THU 20 NOV 2025 22:21:23  ** WNNLS                        ** DIAGNOSTICS                                      PAGE 02692
 99635  
 99636  
 99637  // VIF  THU 20 NOV 2025 22:21:23  ** WNNLS                        ** GENERATED CODE                                   PAGE 02693
 99638  
 99639  int_4 _wnnls (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ me_, int_4 _p_ ma_, int_4 _p_ n_, int_4 _p_ l_, real_4 _p_ 
 99640  prgopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ iwork_, real_4 _p_ work_)
 99641  { // ** body not listed **
 99769  }
 99770  
 99771  // VIF  THU 20 NOV 2025 22:21:23  ** XADJ                         ** XADJ                                             PAGE 02696
 99772  
 99773  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 99774  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 99775  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 99776  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 99777  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 99778  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 99779  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 99780  
 99781  //                                           X     X    A    DDDDDD        J
 99782  //                                            X   X    A A   D     D       J
 99783  //                                             X X    A   A  D     D       J
 99784  //                                              X    A     A D     D       J
 99785  //                                             X X   AAAAAAA D     D J     J
 99786  //                                            X   X  A     A D     D J     J
 99787  //                                           X     X A     A DDDDDD   JJJJJ
 99788  
 99789  
 99790  // VIF  THU 20 NOV 2025 22:21:23  ** XADJ                         ** DIAGNOSTICS                                      PAGE 02697
 99791  
 99792  
 99793  // VIF  THU 20 NOV 2025 22:21:23  ** XADJ                         ** GENERATED CODE                                   PAGE 02698
 99794  
 99795  int_4 _xadj (real_4 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_)
 99796  { // ** body not listed **
 99852  }
 99853  
 99854  // VIF  THU 20 NOV 2025 22:21:23  ** XC210                        ** XC210                                            PAGE 02700
 99855  
 99856  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 99857  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 99858  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 99859  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 99860  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 99861  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 99862  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 99863  
 99864  //                                       X     X  CCCCC   22222     1      000
 99865  //                                        X   X  C     C 2     2   11     0   0
 99866  //                                         X X   C             2  1 1    0     0
 99867  //                                          X    C        22222     1    0     0
 99868  //                                         X X   C       2          1    0     0
 99869  //                                        X   X  C     C 2          1     0   0
 99870  //                                       X     X  CCCCC  2222222  11111    000
 99871  
 99872  
 99873  // VIF  THU 20 NOV 2025 22:21:23  ** XC210                        ** DIAGNOSTICS                                      PAGE 02701
 99874  
 99875  
 99876  // VIF  THU 20 NOV 2025 22:21:23  ** XC210                        ** GENERATED CODE                                   PAGE 02702
 99877  
 99878  int_4 _xc210 (int_4 _p_ k_, real_4 _p_ z_, int_4 _p_ j_, int_4 _p_ ierror_)
 99879  { // ** body not listed **
 99945  }
 99946  
 99947  // VIF  THU 20 NOV 2025 22:21:23  ** XPSI                         ** XPSI                                             PAGE 02704
 99948  
 99949  //                                   RRRRRR  EEEEEEE    A    L               4
 99950  //                                   R     R E         A A   L        *   *  4    4
 99951  //                                   R     R E        A   A  L         * *   4    4
 99952  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 99953  //                                   R   R   E       AAAAAAA L         * *        4
 99954  //                                   R    R  E       A     A L        *   *       4
 99955  //                                   R     R EEEEEEE A     A LLLLLLL              4
 99956  
 99957  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 99958  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 99959  //                           F       U     U N N   N C          T       I    O     O N N   N
 99960  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 99961  //                           F       U     U N   N N C          T       I    O     O N   N N
 99962  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 99963  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 99964  
 99965  //                                            X     X PPPPPP   SSSSS    III
 99966  //                                             X   X  P     P S     S    I
 99967  //                                              X X   P     P S          I
 99968  //                                               X    PPPPPP   SSSSS     I
 99969  //                                              X X   P             S    I
 99970  //                                             X   X  P       S     S    I
 99971  //                                            X     X P        SSSSS    III
 99972  
 99973  
 99974  // VIF  THU 20 NOV 2025 22:21:23  ** XPSI                         ** DIAGNOSTICS                                      PAGE 02705
 99975  
 99976  
 99977  // VIF  THU 20 NOV 2025 22:21:23  ** XPSI                         ** GENERATED CODE                                   PAGE 02706
 99978  
 99979  real_4 _xpsi (real_4 _p_ a_, int_4 _p_ ipsik_, int_4 _p_ ipsix_)
 99980  { // ** body not listed **
100167  }
100168  
100169  // VIF  THU 20 NOV 2025 22:21:23  ** XRED                         ** XRED                                             PAGE 02710
100170  
100171  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
100172  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
100173  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
100174  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
100175  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
100176  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
100177  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
100178  
100179  //                                           X     X RRRRRR  EEEEEEE DDDDDD
100180  //                                            X   X  R     R E       D     D
100181  //                                             X X   R     R E       D     D
100182  //                                              X    RRRRRR  EEEEE   D     D
100183  //                                             X X   R   R   E       D     D
100184  //                                            X   X  R    R  E       D     D
100185  //                                           X     X R     R EEEEEEE DDDDDD
100186  
100187  
100188  // VIF  THU 20 NOV 2025 22:21:23  ** XRED                         ** DIAGNOSTICS                                      PAGE 02711
100189  
100190  
100191  // VIF  THU 20 NOV 2025 22:21:23  ** XRED                         ** GENERATED CODE                                   PAGE 02712
100192  
100193  int_4 _xred (real_4 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_)
100194  { // ** body not listed **
100267  }
100268  
100269  // VIF  THU 20 NOV 2025 22:21:23  ** YAIRY                        ** YAIRY                                            PAGE 02714
100270  
100271  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
100272  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
100273  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
100274  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
100275  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
100276  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
100277  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
100278  
100279  //                                       Y     Y    A      III   RRRRRR  Y     Y
100280  //                                        Y   Y    A A      I    R     R  Y   Y
100281  //                                         Y Y    A   A     I    R     R   Y Y
100282  //                                          Y    A     A    I    RRRRRR     Y
100283  //                                          Y    AAAAAAA    I    R   R      Y
100284  //                                          Y    A     A    I    R    R     Y
100285  //                                          Y    A     A   III   R     R    Y
100286  
100287  
100288  // VIF  THU 20 NOV 2025 22:21:23  ** YAIRY                        ** DIAGNOSTICS                                      PAGE 02715
100289  
100290  
100291  // VIF  THU 20 NOV 2025 22:21:23  ** YAIRY                        ** GENERATED CODE                                   PAGE 02716
100292  
100293  int_4 _yairy (real_4 _p_ x_, real_4 _p_ rx_, real_4 _p_ c_, real_4 _p_ bi_, real_4 _p_ dbi_)
100294  { // ** body not listed **
102515  }


© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)