mathlib-fnlib.c

     1  //! @file mathlib-fnlib.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 FNLIB
    24  
    25  // Compiled from Fortran source code by VIF.
    26  
    27  // Routines from SLATEC's AMOSLIB and FNLIB.
    28  // 
    29  // FNLIB is W. Fullerton's special-function package.
    30  // 
    31  // AMOSLIB is D. E. Amos' portable package for Bessel Functions of a 
    32  // Complex Argument and Nonnegative Order.
    33  // 
    34  // Functions that are already in the VIF library have been removed 
    35  // (acos, asin, atan, lngam, erf, ...).
    36  // 
    37  // Source: netlib.org/slatec/
    38  
    39  // The license for FNLIB Fortran source code is:
    40  //
    41  // The SLATEC Common Mathematical Library was developed at
    42  // US government research laboratories and is in the public domain.
    43  // 
    44  // Repository: http://www.netlib.org/slatec/
    45  // 
    46  // The SLATEC common mathematical library is issued by the following
    47  // 
    48  //         Air Force Weapons Laboratory, Albuquerque
    49  //         Lawrence Livermore National Laboratory, Livermore
    50  //         Los Alamos National Laboratory, Los Alamos
    51  //         National Institute of Standards and Technology, Washington
    52  //         National Energy Research Supercomputer Center, Livermore
    53  //         Oak Ridge National Laboratory, Oak Ridge
    54  //         Sandia National Laboratories, Albuquerque
    55  //         Sandia National Laboratories, Livermore
    56  // 
    57  // All questions concerning the distribution of the library should be
    58  // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
    59  // Argonne, Illinois  60439, and not to the authors of the subprograms.
    60  // 
    61  //                  * * * * * Notice * * * * *
    62  // 
    63  // This material was prepared as an account of work sponsored by the
    64  // United States Government.  Neither the United States, nor the
    65  // Department of Energy, nor the Department of Defense, nor any of
    66  // their employees, nor any of their contractors, subcontractors, or
    67  // their employees, makes any warranty, expressed or implied, or
    68  // assumes any legal liability or responsibility for the accuracy,
    69  // completeness, or usefulness of any information, apparatus, product,
    70  // or process disclosed, or represents that its use would not infringe
    71  // upon privately owned rights.
    72  
    73  // VIF  THU 20 NOV 2025 22:19:48  ** MARCEL                       ** FNLIB                                            PAGE 00001
    74  
    75  
    76  
    77  //                                   M     M    A    RRRRRR   CCCCC  EEEEEEE L
    78  //                                   MM   MM   A A   R     R C     C E       L
    79  //                                   M M M M  A   A  R     R C       E       L
    80  //                                   M  M  M A     A RRRRRR  C       EEEEE   L
    81  //                                   M     M AAAAAAA R   R   C       E       L
    82  //                                   M     M A     A R    R  C     C E       L
    83  //                                   M     M A     A R     R  CCCCC  EEEEEEE LLLLLLL
    84  
    85  //                                       FFFFFFF N     N L         III   BBBBBB
    86  //                                       F       NN    N L          I    B     B
    87  //                                       F       N N   N L          I    B     B
    88  //                                       FFFFF   N  N  N L          I    BBBBBB
    89  //                                       F       N   N N L          I    B     B
    90  //                                       F       N    NN L          I    B     B
    91  //                                       F       N     N LLLLLLL   III   BBBBBB
    92  
    93  
    94  
    95  
    96  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** DIAGNOSTICS                                      PAGE 00002
    97  
    98  // ** linker     ** object size 3785408 bytes
    99  // ** statistics ** 253 subprograms, no errors, no warnings
   100  
   101  
   102  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** JOB CONTROL                                      PAGE 00003
   103  
   104  
   105  //   Line    JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
   106  
   107  
   108  
   109  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00004
   110  
   111  /*
   112  Generated by VIF - experimental VIntage Fortran compiler.
   113  VIF release 1.4.1
   114  */
   115  
   116  #if defined (__GNUC__)
   117  #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
   118  #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
   119  #if (__GNUC__ >= 14)
   120  #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
   121  #pragma GCC diagnostic ignored "-Wimplicit-int"
   122  #pragma GCC diagnostic ignored "-Wint-conversion"
   123  #pragma GCC diagnostic ignored "-Wreturn-mismatch"
   124  #endif
   125  #else
   126  #error VIF requires GCC
   127  #endif
   128  
   129  #include <vif.h>
   130  
   131  static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
   132  
   133  
   134  #define _dc_0 "slatec"
   135  #define _dc_1 "ai"
   136  #define _dc_2 "x so big ai underflows"
   137  #define _dc_3 "albeta"
   138  #define _dc_4 "both arguments must be gt zero"
   139  #define _dc_5 "ali"
   140  #define _dc_6 "log integral undefined for x le 0"
   141  #define _dc_7 "log integral undefined for x = 1"
   142  #define _dc_8 "alnrel"
   143  #define _dc_9 "x is le -1"
   144  #define _dc_10 "answer lt half precision because x too near -1"
   145  #define _dc_11 "besi0"
   146  #define _dc_12 "abs(x) so big i0 overflows"
   147  #define _dc_13 "besi1e"
   148  #define _dc_14 "abs(x) so small i1 underflows"
   149  #define _dc_15 "besi1"
   150  #define _dc_16 "abs(x) so big i1 overflows"
   151  #define _dc_17 "besi"
   152  #define _dc_18 "scaling option, kode, not 1 or 2."
   153  #define _dc_19 "order, alpha, less than zero."
   154  #define _dc_20 "n less than one."
   155  #define _dc_21 "x less than zero."
   156  #define _dc_22 "overflow, x too large for kode = 1."
   157  #define _dc_23 "besj0"
   158  #define _dc_24 "no precision because abs(x) is too big"
   159  #define _dc_25 "besj1"
   160  #define _dc_26 "abs(x) so small j1 underflows"
   161  #define _dc_27 "besj"
   162  #define _dc_28 "besk0e"
   163  #define _dc_29 "x is zero or negative"
   164  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00005
   165  
   166  #define _dc_30 "besk0"
   167  #define _dc_31 "x so big k0 underflows"
   168  #define _dc_32 "besk1e"
   169  #define _dc_33 "x so small k1 overflows"
   170  #define _dc_34 "besk1"
   171  #define _dc_35 "x so big k1 underflows"
   172  #define _dc_36 "beskes"
   173  #define _dc_37 "abs(xnu) must be lt 1"
   174  #define _dc_38 "x is le 0"
   175  #define _dc_39 "n the number in the sequence is 0"
   176  #define _dc_40 "x so small bessel k-sub-xnu+1 overflows"
   177  #define _dc_41 "x so small or abs(nu) so big that bessel k-sub-nu overflows"
   178  #define _dc_42 "besk"
   179  #define _dc_43 "scaling option, kode, not 1 or 2"
   180  #define _dc_44 "order, fnu, less than zero"
   181  #define _dc_45 "x less than or equal to zero"
   182  #define _dc_46 "n less than one"
   183  #define _dc_47 "overflow, fnu or n too large or x too small"
   184  #define _dc_48 "besknu"
   185  #define _dc_49 "x not greater than zero"
   186  #define _dc_50 "fnu not zero or positive"
   187  #define _dc_51 "kode not 1 or 2"
   188  #define _dc_52 "n not greater than 0"
   189  #define _dc_53 "besks"
   190  #define _dc_54 "x so big bessel k underflows"
   191  #define _dc_55 "besy0"
   192  #define _dc_56 "no precision because x is big"
   193  #define _dc_57 "besy1"
   194  #define _dc_58 "x so small y1 overflows"
   195  #define _dc_59 "besy"
   196  #define _dc_60 "besynu"
   197  #define _dc_61 "beta"
   198  #define _dc_62 "both arguments must be gt 0"
   199  #define _dc_63 "a and/or b so big beta underflows"
   200  #define _dc_64 "betai"
   201  #define _dc_65 "x is not in the range (0,1)"
   202  #define _dc_66 "p and/or q is le zero"
   203  #define _dc_67 "bfqad"
   204  #define _dc_68 "x1 or x2 or both do not satisfy t(k).le.x.le.t(n+1)"
   205  #define _dc_69 "tol is less than the single precision tolerance or "
   206  #define _dc_70 "greater than 0.1"
   207  #define _dc_71 "k does not satisfy k.ge.1"
   208  #define _dc_72 "n does not satisfy n.ge.k"
   209  #define _dc_73 "id does not satisfy 0 .le. id .lt. k"
   210  #define _dc_74 "bi"
   211  #define _dc_75 "x so big that bi overflows"
   212  #define _dc_76 "binom"
   213  #define _dc_77 "n or m lt zero"
   214  #define _dc_78 "n lt m"
   215  #define _dc_79 "result overflows because n and/or m too big"
   216  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00006
   217  
   218  #define _dc_80 "bint4"
   219  #define _dc_81 "the system of equations is singular"
   220  #define _dc_82 "ndata is less than 2"
   221  #define _dc_83 "x values are not distinct or not ordered"
   222  #define _dc_84 "ibcl is not 1 or 2"
   223  #define _dc_85 "ibcr is not 1 or 2"
   224  #define _dc_86 "kntopt is not 1, 2, or 3"
   225  #define _dc_87 "knot input through w array is not ordered properly"
   226  #define _dc_88 "bintk"
   227  #define _dc_89 "some abscissa was not in the support of the corresponding "
   228  #define _dc_90 "basis function and the system is singular."
   229  #define _dc_91 "the system of solver detects a singular system although "
   230  #define _dc_92 "the theoretical conditions for a solution were satisfied."
   231  #define _dc_93 "x(i) does not satisfy x(i).lt.x(i+1) for some i"
   232  #define _dc_94 "bspev"
   233  #define _dc_95 "x is not in t(k).le.x.le.t(n+1)"
   234  #define _dc_96 "nderiv does not satisfy 1.le.nderiv.le.k"
   235  #define _dc_97 "a left limiting value cannot be obtained at t(k)"
   236  #define _dc_98 "bsppp"
   237  #define _dc_99 "ldc does not satisfy ldc.ge.k"
   238  #define _dc_100 "bspvd"
   239  #define _dc_101 "ldvnik does not satisfy ldvnik.ge.k"
   240  #define _dc_102 "bsqad"
   241  #define _dc_103 "k does not satisfy 1.le.k.le.20"
   242  #define _dc_104 "bvalu"
   243  #define _dc_105 "ideriv does not satisfy 0.le.ideriv.lt.k"
   244  #define _dc_106 "x is n0t greater than or equal to t(k)"
   245  #define _dc_107 "x is not less than or equal to t(n+1)"
   246  #define _dc_108 "c9lgmc"
   247  #define _dc_109 "not valid for negative real(z) and small "
   248  #define _dc_110 "abs(aimag(z))"
   249  #define _dc_111 "not valid for small abs(z)"
   250  #define _dc_112 "z so big c9lgmc underflows"
   251  #define _dc_113 "catan2"
   252  #define _dc_114 "called with both arguments zero"
   253  #define _dc_115 "catan"
   254  #define _dc_116 "z is +i or -i"
   255  #define _dc_117 "answer lt half precision, z**2 close to -1"
   256  #define _dc_118 "cbeta"
   257  #define _dc_119 "real part of both arguments must be gt 0"
   258  #define _dc_120 "ccot"
   259  #define _dc_121 "cot is singular for input z (x is 0 or pi and y is 0)"
   260  #define _dc_122 "answer lt half precision, abs(x) too big or x too near "
   261  #define _dc_123 "0 or pi"
   262  #define _dc_124 "chu"
   263  #define _dc_125 "x is zero so chu is infinite"
   264  #define _dc_126 "x is negative, use cchu"
   265  #define _dc_127 "algorithm is bad when 1+a-b is near zero for small x"
   266  #define _dc_128 "no convergence in 1000 terms of the ascending series"
   267  #define _dc_129 "clbeta"
   268  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00007
   269  
   270  #define _dc_130 "clngam"
   271  #define _dc_131 "z is a negative integer"
   272  #define _dc_132 "answer lt half precision because z too near negative integer"
   273  #define _dc_133 "clnrel"
   274  #define _dc_134 "answer lt half precision because z too near -1"
   275  #define _dc_135 "cot"
   276  #define _dc_136 "abs(x) is zero or so small cot overflows"
   277  #define _dc_137 "answer lt half precision, abs(x) too big or x near n*pi "
   278  #define _dc_138 "(n.ne.0)"
   279  #define _dc_139 "cpsi"
   280  #define _dc_140 "cpsi called with z so near 0 that cpsi overflows"
   281  #define _dc_141 "csevl"
   282  #define _dc_142 "number of terms .le. 0"
   283  #define _dc_143 "number of terms .gt. 1000"
   284  #define _dc_144 "x outside the interval (-1,+1)"
   285  #define _dc_145 "ctan"
   286  #define _dc_146 "tan is singular for input z (x is pi/2 or 3*pi/2 and y is 0)"
   287  #define _dc_147 "pi/2 or 3*pi/2"
   288  #define _dc_148 "d9aimp"
   289  #define _dc_149 "x must be le -1.0"
   290  #define _dc_150 "d9atn1"
   291  #define _dc_151 "no precision in answer because x is too big"
   292  #define _dc_152 "answer lt half precision because x is too big"
   293  #define _dc_153 "d9b0mp"
   294  #define _dc_154 "x must be ge 4"
   295  #define _dc_155 "d9b1mp"
   296  #define _dc_156 "x must be .ge. 4"
   297  #define _dc_157 "no precision because x is too big"
   298  #define _dc_158 "d9chu"
   299  #define _dc_159 "no convergence in 300 terms"
   300  #define _dc_160 "answer lt half precision"
   301  #define _dc_161 "d9gmic"
   302  #define _dc_162 "a must be near a negative integer"
   303  #define _dc_163 "x must be gt zero"
   304  #define _dc_164 "no convergence in 200 terms of continued fraction"
   305  #define _dc_165 "result underflows"
   306  #define _dc_166 "d9gmit"
   307  #define _dc_167 "x should be gt 0"
   308  #define _dc_168 "no convergence in 200 terms of taylor-s series"
   309  #define _dc_169 "d9knus"
   310  #define _dc_170 "xnu must be ge 0 and lt 1"
   311  #define _dc_171 "x must be gt 0"
   312  #define _dc_172 "x so small bessel k-sub-xnu overflows"
   313  #define _dc_173 "d9lgic"
   314  #define _dc_174 "no convergence in 300 terms of continued fraction"
   315  #define _dc_175 "d9lgit"
   316  #define _dc_176 "x should be gt 0.0 and le a"
   317  #define _dc_177 "result less than half precision"
   318  #define _dc_178 "d9lgmc"
   319  #define _dc_179 "x must be ge 10"
   320  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00008
   321  
   322  #define _dc_180 "x so big d9lgmc underflows"
   323  #define _dc_181 "d9ln2r"
   324  #define _dc_182 "answer lt half precision because x is too near -1"
   325  #define _dc_183 "d9pak"
   326  #define _dc_184 "packed number overflows"
   327  #define _dc_185 "packed number underflows"
   328  #define _dc_186 "dai"
   329  #define _dc_187 "daws"
   330  #define _dc_188 "abs(x) so large daws underflows"
   331  #define _dc_189 "dbesi0"
   332  #define _dc_190 "dbesi1"
   333  #define _dc_191 "dbesi"
   334  #define _dc_192 "dbesj1"
   335  #define _dc_193 "dbesj"
   336  #define _dc_194 "dbesk0"
   337  #define _dc_195 "dbesk1"
   338  #define _dc_196 "dbesk"
   339  #define _dc_197 "dbesks"
   340  #define _dc_198 "dbesy0"
   341  #define _dc_199 "dbesy1"
   342  #define _dc_200 "dbesy"
   343  #define _dc_201 "dbeta"
   344  #define _dc_202 "dbetai"
   345  #define _dc_203 "dbfqad"
   346  #define _dc_204 "tol is less dtol or greater than 0.1"
   347  #define _dc_205 "id does not satisfy 0.le.id.lt.k"
   348  #define _dc_206 "dbi"
   349  #define _dc_207 "dbinom"
   350  #define _dc_208 "dbint4"
   351  #define _dc_209 "dbintk"
   352  #define _dc_210 "dbsi1e"
   353  #define _dc_211 "dbsk0e"
   354  #define _dc_212 "dbsk1e"
   355  #define _dc_213 "dbskes"
   356  #define _dc_214 "x so small or abs(nu) so big that bessel k-sub-nu "
   357  #define _dc_215 "overflows"
   358  #define _dc_216 "dbsknu"
   359  #define _dc_217 "dbspev"
   360  #define _dc_218 "dbsppp"
   361  #define _dc_219 "dbspvd"
   362  #define _dc_220 "dbsqad"
   363  #define _dc_221 "dbsynu"
   364  #define _dc_222 "dbvalu"
   365  #define _dc_223 "dchu"
   366  #define _dc_224 "x is zero so dchu is infinite"
   367  #define _dc_225 "algorithmis bad when 1+a-b is near zero for small x"
   368  #define _dc_226 "dcot"
   369  #define _dc_227 "abs(x) is zero or so small dcot overflows"
   370  #define _dc_228 "dcsevl"
   371  #define _dc_229 "ddaws"
   372  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00009
   373  
   374  #define _dc_230 "de1"
   375  #define _dc_231 "x is 0"
   376  #define _dc_232 "x so big e1 underflows"
   377  #define _dc_233 "dfac"
   378  #define _dc_234 "factorial of negative integer undefined"
   379  #define _dc_235 "n so big factorial(n) overflows"
   380  #define _dc_236 "dgamic"
   381  #define _dc_237 "x is negative"
   382  #define _dc_238 "x = 0 and a le 0 so dgamic is undefined"
   383  #define _dc_239 "result lt half precision"
   384  #define _dc_240 "dgami"
   385  #define _dc_241 "a must be gt zero"
   386  #define _dc_242 "x must be ge zero"
   387  #define _dc_243 "dgamit"
   388  #define _dc_244 "dgamlm"
   389  #define _dc_245 "unable to find xmin"
   390  #define _dc_246 "unable to find xmax"
   391  #define _dc_247 "dlbeta"
   392  #define _dc_248 "dli"
   393  #define _dc_249 "log integral undefined for x = 0"
   394  #define _dc_250 "dlnrel"
   395  #define _dc_251 "dpfqad"
   396  #define _dc_252 "lxi does not satisfy lxi.ge.1"
   397  #define _dc_253 "dpoch1"
   398  #define _dc_254 "nterms is too big, maybe d1mach(3) is bad"
   399  #define _dc_255 "dpoch"
   400  #define _dc_256 "a+x is non-positive integer but a is not"
   401  #define _dc_257 "dppqad"
   402  #define _dc_258 "dppval"
   403  #define _dc_259 "dpsi"
   404  #define _dc_260 "x is a negative integer"
   405  #define _dc_261 "answer lt half precision because x too near negative integer"
   406  #define _dc_262 "e1"
   407  #define _dc_263 "fac"
   408  #define _dc_264 "gamic"
   409  #define _dc_265 "x = 0 and a le 0 so gamic is undefined"
   410  #define _dc_266 "gami"
   411  #define _dc_267 "gamit"
   412  #define _dc_268 "gamlim"
   413  #define _dc_269 "initds"
   414  #define _dc_270 "number of coefficients is less than 1"
   415  #define _dc_271 "chebyshev series too short for specified accuracy"
   416  #define _dc_272 "inits"
   417  #define _dc_273 "pfqad"
   418  #define _dc_274 "poch1"
   419  #define _dc_275 "nterms is too big, maybe r1mach(3) is bad"
   420  #define _dc_276 "poch"
   421  #define _dc_277 "ppqad"
   422  #define _dc_278 "ppval"
   423  #define _dc_279 "psi"
   424  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00010
   425  
   426  #define _dc_280 "r9aimp"
   427  #define _dc_281 "r9atn1"
   428  #define _dc_282 "r9chu"
   429  #define _dc_283 "answer less than half precision"
   430  #define _dc_284 "r9gmic"
   431  #define _dc_285 "r9gmit"
   432  #define _dc_286 "r9knus"
   433  #define _dc_287 "r9lgic"
   434  #define _dc_288 "r9lgit"
   435  #define _dc_289 "r9lgmc"
   436  #define _dc_290 "x so big r9lgmc underflows"
   437  #define _dc_291 "r9ln2r"
   438  #define _dc_292 "r9pak"
   439  
   440  
   441  
   442  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** TYPEDEFS                                         PAGE 00011
   443  
   444  static FORMAT *__fmt_a = NULL;
   445  typedef char char_3[4];
   446  typedef char char_7[8];
   447  typedef char char_15[16];
   448  typedef char char_31[32];
   449  typedef char char_63[64];
   450  typedef char char_127[128];
   451  
   452  
   453  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** FREQUENCY TABLE                                  PAGE 00012
   454  
   455  #define __ncalls 254
   456  static CALLS __calls[__ncalls] = {
   457  { // ** body not listed **"aie", 0}, // function
   459  { // ** body not listed **"albeta", 0}, // function
   461  { // ** body not listed **"ali", 0}, // function
   463  { // ** body not listed **"besi0e", 0}, // function
   465  { // ** body not listed **"besi1e", 0}, // function
   467  { // ** body not listed **"besi", 0}, // subroutine
   469  { // ** body not listed **"besj1", 0}, // function
   471  { // ** body not listed **"besk0e", 0}, // function
   473  { // ** body not listed **"besk1e", 0}, // function
   475  { // ** body not listed **"beskes", 0}, // subroutine
   477  { // ** body not listed **"besknu", 0}, // subroutine
   479  { // ** body not listed **"besy0", 0}, // function
   481  { // ** body not listed **"besy", 0}, // subroutine
   483  { // ** body not listed **"beta", 0}, // function
   485  { // ** body not listed **"bfqad", 0}, // subroutine
   487  { // ** body not listed **"bi", 0}, // function
   489  { // ** body not listed **"bint4", 0}, // subroutine
   491  { // ** body not listed **"bkias", 0}, // subroutine
   493  { // ** body not listed **"bskin", 0}, // subroutine
   495  { // ** body not listed **"bsppp", 0}, // subroutine
   497  { // ** body not listed **"bsqad", 0}, // subroutine
   499  { // ** body not listed **"c0lgmc", 0}, // complex*8 function
   501  { // ** body not listed **"c9ln2r", 0}, // complex*8 function
   503  { // ** body not listed **"cacon", 0}, // subroutine
   507  { // ** body not listed **"cacosh", 0}, // complex*8 function
   509  { // ** body not listed **"carg", 0}, // function
   511  { // ** body not listed **"casinh", 0}, // complex*8 function
   513  { // ** body not listed **"catan", 0}, // complex*8 function
   515  { // ** body not listed **"cbesh", 0}, // subroutine
   517  { // ** body not listed **"cbesj", 0}, // subroutine
   519  { // ** body not listed **"cbesy", 0}, // subroutine
   521  { // ** body not listed **"cbinu", 0}, // subroutine
   523  { // ** body not listed **"cbknu", 0}, // subroutine
   525  { // ** body not listed **"cbuni", 0}, // subroutine
   527  { // ** body not listed **"ccbrt", 0}, // complex*8 function
   529  { // ** body not listed **"ccot", 0}, // complex*8 function
   531  { // ** body not listed **"cgamma", 0}, // complex*8 function
   533  { // ** body not listed **"chu", 0}, // function
   535  { // ** body not listed **"clbeta", 0}, // complex*8 function
   537  { // ** body not listed **"clnrel", 0}, // complex*8 function
   539  { // ** body not listed **"cmlri", 0}, // subroutine
   541  { // ** body not listed **"cot", 0}, // function
   543  { // ** body not listed **"cseri", 0}, // subroutine
   545  { // ** body not listed **"csinh", 0}, // complex*8 function
   547  { // ** body not listed **"ctanh", 0}, // complex*8 function
   549  { // ** body not listed **"cuni2", 0}, // subroutine
   551  { // ** body not listed **"cunk2", 0}, // subroutine
   553  { // ** body not listed **"cwrsk", 0}, // subroutine
   555  { // ** body not listed **"d9atn1", 0}, // real*8 function
   559  { // ** body not listed **"d9b1mp", 0}, // subroutine
   561  { // ** body not listed **"d9gmic", 0}, // real*8 function
   563  { // ** body not listed **"d9knus", 0}, // subroutine
   565  { // ** body not listed **"d9lgit", 0}, // real*8 function
   567  { // ** body not listed **"d9ln2r", 0}, // real*8 function
   569  { // ** body not listed **"d9upak", 0}, // subroutine
   571  { // ** body not listed **"dai", 0}, // real*8 function
   573  { // ** body not listed **"daws", 0}, // function
   575  { // ** body not listed **"dbesi1", 0}, // real*8 function
   577  { // ** body not listed **"dbesj0", 0}, // real*8 function
   579  { // ** body not listed **"dbesj", 0}, // subroutine
   581  { // ** body not listed **"dbesk1", 0}, // real*8 function
   583  { // ** body not listed **"dbesks", 0}, // subroutine
   585  { // ** body not listed **"dbesy1", 0}, // real*8 function
   587  { // ** body not listed **"dbeta", 0}, // real*8 function
   589  { // ** body not listed **"dbfqad", 0}, // subroutine
   591  { // ** body not listed **"dbi", 0}, // real*8 function
   593  { // ** body not listed **"dbint4", 0}, // subroutine
   595  { // ** body not listed **"dbkias", 0}, // subroutine
   597  { // ** body not listed **"dbsi0e", 0}, // real*8 function
   599  { // ** body not listed **"dbsk0e", 0}, // real*8 function
   601  { // ** body not listed **"dbskes", 0}, // subroutine
   603  { // ** body not listed **"dbsknu", 0}, // subroutine
   605  { // ** body not listed **"dbsppp", 0}, // subroutine
   607  { // ** body not listed **"dbsqad", 0}, // subroutine
   611  { // ** body not listed **"dbvalu", 0}, // real*8 function
   613  { // ** body not listed **"dchu", 0}, // real*8 function
   615  { // ** body not listed **"dcot", 0}, // real*8 function
   617  { // ** body not listed **"ddaws", 0}, // real*8 function
   619  { // ** body not listed **"dei", 0}, // real*8 function
   621  { // ** body not listed **"dexprl", 0}, // real*8 function
   623  { // ** body not listed **"dgamic", 0}, // real*8 function
   625  { // ** body not listed **"dgamit", 0}, // real*8 function
   627  { // ** body not listed **"dgamln", 0}, // real*8 function
   629  { // ** body not listed **"dgamrn", 0}, // real*8 function
   631  { // ** body not listed **"dlbeta", 0}, // real*8 function
   633  { // ** body not listed **"dli", 0}, // real*8 function
   635  { // ** body not listed **"dpfqad", 0}, // subroutine
   637  { // ** body not listed **"dpoch", 0}, // real*8 function
   639  { // ** body not listed **"dppval", 0}, // real*8 function
   641  { // ** body not listed **"dpsifn", 0}, // subroutine
   643  { // ** body not listed **"dspenc", 0}, // real*8 function
   645  { // ** body not listed **"ei", 0}, // function
   647  { // ** body not listed **"exprel", 0}, // function
   649  { // ** body not listed **"fundoc", 0}, // subroutine
   651  { // ** body not listed **"gami", 0}, // function
   653  { // ** body not listed **"gamlim", 0}, // subroutine
   655  { // ** body not listed **"gamr", 0}, // function
   657  { // ** body not listed **"inits", 0}, // function
   659  { // ** body not listed **"poch1", 0}, // function
   663  { // ** body not listed **"ppqad", 0}, // subroutine
   665  { // ** body not listed **"psi", 0}, // function
   667  { // ** body not listed **"r9atn1", 0}, // function
   669  { // ** body not listed **"r9gmic", 0}, // function
   671  { // ** body not listed **"r9knus", 0}, // subroutine
   673  { // ** body not listed **"r9lgit", 0}, // function
   675  { // ** body not listed **"r9ln2r", 0}, // function
   677  { // ** body not listed **"r9upak", 0}, // subroutine
   679  { // ** body not listed **"rgauss", 0}, // function
   681  { // ** body not listed **"sindg", 0}, // function
   683  { // ** body not listed **"zabs", 0}, // real*8 function
   685  { // ** body not listed **"zacon", 0}, // subroutine
   687  { // ** body not listed **"zasyi", 0}, // subroutine
   689  { // ** body not listed **"zbesi", 0}, // subroutine
   691  { // ** body not listed **"zbesk", 0}, // subroutine
   693  { // ** body not listed **"zbinu", 0}, // subroutine
   695  { // ** body not listed **"zbknu", 0}, // subroutine
   697  { // ** body not listed **"zbunk", 0}, // subroutine
   699  { // ** body not listed **"zexp", 0}, // subroutine
   701  { // ** body not listed **"zlog", 0}, // subroutine
   703  { // ** body not listed **"zmlt", 0}, // subroutine
   705  { // ** body not listed **"zs1s2", 0}, // subroutine
   707  { // ** body not listed **"zshch", 0}, // subroutine
   709  { // ** body not listed **"zuchk", 0}, // subroutine
   711  { // ** body not listed **"zuni1", 0}, // subroutine
   715  { // ** body not listed **"zunik", 0}, // subroutine
   717  { // ** body not listed **"zunk2", 0}, // subroutine
   719  { // ** body not listed **"zwrsk", 0}, // subroutine
   721  };
   722  
   723  
   724  
   725  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** COMMON BLOCKS                                    PAGE 00018
   726  
   727  
   728  
   729  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00019
   730  
   731  
   732  prototype real_4 _aie (real_4 _p_ x_);
   733  prototype real_4 _ai (real_4 _p_ x_);
   734  prototype real_4 _albeta (real_4 _p_ a_, real_4 _p_ b_);
   735  prototype int_4 _algams (real_4 _p_ x_, real_4 _p_ algam_, real_4 _p_ sgngam_);
   736  prototype real_4 _ali (real_4 _p_ x_);
   737  prototype real_4 _alnrel (real_4 _p_ x_);
   738  prototype real_4 _besi0e (real_4 _p_ x_);
   739  prototype real_4 _besi0 (real_4 _p_ x_);
   740  prototype real_4 _besi1e (real_4 _p_ x_);
   741  prototype real_4 _besi1 (real_4 _p_ x_);
   742  prototype int_4 _besi (real_4 _p_ x_, real_4 _p_ alpha_, int_4 _p_ kode_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_);
   743  prototype real_4 _besj0 (real_4 _p_ x_);
   744  prototype real_4 _besj1 (real_4 _p_ x_);
   745  prototype int_4 _besj (real_4 _p_ x_, real_4 _p_ alpha_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_);
   746  prototype real_4 _besk0e (real_4 _p_ x_);
   747  prototype real_4 _besk0 (real_4 _p_ x_);
   748  prototype real_4 _besk1e (real_4 _p_ x_);
   749  prototype real_4 _besk1 (real_4 _p_ x_);
   750  prototype int_4 _beskes (real_4 _p_ xnu_, real_4 _p_ x_, int_4 _p_ nin_, real_4 _p_ bke_);
   751  prototype int_4 _besk (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_);
   752  prototype int_4 _besknu (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_);
   753  prototype int_4 _besks (real_4 _p_ xnu_, real_4 _p_ x_, int_4 _p_ nin_, real_4 _p_ bk_);
   754  prototype real_4 _besy0 (real_4 _p_ x_);
   755  prototype real_4 _besy1 (real_4 _p_ x_);
   756  prototype int_4 _besy (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ n_, real_4 _p_ y_);
   757  prototype int_4 _besynu (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ n_, real_4 _p_ y_);
   758  prototype real_4 _beta (real_4 _p_ a_, real_4 _p_ b_);
   759  prototype real_4 _betai (real_4 _p_ x_, real_4 _p_ pin_, real_4 _p_ qin_);
   760  prototype int_4 _bfqad (real_4 (*_f)(), real_4 _p_ t_, real_4 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ id_, 
   761  real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_, real_4 _p_ work_);
   762  prototype real_4 _bie (real_4 _p_ x_);
   763  prototype real_4 _bi (real_4 _p_ x_);
   764  prototype real_4 _binom (int_4 _p_ n_, int_4 _p_ m_);
   765  prototype int_4 _bint4 (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ ndata_, int_4 _p_ ibcl_, int_4 _p_ ibcr_, real_4 _p_ 
   766  fbcl_, real_4 _p_ fbcr_, int_4 _p_ kntopt_, real_4 _p_ t_, real_4 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ w_
   767  );
   768  prototype int_4 _bintk (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ t_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ bcoef_, 
   769  real_4 _p_ q_, real_4 _p_ work_);
   770  prototype int_4 _bkias (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ ktrms_, real_4 _p_ t_, real_4 _p_ ans_, int_4 _p_ ind_, 
   771  int_4 _p_ ms_, real_4 _p_ gmrn_, real_4 _p_ h_, int_4 _p_ ierr_);
   772  prototype int_4 _bkisr (real_4 _p_ x_, int_4 _p_ n_, real_4 _p_ sum_, int_4 _p_ ierr_);
   773  prototype int_4 _bskin (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_4 _p_ y_, int_4 _p_ nz_, int_4 
   774  _p_ ierr_);
   775  prototype int_4 _bspev (real_4 _p_ t_, real_4 _p_ ad_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ nderiv_, real_4 _p_ x_, 
   776  int_4 _p_ inev_, real_4 _p_ svalue_, real_4 _p_ work_);
   777  prototype int_4 _bsppp (real_4 _p_ t_, real_4 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ ldc_, real_4 _p_ c_, real_4 
   778  _p_ xi_, int_4 _p_ lxi_, real_4 _p_ work_);
   779  prototype int_4 _bspvd (real_4 _p_ t_, int_4 _p_ k_, int_4 _p_ nderiv_, real_4 _p_ x_, int_4 _p_ ileft_, int_4 _p_ 
   780  ldvnik_, real_4 _p_ vnikx_, real_4 _p_ work_);
   781  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00020
   782  
   783  prototype int_4 _bsqad (real_4 _p_ t_, real_4 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ x1_, real_4 _p_ x2_, 
   784  real_4 _p_ bquad_, real_4 _p_ work_);
   785  prototype real_4 _bvalu (real_4 _p_ t_, real_4 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ ideriv_, real_4 _p_ x_, 
   786  int_4 _p_ inbv_, real_4 _p_ work_);
   787  prototype complex_8 _c0lgmc (complex_8 _p_ z_);
   788  prototype complex_8 _c9lgmc (complex_8 _p_ zin_);
   789  prototype complex_8 _c9ln2r (complex_8 _p_ z_);
   790  prototype int_4 _cacai (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ 
   791  y_, int_4 _p_ nz_, real_4 _p_ rl_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   792  prototype int_4 _cacon (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ 
   793  y_, int_4 _p_ nz_, real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   794  prototype complex_8 _cacos (complex_8 _p_ z_);
   795  prototype complex_8 _cacosh (complex_8 _p_ z_);
   796  prototype int_4 _cairy (complex_8 _p_ z_, int_4 _p_ id_, int_4 _p_ kode_, complex_8 _p_ ai_, int_4 _p_ nz_, int_4 _p_ 
   797  ierr_);
   798  prototype real_4 _carg (complex_8 _p_ z_);
   799  prototype complex_8 _casin (complex_8 _p_ zinp_);
   800  prototype complex_8 _casinh (complex_8 _p_ z_);
   801  prototype complex_8 _catan2 (complex_8 _p_ csn_, complex_8 _p_ ccs_);
   802  prototype complex_8 _catan (complex_8 _p_ z_);
   803  prototype complex_8 _catanh (complex_8 _p_ z_);
   804  prototype int_4 _cbesh (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ 
   805  cy_, int_4 _p_ nz_, int_4 _p_ ierr_);
   806  prototype int_4 _cbesi (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ 
   807  nz_, int_4 _p_ ierr_);
   808  prototype int_4 _cbesj (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ 
   809  nz_, int_4 _p_ ierr_);
   810  prototype int_4 _cbesk (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ 
   811  nz_, int_4 _p_ ierr_);
   812  prototype int_4 _cbesy (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ 
   813  nz_, complex_8 _p_ cwrk_, int_4 _p_ ierr_);
   814  prototype complex_8 _cbeta (complex_8 _p_ a_, complex_8 _p_ b_);
   815  prototype int_4 _cbinu (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ 
   816  nz_, real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   817  prototype int_4 _cbiry (complex_8 _p_ z_, int_4 _p_ id_, int_4 _p_ kode_, complex_8 _p_ bi_, int_4 _p_ ierr_);
   818  prototype int_4 _cbknu (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ 
   819  nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   820  prototype real_4 _cbrt (real_4 _p_ x_);
   821  prototype int_4 _cbuni (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ 
   822  nz_, int_4 _p_ nui_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   823  prototype int_4 _cbunk (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ 
   824  y_, int_4 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   825  prototype complex_8 _ccbrt (complex_8 _p_ z_);
   826  prototype complex_8 _ccosh (complex_8 _p_ z_);
   827  prototype complex_8 _ccot (complex_8 _p_ z_);
   828  prototype complex_8 _cexprl (complex_8 _p_ z_);
   829  prototype complex_8 _cgamma (complex_8 _p_ z_);
   830  prototype complex_8 _cgamr (complex_8 _p_ z_);
   831  prototype real_4 _chu (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ x_);
   832  prototype int_4 _ckscl (complex_8 _p_ zr_, real_4 _p_ fnu_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, complex_8 
   833  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00021
   834  
   835  _p_ rz_, real_4 _p_ ascle_, real_4 _p_ tol_, real_4 _p_ elim_);
   836  prototype complex_8 _clbeta (complex_8 _p_ a_, complex_8 _p_ b_);
   837  prototype complex_8 _clngam (complex_8 _p_ zin_);
   838  prototype complex_8 _clnrel (complex_8 _p_ z_);
   839  prototype complex_8 _clog10 (complex_8 _p_ z_);
   840  prototype int_4 _cmlri (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ 
   841  nz_, real_4 _p_ tol_);
   842  prototype real_4 _cosdg (real_4 _p_ x_);
   843  prototype real_4 _cot (real_4 _p_ x_);
   844  prototype complex_8 _cpsi (complex_8 _p_ zin_);
   845  prototype int_4 _cseri (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ 
   846  nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   847  prototype real_4 _csevl (real_4 _p_ x_, real_4 _p_ cs_, int_4 _p_ n_);
   848  prototype complex_8 _csinh (complex_8 _p_ z_);
   849  prototype complex_8 _ctan (complex_8 _p_ z_);
   850  prototype complex_8 _ctanh (complex_8 _p_ z_);
   851  prototype int_4 _cuni1 (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ 
   852  nz_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   853  prototype int_4 _cuni2 (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ 
   854  nz_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   855  prototype int_4 _cunk1 (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ 
   856  y_, int_4 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   857  prototype int_4 _cunk2 (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ 
   858  y_, int_4 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   859  prototype int_4 _cuoik (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ ikflg_, int_4 _p_ n_, complex_8 
   860  _p_ y_, int_4 _p_ nuf_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   861  prototype int_4 _cwrsk (complex_8 _p_ zr_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ 
   862  nz_, complex_8 _p_ cw_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   863  prototype int_4 _d9aimp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_);
   864  prototype real_8 _d9atn1 (real_8 _p_ x_);
   865  prototype int_4 _d9b0mp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_);
   866  prototype int_4 _d9b1mp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_);
   867  prototype real_8 _d9chu (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ z_);
   868  prototype real_8 _d9gmic (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ alx_);
   869  prototype real_8 _d9gmit (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ algap1_, real_8 _p_ sgngam_, real_8 _p_ alx_);
   870  prototype int_4 _d9knus (real_8 _p_ xnu_, real_8 _p_ x_, real_8 _p_ bknu_, real_8 _p_ bknu1_, int_4 _p_ iswtch_);
   871  prototype real_8 _d9lgic (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ alx_);
   872  prototype real_8 _d9lgit (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ algap1_);
   873  prototype real_8 _d9lgmc (real_8 _p_ x_);
   874  prototype real_8 _d9ln2r (real_8 _p_ x_);
   875  prototype real_8 _d9pak (real_8 _p_ y_, int_4 _p_ n_);
   876  prototype int_4 _d9upak (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ n_);
   877  prototype real_8 _daie (real_8 _p_ x_);
   878  prototype real_8 _dai (real_8 _p_ x_);
   879  prototype int_4 _dasyjy (int_4 (*_funjy)(), real_8 _p_ x_, real_8 _p_ fnu_, real_8 _p_ flgjy_, int_4 _p_ in_, real_8 
   880  _p_ y_, real_8 _p_ wk_, int_4 _p_ iflw_);
   881  prototype real_4 _daws (real_4 _p_ x_);
   882  prototype real_8 _dbesi0 (real_8 _p_ x_);
   883  prototype real_8 _dbesi1 (real_8 _p_ x_);
   884  prototype int_4 _dbesi (real_8 _p_ x_, real_8 _p_ alpha_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_);
   885  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00022
   886  
   887  prototype real_8 _dbesj0 (real_8 _p_ x_);
   888  prototype real_8 _dbesj1 (real_8 _p_ x_);
   889  prototype int_4 _dbesj (real_8 _p_ x_, real_8 _p_ alpha_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_);
   890  prototype real_8 _dbesk0 (real_8 _p_ x_);
   891  prototype real_8 _dbesk1 (real_8 _p_ x_);
   892  prototype int_4 _dbesk (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_);
   893  prototype int_4 _dbesks (real_8 _p_ xnu_, real_8 _p_ x_, int_4 _p_ nin_, real_8 _p_ bk_);
   894  prototype real_8 _dbesy0 (real_8 _p_ x_);
   895  prototype real_8 _dbesy1 (real_8 _p_ x_);
   896  prototype int_4 _dbesy (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ y_);
   897  prototype real_8 _dbeta (real_8 _p_ a_, real_8 _p_ b_);
   898  prototype real_8 _dbetai (real_8 _p_ x_, real_8 _p_ pin_, real_8 _p_ qin_);
   899  prototype int_4 _dbfqad (real_8 (*_f)(), real_8 _p_ t_, real_8 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ id_, 
   900  real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_, real_8 _p_ work_);
   901  prototype real_8 _dbie (real_8 _p_ x_);
   902  prototype real_8 _dbi (real_8 _p_ x_);
   903  prototype real_8 _dbinom (int_4 _p_ n_, int_4 _p_ m_);
   904  prototype int_4 _dbint4 (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ ndata_, int_4 _p_ ibcl_, int_4 _p_ ibcr_, real_8 _p_ 
   905  fbcl_, real_8 _p_ fbcr_, int_4 _p_ kntopt_, real_8 _p_ t_, real_8 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ w_
   906  );
   907  prototype int_4 _dbintk (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ t_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ bcoef_, 
   908  real_8 _p_ q_, real_8 _p_ work_);
   909  prototype int_4 _dbkias (real_8 _p_ x_, int_4 _p_ n_, int_4 _p_ ktrms_, real_8 _p_ t_, real_8 _p_ ans_, int_4 _p_ ind_, 
   910  int_4 _p_ ms_, real_8 _p_ gmrn_, real_8 _p_ h_, int_4 _p_ ierr_);
   911  prototype int_4 _dbkisr (real_8 _p_ x_, int_4 _p_ n_, real_8 _p_ sum_, int_4 _p_ ierr_);
   912  prototype real_8 _dbsi0e (real_8 _p_ x_);
   913  prototype real_8 _dbsi1e (real_8 _p_ x_);
   914  prototype real_8 _dbsk0e (real_8 _p_ x_);
   915  prototype real_8 _dbsk1e (real_8 _p_ x_);
   916  prototype int_4 _dbskes (real_8 _p_ xnu_, real_8 _p_ x_, int_4 _p_ nin_, real_8 _p_ bke_);
   917  prototype int_4 _dbskin (real_8 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_8 _p_ y_, int_4 _p_ nz_, 
   918  int_4 _p_ ierr_);
   919  prototype int_4 _dbsknu (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_);
   920  prototype int_4 _dbspev (real_8 _p_ t_, real_8 _p_ ad_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ nderiv_, real_8 _p_ x_, 
   921  int_4 _p_ inev_, real_8 _p_ svalue_, real_8 _p_ work_);
   922  prototype int_4 _dbsppp (real_8 _p_ t_, real_8 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ ldc_, real_8 _p_ c_, 
   923  real_8 _p_ xi_, int_4 _p_ lxi_, real_8 _p_ work_);
   924  prototype int_4 _dbspvd (real_8 _p_ t_, int_4 _p_ k_, int_4 _p_ nderiv_, real_8 _p_ x_, int_4 _p_ ileft_, int_4 _p_ 
   925  ldvnik_, real_8 _p_ vnikx_, real_8 _p_ work_);
   926  prototype int_4 _dbsqad (real_8 _p_ t_, real_8 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ x1_, real_8 _p_ x2_, 
   927  real_8 _p_ bquad_, real_8 _p_ work_);
   928  prototype int_4 _dbsynu (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ y_);
   929  prototype real_8 _dbvalu (real_8 _p_ t_, real_8 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ ideriv_, real_8 _p_ x_, 
   930  int_4 _p_ inbv_, real_8 _p_ work_);
   931  prototype real_8 _dcbrt (real_8 _p_ x_);
   932  prototype real_8 _dchu (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ x_);
   933  prototype real_8 _dcosdg (real_8 _p_ x_);
   934  prototype real_8 _dcot (real_8 _p_ x_);
   935  prototype real_8 _dcsevl (real_8 _p_ x_, real_8 _p_ cs_, int_4 _p_ n_);
   936  prototype real_8 _ddaws (real_8 _p_ x_);
   937  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00023
   938  
   939  prototype real_8 _de1 (real_8 _p_ x_);
   940  prototype real_8 _dei (real_8 _p_ x_);
   941  prototype int_4 _dexint (real_8 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_8 _p_ tol_, real_8 _p_ en_, 
   942  int_4 _p_ nz_, int_4 _p_ ierr_);
   943  prototype real_8 _dexprl (real_8 _p_ x_);
   944  prototype real_8 _dfac (int_4 _p_ n_);
   945  prototype real_8 _dgamic (real_8 _p_ a_, real_8 _p_ x_);
   946  prototype real_8 _dgami (real_8 _p_ a_, real_8 _p_ x_);
   947  prototype real_8 _dgamit (real_8 _p_ a_, real_8 _p_ x_);
   948  prototype int_4 _dgamlm (real_8 _p_ xmin_, real_8 _p_ xmax_);
   949  prototype real_8 _dgamln (real_8 _p_ z_, int_4 _p_ ierr_);
   950  prototype real_8 _dgamr (real_8 _p_ x_);
   951  prototype real_8 _dgamrn (real_8 _p_ x_);
   952  prototype int_4 _dhkseq (real_8 _p_ x_, int_4 _p_ m_, real_8 _p_ h_, int_4 _p_ ierr_);
   953  prototype real_8 _dlbeta (real_8 _p_ a_, real_8 _p_ b_);
   954  prototype int_4 _dlgams (real_8 _p_ x_, real_8 _p_ dlgam_, real_8 _p_ sgngam_);
   955  prototype real_8 _dli (real_8 _p_ x_);
   956  prototype real_8 _dlnrel (real_8 _p_ x_);
   957  prototype int_4 _dpfqad (real_8 (*_f)(), int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, 
   958  int_4 _p_ id_, real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_);
   959  prototype real_8 _dpoch1 (real_8 _p_ a_, real_8 _p_ x_);
   960  prototype real_8 _dpoch (real_8 _p_ a_, real_8 _p_ x_);
   961  prototype int_4 _dppqad (int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, real_8 _p_ x1_, 
   962  real_8 _p_ x2_, real_8 _p_ pquad_);
   963  prototype real_8 _dppval (int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, int_4 _p_ 
   964  ideriv_, real_8 _p_ x_, int_4 _p_ inppv_);
   965  prototype real_8 _dpsi (real_8 _p_ x_);
   966  prototype int_4 _dpsifn (real_8 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_8 _p_ ans_, int_4 _p_ nz_, 
   967  int_4 _p_ ierr_);
   968  prototype real_8 _dsindg (real_8 _p_ x_);
   969  prototype real_8 _dspenc (real_8 _p_ x_);
   970  prototype real_4 _e1 (real_4 _p_ x_);
   971  prototype real_4 _ei (real_4 _p_ x_);
   972  prototype int_4 _exint (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_4 _p_ tol_, real_4 _p_ en_, 
   973  int_4 _p_ nz_, int_4 _p_ ierr_);
   974  prototype real_4 _exprel (real_4 _p_ x_);
   975  prototype real_4 _fac (int_4 _p_ n_);
   976  prototype int_4 _fundoc (void);
   977  prototype real_4 _gamic (real_4 _p_ a_, real_4 _p_ x_);
   978  prototype real_4 _gami (real_4 _p_ a_, real_4 _p_ x_);
   979  prototype real_4 _gamit (real_4 _p_ a_, real_4 _p_ x_);
   980  prototype int_4 _gamlim (real_4 _p_ xmin_, real_4 _p_ xmax_);
   981  prototype real_4 _gamln (real_4 _p_ z_, int_4 _p_ ierr_);
   982  prototype real_4 _gamr (real_4 _p_ x_);
   983  prototype int_4 _initds (real_8 _p_ os_, int_4 _p_ nos_, real_4 _p_ eta_);
   984  prototype int_4 _inits (real_4 _p_ os_, int_4 _p_ nos_, real_4 _p_ eta_);
   985  prototype int_4 _pfqad (real_4 (*_f)(), int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, 
   986  int_4 _p_ id_, real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_);
   987  prototype real_4 _poch1 (real_4 _p_ a_, real_4 _p_ x_);
   988  prototype real_4 _poch (real_4 _p_ a_, real_4 _p_ x_);
   989  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00024
   990  
   991  prototype int_4 _ppqad (int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, real_4 _p_ x1_, 
   992  real_4 _p_ x2_, real_4 _p_ pquad_);
   993  prototype real_4 _ppval (int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, int_4 _p_ ideriv_
   994  , real_4 _p_ x_, int_4 _p_ inppv_);
   995  prototype real_4 _psi (real_4 _p_ x_);
   996  prototype int_4 _r9aimp (real_4 _p_ x_, real_4 _p_ ampl_, real_4 _p_ theta_);
   997  prototype real_4 _r9atn1 (real_4 _p_ x_);
   998  prototype real_4 _r9chu (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ z_);
   999  prototype real_4 _r9gmic (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ alx_);
  1000  prototype real_4 _r9gmit (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ algap1_, real_4 _p_ sgngam_, real_4 _p_ alx_);
  1001  prototype int_4 _r9knus (real_4 _p_ xnu_, real_4 _p_ x_, real_4 _p_ bknu_, real_4 _p_ bknu1_, int_4 _p_ iswtch_);
  1002  prototype real_4 _r9lgic (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ alx_);
  1003  prototype real_4 _r9lgit (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ algap1_);
  1004  prototype real_4 _r9lgmc (real_4 _p_ x_);
  1005  prototype real_4 _r9ln2r (real_4 _p_ x_);
  1006  prototype real_4 _r9pak (real_4 _p_ y_, int_4 _p_ n_);
  1007  prototype int_4 _r9upak (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ n_);
  1008  prototype real_4 _rand (real_4 _p_ r_);
  1009  prototype real_4 _rgauss (real_4 _p_ xmean_, real_4 _p_ sd_);
  1010  prototype real_4 _runif (real_4 _p_ t_, int_4 _p_ n_);
  1011  prototype real_4 _sindg (real_4 _p_ x_);
  1012  prototype real_4 _spenc (real_4 _p_ x_);
  1013  prototype real_8 _zabs (real_8 _p_ zr_, real_8 _p_ zi_);
  1014  prototype int_4 _zacai (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, 
  1015  real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
  1016  prototype int_4 _zacon (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, 
  1017  real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, 
  1018  real_8 _p_ alim_);
  1019  prototype int_4 _zairy (real_8 _p_ zr_, real_8 _p_ zi_, int_4 _p_ id_, int_4 _p_ kode_, real_8 _p_ air_, real_8 _p_ 
  1020  aii_, int_4 _p_ nz_, int_4 _p_ ierr_);
  1021  prototype int_4 _zasyi (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, 
  1022  real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
  1023  prototype int_4 _zbesh (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ m_, int_4 _p_ n_, 
  1024  real_8 _p_ cyr_, real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
  1025  prototype int_4 _zbesi (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_
  1026  , real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
  1027  prototype int_4 _zbesj (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_
  1028  , real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
  1029  prototype int_4 _zbesk (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_
  1030  , real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
  1031  prototype int_4 _zbesy (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_
  1032  , real_8 _p_ cyi_, int_4 _p_ nz_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_, int_4 _p_ ierr_);
  1033  prototype int_4 _zbinu (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_
  1034  , real_8 _p_ cyi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_
  1035  );
  1036  prototype int_4 _zbiry (real_8 _p_ zr_, real_8 _p_ zi_, int_4 _p_ id_, int_4 _p_ kode_, real_8 _p_ bir_, real_8 _p_ 
  1037  bii_, int_4 _p_ ierr_);
  1038  prototype int_4 _zbknu (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, 
  1039  real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
  1040  prototype int_4 _zbuni (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, 
  1041  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00025
  1042  
  1043  real_8 _p_ yi_, int_4 _p_ nz_, int_4 _p_ nui_, int_4 _p_ nlast_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, 
  1044  real_8 _p_ alim_);
  1045  prototype int_4 _zbunk (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, 
  1046  real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
  1047  prototype int_4 _zdiv (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_, real_8 _p_ cr_, real_8 _p_ ci_);
  1048  prototype int_4 _zexp (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_);
  1049  prototype int_4 _zkscl (real_8 _p_ zrr_, real_8 _p_ zri_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ yr_, real_8 _p_ yi_
  1050  , int_4 _p_ nz_, real_8 _p_ rzr_, real_8 _p_ rzi_, real_8 _p_ ascle_, real_8 _p_ tol_, real_8 _p_ elim_);
  1051  prototype int_4 _zlog (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_, int_4 _p_ ierr_);
  1052  prototype int_4 _zmlri (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, 
  1053  real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_);
  1054  prototype int_4 _zmlt (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_, real_8 _p_ cr_, real_8 _p_ ci_);
  1055  prototype int_4 _zrati (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 _p_ cyi_
  1056  , real_8 _p_ tol_);
  1057  prototype int_4 _zs1s2 (real_8 _p_ zrr_, real_8 _p_ zri_, real_8 _p_ s1r_, real_8 _p_ s1i_, real_8 _p_ s2r_, real_8 _p_ 
  1058  s2i_, int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ alim_, int_4 _p_ iuf_);
  1059  prototype int_4 _zseri (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, 
  1060  real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
  1061  prototype int_4 _zshch (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ cshr_, real_8 _p_ cshi_, real_8 _p_ cchr_, real_8 
  1062  _p_ cchi_);
  1063  prototype int_4 _zsqrt (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_);
  1064  prototype int_4 _zuchk (real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ tol_);
  1065  prototype int_4 _zunhj (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ ipmtr_, real_8 _p_ tol_, real_8 _p_ 
  1066  phir_, real_8 _p_ phii_, real_8 _p_ argr_, real_8 _p_ argi_, real_8 _p_ zeta1r_, real_8 _p_ zeta1i_, real_8 _p_ zeta2r_
  1067  , real_8 _p_ zeta2i_, real_8 _p_ asumr_, real_8 _p_ asumi_, real_8 _p_ bsumr_, real_8 _p_ bsumi_);
  1068  prototype int_4 _zuni1 (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, 
  1069  real_8 _p_ yi_, int_4 _p_ nz_, int_4 _p_ nlast_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
  1070  ;
  1071  prototype int_4 _zuni2 (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, 
  1072  real_8 _p_ yi_, int_4 _p_ nz_, int_4 _p_ nlast_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
  1073  ;
  1074  prototype int_4 _zunik (real_8 _p_ zrr_, real_8 _p_ zri_, real_8 _p_ fnu_, int_4 _p_ ikflg_, int_4 _p_ ipmtr_, real_8 
  1075  _p_ tol_, int_4 _p_ init_, real_8 _p_ phir_, real_8 _p_ phii_, real_8 _p_ zeta1r_, real_8 _p_ zeta1i_, real_8 _p_ 
  1076  zeta2r_, real_8 _p_ zeta2i_, real_8 _p_ sumr_, real_8 _p_ sumi_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_);
  1077  prototype int_4 _zunk1 (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, 
  1078  real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
  1079  prototype int_4 _zunk2 (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, 
  1080  real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
  1081  prototype int_4 _zuoik (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ ikflg_, int_4 _p_ 
  1082  n_, real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nuf_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
  1083  prototype int_4 _zwrsk (real_8 _p_ zrr_, real_8 _p_ zri_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ 
  1084  yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ cwr_, real_8 _p_ cwi_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ 
  1085  alim_);
  1086  
  1087  
  1088  
  1089  
  1090  
  1091  
  1092  
  1093  // VIF  THU 20 NOV 2025 22:19:48  ** GLOBAL SCOPE                 ** PROTOTYPES                                       PAGE 00026
  1094  
  1095  
  1096  
  1097  
  1098  
  1099  
  1100  
  1101  // VIF  THU 20 NOV 2025 22:19:48  ** AIE                          ** AIE                                              PAGE 00027
  1102  
  1103  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  1104  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  1105  //                           F       U     U N N   N C          T       I    O     O N N   N
  1106  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  1107  //                           F       U     U N   N N C          T       I    O     O N   N N
  1108  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  1109  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  1110  
  1111  //                                                  A      III   EEEEEEE
  1112  //                                                 A A      I    E
  1113  //                                                A   A     I    E
  1114  //                                               A     A    I    EEEEE
  1115  //                                               AAAAAAA    I    E
  1116  //                                               A     A    I    E
  1117  //                                               A     A   III   EEEEEEE
  1118  
  1119  
  1120  // VIF  THU 20 NOV 2025 22:19:48  ** AIE                          ** DIAGNOSTICS                                      PAGE 00028
  1121  
  1122  
  1123  // VIF  THU 20 NOV 2025 22:19:48  ** AIE                          ** GENERATED CODE                                   PAGE 00029
  1124  
  1125  real_4 _aie (real_4 _p_ x_)
  1126  { // ** body not listed **
  1826  }
  1827  
  1828  
  1829  // VIF  THU 20 NOV 2025 22:19:48  ** AI                           ** AI                                               PAGE 00043
  1830  
  1831  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  1832  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  1833  //                           F       U     U N N   N C          T       I    O     O N N   N
  1834  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  1835  //                           F       U     U N   N N C          T       I    O     O N   N N
  1836  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  1837  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  1838  
  1839  //                                                       A      III
  1840  //                                                      A A      I
  1841  //                                                     A   A     I
  1842  //                                                    A     A    I
  1843  //                                                    AAAAAAA    I
  1844  //                                                    A     A    I
  1845  //                                                    A     A   III
  1846  
  1847  
  1848  // VIF  THU 20 NOV 2025 22:19:48  ** AI                           ** DIAGNOSTICS                                      PAGE 00044
  1849  
  1850  
  1851  // VIF  THU 20 NOV 2025 22:19:48  ** AI                           ** GENERATED CODE                                   PAGE 00045
  1852  
  1853  real_4 _ai (real_4 _p_ x_)
  1854  { // ** body not listed **
  2125  }
  2126  
  2127  
  2128  // VIF  THU 20 NOV 2025 22:19:48  ** ALBETA                       ** ALBETA                                           PAGE 00051
  2129  
  2130  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  2131  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  2132  //                           F       U     U N N   N C          T       I    O     O N N   N
  2133  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  2134  //                           F       U     U N   N N C          T       I    O     O N   N N
  2135  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  2136  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  2137  
  2138  //                                      A    L       BBBBBB  EEEEEEE TTTTTTT    A
  2139  //                                     A A   L       B     B E          T      A A
  2140  //                                    A   A  L       B     B E          T     A   A
  2141  //                                   A     A L       BBBBBB  EEEEE      T    A     A
  2142  //                                   AAAAAAA L       B     B E          T    AAAAAAA
  2143  //                                   A     A L       B     B E          T    A     A
  2144  //                                   A     A LLLLLLL BBBBBB  EEEEEEE    T    A     A
  2145  
  2146  
  2147  // VIF  THU 20 NOV 2025 22:19:48  ** ALBETA                       ** DIAGNOSTICS                                      PAGE 00052
  2148  
  2149  
  2150  // VIF  THU 20 NOV 2025 22:19:48  ** ALBETA                       ** GENERATED CODE                                   PAGE 00053
  2151  
  2152  real_4 _albeta (real_4 _p_ a_, real_4 _p_ b_)
  2153  { // ** body not listed **
  2194  }
  2195  
  2196  
  2197  // VIF  THU 20 NOV 2025 22:19:48  ** ALGAMS                       ** ALGAMS                                           PAGE 00054
  2198  
  2199  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2200  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2201  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2202  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2203  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2204  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2205  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2206  
  2207  //                                      A    L        GGGGG     A    M     M  SSSSS
  2208  //                                     A A   L       G     G   A A   MM   MM S     S
  2209  //                                    A   A  L       G        A   A  M M M M S
  2210  //                                   A     A L       G  GGGG A     A M  M  M  SSSSS
  2211  //                                   AAAAAAA L       G     G AAAAAAA M     M       S
  2212  //                                   A     A L       G     G A     A M     M S     S
  2213  //                                   A     A LLLLLLL  GGGGG  A     A M     M  SSSSS
  2214  
  2215  
  2216  // VIF  THU 20 NOV 2025 22:19:48  ** ALGAMS                       ** DIAGNOSTICS                                      PAGE 00055
  2217  
  2218  
  2219  // VIF  THU 20 NOV 2025 22:19:48  ** ALGAMS                       ** GENERATED CODE                                   PAGE 00056
  2220  
  2221  int_4 _algams (real_4 _p_ x_, real_4 _p_ algam_, real_4 _p_ sgngam_)
  2222  { // ** body not listed **
  2236  }
  2237  
  2238  // VIF  THU 20 NOV 2025 22:19:48  ** ALI                          ** ALI                                              PAGE 00057
  2239  
  2240  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  2241  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  2242  //                           F       U     U N N   N C          T       I    O     O N N   N
  2243  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  2244  //                           F       U     U N   N N C          T       I    O     O N   N N
  2245  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  2246  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  2247  
  2248  //                                                   A    L         III
  2249  //                                                  A A   L          I
  2250  //                                                 A   A  L          I
  2251  //                                                A     A L          I
  2252  //                                                AAAAAAA L          I
  2253  //                                                A     A L          I
  2254  //                                                A     A LLLLLLL   III
  2255  
  2256  
  2257  // VIF  THU 20 NOV 2025 22:19:48  ** ALI                          ** DIAGNOSTICS                                      PAGE 00058
  2258  
  2259  
  2260  // VIF  THU 20 NOV 2025 22:19:48  ** ALI                          ** GENERATED CODE                                   PAGE 00059
  2261  
  2262  real_4 _ali (real_4 _p_ x_)
  2263  { // ** body not listed **
  2276  }
  2277  
  2278  
  2279  // VIF  THU 20 NOV 2025 22:19:48  ** ALNREL                       ** ALNREL                                           PAGE 00060
  2280  
  2281  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  2282  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  2283  //                           F       U     U N N   N C          T       I    O     O N N   N
  2284  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  2285  //                           F       U     U N   N N C          T       I    O     O N   N N
  2286  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  2287  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  2288  
  2289  //                                      A    L       N     N RRRRRR  EEEEEEE L
  2290  //                                     A A   L       NN    N R     R E       L
  2291  //                                    A   A  L       N N   N R     R E       L
  2292  //                                   A     A L       N  N  N RRRRRR  EEEEE   L
  2293  //                                   AAAAAAA L       N   N N R   R   E       L
  2294  //                                   A     A L       N    NN R    R  E       L
  2295  //                                   A     A LLLLLLL N     N R     R EEEEEEE LLLLLLL
  2296  
  2297  
  2298  // VIF  THU 20 NOV 2025 22:19:48  ** ALNREL                       ** DIAGNOSTICS                                      PAGE 00061
  2299  
  2300  
  2301  // VIF  THU 20 NOV 2025 22:19:48  ** ALNREL                       ** GENERATED CODE                                   PAGE 00062
  2302  
  2303  real_4 _alnrel (real_4 _p_ x_)
  2304  { // ** body not listed **
  2632  }
  2633  
  2634  
  2635  // VIF  THU 20 NOV 2025 22:19:48  ** BESI0E                       ** BESI0E                                           PAGE 00069
  2636  
  2637  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  2638  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  2639  //                           F       U     U N N   N C          T       I    O     O N N   N
  2640  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  2641  //                           F       U     U N   N N C          T       I    O     O N   N N
  2642  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  2643  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  2644  
  2645  //                                   BBBBBB  EEEEEEE  SSSSS    III     000   EEEEEEE
  2646  //                                   B     B E       S     S    I     0   0  E
  2647  //                                   B     B E       S          I    0     0 E
  2648  //                                   BBBBBB  EEEEE    SSSSS     I    0     0 EEEEE
  2649  //                                   B     B E             S    I    0     0 E
  2650  //                                   B     B E       S     S    I     0   0  E
  2651  //                                   BBBBBB  EEEEEEE  SSSSS    III     000   EEEEEEE
  2652  
  2653  
  2654  // VIF  THU 20 NOV 2025 22:19:48  ** BESI0E                       ** DIAGNOSTICS                                      PAGE 00070
  2655  
  2656  
  2657  // VIF  THU 20 NOV 2025 22:19:48  ** BESI0E                       ** GENERATED CODE                                   PAGE 00071
  2658  
  2659  real_4 _besi0e (real_4 _p_ x_)
  2660  { // ** body not listed **
  3399  }
  3400  
  3401  
  3402  // VIF  THU 20 NOV 2025 22:19:48  ** BESI0                        ** BESI0                                            PAGE 00086
  3403  
  3404  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  3405  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  3406  //                           F       U     U N N   N C          T       I    O     O N N   N
  3407  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  3408  //                           F       U     U N   N N C          T       I    O     O N   N N
  3409  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  3410  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  3411  
  3412  //                                       BBBBBB  EEEEEEE  SSSSS    III     000
  3413  //                                       B     B E       S     S    I     0   0
  3414  //                                       B     B E       S          I    0     0
  3415  //                                       BBBBBB  EEEEE    SSSSS     I    0     0
  3416  //                                       B     B E             S    I    0     0
  3417  //                                       B     B E       S     S    I     0   0
  3418  //                                       BBBBBB  EEEEEEE  SSSSS    III     000
  3419  
  3420  
  3421  // VIF  THU 20 NOV 2025 22:19:48  ** BESI0                        ** DIAGNOSTICS                                      PAGE 00087
  3422  
  3423  
  3424  // VIF  THU 20 NOV 2025 22:19:48  ** BESI0                        ** GENERATED CODE                                   PAGE 00088
  3425  
  3426  real_4 _besi0 (real_4 _p_ x_)
  3427  { // ** body not listed **
  3620  }
  3621  
  3622  
  3623  // VIF  THU 20 NOV 2025 22:19:48  ** BESI1E                       ** BESI1E                                           PAGE 00092
  3624  
  3625  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  3626  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  3627  //                           F       U     U N N   N C          T       I    O     O N N   N
  3628  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  3629  //                           F       U     U N   N N C          T       I    O     O N   N N
  3630  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  3631  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  3632  
  3633  //                                   BBBBBB  EEEEEEE  SSSSS    III      1    EEEEEEE
  3634  //                                   B     B E       S     S    I      11    E
  3635  //                                   B     B E       S          I     1 1    E
  3636  //                                   BBBBBB  EEEEE    SSSSS     I       1    EEEEE
  3637  //                                   B     B E             S    I       1    E
  3638  //                                   B     B E       S     S    I       1    E
  3639  //                                   BBBBBB  EEEEEEE  SSSSS    III    11111  EEEEEEE
  3640  
  3641  
  3642  // VIF  THU 20 NOV 2025 22:19:48  ** BESI1E                       ** DIAGNOSTICS                                      PAGE 00093
  3643  
  3644  
  3645  // VIF  THU 20 NOV 2025 22:19:48  ** BESI1E                       ** GENERATED CODE                                   PAGE 00094
  3646  
  3647  real_4 _besi1e (real_4 _p_ x_)
  3648  { // ** body not listed **
  4387  }
  4388  
  4389  
  4390  // VIF  THU 20 NOV 2025 22:19:48  ** BESI1                        ** BESI1                                            PAGE 00109
  4391  
  4392  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  4393  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  4394  //                           F       U     U N N   N C          T       I    O     O N N   N
  4395  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  4396  //                           F       U     U N   N N C          T       I    O     O N   N N
  4397  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  4398  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  4399  
  4400  //                                        BBBBBB  EEEEEEE  SSSSS    III      1
  4401  //                                        B     B E       S     S    I      11
  4402  //                                        B     B E       S          I     1 1
  4403  //                                        BBBBBB  EEEEE    SSSSS     I       1
  4404  //                                        B     B E             S    I       1
  4405  //                                        B     B E       S     S    I       1
  4406  //                                        BBBBBB  EEEEEEE  SSSSS    III    11111
  4407  
  4408  
  4409  // VIF  THU 20 NOV 2025 22:19:48  ** BESI1                        ** DIAGNOSTICS                                      PAGE 00110
  4410  
  4411  
  4412  // VIF  THU 20 NOV 2025 22:19:48  ** BESI1                        ** GENERATED CODE                                   PAGE 00111
  4413  
  4414  real_4 _besi1 (real_4 _p_ x_)
  4415  { // ** body not listed **
  4606  }
  4607  
  4608  
  4609  // VIF  THU 20 NOV 2025 22:19:48  ** BESI                         ** BESI                                             PAGE 00115
  4610  
  4611  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  4612  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  4613  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  4614  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  4615  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  4616  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  4617  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  4618  
  4619  //                                            BBBBBB  EEEEEEE  SSSSS    III
  4620  //                                            B     B E       S     S    I
  4621  //                                            B     B E       S          I
  4622  //                                            BBBBBB  EEEEE    SSSSS     I
  4623  //                                            B     B E             S    I
  4624  //                                            B     B E       S     S    I
  4625  //                                            BBBBBB  EEEEEEE  SSSSS    III
  4626  
  4627  
  4628  // VIF  THU 20 NOV 2025 22:19:48  ** BESI                         ** DIAGNOSTICS                                      PAGE 00116
  4629  
  4630  
  4631  // VIF  THU 20 NOV 2025 22:19:48  ** BESI                         ** GENERATED CODE                                   PAGE 00117
  4632  
  4633  int_4 _besi (real_4 _p_ x_, real_4 _p_ alpha_, int_4 _p_ kode_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_)
  4634  { // ** body not listed **
  5144  }
  5145  
  5146  // VIF  THU 20 NOV 2025 22:19:48  ** BESJ0                        ** BESJ0                                            PAGE 00127
  5147  
  5148  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  5149  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  5150  //                           F       U     U N N   N C          T       I    O     O N N   N
  5151  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  5152  //                           F       U     U N   N N C          T       I    O     O N   N N
  5153  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  5154  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  5155  
  5156  //                                       BBBBBB  EEEEEEE  SSSSS        J   000
  5157  //                                       B     B E       S     S       J  0   0
  5158  //                                       B     B E       S             J 0     0
  5159  //                                       BBBBBB  EEEEE    SSSSS        J 0     0
  5160  //                                       B     B E             S J     J 0     0
  5161  //                                       B     B E       S     S J     J  0   0
  5162  //                                       BBBBBB  EEEEEEE  SSSSS   JJJJJ    000
  5163  
  5164  
  5165  // VIF  THU 20 NOV 2025 22:19:48  ** BESJ0                        ** DIAGNOSTICS                                      PAGE 00128
  5166  
  5167  
  5168  // VIF  THU 20 NOV 2025 22:19:48  ** BESJ0                        ** GENERATED CODE                                   PAGE 00129
  5169  
  5170  real_4 _besj0 (real_4 _p_ x_)
  5171  { // ** body not listed **
  5963  }
  5964  
  5965  
  5966  // VIF  THU 20 NOV 2025 22:19:48  ** BESJ1                        ** BESJ1                                            PAGE 00145
  5967  
  5968  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  5969  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  5970  //                           F       U     U N N   N C          T       I    O     O N N   N
  5971  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  5972  //                           F       U     U N   N N C          T       I    O     O N   N N
  5973  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  5974  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  5975  
  5976  //                                        BBBBBB  EEEEEEE  SSSSS        J    1
  5977  //                                        B     B E       S     S       J   11
  5978  //                                        B     B E       S             J  1 1
  5979  //                                        BBBBBB  EEEEE    SSSSS        J    1
  5980  //                                        B     B E             S J     J    1
  5981  //                                        B     B E       S     S J     J    1
  5982  //                                        BBBBBB  EEEEEEE  SSSSS   JJJJJ   11111
  5983  
  5984  
  5985  // VIF  THU 20 NOV 2025 22:19:48  ** BESJ1                        ** DIAGNOSTICS                                      PAGE 00146
  5986  
  5987  
  5988  // VIF  THU 20 NOV 2025 22:19:48  ** BESJ1                        ** GENERATED CODE                                   PAGE 00147
  5989  
  5990  real_4 _besj1 (real_4 _p_ x_)
  5991  { // ** body not listed **
  6781  }
  6782  
  6783  
  6784  // VIF  THU 20 NOV 2025 22:19:48  ** BESJ                         ** BESJ                                             PAGE 00163
  6785  
  6786  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6787  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6788  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6789  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6790  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6791  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6792  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6793  
  6794  //                                           BBBBBB  EEEEEEE  SSSSS        J
  6795  //                                           B     B E       S     S       J
  6796  //                                           B     B E       S             J
  6797  //                                           BBBBBB  EEEEE    SSSSS        J
  6798  //                                           B     B E             S J     J
  6799  //                                           B     B E       S     S J     J
  6800  //                                           BBBBBB  EEEEEEE  SSSSS   JJJJJ
  6801  
  6802  
  6803  // VIF  THU 20 NOV 2025 22:19:48  ** BESJ                         ** DIAGNOSTICS                                      PAGE 00164
  6804  
  6805  
  6806  // VIF  THU 20 NOV 2025 22:19:48  ** BESJ                         ** GENERATED CODE                                   PAGE 00165
  6807  
  6808  int_4 _besj (real_4 _p_ x_, real_4 _p_ alpha_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_)
  6809  { // ** body not listed **
  7438  }
  7439  
  7440  // VIF  THU 20 NOV 2025 22:19:48  ** BESK0E                       ** BESK0E                                           PAGE 00178
  7441  
  7442  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  7443  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  7444  //                           F       U     U N N   N C          T       I    O     O N N   N
  7445  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  7446  //                           F       U     U N   N N C          T       I    O     O N   N N
  7447  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  7448  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  7449  
  7450  //                                   BBBBBB  EEEEEEE  SSSSS  K    K    000   EEEEEEE
  7451  //                                   B     B E       S     S K   K    0   0  E
  7452  //                                   B     B E       S       K  K    0     0 E
  7453  //                                   BBBBBB  EEEEE    SSSSS  KKK     0     0 EEEEE
  7454  //                                   B     B E             S K  K    0     0 E
  7455  //                                   B     B E       S     S K   K    0   0  E
  7456  //                                   BBBBBB  EEEEEEE  SSSSS  K    K    000   EEEEEEE
  7457  
  7458  
  7459  // VIF  THU 20 NOV 2025 22:19:48  ** BESK0E                       ** DIAGNOSTICS                                      PAGE 00179
  7460  
  7461  
  7462  // VIF  THU 20 NOV 2025 22:19:48  ** BESK0E                       ** GENERATED CODE                                   PAGE 00180
  7463  
  7464  real_4 _besk0e (real_4 _p_ x_)
  7465  { // ** body not listed **
  8045  }
  8046  
  8047  
  8048  // VIF  THU 20 NOV 2025 22:19:48  ** BESK0                        ** BESK0                                            PAGE 00192
  8049  
  8050  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  8051  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  8052  //                           F       U     U N N   N C          T       I    O     O N N   N
  8053  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  8054  //                           F       U     U N   N N C          T       I    O     O N   N N
  8055  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  8056  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  8057  
  8058  //                                       BBBBBB  EEEEEEE  SSSSS  K    K    000
  8059  //                                       B     B E       S     S K   K    0   0
  8060  //                                       B     B E       S       K  K    0     0
  8061  //                                       BBBBBB  EEEEE    SSSSS  KKK     0     0
  8062  //                                       B     B E             S K  K    0     0
  8063  //                                       B     B E       S     S K   K    0   0
  8064  //                                       BBBBBB  EEEEEEE  SSSSS  K    K    000
  8065  
  8066  
  8067  // VIF  THU 20 NOV 2025 22:19:48  ** BESK0                        ** DIAGNOSTICS                                      PAGE 00193
  8068  
  8069  
  8070  // VIF  THU 20 NOV 2025 22:19:48  ** BESK0                        ** GENERATED CODE                                   PAGE 00194
  8071  
  8072  real_4 _besk0 (real_4 _p_ x_)
  8073  { // ** body not listed **
  8262  }
  8263  
  8264  
  8265  // VIF  THU 20 NOV 2025 22:19:48  ** BESK1E                       ** BESK1E                                           PAGE 00198
  8266  
  8267  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  8268  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  8269  //                           F       U     U N N   N C          T       I    O     O N N   N
  8270  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  8271  //                           F       U     U N   N N C          T       I    O     O N   N N
  8272  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  8273  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  8274  
  8275  //                                   BBBBBB  EEEEEEE  SSSSS  K    K     1    EEEEEEE
  8276  //                                   B     B E       S     S K   K     11    E
  8277  //                                   B     B E       S       K  K     1 1    E
  8278  //                                   BBBBBB  EEEEE    SSSSS  KKK        1    EEEEE
  8279  //                                   B     B E             S K  K       1    E
  8280  //                                   B     B E       S     S K   K      1    E
  8281  //                                   BBBBBB  EEEEEEE  SSSSS  K    K   11111  EEEEEEE
  8282  
  8283  
  8284  // VIF  THU 20 NOV 2025 22:19:48  ** BESK1E                       ** DIAGNOSTICS                                      PAGE 00199
  8285  
  8286  
  8287  // VIF  THU 20 NOV 2025 22:19:48  ** BESK1E                       ** GENERATED CODE                                   PAGE 00200
  8288  
  8289  real_4 _besk1e (real_4 _p_ x_)
  8290  { // ** body not listed **
  8874  }
  8875  
  8876  
  8877  // VIF  THU 20 NOV 2025 22:19:48  ** BESK1                        ** BESK1                                            PAGE 00212
  8878  
  8879  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  8880  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  8881  //                           F       U     U N N   N C          T       I    O     O N N   N
  8882  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  8883  //                           F       U     U N   N N C          T       I    O     O N   N N
  8884  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  8885  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  8886  
  8887  //                                        BBBBBB  EEEEEEE  SSSSS  K    K     1
  8888  //                                        B     B E       S     S K   K     11
  8889  //                                        B     B E       S       K  K     1 1
  8890  //                                        BBBBBB  EEEEE    SSSSS  KKK        1
  8891  //                                        B     B E             S K  K       1
  8892  //                                        B     B E       S     S K   K      1
  8893  //                                        BBBBBB  EEEEEEE  SSSSS  K    K   11111
  8894  
  8895  
  8896  // VIF  THU 20 NOV 2025 22:19:48  ** BESK1                        ** DIAGNOSTICS                                      PAGE 00213
  8897  
  8898  
  8899  // VIF  THU 20 NOV 2025 22:19:48  ** BESK1                        ** GENERATED CODE                                   PAGE 00214
  8900  
  8901  real_4 _besk1 (real_4 _p_ x_)
  8902  { // ** body not listed **
  9095  }
  9096  
  9097  
  9098  // VIF  THU 20 NOV 2025 22:19:48  ** BESKES                       ** BESKES                                           PAGE 00218
  9099  
  9100  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9101  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9102  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9103  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9104  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9105  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9106  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9107  
  9108  //                                   BBBBBB  EEEEEEE  SSSSS  K    K  EEEEEEE  SSSSS
  9109  //                                   B     B E       S     S K   K   E       S     S
  9110  //                                   B     B E       S       K  K    E       S
  9111  //                                   BBBBBB  EEEEE    SSSSS  KKK     EEEEE    SSSSS
  9112  //                                   B     B E             S K  K    E             S
  9113  //                                   B     B E       S     S K   K   E       S     S
  9114  //                                   BBBBBB  EEEEEEE  SSSSS  K    K  EEEEEEE  SSSSS
  9115  
  9116  
  9117  // VIF  THU 20 NOV 2025 22:19:48  ** BESKES                       ** DIAGNOSTICS                                      PAGE 00219
  9118  
  9119  
  9120  // VIF  THU 20 NOV 2025 22:19:48  ** BESKES                       ** GENERATED CODE                                   PAGE 00220
  9121  
  9122  int_4 _beskes (real_4 _p_ xnu_, real_4 _p_ x_, int_4 _p_ nin_, real_4 _p_ bke_)
  9123  { // ** body not listed **
  9188  }
  9189  
  9190  // VIF  THU 20 NOV 2025 22:19:48  ** BESK                         ** BESK                                             PAGE 00222
  9191  
  9192  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9193  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9194  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9195  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9196  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9197  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9198  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9199  
  9200  //                                            BBBBBB  EEEEEEE  SSSSS  K    K
  9201  //                                            B     B E       S     S K   K
  9202  //                                            B     B E       S       K  K
  9203  //                                            BBBBBB  EEEEE    SSSSS  KKK
  9204  //                                            B     B E             S K  K
  9205  //                                            B     B E       S     S K   K
  9206  //                                            BBBBBB  EEEEEEE  SSSSS  K    K
  9207  
  9208  
  9209  // VIF  THU 20 NOV 2025 22:19:48  ** BESK                         ** DIAGNOSTICS                                      PAGE 00223
  9210  
  9211  
  9212  // VIF  THU 20 NOV 2025 22:19:48  ** BESK                         ** GENERATED CODE                                   PAGE 00224
  9213  
  9214  int_4 _besk (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_)
  9215  { // ** body not listed **
  9493  }
  9494  
  9495  // VIF  THU 20 NOV 2025 22:19:48  ** BESKNU                       ** BESKNU                                           PAGE 00230
  9496  
  9497  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9498  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9499  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9500  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9501  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9502  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9503  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9504  
  9505  //                                   BBBBBB  EEEEEEE  SSSSS  K    K  N     N U     U
  9506  //                                   B     B E       S     S K   K   NN    N U     U
  9507  //                                   B     B E       S       K  K    N N   N U     U
  9508  //                                   BBBBBB  EEEEE    SSSSS  KKK     N  N  N U     U
  9509  //                                   B     B E             S K  K    N   N N U     U
  9510  //                                   B     B E       S     S K   K   N    NN U     U
  9511  //                                   BBBBBB  EEEEEEE  SSSSS  K    K  N     N  UUUUU
  9512  
  9513  
  9514  // VIF  THU 20 NOV 2025 22:19:48  ** BESKNU                       ** DIAGNOSTICS                                      PAGE 00231
  9515  
  9516  
  9517  // VIF  THU 20 NOV 2025 22:19:48  ** BESKNU                       ** GENERATED CODE                                   PAGE 00232
  9518  
  9519  int_4 _besknu (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_)
  9520  { // ** body not listed **
  9997  }
  9998  
  9999  // VIF  THU 20 NOV 2025 22:19:48  ** BESKS                        ** BESKS                                            PAGE 00242
 10000  
 10001  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10002  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10003  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10004  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10005  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10006  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10007  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10008  
 10009  //                                       BBBBBB  EEEEEEE  SSSSS  K    K   SSSSS
 10010  //                                       B     B E       S     S K   K   S     S
 10011  //                                       B     B E       S       K  K    S
 10012  //                                       BBBBBB  EEEEE    SSSSS  KKK      SSSSS
 10013  //                                       B     B E             S K  K          S
 10014  //                                       B     B E       S     S K   K   S     S
 10015  //                                       BBBBBB  EEEEEEE  SSSSS  K    K   SSSSS
 10016  
 10017  
 10018  // VIF  THU 20 NOV 2025 22:19:48  ** BESKS                        ** DIAGNOSTICS                                      PAGE 00243
 10019  
 10020  
 10021  // VIF  THU 20 NOV 2025 22:19:48  ** BESKS                        ** GENERATED CODE                                   PAGE 00244
 10022  
 10023  int_4 _besks (real_4 _p_ xnu_, real_4 _p_ x_, int_4 _p_ nin_, real_4 _p_ bk_)
 10024  { // ** body not listed **
 10055  }
 10056  
 10057  // VIF  THU 20 NOV 2025 22:19:48  ** BESY0                        ** BESY0                                            PAGE 00245
 10058  
 10059  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 10060  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 10061  //                           F       U     U N N   N C          T       I    O     O N N   N
 10062  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 10063  //                           F       U     U N   N N C          T       I    O     O N   N N
 10064  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 10065  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 10066  
 10067  //                                       BBBBBB  EEEEEEE  SSSSS  Y     Y   000
 10068  //                                       B     B E       S     S  Y   Y   0   0
 10069  //                                       B     B E       S         Y Y   0     0
 10070  //                                       BBBBBB  EEEEE    SSSSS     Y    0     0
 10071  //                                       B     B E             S    Y    0     0
 10072  //                                       B     B E       S     S    Y     0   0
 10073  //                                       BBBBBB  EEEEEEE  SSSSS     Y      000
 10074  
 10075  
 10076  // VIF  THU 20 NOV 2025 22:19:48  ** BESY0                        ** DIAGNOSTICS                                      PAGE 00246
 10077  
 10078  
 10079  // VIF  THU 20 NOV 2025 22:19:48  ** BESY0                        ** GENERATED CODE                                   PAGE 00247
 10080  
 10081  real_4 _besy0 (real_4 _p_ x_)
 10082  { // ** body not listed **
 10889  }
 10890  
 10891  
 10892  // VIF  THU 20 NOV 2025 22:19:48  ** BESY1                        ** BESY1                                            PAGE 00263
 10893  
 10894  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 10895  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 10896  //                           F       U     U N N   N C          T       I    O     O N N   N
 10897  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 10898  //                           F       U     U N   N N C          T       I    O     O N   N N
 10899  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 10900  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 10901  
 10902  //                                        BBBBBB  EEEEEEE  SSSSS  Y     Y    1
 10903  //                                        B     B E       S     S  Y   Y    11
 10904  //                                        B     B E       S         Y Y    1 1
 10905  //                                        BBBBBB  EEEEE    SSSSS     Y       1
 10906  //                                        B     B E             S    Y       1
 10907  //                                        B     B E       S     S    Y       1
 10908  //                                        BBBBBB  EEEEEEE  SSSSS     Y     11111
 10909  
 10910  
 10911  // VIF  THU 20 NOV 2025 22:19:48  ** BESY1                        ** DIAGNOSTICS                                      PAGE 00264
 10912  
 10913  
 10914  // VIF  THU 20 NOV 2025 22:19:48  ** BESY1                        ** GENERATED CODE                                   PAGE 00265
 10915  
 10916  real_4 _besy1 (real_4 _p_ x_)
 10917  { // ** body not listed **
 11741  }
 11742  
 11743  
 11744  // VIF  THU 20 NOV 2025 22:19:48  ** BESY                         ** BESY                                             PAGE 00281
 11745  
 11746  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11747  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11748  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11749  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11750  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11751  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11752  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11753  
 11754  //                                           BBBBBB  EEEEEEE  SSSSS  Y     Y
 11755  //                                           B     B E       S     S  Y   Y
 11756  //                                           B     B E       S         Y Y
 11757  //                                           BBBBBB  EEEEE    SSSSS     Y
 11758  //                                           B     B E             S    Y
 11759  //                                           B     B E       S     S    Y
 11760  //                                           BBBBBB  EEEEEEE  SSSSS     Y
 11761  
 11762  
 11763  // VIF  THU 20 NOV 2025 22:19:48  ** BESY                         ** DIAGNOSTICS                                      PAGE 00282
 11764  
 11765  
 11766  // VIF  THU 20 NOV 2025 22:19:48  ** BESY                         ** GENERATED CODE                                   PAGE 00283
 11767  
 11768  int_4 _besy (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ n_, real_4 _p_ y_)
 11769  { // ** body not listed **
 11955  }
 11956  
 11957  // VIF  THU 20 NOV 2025 22:19:48  ** BESYNU                       ** BESYNU                                           PAGE 00287
 11958  
 11959  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11960  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11961  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11962  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11963  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11964  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11965  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11966  
 11967  //                                   BBBBBB  EEEEEEE  SSSSS  Y     Y N     N U     U
 11968  //                                   B     B E       S     S  Y   Y  NN    N U     U
 11969  //                                   B     B E       S         Y Y   N N   N U     U
 11970  //                                   BBBBBB  EEEEE    SSSSS     Y    N  N  N U     U
 11971  //                                   B     B E             S    Y    N   N N U     U
 11972  //                                   B     B E       S     S    Y    N    NN U     U
 11973  //                                   BBBBBB  EEEEEEE  SSSSS     Y    N     N  UUUUU
 11974  
 11975  
 11976  // VIF  THU 20 NOV 2025 22:19:48  ** BESYNU                       ** DIAGNOSTICS                                      PAGE 00288
 11977  
 11978  
 11979  // VIF  THU 20 NOV 2025 22:19:48  ** BESYNU                       ** GENERATED CODE                                   PAGE 00289
 11980  
 11981  int_4 _besynu (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ n_, real_4 _p_ y_)
 11982  { // ** body not listed **
 12421  }
 12422  
 12423  // VIF  THU 20 NOV 2025 22:19:48  ** BETA                         ** BETA                                             PAGE 00298
 12424  
 12425  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12426  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12427  //                           F       U     U N N   N C          T       I    O     O N N   N
 12428  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12429  //                           F       U     U N   N N C          T       I    O     O N   N N
 12430  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12431  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12432  
 12433  //                                           BBBBBB  EEEEEEE TTTTTTT    A
 12434  //                                           B     B E          T      A A
 12435  //                                           B     B E          T     A   A
 12436  //                                           BBBBBB  EEEEE      T    A     A
 12437  //                                           B     B E          T    AAAAAAA
 12438  //                                           B     B E          T    A     A
 12439  //                                           BBBBBB  EEEEEEE    T    A     A
 12440  
 12441  
 12442  // VIF  THU 20 NOV 2025 22:19:48  ** BETA                         ** DIAGNOSTICS                                      PAGE 00299
 12443  
 12444  
 12445  // VIF  THU 20 NOV 2025 22:19:48  ** BETA                         ** GENERATED CODE                                   PAGE 00300
 12446  
 12447  real_4 _beta (real_4 _p_ a_, real_4 _p_ b_)
 12448  { // ** body not listed **
 12495  }
 12496  
 12497  // VIF  THU 20 NOV 2025 22:19:48  ** BETA                         ** GENERATED CODE                                   PAGE 00301
 12498  
 12499  
 12500  // VIF  THU 20 NOV 2025 22:19:48  ** BETAI                        ** BETAI                                            PAGE 00302
 12501  
 12502  //                                   RRRRRR  EEEEEEE    A    L               4
 12503  //                                   R     R E         A A   L        *   *  4    4
 12504  //                                   R     R E        A   A  L         * *   4    4
 12505  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 12506  //                                   R   R   E       AAAAAAA L         * *        4
 12507  //                                   R    R  E       A     A L        *   *       4
 12508  //                                   R     R EEEEEEE A     A LLLLLLL              4
 12509  
 12510  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12511  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12512  //                           F       U     U N N   N C          T       I    O     O N N   N
 12513  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12514  //                           F       U     U N   N N C          T       I    O     O N   N N
 12515  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12516  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12517  
 12518  //                                        BBBBBB  EEEEEEE TTTTTTT    A      III
 12519  //                                        B     B E          T      A A      I
 12520  //                                        B     B E          T     A   A     I
 12521  //                                        BBBBBB  EEEEE      T    A     A    I
 12522  //                                        B     B E          T    AAAAAAA    I
 12523  //                                        B     B E          T    A     A    I
 12524  //                                        BBBBBB  EEEEEEE    T    A     A   III
 12525  
 12526  
 12527  // VIF  THU 20 NOV 2025 22:19:48  ** BETAI                        ** DIAGNOSTICS                                      PAGE 00303
 12528  
 12529  
 12530  // VIF  THU 20 NOV 2025 22:19:48  ** BETAI                        ** GENERATED CODE                                   PAGE 00304
 12531  
 12532  real_4 _betai (real_4 _p_ x_, real_4 _p_ pin_, real_4 _p_ qin_)
 12533  { // ** body not listed **
 12653  }
 12654  
 12655  // VIF  THU 20 NOV 2025 22:19:48  ** BFQAD                        ** BFQAD                                            PAGE 00307
 12656  
 12657  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12658  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12659  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12660  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12661  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12662  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12663  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12664  
 12665  //                                       BBBBBB  FFFFFFF  QQQQQ     A    DDDDDD
 12666  //                                       B     B F       Q     Q   A A   D     D
 12667  //                                       B     B F       Q     Q  A   A  D     D
 12668  //                                       BBBBBB  FFFFF   Q     Q A     A D     D
 12669  //                                       B     B F       Q   Q Q AAAAAAA D     D
 12670  //                                       B     B F       Q    Q  A     A D     D
 12671  //                                       BBBBBB  F        QQQQ Q A     A DDDDDD
 12672  
 12673  
 12674  // VIF  THU 20 NOV 2025 22:19:48  ** BFQAD                        ** DIAGNOSTICS                                      PAGE 00308
 12675  
 12676  
 12677  // VIF  THU 20 NOV 2025 22:19:48  ** BFQAD                        ** GENERATED CODE                                   PAGE 00309
 12678  
 12679  int_4 _bfqad (real_4 (*_f)(), real_4 _p_ t_, real_4 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ id_, real_4 _p_ 
 12680  x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_, real_4 _p_ work_)
 12681  { // ** body not listed **
 12762  }
 12763  
 12764  // VIF  THU 20 NOV 2025 22:19:48  ** BIE                          ** BIE                                              PAGE 00311
 12765  
 12766  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12767  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12768  //                           F       U     U N N   N C          T       I    O     O N N   N
 12769  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12770  //                           F       U     U N   N N C          T       I    O     O N   N N
 12771  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12772  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12773  
 12774  //                                               BBBBBB    III   EEEEEEE
 12775  //                                               B     B    I    E
 12776  //                                               B     B    I    E
 12777  //                                               BBBBBB     I    EEEEE
 12778  //                                               B     B    I    E
 12779  //                                               B     B    I    E
 12780  //                                               BBBBBB    III   EEEEEEE
 12781  
 12782  
 12783  // VIF  THU 20 NOV 2025 22:19:48  ** BIE                          ** DIAGNOSTICS                                      PAGE 00312
 12784  
 12785  
 12786  // VIF  THU 20 NOV 2025 22:19:48  ** BIE                          ** GENERATED CODE                                   PAGE 00313
 12787  
 12788  real_4 _bie (real_4 _p_ x_)
 12789  { // ** body not listed **
 14026  }
 14027  
 14028  
 14029  // VIF  THU 20 NOV 2025 22:19:48  ** BI                           ** BI                                               PAGE 00337
 14030  
 14031  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 14032  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 14033  //                           F       U     U N N   N C          T       I    O     O N N   N
 14034  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 14035  //                           F       U     U N   N N C          T       I    O     O N   N N
 14036  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 14037  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 14038  
 14039  //                                                    BBBBBB    III
 14040  //                                                    B     B    I
 14041  //                                                    B     B    I
 14042  //                                                    BBBBBB     I
 14043  //                                                    B     B    I
 14044  //                                                    B     B    I
 14045  //                                                    BBBBBB    III
 14046  
 14047  
 14048  // VIF  THU 20 NOV 2025 22:19:48  ** BI                           ** DIAGNOSTICS                                      PAGE 00338
 14049  
 14050  
 14051  // VIF  THU 20 NOV 2025 22:19:48  ** BI                           ** GENERATED CODE                                   PAGE 00339
 14052  
 14053  real_4 _bi (real_4 _p_ x_)
 14054  { // ** body not listed **
 14581  }
 14582  
 14583  
 14584  // VIF  THU 20 NOV 2025 22:19:48  ** BINOM                        ** BINOM                                            PAGE 00350
 14585  
 14586  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 14587  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 14588  //                           F       U     U N N   N C          T       I    O     O N N   N
 14589  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 14590  //                           F       U     U N   N N C          T       I    O     O N   N N
 14591  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 14592  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 14593  
 14594  //                                       BBBBBB    III   N     N  OOOOO  M     M
 14595  //                                       B     B    I    NN    N O     O MM   MM
 14596  //                                       B     B    I    N N   N O     O M M M M
 14597  //                                       BBBBBB     I    N  N  N O     O M  M  M
 14598  //                                       B     B    I    N   N N O     O M     M
 14599  //                                       B     B    I    N    NN O     O M     M
 14600  //                                       BBBBBB    III   N     N  OOOOO  M     M
 14601  
 14602  
 14603  // VIF  THU 20 NOV 2025 22:19:48  ** BINOM                        ** DIAGNOSTICS                                      PAGE 00351
 14604  
 14605  
 14606  // VIF  THU 20 NOV 2025 22:19:48  ** BINOM                        ** GENERATED CODE                                   PAGE 00352
 14607  
 14608  real_4 _binom (int_4 _p_ n_, int_4 _p_ m_)
 14609  { // ** body not listed **
 14691  }
 14692  
 14693  
 14694  // VIF  THU 20 NOV 2025 22:19:48  ** BINT4                        ** BINT4                                            PAGE 00354
 14695  
 14696  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14697  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14698  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14699  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14700  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14701  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14702  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14703  
 14704  //                                       BBBBBB    III   N     N TTTTTTT 4
 14705  //                                       B     B    I    NN    N    T    4    4
 14706  //                                       B     B    I    N N   N    T    4    4
 14707  //                                       BBBBBB     I    N  N  N    T    4444444
 14708  //                                       B     B    I    N   N N    T         4
 14709  //                                       B     B    I    N    NN    T         4
 14710  //                                       BBBBBB    III   N     N    T         4
 14711  
 14712  
 14713  // VIF  THU 20 NOV 2025 22:19:48  ** BINT4                        ** DIAGNOSTICS                                      PAGE 00355
 14714  
 14715  
 14716  // VIF  THU 20 NOV 2025 22:19:48  ** BINT4                        ** GENERATED CODE                                   PAGE 00356
 14717  
 14718  int_4 _bint4 (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ ndata_, int_4 _p_ ibcl_, int_4 _p_ ibcr_, real_4 _p_ fbcl_, 
 14719  real_4 _p_ fbcr_, int_4 _p_ kntopt_, real_4 _p_ t_, real_4 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ w_)
 14720  { // ** body not listed **
 14876  }
 14877  
 14878  // VIF  THU 20 NOV 2025 22:19:48  ** BINTK                        ** BINTK                                            PAGE 00360
 14879  
 14880  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14881  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14882  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14883  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14884  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14885  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14886  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14887  
 14888  //                                        BBBBBB    III   N     N TTTTTTT K    K
 14889  //                                        B     B    I    NN    N    T    K   K
 14890  //                                        B     B    I    N N   N    T    K  K
 14891  //                                        BBBBBB     I    N  N  N    T    KKK
 14892  //                                        B     B    I    N   N N    T    K  K
 14893  //                                        B     B    I    N    NN    T    K   K
 14894  //                                        BBBBBB    III   N     N    T    K    K
 14895  
 14896  
 14897  // VIF  THU 20 NOV 2025 22:19:48  ** BINTK                        ** DIAGNOSTICS                                      PAGE 00361
 14898  
 14899  
 14900  // VIF  THU 20 NOV 2025 22:19:48  ** BINTK                        ** GENERATED CODE                                   PAGE 00362
 14901  
 14902  int_4 _bintk (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ t_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ bcoef_, real_4 _p_ q_
 14903  , real_4 _p_ work_)
 14904  { // ** body not listed **
 14991  }
 14992  
 14993  // VIF  THU 20 NOV 2025 22:19:48  ** BKIAS                        ** BKIAS                                            PAGE 00364
 14994  
 14995  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14996  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14997  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14998  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14999  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15000  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15001  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15002  
 15003  //                                       BBBBBB  K    K    III      A     SSSSS
 15004  //                                       B     B K   K      I      A A   S     S
 15005  //                                       B     B K  K       I     A   A  S
 15006  //                                       BBBBBB  KKK        I    A     A  SSSSS
 15007  //                                       B     B K  K       I    AAAAAAA       S
 15008  //                                       B     B K   K      I    A     A S     S
 15009  //                                       BBBBBB  K    K    III   A     A  SSSSS
 15010  
 15011  
 15012  // VIF  THU 20 NOV 2025 22:19:48  ** BKIAS                        ** DIAGNOSTICS                                      PAGE 00365
 15013  
 15014  
 15015  // VIF  THU 20 NOV 2025 22:19:48  ** BKIAS                        ** GENERATED CODE                                   PAGE 00366
 15016  
 15017  int_4 _bkias (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ ktrms_, real_4 _p_ t_, real_4 _p_ ans_, int_4 _p_ ind_, int_4 _p_ 
 15018  ms_, real_4 _p_ gmrn_, real_4 _p_ h_, int_4 _p_ ierr_)
 15019  { // ** body not listed **
 16078  }
 16079  
 16080  // VIF  THU 20 NOV 2025 22:19:48  ** BKISR                        ** BKISR                                            PAGE 00387
 16081  
 16082  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16083  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16084  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16085  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16086  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16087  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16088  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16089  
 16090  //                                       BBBBBB  K    K    III    SSSSS  RRRRRR
 16091  //                                       B     B K   K      I    S     S R     R
 16092  //                                       B     B K  K       I    S       R     R
 16093  //                                       BBBBBB  KKK        I     SSSSS  RRRRRR
 16094  //                                       B     B K  K       I          S R   R
 16095  //                                       B     B K   K      I    S     S R    R
 16096  //                                       BBBBBB  K    K    III    SSSSS  R     R
 16097  
 16098  
 16099  // VIF  THU 20 NOV 2025 22:19:48  ** BKISR                        ** DIAGNOSTICS                                      PAGE 00388
 16100  
 16101  
 16102  // VIF  THU 20 NOV 2025 22:19:48  ** BKISR                        ** GENERATED CODE                                   PAGE 00389
 16103  
 16104  int_4 _bkisr (real_4 _p_ x_, int_4 _p_ n_, real_4 _p_ sum_, int_4 _p_ ierr_)
 16105  { // ** body not listed **
 16194  }
 16195  
 16196  // VIF  THU 20 NOV 2025 22:19:48  ** BSKIN                        ** BSKIN                                            PAGE 00391
 16197  
 16198  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16199  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16200  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16201  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16202  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16203  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16204  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16205  
 16206  //                                       BBBBBB   SSSSS  K    K    III   N     N
 16207  //                                       B     B S     S K   K      I    NN    N
 16208  //                                       B     B S       K  K       I    N N   N
 16209  //                                       BBBBBB   SSSSS  KKK        I    N  N  N
 16210  //                                       B     B       S K  K       I    N   N N
 16211  //                                       B     B S     S K   K      I    N    NN
 16212  //                                       BBBBBB   SSSSS  K    K    III   N     N
 16213  
 16214  
 16215  // VIF  THU 20 NOV 2025 22:19:48  ** BSKIN                        ** DIAGNOSTICS                                      PAGE 00392
 16216  
 16217  
 16218  // VIF  THU 20 NOV 2025 22:19:48  ** BSKIN                        ** GENERATED CODE                                   PAGE 00393
 16219  
 16220  int_4 _bskin (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_4 _p_ y_, int_4 _p_ nz_, int_4 _p_ ierr_
 16221  )
 16222  { // ** body not listed **
 16825  }
 16826  
 16827  // VIF  THU 20 NOV 2025 22:19:48  ** BSPEV                        ** BSPEV                                            PAGE 00405
 16828  
 16829  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16830  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16831  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16832  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16833  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16834  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16835  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16836  
 16837  //                                       BBBBBB   SSSSS  PPPPPP  EEEEEEE V     V
 16838  //                                       B     B S     S P     P E       V     V
 16839  //                                       B     B S       P     P E       V     V
 16840  //                                       BBBBBB   SSSSS  PPPPPP  EEEEE   V     V
 16841  //                                       B     B       S P       E        V   V
 16842  //                                       B     B S     S P       E         V V
 16843  //                                       BBBBBB   SSSSS  P       EEEEEEE    V
 16844  
 16845  
 16846  // VIF  THU 20 NOV 2025 22:19:48  ** BSPEV                        ** DIAGNOSTICS                                      PAGE 00406
 16847  
 16848  
 16849  // VIF  THU 20 NOV 2025 22:19:48  ** BSPEV                        ** GENERATED CODE                                   PAGE 00407
 16850  
 16851  int_4 _bspev (real_4 _p_ t_, real_4 _p_ ad_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ nderiv_, real_4 _p_ x_, int_4 _p_ 
 16852  inev_, real_4 _p_ svalue_, real_4 _p_ work_)
 16853  { // ** body not listed **
 16928  }
 16929  
 16930  // VIF  THU 20 NOV 2025 22:19:48  ** BSPPP                        ** BSPPP                                            PAGE 00409
 16931  
 16932  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16933  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16934  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16935  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16936  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16937  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16938  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16939  
 16940  //                                       BBBBBB   SSSSS  PPPPPP  PPPPPP  PPPPPP
 16941  //                                       B     B S     S P     P P     P P     P
 16942  //                                       B     B S       P     P P     P P     P
 16943  //                                       BBBBBB   SSSSS  PPPPPP  PPPPPP  PPPPPP
 16944  //                                       B     B       S P       P       P
 16945  //                                       B     B S     S P       P       P
 16946  //                                       BBBBBB   SSSSS  P       P       P
 16947  
 16948  
 16949  // VIF  THU 20 NOV 2025 22:19:48  ** BSPPP                        ** DIAGNOSTICS                                      PAGE 00410
 16950  
 16951  
 16952  // VIF  THU 20 NOV 2025 22:19:48  ** BSPPP                        ** GENERATED CODE                                   PAGE 00411
 16953  
 16954  int_4 _bsppp (real_4 _p_ t_, real_4 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, 
 16955  int_4 _p_ lxi_, real_4 _p_ work_)
 16956  { // ** body not listed **
 16995  }
 16996  
 16997  // VIF  THU 20 NOV 2025 22:19:48  ** BSPVD                        ** BSPVD                                            PAGE 00412
 16998  
 16999  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17000  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17001  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17002  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17003  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17004  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17005  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17006  
 17007  //                                       BBBBBB   SSSSS  PPPPPP  V     V DDDDDD
 17008  //                                       B     B S     S P     P V     V D     D
 17009  //                                       B     B S       P     P V     V D     D
 17010  //                                       BBBBBB   SSSSS  PPPPPP  V     V D     D
 17011  //                                       B     B       S P        V   V  D     D
 17012  //                                       B     B S     S P         V V   D     D
 17013  //                                       BBBBBB   SSSSS  P          V    DDDDDD
 17014  
 17015  
 17016  // VIF  THU 20 NOV 2025 22:19:48  ** BSPVD                        ** DIAGNOSTICS                                      PAGE 00413
 17017  
 17018  
 17019  // VIF  THU 20 NOV 2025 22:19:48  ** BSPVD                        ** GENERATED CODE                                   PAGE 00414
 17020  
 17021  int_4 _bspvd (real_4 _p_ t_, int_4 _p_ k_, int_4 _p_ nderiv_, real_4 _p_ x_, int_4 _p_ ileft_, int_4 _p_ ldvnik_, 
 17022  real_4 _p_ vnikx_, real_4 _p_ work_)
 17023  { // ** body not listed **
 17110  }
 17111  
 17112  // VIF  THU 20 NOV 2025 22:19:48  ** BSQAD                        ** BSQAD                                            PAGE 00416
 17113  
 17114  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17115  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17116  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17117  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17118  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17119  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17120  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17121  
 17122  //                                       BBBBBB   SSSSS   QQQQQ     A    DDDDDD
 17123  //                                       B     B S     S Q     Q   A A   D     D
 17124  //                                       B     B S       Q     Q  A   A  D     D
 17125  //                                       BBBBBB   SSSSS  Q     Q A     A D     D
 17126  //                                       B     B       S Q   Q Q AAAAAAA D     D
 17127  //                                       B     B S     S Q    Q  A     A D     D
 17128  //                                       BBBBBB   SSSSS   QQQQ Q A     A DDDDDD
 17129  
 17130  
 17131  // VIF  THU 20 NOV 2025 22:19:48  ** BSQAD                        ** DIAGNOSTICS                                      PAGE 00417
 17132  
 17133  
 17134  // VIF  THU 20 NOV 2025 22:19:48  ** BSQAD                        ** GENERATED CODE                                   PAGE 00418
 17135  
 17136  int_4 _bsqad (real_4 _p_ t_, real_4 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ 
 17137  bquad_, real_4 _p_ work_)
 17138  { // ** body not listed **
 17353  }
 17354  
 17355  // VIF  THU 20 NOV 2025 22:19:48  ** BVALU                        ** BVALU                                            PAGE 00423
 17356  
 17357  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 17358  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 17359  //                           F       U     U N N   N C          T       I    O     O N N   N
 17360  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 17361  //                           F       U     U N   N N C          T       I    O     O N   N N
 17362  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 17363  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 17364  
 17365  //                                       BBBBBB  V     V    A    L       U     U
 17366  //                                       B     B V     V   A A   L       U     U
 17367  //                                       B     B V     V  A   A  L       U     U
 17368  //                                       BBBBBB  V     V A     A L       U     U
 17369  //                                       B     B  V   V  AAAAAAA L       U     U
 17370  //                                       B     B   V V   A     A L       U     U
 17371  //                                       BBBBBB     V    A     A LLLLLLL  UUUUU
 17372  
 17373  
 17374  // VIF  THU 20 NOV 2025 22:19:48  ** BVALU                        ** DIAGNOSTICS                                      PAGE 00424
 17375  
 17376  
 17377  // VIF  THU 20 NOV 2025 22:19:48  ** BVALU                        ** GENERATED CODE                                   PAGE 00425
 17378  
 17379  real_4 _bvalu (real_4 _p_ t_, real_4 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ ideriv_, real_4 _p_ x_, int_4 _p_ 
 17380  inbv_, real_4 _p_ work_)
 17381  { // ** body not listed **
 17487  }
 17488  
 17489  
 17490  // VIF  THU 20 NOV 2025 22:19:48  ** C0LGMC                       ** C0LGMC                                           PAGE 00428
 17491  
 17492  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 17493  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 17494  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 17495  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 17496  //                       C       O     O M     M P       L       E         X X     * *   8     8
 17497  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 17498  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 17499  
 17500  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 17501  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 17502  //                           F       U     U N N   N C          T       I    O     O N N   N
 17503  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 17504  //                           F       U     U N   N N C          T       I    O     O N   N N
 17505  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 17506  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 17507  
 17508  //                                    CCCCC    000   L        GGGGG  M     M  CCCCC
 17509  //                                   C     C  0   0  L       G     G MM   MM C     C
 17510  //                                   C       0     0 L       G       M M M M C
 17511  //                                   C       0     0 L       G  GGGG M  M  M C
 17512  //                                   C       0     0 L       G     G M     M C
 17513  //                                   C     C  0   0  L       G     G M     M C     C
 17514  //                                    CCCCC    000   LLLLLLL  GGGGG  M     M  CCCCC
 17515  
 17516  
 17517  // VIF  THU 20 NOV 2025 22:19:48  ** C0LGMC                       ** DIAGNOSTICS                                      PAGE 00429
 17518  
 17519  
 17520  // VIF  THU 20 NOV 2025 22:19:48  ** C0LGMC                       ** GENERATED CODE                                   PAGE 00430
 17521  
 17522  complex_8 _c0lgmc (complex_8 _p_ z_)
 17523  { // ** body not listed **
 17561  }
 17562  
 17563  // VIF  THU 20 NOV 2025 22:19:48  ** C9LGMC                       ** C9LGMC                                           PAGE 00431
 17564  
 17565  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 17566  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 17567  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 17568  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 17569  //                       C       O     O M     M P       L       E         X X     * *   8     8
 17570  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 17571  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 17572  
 17573  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 17574  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 17575  //                           F       U     U N N   N C          T       I    O     O N N   N
 17576  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 17577  //                           F       U     U N   N N C          T       I    O     O N   N N
 17578  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 17579  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 17580  
 17581  //                                    CCCCC   99999  L        GGGGG  M     M  CCCCC
 17582  //                                   C     C 9     9 L       G     G MM   MM C     C
 17583  //                                   C       9     9 L       G       M M M M C
 17584  //                                   C        999999 L       G  GGGG M  M  M C
 17585  //                                   C             9 L       G     G M     M C
 17586  //                                   C     C 9     9 L       G     G M     M C     C
 17587  //                                    CCCCC   99999  LLLLLLL  GGGGG  M     M  CCCCC
 17588  
 17589  
 17590  // VIF  THU 20 NOV 2025 22:19:48  ** C9LGMC                       ** DIAGNOSTICS                                      PAGE 00432
 17591  
 17592  
 17593  // VIF  THU 20 NOV 2025 22:19:48  ** C9LGMC                       ** GENERATED CODE                                   PAGE 00433
 17594  
 17595  complex_8 _c9lgmc (complex_8 _p_ zin_)
 17596  { // ** body not listed **
 17796  }
 17797  
 17798  // VIF  THU 20 NOV 2025 22:19:48  ** C9LN2R                       ** C9LN2R                                           PAGE 00437
 17799  
 17800  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 17801  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 17802  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 17803  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 17804  //                       C       O     O M     M P       L       E         X X     * *   8     8
 17805  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 17806  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 17807  
 17808  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 17809  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 17810  //                           F       U     U N N   N C          T       I    O     O N N   N
 17811  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 17812  //                           F       U     U N   N N C          T       I    O     O N   N N
 17813  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 17814  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 17815  
 17816  //                                    CCCCC   99999  L       N     N  22222  RRRRRR
 17817  //                                   C     C 9     9 L       NN    N 2     2 R     R
 17818  //                                   C       9     9 L       N N   N       2 R     R
 17819  //                                   C        999999 L       N  N  N  22222  RRRRRR
 17820  //                                   C             9 L       N   N N 2       R   R
 17821  //                                   C     C 9     9 L       N    NN 2       R    R
 17822  //                                    CCCCC   99999  LLLLLLL N     N 2222222 R     R
 17823  
 17824  
 17825  // VIF  THU 20 NOV 2025 22:19:48  ** C9LN2R                       ** DIAGNOSTICS                                      PAGE 00438
 17826  
 17827  
 17828  // VIF  THU 20 NOV 2025 22:19:48  ** C9LN2R                       ** GENERATED CODE                                   PAGE 00439
 17829  
 17830  complex_8 _c9ln2r (complex_8 _p_ z_)
 17831  { // ** body not listed **
 17858  }
 17859  
 17860  // VIF  THU 20 NOV 2025 22:19:48  ** CACAI                        ** CACAI                                            PAGE 00440
 17861  
 17862  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17863  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17864  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17865  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17866  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17867  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17868  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17869  
 17870  //                                         CCCCC     A     CCCCC     A      III
 17871  //                                        C     C   A A   C     C   A A      I
 17872  //                                        C        A   A  C        A   A     I
 17873  //                                        C       A     A C       A     A    I
 17874  //                                        C       AAAAAAA C       AAAAAAA    I
 17875  //                                        C     C A     A C     C A     A    I
 17876  //                                         CCCCC  A     A  CCCCC  A     A   III
 17877  
 17878  
 17879  // VIF  THU 20 NOV 2025 22:19:48  ** CACAI                        ** DIAGNOSTICS                                      PAGE 00441
 17880  
 17881  
 17882  // VIF  THU 20 NOV 2025 22:19:48  ** CACAI                        ** GENERATED CODE                                   PAGE 00442
 17883  
 17884  int_4 _cacai (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ y_, int_4 
 17885  _p_ nz_, real_4 _p_ rl_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 17886  { // ** body not listed **
 17978  }
 17979  
 17980  // VIF  THU 20 NOV 2025 22:19:48  ** CACON                        ** CACON                                            PAGE 00444
 17981  
 17982  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17983  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17984  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17985  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17986  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17987  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17988  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17989  
 17990  //                                        CCCCC     A     CCCCC   OOOOO  N     N
 17991  //                                       C     C   A A   C     C O     O NN    N
 17992  //                                       C        A   A  C       O     O N N   N
 17993  //                                       C       A     A C       O     O N  N  N
 17994  //                                       C       AAAAAAA C       O     O N   N N
 17995  //                                       C     C A     A C     C O     O N    NN
 17996  //                                        CCCCC  A     A  CCCCC   OOOOO  N     N
 17997  
 17998  
 17999  // VIF  THU 20 NOV 2025 22:19:48  ** CACON                        ** DIAGNOSTICS                                      PAGE 00445
 18000  
 18001  
 18002  // VIF  THU 20 NOV 2025 22:19:48  ** CACON                        ** GENERATED CODE                                   PAGE 00446
 18003  
 18004  int_4 _cacon (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ y_, int_4 
 18005  _p_ nz_, real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 18006  { // ** body not listed **
 18193  }
 18194  
 18195  // VIF  THU 20 NOV 2025 22:19:48  ** CACOS                        ** CACOS                                            PAGE 00450
 18196  
 18197  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 18198  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 18199  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 18200  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 18201  //                       C       O     O M     M P       L       E         X X     * *   8     8
 18202  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 18203  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 18204  
 18205  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 18206  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 18207  //                           F       U     U N N   N C          T       I    O     O N N   N
 18208  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 18209  //                           F       U     U N   N N C          T       I    O     O N   N N
 18210  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 18211  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 18212  
 18213  //                                        CCCCC     A     CCCCC   OOOOO   SSSSS
 18214  //                                       C     C   A A   C     C O     O S     S
 18215  //                                       C        A   A  C       O     O S
 18216  //                                       C       A     A C       O     O  SSSSS
 18217  //                                       C       AAAAAAA C       O     O       S
 18218  //                                       C     C A     A C     C O     O S     S
 18219  //                                        CCCCC  A     A  CCCCC   OOOOO   SSSSS
 18220  
 18221  
 18222  // VIF  THU 20 NOV 2025 22:19:48  ** CACOS                        ** DIAGNOSTICS                                      PAGE 00451
 18223  
 18224  
 18225  // VIF  THU 20 NOV 2025 22:19:48  ** CACOS                        ** GENERATED CODE                                   PAGE 00452
 18226  
 18227  complex_8 _cacos (complex_8 _p_ z_)
 18228  { // ** body not listed **
 18247  }
 18248  
 18249  // VIF  THU 20 NOV 2025 22:19:48  ** CACOSH                       ** CACOSH                                           PAGE 00453
 18250  
 18251  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 18252  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 18253  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 18254  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 18255  //                       C       O     O M     M P       L       E         X X     * *   8     8
 18256  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 18257  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 18258  
 18259  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 18260  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 18261  //                           F       U     U N N   N C          T       I    O     O N N   N
 18262  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 18263  //                           F       U     U N   N N C          T       I    O     O N   N N
 18264  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 18265  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 18266  
 18267  //                                    CCCCC     A     CCCCC   OOOOO   SSSSS  H     H
 18268  //                                   C     C   A A   C     C O     O S     S H     H
 18269  //                                   C        A   A  C       O     O S       H     H
 18270  //                                   C       A     A C       O     O  SSSSS  HHHHHHH
 18271  //                                   C       AAAAAAA C       O     O       S H     H
 18272  //                                   C     C A     A C     C O     O S     S H     H
 18273  //                                    CCCCC  A     A  CCCCC   OOOOO   SSSSS  H     H
 18274  
 18275  
 18276  // VIF  THU 20 NOV 2025 22:19:48  ** CACOSH                       ** DIAGNOSTICS                                      PAGE 00454
 18277  
 18278  
 18279  // VIF  THU 20 NOV 2025 22:19:48  ** CACOSH                       ** GENERATED CODE                                   PAGE 00455
 18280  
 18281  complex_8 _cacosh (complex_8 _p_ z_)
 18282  { // ** body not listed **
 18301  }
 18302  
 18303  // VIF  THU 20 NOV 2025 22:19:48  ** CAIRY                        ** CAIRY                                            PAGE 00456
 18304  
 18305  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18306  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18307  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18308  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18309  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18310  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18311  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18312  
 18313  //                                        CCCCC     A      III   RRRRRR  Y     Y
 18314  //                                       C     C   A A      I    R     R  Y   Y
 18315  //                                       C        A   A     I    R     R   Y Y
 18316  //                                       C       A     A    I    RRRRRR     Y
 18317  //                                       C       AAAAAAA    I    R   R      Y
 18318  //                                       C     C A     A    I    R    R     Y
 18319  //                                        CCCCC  A     A   III   R     R    Y
 18320  
 18321  
 18322  // VIF  THU 20 NOV 2025 22:19:48  ** CAIRY                        ** DIAGNOSTICS                                      PAGE 00457
 18323  
 18324  
 18325  // VIF  THU 20 NOV 2025 22:19:48  ** CAIRY                        ** GENERATED CODE                                   PAGE 00458
 18326  
 18327  int_4 _cairy (complex_8 _p_ z_, int_4 _p_ id_, int_4 _p_ kode_, complex_8 _p_ ai_, int_4 _p_ nz_, int_4 _p_ ierr_)
 18328  { // ** body not listed **
 18621  }
 18622  
 18623  // VIF  THU 20 NOV 2025 22:19:48  ** CARG                         ** CARG                                             PAGE 00464
 18624  
 18625  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 18626  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 18627  //                           F       U     U N N   N C          T       I    O     O N N   N
 18628  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 18629  //                           F       U     U N   N N C          T       I    O     O N   N N
 18630  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 18631  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 18632  
 18633  //                                            CCCCC     A    RRRRRR   GGGGG
 18634  //                                           C     C   A A   R     R G     G
 18635  //                                           C        A   A  R     R G
 18636  //                                           C       A     A RRRRRR  G  GGGG
 18637  //                                           C       AAAAAAA R   R   G     G
 18638  //                                           C     C A     A R    R  G     G
 18639  //                                            CCCCC  A     A R     R  GGGGG
 18640  
 18641  
 18642  // VIF  THU 20 NOV 2025 22:19:48  ** CARG                         ** DIAGNOSTICS                                      PAGE 00465
 18643  
 18644  
 18645  // VIF  THU 20 NOV 2025 22:19:48  ** CARG                         ** GENERATED CODE                                   PAGE 00466
 18646  
 18647  real_4 _carg (complex_8 _p_ z_)
 18648  { // ** body not listed **
 18656  }
 18657  
 18658  
 18659  // VIF  THU 20 NOV 2025 22:19:48  ** CASIN                        ** CASIN                                            PAGE 00467
 18660  
 18661  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 18662  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 18663  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 18664  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 18665  //                       C       O     O M     M P       L       E         X X     * *   8     8
 18666  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 18667  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 18668  
 18669  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 18670  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 18671  //                           F       U     U N N   N C          T       I    O     O N N   N
 18672  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 18673  //                           F       U     U N   N N C          T       I    O     O N   N N
 18674  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 18675  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 18676  
 18677  //                                        CCCCC     A     SSSSS    III   N     N
 18678  //                                       C     C   A A   S     S    I    NN    N
 18679  //                                       C        A   A  S          I    N N   N
 18680  //                                       C       A     A  SSSSS     I    N  N  N
 18681  //                                       C       AAAAAAA       S    I    N   N N
 18682  //                                       C     C A     A S     S    I    N    NN
 18683  //                                        CCCCC  A     A  SSSSS    III   N     N
 18684  
 18685  
 18686  // VIF  THU 20 NOV 2025 22:19:48  ** CASIN                        ** DIAGNOSTICS                                      PAGE 00468
 18687  
 18688  
 18689  // VIF  THU 20 NOV 2025 22:19:48  ** CASIN                        ** GENERATED CODE                                   PAGE 00469
 18690  
 18691  complex_8 _casin (complex_8 _p_ zinp_)
 18692  { // ** body not listed **
 18795  }
 18796  
 18797  // VIF  THU 20 NOV 2025 22:19:48  ** CASINH                       ** CASINH                                           PAGE 00472
 18798  
 18799  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 18800  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 18801  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 18802  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 18803  //                       C       O     O M     M P       L       E         X X     * *   8     8
 18804  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 18805  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 18806  
 18807  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 18808  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 18809  //                           F       U     U N N   N C          T       I    O     O N N   N
 18810  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 18811  //                           F       U     U N   N N C          T       I    O     O N   N N
 18812  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 18813  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 18814  
 18815  //                                    CCCCC     A     SSSSS    III   N     N H     H
 18816  //                                   C     C   A A   S     S    I    NN    N H     H
 18817  //                                   C        A   A  S          I    N N   N H     H
 18818  //                                   C       A     A  SSSSS     I    N  N  N HHHHHHH
 18819  //                                   C       AAAAAAA       S    I    N   N N H     H
 18820  //                                   C     C A     A S     S    I    N    NN H     H
 18821  //                                    CCCCC  A     A  SSSSS    III   N     N H     H
 18822  
 18823  
 18824  // VIF  THU 20 NOV 2025 22:19:48  ** CASINH                       ** DIAGNOSTICS                                      PAGE 00473
 18825  
 18826  
 18827  // VIF  THU 20 NOV 2025 22:19:48  ** CASINH                       ** GENERATED CODE                                   PAGE 00474
 18828  
 18829  complex_8 _casinh (complex_8 _p_ z_)
 18830  { // ** body not listed **
 18850  }
 18851  
 18852  // VIF  THU 20 NOV 2025 22:19:48  ** CATAN2                       ** CATAN2                                           PAGE 00475
 18853  
 18854  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 18855  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 18856  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 18857  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 18858  //                       C       O     O M     M P       L       E         X X     * *   8     8
 18859  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 18860  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 18861  
 18862  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 18863  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 18864  //                           F       U     U N N   N C          T       I    O     O N N   N
 18865  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 18866  //                           F       U     U N   N N C          T       I    O     O N   N N
 18867  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 18868  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 18869  
 18870  //                                    CCCCC     A    TTTTTTT    A    N     N  22222
 18871  //                                   C     C   A A      T      A A   NN    N 2     2
 18872  //                                   C        A   A     T     A   A  N N   N       2
 18873  //                                   C       A     A    T    A     A N  N  N  22222
 18874  //                                   C       AAAAAAA    T    AAAAAAA N   N N 2
 18875  //                                   C     C A     A    T    A     A N    NN 2
 18876  //                                    CCCCC  A     A    T    A     A N     N 2222222
 18877  
 18878  
 18879  // VIF  THU 20 NOV 2025 22:19:48  ** CATAN2                       ** DIAGNOSTICS                                      PAGE 00476
 18880  
 18881  
 18882  // VIF  THU 20 NOV 2025 22:19:48  ** CATAN2                       ** GENERATED CODE                                   PAGE 00477
 18883  
 18884  complex_8 _catan2 (complex_8 _p_ csn_, complex_8 _p_ ccs_)
 18885  { // ** body not listed **
 18921  }
 18922  
 18923  // VIF  THU 20 NOV 2025 22:19:48  ** CATAN                        ** CATAN                                            PAGE 00478
 18924  
 18925  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 18926  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 18927  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 18928  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 18929  //                       C       O     O M     M P       L       E         X X     * *   8     8
 18930  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 18931  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 18932  
 18933  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 18934  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 18935  //                           F       U     U N N   N C          T       I    O     O N N   N
 18936  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 18937  //                           F       U     U N   N N C          T       I    O     O N   N N
 18938  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 18939  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 18940  
 18941  //                                        CCCCC     A    TTTTTTT    A    N     N
 18942  //                                       C     C   A A      T      A A   NN    N
 18943  //                                       C        A   A     T     A   A  N N   N
 18944  //                                       C       A     A    T    A     A N  N  N
 18945  //                                       C       AAAAAAA    T    AAAAAAA N   N N
 18946  //                                       C     C A     A    T    A     A N    NN
 18947  //                                        CCCCC  A     A    T    A     A N     N
 18948  
 18949  
 18950  // VIF  THU 20 NOV 2025 22:19:48  ** CATAN                        ** DIAGNOSTICS                                      PAGE 00479
 18951  
 18952  
 18953  // VIF  THU 20 NOV 2025 22:19:48  ** CATAN                        ** GENERATED CODE                                   PAGE 00480
 18954  
 18955  complex_8 _catan (complex_8 _p_ z_)
 18956  { // ** body not listed **
 19042  }
 19043  
 19044  // VIF  THU 20 NOV 2025 22:19:48  ** CATANH                       ** CATANH                                           PAGE 00482
 19045  
 19046  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 19047  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 19048  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 19049  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 19050  //                       C       O     O M     M P       L       E         X X     * *   8     8
 19051  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 19052  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 19053  
 19054  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 19055  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 19056  //                           F       U     U N N   N C          T       I    O     O N N   N
 19057  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 19058  //                           F       U     U N   N N C          T       I    O     O N   N N
 19059  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 19060  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 19061  
 19062  //                                    CCCCC     A    TTTTTTT    A    N     N H     H
 19063  //                                   C     C   A A      T      A A   NN    N H     H
 19064  //                                   C        A   A     T     A   A  N N   N H     H
 19065  //                                   C       A     A    T    A     A N  N  N HHHHHHH
 19066  //                                   C       AAAAAAA    T    AAAAAAA N   N N H     H
 19067  //                                   C     C A     A    T    A     A N    NN H     H
 19068  //                                    CCCCC  A     A    T    A     A N     N H     H
 19069  
 19070  
 19071  // VIF  THU 20 NOV 2025 22:19:48  ** CATANH                       ** DIAGNOSTICS                                      PAGE 00483
 19072  
 19073  
 19074  // VIF  THU 20 NOV 2025 22:19:48  ** CATANH                       ** GENERATED CODE                                   PAGE 00484
 19075  
 19076  complex_8 _catanh (complex_8 _p_ z_)
 19077  { // ** body not listed **
 19097  }
 19098  
 19099  // VIF  THU 20 NOV 2025 22:19:48  ** CBESH                        ** CBESH                                            PAGE 00485
 19100  
 19101  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19102  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19103  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19104  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19105  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19106  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19107  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19108  
 19109  //                                        CCCCC  BBBBBB  EEEEEEE  SSSSS  H     H
 19110  //                                       C     C B     B E       S     S H     H
 19111  //                                       C       B     B E       S       H     H
 19112  //                                       C       BBBBBB  EEEEE    SSSSS  HHHHHHH
 19113  //                                       C       B     B E             S H     H
 19114  //                                       C     C B     B E       S     S H     H
 19115  //                                        CCCCC  BBBBBB  EEEEEEE  SSSSS  H     H
 19116  
 19117  
 19118  // VIF  THU 20 NOV 2025 22:19:48  ** CBESH                        ** DIAGNOSTICS                                      PAGE 00486
 19119  
 19120  
 19121  // VIF  THU 20 NOV 2025 22:19:48  ** CBESH                        ** GENERATED CODE                                   PAGE 00487
 19122  
 19123  int_4 _cbesh (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 
 19124  _p_ nz_, int_4 _p_ ierr_)
 19125  { // ** body not listed **
 19325  }
 19326  
 19327  // VIF  THU 20 NOV 2025 22:19:48  ** CBESI                        ** CBESI                                            PAGE 00491
 19328  
 19329  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19330  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19331  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19332  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19333  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19334  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19335  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19336  
 19337  //                                         CCCCC  BBBBBB  EEEEEEE  SSSSS    III
 19338  //                                        C     C B     B E       S     S    I
 19339  //                                        C       B     B E       S          I
 19340  //                                        C       BBBBBB  EEEEE    SSSSS     I
 19341  //                                        C       B     B E             S    I
 19342  //                                        C     C B     B E       S     S    I
 19343  //                                         CCCCC  BBBBBB  EEEEEEE  SSSSS    III
 19344  
 19345  
 19346  // VIF  THU 20 NOV 2025 22:19:48  ** CBESI                        ** DIAGNOSTICS                                      PAGE 00492
 19347  
 19348  
 19349  // VIF  THU 20 NOV 2025 22:19:48  ** CBESI                        ** GENERATED CODE                                   PAGE 00493
 19350  
 19351  int_4 _cbesi (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ nz_, int_4 
 19352  _p_ ierr_)
 19353  { // ** body not listed **
 19500  }
 19501  
 19502  // VIF  THU 20 NOV 2025 22:19:48  ** CBESJ                        ** CBESJ                                            PAGE 00496
 19503  
 19504  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19505  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19506  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19507  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19508  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19509  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19510  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19511  
 19512  //                                        CCCCC  BBBBBB  EEEEEEE  SSSSS        J
 19513  //                                       C     C B     B E       S     S       J
 19514  //                                       C       B     B E       S             J
 19515  //                                       C       BBBBBB  EEEEE    SSSSS        J
 19516  //                                       C       B     B E             S J     J
 19517  //                                       C     C B     B E       S     S J     J
 19518  //                                        CCCCC  BBBBBB  EEEEEEE  SSSSS   JJJJJ
 19519  
 19520  
 19521  // VIF  THU 20 NOV 2025 22:19:48  ** CBESJ                        ** DIAGNOSTICS                                      PAGE 00497
 19522  
 19523  
 19524  // VIF  THU 20 NOV 2025 22:19:48  ** CBESJ                        ** GENERATED CODE                                   PAGE 00498
 19525  
 19526  int_4 _cbesj (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ nz_, int_4 
 19527  _p_ ierr_)
 19528  { // ** body not listed **
 19660  }
 19661  
 19662  // VIF  THU 20 NOV 2025 22:19:48  ** CBESK                        ** CBESK                                            PAGE 00501
 19663  
 19664  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19665  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19666  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19667  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19668  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19669  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19670  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19671  
 19672  //                                         CCCCC  BBBBBB  EEEEEEE  SSSSS  K    K
 19673  //                                        C     C B     B E       S     S K   K
 19674  //                                        C       B     B E       S       K  K
 19675  //                                        C       BBBBBB  EEEEE    SSSSS  KKK
 19676  //                                        C       B     B E             S K  K
 19677  //                                        C     C B     B E       S     S K   K
 19678  //                                         CCCCC  BBBBBB  EEEEEEE  SSSSS  K    K
 19679  
 19680  
 19681  // VIF  THU 20 NOV 2025 22:19:48  ** CBESK                        ** DIAGNOSTICS                                      PAGE 00502
 19682  
 19683  
 19684  // VIF  THU 20 NOV 2025 22:19:48  ** CBESK                        ** GENERATED CODE                                   PAGE 00503
 19685  
 19686  int_4 _cbesk (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ nz_, int_4 
 19687  _p_ ierr_)
 19688  { // ** body not listed **
 19845  }
 19846  
 19847  // VIF  THU 20 NOV 2025 22:19:48  ** CBESY                        ** CBESY                                            PAGE 00507
 19848  
 19849  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19850  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19851  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19852  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19853  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19854  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19855  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19856  
 19857  //                                        CCCCC  BBBBBB  EEEEEEE  SSSSS  Y     Y
 19858  //                                       C     C B     B E       S     S  Y   Y
 19859  //                                       C       B     B E       S         Y Y
 19860  //                                       C       BBBBBB  EEEEE    SSSSS     Y
 19861  //                                       C       B     B E             S    Y
 19862  //                                       C     C B     B E       S     S    Y
 19863  //                                        CCCCC  BBBBBB  EEEEEEE  SSSSS     Y
 19864  
 19865  
 19866  // VIF  THU 20 NOV 2025 22:19:48  ** CBESY                        ** DIAGNOSTICS                                      PAGE 00508
 19867  
 19868  
 19869  // VIF  THU 20 NOV 2025 22:19:48  ** CBESY                        ** GENERATED CODE                                   PAGE 00509
 19870  
 19871  int_4 _cbesy (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ nz_, 
 19872  complex_8 _p_ cwrk_, int_4 _p_ ierr_)
 19873  { // ** body not listed **
 19984  }
 19985  
 19986  // VIF  THU 20 NOV 2025 22:19:48  ** CBETA                        ** CBETA                                            PAGE 00512
 19987  
 19988  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 19989  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 19990  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 19991  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 19992  //                       C       O     O M     M P       L       E         X X     * *   8     8
 19993  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 19994  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 19995  
 19996  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 19997  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 19998  //                           F       U     U N N   N C          T       I    O     O N N   N
 19999  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 20000  //                           F       U     U N   N N C          T       I    O     O N   N N
 20001  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 20002  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 20003  
 20004  //                                        CCCCC  BBBBBB  EEEEEEE TTTTTTT    A
 20005  //                                       C     C B     B E          T      A A
 20006  //                                       C       B     B E          T     A   A
 20007  //                                       C       BBBBBB  EEEEE      T    A     A
 20008  //                                       C       B     B E          T    AAAAAAA
 20009  //                                       C     C B     B E          T    A     A
 20010  //                                        CCCCC  BBBBBB  EEEEEEE    T    A     A
 20011  
 20012  
 20013  // VIF  THU 20 NOV 2025 22:19:48  ** CBETA                        ** DIAGNOSTICS                                      PAGE 00513
 20014  
 20015  
 20016  // VIF  THU 20 NOV 2025 22:19:48  ** CBETA                        ** GENERATED CODE                                   PAGE 00514
 20017  
 20018  complex_8 _cbeta (complex_8 _p_ a_, complex_8 _p_ b_)
 20019  { // ** body not listed **
 20053  }
 20054  
 20055  // VIF  THU 20 NOV 2025 22:19:48  ** CBINU                        ** CBINU                                            PAGE 00515
 20056  
 20057  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20058  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20059  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20060  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20061  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20062  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20063  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20064  
 20065  //                                        CCCCC  BBBBBB    III   N     N U     U
 20066  //                                       C     C B     B    I    NN    N U     U
 20067  //                                       C       B     B    I    N N   N U     U
 20068  //                                       C       BBBBBB     I    N  N  N U     U
 20069  //                                       C       B     B    I    N   N N U     U
 20070  //                                       C     C B     B    I    N    NN U     U
 20071  //                                        CCCCC  BBBBBB    III   N     N  UUUUU
 20072  
 20073  
 20074  // VIF  THU 20 NOV 2025 22:19:48  ** CBINU                        ** DIAGNOSTICS                                      PAGE 00516
 20075  
 20076  
 20077  // VIF  THU 20 NOV 2025 22:19:48  ** CBINU                        ** GENERATED CODE                                   PAGE 00517
 20078  
 20079  int_4 _cbinu (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ nz_, 
 20080  real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 20081  { // ** body not listed **
 20213  }
 20214  
 20215  // VIF  THU 20 NOV 2025 22:19:48  ** CBIRY                        ** CBIRY                                            PAGE 00520
 20216  
 20217  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20218  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20219  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20220  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20221  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20222  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20223  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20224  
 20225  //                                        CCCCC  BBBBBB    III   RRRRRR  Y     Y
 20226  //                                       C     C B     B    I    R     R  Y   Y
 20227  //                                       C       B     B    I    R     R   Y Y
 20228  //                                       C       BBBBBB     I    RRRRRR     Y
 20229  //                                       C       B     B    I    R   R      Y
 20230  //                                       C     C B     B    I    R    R     Y
 20231  //                                        CCCCC  BBBBBB    III   R     R    Y
 20232  
 20233  
 20234  // VIF  THU 20 NOV 2025 22:19:48  ** CBIRY                        ** DIAGNOSTICS                                      PAGE 00521
 20235  
 20236  
 20237  // VIF  THU 20 NOV 2025 22:19:48  ** CBIRY                        ** GENERATED CODE                                   PAGE 00522
 20238  
 20239  int_4 _cbiry (complex_8 _p_ z_, int_4 _p_ id_, int_4 _p_ kode_, complex_8 _p_ bi_, int_4 _p_ ierr_)
 20240  { // ** body not listed **
 20499  }
 20500  
 20501  // VIF  THU 20 NOV 2025 22:19:48  ** CBKNU                        ** CBKNU                                            PAGE 00528
 20502  
 20503  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20504  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20505  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20506  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20507  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20508  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20509  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20510  
 20511  //                                        CCCCC  BBBBBB  K    K  N     N U     U
 20512  //                                       C     C B     B K   K   NN    N U     U
 20513  //                                       C       B     B K  K    N N   N U     U
 20514  //                                       C       BBBBBB  KKK     N  N  N U     U
 20515  //                                       C       B     B K  K    N   N N U     U
 20516  //                                       C     C B     B K   K   N    NN U     U
 20517  //                                        CCCCC  BBBBBB  K    K  N     N  UUUUU
 20518  
 20519  
 20520  // VIF  THU 20 NOV 2025 22:19:48  ** CBKNU                        ** DIAGNOSTICS                                      PAGE 00529
 20521  
 20522  
 20523  // VIF  THU 20 NOV 2025 22:19:48  ** CBKNU                        ** GENERATED CODE                                   PAGE 00530
 20524  
 20525  int_4 _cbknu (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 
 20526  _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 20527  { // ** body not listed **
 21168  }
 21169  
 21170  // VIF  THU 20 NOV 2025 22:19:48  ** CBRT                         ** CBRT                                             PAGE 00543
 21171  
 21172  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 21173  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 21174  //                           F       U     U N N   N C          T       I    O     O N N   N
 21175  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 21176  //                           F       U     U N   N N C          T       I    O     O N   N N
 21177  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 21178  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 21179  
 21180  //                                            CCCCC  BBBBBB  RRRRRR  TTTTTTT
 21181  //                                           C     C B     B R     R    T
 21182  //                                           C       B     B R     R    T
 21183  //                                           C       BBBBBB  RRRRRR     T
 21184  //                                           C       B     B R   R      T
 21185  //                                           C     C B     B R    R     T
 21186  //                                            CCCCC  BBBBBB  R     R    T
 21187  
 21188  
 21189  // VIF  THU 20 NOV 2025 22:19:48  ** CBRT                         ** DIAGNOSTICS                                      PAGE 00544
 21190  
 21191  
 21192  // VIF  THU 20 NOV 2025 22:19:48  ** CBRT                         ** GENERATED CODE                                   PAGE 00545
 21193  
 21194  real_4 _cbrt (real_4 _p_ x_)
 21195  { // ** body not listed **
 21294  }
 21295  
 21296  // VIF  THU 20 NOV 2025 22:19:48  ** CBRT                         ** GENERATED CODE                                   PAGE 00547
 21297  
 21298  
 21299  // VIF  THU 20 NOV 2025 22:19:48  ** CBUNI                        ** CBUNI                                            PAGE 00548
 21300  
 21301  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21302  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21303  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21304  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21305  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21306  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21307  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21308  
 21309  //                                         CCCCC  BBBBBB  U     U N     N   III
 21310  //                                        C     C B     B U     U NN    N    I
 21311  //                                        C       B     B U     U N N   N    I
 21312  //                                        C       BBBBBB  U     U N  N  N    I
 21313  //                                        C       B     B U     U N   N N    I
 21314  //                                        C     C B     B U     U N    NN    I
 21315  //                                         CCCCC  BBBBBB   UUUUU  N     N   III
 21316  
 21317  
 21318  // VIF  THU 20 NOV 2025 22:19:48  ** CBUNI                        ** DIAGNOSTICS                                      PAGE 00549
 21319  
 21320  
 21321  // VIF  THU 20 NOV 2025 22:19:48  ** CBUNI                        ** GENERATED CODE                                   PAGE 00550
 21322  
 21323  int_4 _cbuni (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, int_4 
 21324  _p_ nui_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 21325  { // ** body not listed **
 21489  }
 21490  
 21491  // VIF  THU 20 NOV 2025 22:19:48  ** CBUNK                        ** CBUNK                                            PAGE 00554
 21492  
 21493  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21494  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21495  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21496  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21497  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21498  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21499  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21500  
 21501  //                                         CCCCC  BBBBBB  U     U N     N K    K
 21502  //                                        C     C B     B U     U NN    N K   K
 21503  //                                        C       B     B U     U N N   N K  K
 21504  //                                        C       BBBBBB  U     U N  N  N KKK
 21505  //                                        C       B     B U     U N   N N K  K
 21506  //                                        C     C B     B U     U N    NN K   K
 21507  //                                         CCCCC  BBBBBB   UUUUU  N     N K    K
 21508  
 21509  
 21510  // VIF  THU 20 NOV 2025 22:19:48  ** CBUNK                        ** DIAGNOSTICS                                      PAGE 00555
 21511  
 21512  
 21513  // VIF  THU 20 NOV 2025 22:19:48  ** CBUNK                        ** GENERATED CODE                                   PAGE 00556
 21514  
 21515  int_4 _cbunk (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ y_, int_4 
 21516  _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 21517  { // ** body not listed **
 21534  }
 21535  
 21536  // VIF  THU 20 NOV 2025 22:19:48  ** CCBRT                        ** CCBRT                                            PAGE 00557
 21537  
 21538  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 21539  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 21540  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 21541  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 21542  //                       C       O     O M     M P       L       E         X X     * *   8     8
 21543  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 21544  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 21545  
 21546  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 21547  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 21548  //                           F       U     U N N   N C          T       I    O     O N N   N
 21549  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 21550  //                           F       U     U N   N N C          T       I    O     O N   N N
 21551  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 21552  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 21553  
 21554  //                                        CCCCC   CCCCC  BBBBBB  RRRRRR  TTTTTTT
 21555  //                                       C     C C     C B     B R     R    T
 21556  //                                       C       C       B     B R     R    T
 21557  //                                       C       C       BBBBBB  RRRRRR     T
 21558  //                                       C       C       B     B R   R      T
 21559  //                                       C     C C     C B     B R    R     T
 21560  //                                        CCCCC   CCCCC  BBBBBB  R     R    T
 21561  
 21562  
 21563  // VIF  THU 20 NOV 2025 22:19:48  ** CCBRT                        ** DIAGNOSTICS                                      PAGE 00558
 21564  
 21565  
 21566  // VIF  THU 20 NOV 2025 22:19:48  ** CCBRT                        ** GENERATED CODE                                   PAGE 00559
 21567  
 21568  complex_8 _ccbrt (complex_8 _p_ z_)
 21569  { // ** body not listed **
 21578  }
 21579  
 21580  // VIF  THU 20 NOV 2025 22:19:48  ** CCOSH                        ** CCOSH                                            PAGE 00560
 21581  
 21582  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 21583  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 21584  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 21585  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 21586  //                       C       O     O M     M P       L       E         X X     * *   8     8
 21587  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 21588  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 21589  
 21590  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 21591  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 21592  //                           F       U     U N N   N C          T       I    O     O N N   N
 21593  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 21594  //                           F       U     U N   N N C          T       I    O     O N   N N
 21595  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 21596  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 21597  
 21598  //                                        CCCCC   CCCCC   OOOOO   SSSSS  H     H
 21599  //                                       C     C C     C O     O S     S H     H
 21600  //                                       C       C       O     O S       H     H
 21601  //                                       C       C       O     O  SSSSS  HHHHHHH
 21602  //                                       C       C       O     O       S H     H
 21603  //                                       C     C C     C O     O S     S H     H
 21604  //                                        CCCCC   CCCCC   OOOOO   SSSSS  H     H
 21605  
 21606  
 21607  // VIF  THU 20 NOV 2025 22:19:48  ** CCOSH                        ** DIAGNOSTICS                                      PAGE 00561
 21608  
 21609  
 21610  // VIF  THU 20 NOV 2025 22:19:48  ** CCOSH                        ** GENERATED CODE                                   PAGE 00562
 21611  
 21612  complex_8 _ccosh (complex_8 _p_ z_)
 21613  { // ** body not listed **
 21632  }
 21633  
 21634  // VIF  THU 20 NOV 2025 22:19:48  ** CCOT                         ** CCOT                                             PAGE 00563
 21635  
 21636  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 21637  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 21638  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 21639  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 21640  //                       C       O     O M     M P       L       E         X X     * *   8     8
 21641  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 21642  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 21643  
 21644  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 21645  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 21646  //                           F       U     U N N   N C          T       I    O     O N N   N
 21647  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 21648  //                           F       U     U N   N N C          T       I    O     O N   N N
 21649  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 21650  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 21651  
 21652  //                                            CCCCC   CCCCC   OOOOO  TTTTTTT
 21653  //                                           C     C C     C O     O    T
 21654  //                                           C       C       O     O    T
 21655  //                                           C       C       O     O    T
 21656  //                                           C       C       O     O    T
 21657  //                                           C     C C     C O     O    T
 21658  //                                            CCCCC   CCCCC   OOOOO     T
 21659  
 21660  
 21661  // VIF  THU 20 NOV 2025 22:19:48  ** CCOT                         ** DIAGNOSTICS                                      PAGE 00564
 21662  
 21663  
 21664  // VIF  THU 20 NOV 2025 22:19:48  ** CCOT                         ** GENERATED CODE                                   PAGE 00565
 21665  
 21666  complex_8 _ccot (complex_8 _p_ z_)
 21667  { // ** body not listed **
 21705  }
 21706  
 21707  // VIF  THU 20 NOV 2025 22:19:48  ** CEXPRL                       ** CEXPRL                                           PAGE 00566
 21708  
 21709  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 21710  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 21711  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 21712  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 21713  //                       C       O     O M     M P       L       E         X X     * *   8     8
 21714  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 21715  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 21716  
 21717  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 21718  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 21719  //                           F       U     U N N   N C          T       I    O     O N N   N
 21720  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 21721  //                           F       U     U N   N N C          T       I    O     O N   N N
 21722  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 21723  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 21724  
 21725  //                                    CCCCC  EEEEEEE X     X PPPPPP  RRRRRR  L
 21726  //                                   C     C E        X   X  P     P R     R L
 21727  //                                   C       E         X X   P     P R     R L
 21728  //                                   C       EEEEE      X    PPPPPP  RRRRRR  L
 21729  //                                   C       E         X X   P       R   R   L
 21730  //                                   C     C E        X   X  P       R    R  L
 21731  //                                    CCCCC  EEEEEEE X     X P       R     R LLLLLLL
 21732  
 21733  
 21734  // VIF  THU 20 NOV 2025 22:19:48  ** CEXPRL                       ** DIAGNOSTICS                                      PAGE 00567
 21735  
 21736  
 21737  // VIF  THU 20 NOV 2025 22:19:48  ** CEXPRL                       ** GENERATED CODE                                   PAGE 00568
 21738  
 21739  complex_8 _cexprl (complex_8 _p_ z_)
 21740  { // ** body not listed **
 21785  }
 21786  
 21787  // VIF  THU 20 NOV 2025 22:19:48  ** CGAMMA                       ** CGAMMA                                           PAGE 00569
 21788  
 21789  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 21790  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 21791  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 21792  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 21793  //                       C       O     O M     M P       L       E         X X     * *   8     8
 21794  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 21795  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 21796  
 21797  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 21798  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 21799  //                           F       U     U N N   N C          T       I    O     O N N   N
 21800  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 21801  //                           F       U     U N   N N C          T       I    O     O N   N N
 21802  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 21803  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 21804  
 21805  //                                    CCCCC   GGGGG     A    M     M M     M    A
 21806  //                                   C     C G     G   A A   MM   MM MM   MM   A A
 21807  //                                   C       G        A   A  M M M M M M M M  A   A
 21808  //                                   C       G  GGGG A     A M  M  M M  M  M A     A
 21809  //                                   C       G     G AAAAAAA M     M M     M AAAAAAA
 21810  //                                   C     C G     G A     A M     M M     M A     A
 21811  //                                    CCCCC   GGGGG  A     A M     M M     M A     A
 21812  
 21813  
 21814  // VIF  THU 20 NOV 2025 22:19:48  ** CGAMMA                       ** DIAGNOSTICS                                      PAGE 00570
 21815  
 21816  
 21817  // VIF  THU 20 NOV 2025 22:19:48  ** CGAMMA                       ** GENERATED CODE                                   PAGE 00571
 21818  
 21819  complex_8 _cgamma (complex_8 _p_ z_)
 21820  { // ** body not listed **
 21825  }
 21826  
 21827  // VIF  THU 20 NOV 2025 22:19:48  ** CGAMR                        ** CGAMR                                            PAGE 00572
 21828  
 21829  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 21830  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 21831  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 21832  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 21833  //                       C       O     O M     M P       L       E         X X     * *   8     8
 21834  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 21835  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 21836  
 21837  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 21838  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 21839  //                           F       U     U N N   N C          T       I    O     O N N   N
 21840  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 21841  //                           F       U     U N   N N C          T       I    O     O N   N N
 21842  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 21843  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 21844  
 21845  //                                        CCCCC   GGGGG     A    M     M RRRRRR
 21846  //                                       C     C G     G   A A   MM   MM R     R
 21847  //                                       C       G        A   A  M M M M R     R
 21848  //                                       C       G  GGGG A     A M  M  M RRRRRR
 21849  //                                       C       G     G AAAAAAA M     M R   R
 21850  //                                       C     C G     G A     A M     M R    R
 21851  //                                        CCCCC   GGGGG  A     A M     M R     R
 21852  
 21853  
 21854  // VIF  THU 20 NOV 2025 22:19:48  ** CGAMR                        ** DIAGNOSTICS                                      PAGE 00573
 21855  
 21856  
 21857  // VIF  THU 20 NOV 2025 22:19:48  ** CGAMR                        ** GENERATED CODE                                   PAGE 00574
 21858  
 21859  complex_8 _cgamr (complex_8 _p_ z_)
 21860  { // ** body not listed **
 21878  }
 21879  
 21880  // VIF  THU 20 NOV 2025 22:19:48  ** CHU                          ** CHU                                              PAGE 00575
 21881  
 21882  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 21883  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 21884  //                           F       U     U N N   N C          T       I    O     O N N   N
 21885  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 21886  //                           F       U     U N   N N C          T       I    O     O N   N N
 21887  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 21888  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 21889  
 21890  //                                                CCCCC  H     H U     U
 21891  //                                               C     C H     H U     U
 21892  //                                               C       H     H U     U
 21893  //                                               C       HHHHHHH U     U
 21894  //                                               C       H     H U     U
 21895  //                                               C     C H     H U     U
 21896  //                                                CCCCC  H     H  UUUUU
 21897  
 21898  
 21899  // VIF  THU 20 NOV 2025 22:19:48  ** CHU                          ** DIAGNOSTICS                                      PAGE 00576
 21900  
 21901  
 21902  // VIF  THU 20 NOV 2025 22:19:48  ** CHU                          ** GENERATED CODE                                   PAGE 00577
 21903  
 21904  real_4 _chu (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ x_)
 21905  { // ** body not listed **
 22057  }
 22058  // VIF  THU 20 NOV 2025 22:19:48  ** CHU                          ** GENERATED CODE                                   PAGE 00580
 22059  
 22060  
 22061  
 22062  // VIF  THU 20 NOV 2025 22:19:48  ** CKSCL                        ** CKSCL                                            PAGE 00581
 22063  
 22064  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 22065  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 22066  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 22067  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 22068  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 22069  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 22070  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 22071  
 22072  //                                        CCCCC  K    K   SSSSS   CCCCC  L
 22073  //                                       C     C K   K   S     S C     C L
 22074  //                                       C       K  K    S       C       L
 22075  //                                       C       KKK      SSSSS  C       L
 22076  //                                       C       K  K          S C       L
 22077  //                                       C     C K   K   S     S C     C L
 22078  //                                        CCCCC  K    K   SSSSS   CCCCC  LLLLLLL
 22079  
 22080  
 22081  // VIF  THU 20 NOV 2025 22:19:48  ** CKSCL                        ** DIAGNOSTICS                                      PAGE 00582
 22082  
 22083  
 22084  // VIF  THU 20 NOV 2025 22:19:48  ** CKSCL                        ** GENERATED CODE                                   PAGE 00583
 22085  
 22086  int_4 _ckscl (complex_8 _p_ zr_, real_4 _p_ fnu_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, complex_8 _p_ rz_, 
 22087  real_4 _p_ ascle_, real_4 _p_ tol_, real_4 _p_ elim_)
 22088  { // ** body not listed **
 22215  }
 22216  
 22217  // VIF  THU 20 NOV 2025 22:19:48  ** CLBETA                       ** CLBETA                                           PAGE 00586
 22218  
 22219  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 22220  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 22221  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 22222  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 22223  //                       C       O     O M     M P       L       E         X X     * *   8     8
 22224  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 22225  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 22226  
 22227  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 22228  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 22229  //                           F       U     U N N   N C          T       I    O     O N N   N
 22230  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 22231  //                           F       U     U N   N N C          T       I    O     O N   N N
 22232  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 22233  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 22234  
 22235  //                                    CCCCC  L       BBBBBB  EEEEEEE TTTTTTT    A
 22236  //                                   C     C L       B     B E          T      A A
 22237  //                                   C       L       B     B E          T     A   A
 22238  //                                   C       L       BBBBBB  EEEEE      T    A     A
 22239  //                                   C       L       B     B E          T    AAAAAAA
 22240  //                                   C     C L       B     B E          T    A     A
 22241  //                                    CCCCC  LLLLLLL BBBBBB  EEEEEEE    T    A     A
 22242  
 22243  
 22244  // VIF  THU 20 NOV 2025 22:19:48  ** CLBETA                       ** DIAGNOSTICS                                      PAGE 00587
 22245  
 22246  
 22247  // VIF  THU 20 NOV 2025 22:19:48  ** CLBETA                       ** GENERATED CODE                                   PAGE 00588
 22248  
 22249  complex_8 _clbeta (complex_8 _p_ a_, complex_8 _p_ b_)
 22250  { // ** body not listed **
 22260  }
 22261  
 22262  // VIF  THU 20 NOV 2025 22:19:48  ** CLNGAM                       ** CLNGAM                                           PAGE 00589
 22263  
 22264  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 22265  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 22266  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 22267  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 22268  //                       C       O     O M     M P       L       E         X X     * *   8     8
 22269  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 22270  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 22271  
 22272  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 22273  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 22274  //                           F       U     U N N   N C          T       I    O     O N N   N
 22275  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 22276  //                           F       U     U N   N N C          T       I    O     O N   N N
 22277  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 22278  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 22279  
 22280  //                                    CCCCC  L       N     N  GGGGG     A    M     M
 22281  //                                   C     C L       NN    N G     G   A A   MM   MM
 22282  //                                   C       L       N N   N G        A   A  M M M M
 22283  //                                   C       L       N  N  N G  GGGG A     A M  M  M
 22284  //                                   C       L       N   N N G     G AAAAAAA M     M
 22285  //                                   C     C L       N    NN G     G A     A M     M
 22286  //                                    CCCCC  LLLLLLL N     N  GGGGG  A     A M     M
 22287  
 22288  
 22289  // VIF  THU 20 NOV 2025 22:19:48  ** CLNGAM                       ** DIAGNOSTICS                                      PAGE 00590
 22290  
 22291  
 22292  // VIF  THU 20 NOV 2025 22:19:48  ** CLNGAM                       ** GENERATED CODE                                   PAGE 00591
 22293  
 22294  complex_8 _clngam (complex_8 _p_ zin_)
 22295  { // ** body not listed **
 22402  }
 22403  
 22404  // VIF  THU 20 NOV 2025 22:19:48  ** CLNREL                       ** CLNREL                                           PAGE 00594
 22405  
 22406  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 22407  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 22408  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 22409  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 22410  //                       C       O     O M     M P       L       E         X X     * *   8     8
 22411  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 22412  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 22413  
 22414  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 22415  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 22416  //                           F       U     U N N   N C          T       I    O     O N N   N
 22417  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 22418  //                           F       U     U N   N N C          T       I    O     O N   N N
 22419  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 22420  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 22421  
 22422  //                                    CCCCC  L       N     N RRRRRR  EEEEEEE L
 22423  //                                   C     C L       NN    N R     R E       L
 22424  //                                   C       L       N N   N R     R E       L
 22425  //                                   C       L       N  N  N RRRRRR  EEEEE   L
 22426  //                                   C       L       N   N N R   R   E       L
 22427  //                                   C     C L       N    NN R    R  E       L
 22428  //                                    CCCCC  LLLLLLL N     N R     R EEEEEEE LLLLLLL
 22429  
 22430  
 22431  // VIF  THU 20 NOV 2025 22:19:48  ** CLNREL                       ** DIAGNOSTICS                                      PAGE 00595
 22432  
 22433  
 22434  // VIF  THU 20 NOV 2025 22:19:48  ** CLNREL                       ** GENERATED CODE                                   PAGE 00596
 22435  
 22436  complex_8 _clnrel (complex_8 _p_ z_)
 22437  { // ** body not listed **
 22474  }
 22475  
 22476  // VIF  THU 20 NOV 2025 22:19:48  ** CLOG10                       ** CLOG10                                           PAGE 00597
 22477  
 22478  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 22479  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 22480  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 22481  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 22482  //                       C       O     O M     M P       L       E         X X     * *   8     8
 22483  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 22484  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 22485  
 22486  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 22487  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 22488  //                           F       U     U N N   N C          T       I    O     O N N   N
 22489  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 22490  //                           F       U     U N   N N C          T       I    O     O N   N N
 22491  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 22492  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 22493  
 22494  //                                    CCCCC  L        OOOOO   GGGGG     1      000
 22495  //                                   C     C L       O     O G     G   11     0   0
 22496  //                                   C       L       O     O G        1 1    0     0
 22497  //                                   C       L       O     O G  GGGG    1    0     0
 22498  //                                   C       L       O     O G     G    1    0     0
 22499  //                                   C     C L       O     O G     G    1     0   0
 22500  //                                    CCCCC  LLLLLLL  OOOOO   GGGGG   11111    000
 22501  
 22502  
 22503  // VIF  THU 20 NOV 2025 22:19:48  ** CLOG10                       ** DIAGNOSTICS                                      PAGE 00598
 22504  
 22505  
 22506  // VIF  THU 20 NOV 2025 22:19:48  ** CLOG10                       ** GENERATED CODE                                   PAGE 00599
 22507  
 22508  complex_8 _clog10 (complex_8 _p_ z_)
 22509  { // ** body not listed **
 22528  }
 22529  
 22530  // VIF  THU 20 NOV 2025 22:19:48  ** CMLRI                        ** CMLRI                                            PAGE 00600
 22531  
 22532  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 22533  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 22534  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 22535  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 22536  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 22537  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 22538  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 22539  
 22540  //                                         CCCCC  M     M L       RRRRRR    III
 22541  //                                        C     C MM   MM L       R     R    I
 22542  //                                        C       M M M M L       R     R    I
 22543  //                                        C       M  M  M L       RRRRRR     I
 22544  //                                        C       M     M L       R   R      I
 22545  //                                        C     C M     M L       R    R     I
 22546  //                                         CCCCC  M     M LLLLLLL R     R   III
 22547  
 22548  
 22549  // VIF  THU 20 NOV 2025 22:19:48  ** CMLRI                        ** DIAGNOSTICS                                      PAGE 00601
 22550  
 22551  
 22552  // VIF  THU 20 NOV 2025 22:19:48  ** CMLRI                        ** GENERATED CODE                                   PAGE 00602
 22553  
 22554  int_4 _cmlri (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 
 22555  _p_ tol_)
 22556  { // ** body not listed **
 22733  }
 22734  
 22735  // VIF  THU 20 NOV 2025 22:19:48  ** COSDG                        ** COSDG                                            PAGE 00606
 22736  
 22737  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 22738  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 22739  //                           F       U     U N N   N C          T       I    O     O N N   N
 22740  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 22741  //                           F       U     U N   N N C          T       I    O     O N   N N
 22742  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 22743  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 22744  
 22745  //                                        CCCCC   OOOOO   SSSSS  DDDDDD   GGGGG
 22746  //                                       C     C O     O S     S D     D G     G
 22747  //                                       C       O     O S       D     D G
 22748  //                                       C       O     O  SSSSS  D     D G  GGGG
 22749  //                                       C       O     O       S D     D G     G
 22750  //                                       C     C O     O S     S D     D G     G
 22751  //                                        CCCCC   OOOOO   SSSSS  DDDDDD   GGGGG
 22752  
 22753  
 22754  // VIF  THU 20 NOV 2025 22:19:48  ** COSDG                        ** DIAGNOSTICS                                      PAGE 00607
 22755  
 22756  
 22757  // VIF  THU 20 NOV 2025 22:19:48  ** COSDG                        ** GENERATED CODE                                   PAGE 00608
 22758  
 22759  real_4 _cosdg (real_4 _p_ x_)
 22760  { // ** body not listed **
 22791  }
 22792  
 22793  
 22794  // VIF  THU 20 NOV 2025 22:19:48  ** COT                          ** COT                                              PAGE 00609
 22795  
 22796  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 22797  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 22798  //                           F       U     U N N   N C          T       I    O     O N N   N
 22799  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 22800  //                           F       U     U N   N N C          T       I    O     O N   N N
 22801  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 22802  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 22803  
 22804  //                                                CCCCC   OOOOO  TTTTTTT
 22805  //                                               C     C O     O    T
 22806  //                                               C       O     O    T
 22807  //                                               C       O     O    T
 22808  //                                               C       O     O    T
 22809  //                                               C     C O     O    T
 22810  //                                                CCCCC   OOOOO     T
 22811  
 22812  
 22813  // VIF  THU 20 NOV 2025 22:19:48  ** COT                          ** DIAGNOSTICS                                      PAGE 00610
 22814  
 22815  
 22816  // VIF  THU 20 NOV 2025 22:19:48  ** COT                          ** GENERATED CODE                                   PAGE 00611
 22817  
 22818  real_4 _cot (real_4 _p_ x_)
 22819  { // ** body not listed **
 23012  }
 23013  
 23014  
 23015  // VIF  THU 20 NOV 2025 22:19:48  ** CPSI                         ** CPSI                                             PAGE 00615
 23016  
 23017  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 23018  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 23019  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 23020  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 23021  //                       C       O     O M     M P       L       E         X X     * *   8     8
 23022  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 23023  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 23024  
 23025  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 23026  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 23027  //                           F       U     U N N   N C          T       I    O     O N N   N
 23028  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 23029  //                           F       U     U N   N N C          T       I    O     O N   N N
 23030  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 23031  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 23032  
 23033  //                                             CCCCC  PPPPPP   SSSSS    III
 23034  //                                            C     C P     P S     S    I
 23035  //                                            C       P     P S          I
 23036  //                                            C       PPPPPP   SSSSS     I
 23037  //                                            C       P             S    I
 23038  //                                            C     C P       S     S    I
 23039  //                                             CCCCC  P        SSSSS    III
 23040  
 23041  
 23042  // VIF  THU 20 NOV 2025 22:19:48  ** CPSI                         ** DIAGNOSTICS                                      PAGE 00616
 23043  
 23044  
 23045  // VIF  THU 20 NOV 2025 22:19:48  ** CPSI                         ** GENERATED CODE                                   PAGE 00617
 23046  
 23047  complex_8 _cpsi (complex_8 _p_ zin_)
 23048  { // ** body not listed **
 23316  }
 23317  
 23318  // VIF  THU 20 NOV 2025 22:19:48  ** CSERI                        ** CSERI                                            PAGE 00623
 23319  
 23320  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23321  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23322  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23323  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23324  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23325  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23326  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23327  
 23328  //                                         CCCCC   SSSSS  EEEEEEE RRRRRR    III
 23329  //                                        C     C S     S E       R     R    I
 23330  //                                        C       S       E       R     R    I
 23331  //                                        C        SSSSS  EEEEE   RRRRRR     I
 23332  //                                        C             S E       R   R      I
 23333  //                                        C     C S     S E       R    R     I
 23334  //                                         CCCCC   SSSSS  EEEEEEE R     R   III
 23335  
 23336  
 23337  // VIF  THU 20 NOV 2025 22:19:48  ** CSERI                        ** DIAGNOSTICS                                      PAGE 00624
 23338  
 23339  
 23340  // VIF  THU 20 NOV 2025 22:19:48  ** CSERI                        ** GENERATED CODE                                   PAGE 00625
 23341  
 23342  int_4 _cseri (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 
 23343  _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 23344  { // ** body not listed **
 23535  }
 23536  
 23537  // VIF  THU 20 NOV 2025 22:19:48  ** CSEVL                        ** CSEVL                                            PAGE 00629
 23538  
 23539  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 23540  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 23541  //                           F       U     U N N   N C          T       I    O     O N N   N
 23542  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 23543  //                           F       U     U N   N N C          T       I    O     O N   N N
 23544  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 23545  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 23546  
 23547  //                                        CCCCC   SSSSS  EEEEEEE V     V L
 23548  //                                       C     C S     S E       V     V L
 23549  //                                       C       S       E       V     V L
 23550  //                                       C        SSSSS  EEEEE   V     V L
 23551  //                                       C             S E        V   V  L
 23552  //                                       C     C S     S E         V V   L
 23553  //                                        CCCCC   SSSSS  EEEEEEE    V    LLLLLLL
 23554  
 23555  
 23556  // VIF  THU 20 NOV 2025 22:19:48  ** CSEVL                        ** DIAGNOSTICS                                      PAGE 00630
 23557  
 23558  
 23559  // VIF  THU 20 NOV 2025 22:19:48  ** CSEVL                        ** GENERATED CODE                                   PAGE 00631
 23560  
 23561  real_4 _csevl (real_4 _p_ x_, real_4 _p_ cs_, int_4 _p_ n_)
 23562  { // ** body not listed **
 23605  }
 23606  
 23607  
 23608  // VIF  THU 20 NOV 2025 22:19:48  ** CSINH                        ** CSINH                                            PAGE 00632
 23609  
 23610  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 23611  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 23612  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 23613  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 23614  //                       C       O     O M     M P       L       E         X X     * *   8     8
 23615  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 23616  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 23617  
 23618  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 23619  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 23620  //                           F       U     U N N   N C          T       I    O     O N N   N
 23621  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 23622  //                           F       U     U N   N N C          T       I    O     O N   N N
 23623  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 23624  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 23625  
 23626  //                                        CCCCC   SSSSS    III   N     N H     H
 23627  //                                       C     C S     S    I    NN    N H     H
 23628  //                                       C       S          I    N N   N H     H
 23629  //                                       C        SSSSS     I    N  N  N HHHHHHH
 23630  //                                       C             S    I    N   N N H     H
 23631  //                                       C     C S     S    I    N    NN H     H
 23632  //                                        CCCCC   SSSSS    III   N     N H     H
 23633  
 23634  
 23635  // VIF  THU 20 NOV 2025 22:19:48  ** CSINH                        ** DIAGNOSTICS                                      PAGE 00633
 23636  
 23637  
 23638  // VIF  THU 20 NOV 2025 22:19:48  ** CSINH                        ** GENERATED CODE                                   PAGE 00634
 23639  
 23640  complex_8 _csinh (complex_8 _p_ z_)
 23641  { // ** body not listed **
 23660  }
 23661  
 23662  // VIF  THU 20 NOV 2025 22:19:48  ** CTAN                         ** CTAN                                             PAGE 00635
 23663  
 23664  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 23665  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 23666  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 23667  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 23668  //                       C       O     O M     M P       L       E         X X     * *   8     8
 23669  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 23670  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 23671  
 23672  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 23673  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 23674  //                           F       U     U N N   N C          T       I    O     O N N   N
 23675  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 23676  //                           F       U     U N   N N C          T       I    O     O N   N N
 23677  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 23678  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 23679  
 23680  //                                            CCCCC  TTTTTTT    A    N     N
 23681  //                                           C     C    T      A A   NN    N
 23682  //                                           C          T     A   A  N N   N
 23683  //                                           C          T    A     A N  N  N
 23684  //                                           C          T    AAAAAAA N   N N
 23685  //                                           C     C    T    A     A N    NN
 23686  //                                            CCCCC     T    A     A N     N
 23687  
 23688  
 23689  // VIF  THU 20 NOV 2025 22:19:48  ** CTAN                         ** DIAGNOSTICS                                      PAGE 00636
 23690  
 23691  
 23692  // VIF  THU 20 NOV 2025 22:19:48  ** CTAN                         ** GENERATED CODE                                   PAGE 00637
 23693  
 23694  complex_8 _ctan (complex_8 _p_ z_)
 23695  { // ** body not listed **
 23733  }
 23734  
 23735  // VIF  THU 20 NOV 2025 22:19:48  ** CTANH                        ** CTANH                                            PAGE 00638
 23736  
 23737  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
 23738  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
 23739  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
 23740  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
 23741  //                       C       O     O M     M P       L       E         X X     * *   8     8
 23742  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
 23743  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
 23744  
 23745  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 23746  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 23747  //                           F       U     U N N   N C          T       I    O     O N N   N
 23748  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 23749  //                           F       U     U N   N N C          T       I    O     O N   N N
 23750  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 23751  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 23752  
 23753  //                                        CCCCC  TTTTTTT    A    N     N H     H
 23754  //                                       C     C    T      A A   NN    N H     H
 23755  //                                       C          T     A   A  N N   N H     H
 23756  //                                       C          T    A     A N  N  N HHHHHHH
 23757  //                                       C          T    AAAAAAA N   N N H     H
 23758  //                                       C     C    T    A     A N    NN H     H
 23759  //                                        CCCCC     T    A     A N     N H     H
 23760  
 23761  
 23762  // VIF  THU 20 NOV 2025 22:19:48  ** CTANH                        ** DIAGNOSTICS                                      PAGE 00639
 23763  
 23764  
 23765  // VIF  THU 20 NOV 2025 22:19:48  ** CTANH                        ** GENERATED CODE                                   PAGE 00640
 23766  
 23767  complex_8 _ctanh (complex_8 _p_ z_)
 23768  { // ** body not listed **
 23787  }
 23788  
 23789  // VIF  THU 20 NOV 2025 22:19:48  ** CUNI1                        ** CUNI1                                            PAGE 00641
 23790  
 23791  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23792  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23793  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23794  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23795  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23796  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23797  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23798  
 23799  //                                         CCCCC  U     U N     N   III      1
 23800  //                                        C     C U     U NN    N    I      11
 23801  //                                        C       U     U N N   N    I     1 1
 23802  //                                        C       U     U N  N  N    I       1
 23803  //                                        C       U     U N   N N    I       1
 23804  //                                        C     C U     U N    NN    I       1
 23805  //                                         CCCCC   UUUUU  N     N   III    11111
 23806  
 23807  
 23808  // VIF  THU 20 NOV 2025 22:19:48  ** CUNI1                        ** DIAGNOSTICS                                      PAGE 00642
 23809  
 23810  
 23811  // VIF  THU 20 NOV 2025 22:19:48  ** CUNI1                        ** GENERATED CODE                                   PAGE 00643
 23812  
 23813  int_4 _cuni1 (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, int_4 
 23814  _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 23815  { // ** body not listed **
 24014  }
 24015  
 24016  // VIF  THU 20 NOV 2025 22:19:48  ** CUNI2                        ** CUNI2                                            PAGE 00647
 24017  
 24018  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 24019  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 24020  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 24021  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 24022  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 24023  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 24024  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 24025  
 24026  //                                        CCCCC  U     U N     N   III    22222
 24027  //                                       C     C U     U NN    N    I    2     2
 24028  //                                       C       U     U N N   N    I          2
 24029  //                                       C       U     U N  N  N    I     22222
 24030  //                                       C       U     U N   N N    I    2
 24031  //                                       C     C U     U N    NN    I    2
 24032  //                                        CCCCC   UUUUU  N     N   III   2222222
 24033  
 24034  
 24035  // VIF  THU 20 NOV 2025 22:19:48  ** CUNI2                        ** DIAGNOSTICS                                      PAGE 00648
 24036  
 24037  
 24038  // VIF  THU 20 NOV 2025 22:19:48  ** CUNI2                        ** GENERATED CODE                                   PAGE 00649
 24039  
 24040  int_4 _cuni2 (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, int_4 
 24041  _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 24042  { // ** body not listed **
 24334  }
 24335  
 24336  // VIF  THU 20 NOV 2025 22:19:48  ** CUNK1                        ** CUNK1                                            PAGE 00655
 24337  
 24338  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 24339  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 24340  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 24341  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 24342  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 24343  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 24344  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 24345  
 24346  //                                         CCCCC  U     U N     N K    K     1
 24347  //                                        C     C U     U NN    N K   K     11
 24348  //                                        C       U     U N N   N K  K     1 1
 24349  //                                        C       U     U N  N  N KKK        1
 24350  //                                        C       U     U N   N N K  K       1
 24351  //                                        C     C U     U N    NN K   K      1
 24352  //                                         CCCCC   UUUUU  N     N K    K   11111
 24353  
 24354  
 24355  // VIF  THU 20 NOV 2025 22:19:48  ** CUNK1                        ** DIAGNOSTICS                                      PAGE 00656
 24356  
 24357  
 24358  // VIF  THU 20 NOV 2025 22:19:48  ** CUNK1                        ** GENERATED CODE                                   PAGE 00657
 24359  
 24360  int_4 _cunk1 (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ y_, int_4 
 24361  _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 24362  { // ** body not listed **
 24780  }
 24781  
 24782  // VIF  THU 20 NOV 2025 22:19:48  ** CUNK2                        ** CUNK2                                            PAGE 00666
 24783  
 24784  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 24785  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 24786  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 24787  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 24788  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 24789  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 24790  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 24791  
 24792  //                                        CCCCC  U     U N     N K    K   22222
 24793  //                                       C     C U     U NN    N K   K   2     2
 24794  //                                       C       U     U N N   N K  K          2
 24795  //                                       C       U     U N  N  N KKK      22222
 24796  //                                       C       U     U N   N N K  K    2
 24797  //                                       C     C U     U N    NN K   K   2
 24798  //                                        CCCCC   UUUUU  N     N K    K  2222222
 24799  
 24800  
 24801  // VIF  THU 20 NOV 2025 22:19:48  ** CUNK2                        ** DIAGNOSTICS                                      PAGE 00667
 24802  
 24803  
 24804  // VIF  THU 20 NOV 2025 22:19:48  ** CUNK2                        ** GENERATED CODE                                   PAGE 00668
 24805  
 24806  int_4 _cunk2 (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ y_, int_4 
 24807  _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 24808  { // ** body not listed **
 25328  }
 25329  
 25330  // VIF  THU 20 NOV 2025 22:19:48  ** CUOIK                        ** CUOIK                                            PAGE 00679
 25331  
 25332  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25333  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25334  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25335  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25336  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25337  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25338  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25339  
 25340  //                                         CCCCC  U     U  OOOOO    III   K    K
 25341  //                                        C     C U     U O     O    I    K   K
 25342  //                                        C       U     U O     O    I    K  K
 25343  //                                        C       U     U O     O    I    KKK
 25344  //                                        C       U     U O     O    I    K  K
 25345  //                                        C     C U     U O     O    I    K   K
 25346  //                                         CCCCC   UUUUU   OOOOO    III   K    K
 25347  
 25348  
 25349  // VIF  THU 20 NOV 2025 22:19:48  ** CUOIK                        ** DIAGNOSTICS                                      PAGE 00680
 25350  
 25351  
 25352  // VIF  THU 20 NOV 2025 22:19:48  ** CUOIK                        ** GENERATED CODE                                   PAGE 00681
 25353  
 25354  int_4 _cuoik (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ ikflg_, int_4 _p_ n_, complex_8 _p_ y_, 
 25355  int_4 _p_ nuf_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 25356  { // ** body not listed **
 25558  }
 25559  
 25560  // VIF  THU 20 NOV 2025 22:19:48  ** CWRSK                        ** CWRSK                                            PAGE 00685
 25561  
 25562  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25563  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25564  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25565  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25566  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25567  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25568  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25569  
 25570  //                                         CCCCC  W     W RRRRRR   SSSSS  K    K
 25571  //                                        C     C W     W R     R S     S K   K
 25572  //                                        C       W     W R     R S       K  K
 25573  //                                        C       W  W  W RRRRRR   SSSSS  KKK
 25574  //                                        C       W  W  W R   R         S K  K
 25575  //                                        C     C W  W  W R    R  S     S K   K
 25576  //                                         CCCCC   WW WW  R     R  SSSSS  K    K
 25577  
 25578  
 25579  // VIF  THU 20 NOV 2025 22:19:48  ** CWRSK                        ** DIAGNOSTICS                                      PAGE 00686
 25580  
 25581  
 25582  // VIF  THU 20 NOV 2025 22:19:48  ** CWRSK                        ** GENERATED CODE                                   PAGE 00687
 25583  
 25584  int_4 _cwrsk (complex_8 _p_ zr_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, 
 25585  complex_8 _p_ cw_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 25586  { // ** body not listed **
 25650  }
 25651  
 25652  // VIF  THU 20 NOV 2025 22:19:48  ** D9AIMP                       ** D9AIMP                                           PAGE 00689
 25653  
 25654  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25655  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25656  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25657  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25658  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25659  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25660  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25661  
 25662  //                                   DDDDDD   99999     A      III   M     M PPPPPP
 25663  //                                   D     D 9     9   A A      I    MM   MM P     P
 25664  //                                   D     D 9     9  A   A     I    M M M M P     P
 25665  //                                   D     D  999999 A     A    I    M  M  M PPPPPP
 25666  //                                   D     D       9 AAAAAAA    I    M     M P
 25667  //                                   D     D 9     9 A     A    I    M     M P
 25668  //                                   DDDDDD   99999  A     A   III   M     M P
 25669  
 25670  
 25671  // VIF  THU 20 NOV 2025 22:19:48  ** D9AIMP                       ** DIAGNOSTICS                                      PAGE 00690
 25672  
 25673  
 25674  // VIF  THU 20 NOV 2025 22:19:48  ** D9AIMP                       ** GENERATED CODE                                   PAGE 00691
 25675  
 25676  int_4 _d9aimp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_)
 25677  { // ** body not listed **
 30467  }
 30468  
 30469  // VIF  THU 20 NOV 2025 22:19:48  ** D9ATN1                       ** D9ATN1                                           PAGE 00784
 30470  
 30471  //                                   RRRRRR  EEEEEEE    A    L                88888
 30472  //                                   R     R E         A A   L        *   *  8     8
 30473  //                                   R     R E        A   A  L         * *   8     8
 30474  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 30475  //                                   R   R   E       AAAAAAA L         * *   8     8
 30476  //                                   R    R  E       A     A L        *   *  8     8
 30477  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 30478  
 30479  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 30480  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 30481  //                           F       U     U N N   N C          T       I    O     O N N   N
 30482  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 30483  //                           F       U     U N   N N C          T       I    O     O N   N N
 30484  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 30485  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 30486  
 30487  //                                    DDDDDD   99999     A    TTTTTTT N     N    1
 30488  //                                    D     D 9     9   A A      T    NN    N   11
 30489  //                                    D     D 9     9  A   A     T    N N   N  1 1
 30490  //                                    D     D  999999 A     A    T    N  N  N    1
 30491  //                                    D     D       9 AAAAAAA    T    N   N N    1
 30492  //                                    D     D 9     9 A     A    T    N    NN    1
 30493  //                                    DDDDDD   99999  A     A    T    N     N  11111
 30494  
 30495  
 30496  // VIF  THU 20 NOV 2025 22:19:48  ** D9ATN1                       ** DIAGNOSTICS                                      PAGE 00785
 30497  
 30498  
 30499  // VIF  THU 20 NOV 2025 22:19:48  ** D9ATN1                       ** GENERATED CODE                                   PAGE 00786
 30500  
 30501  real_8 _d9atn1 (real_8 _p_ x_)
 30502  { // ** body not listed **
 31059  }
 31060  
 31061  // VIF  THU 20 NOV 2025 22:19:48  ** D9B0MP                       ** D9B0MP                                           PAGE 00797
 31062  
 31063  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 31064  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 31065  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 31066  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 31067  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 31068  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 31069  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 31070  
 31071  //                                   DDDDDD   99999  BBBBBB    000   M     M PPPPPP
 31072  //                                   D     D 9     9 B     B  0   0  MM   MM P     P
 31073  //                                   D     D 9     9 B     B 0     0 M M M M P     P
 31074  //                                   D     D  999999 BBBBBB  0     0 M  M  M PPPPPP
 31075  //                                   D     D       9 B     B 0     0 M     M P
 31076  //                                   D     D 9     9 B     B  0   0  M     M P
 31077  //                                   DDDDDD   99999  BBBBBB    000   M     M P
 31078  
 31079  
 31080  // VIF  THU 20 NOV 2025 22:19:48  ** D9B0MP                       ** DIAGNOSTICS                                      PAGE 00798
 31081  
 31082  
 31083  // VIF  THU 20 NOV 2025 22:19:48  ** D9B0MP                       ** GENERATED CODE                                   PAGE 00799
 31084  
 31085  int_4 _d9b0mp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_)
 31086  { // ** body not listed **
 33166  }
 33167  
 33168  // VIF  THU 20 NOV 2025 22:19:48  ** D9B1MP                       ** D9B1MP                                           PAGE 00840
 33169  
 33170  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 33171  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 33172  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 33173  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 33174  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 33175  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 33176  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 33177  
 33178  //                                   DDDDDD   99999  BBBBBB     1    M     M PPPPPP
 33179  //                                   D     D 9     9 B     B   11    MM   MM P     P
 33180  //                                   D     D 9     9 B     B  1 1    M M M M P     P
 33181  //                                   D     D  999999 BBBBBB     1    M  M  M PPPPPP
 33182  //                                   D     D       9 B     B    1    M     M P
 33183  //                                   D     D 9     9 B     B    1    M     M P
 33184  //                                   DDDDDD   99999  BBBBBB   11111  M     M P
 33185  
 33186  
 33187  // VIF  THU 20 NOV 2025 22:19:48  ** D9B1MP                       ** DIAGNOSTICS                                      PAGE 00841
 33188  
 33189  
 33190  // VIF  THU 20 NOV 2025 22:19:48  ** D9B1MP                       ** GENERATED CODE                                   PAGE 00842
 33191  
 33192  int_4 _d9b1mp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_)
 33193  { // ** body not listed **
 35273  }
 35274  
 35275  // VIF  THU 20 NOV 2025 22:19:48  ** D9CHU                        ** D9CHU                                            PAGE 00883
 35276  
 35277  //                                   RRRRRR  EEEEEEE    A    L                88888
 35278  //                                   R     R E         A A   L        *   *  8     8
 35279  //                                   R     R E        A   A  L         * *   8     8
 35280  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 35281  //                                   R   R   E       AAAAAAA L         * *   8     8
 35282  //                                   R    R  E       A     A L        *   *  8     8
 35283  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 35284  
 35285  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 35286  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 35287  //                           F       U     U N N   N C          T       I    O     O N N   N
 35288  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 35289  //                           F       U     U N   N N C          T       I    O     O N   N N
 35290  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 35291  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 35292  
 35293  //                                       DDDDDD   99999   CCCCC  H     H U     U
 35294  //                                       D     D 9     9 C     C H     H U     U
 35295  //                                       D     D 9     9 C       H     H U     U
 35296  //                                       D     D  999999 C       HHHHHHH U     U
 35297  //                                       D     D       9 C       H     H U     U
 35298  //                                       D     D 9     9 C     C H     H U     U
 35299  //                                       DDDDDD   99999   CCCCC  H     H  UUUUU
 35300  
 35301  
 35302  // VIF  THU 20 NOV 2025 22:19:48  ** D9CHU                        ** DIAGNOSTICS                                      PAGE 00884
 35303  
 35304  
 35305  // VIF  THU 20 NOV 2025 22:19:48  ** D9CHU                        ** GENERATED CODE                                   PAGE 00885
 35306  
 35307  real_8 _d9chu (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ z_)
 35308  { // ** body not listed **
 35376  }
 35377  
 35378  // VIF  THU 20 NOV 2025 22:19:48  ** D9GMIC                       ** D9GMIC                                           PAGE 00887
 35379  
 35380  //                                   RRRRRR  EEEEEEE    A    L                88888
 35381  //                                   R     R E         A A   L        *   *  8     8
 35382  //                                   R     R E        A   A  L         * *   8     8
 35383  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 35384  //                                   R   R   E       AAAAAAA L         * *   8     8
 35385  //                                   R    R  E       A     A L        *   *  8     8
 35386  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 35387  
 35388  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 35389  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 35390  //                           F       U     U N N   N C          T       I    O     O N N   N
 35391  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 35392  //                           F       U     U N   N N C          T       I    O     O N   N N
 35393  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 35394  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 35395  
 35396  //                                   DDDDDD   99999   GGGGG  M     M   III    CCCCC
 35397  //                                   D     D 9     9 G     G MM   MM    I    C     C
 35398  //                                   D     D 9     9 G       M M M M    I    C
 35399  //                                   D     D  999999 G  GGGG M  M  M    I    C
 35400  //                                   D     D       9 G     G M     M    I    C
 35401  //                                   D     D 9     9 G     G M     M    I    C     C
 35402  //                                   DDDDDD   99999   GGGGG  M     M   III    CCCCC
 35403  
 35404  
 35405  // VIF  THU 20 NOV 2025 22:19:48  ** D9GMIC                       ** DIAGNOSTICS                                      PAGE 00888
 35406  
 35407  
 35408  // VIF  THU 20 NOV 2025 22:19:48  ** D9GMIC                       ** GENERATED CODE                                   PAGE 00889
 35409  
 35410  real_8 _d9gmic (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ alx_)
 35411  { // ** body not listed **
 35518  }
 35519  
 35520  // VIF  THU 20 NOV 2025 22:19:48  ** D9GMIT                       ** D9GMIT                                           PAGE 00892
 35521  
 35522  //                                   RRRRRR  EEEEEEE    A    L                88888
 35523  //                                   R     R E         A A   L        *   *  8     8
 35524  //                                   R     R E        A   A  L         * *   8     8
 35525  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 35526  //                                   R   R   E       AAAAAAA L         * *   8     8
 35527  //                                   R    R  E       A     A L        *   *  8     8
 35528  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 35529  
 35530  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 35531  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 35532  //                           F       U     U N N   N C          T       I    O     O N N   N
 35533  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 35534  //                           F       U     U N   N N C          T       I    O     O N   N N
 35535  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 35536  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 35537  
 35538  //                                   DDDDDD   99999   GGGGG  M     M   III   TTTTTTT
 35539  //                                   D     D 9     9 G     G MM   MM    I       T
 35540  //                                   D     D 9     9 G       M M M M    I       T
 35541  //                                   D     D  999999 G  GGGG M  M  M    I       T
 35542  //                                   D     D       9 G     G M     M    I       T
 35543  //                                   D     D 9     9 G     G M     M    I       T
 35544  //                                   DDDDDD   99999   GGGGG  M     M   III      T
 35545  
 35546  
 35547  // VIF  THU 20 NOV 2025 22:19:48  ** D9GMIT                       ** DIAGNOSTICS                                      PAGE 00893
 35548  
 35549  
 35550  // VIF  THU 20 NOV 2025 22:19:48  ** D9GMIT                       ** GENERATED CODE                                   PAGE 00894
 35551  
 35552  real_8 _d9gmit (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ algap1_, real_8 _p_ sgngam_, real_8 _p_ alx_)
 35553  { // ** body not listed **
 35645  }
 35646  
 35647  // VIF  THU 20 NOV 2025 22:19:48  ** D9KNUS                       ** D9KNUS                                           PAGE 00896
 35648  
 35649  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 35650  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 35651  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 35652  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 35653  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 35654  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 35655  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 35656  
 35657  //                                   DDDDDD   99999  K    K  N     N U     U  SSSSS
 35658  //                                   D     D 9     9 K   K   NN    N U     U S     S
 35659  //                                   D     D 9     9 K  K    N N   N U     U S
 35660  //                                   D     D  999999 KKK     N  N  N U     U  SSSSS
 35661  //                                   D     D       9 K  K    N   N N U     U       S
 35662  //                                   D     D 9     9 K   K   N    NN U     U S     S
 35663  //                                   DDDDDD   99999  K    K  N     N  UUUUU   SSSSS
 35664  
 35665  
 35666  // VIF  THU 20 NOV 2025 22:19:48  ** D9KNUS                       ** DIAGNOSTICS                                      PAGE 00897
 35667  
 35668  
 35669  // VIF  THU 20 NOV 2025 22:19:48  ** D9KNUS                       ** GENERATED CODE                                   PAGE 00898
 35670  
 35671  int_4 _d9knus (real_8 _p_ xnu_, real_8 _p_ x_, real_8 _p_ bknu_, real_8 _p_ bknu1_, int_4 _p_ iswtch_)
 35672  { // ** body not listed **
 36511  }
 36512  
 36513  // VIF  THU 20 NOV 2025 22:19:48  ** D9LGIC                       ** D9LGIC                                           PAGE 00915
 36514  
 36515  //                                   RRRRRR  EEEEEEE    A    L                88888
 36516  //                                   R     R E         A A   L        *   *  8     8
 36517  //                                   R     R E        A   A  L         * *   8     8
 36518  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 36519  //                                   R   R   E       AAAAAAA L         * *   8     8
 36520  //                                   R    R  E       A     A L        *   *  8     8
 36521  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 36522  
 36523  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 36524  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 36525  //                           F       U     U N N   N C          T       I    O     O N N   N
 36526  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 36527  //                           F       U     U N   N N C          T       I    O     O N   N N
 36528  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 36529  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 36530  
 36531  //                                   DDDDDD   99999  L        GGGGG    III    CCCCC
 36532  //                                   D     D 9     9 L       G     G    I    C     C
 36533  //                                   D     D 9     9 L       G          I    C
 36534  //                                   D     D  999999 L       G  GGGG    I    C
 36535  //                                   D     D       9 L       G     G    I    C
 36536  //                                   D     D 9     9 L       G     G    I    C     C
 36537  //                                   DDDDDD   99999  LLLLLLL  GGGGG    III    CCCCC
 36538  
 36539  
 36540  // VIF  THU 20 NOV 2025 22:19:48  ** D9LGIC                       ** DIAGNOSTICS                                      PAGE 00916
 36541  
 36542  
 36543  // VIF  THU 20 NOV 2025 22:19:48  ** D9LGIC                       ** GENERATED CODE                                   PAGE 00917
 36544  
 36545  real_8 _d9lgic (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ alx_)
 36546  { // ** body not listed **
 36587  }
 36588  
 36589  // VIF  THU 20 NOV 2025 22:19:48  ** D9LGIT                       ** D9LGIT                                           PAGE 00918
 36590  
 36591  //                                   RRRRRR  EEEEEEE    A    L                88888
 36592  //                                   R     R E         A A   L        *   *  8     8
 36593  //                                   R     R E        A   A  L         * *   8     8
 36594  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 36595  //                                   R   R   E       AAAAAAA L         * *   8     8
 36596  //                                   R    R  E       A     A L        *   *  8     8
 36597  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 36598  
 36599  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 36600  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 36601  //                           F       U     U N N   N C          T       I    O     O N N   N
 36602  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 36603  //                           F       U     U N   N N C          T       I    O     O N   N N
 36604  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 36605  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 36606  
 36607  //                                   DDDDDD   99999  L        GGGGG    III   TTTTTTT
 36608  //                                   D     D 9     9 L       G     G    I       T
 36609  //                                   D     D 9     9 L       G          I       T
 36610  //                                   D     D  999999 L       G  GGGG    I       T
 36611  //                                   D     D       9 L       G     G    I       T
 36612  //                                   D     D 9     9 L       G     G    I       T
 36613  //                                   DDDDDD   99999  LLLLLLL  GGGGG    III      T
 36614  
 36615  
 36616  // VIF  THU 20 NOV 2025 22:19:48  ** D9LGIT                       ** DIAGNOSTICS                                      PAGE 00919
 36617  
 36618  
 36619  // VIF  THU 20 NOV 2025 22:19:48  ** D9LGIT                       ** GENERATED CODE                                   PAGE 00920
 36620  
 36621  real_8 _d9lgit (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ algap1_)
 36622  { // ** body not listed **
 36675  }
 36676  
 36677  // VIF  THU 20 NOV 2025 22:19:48  ** D9LGMC                       ** D9LGMC                                           PAGE 00922
 36678  
 36679  //                                   RRRRRR  EEEEEEE    A    L                88888
 36680  //                                   R     R E         A A   L        *   *  8     8
 36681  //                                   R     R E        A   A  L         * *   8     8
 36682  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 36683  //                                   R   R   E       AAAAAAA L         * *   8     8
 36684  //                                   R    R  E       A     A L        *   *  8     8
 36685  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 36686  
 36687  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 36688  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 36689  //                           F       U     U N N   N C          T       I    O     O N N   N
 36690  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 36691  //                           F       U     U N   N N C          T       I    O     O N   N N
 36692  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 36693  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 36694  
 36695  //                                   DDDDDD   99999  L        GGGGG  M     M  CCCCC
 36696  //                                   D     D 9     9 L       G     G MM   MM C     C
 36697  //                                   D     D 9     9 L       G       M M M M C
 36698  //                                   D     D  999999 L       G  GGGG M  M  M C
 36699  //                                   D     D       9 L       G     G M     M C
 36700  //                                   D     D 9     9 L       G     G M     M C     C
 36701  //                                   DDDDDD   99999  LLLLLLL  GGGGG  M     M  CCCCC
 36702  
 36703  
 36704  // VIF  THU 20 NOV 2025 22:19:48  ** D9LGMC                       ** DIAGNOSTICS                                      PAGE 00923
 36705  
 36706  
 36707  // VIF  THU 20 NOV 2025 22:19:48  ** D9LGMC                       ** GENERATED CODE                                   PAGE 00924
 36708  
 36709  real_8 _d9lgmc (real_8 _p_ x_)
 36710  { // ** body not listed **
 36944  }
 36945  
 36946  // VIF  THU 20 NOV 2025 22:19:48  ** D9LN2R                       ** D9LN2R                                           PAGE 00929
 36947  
 36948  //                                   RRRRRR  EEEEEEE    A    L                88888
 36949  //                                   R     R E         A A   L        *   *  8     8
 36950  //                                   R     R E        A   A  L         * *   8     8
 36951  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 36952  //                                   R   R   E       AAAAAAA L         * *   8     8
 36953  //                                   R    R  E       A     A L        *   *  8     8
 36954  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 36955  
 36956  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 36957  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 36958  //                           F       U     U N N   N C          T       I    O     O N N   N
 36959  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 36960  //                           F       U     U N   N N C          T       I    O     O N   N N
 36961  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 36962  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 36963  
 36964  //                                   DDDDDD   99999  L       N     N  22222  RRRRRR
 36965  //                                   D     D 9     9 L       NN    N 2     2 R     R
 36966  //                                   D     D 9     9 L       N N   N       2 R     R
 36967  //                                   D     D  999999 L       N  N  N  22222  RRRRRR
 36968  //                                   D     D       9 L       N   N N 2       R   R
 36969  //                                   D     D 9     9 L       N    NN 2       R    R
 36970  //                                   DDDDDD   99999  LLLLLLL N     N 2222222 R     R
 36971  
 36972  
 36973  // VIF  THU 20 NOV 2025 22:19:48  ** D9LN2R                       ** DIAGNOSTICS                                      PAGE 00930
 36974  
 36975  
 36976  // VIF  THU 20 NOV 2025 22:19:48  ** D9LN2R                       ** GENERATED CODE                                   PAGE 00931
 36977  
 36978  real_8 _d9ln2r (real_8 _p_ x_)
 36979  { // ** body not listed **
 38136  }
 38137  
 38138  // VIF  THU 20 NOV 2025 22:19:48  ** D9PAK                        ** D9PAK                                            PAGE 00954
 38139  
 38140  //                                   RRRRRR  EEEEEEE    A    L                88888
 38141  //                                   R     R E         A A   L        *   *  8     8
 38142  //                                   R     R E        A   A  L         * *   8     8
 38143  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 38144  //                                   R   R   E       AAAAAAA L         * *   8     8
 38145  //                                   R    R  E       A     A L        *   *  8     8
 38146  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 38147  
 38148  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 38149  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 38150  //                           F       U     U N N   N C          T       I    O     O N N   N
 38151  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 38152  //                           F       U     U N   N N C          T       I    O     O N   N N
 38153  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 38154  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 38155  
 38156  //                                        DDDDDD   99999  PPPPPP     A    K    K
 38157  //                                        D     D 9     9 P     P   A A   K   K
 38158  //                                        D     D 9     9 P     P  A   A  K  K
 38159  //                                        D     D  999999 PPPPPP  A     A KKK
 38160  //                                        D     D       9 P       AAAAAAA K  K
 38161  //                                        D     D 9     9 P       A     A K   K
 38162  //                                        DDDDDD   99999  P       A     A K    K
 38163  
 38164  
 38165  // VIF  THU 20 NOV 2025 22:19:48  ** D9PAK                        ** DIAGNOSTICS                                      PAGE 00955
 38166  
 38167  
 38168  // VIF  THU 20 NOV 2025 22:19:48  ** D9PAK                        ** GENERATED CODE                                   PAGE 00956
 38169  
 38170  real_8 _d9pak (real_8 _p_ y_, int_4 _p_ n_)
 38171  { // ** body not listed **
 38248  }
 38249  
 38250  // VIF  THU 20 NOV 2025 22:19:48  ** D9UPAK                       ** D9UPAK                                           PAGE 00958
 38251  
 38252  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 38253  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 38254  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 38255  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 38256  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 38257  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 38258  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 38259  
 38260  //                                    DDDDDD   99999  U     U PPPPPP     A    K    K
 38261  //                                    D     D 9     9 U     U P     P   A A   K   K
 38262  //                                    D     D 9     9 U     U P     P  A   A  K  K
 38263  //                                    D     D  999999 U     U PPPPPP  A     A KKK
 38264  //                                    D     D       9 U     U P       AAAAAAA K  K
 38265  //                                    D     D 9     9 U     U P       A     A K   K
 38266  //                                    DDDDDD   99999   UUUUU  P       A     A K    K
 38267  
 38268  
 38269  // VIF  THU 20 NOV 2025 22:19:48  ** D9UPAK                       ** DIAGNOSTICS                                      PAGE 00959
 38270  
 38271  
 38272  // VIF  THU 20 NOV 2025 22:19:48  ** D9UPAK                       ** GENERATED CODE                                   PAGE 00960
 38273  
 38274  int_4 _d9upak (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ n_)
 38275  { // ** body not listed **
 38300  }
 38301  
 38302  // VIF  THU 20 NOV 2025 22:19:48  ** DAIE                         ** DAIE                                             PAGE 00961
 38303  
 38304  //                                   RRRRRR  EEEEEEE    A    L                88888
 38305  //                                   R     R E         A A   L        *   *  8     8
 38306  //                                   R     R E        A   A  L         * *   8     8
 38307  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 38308  //                                   R   R   E       AAAAAAA L         * *   8     8
 38309  //                                   R    R  E       A     A L        *   *  8     8
 38310  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 38311  
 38312  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 38313  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 38314  //                           F       U     U N N   N C          T       I    O     O N N   N
 38315  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 38316  //                           F       U     U N   N N C          T       I    O     O N   N N
 38317  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 38318  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 38319  
 38320  //                                           DDDDDD     A      III   EEEEEEE
 38321  //                                           D     D   A A      I    E
 38322  //                                           D     D  A   A     I    E
 38323  //                                           D     D A     A    I    EEEEE
 38324  //                                           D     D AAAAAAA    I    E
 38325  //                                           D     D A     A    I    E
 38326  //                                           DDDDDD  A     A   III   EEEEEEE
 38327  
 38328  
 38329  // VIF  THU 20 NOV 2025 22:19:48  ** DAIE                         ** DIAGNOSTICS                                      PAGE 00962
 38330  
 38331  
 38332  // VIF  THU 20 NOV 2025 22:19:48  ** DAIE                         ** GENERATED CODE                                   PAGE 00963
 38333  
 38334  real_8 _daie (real_8 _p_ x_)
 38335  { // ** body not listed **
 39918  }
 39919  
 39920  // VIF  THU 20 NOV 2025 22:19:48  ** DAI                          ** DAI                                              PAGE 00994
 39921  
 39922  //                                   RRRRRR  EEEEEEE    A    L                88888
 39923  //                                   R     R E         A A   L        *   *  8     8
 39924  //                                   R     R E        A   A  L         * *   8     8
 39925  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 39926  //                                   R   R   E       AAAAAAA L         * *   8     8
 39927  //                                   R    R  E       A     A L        *   *  8     8
 39928  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 39929  
 39930  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 39931  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 39932  //                           F       U     U N N   N C          T       I    O     O N N   N
 39933  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 39934  //                           F       U     U N   N N C          T       I    O     O N   N N
 39935  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 39936  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 39937  
 39938  //                                                DDDDDD     A      III
 39939  //                                                D     D   A A      I
 39940  //                                                D     D  A   A     I
 39941  //                                                D     D A     A    I
 39942  //                                                D     D AAAAAAA    I
 39943  //                                                D     D A     A    I
 39944  //                                                DDDDDD  A     A   III
 39945  
 39946  
 39947  // VIF  THU 20 NOV 2025 22:19:48  ** DAI                          ** DIAGNOSTICS                                      PAGE 00995
 39948  
 39949  
 39950  // VIF  THU 20 NOV 2025 22:19:48  ** DAI                          ** GENERATED CODE                                   PAGE 00996
 39951  
 39952  real_8 _dai (real_8 _p_ x_)
 39953  { // ** body not listed **
 40338  }
 40339  
 40340  // VIF  THU 20 NOV 2025 22:19:48  ** DASYJY                       ** DASYJY                                           PAGE 01004
 40341  
 40342  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 40343  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 40344  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 40345  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 40346  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 40347  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 40348  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 40349  
 40350  //                                   DDDDDD     A     SSSSS  Y     Y       J Y     Y
 40351  //                                   D     D   A A   S     S  Y   Y        J  Y   Y
 40352  //                                   D     D  A   A  S         Y Y         J   Y Y
 40353  //                                   D     D A     A  SSSSS     Y          J    Y
 40354  //                                   D     D AAAAAAA       S    Y    J     J    Y
 40355  //                                   D     D A     A S     S    Y    J     J    Y
 40356  //                                   DDDDDD  A     A  SSSSS     Y     JJJJJ     Y
 40357  
 40358  
 40359  // VIF  THU 20 NOV 2025 22:19:48  ** DASYJY                       ** DIAGNOSTICS                                      PAGE 01005
 40360  
 40361  
 40362  // VIF  THU 20 NOV 2025 22:19:48  ** DASYJY                       ** GENERATED CODE                                   PAGE 01006
 40363  
 40364  int_4 _dasyjy (int_4 (*_funjy)(), real_8 _p_ x_, real_8 _p_ fnu_, real_8 _p_ flgjy_, int_4 _p_ in_, real_8 _p_ y_, 
 40365  real_8 _p_ wk_, int_4 _p_ iflw_)
 40366  { // ** body not listed **
 42890  }
 42891  
 42892  // VIF  THU 20 NOV 2025 22:19:48  ** DAWS                         ** DAWS                                             PAGE 01055
 42893  
 42894  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 42895  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 42896  //                           F       U     U N N   N C          T       I    O     O N N   N
 42897  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 42898  //                           F       U     U N   N N C          T       I    O     O N   N N
 42899  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 42900  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 42901  
 42902  //                                           DDDDDD     A    W     W  SSSSS
 42903  //                                           D     D   A A   W     W S     S
 42904  //                                           D     D  A   A  W     W S
 42905  //                                           D     D A     A W  W  W  SSSSS
 42906  //                                           D     D AAAAAAA W  W  W       S
 42907  //                                           D     D A     A W  W  W S     S
 42908  //                                           DDDDDD  A     A  WW WW   SSSSS
 42909  
 42910  
 42911  // VIF  THU 20 NOV 2025 22:19:48  ** DAWS                         ** DIAGNOSTICS                                      PAGE 01056
 42912  
 42913  
 42914  // VIF  THU 20 NOV 2025 22:19:48  ** DAWS                         ** GENERATED CODE                                   PAGE 01057
 42915  
 42916  real_4 _daws (real_4 _p_ x_)
 42917  { // ** body not listed **
 43836  }
 43837  
 43838  
 43839  // VIF  THU 20 NOV 2025 22:19:48  ** DBESI0                       ** DBESI0                                           PAGE 01075
 43840  
 43841  //                                   RRRRRR  EEEEEEE    A    L                88888
 43842  //                                   R     R E         A A   L        *   *  8     8
 43843  //                                   R     R E        A   A  L         * *   8     8
 43844  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 43845  //                                   R   R   E       AAAAAAA L         * *   8     8
 43846  //                                   R    R  E       A     A L        *   *  8     8
 43847  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 43848  
 43849  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 43850  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 43851  //                           F       U     U N N   N C          T       I    O     O N N   N
 43852  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 43853  //                           F       U     U N   N N C          T       I    O     O N   N N
 43854  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 43855  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 43856  
 43857  //                                   DDDDDD  BBBBBB  EEEEEEE  SSSSS    III     000
 43858  //                                   D     D B     B E       S     S    I     0   0
 43859  //                                   D     D B     B E       S          I    0     0
 43860  //                                   D     D BBBBBB  EEEEE    SSSSS     I    0     0
 43861  //                                   D     D B     B E             S    I    0     0
 43862  //                                   D     D B     B E       S     S    I     0   0
 43863  //                                   DDDDDD  BBBBBB  EEEEEEE  SSSSS    III     000
 43864  
 43865  
 43866  // VIF  THU 20 NOV 2025 22:19:48  ** DBESI0                       ** DIAGNOSTICS                                      PAGE 01076
 43867  
 43868  
 43869  // VIF  THU 20 NOV 2025 22:19:48  ** DBESI0                       ** GENERATED CODE                                   PAGE 01077
 43870  
 43871  real_8 _dbesi0 (real_8 _p_ x_)
 43872  { // ** body not listed **
 44144  }
 44145  
 44146  // VIF  THU 20 NOV 2025 22:19:48  ** DBESI1                       ** DBESI1                                           PAGE 01083
 44147  
 44148  //                                   RRRRRR  EEEEEEE    A    L                88888
 44149  //                                   R     R E         A A   L        *   *  8     8
 44150  //                                   R     R E        A   A  L         * *   8     8
 44151  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 44152  //                                   R   R   E       AAAAAAA L         * *   8     8
 44153  //                                   R    R  E       A     A L        *   *  8     8
 44154  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 44155  
 44156  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 44157  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 44158  //                           F       U     U N N   N C          T       I    O     O N N   N
 44159  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 44160  //                           F       U     U N   N N C          T       I    O     O N   N N
 44161  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 44162  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 44163  
 44164  //                                    DDDDDD  BBBBBB  EEEEEEE  SSSSS    III      1
 44165  //                                    D     D B     B E       S     S    I      11
 44166  //                                    D     D B     B E       S          I     1 1
 44167  //                                    D     D BBBBBB  EEEEE    SSSSS     I       1
 44168  //                                    D     D B     B E             S    I       1
 44169  //                                    D     D B     B E       S     S    I       1
 44170  //                                    DDDDDD  BBBBBB  EEEEEEE  SSSSS    III    11111
 44171  
 44172  
 44173  // VIF  THU 20 NOV 2025 22:19:48  ** DBESI1                       ** DIAGNOSTICS                                      PAGE 01084
 44174  
 44175  
 44176  // VIF  THU 20 NOV 2025 22:19:48  ** DBESI1                       ** GENERATED CODE                                   PAGE 01085
 44177  
 44178  real_8 _dbesi1 (real_8 _p_ x_)
 44179  { // ** body not listed **
 44449  }
 44450  
 44451  // VIF  THU 20 NOV 2025 22:19:48  ** DBESI                        ** DBESI                                            PAGE 01091
 44452  
 44453  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 44454  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 44455  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 44456  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 44457  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 44458  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 44459  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 44460  
 44461  //                                        DDDDDD  BBBBBB  EEEEEEE  SSSSS    III
 44462  //                                        D     D B     B E       S     S    I
 44463  //                                        D     D B     B E       S          I
 44464  //                                        D     D BBBBBB  EEEEE    SSSSS     I
 44465  //                                        D     D B     B E             S    I
 44466  //                                        D     D B     B E       S     S    I
 44467  //                                        DDDDDD  BBBBBB  EEEEEEE  SSSSS    III
 44468  
 44469  
 44470  // VIF  THU 20 NOV 2025 22:19:48  ** DBESI                        ** DIAGNOSTICS                                      PAGE 01092
 44471  
 44472  
 44473  // VIF  THU 20 NOV 2025 22:19:48  ** DBESI                        ** GENERATED CODE                                   PAGE 01093
 44474  
 44475  int_4 _dbesi (real_8 _p_ x_, real_8 _p_ alpha_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_)
 44476  { // ** body not listed **
 44986  }
 44987  
 44988  // VIF  THU 20 NOV 2025 22:19:48  ** DBESJ0                       ** DBESJ0                                           PAGE 01103
 44989  
 44990  //                                   RRRRRR  EEEEEEE    A    L                88888
 44991  //                                   R     R E         A A   L        *   *  8     8
 44992  //                                   R     R E        A   A  L         * *   8     8
 44993  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 44994  //                                   R   R   E       AAAAAAA L         * *   8     8
 44995  //                                   R    R  E       A     A L        *   *  8     8
 44996  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 44997  
 44998  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 44999  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 45000  //                           F       U     U N N   N C          T       I    O     O N N   N
 45001  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 45002  //                           F       U     U N   N N C          T       I    O     O N   N N
 45003  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 45004  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 45005  
 45006  //                                   DDDDDD  BBBBBB  EEEEEEE  SSSSS        J   000
 45007  //                                   D     D B     B E       S     S       J  0   0
 45008  //                                   D     D B     B E       S             J 0     0
 45009  //                                   D     D BBBBBB  EEEEE    SSSSS        J 0     0
 45010  //                                   D     D B     B E             S J     J 0     0
 45011  //                                   D     D B     B E       S     S J     J  0   0
 45012  //                                   DDDDDD  BBBBBB  EEEEEEE  SSSSS   JJJJJ    000
 45013  
 45014  
 45015  // VIF  THU 20 NOV 2025 22:19:48  ** DBESJ0                       ** DIAGNOSTICS                                      PAGE 01104
 45016  
 45017  
 45018  // VIF  THU 20 NOV 2025 22:19:48  ** DBESJ0                       ** GENERATED CODE                                   PAGE 01105
 45019  
 45020  real_8 _dbesj0 (real_8 _p_ x_)
 45021  { // ** body not listed **
 45302  }
 45303  
 45304  // VIF  THU 20 NOV 2025 22:19:48  ** DBESJ1                       ** DBESJ1                                           PAGE 01111
 45305  
 45306  //                                   RRRRRR  EEEEEEE    A    L                88888
 45307  //                                   R     R E         A A   L        *   *  8     8
 45308  //                                   R     R E        A   A  L         * *   8     8
 45309  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 45310  //                                   R   R   E       AAAAAAA L         * *   8     8
 45311  //                                   R    R  E       A     A L        *   *  8     8
 45312  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 45313  
 45314  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 45315  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 45316  //                           F       U     U N N   N C          T       I    O     O N N   N
 45317  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 45318  //                           F       U     U N   N N C          T       I    O     O N   N N
 45319  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 45320  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 45321  
 45322  //                                    DDDDDD  BBBBBB  EEEEEEE  SSSSS        J    1
 45323  //                                    D     D B     B E       S     S       J   11
 45324  //                                    D     D B     B E       S             J  1 1
 45325  //                                    D     D BBBBBB  EEEEE    SSSSS        J    1
 45326  //                                    D     D B     B E             S J     J    1
 45327  //                                    D     D B     B E       S     S J     J    1
 45328  //                                    DDDDDD  BBBBBB  EEEEEEE  SSSSS   JJJJJ   11111
 45329  
 45330  
 45331  // VIF  THU 20 NOV 2025 22:19:48  ** DBESJ1                       ** DIAGNOSTICS                                      PAGE 01112
 45332  
 45333  
 45334  // VIF  THU 20 NOV 2025 22:19:48  ** DBESJ1                       ** GENERATED CODE                                   PAGE 01113
 45335  
 45336  real_8 _dbesj1 (real_8 _p_ x_)
 45337  { // ** body not listed **
 45628  }
 45629  
 45630  // VIF  THU 20 NOV 2025 22:19:48  ** DBESJ                        ** DBESJ                                            PAGE 01119
 45631  
 45632  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 45633  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 45634  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 45635  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 45636  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 45637  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 45638  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 45639  
 45640  //                                       DDDDDD  BBBBBB  EEEEEEE  SSSSS        J
 45641  //                                       D     D B     B E       S     S       J
 45642  //                                       D     D B     B E       S             J
 45643  //                                       D     D BBBBBB  EEEEE    SSSSS        J
 45644  //                                       D     D B     B E             S J     J
 45645  //                                       D     D B     B E       S     S J     J
 45646  //                                       DDDDDD  BBBBBB  EEEEEEE  SSSSS   JJJJJ
 45647  
 45648  
 45649  // VIF  THU 20 NOV 2025 22:19:48  ** DBESJ                        ** DIAGNOSTICS                                      PAGE 01120
 45650  
 45651  
 45652  // VIF  THU 20 NOV 2025 22:19:48  ** DBESJ                        ** GENERATED CODE                                   PAGE 01121
 45653  
 45654  int_4 _dbesj (real_8 _p_ x_, real_8 _p_ alpha_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_)
 45655  { // ** body not listed **
 46284  }
 46285  
 46286  // VIF  THU 20 NOV 2025 22:19:48  ** DBESK0                       ** DBESK0                                           PAGE 01134
 46287  
 46288  //                                   RRRRRR  EEEEEEE    A    L                88888
 46289  //                                   R     R E         A A   L        *   *  8     8
 46290  //                                   R     R E        A   A  L         * *   8     8
 46291  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 46292  //                                   R   R   E       AAAAAAA L         * *   8     8
 46293  //                                   R    R  E       A     A L        *   *  8     8
 46294  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 46295  
 46296  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 46297  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 46298  //                           F       U     U N N   N C          T       I    O     O N N   N
 46299  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 46300  //                           F       U     U N   N N C          T       I    O     O N   N N
 46301  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 46302  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 46303  
 46304  //                                   DDDDDD  BBBBBB  EEEEEEE  SSSSS  K    K    000
 46305  //                                   D     D B     B E       S     S K   K    0   0
 46306  //                                   D     D B     B E       S       K  K    0     0
 46307  //                                   D     D BBBBBB  EEEEE    SSSSS  KKK     0     0
 46308  //                                   D     D B     B E             S K  K    0     0
 46309  //                                   D     D B     B E       S     S K   K    0   0
 46310  //                                   DDDDDD  BBBBBB  EEEEEEE  SSSSS  K    K    000
 46311  
 46312  
 46313  // VIF  THU 20 NOV 2025 22:19:48  ** DBESK0                       ** DIAGNOSTICS                                      PAGE 01135
 46314  
 46315  
 46316  // VIF  THU 20 NOV 2025 22:19:48  ** DBESK0                       ** GENERATED CODE                                   PAGE 01136
 46317  
 46318  real_8 _dbesk0 (real_8 _p_ x_)
 46319  { // ** body not listed **
 46573  }
 46574  
 46575  // VIF  THU 20 NOV 2025 22:19:48  ** DBESK1                       ** DBESK1                                           PAGE 01141
 46576  
 46577  //                                   RRRRRR  EEEEEEE    A    L                88888
 46578  //                                   R     R E         A A   L        *   *  8     8
 46579  //                                   R     R E        A   A  L         * *   8     8
 46580  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 46581  //                                   R   R   E       AAAAAAA L         * *   8     8
 46582  //                                   R    R  E       A     A L        *   *  8     8
 46583  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 46584  
 46585  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 46586  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 46587  //                           F       U     U N N   N C          T       I    O     O N N   N
 46588  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 46589  //                           F       U     U N   N N C          T       I    O     O N   N N
 46590  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 46591  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 46592  
 46593  //                                    DDDDDD  BBBBBB  EEEEEEE  SSSSS  K    K     1
 46594  //                                    D     D B     B E       S     S K   K     11
 46595  //                                    D     D B     B E       S       K  K     1 1
 46596  //                                    D     D BBBBBB  EEEEE    SSSSS  KKK        1
 46597  //                                    D     D B     B E             S K  K       1
 46598  //                                    D     D B     B E       S     S K   K      1
 46599  //                                    DDDDDD  BBBBBB  EEEEEEE  SSSSS  K    K   11111
 46600  
 46601  
 46602  // VIF  THU 20 NOV 2025 22:19:48  ** DBESK1                       ** DIAGNOSTICS                                      PAGE 01142
 46603  
 46604  
 46605  // VIF  THU 20 NOV 2025 22:19:48  ** DBESK1                       ** GENERATED CODE                                   PAGE 01143
 46606  
 46607  real_8 _dbesk1 (real_8 _p_ x_)
 46608  { // ** body not listed **
 46869  }
 46870  
 46871  // VIF  THU 20 NOV 2025 22:19:48  ** DBESK                        ** DBESK                                            PAGE 01149
 46872  
 46873  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 46874  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 46875  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 46876  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 46877  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 46878  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 46879  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 46880  
 46881  //                                        DDDDDD  BBBBBB  EEEEEEE  SSSSS  K    K
 46882  //                                        D     D B     B E       S     S K   K
 46883  //                                        D     D B     B E       S       K  K
 46884  //                                        D     D BBBBBB  EEEEE    SSSSS  KKK
 46885  //                                        D     D B     B E             S K  K
 46886  //                                        D     D B     B E       S     S K   K
 46887  //                                        DDDDDD  BBBBBB  EEEEEEE  SSSSS  K    K
 46888  
 46889  
 46890  // VIF  THU 20 NOV 2025 22:19:48  ** DBESK                        ** DIAGNOSTICS                                      PAGE 01150
 46891  
 46892  
 46893  // VIF  THU 20 NOV 2025 22:19:48  ** DBESK                        ** GENERATED CODE                                   PAGE 01151
 46894  
 46895  int_4 _dbesk (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_)
 46896  { // ** body not listed **
 47174  }
 47175  
 47176  // VIF  THU 20 NOV 2025 22:19:48  ** DBESKS                       ** DBESKS                                           PAGE 01157
 47177  
 47178  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 47179  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 47180  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 47181  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 47182  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 47183  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 47184  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 47185  
 47186  //                                   DDDDDD  BBBBBB  EEEEEEE  SSSSS  K    K   SSSSS
 47187  //                                   D     D B     B E       S     S K   K   S     S
 47188  //                                   D     D B     B E       S       K  K    S
 47189  //                                   D     D BBBBBB  EEEEE    SSSSS  KKK      SSSSS
 47190  //                                   D     D B     B E             S K  K          S
 47191  //                                   D     D B     B E       S     S K   K   S     S
 47192  //                                   DDDDDD  BBBBBB  EEEEEEE  SSSSS  K    K   SSSSS
 47193  
 47194  
 47195  // VIF  THU 20 NOV 2025 22:19:48  ** DBESKS                       ** DIAGNOSTICS                                      PAGE 01158
 47196  
 47197  
 47198  // VIF  THU 20 NOV 2025 22:19:48  ** DBESKS                       ** GENERATED CODE                                   PAGE 01159
 47199  
 47200  int_4 _dbesks (real_8 _p_ xnu_, real_8 _p_ x_, int_4 _p_ nin_, real_8 _p_ bk_)
 47201  { // ** body not listed **
 47232  }
 47233  
 47234  // VIF  THU 20 NOV 2025 22:19:48  ** DBESY0                       ** DBESY0                                           PAGE 01160
 47235  
 47236  //                                   RRRRRR  EEEEEEE    A    L                88888
 47237  //                                   R     R E         A A   L        *   *  8     8
 47238  //                                   R     R E        A   A  L         * *   8     8
 47239  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 47240  //                                   R   R   E       AAAAAAA L         * *   8     8
 47241  //                                   R    R  E       A     A L        *   *  8     8
 47242  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 47243  
 47244  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 47245  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 47246  //                           F       U     U N N   N C          T       I    O     O N N   N
 47247  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 47248  //                           F       U     U N   N N C          T       I    O     O N   N N
 47249  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 47250  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 47251  
 47252  //                                   DDDDDD  BBBBBB  EEEEEEE  SSSSS  Y     Y   000
 47253  //                                   D     D B     B E       S     S  Y   Y   0   0
 47254  //                                   D     D B     B E       S         Y Y   0     0
 47255  //                                   D     D BBBBBB  EEEEE    SSSSS     Y    0     0
 47256  //                                   D     D B     B E             S    Y    0     0
 47257  //                                   D     D B     B E       S     S    Y     0   0
 47258  //                                   DDDDDD  BBBBBB  EEEEEEE  SSSSS     Y      000
 47259  
 47260  
 47261  // VIF  THU 20 NOV 2025 22:19:48  ** DBESY0                       ** DIAGNOSTICS                                      PAGE 01161
 47262  
 47263  
 47264  // VIF  THU 20 NOV 2025 22:19:48  ** DBESY0                       ** GENERATED CODE                                   PAGE 01162
 47265  
 47266  real_8 _dbesy0 (real_8 _p_ x_)
 47267  { // ** body not listed **
 47564  }
 47565  
 47566  // VIF  THU 20 NOV 2025 22:19:48  ** DBESY1                       ** DBESY1                                           PAGE 01168
 47567  
 47568  //                                   RRRRRR  EEEEEEE    A    L                88888
 47569  //                                   R     R E         A A   L        *   *  8     8
 47570  //                                   R     R E        A   A  L         * *   8     8
 47571  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 47572  //                                   R   R   E       AAAAAAA L         * *   8     8
 47573  //                                   R    R  E       A     A L        *   *  8     8
 47574  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 47575  
 47576  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 47577  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 47578  //                           F       U     U N N   N C          T       I    O     O N N   N
 47579  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 47580  //                           F       U     U N   N N C          T       I    O     O N   N N
 47581  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 47582  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 47583  
 47584  //                                    DDDDDD  BBBBBB  EEEEEEE  SSSSS  Y     Y    1
 47585  //                                    D     D B     B E       S     S  Y   Y    11
 47586  //                                    D     D B     B E       S         Y Y    1 1
 47587  //                                    D     D BBBBBB  EEEEE    SSSSS     Y       1
 47588  //                                    D     D B     B E             S    Y       1
 47589  //                                    D     D B     B E       S     S    Y       1
 47590  //                                    DDDDDD  BBBBBB  EEEEEEE  SSSSS     Y     11111
 47591  
 47592  
 47593  // VIF  THU 20 NOV 2025 22:19:48  ** DBESY1                       ** DIAGNOSTICS                                      PAGE 01169
 47594  
 47595  
 47596  // VIF  THU 20 NOV 2025 22:19:48  ** DBESY1                       ** GENERATED CODE                                   PAGE 01170
 47597  
 47598  real_8 _dbesy1 (real_8 _p_ x_)
 47599  { // ** body not listed **
 47914  }
 47915  
 47916  // VIF  THU 20 NOV 2025 22:19:48  ** DBESY                        ** DBESY                                            PAGE 01177
 47917  
 47918  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 47919  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 47920  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 47921  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 47922  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 47923  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 47924  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 47925  
 47926  //                                       DDDDDD  BBBBBB  EEEEEEE  SSSSS  Y     Y
 47927  //                                       D     D B     B E       S     S  Y   Y
 47928  //                                       D     D B     B E       S         Y Y
 47929  //                                       D     D BBBBBB  EEEEE    SSSSS     Y
 47930  //                                       D     D B     B E             S    Y
 47931  //                                       D     D B     B E       S     S    Y
 47932  //                                       DDDDDD  BBBBBB  EEEEEEE  SSSSS     Y
 47933  
 47934  
 47935  // VIF  THU 20 NOV 2025 22:19:48  ** DBESY                        ** DIAGNOSTICS                                      PAGE 01178
 47936  
 47937  
 47938  // VIF  THU 20 NOV 2025 22:19:48  ** DBESY                        ** GENERATED CODE                                   PAGE 01179
 47939  
 47940  int_4 _dbesy (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ y_)
 47941  { // ** body not listed **
 48127  }
 48128  
 48129  // VIF  THU 20 NOV 2025 22:19:48  ** DBETA                        ** DBETA                                            PAGE 01183
 48130  
 48131  //                                   RRRRRR  EEEEEEE    A    L                88888
 48132  //                                   R     R E         A A   L        *   *  8     8
 48133  //                                   R     R E        A   A  L         * *   8     8
 48134  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 48135  //                                   R   R   E       AAAAAAA L         * *   8     8
 48136  //                                   R    R  E       A     A L        *   *  8     8
 48137  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 48138  
 48139  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 48140  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 48141  //                           F       U     U N N   N C          T       I    O     O N N   N
 48142  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 48143  //                           F       U     U N   N N C          T       I    O     O N   N N
 48144  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 48145  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 48146  
 48147  //                                       DDDDDD  BBBBBB  EEEEEEE TTTTTTT    A
 48148  //                                       D     D B     B E          T      A A
 48149  //                                       D     D B     B E          T     A   A
 48150  //                                       D     D BBBBBB  EEEEE      T    A     A
 48151  //                                       D     D B     B E          T    AAAAAAA
 48152  //                                       D     D B     B E          T    A     A
 48153  //                                       DDDDDD  BBBBBB  EEEEEEE    T    A     A
 48154  
 48155  
 48156  // VIF  THU 20 NOV 2025 22:19:48  ** DBETA                        ** DIAGNOSTICS                                      PAGE 01184
 48157  
 48158  
 48159  // VIF  THU 20 NOV 2025 22:19:48  ** DBETA                        ** GENERATED CODE                                   PAGE 01185
 48160  
 48161  real_8 _dbeta (real_8 _p_ a_, real_8 _p_ b_)
 48162  { // ** body not listed **
 48208  }
 48209  
 48210  // VIF  THU 20 NOV 2025 22:19:48  ** DBETAI                       ** DBETAI                                           PAGE 01186
 48211  
 48212  //                                   RRRRRR  EEEEEEE    A    L                88888
 48213  //                                   R     R E         A A   L        *   *  8     8
 48214  //                                   R     R E        A   A  L         * *   8     8
 48215  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 48216  //                                   R   R   E       AAAAAAA L         * *   8     8
 48217  //                                   R    R  E       A     A L        *   *  8     8
 48218  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 48219  
 48220  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 48221  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 48222  //                           F       U     U N N   N C          T       I    O     O N N   N
 48223  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 48224  //                           F       U     U N   N N C          T       I    O     O N   N N
 48225  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 48226  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 48227  
 48228  //                                    DDDDDD  BBBBBB  EEEEEEE TTTTTTT    A      III
 48229  //                                    D     D B     B E          T      A A      I
 48230  //                                    D     D B     B E          T     A   A     I
 48231  //                                    D     D BBBBBB  EEEEE      T    A     A    I
 48232  //                                    D     D B     B E          T    AAAAAAA    I
 48233  //                                    D     D B     B E          T    A     A    I
 48234  //                                    DDDDDD  BBBBBB  EEEEEEE    T    A     A   III
 48235  
 48236  
 48237  // VIF  THU 20 NOV 2025 22:19:48  ** DBETAI                       ** DIAGNOSTICS                                      PAGE 01187
 48238  
 48239  
 48240  // VIF  THU 20 NOV 2025 22:19:48  ** DBETAI                       ** GENERATED CODE                                   PAGE 01188
 48241  
 48242  real_8 _dbetai (real_8 _p_ x_, real_8 _p_ pin_, real_8 _p_ qin_)
 48243  { // ** body not listed **
 48365  }
 48366  
 48367  // VIF  THU 20 NOV 2025 22:19:48  ** DBFQAD                       ** DBFQAD                                           PAGE 01191
 48368  
 48369  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 48370  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 48371  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 48372  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 48373  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 48374  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 48375  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 48376  
 48377  //                                   DDDDDD  BBBBBB  FFFFFFF  QQQQQ     A    DDDDDD
 48378  //                                   D     D B     B F       Q     Q   A A   D     D
 48379  //                                   D     D B     B F       Q     Q  A   A  D     D
 48380  //                                   D     D BBBBBB  FFFFF   Q     Q A     A D     D
 48381  //                                   D     D B     B F       Q   Q Q AAAAAAA D     D
 48382  //                                   D     D B     B F       Q    Q  A     A D     D
 48383  //                                   DDDDDD  BBBBBB  F        QQQQ Q A     A DDDDDD
 48384  
 48385  
 48386  // VIF  THU 20 NOV 2025 22:19:48  ** DBFQAD                       ** DIAGNOSTICS                                      PAGE 01192
 48387  
 48388  
 48389  // VIF  THU 20 NOV 2025 22:19:48  ** DBFQAD                       ** GENERATED CODE                                   PAGE 01193
 48390  
 48391  int_4 _dbfqad (real_8 (*_f)(), real_8 _p_ t_, real_8 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ id_, real_8 _p_ 
 48392  x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_, real_8 _p_ work_)
 48393  { // ** body not listed **
 48474  }
 48475  
 48476  // VIF  THU 20 NOV 2025 22:19:48  ** DBIE                         ** DBIE                                             PAGE 01195
 48477  
 48478  //                                   RRRRRR  EEEEEEE    A    L                88888
 48479  //                                   R     R E         A A   L        *   *  8     8
 48480  //                                   R     R E        A   A  L         * *   8     8
 48481  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 48482  //                                   R   R   E       AAAAAAA L         * *   8     8
 48483  //                                   R    R  E       A     A L        *   *  8     8
 48484  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 48485  
 48486  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 48487  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 48488  //                           F       U     U N N   N C          T       I    O     O N N   N
 48489  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 48490  //                           F       U     U N   N N C          T       I    O     O N   N N
 48491  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 48492  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 48493  
 48494  //                                           DDDDDD  BBBBBB    III   EEEEEEE
 48495  //                                           D     D B     B    I    E
 48496  //                                           D     D B     B    I    E
 48497  //                                           D     D BBBBBB     I    EEEEE
 48498  //                                           D     D B     B    I    E
 48499  //                                           D     D B     B    I    E
 48500  //                                           DDDDDD  BBBBBB    III   EEEEEEE
 48501  
 48502  
 48503  // VIF  THU 20 NOV 2025 22:19:48  ** DBIE                         ** DIAGNOSTICS                                      PAGE 01196
 48504  
 48505  
 48506  // VIF  THU 20 NOV 2025 22:19:48  ** DBIE                         ** GENERATED CODE                                   PAGE 01197
 48507  
 48508  real_8 _dbie (real_8 _p_ x_)
 48509  { // ** body not listed **
 51024  }
 51025  
 51026  // VIF  THU 20 NOV 2025 22:19:48  ** DBI                          ** DBI                                              PAGE 01246
 51027  
 51028  //                                   RRRRRR  EEEEEEE    A    L                88888
 51029  //                                   R     R E         A A   L        *   *  8     8
 51030  //                                   R     R E        A   A  L         * *   8     8
 51031  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 51032  //                                   R   R   E       AAAAAAA L         * *   8     8
 51033  //                                   R    R  E       A     A L        *   *  8     8
 51034  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 51035  
 51036  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 51037  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 51038  //                           F       U     U N N   N C          T       I    O     O N N   N
 51039  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 51040  //                           F       U     U N   N N C          T       I    O     O N   N N
 51041  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 51042  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 51043  
 51044  //                                                DDDDDD  BBBBBB    III
 51045  //                                                D     D B     B    I
 51046  //                                                D     D B     B    I
 51047  //                                                D     D BBBBBB     I
 51048  //                                                D     D B     B    I
 51049  //                                                D     D B     B    I
 51050  //                                                DDDDDD  BBBBBB    III
 51051  
 51052  
 51053  // VIF  THU 20 NOV 2025 22:19:48  ** DBI                          ** DIAGNOSTICS                                      PAGE 01247
 51054  
 51055  
 51056  // VIF  THU 20 NOV 2025 22:19:48  ** DBI                          ** GENERATED CODE                                   PAGE 01248
 51057  
 51058  real_8 _dbi (real_8 _p_ x_)
 51059  { // ** body not listed **
 51827  }
 51828  
 51829  // VIF  THU 20 NOV 2025 22:19:48  ** DBINOM                       ** DBINOM                                           PAGE 01263
 51830  
 51831  //                                   RRRRRR  EEEEEEE    A    L                88888
 51832  //                                   R     R E         A A   L        *   *  8     8
 51833  //                                   R     R E        A   A  L         * *   8     8
 51834  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 51835  //                                   R   R   E       AAAAAAA L         * *   8     8
 51836  //                                   R    R  E       A     A L        *   *  8     8
 51837  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 51838  
 51839  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 51840  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 51841  //                           F       U     U N N   N C          T       I    O     O N N   N
 51842  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 51843  //                           F       U     U N   N N C          T       I    O     O N   N N
 51844  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 51845  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 51846  
 51847  //                                   DDDDDD  BBBBBB    III   N     N  OOOOO  M     M
 51848  //                                   D     D B     B    I    NN    N O     O MM   MM
 51849  //                                   D     D B     B    I    N N   N O     O M M M M
 51850  //                                   D     D BBBBBB     I    N  N  N O     O M  M  M
 51851  //                                   D     D B     B    I    N   N N O     O M     M
 51852  //                                   D     D B     B    I    N    NN O     O M     M
 51853  //                                   DDDDDD  BBBBBB    III   N     N  OOOOO  M     M
 51854  
 51855  
 51856  // VIF  THU 20 NOV 2025 22:19:48  ** DBINOM                       ** DIAGNOSTICS                                      PAGE 01264
 51857  
 51858  
 51859  // VIF  THU 20 NOV 2025 22:19:48  ** DBINOM                       ** GENERATED CODE                                   PAGE 01265
 51860  
 51861  real_8 _dbinom (int_4 _p_ n_, int_4 _p_ m_)
 51862  { // ** body not listed **
 51947  }
 51948  
 51949  // VIF  THU 20 NOV 2025 22:19:48  ** DBINT4                       ** DBINT4                                           PAGE 01267
 51950  
 51951  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 51952  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 51953  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 51954  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 51955  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 51956  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 51957  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 51958  
 51959  //                                   DDDDDD  BBBBBB    III   N     N TTTTTTT 4
 51960  //                                   D     D B     B    I    NN    N    T    4    4
 51961  //                                   D     D B     B    I    N N   N    T    4    4
 51962  //                                   D     D BBBBBB     I    N  N  N    T    4444444
 51963  //                                   D     D B     B    I    N   N N    T         4
 51964  //                                   D     D B     B    I    N    NN    T         4
 51965  //                                   DDDDDD  BBBBBB    III   N     N    T         4
 51966  
 51967  
 51968  // VIF  THU 20 NOV 2025 22:19:48  ** DBINT4                       ** DIAGNOSTICS                                      PAGE 01268
 51969  
 51970  
 51971  // VIF  THU 20 NOV 2025 22:19:48  ** DBINT4                       ** GENERATED CODE                                   PAGE 01269
 51972  
 51973  int_4 _dbint4 (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ ndata_, int_4 _p_ ibcl_, int_4 _p_ ibcr_, real_8 _p_ fbcl_, 
 51974  real_8 _p_ fbcr_, int_4 _p_ kntopt_, real_8 _p_ t_, real_8 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ w_)
 51975  { // ** body not listed **
 52131  }
 52132  
 52133  // VIF  THU 20 NOV 2025 22:19:48  ** DBINTK                       ** DBINTK                                           PAGE 01273
 52134  
 52135  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 52136  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 52137  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 52138  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 52139  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 52140  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 52141  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 52142  
 52143  //                                    DDDDDD  BBBBBB    III   N     N TTTTTTT K    K
 52144  //                                    D     D B     B    I    NN    N    T    K   K
 52145  //                                    D     D B     B    I    N N   N    T    K  K
 52146  //                                    D     D BBBBBB     I    N  N  N    T    KKK
 52147  //                                    D     D B     B    I    N   N N    T    K  K
 52148  //                                    D     D B     B    I    N    NN    T    K   K
 52149  //                                    DDDDDD  BBBBBB    III   N     N    T    K    K
 52150  
 52151  
 52152  // VIF  THU 20 NOV 2025 22:19:48  ** DBINTK                       ** DIAGNOSTICS                                      PAGE 01274
 52153  
 52154  
 52155  // VIF  THU 20 NOV 2025 22:19:48  ** DBINTK                       ** GENERATED CODE                                   PAGE 01275
 52156  
 52157  int_4 _dbintk (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ t_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ bcoef_, real_8 _p_ 
 52158  q_, real_8 _p_ work_)
 52159  { // ** body not listed **
 52246  }
 52247  
 52248  // VIF  THU 20 NOV 2025 22:19:48  ** DBKIAS                       ** DBKIAS                                           PAGE 01277
 52249  
 52250  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 52251  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 52252  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 52253  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 52254  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 52255  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 52256  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 52257  
 52258  //                                   DDDDDD  BBBBBB  K    K    III      A     SSSSS
 52259  //                                   D     D B     B K   K      I      A A   S     S
 52260  //                                   D     D B     B K  K       I     A   A  S
 52261  //                                   D     D BBBBBB  KKK        I    A     A  SSSSS
 52262  //                                   D     D B     B K  K       I    AAAAAAA       S
 52263  //                                   D     D B     B K   K      I    A     A S     S
 52264  //                                   DDDDDD  BBBBBB  K    K    III   A     A  SSSSS
 52265  
 52266  
 52267  // VIF  THU 20 NOV 2025 22:19:48  ** DBKIAS                       ** DIAGNOSTICS                                      PAGE 01278
 52268  
 52269  
 52270  // VIF  THU 20 NOV 2025 22:19:48  ** DBKIAS                       ** GENERATED CODE                                   PAGE 01279
 52271  
 52272  int_4 _dbkias (real_8 _p_ x_, int_4 _p_ n_, int_4 _p_ ktrms_, real_8 _p_ t_, real_8 _p_ ans_, int_4 _p_ ind_, int_4 _p_ 
 52273  ms_, real_8 _p_ gmrn_, real_8 _p_ h_, int_4 _p_ ierr_)
 52274  { // ** body not listed **
 53333  }
 53334  
 53335  // VIF  THU 20 NOV 2025 22:19:48  ** DBKISR                       ** DBKISR                                           PAGE 01300
 53336  
 53337  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 53338  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 53339  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 53340  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 53341  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 53342  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 53343  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 53344  
 53345  //                                   DDDDDD  BBBBBB  K    K    III    SSSSS  RRRRRR
 53346  //                                   D     D B     B K   K      I    S     S R     R
 53347  //                                   D     D B     B K  K       I    S       R     R
 53348  //                                   D     D BBBBBB  KKK        I     SSSSS  RRRRRR
 53349  //                                   D     D B     B K  K       I          S R   R
 53350  //                                   D     D B     B K   K      I    S     S R    R
 53351  //                                   DDDDDD  BBBBBB  K    K    III    SSSSS  R     R
 53352  
 53353  
 53354  // VIF  THU 20 NOV 2025 22:19:48  ** DBKISR                       ** DIAGNOSTICS                                      PAGE 01301
 53355  
 53356  
 53357  // VIF  THU 20 NOV 2025 22:19:48  ** DBKISR                       ** GENERATED CODE                                   PAGE 01302
 53358  
 53359  int_4 _dbkisr (real_8 _p_ x_, int_4 _p_ n_, real_8 _p_ sum_, int_4 _p_ ierr_)
 53360  { // ** body not listed **
 53449  }
 53450  
 53451  // VIF  THU 20 NOV 2025 22:19:48  ** DBSI0E                       ** DBSI0E                                           PAGE 01304
 53452  
 53453  //                                   RRRRRR  EEEEEEE    A    L                88888
 53454  //                                   R     R E         A A   L        *   *  8     8
 53455  //                                   R     R E        A   A  L         * *   8     8
 53456  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 53457  //                                   R   R   E       AAAAAAA L         * *   8     8
 53458  //                                   R    R  E       A     A L        *   *  8     8
 53459  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 53460  
 53461  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 53462  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 53463  //                           F       U     U N N   N C          T       I    O     O N N   N
 53464  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 53465  //                           F       U     U N   N N C          T       I    O     O N   N N
 53466  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 53467  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 53468  
 53469  //                                   DDDDDD  BBBBBB   SSSSS    III     000   EEEEEEE
 53470  //                                   D     D B     B S     S    I     0   0  E
 53471  //                                   D     D B     B S          I    0     0 E
 53472  //                                   D     D BBBBBB   SSSSS     I    0     0 EEEEE
 53473  //                                   D     D B     B       S    I    0     0 E
 53474  //                                   D     D B     B S     S    I     0   0  E
 53475  //                                   DDDDDD  BBBBBB   SSSSS    III     000   EEEEEEE
 53476  
 53477  
 53478  // VIF  THU 20 NOV 2025 22:19:48  ** DBSI0E                       ** DIAGNOSTICS                                      PAGE 01305
 53479  
 53480  
 53481  // VIF  THU 20 NOV 2025 22:19:48  ** DBSI0E                       ** GENERATED CODE                                   PAGE 01306
 53482  
 53483  real_8 _dbsi0e (real_8 _p_ x_)
 53484  { // ** body not listed **
 55210  }
 55211  
 55212  // VIF  THU 20 NOV 2025 22:19:48  ** DBSI1E                       ** DBSI1E                                           PAGE 01340
 55213  
 55214  //                                   RRRRRR  EEEEEEE    A    L                88888
 55215  //                                   R     R E         A A   L        *   *  8     8
 55216  //                                   R     R E        A   A  L         * *   8     8
 55217  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 55218  //                                   R   R   E       AAAAAAA L         * *   8     8
 55219  //                                   R    R  E       A     A L        *   *  8     8
 55220  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 55221  
 55222  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 55223  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 55224  //                           F       U     U N N   N C          T       I    O     O N N   N
 55225  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 55226  //                           F       U     U N   N N C          T       I    O     O N   N N
 55227  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 55228  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 55229  
 55230  //                                   DDDDDD  BBBBBB   SSSSS    III      1    EEEEEEE
 55231  //                                   D     D B     B S     S    I      11    E
 55232  //                                   D     D B     B S          I     1 1    E
 55233  //                                   D     D BBBBBB   SSSSS     I       1    EEEEE
 55234  //                                   D     D B     B       S    I       1    E
 55235  //                                   D     D B     B S     S    I       1    E
 55236  //                                   DDDDDD  BBBBBB   SSSSS    III    11111  EEEEEEE
 55237  
 55238  
 55239  // VIF  THU 20 NOV 2025 22:19:48  ** DBSI1E                       ** DIAGNOSTICS                                      PAGE 01341
 55240  
 55241  
 55242  // VIF  THU 20 NOV 2025 22:19:48  ** DBSI1E                       ** GENERATED CODE                                   PAGE 01342
 55243  
 55244  real_8 _dbsi1e (real_8 _p_ x_)
 55245  { // ** body not listed **
 56971  }
 56972  
 56973  // VIF  THU 20 NOV 2025 22:19:48  ** DBSK0E                       ** DBSK0E                                           PAGE 01376
 56974  
 56975  //                                   RRRRRR  EEEEEEE    A    L                88888
 56976  //                                   R     R E         A A   L        *   *  8     8
 56977  //                                   R     R E        A   A  L         * *   8     8
 56978  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 56979  //                                   R   R   E       AAAAAAA L         * *   8     8
 56980  //                                   R    R  E       A     A L        *   *  8     8
 56981  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 56982  
 56983  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 56984  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 56985  //                           F       U     U N N   N C          T       I    O     O N N   N
 56986  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 56987  //                           F       U     U N   N N C          T       I    O     O N   N N
 56988  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 56989  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 56990  
 56991  //                                   DDDDDD  BBBBBB   SSSSS  K    K    000   EEEEEEE
 56992  //                                   D     D B     B S     S K   K    0   0  E
 56993  //                                   D     D B     B S       K  K    0     0 E
 56994  //                                   D     D BBBBBB   SSSSS  KKK     0     0 EEEEE
 56995  //                                   D     D B     B       S K  K    0     0 E
 56996  //                                   D     D B     B S     S K   K    0   0  E
 56997  //                                   DDDDDD  BBBBBB   SSSSS  K    K    000   EEEEEEE
 56998  
 56999  
 57000  // VIF  THU 20 NOV 2025 22:19:48  ** DBSK0E                       ** DIAGNOSTICS                                      PAGE 01377
 57001  
 57002  
 57003  // VIF  THU 20 NOV 2025 22:19:48  ** DBSK0E                       ** GENERATED CODE                                   PAGE 01378
 57004  
 57005  real_8 _dbsk0e (real_8 _p_ x_)
 57006  { // ** body not listed **
 58157  }
 58158  
 58159  // VIF  THU 20 NOV 2025 22:19:48  ** DBSK1E                       ** DBSK1E                                           PAGE 01401
 58160  
 58161  //                                   RRRRRR  EEEEEEE    A    L                88888
 58162  //                                   R     R E         A A   L        *   *  8     8
 58163  //                                   R     R E        A   A  L         * *   8     8
 58164  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 58165  //                                   R   R   E       AAAAAAA L         * *   8     8
 58166  //                                   R    R  E       A     A L        *   *  8     8
 58167  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 58168  
 58169  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 58170  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 58171  //                           F       U     U N N   N C          T       I    O     O N N   N
 58172  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 58173  //                           F       U     U N   N N C          T       I    O     O N   N N
 58174  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 58175  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 58176  
 58177  //                                   DDDDDD  BBBBBB   SSSSS  K    K     1    EEEEEEE
 58178  //                                   D     D B     B S     S K   K     11    E
 58179  //                                   D     D B     B S       K  K     1 1    E
 58180  //                                   D     D BBBBBB   SSSSS  KKK        1    EEEEE
 58181  //                                   D     D B     B       S K  K       1    E
 58182  //                                   D     D B     B S     S K   K      1    E
 58183  //                                   DDDDDD  BBBBBB   SSSSS  K    K   11111  EEEEEEE
 58184  
 58185  
 58186  // VIF  THU 20 NOV 2025 22:19:48  ** DBSK1E                       ** DIAGNOSTICS                                      PAGE 01402
 58187  
 58188  
 58189  // VIF  THU 20 NOV 2025 22:19:48  ** DBSK1E                       ** GENERATED CODE                                   PAGE 01403
 58190  
 58191  real_8 _dbsk1e (real_8 _p_ x_)
 58192  { // ** body not listed **
 59347  }
 59348  
 59349  // VIF  THU 20 NOV 2025 22:19:48  ** DBSKES                       ** DBSKES                                           PAGE 01426
 59350  
 59351  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 59352  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 59353  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 59354  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 59355  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 59356  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 59357  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 59358  
 59359  //                                   DDDDDD  BBBBBB   SSSSS  K    K  EEEEEEE  SSSSS
 59360  //                                   D     D B     B S     S K   K   E       S     S
 59361  //                                   D     D B     B S       K  K    E       S
 59362  //                                   D     D BBBBBB   SSSSS  KKK     EEEEE    SSSSS
 59363  //                                   D     D B     B       S K  K    E             S
 59364  //                                   D     D B     B S     S K   K   E       S     S
 59365  //                                   DDDDDD  BBBBBB   SSSSS  K    K  EEEEEEE  SSSSS
 59366  
 59367  
 59368  // VIF  THU 20 NOV 2025 22:19:48  ** DBSKES                       ** DIAGNOSTICS                                      PAGE 01427
 59369  
 59370  
 59371  // VIF  THU 20 NOV 2025 22:19:48  ** DBSKES                       ** GENERATED CODE                                   PAGE 01428
 59372  
 59373  int_4 _dbskes (real_8 _p_ xnu_, real_8 _p_ x_, int_4 _p_ nin_, real_8 _p_ bke_)
 59374  { // ** body not listed **
 59440  }
 59441  
 59442  // VIF  THU 20 NOV 2025 22:19:48  ** DBSKIN                       ** DBSKIN                                           PAGE 01430
 59443  
 59444  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 59445  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 59446  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 59447  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 59448  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 59449  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 59450  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 59451  
 59452  //                                   DDDDDD  BBBBBB   SSSSS  K    K    III   N     N
 59453  //                                   D     D B     B S     S K   K      I    NN    N
 59454  //                                   D     D B     B S       K  K       I    N N   N
 59455  //                                   D     D BBBBBB   SSSSS  KKK        I    N  N  N
 59456  //                                   D     D B     B       S K  K       I    N   N N
 59457  //                                   D     D B     B S     S K   K      I    N    NN
 59458  //                                   DDDDDD  BBBBBB   SSSSS  K    K    III   N     N
 59459  
 59460  
 59461  // VIF  THU 20 NOV 2025 22:19:48  ** DBSKIN                       ** DIAGNOSTICS                                      PAGE 01431
 59462  
 59463  
 59464  // VIF  THU 20 NOV 2025 22:19:48  ** DBSKIN                       ** GENERATED CODE                                   PAGE 01432
 59465  
 59466  int_4 _dbskin (real_8 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_8 _p_ y_, int_4 _p_ nz_, int_4 _p_ 
 59467  ierr_)
 59468  { // ** body not listed **
 60067  }
 60068  
 60069  // VIF  THU 20 NOV 2025 22:19:48  ** DBSKNU                       ** DBSKNU                                           PAGE 01444
 60070  
 60071  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 60072  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 60073  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 60074  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 60075  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 60076  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 60077  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 60078  
 60079  //                                   DDDDDD  BBBBBB   SSSSS  K    K  N     N U     U
 60080  //                                   D     D B     B S     S K   K   NN    N U     U
 60081  //                                   D     D B     B S       K  K    N N   N U     U
 60082  //                                   D     D BBBBBB   SSSSS  KKK     N  N  N U     U
 60083  //                                   D     D B     B       S K  K    N   N N U     U
 60084  //                                   D     D B     B S     S K   K   N    NN U     U
 60085  //                                   DDDDDD  BBBBBB   SSSSS  K    K  N     N  UUUUU
 60086  
 60087  
 60088  // VIF  THU 20 NOV 2025 22:19:48  ** DBSKNU                       ** DIAGNOSTICS                                      PAGE 01445
 60089  
 60090  
 60091  // VIF  THU 20 NOV 2025 22:19:48  ** DBSKNU                       ** GENERATED CODE                                   PAGE 01446
 60092  
 60093  int_4 _dbsknu (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_)
 60094  { // ** body not listed **
 60571  }
 60572  
 60573  // VIF  THU 20 NOV 2025 22:19:48  ** DBSPEV                       ** DBSPEV                                           PAGE 01456
 60574  
 60575  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 60576  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 60577  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 60578  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 60579  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 60580  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 60581  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 60582  
 60583  //                                   DDDDDD  BBBBBB   SSSSS  PPPPPP  EEEEEEE V     V
 60584  //                                   D     D B     B S     S P     P E       V     V
 60585  //                                   D     D B     B S       P     P E       V     V
 60586  //                                   D     D BBBBBB   SSSSS  PPPPPP  EEEEE   V     V
 60587  //                                   D     D B     B       S P       E        V   V
 60588  //                                   D     D B     B S     S P       E         V V
 60589  //                                   DDDDDD  BBBBBB   SSSSS  P       EEEEEEE    V
 60590  
 60591  
 60592  // VIF  THU 20 NOV 2025 22:19:48  ** DBSPEV                       ** DIAGNOSTICS                                      PAGE 01457
 60593  
 60594  
 60595  // VIF  THU 20 NOV 2025 22:19:48  ** DBSPEV                       ** GENERATED CODE                                   PAGE 01458
 60596  
 60597  int_4 _dbspev (real_8 _p_ t_, real_8 _p_ ad_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ nderiv_, real_8 _p_ x_, int_4 _p_ 
 60598  inev_, real_8 _p_ svalue_, real_8 _p_ work_)
 60599  { // ** body not listed **
 60674  }
 60675  
 60676  // VIF  THU 20 NOV 2025 22:19:48  ** DBSPPP                       ** DBSPPP                                           PAGE 01460
 60677  
 60678  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 60679  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 60680  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 60681  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 60682  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 60683  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 60684  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 60685  
 60686  //                                   DDDDDD  BBBBBB   SSSSS  PPPPPP  PPPPPP  PPPPPP
 60687  //                                   D     D B     B S     S P     P P     P P     P
 60688  //                                   D     D B     B S       P     P P     P P     P
 60689  //                                   D     D BBBBBB   SSSSS  PPPPPP  PPPPPP  PPPPPP
 60690  //                                   D     D B     B       S P       P       P
 60691  //                                   D     D B     B S     S P       P       P
 60692  //                                   DDDDDD  BBBBBB   SSSSS  P       P       P
 60693  
 60694  
 60695  // VIF  THU 20 NOV 2025 22:19:48  ** DBSPPP                       ** DIAGNOSTICS                                      PAGE 01461
 60696  
 60697  
 60698  // VIF  THU 20 NOV 2025 22:19:48  ** DBSPPP                       ** GENERATED CODE                                   PAGE 01462
 60699  
 60700  int_4 _dbsppp (real_8 _p_ t_, real_8 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, 
 60701  int_4 _p_ lxi_, real_8 _p_ work_)
 60702  { // ** body not listed **
 60741  }
 60742  
 60743  // VIF  THU 20 NOV 2025 22:19:48  ** DBSPVD                       ** DBSPVD                                           PAGE 01463
 60744  
 60745  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 60746  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 60747  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 60748  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 60749  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 60750  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 60751  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 60752  
 60753  //                                   DDDDDD  BBBBBB   SSSSS  PPPPPP  V     V DDDDDD
 60754  //                                   D     D B     B S     S P     P V     V D     D
 60755  //                                   D     D B     B S       P     P V     V D     D
 60756  //                                   D     D BBBBBB   SSSSS  PPPPPP  V     V D     D
 60757  //                                   D     D B     B       S P        V   V  D     D
 60758  //                                   D     D B     B S     S P         V V   D     D
 60759  //                                   DDDDDD  BBBBBB   SSSSS  P          V    DDDDDD
 60760  
 60761  
 60762  // VIF  THU 20 NOV 2025 22:19:48  ** DBSPVD                       ** DIAGNOSTICS                                      PAGE 01464
 60763  
 60764  
 60765  // VIF  THU 20 NOV 2025 22:19:48  ** DBSPVD                       ** GENERATED CODE                                   PAGE 01465
 60766  
 60767  int_4 _dbspvd (real_8 _p_ t_, int_4 _p_ k_, int_4 _p_ nderiv_, real_8 _p_ x_, int_4 _p_ ileft_, int_4 _p_ ldvnik_, 
 60768  real_8 _p_ vnikx_, real_8 _p_ work_)
 60769  { // ** body not listed **
 60856  }
 60857  
 60858  // VIF  THU 20 NOV 2025 22:19:48  ** DBSQAD                       ** DBSQAD                                           PAGE 01467
 60859  
 60860  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 60861  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 60862  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 60863  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 60864  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 60865  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 60866  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 60867  
 60868  //                                   DDDDDD  BBBBBB   SSSSS   QQQQQ     A    DDDDDD
 60869  //                                   D     D B     B S     S Q     Q   A A   D     D
 60870  //                                   D     D B     B S       Q     Q  A   A  D     D
 60871  //                                   D     D BBBBBB   SSSSS  Q     Q A     A D     D
 60872  //                                   D     D B     B       S Q   Q Q AAAAAAA D     D
 60873  //                                   D     D B     B S     S Q    Q  A     A D     D
 60874  //                                   DDDDDD  BBBBBB   SSSSS   QQQQ Q A     A DDDDDD
 60875  
 60876  
 60877  // VIF  THU 20 NOV 2025 22:19:48  ** DBSQAD                       ** DIAGNOSTICS                                      PAGE 01468
 60878  
 60879  
 60880  // VIF  THU 20 NOV 2025 22:19:48  ** DBSQAD                       ** GENERATED CODE                                   PAGE 01469
 60881  
 60882  int_4 _dbsqad (real_8 _p_ t_, real_8 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ 
 60883  bquad_, real_8 _p_ work_)
 60884  { // ** body not listed **
 61099  }
 61100  
 61101  // VIF  THU 20 NOV 2025 22:19:48  ** DBSYNU                       ** DBSYNU                                           PAGE 01474
 61102  
 61103  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 61104  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 61105  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 61106  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 61107  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 61108  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 61109  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 61110  
 61111  //                                   DDDDDD  BBBBBB   SSSSS  Y     Y N     N U     U
 61112  //                                   D     D B     B S     S  Y   Y  NN    N U     U
 61113  //                                   D     D B     B S         Y Y   N N   N U     U
 61114  //                                   D     D BBBBBB   SSSSS     Y    N  N  N U     U
 61115  //                                   D     D B     B       S    Y    N   N N U     U
 61116  //                                   D     D B     B S     S    Y    N    NN U     U
 61117  //                                   DDDDDD  BBBBBB   SSSSS     Y    N     N  UUUUU
 61118  
 61119  
 61120  // VIF  THU 20 NOV 2025 22:19:48  ** DBSYNU                       ** DIAGNOSTICS                                      PAGE 01475
 61121  
 61122  
 61123  // VIF  THU 20 NOV 2025 22:19:48  ** DBSYNU                       ** GENERATED CODE                                   PAGE 01476
 61124  
 61125  int_4 _dbsynu (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ y_)
 61126  { // ** body not listed **
 61565  }
 61566  
 61567  // VIF  THU 20 NOV 2025 22:19:48  ** DBVALU                       ** DBVALU                                           PAGE 01485
 61568  
 61569  //                                   RRRRRR  EEEEEEE    A    L                88888
 61570  //                                   R     R E         A A   L        *   *  8     8
 61571  //                                   R     R E        A   A  L         * *   8     8
 61572  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 61573  //                                   R   R   E       AAAAAAA L         * *   8     8
 61574  //                                   R    R  E       A     A L        *   *  8     8
 61575  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 61576  
 61577  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 61578  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 61579  //                           F       U     U N N   N C          T       I    O     O N N   N
 61580  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 61581  //                           F       U     U N   N N C          T       I    O     O N   N N
 61582  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 61583  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 61584  
 61585  //                                   DDDDDD  BBBBBB  V     V    A    L       U     U
 61586  //                                   D     D B     B V     V   A A   L       U     U
 61587  //                                   D     D B     B V     V  A   A  L       U     U
 61588  //                                   D     D BBBBBB  V     V A     A L       U     U
 61589  //                                   D     D B     B  V   V  AAAAAAA L       U     U
 61590  //                                   D     D B     B   V V   A     A L       U     U
 61591  //                                   DDDDDD  BBBBBB     V    A     A LLLLLLL  UUUUU
 61592  
 61593  
 61594  // VIF  THU 20 NOV 2025 22:19:48  ** DBVALU                       ** DIAGNOSTICS                                      PAGE 01486
 61595  
 61596  
 61597  // VIF  THU 20 NOV 2025 22:19:48  ** DBVALU                       ** GENERATED CODE                                   PAGE 01487
 61598  
 61599  real_8 _dbvalu (real_8 _p_ t_, real_8 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ ideriv_, real_8 _p_ x_, int_4 _p_ 
 61600  inbv_, real_8 _p_ work_)
 61601  { // ** body not listed **
 61708  }
 61709  
 61710  // VIF  THU 20 NOV 2025 22:19:48  ** DCBRT                        ** DCBRT                                            PAGE 01490
 61711  
 61712  //                                   RRRRRR  EEEEEEE    A    L                88888
 61713  //                                   R     R E         A A   L        *   *  8     8
 61714  //                                   R     R E        A   A  L         * *   8     8
 61715  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 61716  //                                   R   R   E       AAAAAAA L         * *   8     8
 61717  //                                   R    R  E       A     A L        *   *  8     8
 61718  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 61719  
 61720  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 61721  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 61722  //                           F       U     U N N   N C          T       I    O     O N N   N
 61723  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 61724  //                           F       U     U N   N N C          T       I    O     O N   N N
 61725  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 61726  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 61727  
 61728  //                                       DDDDDD   CCCCC  BBBBBB  RRRRRR  TTTTTTT
 61729  //                                       D     D C     C B     B R     R    T
 61730  //                                       D     D C       B     B R     R    T
 61731  //                                       D     D C       BBBBBB  RRRRRR     T
 61732  //                                       D     D C       B     B R   R      T
 61733  //                                       D     D C     C B     B R    R     T
 61734  //                                       DDDDDD   CCCCC  BBBBBB  R     R    T
 61735  
 61736  
 61737  // VIF  THU 20 NOV 2025 22:19:48  ** DCBRT                        ** DIAGNOSTICS                                      PAGE 01491
 61738  
 61739  
 61740  // VIF  THU 20 NOV 2025 22:19:48  ** DCBRT                        ** GENERATED CODE                                   PAGE 01492
 61741  
 61742  real_8 _dcbrt (real_8 _p_ x_)
 61743  { // ** body not listed **
 61847  }
 61848  
 61849  // VIF  THU 20 NOV 2025 22:19:48  ** DCHU                         ** DCHU                                             PAGE 01495
 61850  
 61851  //                                   RRRRRR  EEEEEEE    A    L                88888
 61852  //                                   R     R E         A A   L        *   *  8     8
 61853  //                                   R     R E        A   A  L         * *   8     8
 61854  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 61855  //                                   R   R   E       AAAAAAA L         * *   8     8
 61856  //                                   R    R  E       A     A L        *   *  8     8
 61857  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 61858  
 61859  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 61860  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 61861  //                           F       U     U N N   N C          T       I    O     O N N   N
 61862  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 61863  //                           F       U     U N   N N C          T       I    O     O N   N N
 61864  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 61865  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 61866  
 61867  //                                           DDDDDD   CCCCC  H     H U     U
 61868  //                                           D     D C     C H     H U     U
 61869  //                                           D     D C       H     H U     U
 61870  //                                           D     D C       HHHHHHH U     U
 61871  //                                           D     D C       H     H U     U
 61872  //                                           D     D C     C H     H U     U
 61873  //                                           DDDDDD   CCCCC  H     H  UUUUU
 61874  
 61875  
 61876  // VIF  THU 20 NOV 2025 22:19:48  ** DCHU                         ** DIAGNOSTICS                                      PAGE 01496
 61877  
 61878  
 61879  // VIF  THU 20 NOV 2025 22:19:48  ** DCHU                         ** GENERATED CODE                                   PAGE 01497
 61880  
 61881  real_8 _dchu (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ x_)
 61882  { // ** body not listed **
 62039  }
 62040  
 62041  // VIF  THU 20 NOV 2025 22:19:48  ** DCOSDG                       ** DCOSDG                                           PAGE 01501
 62042  
 62043  //                                   RRRRRR  EEEEEEE    A    L                88888
 62044  //                                   R     R E         A A   L        *   *  8     8
 62045  //                                   R     R E        A   A  L         * *   8     8
 62046  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 62047  //                                   R   R   E       AAAAAAA L         * *   8     8
 62048  //                                   R    R  E       A     A L        *   *  8     8
 62049  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 62050  
 62051  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 62052  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 62053  //                           F       U     U N N   N C          T       I    O     O N N   N
 62054  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 62055  //                           F       U     U N   N N C          T       I    O     O N   N N
 62056  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 62057  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 62058  
 62059  //                                   DDDDDD   CCCCC   OOOOO   SSSSS  DDDDDD   GGGGG
 62060  //                                   D     D C     C O     O S     S D     D G     G
 62061  //                                   D     D C       O     O S       D     D G
 62062  //                                   D     D C       O     O  SSSSS  D     D G  GGGG
 62063  //                                   D     D C       O     O       S D     D G     G
 62064  //                                   D     D C     C O     O S     S D     D G     G
 62065  //                                   DDDDDD   CCCCC   OOOOO   SSSSS  DDDDDD   GGGGG
 62066  
 62067  
 62068  // VIF  THU 20 NOV 2025 22:19:48  ** DCOSDG                       ** DIAGNOSTICS                                      PAGE 01502
 62069  
 62070  
 62071  // VIF  THU 20 NOV 2025 22:19:48  ** DCOSDG                       ** GENERATED CODE                                   PAGE 01503
 62072  
 62073  real_8 _dcosdg (real_8 _p_ x_)
 62074  { // ** body not listed **
 62106  }
 62107  
 62108  // VIF  THU 20 NOV 2025 22:19:48  ** DCOT                         ** DCOT                                             PAGE 01504
 62109  
 62110  //                                   RRRRRR  EEEEEEE    A    L                88888
 62111  //                                   R     R E         A A   L        *   *  8     8
 62112  //                                   R     R E        A   A  L         * *   8     8
 62113  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 62114  //                                   R   R   E       AAAAAAA L         * *   8     8
 62115  //                                   R    R  E       A     A L        *   *  8     8
 62116  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 62117  
 62118  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 62119  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 62120  //                           F       U     U N N   N C          T       I    O     O N N   N
 62121  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 62122  //                           F       U     U N   N N C          T       I    O     O N   N N
 62123  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 62124  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 62125  
 62126  //                                           DDDDDD   CCCCC   OOOOO  TTTTTTT
 62127  //                                           D     D C     C O     O    T
 62128  //                                           D     D C       O     O    T
 62129  //                                           D     D C       O     O    T
 62130  //                                           D     D C       O     O    T
 62131  //                                           D     D C     C O     O    T
 62132  //                                           DDDDDD   CCCCC   OOOOO     T
 62133  
 62134  
 62135  // VIF  THU 20 NOV 2025 22:19:48  ** DCOT                         ** DIAGNOSTICS                                      PAGE 01505
 62136  
 62137  
 62138  // VIF  THU 20 NOV 2025 22:19:48  ** DCOT                         ** GENERATED CODE                                   PAGE 01506
 62139  
 62140  real_8 _dcot (real_8 _p_ x_)
 62141  { // ** body not listed **
 62425  }
 62426  
 62427  // VIF  THU 20 NOV 2025 22:19:48  ** DCSEVL                       ** DCSEVL                                           PAGE 01512
 62428  
 62429  //                                   RRRRRR  EEEEEEE    A    L                88888
 62430  //                                   R     R E         A A   L        *   *  8     8
 62431  //                                   R     R E        A   A  L         * *   8     8
 62432  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 62433  //                                   R   R   E       AAAAAAA L         * *   8     8
 62434  //                                   R    R  E       A     A L        *   *  8     8
 62435  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 62436  
 62437  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 62438  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 62439  //                           F       U     U N N   N C          T       I    O     O N N   N
 62440  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 62441  //                           F       U     U N   N N C          T       I    O     O N   N N
 62442  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 62443  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 62444  
 62445  //                                   DDDDDD   CCCCC   SSSSS  EEEEEEE V     V L
 62446  //                                   D     D C     C S     S E       V     V L
 62447  //                                   D     D C       S       E       V     V L
 62448  //                                   D     D C        SSSSS  EEEEE   V     V L
 62449  //                                   D     D C             S E        V   V  L
 62450  //                                   D     D C     C S     S E         V V   L
 62451  //                                   DDDDDD   CCCCC   SSSSS  EEEEEEE    V    LLLLLLL
 62452  
 62453  
 62454  // VIF  THU 20 NOV 2025 22:19:48  ** DCSEVL                       ** DIAGNOSTICS                                      PAGE 01513
 62455  
 62456  
 62457  // VIF  THU 20 NOV 2025 22:19:48  ** DCSEVL                       ** GENERATED CODE                                   PAGE 01514
 62458  
 62459  real_8 _dcsevl (real_8 _p_ x_, real_8 _p_ cs_, int_4 _p_ n_)
 62460  { // ** body not listed **
 62504  }
 62505  
 62506  // VIF  THU 20 NOV 2025 22:19:48  ** DDAWS                        ** DDAWS                                            PAGE 01515
 62507  
 62508  //                                   RRRRRR  EEEEEEE    A    L                88888
 62509  //                                   R     R E         A A   L        *   *  8     8
 62510  //                                   R     R E        A   A  L         * *   8     8
 62511  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 62512  //                                   R   R   E       AAAAAAA L         * *   8     8
 62513  //                                   R    R  E       A     A L        *   *  8     8
 62514  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 62515  
 62516  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 62517  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 62518  //                           F       U     U N N   N C          T       I    O     O N N   N
 62519  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 62520  //                           F       U     U N   N N C          T       I    O     O N   N N
 62521  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 62522  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 62523  
 62524  //                                       DDDDDD  DDDDDD     A    W     W  SSSSS
 62525  //                                       D     D D     D   A A   W     W S     S
 62526  //                                       D     D D     D  A   A  W     W S
 62527  //                                       D     D D     D A     A W  W  W  SSSSS
 62528  //                                       D     D D     D AAAAAAA W  W  W       S
 62529  //                                       D     D D     D A     A W  W  W S     S
 62530  //                                       DDDDDD  DDDDDD  A     A  WW WW   SSSSS
 62531  
 62532  
 62533  // VIF  THU 20 NOV 2025 22:19:48  ** DDAWS                        ** DIAGNOSTICS                                      PAGE 01516
 62534  
 62535  
 62536  // VIF  THU 20 NOV 2025 22:19:48  ** DDAWS                        ** GENERATED CODE                                   PAGE 01517
 62537  
 62538  real_8 _ddaws (real_8 _p_ x_)
 62539  { // ** body not listed **
 64382  }
 64383  
 64384  // VIF  THU 20 NOV 2025 22:19:48  ** DE1                          ** DE1                                              PAGE 01553
 64385  
 64386  //                                   RRRRRR  EEEEEEE    A    L                88888
 64387  //                                   R     R E         A A   L        *   *  8     8
 64388  //                                   R     R E        A   A  L         * *   8     8
 64389  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 64390  //                                   R   R   E       AAAAAAA L         * *   8     8
 64391  //                                   R    R  E       A     A L        *   *  8     8
 64392  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 64393  
 64394  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 64395  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 64396  //                           F       U     U N N   N C          T       I    O     O N N   N
 64397  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 64398  //                           F       U     U N   N N C          T       I    O     O N   N N
 64399  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 64400  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 64401  
 64402  //                                                DDDDDD  EEEEEEE    1
 64403  //                                                D     D E         11
 64404  //                                                D     D E        1 1
 64405  //                                                D     D EEEEE      1
 64406  //                                                D     D E          1
 64407  //                                                D     D E          1
 64408  //                                                DDDDDD  EEEEEEE  11111
 64409  
 64410  
 64411  // VIF  THU 20 NOV 2025 22:19:48  ** DE1                          ** DIAGNOSTICS                                      PAGE 01554
 64412  
 64413  
 64414  // VIF  THU 20 NOV 2025 22:19:48  ** DE1                          ** GENERATED CODE                                   PAGE 01555
 64415  
 64416  real_8 _de1 (real_8 _p_ x_)
 64417  { // ** body not listed **
 68527  }
 68528  
 68529  // VIF  THU 20 NOV 2025 22:19:48  ** DEI                          ** DEI                                              PAGE 01635
 68530  
 68531  //                                   RRRRRR  EEEEEEE    A    L                88888
 68532  //                                   R     R E         A A   L        *   *  8     8
 68533  //                                   R     R E        A   A  L         * *   8     8
 68534  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 68535  //                                   R   R   E       AAAAAAA L         * *   8     8
 68536  //                                   R    R  E       A     A L        *   *  8     8
 68537  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 68538  
 68539  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 68540  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 68541  //                           F       U     U N N   N C          T       I    O     O N N   N
 68542  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 68543  //                           F       U     U N   N N C          T       I    O     O N   N N
 68544  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 68545  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 68546  
 68547  //                                                DDDDDD  EEEEEEE   III
 68548  //                                                D     D E          I
 68549  //                                                D     D E          I
 68550  //                                                D     D EEEEE      I
 68551  //                                                D     D E          I
 68552  //                                                D     D E          I
 68553  //                                                DDDDDD  EEEEEEE   III
 68554  
 68555  
 68556  // VIF  THU 20 NOV 2025 22:19:48  ** DEI                          ** DIAGNOSTICS                                      PAGE 01636
 68557  
 68558  
 68559  // VIF  THU 20 NOV 2025 22:19:48  ** DEI                          ** GENERATED CODE                                   PAGE 01637
 68560  
 68561  real_8 _dei (real_8 _p_ x_)
 68562  { // ** body not listed **
 68568  }
 68569  
 68570  // VIF  THU 20 NOV 2025 22:19:48  ** DEXINT                       ** DEXINT                                           PAGE 01638
 68571  
 68572  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 68573  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 68574  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 68575  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 68576  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 68577  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 68578  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 68579  
 68580  //                                   DDDDDD  EEEEEEE X     X   III   N     N TTTTTTT
 68581  //                                   D     D E        X   X     I    NN    N    T
 68582  //                                   D     D E         X X      I    N N   N    T
 68583  //                                   D     D EEEEE      X       I    N  N  N    T
 68584  //                                   D     D E         X X      I    N   N N    T
 68585  //                                   D     D E        X   X     I    N    NN    T
 68586  //                                   DDDDDD  EEEEEEE X     X   III   N     N    T
 68587  
 68588  
 68589  // VIF  THU 20 NOV 2025 22:19:48  ** DEXINT                       ** DIAGNOSTICS                                      PAGE 01639
 68590  
 68591  
 68592  // VIF  THU 20 NOV 2025 22:19:48  ** DEXINT                       ** GENERATED CODE                                   PAGE 01640
 68593  
 68594  int_4 _dexint (real_8 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_8 _p_ tol_, real_8 _p_ en_, int_4 _p_ 
 68595  nz_, int_4 _p_ ierr_)
 68596  { // ** body not listed **
 68913  }
 68914  
 68915  // VIF  THU 20 NOV 2025 22:19:48  ** DEXPRL                       ** DEXPRL                                           PAGE 01647
 68916  
 68917  //                                   RRRRRR  EEEEEEE    A    L                88888
 68918  //                                   R     R E         A A   L        *   *  8     8
 68919  //                                   R     R E        A   A  L         * *   8     8
 68920  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 68921  //                                   R   R   E       AAAAAAA L         * *   8     8
 68922  //                                   R    R  E       A     A L        *   *  8     8
 68923  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 68924  
 68925  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 68926  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 68927  //                           F       U     U N N   N C          T       I    O     O N N   N
 68928  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 68929  //                           F       U     U N   N N C          T       I    O     O N   N N
 68930  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 68931  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 68932  
 68933  //                                   DDDDDD  EEEEEEE X     X PPPPPP  RRRRRR  L
 68934  //                                   D     D E        X   X  P     P R     R L
 68935  //                                   D     D E         X X   P     P R     R L
 68936  //                                   D     D EEEEE      X    PPPPPP  RRRRRR  L
 68937  //                                   D     D E         X X   P       R   R   L
 68938  //                                   D     D E        X   X  P       R    R  L
 68939  //                                   DDDDDD  EEEEEEE X     X P       R     R LLLLLLL
 68940  
 68941  
 68942  // VIF  THU 20 NOV 2025 22:19:48  ** DEXPRL                       ** DIAGNOSTICS                                      PAGE 01648
 68943  
 68944  
 68945  // VIF  THU 20 NOV 2025 22:19:48  ** DEXPRL                       ** GENERATED CODE                                   PAGE 01649
 68946  
 68947  real_8 _dexprl (real_8 _p_ x_)
 68948  { // ** body not listed **
 68993  }
 68994  
 68995  // VIF  THU 20 NOV 2025 22:19:48  ** DFAC                         ** DFAC                                             PAGE 01650
 68996  
 68997  //                                   RRRRRR  EEEEEEE    A    L                88888
 68998  //                                   R     R E         A A   L        *   *  8     8
 68999  //                                   R     R E        A   A  L         * *   8     8
 69000  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 69001  //                                   R   R   E       AAAAAAA L         * *   8     8
 69002  //                                   R    R  E       A     A L        *   *  8     8
 69003  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 69004  
 69005  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 69006  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 69007  //                           F       U     U N N   N C          T       I    O     O N N   N
 69008  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 69009  //                           F       U     U N   N N C          T       I    O     O N   N N
 69010  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 69011  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 69012  
 69013  //                                           DDDDDD  FFFFFFF    A     CCCCC
 69014  //                                           D     D F         A A   C     C
 69015  //                                           D     D F        A   A  C
 69016  //                                           D     D FFFFF   A     A C
 69017  //                                           D     D F       AAAAAAA C
 69018  //                                           D     D F       A     A C     C
 69019  //                                           DDDDDD  F       A     A  CCCCC
 69020  
 69021  
 69022  // VIF  THU 20 NOV 2025 22:19:48  ** DFAC                         ** DIAGNOSTICS                                      PAGE 01651
 69023  
 69024  
 69025  // VIF  THU 20 NOV 2025 22:19:48  ** DFAC                         ** GENERATED CODE                                   PAGE 01652
 69026  
 69027  real_8 _dfac (int_4 _p_ n_)
 69028  { // ** body not listed **
 69472  }
 69473  
 69474  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMIC                       ** DGAMIC                                           PAGE 01661
 69475  
 69476  //                                   RRRRRR  EEEEEEE    A    L                88888
 69477  //                                   R     R E         A A   L        *   *  8     8
 69478  //                                   R     R E        A   A  L         * *   8     8
 69479  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 69480  //                                   R   R   E       AAAAAAA L         * *   8     8
 69481  //                                   R    R  E       A     A L        *   *  8     8
 69482  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 69483  
 69484  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 69485  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 69486  //                           F       U     U N N   N C          T       I    O     O N N   N
 69487  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 69488  //                           F       U     U N   N N C          T       I    O     O N   N N
 69489  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 69490  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 69491  
 69492  //                                   DDDDDD   GGGGG     A    M     M   III    CCCCC
 69493  //                                   D     D G     G   A A   MM   MM    I    C     C
 69494  //                                   D     D G        A   A  M M M M    I    C
 69495  //                                   D     D G  GGGG A     A M  M  M    I    C
 69496  //                                   D     D G     G AAAAAAA M     M    I    C
 69497  //                                   D     D G     G A     A M     M    I    C     C
 69498  //                                   DDDDDD   GGGGG  A     A M     M   III    CCCCC
 69499  
 69500  
 69501  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMIC                       ** DIAGNOSTICS                                      PAGE 01662
 69502  
 69503  
 69504  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMIC                       ** GENERATED CODE                                   PAGE 01663
 69505  
 69506  real_8 _dgamic (real_8 _p_ a_, real_8 _p_ x_)
 69507  { // ** body not listed **
 69635  }
 69636  
 69637  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMI                        ** DGAMI                                            PAGE 01666
 69638  
 69639  //                                   RRRRRR  EEEEEEE    A    L                88888
 69640  //                                   R     R E         A A   L        *   *  8     8
 69641  //                                   R     R E        A   A  L         * *   8     8
 69642  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 69643  //                                   R   R   E       AAAAAAA L         * *   8     8
 69644  //                                   R    R  E       A     A L        *   *  8     8
 69645  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 69646  
 69647  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 69648  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 69649  //                           F       U     U N N   N C          T       I    O     O N N   N
 69650  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 69651  //                           F       U     U N   N N C          T       I    O     O N   N N
 69652  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 69653  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 69654  
 69655  //                                        DDDDDD   GGGGG     A    M     M   III
 69656  //                                        D     D G     G   A A   MM   MM    I
 69657  //                                        D     D G        A   A  M M M M    I
 69658  //                                        D     D G  GGGG A     A M  M  M    I
 69659  //                                        D     D G     G AAAAAAA M     M    I
 69660  //                                        D     D G     G A     A M     M    I
 69661  //                                        DDDDDD   GGGGG  A     A M     M   III
 69662  
 69663  
 69664  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMI                        ** DIAGNOSTICS                                      PAGE 01667
 69665  
 69666  
 69667  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMI                        ** GENERATED CODE                                   PAGE 01668
 69668  
 69669  real_8 _dgami (real_8 _p_ a_, real_8 _p_ x_)
 69670  { // ** body not listed **
 69689  }
 69690  
 69691  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMIT                       ** DGAMIT                                           PAGE 01669
 69692  
 69693  //                                   RRRRRR  EEEEEEE    A    L                88888
 69694  //                                   R     R E         A A   L        *   *  8     8
 69695  //                                   R     R E        A   A  L         * *   8     8
 69696  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 69697  //                                   R   R   E       AAAAAAA L         * *   8     8
 69698  //                                   R    R  E       A     A L        *   *  8     8
 69699  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 69700  
 69701  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 69702  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 69703  //                           F       U     U N N   N C          T       I    O     O N N   N
 69704  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 69705  //                           F       U     U N   N N C          T       I    O     O N   N N
 69706  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 69707  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 69708  
 69709  //                                   DDDDDD   GGGGG     A    M     M   III   TTTTTTT
 69710  //                                   D     D G     G   A A   MM   MM    I       T
 69711  //                                   D     D G        A   A  M M M M    I       T
 69712  //                                   D     D G  GGGG A     A M  M  M    I       T
 69713  //                                   D     D G     G AAAAAAA M     M    I       T
 69714  //                                   D     D G     G A     A M     M    I       T
 69715  //                                   DDDDDD   GGGGG  A     A M     M   III      T
 69716  
 69717  
 69718  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMIT                       ** DIAGNOSTICS                                      PAGE 01670
 69719  
 69720  
 69721  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMIT                       ** GENERATED CODE                                   PAGE 01671
 69722  
 69723  real_8 _dgamit (real_8 _p_ a_, real_8 _p_ x_)
 69724  { // ** body not listed **
 69827  }
 69828  
 69829  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMLM                       ** DGAMLM                                           PAGE 01674
 69830  
 69831  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 69832  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 69833  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 69834  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 69835  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 69836  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 69837  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 69838  
 69839  //                                   DDDDDD   GGGGG     A    M     M L       M     M
 69840  //                                   D     D G     G   A A   MM   MM L       MM   MM
 69841  //                                   D     D G        A   A  M M M M L       M M M M
 69842  //                                   D     D G  GGGG A     A M  M  M L       M  M  M
 69843  //                                   D     D G     G AAAAAAA M     M L       M     M
 69844  //                                   D     D G     G A     A M     M L       M     M
 69845  //                                   DDDDDD   GGGGG  A     A M     M LLLLLLL M     M
 69846  
 69847  
 69848  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMLM                       ** DIAGNOSTICS                                      PAGE 01675
 69849  
 69850  
 69851  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMLM                       ** GENERATED CODE                                   PAGE 01676
 69852  
 69853  int_4 _dgamlm (real_8 _p_ xmin_, real_8 _p_ xmax_)
 69854  { // ** body not listed **
 69890  }
 69891  
 69892  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMLN                       ** DGAMLN                                           PAGE 01677
 69893  
 69894  //                                   RRRRRR  EEEEEEE    A    L                88888
 69895  //                                   R     R E         A A   L        *   *  8     8
 69896  //                                   R     R E        A   A  L         * *   8     8
 69897  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 69898  //                                   R   R   E       AAAAAAA L         * *   8     8
 69899  //                                   R    R  E       A     A L        *   *  8     8
 69900  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 69901  
 69902  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 69903  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 69904  //                           F       U     U N N   N C          T       I    O     O N N   N
 69905  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 69906  //                           F       U     U N   N N C          T       I    O     O N   N N
 69907  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 69908  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 69909  
 69910  //                                   DDDDDD   GGGGG     A    M     M L       N     N
 69911  //                                   D     D G     G   A A   MM   MM L       NN    N
 69912  //                                   D     D G        A   A  M M M M L       N N   N
 69913  //                                   D     D G  GGGG A     A M  M  M L       N  N  N
 69914  //                                   D     D G     G AAAAAAA M     M L       N   N N
 69915  //                                   D     D G     G A     A M     M L       N    NN
 69916  //                                   DDDDDD   GGGGG  A     A M     M LLLLLLL N     N
 69917  
 69918  
 69919  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMLN                       ** DIAGNOSTICS                                      PAGE 01678
 69920  
 69921  
 69922  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMLN                       ** GENERATED CODE                                   PAGE 01679
 69923  
 69924  real_8 _dgamln (real_8 _p_ z_, int_4 _p_ ierr_)
 69925  { // ** body not listed **
 70822  }
 70823  
 70824  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMR                        ** DGAMR                                            PAGE 01697
 70825  
 70826  //                                   RRRRRR  EEEEEEE    A    L                88888
 70827  //                                   R     R E         A A   L        *   *  8     8
 70828  //                                   R     R E        A   A  L         * *   8     8
 70829  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 70830  //                                   R   R   E       AAAAAAA L         * *   8     8
 70831  //                                   R    R  E       A     A L        *   *  8     8
 70832  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 70833  
 70834  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 70835  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 70836  //                           F       U     U N N   N C          T       I    O     O N N   N
 70837  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 70838  //                           F       U     U N   N N C          T       I    O     O N   N N
 70839  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 70840  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 70841  
 70842  //                                       DDDDDD   GGGGG     A    M     M RRRRRR
 70843  //                                       D     D G     G   A A   MM   MM R     R
 70844  //                                       D     D G        A   A  M M M M R     R
 70845  //                                       D     D G  GGGG A     A M  M  M RRRRRR
 70846  //                                       D     D G     G AAAAAAA M     M R   R
 70847  //                                       D     D G     G A     A M     M R    R
 70848  //                                       DDDDDD   GGGGG  A     A M     M R     R
 70849  
 70850  
 70851  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMR                        ** DIAGNOSTICS                                      PAGE 01698
 70852  
 70853  
 70854  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMR                        ** GENERATED CODE                                   PAGE 01699
 70855  
 70856  real_8 _dgamr (real_8 _p_ x_)
 70857  { // ** body not listed **
 70883  }
 70884  
 70885  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMRN                       ** DGAMRN                                           PAGE 01700
 70886  
 70887  //                                   RRRRRR  EEEEEEE    A    L                88888
 70888  //                                   R     R E         A A   L        *   *  8     8
 70889  //                                   R     R E        A   A  L         * *   8     8
 70890  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 70891  //                                   R   R   E       AAAAAAA L         * *   8     8
 70892  //                                   R    R  E       A     A L        *   *  8     8
 70893  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 70894  
 70895  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 70896  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 70897  //                           F       U     U N N   N C          T       I    O     O N N   N
 70898  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 70899  //                           F       U     U N   N N C          T       I    O     O N   N N
 70900  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 70901  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 70902  
 70903  //                                   DDDDDD   GGGGG     A    M     M RRRRRR  N     N
 70904  //                                   D     D G     G   A A   MM   MM R     R NN    N
 70905  //                                   D     D G        A   A  M M M M R     R N N   N
 70906  //                                   D     D G  GGGG A     A M  M  M RRRRRR  N  N  N
 70907  //                                   D     D G     G AAAAAAA M     M R   R   N   N N
 70908  //                                   D     D G     G A     A M     M R    R  N    NN
 70909  //                                   DDDDDD   GGGGG  A     A M     M R     R N     N
 70910  
 70911  
 70912  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMRN                       ** DIAGNOSTICS                                      PAGE 01701
 70913  
 70914  
 70915  // VIF  THU 20 NOV 2025 22:19:48  ** DGAMRN                       ** GENERATED CODE                                   PAGE 01702
 70916  
 70917  real_8 _dgamrn (real_8 _p_ x_)
 70918  { // ** body not listed **
 71057  }
 71058  
 71059  // VIF  THU 20 NOV 2025 22:19:48  ** DHKSEQ                       ** DHKSEQ                                           PAGE 01705
 71060  
 71061  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 71062  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 71063  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 71064  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 71065  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 71066  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 71067  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 71068  
 71069  //                                   DDDDDD  H     H K    K   SSSSS  EEEEEEE  QQQQQ
 71070  //                                   D     D H     H K   K   S     S E       Q     Q
 71071  //                                   D     D H     H K  K    S       E       Q     Q
 71072  //                                   D     D HHHHHHH KKK      SSSSS  EEEEE   Q     Q
 71073  //                                   D     D H     H K  K          S E       Q   Q Q
 71074  //                                   D     D H     H K   K   S     S E       Q    Q
 71075  //                                   DDDDDD  H     H K    K   SSSSS  EEEEEEE  QQQQ Q
 71076  
 71077  
 71078  // VIF  THU 20 NOV 2025 22:19:48  ** DHKSEQ                       ** DIAGNOSTICS                                      PAGE 01706
 71079  
 71080  
 71081  // VIF  THU 20 NOV 2025 22:19:48  ** DHKSEQ                       ** GENERATED CODE                                   PAGE 01707
 71082  
 71083  int_4 _dhkseq (real_8 _p_ x_, int_4 _p_ m_, real_8 _p_ h_, int_4 _p_ ierr_)
 71084  { // ** body not listed **
 71343  }
 71344  
 71345  // VIF  THU 20 NOV 2025 22:19:48  ** DLBETA                       ** DLBETA                                           PAGE 01713
 71346  
 71347  //                                   RRRRRR  EEEEEEE    A    L                88888
 71348  //                                   R     R E         A A   L        *   *  8     8
 71349  //                                   R     R E        A   A  L         * *   8     8
 71350  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 71351  //                                   R   R   E       AAAAAAA L         * *   8     8
 71352  //                                   R    R  E       A     A L        *   *  8     8
 71353  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 71354  
 71355  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 71356  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 71357  //                           F       U     U N N   N C          T       I    O     O N N   N
 71358  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 71359  //                           F       U     U N   N N C          T       I    O     O N   N N
 71360  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 71361  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 71362  
 71363  //                                   DDDDDD  L       BBBBBB  EEEEEEE TTTTTTT    A
 71364  //                                   D     D L       B     B E          T      A A
 71365  //                                   D     D L       B     B E          T     A   A
 71366  //                                   D     D L       BBBBBB  EEEEE      T    A     A
 71367  //                                   D     D L       B     B E          T    AAAAAAA
 71368  //                                   D     D L       B     B E          T    A     A
 71369  //                                   DDDDDD  LLLLLLL BBBBBB  EEEEEEE    T    A     A
 71370  
 71371  
 71372  // VIF  THU 20 NOV 2025 22:19:48  ** DLBETA                       ** DIAGNOSTICS                                      PAGE 01714
 71373  
 71374  
 71375  // VIF  THU 20 NOV 2025 22:19:48  ** DLBETA                       ** GENERATED CODE                                   PAGE 01715
 71376  
 71377  real_8 _dlbeta (real_8 _p_ a_, real_8 _p_ b_)
 71378  { // ** body not listed **
 71420  }
 71421  
 71422  // VIF  THU 20 NOV 2025 22:19:48  ** DLGAMS                       ** DLGAMS                                           PAGE 01716
 71423  
 71424  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 71425  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 71426  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 71427  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 71428  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 71429  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 71430  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 71431  
 71432  //                                   DDDDDD  L        GGGGG     A    M     M  SSSSS
 71433  //                                   D     D L       G     G   A A   MM   MM S     S
 71434  //                                   D     D L       G        A   A  M M M M S
 71435  //                                   D     D L       G  GGGG A     A M  M  M  SSSSS
 71436  //                                   D     D L       G     G AAAAAAA M     M       S
 71437  //                                   D     D L       G     G A     A M     M S     S
 71438  //                                   DDDDDD  LLLLLLL  GGGGG  A     A M     M  SSSSS
 71439  
 71440  
 71441  // VIF  THU 20 NOV 2025 22:19:48  ** DLGAMS                       ** DIAGNOSTICS                                      PAGE 01717
 71442  
 71443  
 71444  // VIF  THU 20 NOV 2025 22:19:48  ** DLGAMS                       ** GENERATED CODE                                   PAGE 01718
 71445  
 71446  int_4 _dlgams (real_8 _p_ x_, real_8 _p_ dlgam_, real_8 _p_ sgngam_)
 71447  { // ** body not listed **
 71462  }
 71463  
 71464  // VIF  THU 20 NOV 2025 22:19:48  ** DLI                          ** DLI                                              PAGE 01719
 71465  
 71466  //                                   RRRRRR  EEEEEEE    A    L                88888
 71467  //                                   R     R E         A A   L        *   *  8     8
 71468  //                                   R     R E        A   A  L         * *   8     8
 71469  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 71470  //                                   R   R   E       AAAAAAA L         * *   8     8
 71471  //                                   R    R  E       A     A L        *   *  8     8
 71472  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 71473  
 71474  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 71475  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 71476  //                           F       U     U N N   N C          T       I    O     O N N   N
 71477  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 71478  //                           F       U     U N   N N C          T       I    O     O N   N N
 71479  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 71480  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 71481  
 71482  //                                                DDDDDD  L         III
 71483  //                                                D     D L          I
 71484  //                                                D     D L          I
 71485  //                                                D     D L          I
 71486  //                                                D     D L          I
 71487  //                                                D     D L          I
 71488  //                                                DDDDDD  LLLLLLL   III
 71489  
 71490  
 71491  // VIF  THU 20 NOV 2025 22:19:48  ** DLI                          ** DIAGNOSTICS                                      PAGE 01720
 71492  
 71493  
 71494  // VIF  THU 20 NOV 2025 22:19:48  ** DLI                          ** GENERATED CODE                                   PAGE 01721
 71495  
 71496  real_8 _dli (real_8 _p_ x_)
 71497  { // ** body not listed **
 71510  }
 71511  
 71512  // VIF  THU 20 NOV 2025 22:19:48  ** DLNREL                       ** DLNREL                                           PAGE 01722
 71513  
 71514  //                                   RRRRRR  EEEEEEE    A    L                88888
 71515  //                                   R     R E         A A   L        *   *  8     8
 71516  //                                   R     R E        A   A  L         * *   8     8
 71517  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 71518  //                                   R   R   E       AAAAAAA L         * *   8     8
 71519  //                                   R    R  E       A     A L        *   *  8     8
 71520  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 71521  
 71522  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 71523  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 71524  //                           F       U     U N N   N C          T       I    O     O N N   N
 71525  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 71526  //                           F       U     U N   N N C          T       I    O     O N   N N
 71527  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 71528  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 71529  
 71530  //                                   DDDDDD  L       N     N RRRRRR  EEEEEEE L
 71531  //                                   D     D L       NN    N R     R E       L
 71532  //                                   D     D L       N N   N R     R E       L
 71533  //                                   D     D L       N  N  N RRRRRR  EEEEE   L
 71534  //                                   D     D L       N   N N R   R   E       L
 71535  //                                   D     D L       N    NN R    R  E       L
 71536  //                                   DDDDDD  LLLLLLL N     N R     R EEEEEEE LLLLLLL
 71537  
 71538  
 71539  // VIF  THU 20 NOV 2025 22:19:48  ** DLNREL                       ** DIAGNOSTICS                                      PAGE 01723
 71540  
 71541  
 71542  // VIF  THU 20 NOV 2025 22:19:48  ** DLNREL                       ** GENERATED CODE                                   PAGE 01724
 71543  
 71544  real_8 _dlnrel (real_8 _p_ x_)
 71545  { // ** body not listed **
 72128  }
 72129  
 72130  // VIF  THU 20 NOV 2025 22:19:48  ** DPFQAD                       ** DPFQAD                                           PAGE 01736
 72131  
 72132  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 72133  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 72134  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 72135  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 72136  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 72137  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 72138  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 72139  
 72140  //                                   DDDDDD  PPPPPP  FFFFFFF  QQQQQ     A    DDDDDD
 72141  //                                   D     D P     P F       Q     Q   A A   D     D
 72142  //                                   D     D P     P F       Q     Q  A   A  D     D
 72143  //                                   D     D PPPPPP  FFFFF   Q     Q A     A D     D
 72144  //                                   D     D P       F       Q   Q Q AAAAAAA D     D
 72145  //                                   D     D P       F       Q    Q  A     A D     D
 72146  //                                   DDDDDD  P       F        QQQQ Q A     A DDDDDD
 72147  
 72148  
 72149  // VIF  THU 20 NOV 2025 22:19:48  ** DPFQAD                       ** DIAGNOSTICS                                      PAGE 01737
 72150  
 72151  
 72152  // VIF  THU 20 NOV 2025 22:19:48  ** DPFQAD                       ** GENERATED CODE                                   PAGE 01738
 72153  
 72154  int_4 _dpfqad (real_8 (*_f)(), int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, int_4 _p_ 
 72155  id_, real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_)
 72156  { // ** body not listed **
 72231  }
 72232  
 72233  // VIF  THU 20 NOV 2025 22:19:48  ** DPOCH1                       ** DPOCH1                                           PAGE 01740
 72234  
 72235  //                                   RRRRRR  EEEEEEE    A    L                88888
 72236  //                                   R     R E         A A   L        *   *  8     8
 72237  //                                   R     R E        A   A  L         * *   8     8
 72238  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 72239  //                                   R   R   E       AAAAAAA L         * *   8     8
 72240  //                                   R    R  E       A     A L        *   *  8     8
 72241  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 72242  
 72243  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 72244  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 72245  //                           F       U     U N N   N C          T       I    O     O N N   N
 72246  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 72247  //                           F       U     U N   N N C          T       I    O     O N   N N
 72248  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 72249  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 72250  
 72251  //                                    DDDDDD  PPPPPP   OOOOO   CCCCC  H     H    1
 72252  //                                    D     D P     P O     O C     C H     H   11
 72253  //                                    D     D P     P O     O C       H     H  1 1
 72254  //                                    D     D PPPPPP  O     O C       HHHHHHH    1
 72255  //                                    D     D P       O     O C       H     H    1
 72256  //                                    D     D P       O     O C     C H     H    1
 72257  //                                    DDDDDD  P        OOOOO   CCCCC  H     H  11111
 72258  
 72259  
 72260  // VIF  THU 20 NOV 2025 22:19:48  ** DPOCH1                       ** DIAGNOSTICS                                      PAGE 01741
 72261  
 72262  
 72263  // VIF  THU 20 NOV 2025 22:19:48  ** DPOCH1                       ** GENERATED CODE                                   PAGE 01742
 72264  
 72265  real_8 _dpoch1 (real_8 _p_ a_, real_8 _p_ x_)
 72266  { // ** body not listed **
 72638  }
 72639  
 72640  // VIF  THU 20 NOV 2025 22:19:48  ** DPOCH                        ** DPOCH                                            PAGE 01750
 72641  
 72642  //                                   RRRRRR  EEEEEEE    A    L                88888
 72643  //                                   R     R E         A A   L        *   *  8     8
 72644  //                                   R     R E        A   A  L         * *   8     8
 72645  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 72646  //                                   R   R   E       AAAAAAA L         * *   8     8
 72647  //                                   R    R  E       A     A L        *   *  8     8
 72648  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 72649  
 72650  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 72651  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 72652  //                           F       U     U N N   N C          T       I    O     O N N   N
 72653  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 72654  //                           F       U     U N   N N C          T       I    O     O N   N N
 72655  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 72656  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 72657  
 72658  //                                       DDDDDD  PPPPPP   OOOOO   CCCCC  H     H
 72659  //                                       D     D P     P O     O C     C H     H
 72660  //                                       D     D P     P O     O C       H     H
 72661  //                                       D     D PPPPPP  O     O C       HHHHHHH
 72662  //                                       D     D P       O     O C       H     H
 72663  //                                       D     D P       O     O C     C H     H
 72664  //                                       DDDDDD  P        OOOOO   CCCCC  H     H
 72665  
 72666  
 72667  // VIF  THU 20 NOV 2025 22:19:48  ** DPOCH                        ** DIAGNOSTICS                                      PAGE 01751
 72668  
 72669  
 72670  // VIF  THU 20 NOV 2025 22:19:48  ** DPOCH                        ** GENERATED CODE                                   PAGE 01752
 72671  
 72672  real_8 _dpoch (real_8 _p_ a_, real_8 _p_ x_)
 72673  { // ** body not listed **
 72766  }
 72767  
 72768  // VIF  THU 20 NOV 2025 22:19:48  ** DPPQAD                       ** DPPQAD                                           PAGE 01754
 72769  
 72770  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 72771  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 72772  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 72773  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 72774  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 72775  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 72776  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 72777  
 72778  //                                   DDDDDD  PPPPPP  PPPPPP   QQQQQ     A    DDDDDD
 72779  //                                   D     D P     P P     P Q     Q   A A   D     D
 72780  //                                   D     D P     P P     P Q     Q  A   A  D     D
 72781  //                                   D     D PPPPPP  PPPPPP  Q     Q A     A D     D
 72782  //                                   D     D P       P       Q   Q Q AAAAAAA D     D
 72783  //                                   D     D P       P       Q    Q  A     A D     D
 72784  //                                   DDDDDD  P       P        QQQQ Q A     A DDDDDD
 72785  
 72786  
 72787  // VIF  THU 20 NOV 2025 22:19:48  ** DPPQAD                       ** DIAGNOSTICS                                      PAGE 01755
 72788  
 72789  
 72790  // VIF  THU 20 NOV 2025 22:19:48  ** DPPQAD                       ** GENERATED CODE                                   PAGE 01756
 72791  
 72792  int_4 _dppqad (int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, real_8 _p_ x1_, real_8 _p_ 
 72793  x2_, real_8 _p_ pquad_)
 72794  { // ** body not listed **
 72867  }
 72868  
 72869  // VIF  THU 20 NOV 2025 22:19:48  ** DPPVAL                       ** DPPVAL                                           PAGE 01758
 72870  
 72871  //                                   RRRRRR  EEEEEEE    A    L                88888
 72872  //                                   R     R E         A A   L        *   *  8     8
 72873  //                                   R     R E        A   A  L         * *   8     8
 72874  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 72875  //                                   R   R   E       AAAAAAA L         * *   8     8
 72876  //                                   R    R  E       A     A L        *   *  8     8
 72877  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 72878  
 72879  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 72880  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 72881  //                           F       U     U N N   N C          T       I    O     O N N   N
 72882  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 72883  //                           F       U     U N   N N C          T       I    O     O N   N N
 72884  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 72885  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 72886  
 72887  //                                   DDDDDD  PPPPPP  PPPPPP  V     V    A    L
 72888  //                                   D     D P     P P     P V     V   A A   L
 72889  //                                   D     D P     P P     P V     V  A   A  L
 72890  //                                   D     D PPPPPP  PPPPPP  V     V A     A L
 72891  //                                   D     D P       P        V   V  AAAAAAA L
 72892  //                                   D     D P       P         V V   A     A L
 72893  //                                   DDDDDD  P       P          V    A     A LLLLLLL
 72894  
 72895  
 72896  // VIF  THU 20 NOV 2025 22:19:48  ** DPPVAL                       ** DIAGNOSTICS                                      PAGE 01759
 72897  
 72898  
 72899  // VIF  THU 20 NOV 2025 22:19:48  ** DPPVAL                       ** GENERATED CODE                                   PAGE 01760
 72900  
 72901  real_8 _dppval (int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, int_4 _p_ ideriv_, real_8 
 72902  _p_ x_, int_4 _p_ inppv_)
 72903  { // ** body not listed **
 72948  }
 72949  
 72950  // VIF  THU 20 NOV 2025 22:19:48  ** DPSI                         ** DPSI                                             PAGE 01761
 72951  
 72952  //                                   RRRRRR  EEEEEEE    A    L                88888
 72953  //                                   R     R E         A A   L        *   *  8     8
 72954  //                                   R     R E        A   A  L         * *   8     8
 72955  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 72956  //                                   R   R   E       AAAAAAA L         * *   8     8
 72957  //                                   R    R  E       A     A L        *   *  8     8
 72958  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 72959  
 72960  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 72961  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 72962  //                           F       U     U N N   N C          T       I    O     O N N   N
 72963  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 72964  //                           F       U     U N   N N C          T       I    O     O N   N N
 72965  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 72966  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 72967  
 72968  //                                            DDDDDD  PPPPPP   SSSSS    III
 72969  //                                            D     D P     P S     S    I
 72970  //                                            D     D P     P S          I
 72971  //                                            D     D PPPPPP   SSSSS     I
 72972  //                                            D     D P             S    I
 72973  //                                            D     D P       S     S    I
 72974  //                                            DDDDDD  P        SSSSS    III
 72975  
 72976  
 72977  // VIF  THU 20 NOV 2025 22:19:48  ** DPSI                         ** DIAGNOSTICS                                      PAGE 01762
 72978  
 72979  
 72980  // VIF  THU 20 NOV 2025 22:19:48  ** DPSI                         ** GENERATED CODE                                   PAGE 01763
 72981  
 72982  real_8 _dpsi (real_8 _p_ x_)
 72983  { // ** body not listed **
 73806  }
 73807  
 73808  // VIF  THU 20 NOV 2025 22:19:48  ** DPSIFN                       ** DPSIFN                                           PAGE 01779
 73809  
 73810  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 73811  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 73812  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 73813  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 73814  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 73815  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 73816  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 73817  
 73818  //                                   DDDDDD  PPPPPP   SSSSS    III   FFFFFFF N     N
 73819  //                                   D     D P     P S     S    I    F       NN    N
 73820  //                                   D     D P     P S          I    F       N N   N
 73821  //                                   D     D PPPPPP   SSSSS     I    FFFFF   N  N  N
 73822  //                                   D     D P             S    I    F       N   N N
 73823  //                                   D     D P       S     S    I    F       N    NN
 73824  //                                   DDDDDD  P        SSSSS    III   F       N     N
 73825  
 73826  
 73827  // VIF  THU 20 NOV 2025 22:19:48  ** DPSIFN                       ** DIAGNOSTICS                                      PAGE 01780
 73828  
 73829  
 73830  // VIF  THU 20 NOV 2025 22:19:48  ** DPSIFN                       ** GENERATED CODE                                   PAGE 01781
 73831  
 73832  int_4 _dpsifn (real_8 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_8 _p_ ans_, int_4 _p_ nz_, int_4 _p_ 
 73833  ierr_)
 73834  { // ** body not listed **
 74280  }
 74281  
 74282  // VIF  THU 20 NOV 2025 22:19:48  ** DSINDG                       ** DSINDG                                           PAGE 01790
 74283  
 74284  //                                   RRRRRR  EEEEEEE    A    L                88888
 74285  //                                   R     R E         A A   L        *   *  8     8
 74286  //                                   R     R E        A   A  L         * *   8     8
 74287  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 74288  //                                   R   R   E       AAAAAAA L         * *   8     8
 74289  //                                   R    R  E       A     A L        *   *  8     8
 74290  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 74291  
 74292  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 74293  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 74294  //                           F       U     U N N   N C          T       I    O     O N N   N
 74295  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 74296  //                           F       U     U N   N N C          T       I    O     O N   N N
 74297  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 74298  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 74299  
 74300  //                                   DDDDDD   SSSSS    III   N     N DDDDDD   GGGGG
 74301  //                                   D     D S     S    I    NN    N D     D G     G
 74302  //                                   D     D S          I    N N   N D     D G
 74303  //                                   D     D  SSSSS     I    N  N  N D     D G  GGGG
 74304  //                                   D     D       S    I    N   N N D     D G     G
 74305  //                                   D     D S     S    I    N    NN D     D G     G
 74306  //                                   DDDDDD   SSSSS    III   N     N DDDDDD   GGGGG
 74307  
 74308  
 74309  // VIF  THU 20 NOV 2025 22:19:48  ** DSINDG                       ** DIAGNOSTICS                                      PAGE 01791
 74310  
 74311  
 74312  // VIF  THU 20 NOV 2025 22:19:48  ** DSINDG                       ** GENERATED CODE                                   PAGE 01792
 74313  
 74314  real_8 _dsindg (real_8 _p_ x_)
 74315  { // ** body not listed **
 74347  }
 74348  
 74349  // VIF  THU 20 NOV 2025 22:19:48  ** DSPENC                       ** DSPENC                                           PAGE 01793
 74350  
 74351  //                                   RRRRRR  EEEEEEE    A    L                88888
 74352  //                                   R     R E         A A   L        *   *  8     8
 74353  //                                   R     R E        A   A  L         * *   8     8
 74354  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 74355  //                                   R   R   E       AAAAAAA L         * *   8     8
 74356  //                                   R    R  E       A     A L        *   *  8     8
 74357  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 74358  
 74359  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 74360  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 74361  //                           F       U     U N N   N C          T       I    O     O N N   N
 74362  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 74363  //                           F       U     U N   N N C          T       I    O     O N   N N
 74364  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 74365  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 74366  
 74367  //                                   DDDDDD   SSSSS  PPPPPP  EEEEEEE N     N  CCCCC
 74368  //                                   D     D S     S P     P E       NN    N C     C
 74369  //                                   D     D S       P     P E       N N   N C
 74370  //                                   D     D  SSSSS  PPPPPP  EEEEE   N  N  N C
 74371  //                                   D     D       S P       E       N   N N C
 74372  //                                   D     D S     S P       E       N    NN C     C
 74373  //                                   DDDDDD   SSSSS  P       EEEEEEE N     N  CCCCC
 74374  
 74375  
 74376  // VIF  THU 20 NOV 2025 22:19:48  ** DSPENC                       ** DIAGNOSTICS                                      PAGE 01794
 74377  
 74378  
 74379  // VIF  THU 20 NOV 2025 22:19:48  ** DSPENC                       ** GENERATED CODE                                   PAGE 01795
 74380  
 74381  real_8 _dspenc (real_8 _p_ x_)
 74382  { // ** body not listed **
 74949  }
 74950  
 74951  // VIF  THU 20 NOV 2025 22:19:48  ** E1                           ** E1                                               PAGE 01806
 74952  
 74953  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 74954  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 74955  //                           F       U     U N N   N C          T       I    O     O N N   N
 74956  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 74957  //                           F       U     U N   N N C          T       I    O     O N   N N
 74958  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 74959  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 74960  
 74961  //                                                    EEEEEEE    1
 74962  //                                                    E         11
 74963  //                                                    E        1 1
 74964  //                                                    EEEEE      1
 74965  //                                                    E          1
 74966  //                                                    E          1
 74967  //                                                    EEEEEEE  11111
 74968  
 74969  
 74970  // VIF  THU 20 NOV 2025 22:19:48  ** E1                           ** DIAGNOSTICS                                      PAGE 01807
 74971  
 74972  
 74973  // VIF  THU 20 NOV 2025 22:19:48  ** E1                           ** GENERATED CODE                                   PAGE 01808
 74974  
 74975  real_4 _e1 (real_4 _p_ x_)
 74976  { // ** body not listed **
 76944  }
 76945  
 76946  
 76947  // VIF  THU 20 NOV 2025 22:19:48  ** EI                           ** EI                                               PAGE 01846
 76948  
 76949  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 76950  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 76951  //                           F       U     U N N   N C          T       I    O     O N N   N
 76952  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 76953  //                           F       U     U N   N N C          T       I    O     O N   N N
 76954  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 76955  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 76956  
 76957  //                                                    EEEEEEE   III
 76958  //                                                    E          I
 76959  //                                                    E          I
 76960  //                                                    EEEEE      I
 76961  //                                                    E          I
 76962  //                                                    E          I
 76963  //                                                    EEEEEEE   III
 76964  
 76965  
 76966  // VIF  THU 20 NOV 2025 22:19:48  ** EI                           ** DIAGNOSTICS                                      PAGE 01847
 76967  
 76968  
 76969  // VIF  THU 20 NOV 2025 22:19:48  ** EI                           ** GENERATED CODE                                   PAGE 01848
 76970  
 76971  real_4 _ei (real_4 _p_ x_)
 76972  { // ** body not listed **
 76978  }
 76979  
 76980  
 76981  // VIF  THU 20 NOV 2025 22:19:48  ** EXINT                        ** EXINT                                            PAGE 01849
 76982  
 76983  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 76984  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 76985  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 76986  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 76987  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 76988  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 76989  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 76990  
 76991  //                                       EEEEEEE X     X   III   N     N TTTTTTT
 76992  //                                       E        X   X     I    NN    N    T
 76993  //                                       E         X X      I    N N   N    T
 76994  //                                       EEEEE      X       I    N  N  N    T
 76995  //                                       E         X X      I    N   N N    T
 76996  //                                       E        X   X     I    N    NN    T
 76997  //                                       EEEEEEE X     X   III   N     N    T
 76998  
 76999  
 77000  // VIF  THU 20 NOV 2025 22:19:48  ** EXINT                        ** DIAGNOSTICS                                      PAGE 01850
 77001  
 77002  
 77003  // VIF  THU 20 NOV 2025 22:19:48  ** EXINT                        ** GENERATED CODE                                   PAGE 01851
 77004  
 77005  int_4 _exint (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_4 _p_ tol_, real_4 _p_ en_, int_4 _p_ 
 77006  nz_, int_4 _p_ ierr_)
 77007  { // ** body not listed **
 77313  }
 77314  
 77315  // VIF  THU 20 NOV 2025 22:19:48  ** EXPREL                       ** EXPREL                                           PAGE 01857
 77316  
 77317  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 77318  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 77319  //                           F       U     U N N   N C          T       I    O     O N N   N
 77320  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 77321  //                           F       U     U N   N N C          T       I    O     O N   N N
 77322  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 77323  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 77324  
 77325  //                                   EEEEEEE X     X PPPPPP  RRRRRR  EEEEEEE L
 77326  //                                   E        X   X  P     P R     R E       L
 77327  //                                   E         X X   P     P R     R E       L
 77328  //                                   EEEEE      X    PPPPPP  RRRRRR  EEEEE   L
 77329  //                                   E         X X   P       R   R   E       L
 77330  //                                   E        X   X  P       R    R  E       L
 77331  //                                   EEEEEEE X     X P       R     R EEEEEEE LLLLLLL
 77332  
 77333  
 77334  // VIF  THU 20 NOV 2025 22:19:48  ** EXPREL                       ** DIAGNOSTICS                                      PAGE 01858
 77335  
 77336  
 77337  // VIF  THU 20 NOV 2025 22:19:48  ** EXPREL                       ** GENERATED CODE                                   PAGE 01859
 77338  
 77339  real_4 _exprel (real_4 _p_ x_)
 77340  { // ** body not listed **
 77384  }
 77385  
 77386  
 77387  // VIF  THU 20 NOV 2025 22:19:48  ** FAC                          ** FAC                                              PAGE 01860
 77388  
 77389  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 77390  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 77391  //                           F       U     U N N   N C          T       I    O     O N N   N
 77392  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 77393  //                           F       U     U N   N N C          T       I    O     O N   N N
 77394  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 77395  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 77396  
 77397  //                                               FFFFFFF    A     CCCCC
 77398  //                                               F         A A   C     C
 77399  //                                               F        A   A  C
 77400  //                                               FFFFF   A     A C
 77401  //                                               F       AAAAAAA C
 77402  //                                               F       A     A C     C
 77403  //                                               F       A     A  CCCCC
 77404  
 77405  
 77406  // VIF  THU 20 NOV 2025 22:19:48  ** FAC                          ** DIAGNOSTICS                                      PAGE 01861
 77407  
 77408  
 77409  // VIF  THU 20 NOV 2025 22:19:48  ** FAC                          ** GENERATED CODE                                   PAGE 01862
 77410  
 77411  real_4 _fac (int_4 _p_ n_)
 77412  { // ** body not listed **
 77792  }
 77793  
 77794  
 77795  // VIF  THU 20 NOV 2025 22:19:48  ** FUNDOC                       ** FUNDOC                                           PAGE 01870
 77796  
 77797  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 77798  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 77799  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 77800  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 77801  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 77802  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 77803  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 77804  
 77805  //                                   FFFFFFF U     U N     N DDDDDD   OOOOO   CCCCC
 77806  //                                   F       U     U NN    N D     D O     O C     C
 77807  //                                   F       U     U N N   N D     D O     O C
 77808  //                                   FFFFF   U     U N  N  N D     D O     O C
 77809  //                                   F       U     U N   N N D     D O     O C
 77810  //                                   F       U     U N    NN D     D O     O C     C
 77811  //                                   F        UUUUU  N     N DDDDDD   OOOOO   CCCCC
 77812  
 77813  
 77814  // VIF  THU 20 NOV 2025 22:19:48  ** FUNDOC                       ** DIAGNOSTICS                                      PAGE 01871
 77815  
 77816  
 77817  // VIF  THU 20 NOV 2025 22:19:48  ** FUNDOC                       ** GENERATED CODE                                   PAGE 01872
 77818  
 77819  int_4 _fundoc (void)
 77820  { // ** body not listed **
 77823  }
 77824  
 77825  // VIF  THU 20 NOV 2025 22:19:48  ** GAMIC                        ** GAMIC                                            PAGE 01873
 77826  
 77827  //                                   RRRRRR  EEEEEEE    A    L               4
 77828  //                                   R     R E         A A   L        *   *  4    4
 77829  //                                   R     R E        A   A  L         * *   4    4
 77830  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 77831  //                                   R   R   E       AAAAAAA L         * *        4
 77832  //                                   R    R  E       A     A L        *   *       4
 77833  //                                   R     R EEEEEEE A     A LLLLLLL              4
 77834  
 77835  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 77836  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 77837  //                           F       U     U N N   N C          T       I    O     O N N   N
 77838  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 77839  //                           F       U     U N   N N C          T       I    O     O N   N N
 77840  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 77841  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 77842  
 77843  //                                        GGGGG     A    M     M   III    CCCCC
 77844  //                                       G     G   A A   MM   MM    I    C     C
 77845  //                                       G        A   A  M M M M    I    C
 77846  //                                       G  GGGG A     A M  M  M    I    C
 77847  //                                       G     G AAAAAAA M     M    I    C
 77848  //                                       G     G A     A M     M    I    C     C
 77849  //                                        GGGGG  A     A M     M   III    CCCCC
 77850  
 77851  
 77852  // VIF  THU 20 NOV 2025 22:19:48  ** GAMIC                        ** DIAGNOSTICS                                      PAGE 01874
 77853  
 77854  
 77855  // VIF  THU 20 NOV 2025 22:19:48  ** GAMIC                        ** GENERATED CODE                                   PAGE 01875
 77856  
 77857  real_4 _gamic (real_4 _p_ a_, real_4 _p_ x_)
 77858  { // ** body not listed **
 77987  }
 77988  
 77989  // VIF  THU 20 NOV 2025 22:19:48  ** GAMI                         ** GAMI                                             PAGE 01878
 77990  
 77991  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 77992  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 77993  //                           F       U     U N N   N C          T       I    O     O N N   N
 77994  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 77995  //                           F       U     U N   N N C          T       I    O     O N   N N
 77996  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 77997  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 77998  
 77999  //                                             GGGGG     A    M     M   III
 78000  //                                            G     G   A A   MM   MM    I
 78001  //                                            G        A   A  M M M M    I
 78002  //                                            G  GGGG A     A M  M  M    I
 78003  //                                            G     G AAAAAAA M     M    I
 78004  //                                            G     G A     A M     M    I
 78005  //                                             GGGGG  A     A M     M   III
 78006  
 78007  
 78008  // VIF  THU 20 NOV 2025 22:19:48  ** GAMI                         ** DIAGNOSTICS                                      PAGE 01879
 78009  
 78010  
 78011  // VIF  THU 20 NOV 2025 22:19:48  ** GAMI                         ** GENERATED CODE                                   PAGE 01880
 78012  
 78013  real_4 _gami (real_4 _p_ a_, real_4 _p_ x_)
 78014  { // ** body not listed **
 78032  }
 78033  
 78034  
 78035  // VIF  THU 20 NOV 2025 22:19:48  ** GAMIT                        ** GAMIT                                            PAGE 01881
 78036  
 78037  //                                   RRRRRR  EEEEEEE    A    L               4
 78038  //                                   R     R E         A A   L        *   *  4    4
 78039  //                                   R     R E        A   A  L         * *   4    4
 78040  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 78041  //                                   R   R   E       AAAAAAA L         * *        4
 78042  //                                   R    R  E       A     A L        *   *       4
 78043  //                                   R     R EEEEEEE A     A LLLLLLL              4
 78044  
 78045  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 78046  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 78047  //                           F       U     U N N   N C          T       I    O     O N N   N
 78048  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 78049  //                           F       U     U N   N N C          T       I    O     O N   N N
 78050  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 78051  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 78052  
 78053  //                                        GGGGG     A    M     M   III   TTTTTTT
 78054  //                                       G     G   A A   MM   MM    I       T
 78055  //                                       G        A   A  M M M M    I       T
 78056  //                                       G  GGGG A     A M  M  M    I       T
 78057  //                                       G     G AAAAAAA M     M    I       T
 78058  //                                       G     G A     A M     M    I       T
 78059  //                                        GGGGG  A     A M     M   III      T
 78060  
 78061  
 78062  // VIF  THU 20 NOV 2025 22:19:48  ** GAMIT                        ** DIAGNOSTICS                                      PAGE 01882
 78063  
 78064  
 78065  // VIF  THU 20 NOV 2025 22:19:48  ** GAMIT                        ** GENERATED CODE                                   PAGE 01883
 78066  
 78067  real_4 _gamit (real_4 _p_ a_, real_4 _p_ x_)
 78068  { // ** body not listed **
 78171  }
 78172  
 78173  // VIF  THU 20 NOV 2025 22:19:48  ** GAMLIM                       ** GAMLIM                                           PAGE 01886
 78174  
 78175  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 78176  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 78177  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 78178  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 78179  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 78180  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 78181  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 78182  
 78183  //                                    GGGGG     A    M     M L         III   M     M
 78184  //                                   G     G   A A   MM   MM L          I    MM   MM
 78185  //                                   G        A   A  M M M M L          I    M M M M
 78186  //                                   G  GGGG A     A M  M  M L          I    M  M  M
 78187  //                                   G     G AAAAAAA M     M L          I    M     M
 78188  //                                   G     G A     A M     M L          I    M     M
 78189  //                                    GGGGG  A     A M     M LLLLLLL   III   M     M
 78190  
 78191  
 78192  // VIF  THU 20 NOV 2025 22:19:48  ** GAMLIM                       ** DIAGNOSTICS                                      PAGE 01887
 78193  
 78194  
 78195  // VIF  THU 20 NOV 2025 22:19:48  ** GAMLIM                       ** GENERATED CODE                                   PAGE 01888
 78196  
 78197  int_4 _gamlim (real_4 _p_ xmin_, real_4 _p_ xmax_)
 78198  { // ** body not listed **
 78232  }
 78233  
 78234  // VIF  THU 20 NOV 2025 22:19:48  ** GAMLN                        ** GAMLN                                            PAGE 01889
 78235  
 78236  //                                   RRRRRR  EEEEEEE    A    L               4
 78237  //                                   R     R E         A A   L        *   *  4    4
 78238  //                                   R     R E        A   A  L         * *   4    4
 78239  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 78240  //                                   R   R   E       AAAAAAA L         * *        4
 78241  //                                   R    R  E       A     A L        *   *       4
 78242  //                                   R     R EEEEEEE A     A LLLLLLL              4
 78243  
 78244  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 78245  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 78246  //                           F       U     U N N   N C          T       I    O     O N N   N
 78247  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 78248  //                           F       U     U N   N N C          T       I    O     O N   N N
 78249  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 78250  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 78251  
 78252  //                                        GGGGG     A    M     M L       N     N
 78253  //                                       G     G   A A   MM   MM L       NN    N
 78254  //                                       G        A   A  M M M M L       N N   N
 78255  //                                       G  GGGG A     A M  M  M L       N  N  N
 78256  //                                       G     G AAAAAAA M     M L       N   N N
 78257  //                                       G     G A     A M     M L       N    NN
 78258  //                                        GGGGG  A     A M     M LLLLLLL N     N
 78259  
 78260  
 78261  // VIF  THU 20 NOV 2025 22:19:48  ** GAMLN                        ** DIAGNOSTICS                                      PAGE 01890
 78262  
 78263  
 78264  // VIF  THU 20 NOV 2025 22:19:48  ** GAMLN                        ** GENERATED CODE                                   PAGE 01891
 78265  
 78266  real_4 _gamln (real_4 _p_ z_, int_4 _p_ ierr_)
 78267  { // ** body not listed **
 79164  }
 79165  
 79166  // VIF  THU 20 NOV 2025 22:19:48  ** GAMR                         ** GAMR                                             PAGE 01909
 79167  
 79168  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 79169  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 79170  //                           F       U     U N N   N C          T       I    O     O N N   N
 79171  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 79172  //                           F       U     U N   N N C          T       I    O     O N   N N
 79173  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 79174  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 79175  
 79176  //                                            GGGGG     A    M     M RRRRRR
 79177  //                                           G     G   A A   MM   MM R     R
 79178  //                                           G        A   A  M M M M R     R
 79179  //                                           G  GGGG A     A M  M  M RRRRRR
 79180  //                                           G     G AAAAAAA M     M R   R
 79181  //                                           G     G A     A M     M R    R
 79182  //                                            GGGGG  A     A M     M R     R
 79183  
 79184  
 79185  // VIF  THU 20 NOV 2025 22:19:48  ** GAMR                         ** DIAGNOSTICS                                      PAGE 01910
 79186  
 79187  
 79188  // VIF  THU 20 NOV 2025 22:19:48  ** GAMR                         ** GENERATED CODE                                   PAGE 01911
 79189  
 79190  real_4 _gamr (real_4 _p_ x_)
 79191  { // ** body not listed **
 79216  }
 79217  
 79218  
 79219  // VIF  THU 20 NOV 2025 22:19:48  ** INITDS                       ** INITDS                                           PAGE 01912
 79220  
 79221  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 79222  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 79223  //                           F       U     U N N   N C          T       I    O     O N N   N
 79224  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 79225  //                           F       U     U N   N N C          T       I    O     O N   N N
 79226  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 79227  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 79228  
 79229  //                                     III   N     N   III   TTTTTTT DDDDDD   SSSSS
 79230  //                                      I    NN    N    I       T    D     D S     S
 79231  //                                      I    N N   N    I       T    D     D S
 79232  //                                      I    N  N  N    I       T    D     D  SSSSS
 79233  //                                      I    N   N N    I       T    D     D       S
 79234  //                                      I    N    NN    I       T    D     D S     S
 79235  //                                     III   N     N   III      T    DDDDDD   SSSSS
 79236  
 79237  
 79238  // VIF  THU 20 NOV 2025 22:19:48  ** INITDS                       ** DIAGNOSTICS                                      PAGE 01913
 79239  
 79240  
 79241  // VIF  THU 20 NOV 2025 22:19:48  ** INITDS                       ** GENERATED CODE                                   PAGE 01914
 79242  
 79243  int_4 _initds (real_8 _p_ os_, int_4 _p_ nos_, real_4 _p_ eta_)
 79244  { // ** body not listed **
 79266  }
 79267  
 79268  
 79269  // VIF  THU 20 NOV 2025 22:19:48  ** INITS                        ** INITS                                            PAGE 01915
 79270  
 79271  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 79272  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 79273  //                           F       U     U N N   N C          T       I    O     O N N   N
 79274  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 79275  //                           F       U     U N   N N C          T       I    O     O N   N N
 79276  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 79277  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 79278  
 79279  //                                         III   N     N   III   TTTTTTT  SSSSS
 79280  //                                          I    NN    N    I       T    S     S
 79281  //                                          I    N N   N    I       T    S
 79282  //                                          I    N  N  N    I       T     SSSSS
 79283  //                                          I    N   N N    I       T          S
 79284  //                                          I    N    NN    I       T    S     S
 79285  //                                         III   N     N   III      T     SSSSS
 79286  
 79287  
 79288  // VIF  THU 20 NOV 2025 22:19:48  ** INITS                        ** DIAGNOSTICS                                      PAGE 01916
 79289  
 79290  
 79291  // VIF  THU 20 NOV 2025 22:19:48  ** INITS                        ** GENERATED CODE                                   PAGE 01917
 79292  
 79293  int_4 _inits (real_4 _p_ os_, int_4 _p_ nos_, real_4 _p_ eta_)
 79294  { // ** body not listed **
 79316  }
 79317  
 79318  
 79319  // VIF  THU 20 NOV 2025 22:19:48  ** PFQAD                        ** PFQAD                                            PAGE 01918
 79320  
 79321  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 79322  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 79323  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 79324  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 79325  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 79326  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 79327  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 79328  
 79329  //                                       PPPPPP  FFFFFFF  QQQQQ     A    DDDDDD
 79330  //                                       P     P F       Q     Q   A A   D     D
 79331  //                                       P     P F       Q     Q  A   A  D     D
 79332  //                                       PPPPPP  FFFFF   Q     Q A     A D     D
 79333  //                                       P       F       Q   Q Q AAAAAAA D     D
 79334  //                                       P       F       Q    Q  A     A D     D
 79335  //                                       P       F        QQQQ Q A     A DDDDDD
 79336  
 79337  
 79338  // VIF  THU 20 NOV 2025 22:19:48  ** PFQAD                        ** DIAGNOSTICS                                      PAGE 01919
 79339  
 79340  
 79341  // VIF  THU 20 NOV 2025 22:19:48  ** PFQAD                        ** GENERATED CODE                                   PAGE 01920
 79342  
 79343  int_4 _pfqad (real_4 (*_f)(), int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, int_4 _p_ 
 79344  id_, real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_)
 79345  { // ** body not listed **
 79420  }
 79421  
 79422  // VIF  THU 20 NOV 2025 22:19:48  ** POCH1                        ** POCH1                                            PAGE 01922
 79423  
 79424  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 79425  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 79426  //                           F       U     U N N   N C          T       I    O     O N N   N
 79427  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 79428  //                           F       U     U N   N N C          T       I    O     O N   N N
 79429  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 79430  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 79431  
 79432  //                                        PPPPPP   OOOOO   CCCCC  H     H    1
 79433  //                                        P     P O     O C     C H     H   11
 79434  //                                        P     P O     O C       H     H  1 1
 79435  //                                        PPPPPP  O     O C       HHHHHHH    1
 79436  //                                        P       O     O C       H     H    1
 79437  //                                        P       O     O C     C H     H    1
 79438  //                                        P        OOOOO   CCCCC  H     H  11111
 79439  
 79440  
 79441  // VIF  THU 20 NOV 2025 22:19:48  ** POCH1                        ** DIAGNOSTICS                                      PAGE 01923
 79442  
 79443  
 79444  // VIF  THU 20 NOV 2025 22:19:48  ** POCH1                        ** GENERATED CODE                                   PAGE 01924
 79445  
 79446  real_4 _poch1 (real_4 _p_ a_, real_4 _p_ x_)
 79447  { // ** body not listed **
 79679  }
 79680  
 79681  
 79682  // VIF  THU 20 NOV 2025 22:19:48  ** POCH                         ** POCH                                             PAGE 01929
 79683  
 79684  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 79685  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 79686  //                           F       U     U N N   N C          T       I    O     O N N   N
 79687  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 79688  //                           F       U     U N   N N C          T       I    O     O N   N N
 79689  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 79690  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 79691  
 79692  //                                           PPPPPP   OOOOO   CCCCC  H     H
 79693  //                                           P     P O     O C     C H     H
 79694  //                                           P     P O     O C       H     H
 79695  //                                           PPPPPP  O     O C       HHHHHHH
 79696  //                                           P       O     O C       H     H
 79697  //                                           P       O     O C     C H     H
 79698  //                                           P        OOOOO   CCCCC  H     H
 79699  
 79700  
 79701  // VIF  THU 20 NOV 2025 22:19:48  ** POCH                         ** DIAGNOSTICS                                      PAGE 01930
 79702  
 79703  
 79704  // VIF  THU 20 NOV 2025 22:19:48  ** POCH                         ** GENERATED CODE                                   PAGE 01931
 79705  
 79706  real_4 _poch (real_4 _p_ a_, real_4 _p_ x_)
 79707  { // ** body not listed **
 79798  }
 79799  
 79800  
 79801  // VIF  THU 20 NOV 2025 22:19:48  ** PPQAD                        ** PPQAD                                            PAGE 01933
 79802  
 79803  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 79804  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 79805  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 79806  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 79807  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 79808  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 79809  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 79810  
 79811  //                                       PPPPPP  PPPPPP   QQQQQ     A    DDDDDD
 79812  //                                       P     P P     P Q     Q   A A   D     D
 79813  //                                       P     P P     P Q     Q  A   A  D     D
 79814  //                                       PPPPPP  PPPPPP  Q     Q A     A D     D
 79815  //                                       P       P       Q   Q Q AAAAAAA D     D
 79816  //                                       P       P       Q    Q  A     A D     D
 79817  //                                       P       P        QQQQ Q A     A DDDDDD
 79818  
 79819  
 79820  // VIF  THU 20 NOV 2025 22:19:48  ** PPQAD                        ** DIAGNOSTICS                                      PAGE 01934
 79821  
 79822  
 79823  // VIF  THU 20 NOV 2025 22:19:48  ** PPQAD                        ** GENERATED CODE                                   PAGE 01935
 79824  
 79825  int_4 _ppqad (int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, real_4 _p_ x1_, real_4 _p_ 
 79826  x2_, real_4 _p_ pquad_)
 79827  { // ** body not listed **
 79900  }
 79901  
 79902  // VIF  THU 20 NOV 2025 22:19:48  ** PPVAL                        ** PPVAL                                            PAGE 01937
 79903  
 79904  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 79905  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 79906  //                           F       U     U N N   N C          T       I    O     O N N   N
 79907  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 79908  //                           F       U     U N   N N C          T       I    O     O N   N N
 79909  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 79910  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 79911  
 79912  //                                       PPPPPP  PPPPPP  V     V    A    L
 79913  //                                       P     P P     P V     V   A A   L
 79914  //                                       P     P P     P V     V  A   A  L
 79915  //                                       PPPPPP  PPPPPP  V     V A     A L
 79916  //                                       P       P        V   V  AAAAAAA L
 79917  //                                       P       P         V V   A     A L
 79918  //                                       P       P          V    A     A LLLLLLL
 79919  
 79920  
 79921  // VIF  THU 20 NOV 2025 22:19:48  ** PPVAL                        ** DIAGNOSTICS                                      PAGE 01938
 79922  
 79923  
 79924  // VIF  THU 20 NOV 2025 22:19:48  ** PPVAL                        ** GENERATED CODE                                   PAGE 01939
 79925  
 79926  real_4 _ppval (int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, int_4 _p_ ideriv_, real_4 
 79927  _p_ x_, int_4 _p_ inppv_)
 79928  { // ** body not listed **
 79972  }
 79973  
 79974  
 79975  // VIF  THU 20 NOV 2025 22:19:48  ** PSI                          ** PSI                                              PAGE 01940
 79976  
 79977  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 79978  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 79979  //                           F       U     U N N   N C          T       I    O     O N N   N
 79980  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 79981  //                           F       U     U N   N N C          T       I    O     O N   N N
 79982  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 79983  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 79984  
 79985  //                                                PPPPPP   SSSSS    III
 79986  //                                                P     P S     S    I
 79987  //                                                P     P S          I
 79988  //                                                PPPPPP   SSSSS     I
 79989  //                                                P             S    I
 79990  //                                                P       S     S    I
 79991  //                                                P        SSSSS    III
 79992  
 79993  
 79994  // VIF  THU 20 NOV 2025 22:19:48  ** PSI                          ** DIAGNOSTICS                                      PAGE 01941
 79995  
 79996  
 79997  // VIF  THU 20 NOV 2025 22:19:48  ** PSI                          ** GENERATED CODE                                   PAGE 01942
 79998  
 79999  real_4 _psi (real_4 _p_ x_)
 80000  { // ** body not listed **
 80575  }
 80576  
 80577  
 80578  // VIF  THU 20 NOV 2025 22:19:48  ** R9AIMP                       ** R9AIMP                                           PAGE 01954
 80579  
 80580  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 80581  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 80582  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 80583  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 80584  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 80585  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 80586  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 80587  
 80588  //                                   RRRRRR   99999     A      III   M     M PPPPPP
 80589  //                                   R     R 9     9   A A      I    MM   MM P     P
 80590  //                                   R     R 9     9  A   A     I    M M M M P     P
 80591  //                                   RRRRRR   999999 A     A    I    M  M  M PPPPPP
 80592  //                                   R   R         9 AAAAAAA    I    M     M P
 80593  //                                   R    R  9     9 A     A    I    M     M P
 80594  //                                   R     R  99999  A     A   III   M     M P
 80595  
 80596  
 80597  // VIF  THU 20 NOV 2025 22:19:48  ** R9AIMP                       ** DIAGNOSTICS                                      PAGE 01955
 80598  
 80599  
 80600  // VIF  THU 20 NOV 2025 22:19:48  ** R9AIMP                       ** GENERATED CODE                                   PAGE 01956
 80601  
 80602  int_4 _r9aimp (real_4 _p_ x_, real_4 _p_ ampl_, real_4 _p_ theta_)
 80603  { // ** body not listed **
 82445  }
 82446  
 82447  // VIF  THU 20 NOV 2025 22:19:48  ** R9ATN1                       ** R9ATN1                                           PAGE 01992
 82448  
 82449  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 82450  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 82451  //                           F       U     U N N   N C          T       I    O     O N N   N
 82452  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 82453  //                           F       U     U N   N N C          T       I    O     O N   N N
 82454  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 82455  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 82456  
 82457  //                                    RRRRRR   99999     A    TTTTTTT N     N    1
 82458  //                                    R     R 9     9   A A      T    NN    N   11
 82459  //                                    R     R 9     9  A   A     T    N N   N  1 1
 82460  //                                    RRRRRR   999999 A     A    T    N  N  N    1
 82461  //                                    R   R         9 AAAAAAA    T    N   N N    1
 82462  //                                    R    R  9     9 A     A    T    N    NN    1
 82463  //                                    R     R  99999  A     A    T    N     N  11111
 82464  
 82465  
 82466  // VIF  THU 20 NOV 2025 22:19:48  ** R9ATN1                       ** DIAGNOSTICS                                      PAGE 01993
 82467  
 82468  
 82469  // VIF  THU 20 NOV 2025 22:19:48  ** R9ATN1                       ** GENERATED CODE                                   PAGE 01994
 82470  
 82471  real_4 _r9atn1 (real_4 _p_ x_)
 82472  { // ** body not listed **
 82788  }
 82789  
 82790  
 82791  // VIF  THU 20 NOV 2025 22:19:48  ** R9CHU                        ** R9CHU                                            PAGE 02001
 82792  
 82793  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 82794  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 82795  //                           F       U     U N N   N C          T       I    O     O N N   N
 82796  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 82797  //                           F       U     U N   N N C          T       I    O     O N   N N
 82798  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 82799  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 82800  
 82801  //                                       RRRRRR   99999   CCCCC  H     H U     U
 82802  //                                       R     R 9     9 C     C H     H U     U
 82803  //                                       R     R 9     9 C       H     H U     U
 82804  //                                       RRRRRR   999999 C       HHHHHHH U     U
 82805  //                                       R   R         9 C       H     H U     U
 82806  //                                       R    R  9     9 C     C H     H U     U
 82807  //                                       R     R  99999   CCCCC  H     H  UUUUU
 82808  
 82809  
 82810  // VIF  THU 20 NOV 2025 22:19:48  ** R9CHU                        ** DIAGNOSTICS                                      PAGE 02002
 82811  
 82812  
 82813  // VIF  THU 20 NOV 2025 22:19:48  ** R9CHU                        ** GENERATED CODE                                   PAGE 02003
 82814  
 82815  real_4 _r9chu (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ z_)
 82816  { // ** body not listed **
 82884  }
 82885  
 82886  
 82887  // VIF  THU 20 NOV 2025 22:19:48  ** R9GMIC                       ** R9GMIC                                           PAGE 02005
 82888  
 82889  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 82890  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 82891  //                           F       U     U N N   N C          T       I    O     O N N   N
 82892  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 82893  //                           F       U     U N   N N C          T       I    O     O N   N N
 82894  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 82895  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 82896  
 82897  //                                   RRRRRR   99999   GGGGG  M     M   III    CCCCC
 82898  //                                   R     R 9     9 G     G MM   MM    I    C     C
 82899  //                                   R     R 9     9 G       M M M M    I    C
 82900  //                                   RRRRRR   999999 G  GGGG M  M  M    I    C
 82901  //                                   R   R         9 G     G M     M    I    C
 82902  //                                   R    R  9     9 G     G M     M    I    C     C
 82903  //                                   R     R  99999   GGGGG  M     M   III    CCCCC
 82904  
 82905  
 82906  // VIF  THU 20 NOV 2025 22:19:48  ** R9GMIC                       ** DIAGNOSTICS                                      PAGE 02006
 82907  
 82908  
 82909  // VIF  THU 20 NOV 2025 22:19:48  ** R9GMIC                       ** GENERATED CODE                                   PAGE 02007
 82910  
 82911  real_4 _r9gmic (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ alx_)
 82912  { // ** body not listed **
 83025  }
 83026  
 83027  
 83028  // VIF  THU 20 NOV 2025 22:19:48  ** R9GMIT                       ** R9GMIT                                           PAGE 02010
 83029  
 83030  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 83031  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 83032  //                           F       U     U N N   N C          T       I    O     O N N   N
 83033  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 83034  //                           F       U     U N   N N C          T       I    O     O N   N N
 83035  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 83036  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 83037  
 83038  //                                   RRRRRR   99999   GGGGG  M     M   III   TTTTTTT
 83039  //                                   R     R 9     9 G     G MM   MM    I       T
 83040  //                                   R     R 9     9 G       M M M M    I       T
 83041  //                                   RRRRRR   999999 G  GGGG M  M  M    I       T
 83042  //                                   R   R         9 G     G M     M    I       T
 83043  //                                   R    R  9     9 G     G M     M    I       T
 83044  //                                   R     R  99999   GGGGG  M     M   III      T
 83045  
 83046  
 83047  // VIF  THU 20 NOV 2025 22:19:48  ** R9GMIT                       ** DIAGNOSTICS                                      PAGE 02011
 83048  
 83049  
 83050  // VIF  THU 20 NOV 2025 22:19:48  ** R9GMIT                       ** GENERATED CODE                                   PAGE 02012
 83051  
 83052  real_4 _r9gmit (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ algap1_, real_4 _p_ sgngam_, real_4 _p_ alx_)
 83053  { // ** body not listed **
 83150  }
 83151  
 83152  
 83153  // VIF  THU 20 NOV 2025 22:19:48  ** R9KNUS                       ** R9KNUS                                           PAGE 02014
 83154  
 83155  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 83156  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 83157  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 83158  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 83159  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 83160  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 83161  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 83162  
 83163  //                                   RRRRRR   99999  K    K  N     N U     U  SSSSS
 83164  //                                   R     R 9     9 K   K   NN    N U     U S     S
 83165  //                                   R     R 9     9 K  K    N N   N U     U S
 83166  //                                   RRRRRR   999999 KKK     N  N  N U     U  SSSSS
 83167  //                                   R   R         9 K  K    N   N N U     U       S
 83168  //                                   R    R  9     9 K   K   N    NN U     U S     S
 83169  //                                   R     R  99999  K    K  N     N  UUUUU   SSSSS
 83170  
 83171  
 83172  // VIF  THU 20 NOV 2025 22:19:48  ** R9KNUS                       ** DIAGNOSTICS                                      PAGE 02015
 83173  
 83174  
 83175  // VIF  THU 20 NOV 2025 22:19:48  ** R9KNUS                       ** GENERATED CODE                                   PAGE 02016
 83176  
 83177  int_4 _r9knus (real_4 _p_ xnu_, real_4 _p_ x_, real_4 _p_ bknu_, real_4 _p_ bknu1_, int_4 _p_ iswtch_)
 83178  { // ** body not listed **
 83749  }
 83750  
 83751  // VIF  THU 20 NOV 2025 22:19:48  ** R9LGIC                       ** R9LGIC                                           PAGE 02028
 83752  
 83753  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 83754  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 83755  //                           F       U     U N N   N C          T       I    O     O N N   N
 83756  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 83757  //                           F       U     U N   N N C          T       I    O     O N   N N
 83758  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 83759  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 83760  
 83761  //                                   RRRRRR   99999  L        GGGGG    III    CCCCC
 83762  //                                   R     R 9     9 L       G     G    I    C     C
 83763  //                                   R     R 9     9 L       G          I    C
 83764  //                                   RRRRRR   999999 L       G  GGGG    I    C
 83765  //                                   R   R         9 L       G     G    I    C
 83766  //                                   R    R  9     9 L       G     G    I    C     C
 83767  //                                   R     R  99999  LLLLLLL  GGGGG    III    CCCCC
 83768  
 83769  
 83770  // VIF  THU 20 NOV 2025 22:19:48  ** R9LGIC                       ** DIAGNOSTICS                                      PAGE 02029
 83771  
 83772  
 83773  // VIF  THU 20 NOV 2025 22:19:48  ** R9LGIC                       ** GENERATED CODE                                   PAGE 02030
 83774  
 83775  real_4 _r9lgic (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ alx_)
 83776  { // ** body not listed **
 83816  }
 83817  
 83818  
 83819  // VIF  THU 20 NOV 2025 22:19:48  ** R9LGIT                       ** R9LGIT                                           PAGE 02031
 83820  
 83821  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 83822  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 83823  //                           F       U     U N N   N C          T       I    O     O N N   N
 83824  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 83825  //                           F       U     U N   N N C          T       I    O     O N   N N
 83826  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 83827  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 83828  
 83829  //                                   RRRRRR   99999  L        GGGGG    III   TTTTTTT
 83830  //                                   R     R 9     9 L       G     G    I       T
 83831  //                                   R     R 9     9 L       G          I       T
 83832  //                                   RRRRRR   999999 L       G  GGGG    I       T
 83833  //                                   R   R         9 L       G     G    I       T
 83834  //                                   R    R  9     9 L       G     G    I       T
 83835  //                                   R     R  99999  LLLLLLL  GGGGG    III      T
 83836  
 83837  
 83838  // VIF  THU 20 NOV 2025 22:19:48  ** R9LGIT                       ** DIAGNOSTICS                                      PAGE 02032
 83839  
 83840  
 83841  // VIF  THU 20 NOV 2025 22:19:48  ** R9LGIT                       ** GENERATED CODE                                   PAGE 02033
 83842  
 83843  real_4 _r9lgit (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ algap1_)
 83844  { // ** body not listed **
 83902  }
 83903  
 83904  
 83905  // VIF  THU 20 NOV 2025 22:19:48  ** R9LGMC                       ** R9LGMC                                           PAGE 02035
 83906  
 83907  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 83908  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 83909  //                           F       U     U N N   N C          T       I    O     O N N   N
 83910  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 83911  //                           F       U     U N   N N C          T       I    O     O N   N N
 83912  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 83913  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 83914  
 83915  //                                   RRRRRR   99999  L        GGGGG  M     M  CCCCC
 83916  //                                   R     R 9     9 L       G     G MM   MM C     C
 83917  //                                   R     R 9     9 L       G       M M M M C
 83918  //                                   RRRRRR   999999 L       G  GGGG M  M  M C
 83919  //                                   R   R         9 L       G     G M     M C
 83920  //                                   R    R  9     9 L       G     G M     M C     C
 83921  //                                   R     R  99999  LLLLLLL  GGGGG  M     M  CCCCC
 83922  
 83923  
 83924  // VIF  THU 20 NOV 2025 22:19:48  ** R9LGMC                       ** DIAGNOSTICS                                      PAGE 02036
 83925  
 83926  
 83927  // VIF  THU 20 NOV 2025 22:19:48  ** R9LGMC                       ** GENERATED CODE                                   PAGE 02037
 83928  
 83929  real_4 _r9lgmc (real_4 _p_ x_)
 83930  { // ** body not listed **
 84049  }
 84050  
 84051  
 84052  // VIF  THU 20 NOV 2025 22:19:48  ** R9LN2R                       ** R9LN2R                                           PAGE 02040
 84053  
 84054  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 84055  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 84056  //                           F       U     U N N   N C          T       I    O     O N N   N
 84057  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 84058  //                           F       U     U N   N N C          T       I    O     O N   N N
 84059  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 84060  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 84061  
 84062  //                                   RRRRRR   99999  L       N     N  22222  RRRRRR
 84063  //                                   R     R 9     9 L       NN    N 2     2 R     R
 84064  //                                   R     R 9     9 L       N N   N       2 R     R
 84065  //                                   RRRRRR   999999 L       N  N  N  22222  RRRRRR
 84066  //                                   R   R         9 L       N   N N 2       R   R
 84067  //                                   R    R  9     9 L       N    NN 2       R    R
 84068  //                                   R     R  99999  LLLLLLL N     N 2222222 R     R
 84069  
 84070  
 84071  // VIF  THU 20 NOV 2025 22:19:48  ** R9LN2R                       ** DIAGNOSTICS                                      PAGE 02041
 84072  
 84073  
 84074  // VIF  THU 20 NOV 2025 22:19:48  ** R9LN2R                       ** GENERATED CODE                                   PAGE 02042
 84075  
 84076  real_4 _r9ln2r (real_4 _p_ x_)
 84077  { // ** body not listed **
 84714  }
 84715  
 84716  
 84717  // VIF  THU 20 NOV 2025 22:19:48  ** R9PAK                        ** R9PAK                                            PAGE 02055
 84718  
 84719  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 84720  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 84721  //                           F       U     U N N   N C          T       I    O     O N N   N
 84722  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 84723  //                           F       U     U N   N N C          T       I    O     O N   N N
 84724  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 84725  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 84726  
 84727  //                                        RRRRRR   99999  PPPPPP     A    K    K
 84728  //                                        R     R 9     9 P     P   A A   K   K
 84729  //                                        R     R 9     9 P     P  A   A  K  K
 84730  //                                        RRRRRR   999999 PPPPPP  A     A KKK
 84731  //                                        R   R         9 P       AAAAAAA K  K
 84732  //                                        R    R  9     9 P       A     A K   K
 84733  //                                        R     R  99999  P       A     A K    K
 84734  
 84735  
 84736  // VIF  THU 20 NOV 2025 22:19:48  ** R9PAK                        ** DIAGNOSTICS                                      PAGE 02056
 84737  
 84738  
 84739  // VIF  THU 20 NOV 2025 22:19:48  ** R9PAK                        ** GENERATED CODE                                   PAGE 02057
 84740  
 84741  real_4 _r9pak (real_4 _p_ y_, int_4 _p_ n_)
 84742  { // ** body not listed **
 84818  }
 84819  
 84820  
 84821  // VIF  THU 20 NOV 2025 22:19:48  ** R9UPAK                       ** R9UPAK                                           PAGE 02059
 84822  
 84823  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 84824  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 84825  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 84826  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 84827  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 84828  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 84829  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 84830  
 84831  //                                    RRRRRR   99999  U     U PPPPPP     A    K    K
 84832  //                                    R     R 9     9 U     U P     P   A A   K   K
 84833  //                                    R     R 9     9 U     U P     P  A   A  K  K
 84834  //                                    RRRRRR   999999 U     U PPPPPP  A     A KKK
 84835  //                                    R   R         9 U     U P       AAAAAAA K  K
 84836  //                                    R    R  9     9 U     U P       A     A K   K
 84837  //                                    R     R  99999   UUUUU  P       A     A K    K
 84838  
 84839  
 84840  // VIF  THU 20 NOV 2025 22:19:48  ** R9UPAK                       ** DIAGNOSTICS                                      PAGE 02060
 84841  
 84842  
 84843  // VIF  THU 20 NOV 2025 22:19:48  ** R9UPAK                       ** GENERATED CODE                                   PAGE 02061
 84844  
 84845  int_4 _r9upak (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ n_)
 84846  { // ** body not listed **
 84871  }
 84872  
 84873  // VIF  THU 20 NOV 2025 22:19:48  ** RAND                         ** RAND                                             PAGE 02062
 84874  
 84875  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 84876  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 84877  //                           F       U     U N N   N C          T       I    O     O N N   N
 84878  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 84879  //                           F       U     U N   N N C          T       I    O     O N   N N
 84880  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 84881  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 84882  
 84883  //                                           RRRRRR     A    N     N DDDDDD
 84884  //                                           R     R   A A   NN    N D     D
 84885  //                                           R     R  A   A  N N   N D     D
 84886  //                                           RRRRRR  A     A N  N  N D     D
 84887  //                                           R   R   AAAAAAA N   N N D     D
 84888  //                                           R    R  A     A N    NN D     D
 84889  //                                           R     R A     A N     N DDDDDD
 84890  
 84891  
 84892  // VIF  THU 20 NOV 2025 22:19:48  ** RAND                         ** DIAGNOSTICS                                      PAGE 02063
 84893  
 84894  
 84895  // VIF  THU 20 NOV 2025 22:19:48  ** RAND                         ** GENERATED CODE                                   PAGE 02064
 84896  
 84897  real_4 _rand (real_4 _p_ r_)
 84898  { // ** body not listed **
 84982  }
 84983  
 84984  
 84985  // VIF  THU 20 NOV 2025 22:19:48  ** RGAUSS                       ** RGAUSS                                           PAGE 02066
 84986  
 84987  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 84988  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 84989  //                           F       U     U N N   N C          T       I    O     O N N   N
 84990  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 84991  //                           F       U     U N   N N C          T       I    O     O N   N N
 84992  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 84993  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 84994  
 84995  //                                   RRRRRR   GGGGG     A    U     U  SSSSS   SSSSS
 84996  //                                   R     R G     G   A A   U     U S     S S     S
 84997  //                                   R     R G        A   A  U     U S       S
 84998  //                                   RRRRRR  G  GGGG A     A U     U  SSSSS   SSSSS
 84999  //                                   R   R   G     G AAAAAAA U     U       S       S
 85000  //                                   R    R  G     G A     A U     U S     S S     S
 85001  //                                   R     R  GGGGG  A     A  UUUUU   SSSSS   SSSSS
 85002  
 85003  
 85004  // VIF  THU 20 NOV 2025 22:19:48  ** RGAUSS                       ** DIAGNOSTICS                                      PAGE 02067
 85005  
 85006  
 85007  // VIF  THU 20 NOV 2025 22:19:48  ** RGAUSS                       ** GENERATED CODE                                   PAGE 02068
 85008  
 85009  real_4 _rgauss (real_4 _p_ xmean_, real_4 _p_ sd_)
 85010  { // ** body not listed **
 85021  }
 85022  
 85023  
 85024  // VIF  THU 20 NOV 2025 22:19:48  ** RUNIF                        ** RUNIF                                            PAGE 02069
 85025  
 85026  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 85027  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 85028  //                           F       U     U N N   N C          T       I    O     O N N   N
 85029  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 85030  //                           F       U     U N   N N C          T       I    O     O N   N N
 85031  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 85032  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 85033  
 85034  //                                       RRRRRR  U     U N     N   III   FFFFFFF
 85035  //                                       R     R U     U NN    N    I    F
 85036  //                                       R     R U     U N N   N    I    F
 85037  //                                       RRRRRR  U     U N  N  N    I    FFFFF
 85038  //                                       R   R   U     U N   N N    I    F
 85039  //                                       R    R  U     U N    NN    I    F
 85040  //                                       R     R  UUUUU  N     N   III   F
 85041  
 85042  
 85043  // VIF  THU 20 NOV 2025 22:19:48  ** RUNIF                        ** DIAGNOSTICS                                      PAGE 02070
 85044  
 85045  
 85046  // VIF  THU 20 NOV 2025 22:19:48  ** RUNIF                        ** GENERATED CODE                                   PAGE 02071
 85047  
 85048  real_4 _runif (real_4 _p_ t_, int_4 _p_ n_)
 85049  { // ** body not listed **
 85088  }
 85089  
 85090  
 85091  // VIF  THU 20 NOV 2025 22:19:48  ** SINDG                        ** SINDG                                            PAGE 02072
 85092  
 85093  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 85094  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 85095  //                           F       U     U N N   N C          T       I    O     O N N   N
 85096  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 85097  //                           F       U     U N   N N C          T       I    O     O N   N N
 85098  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 85099  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 85100  
 85101  //                                        SSSSS    III   N     N DDDDDD   GGGGG
 85102  //                                       S     S    I    NN    N D     D G     G
 85103  //                                       S          I    N N   N D     D G
 85104  //                                        SSSSS     I    N  N  N D     D G  GGGG
 85105  //                                             S    I    N   N N D     D G     G
 85106  //                                       S     S    I    N    NN D     D G     G
 85107  //                                        SSSSS    III   N     N DDDDDD   GGGGG
 85108  
 85109  
 85110  // VIF  THU 20 NOV 2025 22:19:48  ** SINDG                        ** DIAGNOSTICS                                      PAGE 02073
 85111  
 85112  
 85113  // VIF  THU 20 NOV 2025 22:19:48  ** SINDG                        ** GENERATED CODE                                   PAGE 02074
 85114  
 85115  real_4 _sindg (real_4 _p_ x_)
 85116  { // ** body not listed **
 85147  }
 85148  
 85149  
 85150  // VIF  THU 20 NOV 2025 22:19:48  ** SPENC                        ** SPENC                                            PAGE 02075
 85151  
 85152  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 85153  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 85154  //                           F       U     U N N   N C          T       I    O     O N N   N
 85155  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 85156  //                           F       U     U N   N N C          T       I    O     O N   N N
 85157  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 85158  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 85159  
 85160  //                                        SSSSS  PPPPPP  EEEEEEE N     N  CCCCC
 85161  //                                       S     S P     P E       NN    N C     C
 85162  //                                       S       P     P E       N N   N C
 85163  //                                        SSSSS  PPPPPP  EEEEE   N  N  N C
 85164  //                                             S P       E       N   N N C
 85165  //                                       S     S P       E       N    NN C     C
 85166  //                                        SSSSS  P       EEEEEEE N     N  CCCCC
 85167  
 85168  
 85169  // VIF  THU 20 NOV 2025 22:19:48  ** SPENC                        ** DIAGNOSTICS                                      PAGE 02076
 85170  
 85171  
 85172  // VIF  THU 20 NOV 2025 22:19:48  ** SPENC                        ** GENERATED CODE                                   PAGE 02077
 85173  
 85174  real_4 _spenc (real_4 _p_ x_)
 85175  { // ** body not listed **
 85500  }
 85501  
 85502  
 85503  // VIF  THU 20 NOV 2025 22:19:48  ** ZABS                         ** ZABS                                             PAGE 02084
 85504  
 85505  //                                   RRRRRR  EEEEEEE    A    L                88888
 85506  //                                   R     R E         A A   L        *   *  8     8
 85507  //                                   R     R E        A   A  L         * *   8     8
 85508  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 85509  //                                   R   R   E       AAAAAAA L         * *   8     8
 85510  //                                   R    R  E       A     A L        *   *  8     8
 85511  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 85512  
 85513  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 85514  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 85515  //                           F       U     U N N   N C          T       I    O     O N N   N
 85516  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 85517  //                           F       U     U N   N N C          T       I    O     O N   N N
 85518  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 85519  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 85520  
 85521  //                                           ZZZZZZZ    A    BBBBBB   SSSSS
 85522  //                                                Z    A A   B     B S     S
 85523  //                                               Z    A   A  B     B S
 85524  //                                              Z    A     A BBBBBB   SSSSS
 85525  //                                             Z     AAAAAAA B     B       S
 85526  //                                            *      A     A B     B S     S
 85527  //                                           ZZZZZZZ A     A BBBBBB   SSSSS
 85528  
 85529  
 85530  // VIF  THU 20 NOV 2025 22:19:48  ** ZABS                         ** DIAGNOSTICS                                      PAGE 02085
 85531  
 85532  
 85533  // VIF  THU 20 NOV 2025 22:19:48  ** ZABS                         ** GENERATED CODE                                   PAGE 02086
 85534  
 85535  real_8 _zabs (real_8 _p_ zr_, real_8 _p_ zi_)
 85536  { // ** body not listed **
 85561  }
 85562  
 85563  // VIF  THU 20 NOV 2025 22:19:48  ** ZACAI                        ** ZACAI                                            PAGE 02087
 85564  
 85565  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 85566  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 85567  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 85568  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 85569  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 85570  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 85571  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 85572  
 85573  //                                        ZZZZZZZ    A     CCCCC     A      III
 85574  //                                             Z    A A   C     C   A A      I
 85575  //                                            Z    A   A  C        A   A     I
 85576  //                                           Z    A     A C       A     A    I
 85577  //                                          Z     AAAAAAA C       AAAAAAA    I
 85578  //                                         *      A     A C     C A     A    I
 85579  //                                        ZZZZZZZ A     A  CCCCC  A     A   III
 85580  
 85581  
 85582  // VIF  THU 20 NOV 2025 22:19:48  ** ZACAI                        ** DIAGNOSTICS                                      PAGE 02088
 85583  
 85584  
 85585  // VIF  THU 20 NOV 2025 22:19:48  ** ZACAI                        ** GENERATED CODE                                   PAGE 02089
 85586  
 85587  int_4 _zacai (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, real_8 _p_ 
 85588  yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 85589  { // ** body not listed **
 85687  }
 85688  
 85689  // VIF  THU 20 NOV 2025 22:19:48  ** ZACON                        ** ZACON                                            PAGE 02091
 85690  
 85691  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 85692  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 85693  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 85694  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 85695  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 85696  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 85697  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 85698  
 85699  //                                       ZZZZZZZ    A     CCCCC   OOOOO  N     N
 85700  //                                            Z    A A   C     C O     O NN    N
 85701  //                                           Z    A   A  C       O     O N N   N
 85702  //                                          Z    A     A C       O     O N  N  N
 85703  //                                         Z     AAAAAAA C       O     O N   N N
 85704  //                                        *      A     A C     C O     O N    NN
 85705  //                                       ZZZZZZZ A     A  CCCCC   OOOOO  N     N
 85706  
 85707  
 85708  // VIF  THU 20 NOV 2025 22:19:48  ** ZACON                        ** DIAGNOSTICS                                      PAGE 02092
 85709  
 85710  
 85711  // VIF  THU 20 NOV 2025 22:19:48  ** ZACON                        ** GENERATED CODE                                   PAGE 02093
 85712  
 85713  int_4 _zacon (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, real_8 _p_ 
 85714  yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ 
 85715  alim_)
 85716  { // ** body not listed **
 85960  }
 85961  
 85962  // VIF  THU 20 NOV 2025 22:19:48  ** ZAIRY                        ** ZAIRY                                            PAGE 02098
 85963  
 85964  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 85965  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 85966  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 85967  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 85968  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 85969  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 85970  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 85971  
 85972  //                                       ZZZZZZZ    A      III   RRRRRR  Y     Y
 85973  //                                            Z    A A      I    R     R  Y   Y
 85974  //                                           Z    A   A     I    R     R   Y Y
 85975  //                                          Z    A     A    I    RRRRRR     Y
 85976  //                                         Z     AAAAAAA    I    R   R      Y
 85977  //                                        *      A     A    I    R    R     Y
 85978  //                                       ZZZZZZZ A     A   III   R     R    Y
 85979  
 85980  
 85981  // VIF  THU 20 NOV 2025 22:19:48  ** ZAIRY                        ** DIAGNOSTICS                                      PAGE 02099
 85982  
 85983  
 85984  // VIF  THU 20 NOV 2025 22:19:48  ** ZAIRY                        ** GENERATED CODE                                   PAGE 02100
 85985  
 85986  int_4 _zairy (real_8 _p_ zr_, real_8 _p_ zi_, int_4 _p_ id_, int_4 _p_ kode_, real_8 _p_ air_, real_8 _p_ aii_, int_4 
 85987  _p_ nz_, int_4 _p_ ierr_)
 85988  { // ** body not listed **
 86354  }
 86355  
 86356  // VIF  THU 20 NOV 2025 22:19:48  ** ZASYI                        ** ZASYI                                            PAGE 02108
 86357  
 86358  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 86359  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 86360  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 86361  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 86362  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 86363  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 86364  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 86365  
 86366  //                                        ZZZZZZZ    A     SSSSS  Y     Y   III
 86367  //                                             Z    A A   S     S  Y   Y     I
 86368  //                                            Z    A   A  S         Y Y      I
 86369  //                                           Z    A     A  SSSSS     Y       I
 86370  //                                          Z     AAAAAAA       S    Y       I
 86371  //                                         *      A     A S     S    Y       I
 86372  //                                        ZZZZZZZ A     A  SSSSS     Y      III
 86373  
 86374  
 86375  // VIF  THU 20 NOV 2025 22:19:48  ** ZASYI                        ** DIAGNOSTICS                                      PAGE 02109
 86376  
 86377  
 86378  // VIF  THU 20 NOV 2025 22:19:48  ** ZASYI                        ** GENERATED CODE                                   PAGE 02110
 86379  
 86380  int_4 _zasyi (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 86381  _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 86382  { // ** body not listed **
 86599  }
 86600  
 86601  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESH                        ** ZBESH                                            PAGE 02115
 86602  
 86603  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 86604  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 86605  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 86606  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 86607  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 86608  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 86609  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 86610  
 86611  //                                       ZZZZZZZ BBBBBB  EEEEEEE  SSSSS  H     H
 86612  //                                            Z  B     B E       S     S H     H
 86613  //                                           Z   B     B E       S       H     H
 86614  //                                          Z    BBBBBB  EEEEE    SSSSS  HHHHHHH
 86615  //                                         Z     B     B E             S H     H
 86616  //                                        *      B     B E       S     S H     H
 86617  //                                       ZZZZZZZ BBBBBB  EEEEEEE  SSSSS  H     H
 86618  
 86619  
 86620  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESH                        ** DIAGNOSTICS                                      PAGE 02116
 86621  
 86622  
 86623  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESH                        ** GENERATED CODE                                   PAGE 02117
 86624  
 86625  int_4 _zbesh (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ 
 86626  cyr_, real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
 86627  { // ** body not listed **
 86833  }
 86834  
 86835  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESI                        ** ZBESI                                            PAGE 02122
 86836  
 86837  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 86838  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 86839  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 86840  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 86841  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 86842  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 86843  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 86844  
 86845  //                                        ZZZZZZZ BBBBBB  EEEEEEE  SSSSS    III
 86846  //                                             Z  B     B E       S     S    I
 86847  //                                            Z   B     B E       S          I
 86848  //                                           Z    BBBBBB  EEEEE    SSSSS     I
 86849  //                                          Z     B     B E             S    I
 86850  //                                         *      B     B E       S     S    I
 86851  //                                        ZZZZZZZ BBBBBB  EEEEEEE  SSSSS    III
 86852  
 86853  
 86854  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESI                        ** DIAGNOSTICS                                      PAGE 02123
 86855  
 86856  
 86857  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESI                        ** GENERATED CODE                                   PAGE 02124
 86858  
 86859  int_4 _zbesi (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 
 86860  _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
 86861  { // ** body not listed **
 87020  }
 87021  
 87022  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESJ                        ** ZBESJ                                            PAGE 02128
 87023  
 87024  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 87025  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 87026  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 87027  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 87028  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 87029  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 87030  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 87031  
 87032  //                                       ZZZZZZZ BBBBBB  EEEEEEE  SSSSS        J
 87033  //                                            Z  B     B E       S     S       J
 87034  //                                           Z   B     B E       S             J
 87035  //                                          Z    BBBBBB  EEEEE    SSSSS        J
 87036  //                                         Z     B     B E             S J     J
 87037  //                                        *      B     B E       S     S J     J
 87038  //                                       ZZZZZZZ BBBBBB  EEEEEEE  SSSSS   JJJJJ
 87039  
 87040  
 87041  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESJ                        ** DIAGNOSTICS                                      PAGE 02129
 87042  
 87043  
 87044  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESJ                        ** GENERATED CODE                                   PAGE 02130
 87045  
 87046  int_4 _zbesj (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 
 87047  _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
 87048  { // ** body not listed **
 87186  }
 87187  
 87188  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESK                        ** ZBESK                                            PAGE 02133
 87189  
 87190  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 87191  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 87192  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 87193  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 87194  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 87195  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 87196  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 87197  
 87198  //                                        ZZZZZZZ BBBBBB  EEEEEEE  SSSSS  K    K
 87199  //                                             Z  B     B E       S     S K   K
 87200  //                                            Z   B     B E       S       K  K
 87201  //                                           Z    BBBBBB  EEEEE    SSSSS  KKK
 87202  //                                          Z     B     B E             S K  K
 87203  //                                         *      B     B E       S     S K   K
 87204  //                                        ZZZZZZZ BBBBBB  EEEEEEE  SSSSS  K    K
 87205  
 87206  
 87207  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESK                        ** DIAGNOSTICS                                      PAGE 02134
 87208  
 87209  
 87210  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESK                        ** GENERATED CODE                                   PAGE 02135
 87211  
 87212  int_4 _zbesk (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 
 87213  _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
 87214  { // ** body not listed **
 87369  }
 87370  
 87371  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESY                        ** ZBESY                                            PAGE 02139
 87372  
 87373  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 87374  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 87375  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 87376  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 87377  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 87378  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 87379  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 87380  
 87381  //                                       ZZZZZZZ BBBBBB  EEEEEEE  SSSSS  Y     Y
 87382  //                                            Z  B     B E       S     S  Y   Y
 87383  //                                           Z   B     B E       S         Y Y
 87384  //                                          Z    BBBBBB  EEEEE    SSSSS     Y
 87385  //                                         Z     B     B E             S    Y
 87386  //                                        *      B     B E       S     S    Y
 87387  //                                       ZZZZZZZ BBBBBB  EEEEEEE  SSSSS     Y
 87388  
 87389  
 87390  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESY                        ** DIAGNOSTICS                                      PAGE 02140
 87391  
 87392  
 87393  // VIF  THU 20 NOV 2025 22:19:48  ** ZBESY                        ** GENERATED CODE                                   PAGE 02141
 87394  
 87395  int_4 _zbesy (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 
 87396  _p_ cyi_, int_4 _p_ nz_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_, int_4 _p_ ierr_)
 87397  { // ** body not listed **
 87513  }
 87514  
 87515  // VIF  THU 20 NOV 2025 22:19:48  ** ZBINU                        ** ZBINU                                            PAGE 02144
 87516  
 87517  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 87518  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 87519  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 87520  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 87521  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 87522  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 87523  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 87524  
 87525  //                                       ZZZZZZZ BBBBBB    III   N     N U     U
 87526  //                                            Z  B     B    I    NN    N U     U
 87527  //                                           Z   B     B    I    N N   N U     U
 87528  //                                          Z    BBBBBB     I    N  N  N U     U
 87529  //                                         Z     B     B    I    N   N N U     U
 87530  //                                        *      B     B    I    N    NN U     U
 87531  //                                       ZZZZZZZ BBBBBB    III   N     N  UUUUU
 87532  
 87533  
 87534  // VIF  THU 20 NOV 2025 22:19:48  ** ZBINU                        ** DIAGNOSTICS                                      PAGE 02145
 87535  
 87536  
 87537  // VIF  THU 20 NOV 2025 22:19:48  ** ZBINU                        ** GENERATED CODE                                   PAGE 02146
 87538  
 87539  int_4 _zbinu (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 
 87540  _p_ cyi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 87541  { // ** body not listed **
 87679  }
 87680  
 87681  // VIF  THU 20 NOV 2025 22:19:48  ** ZBIRY                        ** ZBIRY                                            PAGE 02149
 87682  
 87683  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 87684  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 87685  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 87686  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 87687  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 87688  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 87689  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 87690  
 87691  //                                       ZZZZZZZ BBBBBB    III   RRRRRR  Y     Y
 87692  //                                            Z  B     B    I    R     R  Y   Y
 87693  //                                           Z   B     B    I    R     R   Y Y
 87694  //                                          Z    BBBBBB     I    RRRRRR     Y
 87695  //                                         Z     B     B    I    R   R      Y
 87696  //                                        *      B     B    I    R    R     Y
 87697  //                                       ZZZZZZZ BBBBBB    III   R     R    Y
 87698  
 87699  
 87700  // VIF  THU 20 NOV 2025 22:19:48  ** ZBIRY                        ** DIAGNOSTICS                                      PAGE 02150
 87701  
 87702  
 87703  // VIF  THU 20 NOV 2025 22:19:48  ** ZBIRY                        ** GENERATED CODE                                   PAGE 02151
 87704  
 87705  int_4 _zbiry (real_8 _p_ zr_, real_8 _p_ zi_, int_4 _p_ id_, int_4 _p_ kode_, real_8 _p_ bir_, real_8 _p_ bii_, int_4 
 87706  _p_ ierr_)
 87707  { // ** body not listed **
 88022  }
 88023  
 88024  // VIF  THU 20 NOV 2025 22:19:48  ** ZBKNU                        ** ZBKNU                                            PAGE 02158
 88025  
 88026  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 88027  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 88028  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 88029  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 88030  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 88031  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 88032  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 88033  
 88034  //                                       ZZZZZZZ BBBBBB  K    K  N     N U     U
 88035  //                                            Z  B     B K   K   NN    N U     U
 88036  //                                           Z   B     B K  K    N N   N U     U
 88037  //                                          Z    BBBBBB  KKK     N  N  N U     U
 88038  //                                         Z     B     B K  K    N   N N U     U
 88039  //                                        *      B     B K   K   N    NN U     U
 88040  //                                       ZZZZZZZ BBBBBB  K    K  N     N  UUUUU
 88041  
 88042  
 88043  // VIF  THU 20 NOV 2025 22:19:48  ** ZBKNU                        ** DIAGNOSTICS                                      PAGE 02159
 88044  
 88045  
 88046  // VIF  THU 20 NOV 2025 22:19:48  ** ZBKNU                        ** GENERATED CODE                                   PAGE 02160
 88047  
 88048  int_4 _zbknu (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 88049  _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 88050  { // ** body not listed **
 88808  }
 88809  
 88810  // VIF  THU 20 NOV 2025 22:19:48  ** ZBUNI                        ** ZBUNI                                            PAGE 02175
 88811  
 88812  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 88813  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 88814  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 88815  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 88816  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 88817  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 88818  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 88819  
 88820  //                                        ZZZZZZZ BBBBBB  U     U N     N   III
 88821  //                                             Z  B     B U     U NN    N    I
 88822  //                                            Z   B     B U     U N N   N    I
 88823  //                                           Z    BBBBBB  U     U N  N  N    I
 88824  //                                          Z     B     B U     U N   N N    I
 88825  //                                         *      B     B U     U N    NN    I
 88826  //                                        ZZZZZZZ BBBBBB   UUUUU  N     N   III
 88827  
 88828  
 88829  // VIF  THU 20 NOV 2025 22:19:48  ** ZBUNI                        ** DIAGNOSTICS                                      PAGE 02176
 88830  
 88831  
 88832  // VIF  THU 20 NOV 2025 22:19:48  ** ZBUNI                        ** GENERATED CODE                                   PAGE 02177
 88833  
 88834  int_4 _zbuni (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 88835  _p_ yi_, int_4 _p_ nz_, int_4 _p_ nui_, int_4 _p_ nlast_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 
 88836  _p_ alim_)
 88837  { // ** body not listed **
 89011  }
 89012  
 89013  // VIF  THU 20 NOV 2025 22:19:48  ** ZBUNK                        ** ZBUNK                                            PAGE 02181
 89014  
 89015  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89016  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89017  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89018  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89019  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89020  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89021  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89022  
 89023  //                                        ZZZZZZZ BBBBBB  U     U N     N K    K
 89024  //                                             Z  B     B U     U NN    N K   K
 89025  //                                            Z   B     B U     U N N   N K  K
 89026  //                                           Z    BBBBBB  U     U N  N  N KKK
 89027  //                                          Z     B     B U     U N   N N K  K
 89028  //                                         *      B     B U     U N    NN K   K
 89029  //                                        ZZZZZZZ BBBBBB   UUUUU  N     N K    K
 89030  
 89031  
 89032  // VIF  THU 20 NOV 2025 22:19:48  ** ZBUNK                        ** DIAGNOSTICS                                      PAGE 02182
 89033  
 89034  
 89035  // VIF  THU 20 NOV 2025 22:19:48  ** ZBUNK                        ** GENERATED CODE                                   PAGE 02183
 89036  
 89037  int_4 _zbunk (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, real_8 _p_ 
 89038  yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 89039  { // ** body not listed **
 89054  }
 89055  
 89056  // VIF  THU 20 NOV 2025 22:19:48  ** ZDIV                         ** ZDIV                                             PAGE 02184
 89057  
 89058  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89059  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89060  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89061  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89062  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89063  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89064  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89065  
 89066  //                                           ZZZZZZZ DDDDDD    III   V     V
 89067  //                                                Z  D     D    I    V     V
 89068  //                                               Z   D     D    I    V     V
 89069  //                                              Z    D     D    I    V     V
 89070  //                                             Z     D     D    I     V   V
 89071  //                                            *      D     D    I      V V
 89072  //                                           ZZZZZZZ DDDDDD    III      V
 89073  
 89074  
 89075  // VIF  THU 20 NOV 2025 22:19:48  ** ZDIV                         ** DIAGNOSTICS                                      PAGE 02185
 89076  
 89077  
 89078  // VIF  THU 20 NOV 2025 22:19:48  ** ZDIV                         ** GENERATED CODE                                   PAGE 02186
 89079  
 89080  int_4 _zdiv (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_, real_8 _p_ cr_, real_8 _p_ ci_)
 89081  { // ** body not listed **
 89092  }
 89093  
 89094  // VIF  THU 20 NOV 2025 22:19:48  ** ZEXP                         ** ZEXP                                             PAGE 02187
 89095  
 89096  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89097  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89098  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89099  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89100  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89101  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89102  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89103  
 89104  //                                           ZZZZZZZ EEEEEEE X     X PPPPPP
 89105  //                                                Z  E        X   X  P     P
 89106  //                                               Z   E         X X   P     P
 89107  //                                              Z    EEEEE      X    PPPPPP
 89108  //                                             Z     E         X X   P
 89109  //                                            *      E        X   X  P
 89110  //                                           ZZZZZZZ EEEEEEE X     X P
 89111  
 89112  
 89113  // VIF  THU 20 NOV 2025 22:19:48  ** ZEXP                         ** DIAGNOSTICS                                      PAGE 02188
 89114  
 89115  
 89116  // VIF  THU 20 NOV 2025 22:19:48  ** ZEXP                         ** GENERATED CODE                                   PAGE 02189
 89117  
 89118  int_4 _zexp (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_)
 89119  { // ** body not listed **
 89128  }
 89129  
 89130  // VIF  THU 20 NOV 2025 22:19:48  ** ZKSCL                        ** ZKSCL                                            PAGE 02190
 89131  
 89132  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89133  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89134  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89135  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89136  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89137  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89138  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89139  
 89140  //                                       ZZZZZZZ K    K   SSSSS   CCCCC  L
 89141  //                                            Z  K   K   S     S C     C L
 89142  //                                           Z   K  K    S       C       L
 89143  //                                          Z    KKK      SSSSS  C       L
 89144  //                                         Z     K  K          S C       L
 89145  //                                        *      K   K   S     S C     C L
 89146  //                                       ZZZZZZZ K    K   SSSSS   CCCCC  LLLLLLL
 89147  
 89148  
 89149  // VIF  THU 20 NOV 2025 22:19:48  ** ZKSCL                        ** DIAGNOSTICS                                      PAGE 02191
 89150  
 89151  
 89152  // VIF  THU 20 NOV 2025 22:19:48  ** ZKSCL                        ** GENERATED CODE                                   PAGE 02192
 89153  
 89154  int_4 _zkscl (real_8 _p_ zrr_, real_8 _p_ zri_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ yr_, real_8 _p_ yi_, int_4 
 89155  _p_ nz_, real_8 _p_ rzr_, real_8 _p_ rzi_, real_8 _p_ ascle_, real_8 _p_ tol_, real_8 _p_ elim_)
 89156  { // ** body not listed **
 89306  }
 89307  
 89308  // VIF  THU 20 NOV 2025 22:19:48  ** ZLOG                         ** ZLOG                                             PAGE 02195
 89309  
 89310  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89311  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89312  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89313  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89314  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89315  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89316  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89317  
 89318  //                                           ZZZZZZZ L        OOOOO   GGGGG
 89319  //                                                Z  L       O     O G     G
 89320  //                                               Z   L       O     O G
 89321  //                                              Z    L       O     O G  GGGG
 89322  //                                             Z     L       O     O G     G
 89323  //                                            *      L       O     O G     G
 89324  //                                           ZZZZZZZ LLLLLLL  OOOOO   GGGGG
 89325  
 89326  
 89327  // VIF  THU 20 NOV 2025 22:19:48  ** ZLOG                         ** DIAGNOSTICS                                      PAGE 02196
 89328  
 89329  
 89330  // VIF  THU 20 NOV 2025 22:19:48  ** ZLOG                         ** GENERATED CODE                                   PAGE 02197
 89331  
 89332  int_4 _zlog (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_, int_4 _p_ ierr_)
 89333  { // ** body not listed **
 89406  }
 89407  
 89408  // VIF  THU 20 NOV 2025 22:19:48  ** ZMLRI                        ** ZMLRI                                            PAGE 02199
 89409  
 89410  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89411  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89412  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89413  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89414  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89415  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89416  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89417  
 89418  //                                        ZZZZZZZ M     M L       RRRRRR    III
 89419  //                                             Z  MM   MM L       R     R    I
 89420  //                                            Z   M M M M L       R     R    I
 89421  //                                           Z    M  M  M L       RRRRRR     I
 89422  //                                          Z     M     M L       R   R      I
 89423  //                                         *      M     M L       R    R     I
 89424  //                                        ZZZZZZZ M     M LLLLLLL R     R   III
 89425  
 89426  
 89427  // VIF  THU 20 NOV 2025 22:19:48  ** ZMLRI                        ** DIAGNOSTICS                                      PAGE 02200
 89428  
 89429  
 89430  // VIF  THU 20 NOV 2025 22:19:48  ** ZMLRI                        ** GENERATED CODE                                   PAGE 02201
 89431  
 89432  int_4 _zmlri (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 89433  _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_)
 89434  { // ** body not listed **
 89666  }
 89667  
 89668  // VIF  THU 20 NOV 2025 22:19:48  ** ZMLT                         ** ZMLT                                             PAGE 02206
 89669  
 89670  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89671  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89672  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89673  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89674  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89675  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89676  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89677  
 89678  //                                           ZZZZZZZ M     M L       TTTTTTT
 89679  //                                                Z  MM   MM L          T
 89680  //                                               Z   M M M M L          T
 89681  //                                              Z    M  M  M L          T
 89682  //                                             Z     M     M L          T
 89683  //                                            *      M     M L          T
 89684  //                                           ZZZZZZZ M     M LLLLLLL    T
 89685  
 89686  
 89687  // VIF  THU 20 NOV 2025 22:19:48  ** ZMLT                         ** DIAGNOSTICS                                      PAGE 02207
 89688  
 89689  
 89690  // VIF  THU 20 NOV 2025 22:19:48  ** ZMLT                         ** GENERATED CODE                                   PAGE 02208
 89691  
 89692  int_4 _zmlt (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_, real_8 _p_ cr_, real_8 _p_ ci_)
 89693  { // ** body not listed **
 89701  }
 89702  
 89703  // VIF  THU 20 NOV 2025 22:19:48  ** ZRATI                        ** ZRATI                                            PAGE 02209
 89704  
 89705  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89706  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89707  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89708  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89709  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89710  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89711  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89712  
 89713  //                                        ZZZZZZZ RRRRRR     A    TTTTTTT   III
 89714  //                                             Z  R     R   A A      T       I
 89715  //                                            Z   R     R  A   A     T       I
 89716  //                                           Z    RRRRRR  A     A    T       I
 89717  //                                          Z     R   R   AAAAAAA    T       I
 89718  //                                         *      R    R  A     A    T       I
 89719  //                                        ZZZZZZZ R     R A     A    T      III
 89720  
 89721  
 89722  // VIF  THU 20 NOV 2025 22:19:48  ** ZRATI                        ** DIAGNOSTICS                                      PAGE 02210
 89723  
 89724  
 89725  // VIF  THU 20 NOV 2025 22:19:48  ** ZRATI                        ** GENERATED CODE                                   PAGE 02211
 89726  
 89727  int_4 _zrati (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 _p_ cyi_, real_8 
 89728  _p_ tol_)
 89729  { // ** body not listed **
 89894  }
 89895  
 89896  // VIF  THU 20 NOV 2025 22:19:48  ** ZS1S2                        ** ZS1S2                                            PAGE 02215
 89897  
 89898  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89899  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89900  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89901  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89902  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89903  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89904  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89905  
 89906  //                                       ZZZZZZZ  SSSSS     1     SSSSS   22222
 89907  //                                            Z  S     S   11    S     S 2     2
 89908  //                                           Z   S        1 1    S             2
 89909  //                                          Z     SSSSS     1     SSSSS   22222
 89910  //                                         Z           S    1          S 2
 89911  //                                        *      S     S    1    S     S 2
 89912  //                                       ZZZZZZZ  SSSSS   11111   SSSSS  2222222
 89913  
 89914  
 89915  // VIF  THU 20 NOV 2025 22:19:48  ** ZS1S2                        ** DIAGNOSTICS                                      PAGE 02216
 89916  
 89917  
 89918  // VIF  THU 20 NOV 2025 22:19:48  ** ZS1S2                        ** GENERATED CODE                                   PAGE 02217
 89919  
 89920  int_4 _zs1s2 (real_8 _p_ zrr_, real_8 _p_ zri_, real_8 _p_ s1r_, real_8 _p_ s1i_, real_8 _p_ s2r_, real_8 _p_ s2i_, 
 89921  int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ alim_, int_4 _p_ iuf_)
 89922  { // ** body not listed **
 89984  }
 89985  
 89986  // VIF  THU 20 NOV 2025 22:19:48  ** ZSERI                        ** ZSERI                                            PAGE 02219
 89987  
 89988  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 89989  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 89990  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 89991  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 89992  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 89993  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 89994  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 89995  
 89996  //                                        ZZZZZZZ  SSSSS  EEEEEEE RRRRRR    III
 89997  //                                             Z  S     S E       R     R    I
 89998  //                                            Z   S       E       R     R    I
 89999  //                                           Z     SSSSS  EEEEE   RRRRRR     I
 90000  //                                          Z           S E       R   R      I
 90001  //                                         *      S     S E       R    R     I
 90002  //                                        ZZZZZZZ  SSSSS  EEEEEEE R     R   III
 90003  
 90004  
 90005  // VIF  THU 20 NOV 2025 22:19:48  ** ZSERI                        ** DIAGNOSTICS                                      PAGE 02220
 90006  
 90007  
 90008  // VIF  THU 20 NOV 2025 22:19:48  ** ZSERI                        ** GENERATED CODE                                   PAGE 02221
 90009  
 90010  int_4 _zseri (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 90011  _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 90012  { // ** body not listed **
 90252  }
 90253  
 90254  // VIF  THU 20 NOV 2025 22:19:48  ** ZSHCH                        ** ZSHCH                                            PAGE 02226
 90255  
 90256  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 90257  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 90258  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 90259  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 90260  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 90261  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 90262  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 90263  
 90264  //                                       ZZZZZZZ  SSSSS  H     H  CCCCC  H     H
 90265  //                                            Z  S     S H     H C     C H     H
 90266  //                                           Z   S       H     H C       H     H
 90267  //                                          Z     SSSSS  HHHHHHH C       HHHHHHH
 90268  //                                         Z           S H     H C       H     H
 90269  //                                        *      S     S H     H C     C H     H
 90270  //                                       ZZZZZZZ  SSSSS  H     H  CCCCC  H     H
 90271  
 90272  
 90273  // VIF  THU 20 NOV 2025 22:19:48  ** ZSHCH                        ** DIAGNOSTICS                                      PAGE 02227
 90274  
 90275  
 90276  // VIF  THU 20 NOV 2025 22:19:48  ** ZSHCH                        ** GENERATED CODE                                   PAGE 02228
 90277  
 90278  int_4 _zshch (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ cshr_, real_8 _p_ cshi_, real_8 _p_ cchr_, real_8 _p_ cchi_)
 90279  { // ** body not listed **
 90291  }
 90292  
 90293  // VIF  THU 20 NOV 2025 22:19:48  ** ZSQRT                        ** ZSQRT                                            PAGE 02229
 90294  
 90295  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 90296  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 90297  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 90298  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 90299  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 90300  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 90301  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 90302  
 90303  //                                       ZZZZZZZ  SSSSS   QQQQQ  RRRRRR  TTTTTTT
 90304  //                                            Z  S     S Q     Q R     R    T
 90305  //                                           Z   S       Q     Q R     R    T
 90306  //                                          Z     SSSSS  Q     Q RRRRRR     T
 90307  //                                         Z           S Q   Q Q R   R      T
 90308  //                                        *      S     S Q    Q  R    R     T
 90309  //                                       ZZZZZZZ  SSSSS   QQQQ Q R     R    T
 90310  
 90311  
 90312  // VIF  THU 20 NOV 2025 22:19:48  ** ZSQRT                        ** DIAGNOSTICS                                      PAGE 02230
 90313  
 90314  
 90315  // VIF  THU 20 NOV 2025 22:19:48  ** ZSQRT                        ** GENERATED CODE                                   PAGE 02231
 90316  
 90317  int_4 _zsqrt (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_)
 90318  { // ** body not listed **
 90397  }
 90398  
 90399  // VIF  THU 20 NOV 2025 22:19:48  ** ZUCHK                        ** ZUCHK                                            PAGE 02233
 90400  
 90401  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 90402  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 90403  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 90404  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 90405  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 90406  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 90407  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 90408  
 90409  //                                        ZZZZZZZ U     U  CCCCC  H     H K    K
 90410  //                                             Z  U     U C     C H     H K   K
 90411  //                                            Z   U     U C       H     H K  K
 90412  //                                           Z    U     U C       HHHHHHH KKK
 90413  //                                          Z     U     U C       H     H K  K
 90414  //                                         *      U     U C     C H     H K   K
 90415  //                                        ZZZZZZZ  UUUUU   CCCCC  H     H K    K
 90416  
 90417  
 90418  // VIF  THU 20 NOV 2025 22:19:48  ** ZUCHK                        ** DIAGNOSTICS                                      PAGE 02234
 90419  
 90420  
 90421  // VIF  THU 20 NOV 2025 22:19:48  ** ZUCHK                        ** GENERATED CODE                                   PAGE 02235
 90422  
 90423  int_4 _zuchk (real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ tol_)
 90424  { // ** body not listed **
 90441  }
 90442  
 90443  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNHJ                        ** ZUNHJ                                            PAGE 02236
 90444  
 90445  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 90446  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 90447  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 90448  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 90449  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 90450  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 90451  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 90452  
 90453  //                                       ZZZZZZZ U     U N     N H     H       J
 90454  //                                            Z  U     U NN    N H     H       J
 90455  //                                           Z   U     U N N   N H     H       J
 90456  //                                          Z    U     U N  N  N HHHHHHH       J
 90457  //                                         Z     U     U N   N N H     H J     J
 90458  //                                        *      U     U N    NN H     H J     J
 90459  //                                       ZZZZZZZ  UUUUU  N     N H     H  JJJJJ
 90460  
 90461  
 90462  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNHJ                        ** DIAGNOSTICS                                      PAGE 02237
 90463  
 90464  
 90465  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNHJ                        ** GENERATED CODE                                   PAGE 02238
 90466  
 90467  int_4 _zunhj (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ ipmtr_, real_8 _p_ tol_, real_8 _p_ phir_, 
 90468  real_8 _p_ phii_, real_8 _p_ argr_, real_8 _p_ argi_, real_8 _p_ zeta1r_, real_8 _p_ zeta1i_, real_8 _p_ zeta2r_, 
 90469  real_8 _p_ zeta2i_, real_8 _p_ asumr_, real_8 _p_ asumi_, real_8 _p_ bsumr_, real_8 _p_ bsumi_)
 90470  { // ** body not listed **
 94512  }
 94513  
 94514  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNI1                        ** ZUNI1                                            PAGE 02316
 94515  
 94516  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 94517  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 94518  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 94519  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 94520  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 94521  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 94522  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 94523  
 94524  //                                        ZZZZZZZ U     U N     N   III      1
 94525  //                                             Z  U     U NN    N    I      11
 94526  //                                            Z   U     U N N   N    I     1 1
 94527  //                                           Z    U     U N  N  N    I       1
 94528  //                                          Z     U     U N   N N    I       1
 94529  //                                         *      U     U N    NN    I       1
 94530  //                                        ZZZZZZZ  UUUUU  N     N   III    11111
 94531  
 94532  
 94533  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNI1                        ** DIAGNOSTICS                                      PAGE 02317
 94534  
 94535  
 94536  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNI1                        ** GENERATED CODE                                   PAGE 02318
 94537  
 94538  int_4 _zuni1 (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 94539  _p_ yi_, int_4 _p_ nz_, int_4 _p_ nlast_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 94540  { // ** body not listed **
 94779  }
 94780  
 94781  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNI2                        ** ZUNI2                                            PAGE 02323
 94782  
 94783  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 94784  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 94785  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 94786  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 94787  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 94788  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 94789  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 94790  
 94791  //                                       ZZZZZZZ U     U N     N   III    22222
 94792  //                                            Z  U     U NN    N    I    2     2
 94793  //                                           Z   U     U N N   N    I          2
 94794  //                                          Z    U     U N  N  N    I     22222
 94795  //                                         Z     U     U N   N N    I    2
 94796  //                                        *      U     U N    NN    I    2
 94797  //                                       ZZZZZZZ  UUUUU  N     N   III   2222222
 94798  
 94799  
 94800  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNI2                        ** DIAGNOSTICS                                      PAGE 02324
 94801  
 94802  
 94803  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNI2                        ** GENERATED CODE                                   PAGE 02325
 94804  
 94805  int_4 _zuni2 (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 94806  _p_ yi_, int_4 _p_ nz_, int_4 _p_ nlast_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 94807  { // ** body not listed **
 95172  }
 95173  
 95174  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNIK                        ** ZUNIK                                            PAGE 02333
 95175  
 95176  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 95177  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 95178  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 95179  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 95180  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 95181  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 95182  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 95183  
 95184  //                                        ZZZZZZZ U     U N     N   III   K    K
 95185  //                                             Z  U     U NN    N    I    K   K
 95186  //                                            Z   U     U N N   N    I    K  K
 95187  //                                           Z    U     U N  N  N    I    KKK
 95188  //                                          Z     U     U N   N N    I    K  K
 95189  //                                         *      U     U N    NN    I    K   K
 95190  //                                        ZZZZZZZ  UUUUU  N     N   III   K    K
 95191  
 95192  
 95193  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNIK                        ** DIAGNOSTICS                                      PAGE 02334
 95194  
 95195  
 95196  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNIK                        ** GENERATED CODE                                   PAGE 02335
 95197  
 95198  int_4 _zunik (real_8 _p_ zrr_, real_8 _p_ zri_, real_8 _p_ fnu_, int_4 _p_ ikflg_, int_4 _p_ ipmtr_, real_8 _p_ tol_, 
 95199  int_4 _p_ init_, real_8 _p_ phir_, real_8 _p_ phii_, real_8 _p_ zeta1r_, real_8 _p_ zeta1i_, real_8 _p_ zeta2r_, real_8 
 95200  _p_ zeta2i_, real_8 _p_ sumr_, real_8 _p_ sumi_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_)
 95201  { // ** body not listed **
 96147  }
 96148  
 96149  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNK1                        ** ZUNK1                                            PAGE 02354
 96150  
 96151  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 96152  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 96153  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 96154  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 96155  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 96156  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 96157  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 96158  
 96159  //                                        ZZZZZZZ U     U N     N K    K     1
 96160  //                                             Z  U     U NN    N K   K     11
 96161  //                                            Z   U     U N N   N K  K     1 1
 96162  //                                           Z    U     U N  N  N KKK        1
 96163  //                                          Z     U     U N   N N K  K       1
 96164  //                                         *      U     U N    NN K   K      1
 96165  //                                        ZZZZZZZ  UUUUU  N     N K    K   11111
 96166  
 96167  
 96168  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNK1                        ** DIAGNOSTICS                                      PAGE 02355
 96169  
 96170  
 96171  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNK1                        ** GENERATED CODE                                   PAGE 02356
 96172  
 96173  int_4 _zunk1 (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, real_8 _p_ 
 96174  yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 96175  { // ** body not listed **
 96679  }
 96680  
 96681  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNK2                        ** ZUNK2                                            PAGE 02366
 96682  
 96683  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 96684  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 96685  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 96686  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 96687  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 96688  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 96689  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 96690  
 96691  //                                       ZZZZZZZ U     U N     N K    K   22222
 96692  //                                            Z  U     U NN    N K   K   2     2
 96693  //                                           Z   U     U N N   N K  K          2
 96694  //                                          Z    U     U N  N  N KKK      22222
 96695  //                                         Z     U     U N   N N K  K    2
 96696  //                                        *      U     U N    NN K   K   2
 96697  //                                       ZZZZZZZ  UUUUU  N     N K    K  2222222
 96698  
 96699  
 96700  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNK2                        ** DIAGNOSTICS                                      PAGE 02367
 96701  
 96702  
 96703  // VIF  THU 20 NOV 2025 22:19:48  ** ZUNK2                        ** GENERATED CODE                                   PAGE 02368
 96704  
 96705  int_4 _zunk2 (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, real_8 _p_ 
 96706  yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 96707  { // ** body not listed **
 97373  }
 97374  
 97375  // VIF  THU 20 NOV 2025 22:19:48  ** ZUOIK                        ** ZUOIK                                            PAGE 02381
 97376  
 97377  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 97378  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 97379  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 97380  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 97381  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 97382  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 97383  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 97384  
 97385  //                                        ZZZZZZZ U     U  OOOOO    III   K    K
 97386  //                                             Z  U     U O     O    I    K   K
 97387  //                                            Z   U     U O     O    I    K  K
 97388  //                                           Z    U     U O     O    I    KKK
 97389  //                                          Z     U     U O     O    I    K  K
 97390  //                                         *      U     U O     O    I    K   K
 97391  //                                        ZZZZZZZ  UUUUU   OOOOO    III   K    K
 97392  
 97393  
 97394  // VIF  THU 20 NOV 2025 22:19:48  ** ZUOIK                        ** DIAGNOSTICS                                      PAGE 02382
 97395  
 97396  
 97397  // VIF  THU 20 NOV 2025 22:19:48  ** ZUOIK                        ** GENERATED CODE                                   PAGE 02383
 97398  
 97399  int_4 _zuoik (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ ikflg_, int_4 _p_ n_, real_8 
 97400  _p_ yr_, real_8 _p_ yi_, int_4 _p_ nuf_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 97401  { // ** body not listed **
 97645  }
 97646  
 97647  // VIF  THU 20 NOV 2025 22:19:48  ** ZWRSK                        ** ZWRSK                                            PAGE 02388
 97648  
 97649  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 97650  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 97651  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 97652  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 97653  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 97654  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 97655  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 97656  
 97657  //                                        ZZZZZZZ W     W RRRRRR   SSSSS  K    K
 97658  //                                             Z  W     W R     R S     S K   K
 97659  //                                            Z   W     W R     R S       K  K
 97660  //                                           Z    W  W  W RRRRRR   SSSSS  KKK
 97661  //                                          Z     W  W  W R   R         S K  K
 97662  //                                         *      W  W  W R    R  S     S K   K
 97663  //                                        ZZZZZZZ  WW WW  R     R  SSSSS  K    K
 97664  
 97665  
 97666  // VIF  THU 20 NOV 2025 22:19:48  ** ZWRSK                        ** DIAGNOSTICS                                      PAGE 02389
 97667  
 97668  
 97669  // VIF  THU 20 NOV 2025 22:19:48  ** ZWRSK                        ** GENERATED CODE                                   PAGE 02390
 97670  
 97671  int_4 _zwrsk (real_8 _p_ zrr_, real_8 _p_ zri_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 97672  _p_ yi_, int_4 _p_ nz_, real_8 _p_ cwr_, real_8 _p_ cwi_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 97673  { // ** body not listed **
 97753  }


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