mathlib-fftpack5.c

     1  //! @file mathlib-fftpack5.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 FFTPACK5
    24  
    25  // Compiled from Fortran source code by VIF.
    26  
    27  // Source: https://people.sc.fsu.edu/~jburkardt/f77_src/fftpack5.1/fftpack5.1.html
    28  // 
    29  // FFTPACK5.1, a FORTRAN77 code which computes the Fast Fourier Transform, by Paul Swarztrauber and 
    30  // Dick Valent.
    31  // 
    32  // Special features include:
    33  // 
    34  //     Real or complex data can be handled;
    35  //     Separate routines for forward analysis (data => Fourier coefficients) and backward analysis 
    36  // (Fourier coefficients => data);
    37  //     Sine and cosine transform routines;
    38  //     Quarter wave sine and cosine transform routines;
    39  //     The amount of data is NOT required to be a power of 2.
    40  // 
    41  // Routines in the library come in groups of three:
    42  // 
    43  //     An initialization routine;
    44  //     The forward computational routine (data to FFT coefficients);
    45  //     The backward computational routine (FFT coefficients to data).
    46  // 
    47  // The following table shows how the names of the routines in each group:
    48  // 
    49  // Initialization      Forward      Backward      Purpose
    50  // CFFT1I              CFFT1F       CFFT1B        FFT for complex 1D data
    51  // CFFT2I              CFFT2F       CFFT2B        FFT for complex 2D data
    52  // CFFTMI              CFFTMF       CFFTMB        FFT for complex multi-D data
    53  // COSQ1I              COSQ1F       COSQ1B        Even function 1D quarter-cosine FFT
    54  // COSQMI              COSQMF       COSQMB        Even function 1D quarter-cosine FFT
    55  // COST1I              COST1F       COST1B        Even function 1D cosine FFT
    56  // COSTMI              COSTMF       COSTMB        Even function 1D cosine FFT
    57  // RFFT1I              RFFT1F       RFFT1B        FFT for real 1D data
    58  // RFFT2I              RFFT2F       RFFT2B        FFT for real 2D data
    59  // RFFTMI              RFFTMF       RFFTMB        FFT for real multi-D data
    60  // SINQ1I              SINQ1F       SINQ1B        Even function 1D quarter-sine FFT
    61  // SINQMI              SINQMF       SINQMB        Even function 1D quarter-sine FFT
    62  // SINT1I              SINT1F       SINT1B        Even function 1D sine FFT
    63  // SINTMI              SINTMF       SINTMB        Even function 1D sine FFT
    64  // 
    65  // Bugfixes from FFTPACK 5.0 to FFTPACK 5.1
    66  // 
    67  // The functionality of FFTPACK 5.1 is identical with the previous version 5.0.
    68  // The following bugfixes have been applied:
    69  // 
    70  // Corrected index error for high-level routines [CR]FFT[12][BFI] requiring WSAVE array, and all 
    71  // dependent routines to which LWSAVE is passed. Namely, in LWSAV = L + LOG(REAL(INT(L))) + 4 
    72  // definitions, the summand term LOG(REAL(INT(L))) has been corrected to LOG(REAL(INT(L)/LOG(2.)).
    73  // 
    74  // Corrected index error in routime C1FM1F at label 56, where array offset was declared 1 that should 
    75  // have been 2. This resulted in C1FFTF transforms of length N calculated incorrectly, where N is any 
    76  // prime .GT. 5, or N=7*M, M .GE. 6.
    77  // 
    78  // Corrected RFFT2x routines by rewriting them. The backward transform followed by forward now returns 
    79  // identity. Input argument LENSAV must be be at least L + 3*M + INT(LOG(REAL(L))/LOG(2.)) + 
    80  // 2*INT(LOG(REAL(M))/LOG(2.)) +12. Previously, the required value was smaller.
    81  
    82  // The license for FFTPACK5 Fortran source code is:
    83  //
    84  // Source: https://people.sc.fsu.edu/~jburkardt/f77_src/fftpack5.1/fftpack5.1.html
    85  // 
    86  // Licensed under the GNU General Public License (GPL).
    87  // Copyright (C) 1995-2004, Scientific Computing Division,
    88  // University Corporation for Atmospheric Research.
    89  // 
    90  
    91  // VIF  THU 20 NOV 2025 22:19:29  ** MARCEL                       ** FFTPACK5                                         PAGE 00001
    92  
    93  
    94  
    95  //                                   M     M    A    RRRRRR   CCCCC  EEEEEEE L
    96  //                                   MM   MM   A A   R     R C     C E       L
    97  //                                   M M M M  A   A  R     R C       E       L
    98  //                                   M  M  M A     A RRRRRR  C       EEEEE   L
    99  //                                   M     M AAAAAAA R   R   C       E       L
   100  //                                   M     M A     A R    R  C     C E       L
   101  //                                   M     M A     A R     R  CCCCC  EEEEEEE LLLLLLL
   102  
   103  //                           FFFFFFF FFFFFFF TTTTTTT PPPPPP     A     CCCCC  K    K  5555555
   104  //                           F       F          T    P     P   A A   C     C K   K   5
   105  //                           F       F          T    P     P  A   A  C       K  K    5
   106  //                           FFFFF   FFFFF      T    PPPPPP  A     A C       KKK      55555
   107  //                           F       F          T    P       AAAAAAA C       K  K          5
   108  //                           F       F          T    P       A     A C     C K   K   5     5
   109  //                           F       F          T    P       A     A  CCCCC  K    K   55555
   110  
   111  
   112  
   113  
   114  // VIF  THU 20 NOV 2025 22:19:29  ** GLOBAL SCOPE                 ** DIAGNOSTICS                                      PAGE 00002
   115  
   116  // ** linker     ** object size 1380160 bytes
   117  // ** statistics ** 220 subprograms, no errors, no warnings
   118  
   119  
   120  // VIF  THU 20 NOV 2025 22:19:29  ** GLOBAL SCOPE                 ** JOB CONTROL                                      PAGE 00003
   121  
   122  
   123  //   Line    JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
   124  
   125  
   126  
   127  // VIF  THU 20 NOV 2025 22:19:29  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00004
   128  
   129  /*
   130  Generated by VIF - experimental VIntage Fortran compiler.
   131  VIF release 1.4.1
   132  */
   133  
   134  #if defined (__GNUC__)
   135  #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
   136  #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
   137  #if (__GNUC__ >= 14)
   138  #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
   139  #pragma GCC diagnostic ignored "-Wimplicit-int"
   140  #pragma GCC diagnostic ignored "-Wint-conversion"
   141  #pragma GCC diagnostic ignored "-Wreturn-mismatch"
   142  #endif
   143  #else
   144  #error VIF requires GCC
   145  #endif
   146  
   147  #include <vif.h>
   148  
   149  static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
   150  
   151  
   152  #define _dc_0 "DCFFT1B "
   153  #define _dc_1 "DCFFT1F "
   154  #define _dc_2 "DCFFTMI "
   155  #define _dc_3 "DCFFT2B"
   156  #define _dc_4 "DCFFT2F"
   157  #define _dc_5 "DCFFT2I"
   158  #define _dc_6 "DCFFTMB "
   159  #define _dc_7 "DCFFTMF "
   160  #define _dc_8 "DCOSQ1B"
   161  #define _dc_9 "DCOSQ1F"
   162  #define _dc_10 "DCOSQ1I"
   163  #define _dc_11 "DCOSQB1"
   164  #define _dc_12 "DCOSQF1"
   165  #define _dc_13 "DCOSQMB"
   166  #define _dc_14 "DCOSQMF"
   167  #define _dc_15 "DCOSQMI"
   168  #define _dc_16 "DCOST1B"
   169  #define _dc_17 "DCOST1F"
   170  #define _dc_18 "DCOST1I"
   171  #define _dc_19 "DCOSTB1"
   172  #define _dc_20 "DCOSTF1"
   173  #define _dc_21 "DCOSTMB"
   174  #define _dc_22 "DCOSTMF"
   175  #define _dc_23 "DCOSTMI"
   176  #define _dc_24 "DMCSQB1"
   177  #define _dc_25 "DMCSQF1"
   178  #define _dc_26 "DMCSTB1"
   179  #define _dc_27 "DMCSTF1"
   180  #define _dc_28 "DMSNTB1"
   181  #define _dc_29 "DMSNTF1"
   182  // VIF  THU 20 NOV 2025 22:19:29  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00005
   183  
   184  #define _dc_30 "DRFFT1B "
   185  #define _dc_31 "DRFFT1F "
   186  #define _dc_32 "DRFFT1I "
   187  #define _dc_33 "DRFFT2F"
   188  #define _dc_34 "DRFFT2B"
   189  #define _dc_35 "DRFFT2I"
   190  #define _dc_36 "DRFFTMB "
   191  #define _dc_37 "DRFFTMF "
   192  #define _dc_38 "DRFFTMI "
   193  #define _dc_39 "DSINQ1B"
   194  #define _dc_40 "DSINQ1F"
   195  #define _dc_41 "DSINQ1I"
   196  #define _dc_42 "DSINQMB"
   197  #define _dc_43 "DSINQMF"
   198  #define _dc_44 "DSINQMI"
   199  #define _dc_45 "DSINT1B"
   200  #define _dc_46 "DSINT1F"
   201  #define _dc_47 "DSINT1I"
   202  #define _dc_48 "DSINTB1"
   203  #define _dc_49 "DSINTF1"
   204  #define _dc_50 "DSINTMB"
   205  #define _dc_51 "DSINTMF"
   206  #define _dc_52 "DSINTMI"
   207  #define _dc_53 " ** On entry to "
   208  #define _dc_54 " parameter number "
   209  #define _dc_55 " had an illegal value"
   210  #define _dc_56 " parameters LOT, JUMP, N and INC are inconsistent"
   211  #define _dc_57 " parameter L is greater than LDIM"
   212  #define _dc_58 " parameter M is greater than MDIM"
   213  #define _dc_59 " ** Within "
   214  #define _dc_60 " input error returned by lower level routine"
   215  #define _dc_61 " parameter LDIM is less than 2*(L/2+1)"
   216  #define _dc_62 "CFFT1B "
   217  #define _dc_63 "CFFT1F "
   218  #define _dc_64 "CFFTMI "
   219  #define _dc_65 "CFFT2B"
   220  #define _dc_66 "CFFT2F"
   221  #define _dc_67 "CFFT2I"
   222  #define _dc_68 "CFFTMB "
   223  #define _dc_69 "CFFTMF "
   224  #define _dc_70 "COSQ1B"
   225  #define _dc_71 "COSQ1F"
   226  #define _dc_72 "COSQ1I"
   227  #define _dc_73 "COSQB1"
   228  #define _dc_74 "COSQF1"
   229  #define _dc_75 "COSQMB"
   230  #define _dc_76 "COSQMF"
   231  #define _dc_77 "COSQMI"
   232  #define _dc_78 "COST1B"
   233  #define _dc_79 "COST1F"
   234  // VIF  THU 20 NOV 2025 22:19:29  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00006
   235  
   236  #define _dc_80 "COST1I"
   237  #define _dc_81 "COSTB1"
   238  #define _dc_82 "COSTF1"
   239  #define _dc_83 "COSTMB"
   240  #define _dc_84 "COSTMF"
   241  #define _dc_85 "COSTMI"
   242  #define _dc_86 "MCSQB1"
   243  #define _dc_87 "MCSQF1"
   244  #define _dc_88 "MCSTB1"
   245  #define _dc_89 "MCSTF1"
   246  #define _dc_90 "MSNTB1"
   247  #define _dc_91 "MSNTF1"
   248  #define _dc_92 "RFFT1B "
   249  #define _dc_93 "RFFT1F "
   250  #define _dc_94 "RFFT1I "
   251  #define _dc_95 "RFFT2F"
   252  #define _dc_96 "RFFT2B"
   253  #define _dc_97 "RFFT2I"
   254  #define _dc_98 "RFFTMB "
   255  #define _dc_99 "RFFTMF "
   256  #define _dc_100 "RFFTMI "
   257  #define _dc_101 "SINQ1B"
   258  #define _dc_102 "SINQ1F"
   259  #define _dc_103 "SINQ1I"
   260  #define _dc_104 "SINQMB"
   261  #define _dc_105 "SINQMF"
   262  #define _dc_106 "SINQMI"
   263  #define _dc_107 "SINT1B"
   264  #define _dc_108 "SINT1F"
   265  #define _dc_109 "SINT1I"
   266  #define _dc_110 "SINTB1"
   267  #define _dc_111 "SINTF1"
   268  #define _dc_112 "SINTMB"
   269  #define _dc_113 "SINTMF"
   270  #define _dc_114 "SINTMI"
   271  
   272  
   273  
   274  // VIF  THU 20 NOV 2025 22:19:29  ** GLOBAL SCOPE                 ** TYPEDEFS                                         PAGE 00007
   275  
   276  static FORMAT *__fmt_a = NULL;
   277  typedef char char_7[8];
   278  typedef char char_15[16];
   279  typedef char char_31[32];
   280  typedef char char_63[64];
   281  
   282  
   283  // VIF  THU 20 NOV 2025 22:19:29  ** GLOBAL SCOPE                 ** FREQUENCY TABLE                                  PAGE 00008
   284  
   285  #define __ncalls 221
   286  static CALLS __calls[__ncalls] = {
   287  { // ** body not listed **"dc1f2kb", 0}, // subroutine
   289  { // ** body not listed **"dc1f3kb", 0}, // subroutine
   291  { // ** body not listed **"dc1f4kb", 0}, // subroutine
   293  { // ** body not listed **"dc1f5kb", 0}, // subroutine
   295  { // ** body not listed **"dc1fgkb", 0}, // subroutine
   297  { // ** body not listed **"dc1fm1b", 0}, // subroutine
   299  { // ** body not listed **"dcfft1b", 0}, // subroutine
   301  { // ** body not listed **"dcfft1i", 0}, // subroutine
   303  { // ** body not listed **"dcfft2f", 0}, // subroutine
   305  { // ** body not listed **"dcfftmb", 0}, // subroutine
   307  { // ** body not listed **"dcfftmi", 0}, // subroutine
   309  { // ** body not listed **"dcmf2kf", 0}, // subroutine
   311  { // ** body not listed **"dcmf3kf", 0}, // subroutine
   313  { // ** body not listed **"dcmf4kf", 0}, // subroutine
   315  { // ** body not listed **"dcmf5kf", 0}, // subroutine
   317  { // ** body not listed **"dcmfgkf", 0}, // subroutine
   319  { // ** body not listed **"dcmfm1f", 0}, // subroutine
   321  { // ** body not listed **"dcosq1f", 0}, // subroutine
   323  { // ** body not listed **"dcosqb1", 0}, // subroutine
   325  { // ** body not listed **"dcosqmb", 0}, // subroutine
   327  { // ** body not listed **"dcosqmi", 0}, // subroutine
   329  { // ** body not listed **"dcost1f", 0}, // subroutine
   331  { // ** body not listed **"dcostb1", 0}, // subroutine
   333  { // ** body not listed **"dcostmb", 0}, // subroutine
   337  { // ** body not listed **"dcostmi", 0}, // subroutine
   339  { // ** body not listed **"dmcfti1", 0}, // subroutine
   341  { // ** body not listed **"dmcsqf1", 0}, // subroutine
   343  { // ** body not listed **"dmcstf1", 0}, // subroutine
   345  { // ** body not listed **"dmradb3", 0}, // subroutine
   347  { // ** body not listed **"dmradb5", 0}, // subroutine
   349  { // ** body not listed **"dmradf2", 0}, // subroutine
   351  { // ** body not listed **"dmradf4", 0}, // subroutine
   353  { // ** body not listed **"dmradfg", 0}, // subroutine
   355  { // ** body not listed **"dmrftf1", 0}, // subroutine
   357  { // ** body not listed **"dmsntb1", 0}, // subroutine
   359  { // ** body not listed **"dr1f2kb", 0}, // subroutine
   361  { // ** body not listed **"dr1f3kb", 0}, // subroutine
   363  { // ** body not listed **"dr1f4kb", 0}, // subroutine
   365  { // ** body not listed **"dr1f5kb", 0}, // subroutine
   367  { // ** body not listed **"dr1fgkb", 0}, // subroutine
   369  { // ** body not listed **"dr2w", 0}, // subroutine
   371  { // ** body not listed **"drfft1f", 0}, // subroutine
   373  { // ** body not listed **"drfft2b", 0}, // subroutine
   375  { // ** body not listed **"drfft2i", 0}, // subroutine
   377  { // ** body not listed **"drfftf1", 0}, // subroutine
   379  { // ** body not listed **"drfftmb", 0}, // subroutine
   381  { // ** body not listed **"drfftmi", 0}, // subroutine
   383  { // ** body not listed **"dsinq1f", 0}, // subroutine
   385  { // ** body not listed **"dsinqmb", 0}, // subroutine
   389  { // ** body not listed **"dsinqmi", 0}, // subroutine
   391  { // ** body not listed **"dsint1f", 0}, // subroutine
   393  { // ** body not listed **"dsintb1", 0}, // subroutine
   395  { // ** body not listed **"dsintmb", 0}, // subroutine
   397  { // ** body not listed **"dsintmi", 0}, // subroutine
   399  { // ** body not listed **"dw2r", 0}, // subroutine
   401  { // ** body not listed **"xerfft", 0}, // subroutine
   403  { // ** body not listed **"c1f2kf", 0}, // subroutine
   405  { // ** body not listed **"c1f3kf", 0}, // subroutine
   407  { // ** body not listed **"c1f4kf", 0}, // subroutine
   409  { // ** body not listed **"c1f5kf", 0}, // subroutine
   411  { // ** body not listed **"c1fgkf", 0}, // subroutine
   413  { // ** body not listed **"c1fm1f", 0}, // subroutine
   415  { // ** body not listed **"cfft1f", 0}, // subroutine
   417  { // ** body not listed **"cfft2b", 0}, // subroutine
   419  { // ** body not listed **"cfft2i", 0}, // subroutine
   421  { // ** body not listed **"cfftmf", 0}, // subroutine
   423  { // ** body not listed **"cmf2kb", 0}, // subroutine
   425  { // ** body not listed **"cmf3kb", 0}, // subroutine
   427  { // ** body not listed **"cmf4kb", 0}, // subroutine
   429  { // ** body not listed **"cmf5kb", 0}, // subroutine
   431  { // ** body not listed **"cmfgkb", 0}, // subroutine
   433  { // ** body not listed **"cmfm1b", 0}, // subroutine
   435  { // ** body not listed **"cosq1b", 0}, // subroutine
   437  { // ** body not listed **"cosq1i", 0}, // subroutine
   441  { // ** body not listed **"cosqf1", 0}, // subroutine
   443  { // ** body not listed **"cosqmf", 0}, // subroutine
   445  { // ** body not listed **"cost1b", 0}, // subroutine
   447  { // ** body not listed **"cost1i", 0}, // subroutine
   449  { // ** body not listed **"costf1", 0}, // subroutine
   451  { // ** body not listed **"costmf", 0}, // subroutine
   453  { // ** body not listed **"factor", 0}, // subroutine
   455  { // ** body not listed **"mcsqb1", 0}, // subroutine
   457  { // ** body not listed **"mcstb1", 0}, // subroutine
   459  { // ** body not listed **"mradb2", 0}, // subroutine
   461  { // ** body not listed **"mradb4", 0}, // subroutine
   463  { // ** body not listed **"mradbg", 0}, // subroutine
   465  { // ** body not listed **"mradf3", 0}, // subroutine
   467  { // ** body not listed **"mradf5", 0}, // subroutine
   469  { // ** body not listed **"mrftb1", 0}, // subroutine
   471  { // ** body not listed **"mrfti1", 0}, // subroutine
   473  { // ** body not listed **"msntf1", 0}, // subroutine
   475  { // ** body not listed **"r1f2kf", 0}, // subroutine
   477  { // ** body not listed **"r1f3kf", 0}, // subroutine
   479  { // ** body not listed **"r1f4kf", 0}, // subroutine
   481  { // ** body not listed **"r1f5kf", 0}, // subroutine
   483  { // ** body not listed **"r1fgkf", 0}, // subroutine
   485  { // ** body not listed **"rfft1b", 0}, // subroutine
   487  { // ** body not listed **"rfft1i", 0}, // subroutine
   489  { // ** body not listed **"rfft2f", 0}, // subroutine
   493  { // ** body not listed **"rfftb1", 0}, // subroutine
   495  { // ** body not listed **"rffti1", 0}, // subroutine
   497  { // ** body not listed **"rfftmf", 0}, // subroutine
   499  { // ** body not listed **"sinq1b", 0}, // subroutine
   501  { // ** body not listed **"sinq1i", 0}, // subroutine
   503  { // ** body not listed **"sinqmf", 0}, // subroutine
   505  { // ** body not listed **"sint1b", 0}, // subroutine
   507  { // ** body not listed **"sint1i", 0}, // subroutine
   509  { // ** body not listed **"sintf1", 0}, // subroutine
   511  { // ** body not listed **"sintmf", 0}, // subroutine
   513  { // ** body not listed **"tables", 0}, // subroutine
   515  { // ** body not listed **NULL, 0}
   516  };
   982  { // ** body not listed **
  1036  }
  1037  
  1038  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F2KF                      ** DC1F2KF                                          PAGE 00027
  1039  
  1040  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  1041  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  1042  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  1043  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  1044  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  1045  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  1046  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  1047  
  1048  //                               DDDDDD   CCCCC     1    FFFFFFF  22222  K    K  FFFFFFF
  1049  //                               D     D C     C   11    F       2     2 K   K   F
  1050  //                               D     D C        1 1    F             2 K  K    F
  1051  //                               D     D C          1    FFFFF    22222  KKK     FFFFF
  1052  //                               D     D C          1    F       2       K  K    F
  1053  //                               D     D C     C    1    F       2       K   K   F
  1054  //                               DDDDDD   CCCCC   11111  F       2222222 K    K  F
  1055  
  1056  
  1057  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F2KF                      ** DIAGNOSTICS                                      PAGE 00028
  1058  
  1059  
  1060  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F2KF                      ** GENERATED CODE                                   PAGE 00029
  1061  
  1062  int_4 _dc1f2kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ 
  1063  in2_, real_8 _p_ wa_)
  1064  { // ** body not listed **
  1131  }
  1132  
  1133  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F3KB                      ** DC1F3KB                                          PAGE 00031
  1134  
  1135  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  1136  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  1137  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  1138  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  1139  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  1140  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  1141  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  1142  
  1143  //                               DDDDDD   CCCCC     1    FFFFFFF  33333  K    K  BBBBBB
  1144  //                               D     D C     C   11    F       3     3 K   K   B     B
  1145  //                               D     D C        1 1    F             3 K  K    B     B
  1146  //                               D     D C          1    FFFFF    33333  KKK     BBBBBB
  1147  //                               D     D C          1    F             3 K  K    B     B
  1148  //                               D     D C     C    1    F       3     3 K   K   B     B
  1149  //                               DDDDDD   CCCCC   11111  F        33333  K    K  BBBBBB
  1150  
  1151  
  1152  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F3KB                      ** DIAGNOSTICS                                      PAGE 00032
  1153  
  1154  
  1155  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F3KB                      ** GENERATED CODE                                   PAGE 00033
  1156  
  1157  int_4 _dc1f3kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ 
  1158  in2_, real_8 _p_ wa_)
  1159  { // ** body not listed **
  1266  }
  1267  
  1268  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F3KF                      ** DC1F3KF                                          PAGE 00036
  1269  
  1270  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  1271  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  1272  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  1273  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  1274  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  1275  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  1276  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  1277  
  1278  //                               DDDDDD   CCCCC     1    FFFFFFF  33333  K    K  FFFFFFF
  1279  //                               D     D C     C   11    F       3     3 K   K   F
  1280  //                               D     D C        1 1    F             3 K  K    F
  1281  //                               D     D C          1    FFFFF    33333  KKK     FFFFF
  1282  //                               D     D C          1    F             3 K  K    F
  1283  //                               D     D C     C    1    F       3     3 K   K   F
  1284  //                               DDDDDD   CCCCC   11111  F        33333  K    K  F
  1285  
  1286  
  1287  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F3KF                      ** DIAGNOSTICS                                      PAGE 00037
  1288  
  1289  
  1290  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F3KF                      ** GENERATED CODE                                   PAGE 00038
  1291  
  1292  int_4 _dc1f3kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ 
  1293  in2_, real_8 _p_ wa_)
  1294  { // ** body not listed **
  1424  }
  1425  
  1426  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F4KB                      ** DC1F4KB                                          PAGE 00041
  1427  
  1428  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  1429  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  1430  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  1431  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  1432  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  1433  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  1434  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  1435  
  1436  //                               DDDDDD   CCCCC     1    FFFFFFF 4       K    K  BBBBBB
  1437  //                               D     D C     C   11    F       4    4  K   K   B     B
  1438  //                               D     D C        1 1    F       4    4  K  K    B     B
  1439  //                               D     D C          1    FFFFF   4444444 KKK     BBBBBB
  1440  //                               D     D C          1    F            4  K  K    B     B
  1441  //                               D     D C     C    1    F            4  K   K   B     B
  1442  //                               DDDDDD   CCCCC   11111  F            4  K    K  BBBBBB
  1443  
  1444  
  1445  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F4KB                      ** DIAGNOSTICS                                      PAGE 00042
  1446  
  1447  
  1448  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F4KB                      ** GENERATED CODE                                   PAGE 00043
  1449  
  1450  int_4 _dc1f4kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ 
  1451  in2_, real_8 _p_ wa_)
  1452  { // ** body not listed **
  1562  }
  1563  
  1564  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F4KF                      ** DC1F4KF                                          PAGE 00046
  1565  
  1566  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  1567  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  1568  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  1569  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  1570  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  1571  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  1572  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  1573  
  1574  //                               DDDDDD   CCCCC     1    FFFFFFF 4       K    K  FFFFFFF
  1575  //                               D     D C     C   11    F       4    4  K   K   F
  1576  //                               D     D C        1 1    F       4    4  K  K    F
  1577  //                               D     D C          1    FFFFF   4444444 KKK     FFFFF
  1578  //                               D     D C          1    F            4  K  K    F
  1579  //                               D     D C     C    1    F            4  K   K   F
  1580  //                               DDDDDD   CCCCC   11111  F            4  K    K  F
  1581  
  1582  
  1583  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F4KF                      ** DIAGNOSTICS                                      PAGE 00047
  1584  
  1585  
  1586  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F4KF                      ** GENERATED CODE                                   PAGE 00048
  1587  
  1588  int_4 _dc1f4kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ 
  1589  in2_, real_8 _p_ wa_)
  1590  { // ** body not listed **
  1729  }
  1730  
  1731  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F5KB                      ** DC1F5KB                                          PAGE 00051
  1732  
  1733  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  1734  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  1735  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  1736  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  1737  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  1738  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  1739  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  1740  
  1741  //                               DDDDDD   CCCCC     1    FFFFFFF 5555555 K    K  BBBBBB
  1742  //                               D     D C     C   11    F       5       K   K   B     B
  1743  //                               D     D C        1 1    F       5       K  K    B     B
  1744  //                               D     D C          1    FFFFF    55555  KKK     BBBBBB
  1745  //                               D     D C          1    F             5 K  K    B     B
  1746  //                               D     D C     C    1    F       5     5 K   K   B     B
  1747  //                               DDDDDD   CCCCC   11111  F        55555  K    K  BBBBBB
  1748  
  1749  
  1750  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F5KB                      ** DIAGNOSTICS                                      PAGE 00052
  1751  
  1752  
  1753  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F5KB                      ** GENERATED CODE                                   PAGE 00053
  1754  
  1755  int_4 _dc1f5kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ 
  1756  in2_, real_8 _p_ wa_)
  1757  { // ** body not listed **
  1941  }
  1942  
  1943  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F5KF                      ** DC1F5KF                                          PAGE 00057
  1944  
  1945  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  1946  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  1947  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  1948  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  1949  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  1950  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  1951  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  1952  
  1953  //                               DDDDDD   CCCCC     1    FFFFFFF 5555555 K    K  FFFFFFF
  1954  //                               D     D C     C   11    F       5       K   K   F
  1955  //                               D     D C        1 1    F       5       K  K    F
  1956  //                               D     D C          1    FFFFF    55555  KKK     FFFFF
  1957  //                               D     D C          1    F             5 K  K    F
  1958  //                               D     D C     C    1    F       5     5 K   K   F
  1959  //                               DDDDDD   CCCCC   11111  F        55555  K    K  F
  1960  
  1961  
  1962  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F5KF                      ** DIAGNOSTICS                                      PAGE 00058
  1963  
  1964  
  1965  // VIF  THU 20 NOV 2025 22:19:29  ** DC1F5KF                      ** GENERATED CODE                                   PAGE 00059
  1966  
  1967  int_4 _dc1f5kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ 
  1968  in2_, real_8 _p_ wa_)
  1969  { // ** body not listed **
  2196  }
  2197  
  2198  // VIF  THU 20 NOV 2025 22:19:29  ** DC1FGKB                      ** DC1FGKB                                          PAGE 00064
  2199  
  2200  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2201  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2202  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2203  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2204  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2205  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2206  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2207  
  2208  //                               DDDDDD   CCCCC     1    FFFFFFF  GGGGG  K    K  BBBBBB
  2209  //                               D     D C     C   11    F       G     G K   K   B     B
  2210  //                               D     D C        1 1    F       G       K  K    B     B
  2211  //                               D     D C          1    FFFFF   G  GGGG KKK     BBBBBB
  2212  //                               D     D C          1    F       G     G K  K    B     B
  2213  //                               D     D C     C    1    F       G     G K   K   B     B
  2214  //                               DDDDDD   CCCCC   11111  F        GGGGG  K    K  BBBBBB
  2215  
  2216  
  2217  // VIF  THU 20 NOV 2025 22:19:29  ** DC1FGKB                      ** DIAGNOSTICS                                      PAGE 00065
  2218  
  2219  
  2220  // VIF  THU 20 NOV 2025 22:19:29  ** DC1FGKB                      ** GENERATED CODE                                   PAGE 00066
  2221  
  2222  int_4 _dc1fgkb (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_8 _p_ cc_, real_8 _p_ 
  2223  cc1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ in2_, real_8 _p_ wa_)
  2224  { // ** body not listed **
  2360  }
  2361  
  2362  // VIF  THU 20 NOV 2025 22:19:29  ** DC1FGKF                      ** DC1FGKF                                          PAGE 00069
  2363  
  2364  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2365  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2366  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2367  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2368  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2369  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2370  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2371  
  2372  //                               DDDDDD   CCCCC     1    FFFFFFF  GGGGG  K    K  FFFFFFF
  2373  //                               D     D C     C   11    F       G     G K   K   F
  2374  //                               D     D C        1 1    F       G       K  K    F
  2375  //                               D     D C          1    FFFFF   G  GGGG KKK     FFFFF
  2376  //                               D     D C          1    F       G     G K  K    F
  2377  //                               D     D C     C    1    F       G     G K   K   F
  2378  //                               DDDDDD   CCCCC   11111  F        GGGGG  K    K  F
  2379  
  2380  
  2381  // VIF  THU 20 NOV 2025 22:19:29  ** DC1FGKF                      ** DIAGNOSTICS                                      PAGE 00070
  2382  
  2383  
  2384  // VIF  THU 20 NOV 2025 22:19:29  ** DC1FGKF                      ** GENERATED CODE                                   PAGE 00071
  2385  
  2386  int_4 _dc1fgkf (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_8 _p_ cc_, real_8 _p_ 
  2387  cc1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ in2_, real_8 _p_ wa_)
  2388  { // ** body not listed **
  2550  }
  2551  
  2552  // VIF  THU 20 NOV 2025 22:19:29  ** DC1FM1B                      ** DC1FM1B                                          PAGE 00075
  2553  
  2554  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2555  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2556  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2557  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2558  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2559  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2560  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2561  
  2562  //                               DDDDDD   CCCCC     1    FFFFFFF M     M    1    BBBBBB
  2563  //                               D     D C     C   11    F       MM   MM   11    B     B
  2564  //                               D     D C        1 1    F       M M M M  1 1    B     B
  2565  //                               D     D C          1    FFFFF   M  M  M    1    BBBBBB
  2566  //                               D     D C          1    F       M     M    1    B     B
  2567  //                               D     D C     C    1    F       M     M    1    B     B
  2568  //                               DDDDDD   CCCCC   11111  F       M     M  11111  BBBBBB
  2569  
  2570  
  2571  // VIF  THU 20 NOV 2025 22:19:29  ** DC1FM1B                      ** DIAGNOSTICS                                      PAGE 00076
  2572  
  2573  
  2574  // VIF  THU 20 NOV 2025 22:19:29  ** DC1FM1B                      ** GENERATED CODE                                   PAGE 00077
  2575  
  2576  int_4 _dc1fm1b (int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_, real_4 _p_ fnf_, 
  2577  real_8 _p_ fac_)
  2578  { // ** body not listed **
  2645  }
  2646  
  2647  // VIF  THU 20 NOV 2025 22:19:29  ** DC1FM1F                      ** DC1FM1F                                          PAGE 00079
  2648  
  2649  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2650  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2651  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2652  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2653  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2654  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2655  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2656  
  2657  //                               DDDDDD   CCCCC     1    FFFFFFF M     M    1    FFFFFFF
  2658  //                               D     D C     C   11    F       MM   MM   11    F
  2659  //                               D     D C        1 1    F       M M M M  1 1    F
  2660  //                               D     D C          1    FFFFF   M  M  M    1    FFFFF
  2661  //                               D     D C          1    F       M     M    1    F
  2662  //                               D     D C     C    1    F       M     M    1    F
  2663  //                               DDDDDD   CCCCC   11111  F       M     M  11111  F
  2664  
  2665  
  2666  // VIF  THU 20 NOV 2025 22:19:29  ** DC1FM1F                      ** DIAGNOSTICS                                      PAGE 00080
  2667  
  2668  
  2669  // VIF  THU 20 NOV 2025 22:19:29  ** DC1FM1F                      ** GENERATED CODE                                   PAGE 00081
  2670  
  2671  int_4 _dc1fm1f (int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_, real_4 _p_ fnf_, 
  2672  real_8 _p_ fac_)
  2673  { // ** body not listed **
  2740  }
  2741  
  2742  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT1B                      ** DCFFT1B                                          PAGE 00083
  2743  
  2744  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2745  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2746  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2747  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2748  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2749  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2750  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2751  
  2752  //                               DDDDDD   CCCCC  FFFFFFF FFFFFFF TTTTTTT    1    BBBBBB
  2753  //                               D     D C     C F       F          T      11    B     B
  2754  //                               D     D C       F       F          T     1 1    B     B
  2755  //                               D     D C       FFFFF   FFFFF      T       1    BBBBBB
  2756  //                               D     D C       F       F          T       1    B     B
  2757  //                               D     D C     C F       F          T       1    B     B
  2758  //                               DDDDDD   CCCCC  F       F          T     11111  BBBBBB
  2759  
  2760  
  2761  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT1B                      ** DIAGNOSTICS                                      PAGE 00084
  2762  
  2763  
  2764  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT1B                      ** GENERATED CODE                                   PAGE 00085
  2765  
  2766  int_4 _dcfft1b (int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, int_4 _p_ lenc_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
  2767  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  2768  { // ** body not listed **
  2793  }
  2794  
  2795  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT1F                      ** DCFFT1F                                          PAGE 00086
  2796  
  2797  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2798  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2799  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2800  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2801  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2802  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2803  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2804  
  2805  //                               DDDDDD   CCCCC  FFFFFFF FFFFFFF TTTTTTT    1    FFFFFFF
  2806  //                               D     D C     C F       F          T      11    F
  2807  //                               D     D C       F       F          T     1 1    F
  2808  //                               D     D C       FFFFF   FFFFF      T       1    FFFFF
  2809  //                               D     D C       F       F          T       1    F
  2810  //                               D     D C     C F       F          T       1    F
  2811  //                               DDDDDD   CCCCC  F       F          T     11111  F
  2812  
  2813  
  2814  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT1F                      ** DIAGNOSTICS                                      PAGE 00087
  2815  
  2816  
  2817  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT1F                      ** GENERATED CODE                                   PAGE 00088
  2818  
  2819  int_4 _dcfft1f (int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, int_4 _p_ lenc_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
  2820  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  2821  { // ** body not listed **
  2846  }
  2847  
  2848  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT1I                      ** DCFFT1I                                          PAGE 00089
  2849  
  2850  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2851  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2852  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2853  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2854  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2855  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2856  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2857  
  2858  //                                DDDDDD   CCCCC  FFFFFFF FFFFFFF TTTTTTT    1      III
  2859  //                                D     D C     C F       F          T      11       I
  2860  //                                D     D C       F       F          T     1 1       I
  2861  //                                D     D C       FFFFF   FFFFF      T       1       I
  2862  //                                D     D C       F       F          T       1       I
  2863  //                                D     D C     C F       F          T       1       I
  2864  //                                DDDDDD   CCCCC  F       F          T     11111    III
  2865  
  2866  
  2867  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT1I                      ** DIAGNOSTICS                                      PAGE 00090
  2868  
  2869  
  2870  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT1I                      ** GENERATED CODE                                   PAGE 00091
  2871  
  2872  int_4 _dcfft1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
  2873  { // ** body not listed **
  2890  }
  2891  
  2892  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT2B                      ** DCFFT2B                                          PAGE 00092
  2893  
  2894  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2895  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2896  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2897  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2898  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2899  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2900  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2901  
  2902  //                               DDDDDD   CCCCC  FFFFFFF FFFFFFF TTTTTTT  22222  BBBBBB
  2903  //                               D     D C     C F       F          T    2     2 B     B
  2904  //                               D     D C       F       F          T          2 B     B
  2905  //                               D     D C       FFFFF   FFFFF      T     22222  BBBBBB
  2906  //                               D     D C       F       F          T    2       B     B
  2907  //                               D     D C     C F       F          T    2       B     B
  2908  //                               DDDDDD   CCCCC  F       F          T    2222222 BBBBBB
  2909  
  2910  
  2911  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT2B                      ** DIAGNOSTICS                                      PAGE 00093
  2912  
  2913  
  2914  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT2B                      ** GENERATED CODE                                   PAGE 00094
  2915  
  2916  int_4 _dcfft2b (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, complex_16 _p_ c_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
  2917  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  2918  { // ** body not listed **
  2962  }
  2963  
  2964  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT2F                      ** DCFFT2F                                          PAGE 00095
  2965  
  2966  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2967  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2968  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2969  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2970  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2971  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2972  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2973  
  2974  //                               DDDDDD   CCCCC  FFFFFFF FFFFFFF TTTTTTT  22222  FFFFFFF
  2975  //                               D     D C     C F       F          T    2     2 F
  2976  //                               D     D C       F       F          T          2 F
  2977  //                               D     D C       FFFFF   FFFFF      T     22222  FFFFF
  2978  //                               D     D C       F       F          T    2       F
  2979  //                               D     D C     C F       F          T    2       F
  2980  //                               DDDDDD   CCCCC  F       F          T    2222222 F
  2981  
  2982  
  2983  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT2F                      ** DIAGNOSTICS                                      PAGE 00096
  2984  
  2985  
  2986  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT2F                      ** GENERATED CODE                                   PAGE 00097
  2987  
  2988  int_4 _dcfft2f (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, complex_16 _p_ c_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
  2989  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  2990  { // ** body not listed **
  3034  }
  3035  
  3036  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT2I                      ** DCFFT2I                                          PAGE 00098
  3037  
  3038  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3039  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3040  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3041  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3042  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3043  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3044  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3045  
  3046  //                                DDDDDD   CCCCC  FFFFFFF FFFFFFF TTTTTTT  22222    III
  3047  //                                D     D C     C F       F          T    2     2    I
  3048  //                                D     D C       F       F          T          2    I
  3049  //                                D     D C       FFFFF   FFFFF      T     22222     I
  3050  //                                D     D C       F       F          T    2          I
  3051  //                                D     D C     C F       F          T    2          I
  3052  //                                DDDDDD   CCCCC  F       F          T    2222222   III
  3053  
  3054  
  3055  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT2I                      ** DIAGNOSTICS                                      PAGE 00099
  3056  
  3057  
  3058  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFT2I                      ** GENERATED CODE                                   PAGE 00100
  3059  
  3060  int_4 _dcfft2i (int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
  3061  { // ** body not listed **
  3090  }
  3091  
  3092  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFTMB                      ** DCFFTMB                                          PAGE 00101
  3093  
  3094  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3095  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3096  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3097  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3098  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3099  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3100  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3101  
  3102  //                               DDDDDD   CCCCC  FFFFFFF FFFFFFF TTTTTTT M     M BBBBBB
  3103  //                               D     D C     C F       F          T    MM   MM B     B
  3104  //                               D     D C       F       F          T    M M M M B     B
  3105  //                               D     D C       FFFFF   FFFFF      T    M  M  M BBBBBB
  3106  //                               D     D C       F       F          T    M     M B     B
  3107  //                               D     D C     C F       F          T    M     M B     B
  3108  //                               DDDDDD   CCCCC  F       F          T    M     M BBBBBB
  3109  
  3110  
  3111  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFTMB                      ** DIAGNOSTICS                                      PAGE 00102
  3112  
  3113  
  3114  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFTMB                      ** GENERATED CODE                                   PAGE 00103
  3115  
  3116  int_4 _dcfftmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, int_4 _p_ lenc_, 
  3117  real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  3118  { // ** body not listed **
  3147  }
  3148  
  3149  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFTMF                      ** DCFFTMF                                          PAGE 00104
  3150  
  3151  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3152  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3153  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3154  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3155  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3156  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3157  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3158  
  3159  //                               DDDDDD   CCCCC  FFFFFFF FFFFFFF TTTTTTT M     M FFFFFFF
  3160  //                               D     D C     C F       F          T    MM   MM F
  3161  //                               D     D C       F       F          T    M M M M F
  3162  //                               D     D C       FFFFF   FFFFF      T    M  M  M FFFFF
  3163  //                               D     D C       F       F          T    M     M F
  3164  //                               D     D C     C F       F          T    M     M F
  3165  //                               DDDDDD   CCCCC  F       F          T    M     M F
  3166  
  3167  
  3168  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFTMF                      ** DIAGNOSTICS                                      PAGE 00105
  3169  
  3170  
  3171  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFTMF                      ** GENERATED CODE                                   PAGE 00106
  3172  
  3173  int_4 _dcfftmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, int_4 _p_ lenc_, 
  3174  real_8 _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  3175  { // ** body not listed **
  3204  }
  3205  
  3206  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFTMI                      ** DCFFTMI                                          PAGE 00107
  3207  
  3208  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3209  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3210  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3211  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3212  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3213  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3214  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3215  
  3216  //                                DDDDDD   CCCCC  FFFFFFF FFFFFFF TTTTTTT M     M   III
  3217  //                                D     D C     C F       F          T    MM   MM    I
  3218  //                                D     D C       F       F          T    M M M M    I
  3219  //                                D     D C       FFFFF   FFFFF      T    M  M  M    I
  3220  //                                D     D C       F       F          T    M     M    I
  3221  //                                D     D C     C F       F          T    M     M    I
  3222  //                                DDDDDD   CCCCC  F       F          T    M     M   III
  3223  
  3224  
  3225  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFTMI                      ** DIAGNOSTICS                                      PAGE 00108
  3226  
  3227  
  3228  // VIF  THU 20 NOV 2025 22:19:29  ** DCFFTMI                      ** GENERATED CODE                                   PAGE 00109
  3229  
  3230  int_4 _dcfftmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
  3231  { // ** body not listed **
  3248  }
  3249  
  3250  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF2KB                      ** DCMF2KB                                          PAGE 00110
  3251  
  3252  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3253  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3254  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3255  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3256  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3257  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3258  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3259  
  3260  //                               DDDDDD   CCCCC  M     M FFFFFFF  22222  K    K  BBBBBB
  3261  //                               D     D C     C MM   MM F       2     2 K   K   B     B
  3262  //                               D     D C       M M M M F             2 K  K    B     B
  3263  //                               D     D C       M  M  M FFFFF    22222  KKK     BBBBBB
  3264  //                               D     D C       M     M F       2       K  K    B     B
  3265  //                               D     D C     C M     M F       2       K   K   B     B
  3266  //                               DDDDDD   CCCCC  M     M F       2222222 K    K  BBBBBB
  3267  
  3268  
  3269  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF2KB                      ** DIAGNOSTICS                                      PAGE 00111
  3270  
  3271  
  3272  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF2KB                      ** GENERATED CODE                                   PAGE 00112
  3273  
  3274  int_4 _dcmf2kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
  3275  in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
  3276  { // ** body not listed **
  3350  }
  3351  
  3352  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF2KF                      ** DCMF2KF                                          PAGE 00114
  3353  
  3354  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3355  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3356  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3357  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3358  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3359  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3360  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3361  
  3362  //                               DDDDDD   CCCCC  M     M FFFFFFF  22222  K    K  FFFFFFF
  3363  //                               D     D C     C MM   MM F       2     2 K   K   F
  3364  //                               D     D C       M M M M F             2 K  K    F
  3365  //                               D     D C       M  M  M FFFFF    22222  KKK     FFFFF
  3366  //                               D     D C       M     M F       2       K  K    F
  3367  //                               D     D C     C M     M F       2       K   K   F
  3368  //                               DDDDDD   CCCCC  M     M F       2222222 K    K  F
  3369  
  3370  
  3371  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF2KF                      ** DIAGNOSTICS                                      PAGE 00115
  3372  
  3373  
  3374  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF2KF                      ** GENERATED CODE                                   PAGE 00116
  3375  
  3376  int_4 _dcmf2kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
  3377  in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
  3378  { // ** body not listed **
  3473  }
  3474  
  3475  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF3KB                      ** DCMF3KB                                          PAGE 00118
  3476  
  3477  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3478  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3479  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3480  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3481  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3482  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3483  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3484  
  3485  //                               DDDDDD   CCCCC  M     M FFFFFFF  33333  K    K  BBBBBB
  3486  //                               D     D C     C MM   MM F       3     3 K   K   B     B
  3487  //                               D     D C       M M M M F             3 K  K    B     B
  3488  //                               D     D C       M  M  M FFFFF    33333  KKK     BBBBBB
  3489  //                               D     D C       M     M F             3 K  K    B     B
  3490  //                               D     D C     C M     M F       3     3 K   K   B     B
  3491  //                               DDDDDD   CCCCC  M     M F        33333  K    K  BBBBBB
  3492  
  3493  
  3494  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF3KB                      ** DIAGNOSTICS                                      PAGE 00119
  3495  
  3496  
  3497  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF3KB                      ** GENERATED CODE                                   PAGE 00120
  3498  
  3499  int_4 _dcmf3kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
  3500  in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
  3501  { // ** body not listed **
  3620  }
  3621  
  3622  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF3KF                      ** DCMF3KF                                          PAGE 00123
  3623  
  3624  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3625  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3626  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3627  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3628  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3629  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3630  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3631  
  3632  //                               DDDDDD   CCCCC  M     M FFFFFFF  33333  K    K  FFFFFFF
  3633  //                               D     D C     C MM   MM F       3     3 K   K   F
  3634  //                               D     D C       M M M M F             3 K  K    F
  3635  //                               D     D C       M  M  M FFFFF    33333  KKK     FFFFF
  3636  //                               D     D C       M     M F             3 K  K    F
  3637  //                               D     D C     C M     M F       3     3 K   K   F
  3638  //                               DDDDDD   CCCCC  M     M F        33333  K    K  F
  3639  
  3640  
  3641  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF3KF                      ** DIAGNOSTICS                                      PAGE 00124
  3642  
  3643  
  3644  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF3KF                      ** GENERATED CODE                                   PAGE 00125
  3645  
  3646  int_4 _dcmf3kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
  3647  in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
  3648  { // ** body not listed **
  3794  }
  3795  
  3796  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF4KB                      ** DCMF4KB                                          PAGE 00128
  3797  
  3798  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3799  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3800  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3801  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3802  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3803  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3804  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3805  
  3806  //                               DDDDDD   CCCCC  M     M FFFFFFF 4       K    K  BBBBBB
  3807  //                               D     D C     C MM   MM F       4    4  K   K   B     B
  3808  //                               D     D C       M M M M F       4    4  K  K    B     B
  3809  //                               D     D C       M  M  M FFFFF   4444444 KKK     BBBBBB
  3810  //                               D     D C       M     M F            4  K  K    B     B
  3811  //                               D     D C     C M     M F            4  K   K   B     B
  3812  //                               DDDDDD   CCCCC  M     M F            4  K    K  BBBBBB
  3813  
  3814  
  3815  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF4KB                      ** DIAGNOSTICS                                      PAGE 00129
  3816  
  3817  
  3818  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF4KB                      ** GENERATED CODE                                   PAGE 00130
  3819  
  3820  int_4 _dcmf4kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
  3821  in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
  3822  { // ** body not listed **
  3944  }
  3945  
  3946  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF4KF                      ** DCMF4KF                                          PAGE 00133
  3947  
  3948  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3949  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3950  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3951  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3952  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3953  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3954  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3955  
  3956  //                               DDDDDD   CCCCC  M     M FFFFFFF 4       K    K  FFFFFFF
  3957  //                               D     D C     C MM   MM F       4    4  K   K   F
  3958  //                               D     D C       M M M M F       4    4  K  K    F
  3959  //                               D     D C       M  M  M FFFFF   4444444 KKK     FFFFF
  3960  //                               D     D C       M     M F            4  K  K    F
  3961  //                               D     D C     C M     M F            4  K   K   F
  3962  //                               DDDDDD   CCCCC  M     M F            4  K    K  F
  3963  
  3964  
  3965  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF4KF                      ** DIAGNOSTICS                                      PAGE 00134
  3966  
  3967  
  3968  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF4KF                      ** GENERATED CODE                                   PAGE 00135
  3969  
  3970  int_4 _dcmf4kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
  3971  in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
  3972  { // ** body not listed **
  4129  }
  4130  
  4131  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF5KB                      ** DCMF5KB                                          PAGE 00139
  4132  
  4133  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  4134  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  4135  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  4136  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  4137  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  4138  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  4139  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  4140  
  4141  //                               DDDDDD   CCCCC  M     M FFFFFFF 5555555 K    K  BBBBBB
  4142  //                               D     D C     C MM   MM F       5       K   K   B     B
  4143  //                               D     D C       M M M M F       5       K  K    B     B
  4144  //                               D     D C       M  M  M FFFFF    55555  KKK     BBBBBB
  4145  //                               D     D C       M     M F             5 K  K    B     B
  4146  //                               D     D C     C M     M F       5     5 K   K   B     B
  4147  //                               DDDDDD   CCCCC  M     M F        55555  K    K  BBBBBB
  4148  
  4149  
  4150  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF5KB                      ** DIAGNOSTICS                                      PAGE 00140
  4151  
  4152  
  4153  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF5KB                      ** GENERATED CODE                                   PAGE 00141
  4154  
  4155  int_4 _dcmf5kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
  4156  in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
  4157  { // ** body not listed **
  4367  }
  4368  
  4369  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF5KF                      ** DCMF5KF                                          PAGE 00146
  4370  
  4371  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  4372  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  4373  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  4374  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  4375  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  4376  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  4377  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  4378  
  4379  //                               DDDDDD   CCCCC  M     M FFFFFFF 5555555 K    K  FFFFFFF
  4380  //                               D     D C     C MM   MM F       5       K   K   F
  4381  //                               D     D C       M M M M F       5       K  K    F
  4382  //                               D     D C       M  M  M FFFFF    55555  KKK     FFFFF
  4383  //                               D     D C       M     M F             5 K  K    F
  4384  //                               D     D C     C M     M F       5     5 K   K   F
  4385  //                               DDDDDD   CCCCC  M     M F        55555  K    K  F
  4386  
  4387  
  4388  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF5KF                      ** DIAGNOSTICS                                      PAGE 00147
  4389  
  4390  
  4391  // VIF  THU 20 NOV 2025 22:19:29  ** DCMF5KF                      ** GENERATED CODE                                   PAGE 00148
  4392  
  4393  int_4 _dcmf5kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
  4394  in1_, real_8 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa_)
  4395  { // ** body not listed **
  4658  }
  4659  
  4660  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFGKB                      ** DCMFGKB                                          PAGE 00154
  4661  
  4662  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  4663  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  4664  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  4665  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  4666  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  4667  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  4668  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  4669  
  4670  //                               DDDDDD   CCCCC  M     M FFFFFFF  GGGGG  K    K  BBBBBB
  4671  //                               D     D C     C MM   MM F       G     G K   K   B     B
  4672  //                               D     D C       M M M M F       G       K  K    B     B
  4673  //                               D     D C       M  M  M FFFFF   G  GGGG KKK     BBBBBB
  4674  //                               D     D C       M     M F       G     G K  K    B     B
  4675  //                               D     D C     C M     M F       G     G K   K   B     B
  4676  //                               DDDDDD   CCCCC  M     M F        GGGGG  K    K  BBBBBB
  4677  
  4678  
  4679  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFGKB                      ** DIAGNOSTICS                                      PAGE 00155
  4680  
  4681  
  4682  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFGKB                      ** GENERATED CODE                                   PAGE 00156
  4683  
  4684  int_4 _dcmfgkb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_8 _p_ 
  4685  cc_, real_8 _p_ cc1_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ im2_, int_4 _p_ in2_, 
  4686  real_8 _p_ wa_)
  4687  { // ** body not listed **
  4889  }
  4890  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFGKB                      ** GENERATED CODE                                   PAGE 00160
  4891  
  4892  
  4893  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFGKF                      ** DCMFGKF                                          PAGE 00161
  4894  
  4895  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  4896  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  4897  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  4898  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  4899  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  4900  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  4901  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  4902  
  4903  //                               DDDDDD   CCCCC  M     M FFFFFFF  GGGGG  K    K  FFFFFFF
  4904  //                               D     D C     C MM   MM F       G     G K   K   F
  4905  //                               D     D C       M M M M F       G       K  K    F
  4906  //                               D     D C       M  M  M FFFFF   G  GGGG KKK     FFFFF
  4907  //                               D     D C       M     M F       G     G K  K    F
  4908  //                               D     D C     C M     M F       G     G K   K   F
  4909  //                               DDDDDD   CCCCC  M     M F        GGGGG  K    K  F
  4910  
  4911  
  4912  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFGKF                      ** DIAGNOSTICS                                      PAGE 00162
  4913  
  4914  
  4915  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFGKF                      ** GENERATED CODE                                   PAGE 00163
  4916  
  4917  int_4 _dcmfgkf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_8 _p_ 
  4918  cc_, real_8 _p_ cc1_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch1_, int_4 _p_ im2_, int_4 _p_ in2_, 
  4919  real_8 _p_ wa_)
  4920  { // ** body not listed **
  5168  }
  5169  
  5170  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFM1B                      ** DCMFM1B                                          PAGE 00168
  5171  
  5172  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5173  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5174  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5175  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5176  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5177  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5178  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5179  
  5180  //                               DDDDDD   CCCCC  M     M FFFFFFF M     M    1    BBBBBB
  5181  //                               D     D C     C MM   MM F       MM   MM   11    B     B
  5182  //                               D     D C       M M M M F       M M M M  1 1    B     B
  5183  //                               D     D C       M  M  M FFFFF   M  M  M    1    BBBBBB
  5184  //                               D     D C       M     M F       M     M    1    B     B
  5185  //                               D     D C     C M     M F       M     M    1    B     B
  5186  //                               DDDDDD   CCCCC  M     M F       M     M  11111  BBBBBB
  5187  
  5188  
  5189  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFM1B                      ** DIAGNOSTICS                                      PAGE 00169
  5190  
  5191  
  5192  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFM1B                      ** GENERATED CODE                                   PAGE 00170
  5193  
  5194  int_4 _dcmfm1b (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, real_8 _p_ ch_, 
  5195  real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_)
  5196  { // ** body not listed **
  5261  }
  5262  
  5263  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFM1F                      ** DCMFM1F                                          PAGE 00172
  5264  
  5265  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5266  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5267  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5268  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5269  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5270  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5271  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5272  
  5273  //                               DDDDDD   CCCCC  M     M FFFFFFF M     M    1    FFFFFFF
  5274  //                               D     D C     C MM   MM F       MM   MM   11    F
  5275  //                               D     D C       M M M M F       M M M M  1 1    F
  5276  //                               D     D C       M  M  M FFFFF   M  M  M    1    FFFFF
  5277  //                               D     D C       M     M F       M     M    1    F
  5278  //                               D     D C     C M     M F       M     M    1    F
  5279  //                               DDDDDD   CCCCC  M     M F       M     M  11111  F
  5280  
  5281  
  5282  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFM1F                      ** DIAGNOSTICS                                      PAGE 00173
  5283  
  5284  
  5285  // VIF  THU 20 NOV 2025 22:19:29  ** DCMFM1F                      ** GENERATED CODE                                   PAGE 00174
  5286  
  5287  int_4 _dcmfm1f (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_16 _p_ c_, real_8 _p_ ch_, 
  5288  real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_)
  5289  { // ** body not listed **
  5354  }
  5355  
  5356  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQ1B                      ** DCOSQ1B                                          PAGE 00176
  5357  
  5358  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5359  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5360  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5361  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5362  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5363  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5364  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5365  
  5366  //                               DDDDDD   CCCCC   OOOOO   SSSSS   QQQQQ     1    BBBBBB
  5367  //                               D     D C     C O     O S     S Q     Q   11    B     B
  5368  //                               D     D C       O     O S       Q     Q  1 1    B     B
  5369  //                               D     D C       O     O  SSSSS  Q     Q    1    BBBBBB
  5370  //                               D     D C       O     O       S Q   Q Q    1    B     B
  5371  //                               D     D C     C O     O S     S Q    Q     1    B     B
  5372  //                               DDDDDD   CCCCC   OOOOO   SSSSS   QQQQ Q  11111  BBBBBB
  5373  
  5374  
  5375  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQ1B                      ** DIAGNOSTICS                                      PAGE 00177
  5376  
  5377  
  5378  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQ1B                      ** GENERATED CODE                                   PAGE 00178
  5379  
  5380  int_4 _dcosq1b (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
  5381  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  5382  { // ** body not listed **
  5427  }
  5428  
  5429  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQ1F                      ** DCOSQ1F                                          PAGE 00179
  5430  
  5431  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5432  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5433  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5434  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5435  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5436  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5437  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5438  
  5439  //                               DDDDDD   CCCCC   OOOOO   SSSSS   QQQQQ     1    FFFFFFF
  5440  //                               D     D C     C O     O S     S Q     Q   11    F
  5441  //                               D     D C       O     O S       Q     Q  1 1    F
  5442  //                               D     D C       O     O  SSSSS  Q     Q    1    FFFFF
  5443  //                               D     D C       O     O       S Q   Q Q    1    F
  5444  //                               D     D C     C O     O S     S Q    Q     1    F
  5445  //                               DDDDDD   CCCCC   OOOOO   SSSSS   QQQQ Q  11111  F
  5446  
  5447  
  5448  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQ1F                      ** DIAGNOSTICS                                      PAGE 00180
  5449  
  5450  
  5451  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQ1F                      ** GENERATED CODE                                   PAGE 00181
  5452  
  5453  int_4 _dcosq1f (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
  5454  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  5455  { // ** body not listed **
  5501  }
  5502  
  5503  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQ1I                      ** DCOSQ1I                                          PAGE 00182
  5504  
  5505  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5506  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5507  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5508  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5509  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5510  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5511  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5512  
  5513  //                                DDDDDD   CCCCC   OOOOO   SSSSS   QQQQQ     1      III
  5514  //                                D     D C     C O     O S     S Q     Q   11       I
  5515  //                                D     D C       O     O S       Q     Q  1 1       I
  5516  //                                D     D C       O     O  SSSSS  Q     Q    1       I
  5517  //                                D     D C       O     O       S Q   Q Q    1       I
  5518  //                                D     D C     C O     O S     S Q    Q     1       I
  5519  //                                DDDDDD   CCCCC   OOOOO   SSSSS   QQQQ Q  11111    III
  5520  
  5521  
  5522  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQ1I                      ** DIAGNOSTICS                                      PAGE 00183
  5523  
  5524  
  5525  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQ1I                      ** GENERATED CODE                                   PAGE 00184
  5526  
  5527  int_4 _dcosq1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
  5528  { // ** body not listed **
  5556  }
  5557  
  5558  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQB1                      ** DCOSQB1                                          PAGE 00185
  5559  
  5560  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5561  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5562  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5563  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5564  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5565  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5566  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5567  
  5568  //                                DDDDDD   CCCCC   OOOOO   SSSSS   QQQQQ  BBBBBB     1
  5569  //                                D     D C     C O     O S     S Q     Q B     B   11
  5570  //                                D     D C       O     O S       Q     Q B     B  1 1
  5571  //                                D     D C       O     O  SSSSS  Q     Q BBBBBB     1
  5572  //                                D     D C       O     O       S Q   Q Q B     B    1
  5573  //                                D     D C     C O     O S     S Q    Q  B     B    1
  5574  //                                DDDDDD   CCCCC   OOOOO   SSSSS   QQQQ Q BBBBBB   11111
  5575  
  5576  
  5577  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQB1                      ** DIAGNOSTICS                                      PAGE 00186
  5578  
  5579  
  5580  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQB1                      ** GENERATED CODE                                   PAGE 00187
  5581  
  5582  int_4 _dcosqb1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
  5583  { // ** body not listed **
  5636  }
  5637  
  5638  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQF1                      ** DCOSQF1                                          PAGE 00189
  5639  
  5640  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5641  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5642  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5643  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5644  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5645  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5646  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5647  
  5648  //                                DDDDDD   CCCCC   OOOOO   SSSSS   QQQQQ  FFFFFFF    1
  5649  //                                D     D C     C O     O S     S Q     Q F         11
  5650  //                                D     D C       O     O S       Q     Q F        1 1
  5651  //                                D     D C       O     O  SSSSS  Q     Q FFFFF      1
  5652  //                                D     D C       O     O       S Q   Q Q F          1
  5653  //                                D     D C     C O     O S     S Q    Q  F          1
  5654  //                                DDDDDD   CCCCC   OOOOO   SSSSS   QQQQ Q F        11111
  5655  
  5656  
  5657  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQF1                      ** DIAGNOSTICS                                      PAGE 00190
  5658  
  5659  
  5660  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQF1                      ** GENERATED CODE                                   PAGE 00191
  5661  
  5662  int_4 _dcosqf1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
  5663  { // ** body not listed **
  5709  }
  5710  
  5711  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQMB                      ** DCOSQMB                                          PAGE 00192
  5712  
  5713  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5714  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5715  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5716  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5717  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5718  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5719  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5720  
  5721  //                               DDDDDD   CCCCC   OOOOO   SSSSS   QQQQQ  M     M BBBBBB
  5722  //                               D     D C     C O     O S     S Q     Q MM   MM B     B
  5723  //                               D     D C       O     O S       Q     Q M M M M B     B
  5724  //                               D     D C       O     O  SSSSS  Q     Q M  M  M BBBBBB
  5725  //                               D     D C       O     O       S Q   Q Q M     M B     B
  5726  //                               D     D C     C O     O S     S Q    Q  M     M B     B
  5727  //                               DDDDDD   CCCCC   OOOOO   SSSSS   QQQQ Q M     M BBBBBB
  5728  
  5729  
  5730  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQMB                      ** DIAGNOSTICS                                      PAGE 00193
  5731  
  5732  
  5733  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQMB                      ** GENERATED CODE                                   PAGE 00194
  5734  
  5735  int_4 _dcosqmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 
  5736  _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  5737  { // ** body not listed **
  5797  }
  5798  
  5799  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQMF                      ** DCOSQMF                                          PAGE 00196
  5800  
  5801  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5802  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5803  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5804  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5805  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5806  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5807  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5808  
  5809  //                               DDDDDD   CCCCC   OOOOO   SSSSS   QQQQQ  M     M FFFFFFF
  5810  //                               D     D C     C O     O S     S Q     Q MM   MM F
  5811  //                               D     D C       O     O S       Q     Q M M M M F
  5812  //                               D     D C       O     O  SSSSS  Q     Q M  M  M FFFFF
  5813  //                               D     D C       O     O       S Q   Q Q M     M F
  5814  //                               D     D C     C O     O S     S Q    Q  M     M F
  5815  //                               DDDDDD   CCCCC   OOOOO   SSSSS   QQQQ Q M     M F
  5816  
  5817  
  5818  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQMF                      ** DIAGNOSTICS                                      PAGE 00197
  5819  
  5820  
  5821  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQMF                      ** GENERATED CODE                                   PAGE 00198
  5822  
  5823  int_4 _dcosqmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 
  5824  _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  5825  { // ** body not listed **
  5881  }
  5882  
  5883  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQMI                      ** DCOSQMI                                          PAGE 00200
  5884  
  5885  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5886  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5887  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5888  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5889  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5890  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5891  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5892  
  5893  //                                DDDDDD   CCCCC   OOOOO   SSSSS   QQQQQ  M     M   III
  5894  //                                D     D C     C O     O S     S Q     Q MM   MM    I
  5895  //                                D     D C       O     O S       Q     Q M M M M    I
  5896  //                                D     D C       O     O  SSSSS  Q     Q M  M  M    I
  5897  //                                D     D C       O     O       S Q   Q Q M     M    I
  5898  //                                D     D C     C O     O S     S Q    Q  M     M    I
  5899  //                                DDDDDD   CCCCC   OOOOO   SSSSS   QQQQ Q M     M   III
  5900  
  5901  
  5902  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQMI                      ** DIAGNOSTICS                                      PAGE 00201
  5903  
  5904  
  5905  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSQMI                      ** GENERATED CODE                                   PAGE 00202
  5906  
  5907  int_4 _dcosqmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
  5908  { // ** body not listed **
  5936  }
  5937  
  5938  // VIF  THU 20 NOV 2025 22:19:29  ** DCOST1B                      ** DCOST1B                                          PAGE 00203
  5939  
  5940  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5941  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5942  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5943  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5944  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5945  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5946  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5947  
  5948  //                               DDDDDD   CCCCC   OOOOO   SSSSS  TTTTTTT    1    BBBBBB
  5949  //                               D     D C     C O     O S     S    T      11    B     B
  5950  //                               D     D C       O     O S          T     1 1    B     B
  5951  //                               D     D C       O     O  SSSSS     T       1    BBBBBB
  5952  //                               D     D C       O     O       S    T       1    B     B
  5953  //                               D     D C     C O     O S     S    T       1    B     B
  5954  //                               DDDDDD   CCCCC   OOOOO   SSSSS     T     11111  BBBBBB
  5955  
  5956  
  5957  // VIF  THU 20 NOV 2025 22:19:29  ** DCOST1B                      ** DIAGNOSTICS                                      PAGE 00204
  5958  
  5959  
  5960  // VIF  THU 20 NOV 2025 22:19:29  ** DCOST1B                      ** GENERATED CODE                                   PAGE 00205
  5961  
  5962  int_4 _dcost1b (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
  5963  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  5964  { // ** body not listed **
  5996  }
  5997  
  5998  // VIF  THU 20 NOV 2025 22:19:29  ** DCOST1F                      ** DCOST1F                                          PAGE 00206
  5999  
  6000  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6001  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6002  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6003  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6004  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6005  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6006  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6007  
  6008  //                               DDDDDD   CCCCC   OOOOO   SSSSS  TTTTTTT    1    FFFFFFF
  6009  //                               D     D C     C O     O S     S    T      11    F
  6010  //                               D     D C       O     O S          T     1 1    F
  6011  //                               D     D C       O     O  SSSSS     T       1    FFFFF
  6012  //                               D     D C       O     O       S    T       1    F
  6013  //                               D     D C     C O     O S     S    T       1    F
  6014  //                               DDDDDD   CCCCC   OOOOO   SSSSS     T     11111  F
  6015  
  6016  
  6017  // VIF  THU 20 NOV 2025 22:19:29  ** DCOST1F                      ** DIAGNOSTICS                                      PAGE 00207
  6018  
  6019  
  6020  // VIF  THU 20 NOV 2025 22:19:29  ** DCOST1F                      ** GENERATED CODE                                   PAGE 00208
  6021  
  6022  int_4 _dcost1f (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
  6023  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  6024  { // ** body not listed **
  6056  }
  6057  
  6058  // VIF  THU 20 NOV 2025 22:19:29  ** DCOST1I                      ** DCOST1I                                          PAGE 00209
  6059  
  6060  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6061  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6062  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6063  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6064  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6065  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6066  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6067  
  6068  //                                DDDDDD   CCCCC   OOOOO   SSSSS  TTTTTTT    1      III
  6069  //                                D     D C     C O     O S     S    T      11       I
  6070  //                                D     D C       O     O S          T     1 1       I
  6071  //                                D     D C       O     O  SSSSS     T       1       I
  6072  //                                D     D C       O     O       S    T       1       I
  6073  //                                D     D C     C O     O S     S    T       1       I
  6074  //                                DDDDDD   CCCCC   OOOOO   SSSSS     T     11111    III
  6075  
  6076  
  6077  // VIF  THU 20 NOV 2025 22:19:29  ** DCOST1I                      ** DIAGNOSTICS                                      PAGE 00210
  6078  
  6079  
  6080  // VIF  THU 20 NOV 2025 22:19:29  ** DCOST1I                      ** GENERATED CODE                                   PAGE 00211
  6081  
  6082  int_4 _dcost1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
  6083  { // ** body not listed **
  6120  }
  6121  
  6122  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTB1                      ** DCOSTB1                                          PAGE 00212
  6123  
  6124  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6125  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6126  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6127  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6128  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6129  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6130  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6131  
  6132  //                                DDDDDD   CCCCC   OOOOO   SSSSS  TTTTTTT BBBBBB     1
  6133  //                                D     D C     C O     O S     S    T    B     B   11
  6134  //                                D     D C       O     O S          T    B     B  1 1
  6135  //                                D     D C       O     O  SSSSS     T    BBBBBB     1
  6136  //                                D     D C       O     O       S    T    B     B    1
  6137  //                                D     D C     C O     O S     S    T    B     B    1
  6138  //                                DDDDDD   CCCCC   OOOOO   SSSSS     T    BBBBBB   11111
  6139  
  6140  
  6141  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTB1                      ** DIAGNOSTICS                                      PAGE 00213
  6142  
  6143  
  6144  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTB1                      ** GENERATED CODE                                   PAGE 00214
  6145  
  6146  int_4 _dcostb1 (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
  6147  { // ** body not listed **
  6234  }
  6235  
  6236  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTF1                      ** DCOSTF1                                          PAGE 00216
  6237  
  6238  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6239  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6240  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6241  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6242  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6243  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6244  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6245  
  6246  //                                DDDDDD   CCCCC   OOOOO   SSSSS  TTTTTTT FFFFFFF    1
  6247  //                                D     D C     C O     O S     S    T    F         11
  6248  //                                D     D C       O     O S          T    F        1 1
  6249  //                                D     D C       O     O  SSSSS     T    FFFFF      1
  6250  //                                D     D C       O     O       S    T    F          1
  6251  //                                D     D C     C O     O S     S    T    F          1
  6252  //                                DDDDDD   CCCCC   OOOOO   SSSSS     T    F        11111
  6253  
  6254  
  6255  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTF1                      ** DIAGNOSTICS                                      PAGE 00217
  6256  
  6257  
  6258  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTF1                      ** GENERATED CODE                                   PAGE 00218
  6259  
  6260  int_4 _dcostf1 (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
  6261  { // ** body not listed **
  6346  }
  6347  
  6348  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTMB                      ** DCOSTMB                                          PAGE 00220
  6349  
  6350  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6351  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6352  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6353  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6354  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6355  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6356  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6357  
  6358  //                               DDDDDD   CCCCC   OOOOO   SSSSS  TTTTTTT M     M BBBBBB
  6359  //                               D     D C     C O     O S     S    T    MM   MM B     B
  6360  //                               D     D C       O     O S          T    M M M M B     B
  6361  //                               D     D C       O     O  SSSSS     T    M  M  M BBBBBB
  6362  //                               D     D C       O     O       S    T    M     M B     B
  6363  //                               D     D C     C O     O S     S    T    M     M B     B
  6364  //                               DDDDDD   CCCCC   OOOOO   SSSSS     T    M     M BBBBBB
  6365  
  6366  
  6367  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTMB                      ** DIAGNOSTICS                                      PAGE 00221
  6368  
  6369  
  6370  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTMB                      ** GENERATED CODE                                   PAGE 00222
  6371  
  6372  int_4 _dcostmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 
  6373  _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  6374  { // ** body not listed **
  6408  }
  6409  
  6410  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTMF                      ** DCOSTMF                                          PAGE 00223
  6411  
  6412  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6413  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6414  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6415  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6416  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6417  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6418  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6419  
  6420  //                               DDDDDD   CCCCC   OOOOO   SSSSS  TTTTTTT M     M FFFFFFF
  6421  //                               D     D C     C O     O S     S    T    MM   MM F
  6422  //                               D     D C       O     O S          T    M M M M F
  6423  //                               D     D C       O     O  SSSSS     T    M  M  M FFFFF
  6424  //                               D     D C       O     O       S    T    M     M F
  6425  //                               D     D C     C O     O S     S    T    M     M F
  6426  //                               DDDDDD   CCCCC   OOOOO   SSSSS     T    M     M F
  6427  
  6428  
  6429  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTMF                      ** DIAGNOSTICS                                      PAGE 00224
  6430  
  6431  
  6432  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTMF                      ** GENERATED CODE                                   PAGE 00225
  6433  
  6434  int_4 _dcostmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 
  6435  _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
  6436  { // ** body not listed **
  6470  }
  6471  
  6472  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTMI                      ** DCOSTMI                                          PAGE 00226
  6473  
  6474  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6475  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6476  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6477  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6478  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6479  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6480  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6481  
  6482  //                                DDDDDD   CCCCC   OOOOO   SSSSS  TTTTTTT M     M   III
  6483  //                                D     D C     C O     O S     S    T    MM   MM    I
  6484  //                                D     D C       O     O S          T    M M M M    I
  6485  //                                D     D C       O     O  SSSSS     T    M  M  M    I
  6486  //                                D     D C       O     O       S    T    M     M    I
  6487  //                                D     D C     C O     O S     S    T    M     M    I
  6488  //                                DDDDDD   CCCCC   OOOOO   SSSSS     T    M     M   III
  6489  
  6490  
  6491  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTMI                      ** DIAGNOSTICS                                      PAGE 00227
  6492  
  6493  
  6494  // VIF  THU 20 NOV 2025 22:19:29  ** DCOSTMI                      ** GENERATED CODE                                   PAGE 00228
  6495  
  6496  int_4 _dcostmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
  6497  { // ** body not listed **
  6534  }
  6535  
  6536  // VIF  THU 20 NOV 2025 22:19:29  ** DFACTOR                      ** DFACTOR                                          PAGE 00229
  6537  
  6538  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6539  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6540  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6541  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6542  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6543  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6544  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6545  
  6546  //                               DDDDDD  FFFFFFF    A     CCCCC  TTTTTTT  OOOOO  RRRRRR
  6547  //                               D     D F         A A   C     C    T    O     O R     R
  6548  //                               D     D F        A   A  C          T    O     O R     R
  6549  //                               D     D FFFFF   A     A C          T    O     O RRRRRR
  6550  //                               D     D F       AAAAAAA C          T    O     O R   R
  6551  //                               D     D F       A     A C     C    T    O     O R    R
  6552  //                               DDDDDD  F       A     A  CCCCC     T     OOOOO  R     R
  6553  
  6554  
  6555  // VIF  THU 20 NOV 2025 22:19:29  ** DFACTOR                      ** DIAGNOSTICS                                      PAGE 00230
  6556  
  6557  
  6558  // VIF  THU 20 NOV 2025 22:19:29  ** DFACTOR                      ** GENERATED CODE                                   PAGE 00231
  6559  
  6560  int_4 _dfactor (int_4 _p_ n_, int_4 _p_ nf_, real_8 _p_ fac_)
  6561  { // ** body not listed **
  6634  }
  6635  
  6636  // VIF  THU 20 NOV 2025 22:19:29  ** DMCFTI1                      ** DMCFTI1                                          PAGE 00233
  6637  
  6638  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6639  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6640  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6641  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6642  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6643  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6644  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6645  
  6646  //                                DDDDDD  M     M  CCCCC  FFFFFFF TTTTTTT   III      1
  6647  //                                D     D MM   MM C     C F          T       I      11
  6648  //                                D     D M M M M C       F          T       I     1 1
  6649  //                                D     D M  M  M C       FFFFF      T       I       1
  6650  //                                D     D M     M C       F          T       I       1
  6651  //                                D     D M     M C     C F          T       I       1
  6652  //                                DDDDDD  M     M  CCCCC  F          T      III    11111
  6653  
  6654  
  6655  // VIF  THU 20 NOV 2025 22:19:29  ** DMCFTI1                      ** DIAGNOSTICS                                      PAGE 00234
  6656  
  6657  
  6658  // VIF  THU 20 NOV 2025 22:19:29  ** DMCFTI1                      ** GENERATED CODE                                   PAGE 00235
  6659  
  6660  int_4 _dmcfti1 (int_4 _p_ n_, real_8 _p_ wa_, real_4 _p_ fnf_, real_8 _p_ fac_)
  6661  { // ** body not listed **
  6677  }
  6678  
  6679  // VIF  THU 20 NOV 2025 22:19:29  ** DMCSQB1                      ** DMCSQB1                                          PAGE 00236
  6680  
  6681  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6682  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6683  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6684  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6685  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6686  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6687  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6688  
  6689  //                                DDDDDD  M     M  CCCCC   SSSSS   QQQQQ  BBBBBB     1
  6690  //                                D     D MM   MM C     C S     S Q     Q B     B   11
  6691  //                                D     D M M M M C       S       Q     Q B     B  1 1
  6692  //                                D     D M  M  M C        SSSSS  Q     Q BBBBBB     1
  6693  //                                D     D M     M C             S Q   Q Q B     B    1
  6694  //                                D     D M     M C     C S     S Q    Q  B     B    1
  6695  //                                DDDDDD  M     M  CCCCC   SSSSS   QQQQ Q BBBBBB   11111
  6696  
  6697  
  6698  // VIF  THU 20 NOV 2025 22:19:29  ** DMCSQB1                      ** DIAGNOSTICS                                      PAGE 00237
  6699  
  6700  
  6701  // VIF  THU 20 NOV 2025 22:19:29  ** DMCSQB1                      ** GENERATED CODE                                   PAGE 00238
  6702  
  6703  int_4 _dmcsqb1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 
  6704  _p_ work_, int_4 _p_ ier_)
  6705  { // ** body not listed **
  6780  }
  6781  
  6782  // VIF  THU 20 NOV 2025 22:19:29  ** DMCSQF1                      ** DMCSQF1                                          PAGE 00240
  6783  
  6784  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6785  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6786  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6787  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6788  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6789  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6790  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6791  
  6792  //                                DDDDDD  M     M  CCCCC   SSSSS   QQQQQ  FFFFFFF    1
  6793  //                                D     D MM   MM C     C S     S Q     Q F         11
  6794  //                                D     D M M M M C       S       Q     Q F        1 1
  6795  //                                D     D M  M  M C        SSSSS  Q     Q FFFFF      1
  6796  //                                D     D M     M C             S Q   Q Q F          1
  6797  //                                D     D M     M C     C S     S Q    Q  F          1
  6798  //                                DDDDDD  M     M  CCCCC   SSSSS   QQQQ Q F        11111
  6799  
  6800  
  6801  // VIF  THU 20 NOV 2025 22:19:29  ** DMCSQF1                      ** DIAGNOSTICS                                      PAGE 00241
  6802  
  6803  
  6804  // VIF  THU 20 NOV 2025 22:19:29  ** DMCSQF1                      ** GENERATED CODE                                   PAGE 00242
  6805  
  6806  int_4 _dmcsqf1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 
  6807  _p_ work_, int_4 _p_ ier_)
  6808  { // ** body not listed **
  6879  }
  6880  
  6881  // VIF  THU 20 NOV 2025 22:19:29  ** DMCSTB1                      ** DMCSTB1                                          PAGE 00244
  6882  
  6883  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6884  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6885  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6886  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6887  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6888  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6889  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6890  
  6891  //                                DDDDDD  M     M  CCCCC   SSSSS  TTTTTTT BBBBBB     1
  6892  //                                D     D MM   MM C     C S     S    T    B     B   11
  6893  //                                D     D M M M M C       S          T    B     B  1 1
  6894  //                                D     D M  M  M C        SSSSS     T    BBBBBB     1
  6895  //                                D     D M     M C             S    T    B     B    1
  6896  //                                D     D M     M C     C S     S    T    B     B    1
  6897  //                                DDDDDD  M     M  CCCCC   SSSSS     T    BBBBBB   11111
  6898  
  6899  
  6900  // VIF  THU 20 NOV 2025 22:19:29  ** DMCSTB1                      ** DIAGNOSTICS                                      PAGE 00245
  6901  
  6902  
  6903  // VIF  THU 20 NOV 2025 22:19:29  ** DMCSTB1                      ** GENERATED CODE                                   PAGE 00246
  6904  
  6905  int_4 _dmcstb1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_8 
  6906  _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_)
  6907  { // ** body not listed **
  7028  }
  7029  
  7030  // VIF  THU 20 NOV 2025 22:19:29  ** DMCSTF1                      ** DMCSTF1                                          PAGE 00249
  7031  
  7032  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7033  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7034  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7035  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7036  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7037  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7038  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7039  
  7040  //                                DDDDDD  M     M  CCCCC   SSSSS  TTTTTTT FFFFFFF    1
  7041  //                                D     D MM   MM C     C S     S    T    F         11
  7042  //                                D     D M M M M C       S          T    F        1 1
  7043  //                                D     D M  M  M C        SSSSS     T    FFFFF      1
  7044  //                                D     D M     M C             S    T    F          1
  7045  //                                D     D M     M C     C S     S    T    F          1
  7046  //                                DDDDDD  M     M  CCCCC   SSSSS     T    F        11111
  7047  
  7048  
  7049  // VIF  THU 20 NOV 2025 22:19:29  ** DMCSTF1                      ** DIAGNOSTICS                                      PAGE 00250
  7050  
  7051  
  7052  // VIF  THU 20 NOV 2025 22:19:29  ** DMCSTF1                      ** GENERATED CODE                                   PAGE 00251
  7053  
  7054  int_4 _dmcstf1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_8 
  7055  _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_)
  7056  { // ** body not listed **
  7172  }
  7173  
  7174  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADB2                      ** DMRADB2                                          PAGE 00254
  7175  
  7176  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7177  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7178  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7179  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7180  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7181  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7182  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7183  
  7184  //                               DDDDDD  M     M RRRRRR     A    DDDDDD  BBBBBB   22222
  7185  //                               D     D MM   MM R     R   A A   D     D B     B 2     2
  7186  //                               D     D M M M M R     R  A   A  D     D B     B       2
  7187  //                               D     D M  M  M RRRRRR  A     A D     D BBBBBB   22222
  7188  //                               D     D M     M R   R   AAAAAAA D     D B     B 2
  7189  //                               D     D M     M R    R  A     A D     D B     B 2
  7190  //                               DDDDDD  M     M R     R A     A DDDDDD  BBBBBB  2222222
  7191  
  7192  
  7193  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADB2                      ** DIAGNOSTICS                                      PAGE 00255
  7194  
  7195  
  7196  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADB2                      ** GENERATED CODE                                   PAGE 00256
  7197  
  7198  int_4 _dmradb2 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ 
  7199  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_)
  7200  { // ** body not listed **
  7272  }
  7273  
  7274  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADB3                      ** DMRADB3                                          PAGE 00258
  7275  
  7276  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7277  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7278  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7279  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7280  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7281  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7282  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7283  
  7284  //                               DDDDDD  M     M RRRRRR     A    DDDDDD  BBBBBB   33333
  7285  //                               D     D MM   MM R     R   A A   D     D B     B 3     3
  7286  //                               D     D M M M M R     R  A   A  D     D B     B       3
  7287  //                               D     D M  M  M RRRRRR  A     A D     D BBBBBB   33333
  7288  //                               D     D M     M R   R   AAAAAAA D     D B     B       3
  7289  //                               D     D M     M R    R  A     A D     D B     B 3     3
  7290  //                               DDDDDD  M     M R     R A     A DDDDDD  BBBBBB   33333
  7291  
  7292  
  7293  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADB3                      ** DIAGNOSTICS                                      PAGE 00259
  7294  
  7295  
  7296  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADB3                      ** GENERATED CODE                                   PAGE 00260
  7297  
  7298  int_4 _dmradb3 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ 
  7299  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_)
  7300  { // ** body not listed **
  7383  }
  7384  
  7385  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADB4                      ** DMRADB4                                          PAGE 00262
  7386  
  7387  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7388  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7389  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7390  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7391  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7392  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7393  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7394  
  7395  //                               DDDDDD  M     M RRRRRR     A    DDDDDD  BBBBBB  4
  7396  //                               D     D MM   MM R     R   A A   D     D B     B 4    4
  7397  //                               D     D M M M M R     R  A   A  D     D B     B 4    4
  7398  //                               D     D M  M  M RRRRRR  A     A D     D BBBBBB  4444444
  7399  //                               D     D M     M R   R   AAAAAAA D     D B     B      4
  7400  //                               D     D M     M R    R  A     A D     D B     B      4
  7401  //                               DDDDDD  M     M R     R A     A DDDDDD  BBBBBB       4
  7402  
  7403  
  7404  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADB4                      ** DIAGNOSTICS                                      PAGE 00263
  7405  
  7406  
  7407  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADB4                      ** GENERATED CODE                                   PAGE 00264
  7408  
  7409  int_4 _dmradb4 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ 
  7410  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_)
  7411  { // ** body not listed **
  7543  }
  7544  
  7545  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADB5                      ** DMRADB5                                          PAGE 00267
  7546  
  7547  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7548  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7549  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7550  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7551  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7552  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7553  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7554  
  7555  //                               DDDDDD  M     M RRRRRR     A    DDDDDD  BBBBBB  5555555
  7556  //                               D     D MM   MM R     R   A A   D     D B     B 5
  7557  //                               D     D M M M M R     R  A   A  D     D B     B 5
  7558  //                               D     D M  M  M RRRRRR  A     A D     D BBBBBB   55555
  7559  //                               D     D M     M R   R   AAAAAAA D     D B     B       5
  7560  //                               D     D M     M R    R  A     A D     D B     B 5     5
  7561  //                               DDDDDD  M     M R     R A     A DDDDDD  BBBBBB   55555
  7562  
  7563  
  7564  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADB5                      ** DIAGNOSTICS                                      PAGE 00268
  7565  
  7566  
  7567  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADB5                      ** GENERATED CODE                                   PAGE 00269
  7568  
  7569  int_4 _dmradb5 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ 
  7570  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
  7571  { // ** body not listed **
  7762  }
  7763  
  7764  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADBG                      ** DMRADBG                                          PAGE 00273
  7765  
  7766  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7767  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7768  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7769  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7770  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7771  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7772  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7773  
  7774  //                               DDDDDD  M     M RRRRRR     A    DDDDDD  BBBBBB   GGGGG
  7775  //                               D     D MM   MM R     R   A A   D     D B     B G     G
  7776  //                               D     D M M M M R     R  A   A  D     D B     B G
  7777  //                               D     D M  M  M RRRRRR  A     A D     D BBBBBB  G  GGGG
  7778  //                               D     D M     M R   R   AAAAAAA D     D B     B G     G
  7779  //                               D     D M     M R    R  A     A D     D B     B G     G
  7780  //                               DDDDDD  M     M R     R A     A DDDDDD  BBBBBB   GGGGG
  7781  
  7782  
  7783  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADBG                      ** DIAGNOSTICS                                      PAGE 00274
  7784  
  7785  
  7786  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADBG                      ** GENERATED CODE                                   PAGE 00275
  7787  
  7788  int_4 _dmradbg (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_8 _p_ cc_, real_8 _p_ 
  7789  c1_, real_8 _p_ c2_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ im2_, int_4 _p_ in2_, 
  7790  real_8 _p_ wa_)
  7791  { // ** body not listed **
  8103  }
  8104  
  8105  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADF2                      ** DMRADF2                                          PAGE 00282
  8106  
  8107  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8108  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8109  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8110  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8111  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8112  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8113  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8114  
  8115  //                               DDDDDD  M     M RRRRRR     A    DDDDDD  FFFFFFF  22222
  8116  //                               D     D MM   MM R     R   A A   D     D F       2     2
  8117  //                               D     D M M M M R     R  A   A  D     D F             2
  8118  //                               D     D M  M  M RRRRRR  A     A D     D FFFFF    22222
  8119  //                               D     D M     M R   R   AAAAAAA D     D F       2
  8120  //                               D     D M     M R    R  A     A D     D F       2
  8121  //                               DDDDDD  M     M R     R A     A DDDDDD  F       2222222
  8122  
  8123  
  8124  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADF2                      ** DIAGNOSTICS                                      PAGE 00283
  8125  
  8126  
  8127  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADF2                      ** GENERATED CODE                                   PAGE 00284
  8128  
  8129  int_4 _dmradf2 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ 
  8130  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_)
  8131  { // ** body not listed **
  8202  }
  8203  
  8204  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADF3                      ** DMRADF3                                          PAGE 00286
  8205  
  8206  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8207  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8208  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8209  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8210  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8211  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8212  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8213  
  8214  //                               DDDDDD  M     M RRRRRR     A    DDDDDD  FFFFFFF  33333
  8215  //                               D     D MM   MM R     R   A A   D     D F       3     3
  8216  //                               D     D M M M M R     R  A   A  D     D F             3
  8217  //                               D     D M  M  M RRRRRR  A     A D     D FFFFF    33333
  8218  //                               D     D M     M R   R   AAAAAAA D     D F             3
  8219  //                               D     D M     M R    R  A     A D     D F       3     3
  8220  //                               DDDDDD  M     M R     R A     A DDDDDD  F        33333
  8221  
  8222  
  8223  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADF3                      ** DIAGNOSTICS                                      PAGE 00287
  8224  
  8225  
  8226  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADF3                      ** GENERATED CODE                                   PAGE 00288
  8227  
  8228  int_4 _dmradf3 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ 
  8229  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_)
  8230  { // ** body not listed **
  8318  }
  8319  
  8320  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADF4                      ** DMRADF4                                          PAGE 00290
  8321  
  8322  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8323  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8324  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8325  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8326  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8327  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8328  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8329  
  8330  //                               DDDDDD  M     M RRRRRR     A    DDDDDD  FFFFFFF 4
  8331  //                               D     D MM   MM R     R   A A   D     D F       4    4
  8332  //                               D     D M M M M R     R  A   A  D     D F       4    4
  8333  //                               D     D M  M  M RRRRRR  A     A D     D FFFFF   4444444
  8334  //                               D     D M     M R   R   AAAAAAA D     D F            4
  8335  //                               D     D M     M R    R  A     A D     D F            4
  8336  //                               DDDDDD  M     M R     R A     A DDDDDD  F            4
  8337  
  8338  
  8339  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADF4                      ** DIAGNOSTICS                                      PAGE 00291
  8340  
  8341  
  8342  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADF4                      ** GENERATED CODE                                   PAGE 00292
  8343  
  8344  int_4 _dmradf4 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ 
  8345  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_)
  8346  { // ** body not listed **
  8481  }
  8482  
  8483  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADF5                      ** DMRADF5                                          PAGE 00295
  8484  
  8485  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8486  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8487  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8488  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8489  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8490  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8491  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8492  
  8493  //                               DDDDDD  M     M RRRRRR     A    DDDDDD  FFFFFFF 5555555
  8494  //                               D     D MM   MM R     R   A A   D     D F       5
  8495  //                               D     D M M M M R     R  A   A  D     D F       5
  8496  //                               D     D M  M  M RRRRRR  A     A D     D FFFFF    55555
  8497  //                               D     D M     M R   R   AAAAAAA D     D F             5
  8498  //                               D     D M     M R    R  A     A D     D F       5     5
  8499  //                               DDDDDD  M     M R     R A     A DDDDDD  F        55555
  8500  
  8501  
  8502  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADF5                      ** DIAGNOSTICS                                      PAGE 00296
  8503  
  8504  
  8505  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADF5                      ** GENERATED CODE                                   PAGE 00297
  8506  
  8507  int_4 _dmradf5 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ 
  8508  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
  8509  { // ** body not listed **
  8726  }
  8727  
  8728  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADFG                      ** DMRADFG                                          PAGE 00302
  8729  
  8730  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8731  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8732  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8733  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8734  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8735  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8736  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8737  
  8738  //                               DDDDDD  M     M RRRRRR     A    DDDDDD  FFFFFFF  GGGGG
  8739  //                               D     D MM   MM R     R   A A   D     D F       G     G
  8740  //                               D     D M M M M R     R  A   A  D     D F       G
  8741  //                               D     D M  M  M RRRRRR  A     A D     D FFFFF   G  GGGG
  8742  //                               D     D M     M R   R   AAAAAAA D     D F       G     G
  8743  //                               D     D M     M R    R  A     A D     D F       G     G
  8744  //                               DDDDDD  M     M R     R A     A DDDDDD  F        GGGGG
  8745  
  8746  
  8747  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADFG                      ** DIAGNOSTICS                                      PAGE 00303
  8748  
  8749  
  8750  // VIF  THU 20 NOV 2025 22:19:29  ** DMRADFG                      ** GENERATED CODE                                   PAGE 00304
  8751  
  8752  int_4 _dmradfg (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_8 _p_ cc_, real_8 _p_ 
  8753  c1_, real_8 _p_ c2_, int_4 _p_ im1_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ im2_, int_4 _p_ in2_, 
  8754  real_8 _p_ wa_)
  8755  { // ** body not listed **
  9073  }
  9074  
  9075  // VIF  THU 20 NOV 2025 22:19:29  ** DMRFTB1                      ** DMRFTB1                                          PAGE 00311
  9076  
  9077  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9078  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9079  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9080  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9081  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9082  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9083  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9084  
  9085  //                                DDDDDD  M     M RRRRRR  FFFFFFF TTTTTTT BBBBBB     1
  9086  //                                D     D MM   MM R     R F          T    B     B   11
  9087  //                                D     D M M M M R     R F          T    B     B  1 1
  9088  //                                D     D M  M  M RRRRRR  FFFFF      T    BBBBBB     1
  9089  //                                D     D M     M R   R   F          T    B     B    1
  9090  //                                D     D M     M R    R  F          T    B     B    1
  9091  //                                DDDDDD  M     M R     R F          T    BBBBBB   11111
  9092  
  9093  
  9094  // VIF  THU 20 NOV 2025 22:19:29  ** DMRFTB1                      ** DIAGNOSTICS                                      PAGE 00312
  9095  
  9096  
  9097  // VIF  THU 20 NOV 2025 22:19:29  ** DMRFTB1                      ** GENERATED CODE                                   PAGE 00313
  9098  
  9099  int_4 _dmrftb1 (int_4 _p_ m_, int_4 _p_ im_, int_4 _p_ n_, int_4 _p_ in_, real_8 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_
  9100  , real_8 _p_ fac_)
  9101  { // ** body not listed **
  9245  }
  9246  
  9247  // VIF  THU 20 NOV 2025 22:19:29  ** DMRFTF1                      ** DMRFTF1                                          PAGE 00316
  9248  
  9249  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9250  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9251  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9252  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9253  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9254  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9255  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9256  
  9257  //                                DDDDDD  M     M RRRRRR  FFFFFFF TTTTTTT FFFFFFF    1
  9258  //                                D     D MM   MM R     R F          T    F         11
  9259  //                                D     D M M M M R     R F          T    F        1 1
  9260  //                                D     D M  M  M RRRRRR  FFFFF      T    FFFFF      1
  9261  //                                D     D M     M R   R   F          T    F          1
  9262  //                                D     D M     M R    R  F          T    F          1
  9263  //                                DDDDDD  M     M R     R F          T    F        11111
  9264  
  9265  
  9266  // VIF  THU 20 NOV 2025 22:19:29  ** DMRFTF1                      ** DIAGNOSTICS                                      PAGE 00317
  9267  
  9268  
  9269  // VIF  THU 20 NOV 2025 22:19:29  ** DMRFTF1                      ** GENERATED CODE                                   PAGE 00318
  9270  
  9271  int_4 _dmrftf1 (int_4 _p_ m_, int_4 _p_ im_, int_4 _p_ n_, int_4 _p_ in_, real_8 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_
  9272  , real_8 _p_ fac_)
  9273  { // ** body not listed **
  9421  }
  9422  
  9423  // VIF  THU 20 NOV 2025 22:19:29  ** DMRFTI1                      ** DMRFTI1                                          PAGE 00321
  9424  
  9425  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9426  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9427  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9428  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9429  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9430  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9431  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9432  
  9433  //                                DDDDDD  M     M RRRRRR  FFFFFFF TTTTTTT   III      1
  9434  //                                D     D MM   MM R     R F          T       I      11
  9435  //                                D     D M M M M R     R F          T       I     1 1
  9436  //                                D     D M  M  M RRRRRR  FFFFF      T       I       1
  9437  //                                D     D M     M R   R   F          T       I       1
  9438  //                                D     D M     M R    R  F          T       I       1
  9439  //                                DDDDDD  M     M R     R F          T      III    11111
  9440  
  9441  
  9442  // VIF  THU 20 NOV 2025 22:19:29  ** DMRFTI1                      ** DIAGNOSTICS                                      PAGE 00322
  9443  
  9444  
  9445  // VIF  THU 20 NOV 2025 22:19:29  ** DMRFTI1                      ** GENERATED CODE                                   PAGE 00323
  9446  
  9447  int_4 _dmrfti1 (int_4 _p_ n_, real_8 _p_ wa_, real_8 _p_ fac_)
  9448  { // ** body not listed **
  9570  }
  9571  
  9572  // VIF  THU 20 NOV 2025 22:19:29  ** DMSNTB1                      ** DMSNTB1                                          PAGE 00326
  9573  
  9574  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9575  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9576  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9577  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9578  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9579  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9580  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9581  
  9582  //                                DDDDDD  M     M  SSSSS  N     N TTTTTTT BBBBBB     1
  9583  //                                D     D MM   MM S     S NN    N    T    B     B   11
  9584  //                                D     D M M M M S       N N   N    T    B     B  1 1
  9585  //                                D     D M  M  M  SSSSS  N  N  N    T    BBBBBB     1
  9586  //                                D     D M     M       S N   N N    T    B     B    1
  9587  //                                D     D M     M S     S N    NN    T    B     B    1
  9588  //                                DDDDDD  M     M  SSSSS  N     N    T    BBBBBB   11111
  9589  
  9590  
  9591  // VIF  THU 20 NOV 2025 22:19:29  ** DMSNTB1                      ** DIAGNOSTICS                                      PAGE 00327
  9592  
  9593  
  9594  // VIF  THU 20 NOV 2025 22:19:29  ** DMSNTB1                      ** GENERATED CODE                                   PAGE 00328
  9595  
  9596  int_4 _dmsntb1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_8 
  9597  _p_ dsum_, real_8 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_)
  9598  { // ** body not listed **
  9694  }
  9695  
  9696  // VIF  THU 20 NOV 2025 22:19:29  ** DMSNTF1                      ** DMSNTF1                                          PAGE 00330
  9697  
  9698  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9699  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9700  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9701  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9702  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9703  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9704  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9705  
  9706  //                                DDDDDD  M     M  SSSSS  N     N TTTTTTT FFFFFFF    1
  9707  //                                D     D MM   MM S     S NN    N    T    F         11
  9708  //                                D     D M M M M S       N N   N    T    F        1 1
  9709  //                                D     D M  M  M  SSSSS  N  N  N    T    FFFFF      1
  9710  //                                D     D M     M       S N   N N    T    F          1
  9711  //                                D     D M     M S     S N    NN    T    F          1
  9712  //                                DDDDDD  M     M  SSSSS  N     N    T    F        11111
  9713  
  9714  
  9715  // VIF  THU 20 NOV 2025 22:19:29  ** DMSNTF1                      ** DIAGNOSTICS                                      PAGE 00331
  9716  
  9717  
  9718  // VIF  THU 20 NOV 2025 22:19:29  ** DMSNTF1                      ** GENERATED CODE                                   PAGE 00332
  9719  
  9720  int_4 _dmsntf1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_8 
  9721  _p_ dsum_, real_8 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_)
  9722  { // ** body not listed **
  9819  }
  9820  
  9821  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F2KB                      ** DR1F2KB                                          PAGE 00334
  9822  
  9823  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9824  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9825  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9826  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9827  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9828  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9829  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9830  
  9831  //                               DDDDDD  RRRRRR     1    FFFFFFF  22222  K    K  BBBBBB
  9832  //                               D     D R     R   11    F       2     2 K   K   B     B
  9833  //                               D     D R     R  1 1    F             2 K  K    B     B
  9834  //                               D     D RRRRRR     1    FFFFF    22222  KKK     BBBBBB
  9835  //                               D     D R   R      1    F       2       K  K    B     B
  9836  //                               D     D R    R     1    F       2       K   K   B     B
  9837  //                               DDDDDD  R     R  11111  F       2222222 K    K  BBBBBB
  9838  
  9839  
  9840  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F2KB                      ** DIAGNOSTICS                                      PAGE 00335
  9841  
  9842  
  9843  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F2KB                      ** GENERATED CODE                                   PAGE 00336
  9844  
  9845  int_4 _dr1f2kb (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8 
  9846  _p_ wa1_)
  9847  { // ** body not listed **
  9899  }
  9900  
  9901  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F2KF                      ** DR1F2KF                                          PAGE 00338
  9902  
  9903  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9904  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9905  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9906  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9907  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9908  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9909  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9910  
  9911  //                               DDDDDD  RRRRRR     1    FFFFFFF  22222  K    K  FFFFFFF
  9912  //                               D     D R     R   11    F       2     2 K   K   F
  9913  //                               D     D R     R  1 1    F             2 K  K    F
  9914  //                               D     D RRRRRR     1    FFFFF    22222  KKK     FFFFF
  9915  //                               D     D R   R      1    F       2       K  K    F
  9916  //                               D     D R    R     1    F       2       K   K   F
  9917  //                               DDDDDD  R     R  11111  F       2222222 K    K  F
  9918  
  9919  
  9920  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F2KF                      ** DIAGNOSTICS                                      PAGE 00339
  9921  
  9922  
  9923  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F2KF                      ** GENERATED CODE                                   PAGE 00340
  9924  
  9925  int_4 _dr1f2kf (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8 
  9926  _p_ wa1_)
  9927  { // ** body not listed **
  9981  }
  9982  
  9983  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F3KB                      ** DR1F3KB                                          PAGE 00342
  9984  
  9985  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9986  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9987  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9988  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9989  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9990  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9991  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9992  
  9993  //                               DDDDDD  RRRRRR     1    FFFFFFF  33333  K    K  BBBBBB
  9994  //                               D     D R     R   11    F       3     3 K   K   B     B
  9995  //                               D     D R     R  1 1    F             3 K  K    B     B
  9996  //                               D     D RRRRRR     1    FFFFF    33333  KKK     BBBBBB
  9997  //                               D     D R   R      1    F             3 K  K    B     B
  9998  //                               D     D R    R     1    F       3     3 K   K   B     B
  9999  //                               DDDDDD  R     R  11111  F        33333  K    K  BBBBBB
 10000  
 10001  
 10002  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F3KB                      ** DIAGNOSTICS                                      PAGE 00343
 10003  
 10004  
 10005  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F3KB                      ** GENERATED CODE                                   PAGE 00344
 10006  
 10007  int_4 _dr1f3kb (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8 
 10008  _p_ wa1_, real_8 _p_ wa2_)
 10009  { // ** body not listed **
 10077  }
 10078  
 10079  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F3KF                      ** DR1F3KF                                          PAGE 00346
 10080  
 10081  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10082  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10083  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10084  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10085  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10086  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10087  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10088  
 10089  //                               DDDDDD  RRRRRR     1    FFFFFFF  33333  K    K  FFFFFFF
 10090  //                               D     D R     R   11    F       3     3 K   K   F
 10091  //                               D     D R     R  1 1    F             3 K  K    F
 10092  //                               D     D RRRRRR     1    FFFFF    33333  KKK     FFFFF
 10093  //                               D     D R   R      1    F             3 K  K    F
 10094  //                               D     D R    R     1    F       3     3 K   K   F
 10095  //                               DDDDDD  R     R  11111  F        33333  K    K  F
 10096  
 10097  
 10098  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F3KF                      ** DIAGNOSTICS                                      PAGE 00347
 10099  
 10100  
 10101  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F3KF                      ** GENERATED CODE                                   PAGE 00348
 10102  
 10103  int_4 _dr1f3kf (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8 
 10104  _p_ wa1_, real_8 _p_ wa2_)
 10105  { // ** body not listed **
 10181  }
 10182  
 10183  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F4KB                      ** DR1F4KB                                          PAGE 00350
 10184  
 10185  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10186  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10187  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10188  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10189  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10190  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10191  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10192  
 10193  //                               DDDDDD  RRRRRR     1    FFFFFFF 4       K    K  BBBBBB
 10194  //                               D     D R     R   11    F       4    4  K   K   B     B
 10195  //                               D     D R     R  1 1    F       4    4  K  K    B     B
 10196  //                               D     D RRRRRR     1    FFFFF   4444444 KKK     BBBBBB
 10197  //                               D     D R   R      1    F            4  K  K    B     B
 10198  //                               D     D R    R     1    F            4  K   K   B     B
 10199  //                               DDDDDD  R     R  11111  F            4  K    K  BBBBBB
 10200  
 10201  
 10202  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F4KB                      ** DIAGNOSTICS                                      PAGE 00351
 10203  
 10204  
 10205  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F4KB                      ** GENERATED CODE                                   PAGE 00352
 10206  
 10207  int_4 _dr1f4kb (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8 
 10208  _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_)
 10209  { // ** body not listed **
 10325  }
 10326  
 10327  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F4KF                      ** DR1F4KF                                          PAGE 00355
 10328  
 10329  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10330  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10331  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10332  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10333  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10334  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10335  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10336  
 10337  //                               DDDDDD  RRRRRR     1    FFFFFFF 4       K    K  FFFFFFF
 10338  //                               D     D R     R   11    F       4    4  K   K   F
 10339  //                               D     D R     R  1 1    F       4    4  K  K    F
 10340  //                               D     D RRRRRR     1    FFFFF   4444444 KKK     FFFFF
 10341  //                               D     D R   R      1    F            4  K  K    F
 10342  //                               D     D R    R     1    F            4  K   K   F
 10343  //                               DDDDDD  R     R  11111  F            4  K    K  F
 10344  
 10345  
 10346  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F4KF                      ** DIAGNOSTICS                                      PAGE 00356
 10347  
 10348  
 10349  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F4KF                      ** GENERATED CODE                                   PAGE 00357
 10350  
 10351  int_4 _dr1f4kf (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8 
 10352  _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_)
 10353  { // ** body not listed **
 10469  }
 10470  
 10471  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F5KB                      ** DR1F5KB                                          PAGE 00360
 10472  
 10473  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10474  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10475  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10476  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10477  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10478  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10479  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10480  
 10481  //                               DDDDDD  RRRRRR     1    FFFFFFF 5555555 K    K  BBBBBB
 10482  //                               D     D R     R   11    F       5       K   K   B     B
 10483  //                               D     D R     R  1 1    F       5       K  K    B     B
 10484  //                               D     D RRRRRR     1    FFFFF    55555  KKK     BBBBBB
 10485  //                               D     D R   R      1    F             5 K  K    B     B
 10486  //                               D     D R    R     1    F       5     5 K   K   B     B
 10487  //                               DDDDDD  R     R  11111  F        55555  K    K  BBBBBB
 10488  
 10489  
 10490  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F5KB                      ** DIAGNOSTICS                                      PAGE 00361
 10491  
 10492  
 10493  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F5KB                      ** GENERATED CODE                                   PAGE 00362
 10494  
 10495  int_4 _dr1f5kb (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8 
 10496  _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
 10497  { // ** body not listed **
 10668  }
 10669  
 10670  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F5KF                      ** DR1F5KF                                          PAGE 00366
 10671  
 10672  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10673  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10674  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10675  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10676  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10677  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10678  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10679  
 10680  //                               DDDDDD  RRRRRR     1    FFFFFFF 5555555 K    K  FFFFFFF
 10681  //                               D     D R     R   11    F       5       K   K   F
 10682  //                               D     D R     R  1 1    F       5       K  K    F
 10683  //                               D     D RRRRRR     1    FFFFF    55555  KKK     FFFFF
 10684  //                               D     D R   R      1    F             5 K  K    F
 10685  //                               D     D R    R     1    F       5     5 K   K   F
 10686  //                               DDDDDD  R     R  11111  F        55555  K    K  F
 10687  
 10688  
 10689  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F5KF                      ** DIAGNOSTICS                                      PAGE 00367
 10690  
 10691  
 10692  // VIF  THU 20 NOV 2025 22:19:29  ** DR1F5KF                      ** GENERATED CODE                                   PAGE 00368
 10693  
 10694  int_4 _dr1f5kf (int_4 _p_ ido_, int_4 _p_ l1_, real_8 _p_ cc_, int_4 _p_ in1_, real_8 _p_ ch_, int_4 _p_ in2_, real_8 
 10695  _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
 10696  { // ** body not listed **
 10890  }
 10891  
 10892  // VIF  THU 20 NOV 2025 22:19:29  ** DR1FGKB                      ** DR1FGKB                                          PAGE 00372
 10893  
 10894  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10895  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10896  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10897  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10898  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10899  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10900  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10901  
 10902  //                               DDDDDD  RRRRRR     1    FFFFFFF  GGGGG  K    K  BBBBBB
 10903  //                               D     D R     R   11    F       G     G K   K   B     B
 10904  //                               D     D R     R  1 1    F       G       K  K    B     B
 10905  //                               D     D RRRRRR     1    FFFFF   G  GGGG KKK     BBBBBB
 10906  //                               D     D R   R      1    F       G     G K  K    B     B
 10907  //                               D     D R    R     1    F       G     G K   K   B     B
 10908  //                               DDDDDD  R     R  11111  F        GGGGG  K    K  BBBBBB
 10909  
 10910  
 10911  // VIF  THU 20 NOV 2025 22:19:29  ** DR1FGKB                      ** DIAGNOSTICS                                      PAGE 00373
 10912  
 10913  
 10914  // VIF  THU 20 NOV 2025 22:19:29  ** DR1FGKB                      ** GENERATED CODE                                   PAGE 00374
 10915  
 10916  int_4 _dr1fgkb (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_8 _p_ cc_, real_8 _p_ c1_, real_8 
 10917  _p_ c2_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ in2_, real_8 _p_ wa_)
 10918  { // ** body not listed **
 11161  }
 11162  
 11163  // VIF  THU 20 NOV 2025 22:19:29  ** DR1FGKF                      ** DR1FGKF                                          PAGE 00379
 11164  
 11165  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11166  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11167  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11168  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11169  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11170  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11171  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11172  
 11173  //                               DDDDDD  RRRRRR     1    FFFFFFF  GGGGG  K    K  FFFFFFF
 11174  //                               D     D R     R   11    F       G     G K   K   F
 11175  //                               D     D R     R  1 1    F       G       K  K    F
 11176  //                               D     D RRRRRR     1    FFFFF   G  GGGG KKK     FFFFF
 11177  //                               D     D R   R      1    F       G     G K  K    F
 11178  //                               D     D R    R     1    F       G     G K   K   F
 11179  //                               DDDDDD  R     R  11111  F        GGGGG  K    K  F
 11180  
 11181  
 11182  // VIF  THU 20 NOV 2025 22:19:29  ** DR1FGKF                      ** DIAGNOSTICS                                      PAGE 00380
 11183  
 11184  
 11185  // VIF  THU 20 NOV 2025 22:19:29  ** DR1FGKF                      ** GENERATED CODE                                   PAGE 00381
 11186  
 11187  int_4 _dr1fgkf (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_8 _p_ cc_, real_8 _p_ c1_, real_8 
 11188  _p_ c2_, int_4 _p_ in1_, real_8 _p_ ch_, real_8 _p_ ch2_, int_4 _p_ in2_, real_8 _p_ wa_)
 11189  { // ** body not listed **
 11433  }
 11434  
 11435  // VIF  THU 20 NOV 2025 22:19:29  ** DR2W                         ** DR2W                                             PAGE 00386
 11436  
 11437  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11438  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11439  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11440  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11441  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11442  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11443  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11444  
 11445  //                                           DDDDDD  RRRRRR   22222  W     W
 11446  //                                           D     D R     R 2     2 W     W
 11447  //                                           D     D R     R       2 W     W
 11448  //                                           D     D RRRRRR   22222  W  W  W
 11449  //                                           D     D R   R   2       W  W  W
 11450  //                                           D     D R    R  2       W  W  W
 11451  //                                           DDDDDD  R     R 2222222  WW WW
 11452  
 11453  
 11454  // VIF  THU 20 NOV 2025 22:19:29  ** DR2W                         ** DIAGNOSTICS                                      PAGE 00387
 11455  
 11456  
 11457  // VIF  THU 20 NOV 2025 22:19:29  ** DR2W                         ** GENERATED CODE                                   PAGE 00388
 11458  
 11459  int_4 _dr2w (int_4 _p_ ldr_, int_4 _p_ ldw_, int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ r_, real_8 _p_ w_)
 11460  { // ** body not listed **
 11469  }
 11470  
 11471  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT1B                      ** DRFFT1B                                          PAGE 00389
 11472  
 11473  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11474  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11475  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11476  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11477  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11478  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11479  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11480  
 11481  //                               DDDDDD  RRRRRR  FFFFFFF FFFFFFF TTTTTTT    1    BBBBBB
 11482  //                               D     D R     R F       F          T      11    B     B
 11483  //                               D     D R     R F       F          T     1 1    B     B
 11484  //                               D     D RRRRRR  FFFFF   FFFFF      T       1    BBBBBB
 11485  //                               D     D R   R   F       F          T       1    B     B
 11486  //                               D     D R    R  F       F          T       1    B     B
 11487  //                               DDDDDD  R     R F       F          T     11111  BBBBBB
 11488  
 11489  
 11490  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT1B                      ** DIAGNOSTICS                                      PAGE 00390
 11491  
 11492  
 11493  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT1B                      ** GENERATED CODE                                   PAGE 00391
 11494  
 11495  int_4 _drfft1b (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ r_, int_4 _p_ lenr_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
 11496  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 11497  { // ** body not listed **
 11520  }
 11521  
 11522  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT1F                      ** DRFFT1F                                          PAGE 00392
 11523  
 11524  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11525  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11526  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11527  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11528  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11529  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11530  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11531  
 11532  //                               DDDDDD  RRRRRR  FFFFFFF FFFFFFF TTTTTTT    1    FFFFFFF
 11533  //                               D     D R     R F       F          T      11    F
 11534  //                               D     D R     R F       F          T     1 1    F
 11535  //                               D     D RRRRRR  FFFFF   FFFFF      T       1    FFFFF
 11536  //                               D     D R   R   F       F          T       1    F
 11537  //                               D     D R    R  F       F          T       1    F
 11538  //                               DDDDDD  R     R F       F          T     11111  F
 11539  
 11540  
 11541  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT1F                      ** DIAGNOSTICS                                      PAGE 00393
 11542  
 11543  
 11544  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT1F                      ** GENERATED CODE                                   PAGE 00394
 11545  
 11546  int_4 _drfft1f (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ r_, int_4 _p_ lenr_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
 11547  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 11548  { // ** body not listed **
 11571  }
 11572  
 11573  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT1I                      ** DRFFT1I                                          PAGE 00395
 11574  
 11575  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11576  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11577  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11578  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11579  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11580  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11581  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11582  
 11583  //                                DDDDDD  RRRRRR  FFFFFFF FFFFFFF TTTTTTT    1      III
 11584  //                                D     D R     R F       F          T      11       I
 11585  //                                D     D R     R F       F          T     1 1       I
 11586  //                                D     D RRRRRR  FFFFF   FFFFF      T       1       I
 11587  //                                D     D R   R   F       F          T       1       I
 11588  //                                D     D R    R  F       F          T       1       I
 11589  //                                DDDDDD  R     R F       F          T     11111    III
 11590  
 11591  
 11592  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT1I                      ** DIAGNOSTICS                                      PAGE 00396
 11593  
 11594  
 11595  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT1I                      ** GENERATED CODE                                   PAGE 00397
 11596  
 11597  int_4 _drfft1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 11598  { // ** body not listed **
 11613  }
 11614  
 11615  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT2B                      ** DRFFT2B                                          PAGE 00398
 11616  
 11617  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11618  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11619  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11620  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11621  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11622  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11623  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11624  
 11625  //                               DDDDDD  RRRRRR  FFFFFFF FFFFFFF TTTTTTT  22222  BBBBBB
 11626  //                               D     D R     R F       F          T    2     2 B     B
 11627  //                               D     D R     R F       F          T          2 B     B
 11628  //                               D     D RRRRRR  FFFFF   FFFFF      T     22222  BBBBBB
 11629  //                               D     D R   R   F       F          T    2       B     B
 11630  //                               D     D R    R  F       F          T    2       B     B
 11631  //                               DDDDDD  R     R F       F          T    2222222 BBBBBB
 11632  
 11633  
 11634  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT2B                      ** DIAGNOSTICS                                      PAGE 00399
 11635  
 11636  
 11637  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT2B                      ** GENERATED CODE                                   PAGE 00400
 11638  
 11639  int_4 _drfft2b (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ r_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
 11640  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 11641  { // ** body not listed **
 11729  }
 11730  
 11731  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT2F                      ** DRFFT2F                                          PAGE 00402
 11732  
 11733  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11734  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11735  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11736  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11737  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11738  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11739  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11740  
 11741  //                               DDDDDD  RRRRRR  FFFFFFF FFFFFFF TTTTTTT  22222  FFFFFFF
 11742  //                               D     D R     R F       F          T    2     2 F
 11743  //                               D     D R     R F       F          T          2 F
 11744  //                               D     D RRRRRR  FFFFF   FFFFF      T     22222  FFFFF
 11745  //                               D     D R   R   F       F          T    2       F
 11746  //                               D     D R    R  F       F          T    2       F
 11747  //                               DDDDDD  R     R F       F          T    2222222 F
 11748  
 11749  
 11750  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT2F                      ** DIAGNOSTICS                                      PAGE 00403
 11751  
 11752  
 11753  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT2F                      ** GENERATED CODE                                   PAGE 00404
 11754  
 11755  int_4 _drfft2f (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ r_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
 11756  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 11757  { // ** body not listed **
 11844  }
 11845  
 11846  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT2I                      ** DRFFT2I                                          PAGE 00406
 11847  
 11848  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11849  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11850  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11851  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11852  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11853  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11854  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11855  
 11856  //                                DDDDDD  RRRRRR  FFFFFFF FFFFFFF TTTTTTT  22222    III
 11857  //                                D     D R     R F       F          T    2     2    I
 11858  //                                D     D R     R F       F          T          2    I
 11859  //                                D     D RRRRRR  FFFFF   FFFFF      T     22222     I
 11860  //                                D     D R   R   F       F          T    2          I
 11861  //                                D     D R    R  F       F          T    2          I
 11862  //                                DDDDDD  R     R F       F          T    2222222   III
 11863  
 11864  
 11865  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT2I                      ** DIAGNOSTICS                                      PAGE 00407
 11866  
 11867  
 11868  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFT2I                      ** GENERATED CODE                                   PAGE 00408
 11869  
 11870  int_4 _drfft2i (int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 11871  { // ** body not listed **
 11907  }
 11908  
 11909  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTB1                      ** DRFFTB1                                          PAGE 00409
 11910  
 11911  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11912  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11913  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11914  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11915  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11916  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11917  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11918  
 11919  //                                DDDDDD  RRRRRR  FFFFFFF FFFFFFF TTTTTTT BBBBBB     1
 11920  //                                D     D R     R F       F          T    B     B   11
 11921  //                                D     D R     R F       F          T    B     B  1 1
 11922  //                                D     D RRRRRR  FFFFF   FFFFF      T    BBBBBB     1
 11923  //                                D     D R   R   F       F          T    B     B    1
 11924  //                                D     D R    R  F       F          T    B     B    1
 11925  //                                DDDDDD  R     R F       F          T    BBBBBB   11111
 11926  
 11927  
 11928  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTB1                      ** DIAGNOSTICS                                      PAGE 00410
 11929  
 11930  
 11931  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTB1                      ** GENERATED CODE                                   PAGE 00411
 11932  
 11933  int_4 _drfftb1 (int_4 _p_ n_, int_4 _p_ in_, real_8 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_, real_8 _p_ fac_)
 11934  { // ** body not listed **
 12064  }
 12065  
 12066  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTF1                      ** DRFFTF1                                          PAGE 00414
 12067  
 12068  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12069  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12070  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12071  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12072  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12073  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12074  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12075  
 12076  //                                DDDDDD  RRRRRR  FFFFFFF FFFFFFF TTTTTTT FFFFFFF    1
 12077  //                                D     D R     R F       F          T    F         11
 12078  //                                D     D R     R F       F          T    F        1 1
 12079  //                                D     D RRRRRR  FFFFF   FFFFF      T    FFFFF      1
 12080  //                                D     D R   R   F       F          T    F          1
 12081  //                                D     D R    R  F       F          T    F          1
 12082  //                                DDDDDD  R     R F       F          T    F        11111
 12083  
 12084  
 12085  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTF1                      ** DIAGNOSTICS                                      PAGE 00415
 12086  
 12087  
 12088  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTF1                      ** GENERATED CODE                                   PAGE 00416
 12089  
 12090  int_4 _drfftf1 (int_4 _p_ n_, int_4 _p_ in_, real_8 _p_ c_, real_8 _p_ ch_, real_8 _p_ wa_, real_8 _p_ fac_)
 12091  { // ** body not listed **
 12213  }
 12214  
 12215  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTI1                      ** DRFFTI1                                          PAGE 00419
 12216  
 12217  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12218  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12219  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12220  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12221  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12222  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12223  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12224  
 12225  //                                DDDDDD  RRRRRR  FFFFFFF FFFFFFF TTTTTTT   III      1
 12226  //                                D     D R     R F       F          T       I      11
 12227  //                                D     D R     R F       F          T       I     1 1
 12228  //                                D     D RRRRRR  FFFFF   FFFFF      T       I       1
 12229  //                                D     D R   R   F       F          T       I       1
 12230  //                                D     D R    R  F       F          T       I       1
 12231  //                                DDDDDD  R     R F       F          T      III    11111
 12232  
 12233  
 12234  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTI1                      ** DIAGNOSTICS                                      PAGE 00420
 12235  
 12236  
 12237  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTI1                      ** GENERATED CODE                                   PAGE 00421
 12238  
 12239  int_4 _drffti1 (int_4 _p_ n_, real_8 _p_ wa_, real_8 _p_ fac_)
 12240  { // ** body not listed **
 12362  }
 12363  
 12364  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTMB                      ** DRFFTMB                                          PAGE 00424
 12365  
 12366  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12367  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12368  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12369  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12370  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12371  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12372  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12373  
 12374  //                               DDDDDD  RRRRRR  FFFFFFF FFFFFFF TTTTTTT M     M BBBBBB
 12375  //                               D     D R     R F       F          T    MM   MM B     B
 12376  //                               D     D R     R F       F          T    M M M M B     B
 12377  //                               D     D RRRRRR  FFFFF   FFFFF      T    M  M  M BBBBBB
 12378  //                               D     D R   R   F       F          T    M     M B     B
 12379  //                               D     D R    R  F       F          T    M     M B     B
 12380  //                               DDDDDD  R     R F       F          T    M     M BBBBBB
 12381  
 12382  
 12383  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTMB                      ** DIAGNOSTICS                                      PAGE 00425
 12384  
 12385  
 12386  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTMB                      ** GENERATED CODE                                   PAGE 00426
 12387  
 12388  int_4 _drfftmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ r_, int_4 _p_ lenr_, real_8 
 12389  _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 12390  { // ** body not listed **
 12417  }
 12418  
 12419  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTMF                      ** DRFFTMF                                          PAGE 00427
 12420  
 12421  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12422  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12423  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12424  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12425  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12426  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12427  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12428  
 12429  //                               DDDDDD  RRRRRR  FFFFFFF FFFFFFF TTTTTTT M     M FFFFFFF
 12430  //                               D     D R     R F       F          T    MM   MM F
 12431  //                               D     D R     R F       F          T    M M M M F
 12432  //                               D     D RRRRRR  FFFFF   FFFFF      T    M  M  M FFFFF
 12433  //                               D     D R   R   F       F          T    M     M F
 12434  //                               D     D R    R  F       F          T    M     M F
 12435  //                               DDDDDD  R     R F       F          T    M     M F
 12436  
 12437  
 12438  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTMF                      ** DIAGNOSTICS                                      PAGE 00428
 12439  
 12440  
 12441  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTMF                      ** GENERATED CODE                                   PAGE 00429
 12442  
 12443  int_4 _drfftmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ r_, int_4 _p_ lenr_, real_8 
 12444  _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 12445  { // ** body not listed **
 12472  }
 12473  
 12474  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTMI                      ** DRFFTMI                                          PAGE 00430
 12475  
 12476  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12477  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12478  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12479  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12480  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12481  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12482  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12483  
 12484  //                                DDDDDD  RRRRRR  FFFFFFF FFFFFFF TTTTTTT M     M   III
 12485  //                                D     D R     R F       F          T    MM   MM    I
 12486  //                                D     D R     R F       F          T    M M M M    I
 12487  //                                D     D RRRRRR  FFFFF   FFFFF      T    M  M  M    I
 12488  //                                D     D R   R   F       F          T    M     M    I
 12489  //                                D     D R    R  F       F          T    M     M    I
 12490  //                                DDDDDD  R     R F       F          T    M     M   III
 12491  
 12492  
 12493  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTMI                      ** DIAGNOSTICS                                      PAGE 00431
 12494  
 12495  
 12496  // VIF  THU 20 NOV 2025 22:19:29  ** DRFFTMI                      ** GENERATED CODE                                   PAGE 00432
 12497  
 12498  int_4 _drfftmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 12499  { // ** body not listed **
 12514  }
 12515  
 12516  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQ1B                      ** DSINQ1B                                          PAGE 00433
 12517  
 12518  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12519  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12520  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12521  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12522  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12523  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12524  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12525  
 12526  //                               DDDDDD   SSSSS    III   N     N  QQQQQ     1    BBBBBB
 12527  //                               D     D S     S    I    NN    N Q     Q   11    B     B
 12528  //                               D     D S          I    N N   N Q     Q  1 1    B     B
 12529  //                               D     D  SSSSS     I    N  N  N Q     Q    1    BBBBBB
 12530  //                               D     D       S    I    N   N N Q   Q Q    1    B     B
 12531  //                               D     D S     S    I    N    NN Q    Q     1    B     B
 12532  //                               DDDDDD   SSSSS    III   N     N  QQQQ Q  11111  BBBBBB
 12533  
 12534  
 12535  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQ1B                      ** DIAGNOSTICS                                      PAGE 00434
 12536  
 12537  
 12538  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQ1B                      ** GENERATED CODE                                   PAGE 00435
 12539  
 12540  int_4 _dsinq1b (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
 12541  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 12542  { // ** body not listed **
 12585  }
 12586  
 12587  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQ1F                      ** DSINQ1F                                          PAGE 00436
 12588  
 12589  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12590  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12591  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12592  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12593  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12594  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12595  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12596  
 12597  //                               DDDDDD   SSSSS    III   N     N  QQQQQ     1    FFFFFFF
 12598  //                               D     D S     S    I    NN    N Q     Q   11    F
 12599  //                               D     D S          I    N N   N Q     Q  1 1    F
 12600  //                               D     D  SSSSS     I    N  N  N Q     Q    1    FFFFF
 12601  //                               D     D       S    I    N   N N Q   Q Q    1    F
 12602  //                               D     D S     S    I    N    NN Q    Q     1    F
 12603  //                               DDDDDD   SSSSS    III   N     N  QQQQ Q  11111  F
 12604  
 12605  
 12606  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQ1F                      ** DIAGNOSTICS                                      PAGE 00437
 12607  
 12608  
 12609  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQ1F                      ** GENERATED CODE                                   PAGE 00438
 12610  
 12611  int_4 _dsinq1f (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
 12612  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 12613  { // ** body not listed **
 12657  }
 12658  
 12659  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQ1I                      ** DSINQ1I                                          PAGE 00439
 12660  
 12661  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12662  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12663  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12664  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12665  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12666  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12667  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12668  
 12669  //                                DDDDDD   SSSSS    III   N     N  QQQQQ     1      III
 12670  //                                D     D S     S    I    NN    N Q     Q   11       I
 12671  //                                D     D S          I    N N   N Q     Q  1 1       I
 12672  //                                D     D  SSSSS     I    N  N  N Q     Q    1       I
 12673  //                                D     D       S    I    N   N N Q   Q Q    1       I
 12674  //                                D     D S     S    I    N    NN Q    Q     1       I
 12675  //                                DDDDDD   SSSSS    III   N     N  QQQQ Q  11111    III
 12676  
 12677  
 12678  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQ1I                      ** DIAGNOSTICS                                      PAGE 00440
 12679  
 12680  
 12681  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQ1I                      ** GENERATED CODE                                   PAGE 00441
 12682  
 12683  int_4 _dsinq1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 12684  { // ** body not listed **
 12702  }
 12703  
 12704  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQMB                      ** DSINQMB                                          PAGE 00442
 12705  
 12706  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12707  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12708  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12709  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12710  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12711  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12712  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12713  
 12714  //                               DDDDDD   SSSSS    III   N     N  QQQQQ  M     M BBBBBB
 12715  //                               D     D S     S    I    NN    N Q     Q MM   MM B     B
 12716  //                               D     D S          I    N N   N Q     Q M M M M B     B
 12717  //                               D     D  SSSSS     I    N  N  N Q     Q M  M  M BBBBBB
 12718  //                               D     D       S    I    N   N N Q   Q Q M     M B     B
 12719  //                               D     D S     S    I    N    NN Q    Q  M     M B     B
 12720  //                               DDDDDD   SSSSS    III   N     N  QQQQ Q M     M BBBBBB
 12721  
 12722  
 12723  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQMB                      ** DIAGNOSTICS                                      PAGE 00443
 12724  
 12725  
 12726  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQMB                      ** GENERATED CODE                                   PAGE 00444
 12727  
 12728  int_4 _dsinqmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 
 12729  _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 12730  { // ** body not listed **
 12787  }
 12788  
 12789  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQMF                      ** DSINQMF                                          PAGE 00446
 12790  
 12791  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12792  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12793  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12794  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12795  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12796  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12797  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12798  
 12799  //                               DDDDDD   SSSSS    III   N     N  QQQQQ  M     M FFFFFFF
 12800  //                               D     D S     S    I    NN    N Q     Q MM   MM F
 12801  //                               D     D S          I    N N   N Q     Q M M M M F
 12802  //                               D     D  SSSSS     I    N  N  N Q     Q M  M  M FFFFF
 12803  //                               D     D       S    I    N   N N Q   Q Q M     M F
 12804  //                               D     D S     S    I    N    NN Q    Q  M     M F
 12805  //                               DDDDDD   SSSSS    III   N     N  QQQQ Q M     M F
 12806  
 12807  
 12808  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQMF                      ** DIAGNOSTICS                                      PAGE 00447
 12809  
 12810  
 12811  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQMF                      ** GENERATED CODE                                   PAGE 00448
 12812  
 12813  int_4 _dsinqmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 
 12814  _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 12815  { // ** body not listed **
 12871  }
 12872  
 12873  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQMI                      ** DSINQMI                                          PAGE 00450
 12874  
 12875  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12876  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12877  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12878  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12879  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12880  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12881  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12882  
 12883  //                                DDDDDD   SSSSS    III   N     N  QQQQQ  M     M   III
 12884  //                                D     D S     S    I    NN    N Q     Q MM   MM    I
 12885  //                                D     D S          I    N N   N Q     Q M M M M    I
 12886  //                                D     D  SSSSS     I    N  N  N Q     Q M  M  M    I
 12887  //                                D     D       S    I    N   N N Q   Q Q M     M    I
 12888  //                                D     D S     S    I    N    NN Q    Q  M     M    I
 12889  //                                DDDDDD   SSSSS    III   N     N  QQQQ Q M     M   III
 12890  
 12891  
 12892  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQMI                      ** DIAGNOSTICS                                      PAGE 00451
 12893  
 12894  
 12895  // VIF  THU 20 NOV 2025 22:19:29  ** DSINQMI                      ** GENERATED CODE                                   PAGE 00452
 12896  
 12897  int_4 _dsinqmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 12898  { // ** body not listed **
 12916  }
 12917  
 12918  // VIF  THU 20 NOV 2025 22:19:29  ** DSINT1B                      ** DSINT1B                                          PAGE 00453
 12919  
 12920  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12921  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12922  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12923  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12924  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12925  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12926  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12927  
 12928  //                               DDDDDD   SSSSS    III   N     N TTTTTTT    1    BBBBBB
 12929  //                               D     D S     S    I    NN    N    T      11    B     B
 12930  //                               D     D S          I    N N   N    T     1 1    B     B
 12931  //                               D     D  SSSSS     I    N  N  N    T       1    BBBBBB
 12932  //                               D     D       S    I    N   N N    T       1    B     B
 12933  //                               D     D S     S    I    N    NN    T       1    B     B
 12934  //                               DDDDDD   SSSSS    III   N     N    T     11111  BBBBBB
 12935  
 12936  
 12937  // VIF  THU 20 NOV 2025 22:19:29  ** DSINT1B                      ** DIAGNOSTICS                                      PAGE 00454
 12938  
 12939  
 12940  // VIF  THU 20 NOV 2025 22:19:29  ** DSINT1B                      ** GENERATED CODE                                   PAGE 00455
 12941  
 12942  int_4 _dsint1b (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
 12943  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 12944  { // ** body not listed **
 12972  }
 12973  
 12974  // VIF  THU 20 NOV 2025 22:19:29  ** DSINT1F                      ** DSINT1F                                          PAGE 00456
 12975  
 12976  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12977  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12978  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12979  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12980  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12981  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12982  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12983  
 12984  //                               DDDDDD   SSSSS    III   N     N TTTTTTT    1    FFFFFFF
 12985  //                               D     D S     S    I    NN    N    T      11    F
 12986  //                               D     D S          I    N N   N    T     1 1    F
 12987  //                               D     D  SSSSS     I    N  N  N    T       1    FFFFF
 12988  //                               D     D       S    I    N   N N    T       1    F
 12989  //                               D     D S     S    I    N    NN    T       1    F
 12990  //                               DDDDDD   SSSSS    III   N     N    T     11111  F
 12991  
 12992  
 12993  // VIF  THU 20 NOV 2025 22:19:29  ** DSINT1F                      ** DIAGNOSTICS                                      PAGE 00457
 12994  
 12995  
 12996  // VIF  THU 20 NOV 2025 22:19:29  ** DSINT1F                      ** GENERATED CODE                                   PAGE 00458
 12997  
 12998  int_4 _dsint1f (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 _p_ wsave_, int_4 _p_ lensav_, 
 12999  real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 13000  { // ** body not listed **
 13028  }
 13029  
 13030  // VIF  THU 20 NOV 2025 22:19:29  ** DSINT1I                      ** DSINT1I                                          PAGE 00459
 13031  
 13032  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13033  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13034  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13035  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13036  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13037  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13038  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13039  
 13040  //                                DDDDDD   SSSSS    III   N     N TTTTTTT    1      III
 13041  //                                D     D S     S    I    NN    N    T      11       I
 13042  //                                D     D S          I    N N   N    T     1 1       I
 13043  //                                D     D  SSSSS     I    N  N  N    T       1       I
 13044  //                                D     D       S    I    N   N N    T       1       I
 13045  //                                D     D S     S    I    N    NN    T       1       I
 13046  //                                DDDDDD   SSSSS    III   N     N    T     11111    III
 13047  
 13048  
 13049  // VIF  THU 20 NOV 2025 22:19:29  ** DSINT1I                      ** DIAGNOSTICS                                      PAGE 00460
 13050  
 13051  
 13052  // VIF  THU 20 NOV 2025 22:19:29  ** DSINT1I                      ** GENERATED CODE                                   PAGE 00461
 13053  
 13054  int_4 _dsint1i (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 13055  { // ** body not listed **
 13087  }
 13088  
 13089  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTB1                      ** DSINTB1                                          PAGE 00462
 13090  
 13091  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13092  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13093  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13094  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13095  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13096  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13097  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13098  
 13099  //                                DDDDDD   SSSSS    III   N     N TTTTTTT BBBBBB     1
 13100  //                                D     D S     S    I    NN    N    T    B     B   11
 13101  //                                D     D S          I    N N   N    T    B     B  1 1
 13102  //                                D     D  SSSSS     I    N  N  N    T    BBBBBB     1
 13103  //                                D     D       S    I    N   N N    T    B     B    1
 13104  //                                D     D S     S    I    N    NN    T    B     B    1
 13105  //                                DDDDDD   SSSSS    III   N     N    T    BBBBBB   11111
 13106  
 13107  
 13108  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTB1                      ** DIAGNOSTICS                                      PAGE 00463
 13109  
 13110  
 13111  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTB1                      ** GENERATED CODE                                   PAGE 00464
 13112  
 13113  int_4 _dsintb1 (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_8 _p_ xh_, real_4 _p_ work_, int_4 
 13114  _p_ ier_)
 13115  { // ** body not listed **
 13184  }
 13185  
 13186  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTF1                      ** DSINTF1                                          PAGE 00466
 13187  
 13188  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13189  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13190  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13191  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13192  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13193  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13194  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13195  
 13196  //                                DDDDDD   SSSSS    III   N     N TTTTTTT FFFFFFF    1
 13197  //                                D     D S     S    I    NN    N    T    F         11
 13198  //                                D     D S          I    N N   N    T    F        1 1
 13199  //                                D     D  SSSSS     I    N  N  N    T    FFFFF      1
 13200  //                                D     D       S    I    N   N N    T    F          1
 13201  //                                D     D S     S    I    N    NN    T    F          1
 13202  //                                DDDDDD   SSSSS    III   N     N    T    F        11111
 13203  
 13204  
 13205  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTF1                      ** DIAGNOSTICS                                      PAGE 00467
 13206  
 13207  
 13208  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTF1                      ** GENERATED CODE                                   PAGE 00468
 13209  
 13210  int_4 _dsintf1 (int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, real_8 _p_ wsave_, real_8 _p_ xh_, real_4 _p_ work_, int_4 
 13211  _p_ ier_)
 13212  { // ** body not listed **
 13281  }
 13282  
 13283  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTMB                      ** DSINTMB                                          PAGE 00470
 13284  
 13285  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13286  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13287  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13288  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13289  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13290  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13291  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13292  
 13293  //                               DDDDDD   SSSSS    III   N     N TTTTTTT M     M BBBBBB
 13294  //                               D     D S     S    I    NN    N    T    MM   MM B     B
 13295  //                               D     D S          I    N N   N    T    M M M M B     B
 13296  //                               D     D  SSSSS     I    N  N  N    T    M  M  M BBBBBB
 13297  //                               D     D       S    I    N   N N    T    M     M B     B
 13298  //                               D     D S     S    I    N    NN    T    M     M B     B
 13299  //                               DDDDDD   SSSSS    III   N     N    T    M     M BBBBBB
 13300  
 13301  
 13302  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTMB                      ** DIAGNOSTICS                                      PAGE 00471
 13303  
 13304  
 13305  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTMB                      ** GENERATED CODE                                   PAGE 00472
 13306  
 13307  int_4 _dsintmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 
 13308  _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 13309  { // ** body not listed **
 13344  }
 13345  
 13346  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTMF                      ** DSINTMF                                          PAGE 00473
 13347  
 13348  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13349  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13350  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13351  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13352  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13353  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13354  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13355  
 13356  //                               DDDDDD   SSSSS    III   N     N TTTTTTT M     M FFFFFFF
 13357  //                               D     D S     S    I    NN    N    T    MM   MM F
 13358  //                               D     D S          I    N N   N    T    M M M M F
 13359  //                               D     D  SSSSS     I    N  N  N    T    M  M  M FFFFF
 13360  //                               D     D       S    I    N   N N    T    M     M F
 13361  //                               D     D S     S    I    N    NN    T    M     M F
 13362  //                               DDDDDD   SSSSS    III   N     N    T    M     M F
 13363  
 13364  
 13365  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTMF                      ** DIAGNOSTICS                                      PAGE 00474
 13366  
 13367  
 13368  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTMF                      ** GENERATED CODE                                   PAGE 00475
 13369  
 13370  int_4 _dsintmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_8 _p_ x_, int_4 _p_ lenx_, real_8 
 13371  _p_ wsave_, int_4 _p_ lensav_, real_8 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 13372  { // ** body not listed **
 13407  }
 13408  
 13409  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTMI                      ** DSINTMI                                          PAGE 00476
 13410  
 13411  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13412  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13413  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13414  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13415  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13416  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13417  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13418  
 13419  //                                DDDDDD   SSSSS    III   N     N TTTTTTT M     M   III
 13420  //                                D     D S     S    I    NN    N    T    MM   MM    I
 13421  //                                D     D S          I    N N   N    T    M M M M    I
 13422  //                                D     D  SSSSS     I    N  N  N    T    M  M  M    I
 13423  //                                D     D       S    I    N   N N    T    M     M    I
 13424  //                                D     D S     S    I    N    NN    T    M     M    I
 13425  //                                DDDDDD   SSSSS    III   N     N    T    M     M   III
 13426  
 13427  
 13428  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTMI                      ** DIAGNOSTICS                                      PAGE 00477
 13429  
 13430  
 13431  // VIF  THU 20 NOV 2025 22:19:29  ** DSINTMI                      ** GENERATED CODE                                   PAGE 00478
 13432  
 13433  int_4 _dsintmi (int_4 _p_ n_, real_8 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 13434  { // ** body not listed **
 13466  }
 13467  
 13468  // VIF  THU 20 NOV 2025 22:19:29  ** DTABLES                      ** DTABLES                                          PAGE 00479
 13469  
 13470  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13471  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13472  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13473  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13474  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13475  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13476  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13477  
 13478  //                               DDDDDD  TTTTTTT    A    BBBBBB  L       EEEEEEE  SSSSS
 13479  //                               D     D    T      A A   B     B L       E       S     S
 13480  //                               D     D    T     A   A  B     B L       E       S
 13481  //                               D     D    T    A     A BBBBBB  L       EEEEE    SSSSS
 13482  //                               D     D    T    AAAAAAA B     B L       E             S
 13483  //                               D     D    T    A     A B     B L       E       S     S
 13484  //                               DDDDDD     T    A     A BBBBBB  LLLLLLL EEEEEEE  SSSSS
 13485  
 13486  
 13487  // VIF  THU 20 NOV 2025 22:19:29  ** DTABLES                      ** DIAGNOSTICS                                      PAGE 00480
 13488  
 13489  
 13490  // VIF  THU 20 NOV 2025 22:19:29  ** DTABLES                      ** GENERATED CODE                                   PAGE 00481
 13491  
 13492  int_4 _dtables (int_4 _p_ ido_, int_4 _p_ ip_, real_8 _p_ wa_)
 13493  { // ** body not listed **
 13516  }
 13517  
 13518  // VIF  THU 20 NOV 2025 22:19:29  ** DW2R                         ** DW2R                                             PAGE 00482
 13519  
 13520  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13521  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13522  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13523  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13524  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13525  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13526  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13527  
 13528  //                                           DDDDDD  W     W  22222  RRRRRR
 13529  //                                           D     D W     W 2     2 R     R
 13530  //                                           D     D W     W       2 R     R
 13531  //                                           D     D W  W  W  22222  RRRRRR
 13532  //                                           D     D W  W  W 2       R   R
 13533  //                                           D     D W  W  W 2       R    R
 13534  //                                           DDDDDD   WW WW  2222222 R     R
 13535  
 13536  
 13537  // VIF  THU 20 NOV 2025 22:19:29  ** DW2R                         ** DIAGNOSTICS                                      PAGE 00483
 13538  
 13539  
 13540  // VIF  THU 20 NOV 2025 22:19:29  ** DW2R                         ** GENERATED CODE                                   PAGE 00484
 13541  
 13542  int_4 _dw2r (int_4 _p_ ldr_, int_4 _p_ ldw_, int_4 _p_ l_, int_4 _p_ m_, real_8 _p_ r_, real_8 _p_ w_)
 13543  { // ** body not listed **
 13552  }
 13553  
 13554  // VIF  THU 20 NOV 2025 22:19:29  ** XERCON                       ** XERCON                                           PAGE 00485
 13555  
 13556  //                       L        OOOOO   GGGGG    III    CCCCC     A    L               4
 13557  //                       L       O     O G     G    I    C     C   A A   L        *   *  4    4
 13558  //                       L       O     O G          I    C        A   A  L         * *   4    4
 13559  //                       L       O     O G  GGGG    I    C       A     A L       ******* 4444444
 13560  //                       L       O     O G     G    I    C       AAAAAAA L         * *        4
 13561  //                       L       O     O G     G    I    C     C A     A L        *   *       4
 13562  //                       LLLLLLL  OOOOO   GGGGG    III    CCCCC  A     A LLLLLLL              4
 13563  
 13564  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 13565  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 13566  //                           F       U     U N N   N C          T       I    O     O N N   N
 13567  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 13568  //                           F       U     U N   N N C          T       I    O     O N   N N
 13569  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 13570  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 13571  
 13572  //                                   X     X EEEEEEE RRRRRR   CCCCC   OOOOO  N     N
 13573  //                                    X   X  E       R     R C     C O     O NN    N
 13574  //                                     X X   E       R     R C       O     O N N   N
 13575  //                                      X    EEEEE   RRRRRR  C       O     O N  N  N
 13576  //                                     X X   E       R   R   C       O     O N   N N
 13577  //                                    X   X  E       R    R  C     C O     O N    NN
 13578  //                                   X     X EEEEEEE R     R  CCCCC   OOOOO  N     N
 13579  
 13580  
 13581  // VIF  THU 20 NOV 2025 22:19:29  ** XERCON                       ** DIAGNOSTICS                                      PAGE 00486
 13582  
 13583  
 13584  // VIF  THU 20 NOV 2025 22:19:29  ** XERCON                       ** GENERATED CODE                                   PAGE 00487
 13585  
 13586  logical_4 _xercon (int_4 _p_ inc_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ lot_)
 13587  { // ** body not listed **
 13608  }
 13609  
 13610  // VIF  THU 20 NOV 2025 22:19:29  ** XERFFT                       ** XERFFT                                           PAGE 00488
 13611  
 13612  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13613  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13614  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13615  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13616  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13617  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13618  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13619  
 13620  //                                   X     X EEEEEEE RRRRRR  FFFFFFF FFFFFFF TTTTTTT
 13621  //                                    X   X  E       R     R F       F          T
 13622  //                                     X X   E       R     R F       F          T
 13623  //                                      X    EEEEE   RRRRRR  FFFFF   FFFFF      T
 13624  //                                     X X   E       R   R   F       F          T
 13625  //                                    X   X  E       R    R  F       F          T
 13626  //                                   X     X EEEEEEE R     R F       F          T
 13627  
 13628  
 13629  // VIF  THU 20 NOV 2025 22:19:29  ** XERFFT                       ** DIAGNOSTICS                                      PAGE 00489
 13630  
 13631  
 13632  // VIF  THU 20 NOV 2025 22:19:29  ** XERFFT                       ** GENERATED CODE                                   PAGE 00490
 13633  
 13634  int_4 _xerfft (char _p_ srname_, int_4 _p_ info_)
 13635  { // ** body not listed **
 14185  }
 14186  
 14187  // VIF  THU 20 NOV 2025 22:19:29  ** C1F2KB                       ** C1F2KB                                           PAGE 00501
 14188  
 14189  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14190  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14191  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14192  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14193  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14194  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14195  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14196  
 14197  //                                    CCCCC     1    FFFFFFF  22222  K    K  BBBBBB
 14198  //                                   C     C   11    F       2     2 K   K   B     B
 14199  //                                   C        1 1    F             2 K  K    B     B
 14200  //                                   C          1    FFFFF    22222  KKK     BBBBBB
 14201  //                                   C          1    F       2       K  K    B     B
 14202  //                                   C     C    1    F       2       K   K   B     B
 14203  //                                    CCCCC   11111  F       2222222 K    K  BBBBBB
 14204  
 14205  
 14206  // VIF  THU 20 NOV 2025 22:19:29  ** C1F2KB                       ** DIAGNOSTICS                                      PAGE 00502
 14207  
 14208  
 14209  // VIF  THU 20 NOV 2025 22:19:29  ** C1F2KB                       ** GENERATED CODE                                   PAGE 00503
 14210  
 14211  int_4 _c1f2kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ 
 14212  in2_, real_4 _p_ wa_)
 14213  { // ** body not listed **
 14267  }
 14268  
 14269  // VIF  THU 20 NOV 2025 22:19:29  ** C1F2KF                       ** C1F2KF                                           PAGE 00505
 14270  
 14271  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14272  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14273  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14274  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14275  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14276  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14277  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14278  
 14279  //                                    CCCCC     1    FFFFFFF  22222  K    K  FFFFFFF
 14280  //                                   C     C   11    F       2     2 K   K   F
 14281  //                                   C        1 1    F             2 K  K    F
 14282  //                                   C          1    FFFFF    22222  KKK     FFFFF
 14283  //                                   C          1    F       2       K  K    F
 14284  //                                   C     C    1    F       2       K   K   F
 14285  //                                    CCCCC   11111  F       2222222 K    K  F
 14286  
 14287  
 14288  // VIF  THU 20 NOV 2025 22:19:29  ** C1F2KF                       ** DIAGNOSTICS                                      PAGE 00506
 14289  
 14290  
 14291  // VIF  THU 20 NOV 2025 22:19:29  ** C1F2KF                       ** GENERATED CODE                                   PAGE 00507
 14292  
 14293  int_4 _c1f2kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ 
 14294  in2_, real_4 _p_ wa_)
 14295  { // ** body not listed **
 14362  }
 14363  
 14364  // VIF  THU 20 NOV 2025 22:19:29  ** C1F3KB                       ** C1F3KB                                           PAGE 00509
 14365  
 14366  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14367  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14368  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14369  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14370  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14371  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14372  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14373  
 14374  //                                    CCCCC     1    FFFFFFF  33333  K    K  BBBBBB
 14375  //                                   C     C   11    F       3     3 K   K   B     B
 14376  //                                   C        1 1    F             3 K  K    B     B
 14377  //                                   C          1    FFFFF    33333  KKK     BBBBBB
 14378  //                                   C          1    F             3 K  K    B     B
 14379  //                                   C     C    1    F       3     3 K   K   B     B
 14380  //                                    CCCCC   11111  F        33333  K    K  BBBBBB
 14381  
 14382  
 14383  // VIF  THU 20 NOV 2025 22:19:29  ** C1F3KB                       ** DIAGNOSTICS                                      PAGE 00510
 14384  
 14385  
 14386  // VIF  THU 20 NOV 2025 22:19:29  ** C1F3KB                       ** GENERATED CODE                                   PAGE 00511
 14387  
 14388  int_4 _c1f3kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ 
 14389  in2_, real_4 _p_ wa_)
 14390  { // ** body not listed **
 14497  }
 14498  
 14499  // VIF  THU 20 NOV 2025 22:19:29  ** C1F3KF                       ** C1F3KF                                           PAGE 00514
 14500  
 14501  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14502  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14503  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14504  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14505  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14506  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14507  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14508  
 14509  //                                    CCCCC     1    FFFFFFF  33333  K    K  FFFFFFF
 14510  //                                   C     C   11    F       3     3 K   K   F
 14511  //                                   C        1 1    F             3 K  K    F
 14512  //                                   C          1    FFFFF    33333  KKK     FFFFF
 14513  //                                   C          1    F             3 K  K    F
 14514  //                                   C     C    1    F       3     3 K   K   F
 14515  //                                    CCCCC   11111  F        33333  K    K  F
 14516  
 14517  
 14518  // VIF  THU 20 NOV 2025 22:19:29  ** C1F3KF                       ** DIAGNOSTICS                                      PAGE 00515
 14519  
 14520  
 14521  // VIF  THU 20 NOV 2025 22:19:29  ** C1F3KF                       ** GENERATED CODE                                   PAGE 00516
 14522  
 14523  int_4 _c1f3kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ 
 14524  in2_, real_4 _p_ wa_)
 14525  { // ** body not listed **
 14655  }
 14656  
 14657  // VIF  THU 20 NOV 2025 22:19:29  ** C1F4KB                       ** C1F4KB                                           PAGE 00519
 14658  
 14659  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14660  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14661  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14662  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14663  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14664  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14665  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14666  
 14667  //                                    CCCCC     1    FFFFFFF 4       K    K  BBBBBB
 14668  //                                   C     C   11    F       4    4  K   K   B     B
 14669  //                                   C        1 1    F       4    4  K  K    B     B
 14670  //                                   C          1    FFFFF   4444444 KKK     BBBBBB
 14671  //                                   C          1    F            4  K  K    B     B
 14672  //                                   C     C    1    F            4  K   K   B     B
 14673  //                                    CCCCC   11111  F            4  K    K  BBBBBB
 14674  
 14675  
 14676  // VIF  THU 20 NOV 2025 22:19:29  ** C1F4KB                       ** DIAGNOSTICS                                      PAGE 00520
 14677  
 14678  
 14679  // VIF  THU 20 NOV 2025 22:19:29  ** C1F4KB                       ** GENERATED CODE                                   PAGE 00521
 14680  
 14681  int_4 _c1f4kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ 
 14682  in2_, real_4 _p_ wa_)
 14683  { // ** body not listed **
 14793  }
 14794  
 14795  // VIF  THU 20 NOV 2025 22:19:29  ** C1F4KF                       ** C1F4KF                                           PAGE 00524
 14796  
 14797  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14798  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14799  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14800  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14801  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14802  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14803  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14804  
 14805  //                                    CCCCC     1    FFFFFFF 4       K    K  FFFFFFF
 14806  //                                   C     C   11    F       4    4  K   K   F
 14807  //                                   C        1 1    F       4    4  K  K    F
 14808  //                                   C          1    FFFFF   4444444 KKK     FFFFF
 14809  //                                   C          1    F            4  K  K    F
 14810  //                                   C     C    1    F            4  K   K   F
 14811  //                                    CCCCC   11111  F            4  K    K  F
 14812  
 14813  
 14814  // VIF  THU 20 NOV 2025 22:19:29  ** C1F4KF                       ** DIAGNOSTICS                                      PAGE 00525
 14815  
 14816  
 14817  // VIF  THU 20 NOV 2025 22:19:29  ** C1F4KF                       ** GENERATED CODE                                   PAGE 00526
 14818  
 14819  int_4 _c1f4kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ 
 14820  in2_, real_4 _p_ wa_)
 14821  { // ** body not listed **
 14960  }
 14961  
 14962  // VIF  THU 20 NOV 2025 22:19:29  ** C1F5KB                       ** C1F5KB                                           PAGE 00529
 14963  
 14964  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14965  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14966  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14967  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14968  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14969  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14970  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14971  
 14972  //                                    CCCCC     1    FFFFFFF 5555555 K    K  BBBBBB
 14973  //                                   C     C   11    F       5       K   K   B     B
 14974  //                                   C        1 1    F       5       K  K    B     B
 14975  //                                   C          1    FFFFF    55555  KKK     BBBBBB
 14976  //                                   C          1    F             5 K  K    B     B
 14977  //                                   C     C    1    F       5     5 K   K   B     B
 14978  //                                    CCCCC   11111  F        55555  K    K  BBBBBB
 14979  
 14980  
 14981  // VIF  THU 20 NOV 2025 22:19:29  ** C1F5KB                       ** DIAGNOSTICS                                      PAGE 00530
 14982  
 14983  
 14984  // VIF  THU 20 NOV 2025 22:19:29  ** C1F5KB                       ** GENERATED CODE                                   PAGE 00531
 14985  
 14986  int_4 _c1f5kb (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ 
 14987  in2_, real_4 _p_ wa_)
 14988  { // ** body not listed **
 15172  }
 15173  
 15174  // VIF  THU 20 NOV 2025 22:19:29  ** C1F5KF                       ** C1F5KF                                           PAGE 00535
 15175  
 15176  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 15177  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 15178  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 15179  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 15180  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15181  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15182  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15183  
 15184  //                                    CCCCC     1    FFFFFFF 5555555 K    K  FFFFFFF
 15185  //                                   C     C   11    F       5       K   K   F
 15186  //                                   C        1 1    F       5       K  K    F
 15187  //                                   C          1    FFFFF    55555  KKK     FFFFF
 15188  //                                   C          1    F             5 K  K    F
 15189  //                                   C     C    1    F       5     5 K   K   F
 15190  //                                    CCCCC   11111  F        55555  K    K  F
 15191  
 15192  
 15193  // VIF  THU 20 NOV 2025 22:19:29  ** C1F5KF                       ** DIAGNOSTICS                                      PAGE 00536
 15194  
 15195  
 15196  // VIF  THU 20 NOV 2025 22:19:29  ** C1F5KF                       ** GENERATED CODE                                   PAGE 00537
 15197  
 15198  int_4 _c1f5kf (int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ 
 15199  in2_, real_4 _p_ wa_)
 15200  { // ** body not listed **
 15427  }
 15428  
 15429  // VIF  THU 20 NOV 2025 22:19:29  ** C1FGKB                       ** C1FGKB                                           PAGE 00542
 15430  
 15431  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 15432  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 15433  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 15434  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 15435  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15436  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15437  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15438  
 15439  //                                    CCCCC     1    FFFFFFF  GGGGG  K    K  BBBBBB
 15440  //                                   C     C   11    F       G     G K   K   B     B
 15441  //                                   C        1 1    F       G       K  K    B     B
 15442  //                                   C          1    FFFFF   G  GGGG KKK     BBBBBB
 15443  //                                   C          1    F       G     G K  K    B     B
 15444  //                                   C     C    1    F       G     G K   K   B     B
 15445  //                                    CCCCC   11111  F        GGGGG  K    K  BBBBBB
 15446  
 15447  
 15448  // VIF  THU 20 NOV 2025 22:19:29  ** C1FGKB                       ** DIAGNOSTICS                                      PAGE 00543
 15449  
 15450  
 15451  // VIF  THU 20 NOV 2025 22:19:29  ** C1FGKB                       ** GENERATED CODE                                   PAGE 00544
 15452  
 15453  int_4 _c1fgkb (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_4 _p_ cc_, real_4 _p_ 
 15454  cc1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ in2_, real_4 _p_ wa_)
 15455  { // ** body not listed **
 15591  }
 15592  
 15593  // VIF  THU 20 NOV 2025 22:19:29  ** C1FGKF                       ** C1FGKF                                           PAGE 00547
 15594  
 15595  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 15596  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 15597  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 15598  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 15599  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15600  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15601  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15602  
 15603  //                                    CCCCC     1    FFFFFFF  GGGGG  K    K  FFFFFFF
 15604  //                                   C     C   11    F       G     G K   K   F
 15605  //                                   C        1 1    F       G       K  K    F
 15606  //                                   C          1    FFFFF   G  GGGG KKK     FFFFF
 15607  //                                   C          1    F       G     G K  K    F
 15608  //                                   C     C    1    F       G     G K   K   F
 15609  //                                    CCCCC   11111  F        GGGGG  K    K  F
 15610  
 15611  
 15612  // VIF  THU 20 NOV 2025 22:19:29  ** C1FGKF                       ** DIAGNOSTICS                                      PAGE 00548
 15613  
 15614  
 15615  // VIF  THU 20 NOV 2025 22:19:29  ** C1FGKF                       ** GENERATED CODE                                   PAGE 00549
 15616  
 15617  int_4 _c1fgkf (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_4 _p_ cc_, real_4 _p_ 
 15618  cc1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ in2_, real_4 _p_ wa_)
 15619  { // ** body not listed **
 15781  }
 15782  
 15783  // VIF  THU 20 NOV 2025 22:19:29  ** C1FM1B                       ** C1FM1B                                           PAGE 00553
 15784  
 15785  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 15786  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 15787  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 15788  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 15789  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15790  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15791  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15792  
 15793  //                                    CCCCC     1    FFFFFFF M     M    1    BBBBBB
 15794  //                                   C     C   11    F       MM   MM   11    B     B
 15795  //                                   C        1 1    F       M M M M  1 1    B     B
 15796  //                                   C          1    FFFFF   M  M  M    1    BBBBBB
 15797  //                                   C          1    F       M     M    1    B     B
 15798  //                                   C     C    1    F       M     M    1    B     B
 15799  //                                    CCCCC   11111  F       M     M  11111  BBBBBB
 15800  
 15801  
 15802  // VIF  THU 20 NOV 2025 22:19:29  ** C1FM1B                       ** DIAGNOSTICS                                      PAGE 00554
 15803  
 15804  
 15805  // VIF  THU 20 NOV 2025 22:19:29  ** C1FM1B                       ** GENERATED CODE                                   PAGE 00555
 15806  
 15807  int_4 _c1fm1b (int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, real_4 _p_ ch_, real_4 _p_ wa_, real_4 _p_ fnf_, real_4 
 15808  _p_ fac_)
 15809  { // ** body not listed **
 15876  }
 15877  
 15878  // VIF  THU 20 NOV 2025 22:19:29  ** C1FM1F                       ** C1FM1F                                           PAGE 00557
 15879  
 15880  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 15881  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 15882  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 15883  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 15884  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15885  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15886  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15887  
 15888  //                                    CCCCC     1    FFFFFFF M     M    1    FFFFFFF
 15889  //                                   C     C   11    F       MM   MM   11    F
 15890  //                                   C        1 1    F       M M M M  1 1    F
 15891  //                                   C          1    FFFFF   M  M  M    1    FFFFF
 15892  //                                   C          1    F       M     M    1    F
 15893  //                                   C     C    1    F       M     M    1    F
 15894  //                                    CCCCC   11111  F       M     M  11111  F
 15895  
 15896  
 15897  // VIF  THU 20 NOV 2025 22:19:29  ** C1FM1F                       ** DIAGNOSTICS                                      PAGE 00558
 15898  
 15899  
 15900  // VIF  THU 20 NOV 2025 22:19:29  ** C1FM1F                       ** GENERATED CODE                                   PAGE 00559
 15901  
 15902  int_4 _c1fm1f (int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, real_4 _p_ ch_, real_4 _p_ wa_, real_4 _p_ fnf_, real_4 
 15903  _p_ fac_)
 15904  { // ** body not listed **
 15971  }
 15972  
 15973  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT1B                       ** CFFT1B                                           PAGE 00561
 15974  
 15975  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 15976  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 15977  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 15978  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 15979  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15980  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15981  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15982  
 15983  //                                    CCCCC  FFFFFFF FFFFFFF TTTTTTT    1    BBBBBB
 15984  //                                   C     C F       F          T      11    B     B
 15985  //                                   C       F       F          T     1 1    B     B
 15986  //                                   C       FFFFF   FFFFF      T       1    BBBBBB
 15987  //                                   C       F       F          T       1    B     B
 15988  //                                   C     C F       F          T       1    B     B
 15989  //                                    CCCCC  F       F          T     11111  BBBBBB
 15990  
 15991  
 15992  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT1B                       ** DIAGNOSTICS                                      PAGE 00562
 15993  
 15994  
 15995  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT1B                       ** GENERATED CODE                                   PAGE 00563
 15996  
 15997  int_4 _cfft1b (int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, int_4 _p_ lenc_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 15998  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 15999  { // ** body not listed **
 16024  }
 16025  
 16026  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT1F                       ** CFFT1F                                           PAGE 00564
 16027  
 16028  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16029  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16030  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16031  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16032  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16033  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16034  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16035  
 16036  //                                    CCCCC  FFFFFFF FFFFFFF TTTTTTT    1    FFFFFFF
 16037  //                                   C     C F       F          T      11    F
 16038  //                                   C       F       F          T     1 1    F
 16039  //                                   C       FFFFF   FFFFF      T       1    FFFFF
 16040  //                                   C       F       F          T       1    F
 16041  //                                   C     C F       F          T       1    F
 16042  //                                    CCCCC  F       F          T     11111  F
 16043  
 16044  
 16045  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT1F                       ** DIAGNOSTICS                                      PAGE 00565
 16046  
 16047  
 16048  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT1F                       ** GENERATED CODE                                   PAGE 00566
 16049  
 16050  int_4 _cfft1f (int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, int_4 _p_ lenc_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 16051  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 16052  { // ** body not listed **
 16077  }
 16078  
 16079  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT1I                       ** CFFT1I                                           PAGE 00567
 16080  
 16081  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16082  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16083  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16084  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16085  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16086  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16087  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16088  
 16089  //                                     CCCCC  FFFFFFF FFFFFFF TTTTTTT    1      III
 16090  //                                    C     C F       F          T      11       I
 16091  //                                    C       F       F          T     1 1       I
 16092  //                                    C       FFFFF   FFFFF      T       1       I
 16093  //                                    C       F       F          T       1       I
 16094  //                                    C     C F       F          T       1       I
 16095  //                                     CCCCC  F       F          T     11111    III
 16096  
 16097  
 16098  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT1I                       ** DIAGNOSTICS                                      PAGE 00568
 16099  
 16100  
 16101  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT1I                       ** GENERATED CODE                                   PAGE 00569
 16102  
 16103  int_4 _cfft1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 16104  { // ** body not listed **
 16121  }
 16122  
 16123  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT2B                       ** CFFT2B                                           PAGE 00570
 16124  
 16125  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16126  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16127  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16128  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16129  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16130  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16131  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16132  
 16133  //                                    CCCCC  FFFFFFF FFFFFFF TTTTTTT  22222  BBBBBB
 16134  //                                   C     C F       F          T    2     2 B     B
 16135  //                                   C       F       F          T          2 B     B
 16136  //                                   C       FFFFF   FFFFF      T     22222  BBBBBB
 16137  //                                   C       F       F          T    2       B     B
 16138  //                                   C     C F       F          T    2       B     B
 16139  //                                    CCCCC  F       F          T    2222222 BBBBBB
 16140  
 16141  
 16142  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT2B                       ** DIAGNOSTICS                                      PAGE 00571
 16143  
 16144  
 16145  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT2B                       ** GENERATED CODE                                   PAGE 00572
 16146  
 16147  int_4 _cfft2b (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, complex_8 _p_ c_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 16148  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 16149  { // ** body not listed **
 16193  }
 16194  
 16195  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT2F                       ** CFFT2F                                           PAGE 00573
 16196  
 16197  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16198  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16199  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16200  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16201  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16202  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16203  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16204  
 16205  //                                    CCCCC  FFFFFFF FFFFFFF TTTTTTT  22222  FFFFFFF
 16206  //                                   C     C F       F          T    2     2 F
 16207  //                                   C       F       F          T          2 F
 16208  //                                   C       FFFFF   FFFFF      T     22222  FFFFF
 16209  //                                   C       F       F          T    2       F
 16210  //                                   C     C F       F          T    2       F
 16211  //                                    CCCCC  F       F          T    2222222 F
 16212  
 16213  
 16214  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT2F                       ** DIAGNOSTICS                                      PAGE 00574
 16215  
 16216  
 16217  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT2F                       ** GENERATED CODE                                   PAGE 00575
 16218  
 16219  int_4 _cfft2f (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, complex_8 _p_ c_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 16220  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 16221  { // ** body not listed **
 16265  }
 16266  
 16267  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT2I                       ** CFFT2I                                           PAGE 00576
 16268  
 16269  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16270  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16271  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16272  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16273  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16274  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16275  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16276  
 16277  //                                     CCCCC  FFFFFFF FFFFFFF TTTTTTT  22222    III
 16278  //                                    C     C F       F          T    2     2    I
 16279  //                                    C       F       F          T          2    I
 16280  //                                    C       FFFFF   FFFFF      T     22222     I
 16281  //                                    C       F       F          T    2          I
 16282  //                                    C     C F       F          T    2          I
 16283  //                                     CCCCC  F       F          T    2222222   III
 16284  
 16285  
 16286  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT2I                       ** DIAGNOSTICS                                      PAGE 00577
 16287  
 16288  
 16289  // VIF  THU 20 NOV 2025 22:19:29  ** CFFT2I                       ** GENERATED CODE                                   PAGE 00578
 16290  
 16291  int_4 _cfft2i (int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 16292  { // ** body not listed **
 16321  }
 16322  
 16323  // VIF  THU 20 NOV 2025 22:19:29  ** CFFTMB                       ** CFFTMB                                           PAGE 00579
 16324  
 16325  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16326  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16327  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16328  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16329  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16330  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16331  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16332  
 16333  //                                    CCCCC  FFFFFFF FFFFFFF TTTTTTT M     M BBBBBB
 16334  //                                   C     C F       F          T    MM   MM B     B
 16335  //                                   C       F       F          T    M M M M B     B
 16336  //                                   C       FFFFF   FFFFF      T    M  M  M BBBBBB
 16337  //                                   C       F       F          T    M     M B     B
 16338  //                                   C     C F       F          T    M     M B     B
 16339  //                                    CCCCC  F       F          T    M     M BBBBBB
 16340  
 16341  
 16342  // VIF  THU 20 NOV 2025 22:19:29  ** CFFTMB                       ** DIAGNOSTICS                                      PAGE 00580
 16343  
 16344  
 16345  // VIF  THU 20 NOV 2025 22:19:29  ** CFFTMB                       ** GENERATED CODE                                   PAGE 00581
 16346  
 16347  int_4 _cfftmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, int_4 _p_ lenc_, real_4 
 16348  _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 16349  { // ** body not listed **
 16378  }
 16379  
 16380  // VIF  THU 20 NOV 2025 22:19:29  ** CFFTMF                       ** CFFTMF                                           PAGE 00582
 16381  
 16382  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16383  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16384  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16385  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16386  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16387  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16388  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16389  
 16390  //                                    CCCCC  FFFFFFF FFFFFFF TTTTTTT M     M FFFFFFF
 16391  //                                   C     C F       F          T    MM   MM F
 16392  //                                   C       F       F          T    M M M M F
 16393  //                                   C       FFFFF   FFFFF      T    M  M  M FFFFF
 16394  //                                   C       F       F          T    M     M F
 16395  //                                   C     C F       F          T    M     M F
 16396  //                                    CCCCC  F       F          T    M     M F
 16397  
 16398  
 16399  // VIF  THU 20 NOV 2025 22:19:29  ** CFFTMF                       ** DIAGNOSTICS                                      PAGE 00583
 16400  
 16401  
 16402  // VIF  THU 20 NOV 2025 22:19:29  ** CFFTMF                       ** GENERATED CODE                                   PAGE 00584
 16403  
 16404  int_4 _cfftmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, int_4 _p_ lenc_, real_4 
 16405  _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 16406  { // ** body not listed **
 16435  }
 16436  
 16437  // VIF  THU 20 NOV 2025 22:19:29  ** CFFTMI                       ** CFFTMI                                           PAGE 00585
 16438  
 16439  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16440  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16441  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16442  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16443  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16444  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16445  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16446  
 16447  //                                     CCCCC  FFFFFFF FFFFFFF TTTTTTT M     M   III
 16448  //                                    C     C F       F          T    MM   MM    I
 16449  //                                    C       F       F          T    M M M M    I
 16450  //                                    C       FFFFF   FFFFF      T    M  M  M    I
 16451  //                                    C       F       F          T    M     M    I
 16452  //                                    C     C F       F          T    M     M    I
 16453  //                                     CCCCC  F       F          T    M     M   III
 16454  
 16455  
 16456  // VIF  THU 20 NOV 2025 22:19:29  ** CFFTMI                       ** DIAGNOSTICS                                      PAGE 00586
 16457  
 16458  
 16459  // VIF  THU 20 NOV 2025 22:19:29  ** CFFTMI                       ** GENERATED CODE                                   PAGE 00587
 16460  
 16461  int_4 _cfftmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 16462  { // ** body not listed **
 16479  }
 16480  
 16481  // VIF  THU 20 NOV 2025 22:19:29  ** CMF2KB                       ** CMF2KB                                           PAGE 00588
 16482  
 16483  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16484  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16485  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16486  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16487  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16488  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16489  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16490  
 16491  //                                    CCCCC  M     M FFFFFFF  22222  K    K  BBBBBB
 16492  //                                   C     C MM   MM F       2     2 K   K   B     B
 16493  //                                   C       M M M M F             2 K  K    B     B
 16494  //                                   C       M  M  M FFFFF    22222  KKK     BBBBBB
 16495  //                                   C       M     M F       2       K  K    B     B
 16496  //                                   C     C M     M F       2       K   K   B     B
 16497  //                                    CCCCC  M     M F       2222222 K    K  BBBBBB
 16498  
 16499  
 16500  // VIF  THU 20 NOV 2025 22:19:29  ** CMF2KB                       ** DIAGNOSTICS                                      PAGE 00589
 16501  
 16502  
 16503  // VIF  THU 20 NOV 2025 22:19:29  ** CMF2KB                       ** GENERATED CODE                                   PAGE 00590
 16504  
 16505  int_4 _cmf2kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
 16506  in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
 16507  { // ** body not listed **
 16581  }
 16582  
 16583  // VIF  THU 20 NOV 2025 22:19:29  ** CMF2KF                       ** CMF2KF                                           PAGE 00592
 16584  
 16585  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16586  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16587  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16588  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16589  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16590  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16591  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16592  
 16593  //                                    CCCCC  M     M FFFFFFF  22222  K    K  FFFFFFF
 16594  //                                   C     C MM   MM F       2     2 K   K   F
 16595  //                                   C       M M M M F             2 K  K    F
 16596  //                                   C       M  M  M FFFFF    22222  KKK     FFFFF
 16597  //                                   C       M     M F       2       K  K    F
 16598  //                                   C     C M     M F       2       K   K   F
 16599  //                                    CCCCC  M     M F       2222222 K    K  F
 16600  
 16601  
 16602  // VIF  THU 20 NOV 2025 22:19:29  ** CMF2KF                       ** DIAGNOSTICS                                      PAGE 00593
 16603  
 16604  
 16605  // VIF  THU 20 NOV 2025 22:19:29  ** CMF2KF                       ** GENERATED CODE                                   PAGE 00594
 16606  
 16607  int_4 _cmf2kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
 16608  in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
 16609  { // ** body not listed **
 16704  }
 16705  
 16706  // VIF  THU 20 NOV 2025 22:19:29  ** CMF3KB                       ** CMF3KB                                           PAGE 00596
 16707  
 16708  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16709  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16710  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16711  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16712  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16713  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16714  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16715  
 16716  //                                    CCCCC  M     M FFFFFFF  33333  K    K  BBBBBB
 16717  //                                   C     C MM   MM F       3     3 K   K   B     B
 16718  //                                   C       M M M M F             3 K  K    B     B
 16719  //                                   C       M  M  M FFFFF    33333  KKK     BBBBBB
 16720  //                                   C       M     M F             3 K  K    B     B
 16721  //                                   C     C M     M F       3     3 K   K   B     B
 16722  //                                    CCCCC  M     M F        33333  K    K  BBBBBB
 16723  
 16724  
 16725  // VIF  THU 20 NOV 2025 22:19:29  ** CMF3KB                       ** DIAGNOSTICS                                      PAGE 00597
 16726  
 16727  
 16728  // VIF  THU 20 NOV 2025 22:19:29  ** CMF3KB                       ** GENERATED CODE                                   PAGE 00598
 16729  
 16730  int_4 _cmf3kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
 16731  in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
 16732  { // ** body not listed **
 16851  }
 16852  
 16853  // VIF  THU 20 NOV 2025 22:19:29  ** CMF3KF                       ** CMF3KF                                           PAGE 00601
 16854  
 16855  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16856  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16857  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16858  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16859  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16860  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16861  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16862  
 16863  //                                    CCCCC  M     M FFFFFFF  33333  K    K  FFFFFFF
 16864  //                                   C     C MM   MM F       3     3 K   K   F
 16865  //                                   C       M M M M F             3 K  K    F
 16866  //                                   C       M  M  M FFFFF    33333  KKK     FFFFF
 16867  //                                   C       M     M F             3 K  K    F
 16868  //                                   C     C M     M F       3     3 K   K   F
 16869  //                                    CCCCC  M     M F        33333  K    K  F
 16870  
 16871  
 16872  // VIF  THU 20 NOV 2025 22:19:29  ** CMF3KF                       ** DIAGNOSTICS                                      PAGE 00602
 16873  
 16874  
 16875  // VIF  THU 20 NOV 2025 22:19:29  ** CMF3KF                       ** GENERATED CODE                                   PAGE 00603
 16876  
 16877  int_4 _cmf3kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
 16878  in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
 16879  { // ** body not listed **
 17025  }
 17026  
 17027  // VIF  THU 20 NOV 2025 22:19:29  ** CMF4KB                       ** CMF4KB                                           PAGE 00606
 17028  
 17029  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17030  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17031  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17032  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17033  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17034  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17035  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17036  
 17037  //                                    CCCCC  M     M FFFFFFF 4       K    K  BBBBBB
 17038  //                                   C     C MM   MM F       4    4  K   K   B     B
 17039  //                                   C       M M M M F       4    4  K  K    B     B
 17040  //                                   C       M  M  M FFFFF   4444444 KKK     BBBBBB
 17041  //                                   C       M     M F            4  K  K    B     B
 17042  //                                   C     C M     M F            4  K   K   B     B
 17043  //                                    CCCCC  M     M F            4  K    K  BBBBBB
 17044  
 17045  
 17046  // VIF  THU 20 NOV 2025 22:19:29  ** CMF4KB                       ** DIAGNOSTICS                                      PAGE 00607
 17047  
 17048  
 17049  // VIF  THU 20 NOV 2025 22:19:29  ** CMF4KB                       ** GENERATED CODE                                   PAGE 00608
 17050  
 17051  int_4 _cmf4kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
 17052  in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
 17053  { // ** body not listed **
 17175  }
 17176  
 17177  // VIF  THU 20 NOV 2025 22:19:29  ** CMF4KF                       ** CMF4KF                                           PAGE 00611
 17178  
 17179  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17180  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17181  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17182  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17183  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17184  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17185  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17186  
 17187  //                                    CCCCC  M     M FFFFFFF 4       K    K  FFFFFFF
 17188  //                                   C     C MM   MM F       4    4  K   K   F
 17189  //                                   C       M M M M F       4    4  K  K    F
 17190  //                                   C       M  M  M FFFFF   4444444 KKK     FFFFF
 17191  //                                   C       M     M F            4  K  K    F
 17192  //                                   C     C M     M F            4  K   K   F
 17193  //                                    CCCCC  M     M F            4  K    K  F
 17194  
 17195  
 17196  // VIF  THU 20 NOV 2025 22:19:29  ** CMF4KF                       ** DIAGNOSTICS                                      PAGE 00612
 17197  
 17198  
 17199  // VIF  THU 20 NOV 2025 22:19:29  ** CMF4KF                       ** GENERATED CODE                                   PAGE 00613
 17200  
 17201  int_4 _cmf4kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
 17202  in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
 17203  { // ** body not listed **
 17360  }
 17361  
 17362  // VIF  THU 20 NOV 2025 22:19:29  ** CMF5KB                       ** CMF5KB                                           PAGE 00617
 17363  
 17364  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17365  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17366  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17367  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17368  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17369  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17370  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17371  
 17372  //                                    CCCCC  M     M FFFFFFF 5555555 K    K  BBBBBB
 17373  //                                   C     C MM   MM F       5       K   K   B     B
 17374  //                                   C       M M M M F       5       K  K    B     B
 17375  //                                   C       M  M  M FFFFF    55555  KKK     BBBBBB
 17376  //                                   C       M     M F             5 K  K    B     B
 17377  //                                   C     C M     M F       5     5 K   K   B     B
 17378  //                                    CCCCC  M     M F        55555  K    K  BBBBBB
 17379  
 17380  
 17381  // VIF  THU 20 NOV 2025 22:19:29  ** CMF5KB                       ** DIAGNOSTICS                                      PAGE 00618
 17382  
 17383  
 17384  // VIF  THU 20 NOV 2025 22:19:29  ** CMF5KB                       ** GENERATED CODE                                   PAGE 00619
 17385  
 17386  int_4 _cmf5kb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
 17387  in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
 17388  { // ** body not listed **
 17598  }
 17599  
 17600  // VIF  THU 20 NOV 2025 22:19:29  ** CMF5KF                       ** CMF5KF                                           PAGE 00624
 17601  
 17602  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17603  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17604  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17605  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17606  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17607  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17608  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17609  
 17610  //                                    CCCCC  M     M FFFFFFF 5555555 K    K  FFFFFFF
 17611  //                                   C     C MM   MM F       5       K   K   F
 17612  //                                   C       M M M M F       5       K  K    F
 17613  //                                   C       M  M  M FFFFF    55555  KKK     FFFFF
 17614  //                                   C       M     M F             5 K  K    F
 17615  //                                   C     C M     M F       5     5 K   K   F
 17616  //                                    CCCCC  M     M F        55555  K    K  F
 17617  
 17618  
 17619  // VIF  THU 20 NOV 2025 22:19:29  ** CMF5KF                       ** DIAGNOSTICS                                      PAGE 00625
 17620  
 17621  
 17622  // VIF  THU 20 NOV 2025 22:19:29  ** CMF5KF                       ** GENERATED CODE                                   PAGE 00626
 17623  
 17624  int_4 _cmf5kf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ l1_, int_4 _p_ na_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ 
 17625  in1_, real_4 _p_ ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa_)
 17626  { // ** body not listed **
 17889  }
 17890  
 17891  // VIF  THU 20 NOV 2025 22:19:29  ** CMFGKB                       ** CMFGKB                                           PAGE 00632
 17892  
 17893  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17894  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17895  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17896  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17897  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17898  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17899  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17900  
 17901  //                                    CCCCC  M     M FFFFFFF  GGGGG  K    K  BBBBBB
 17902  //                                   C     C MM   MM F       G     G K   K   B     B
 17903  //                                   C       M M M M F       G       K  K    B     B
 17904  //                                   C       M  M  M FFFFF   G  GGGG KKK     BBBBBB
 17905  //                                   C       M     M F       G     G K  K    B     B
 17906  //                                   C     C M     M F       G     G K   K   B     B
 17907  //                                    CCCCC  M     M F        GGGGG  K    K  BBBBBB
 17908  
 17909  
 17910  // VIF  THU 20 NOV 2025 22:19:29  ** CMFGKB                       ** DIAGNOSTICS                                      PAGE 00633
 17911  
 17912  
 17913  // VIF  THU 20 NOV 2025 22:19:29  ** CMFGKB                       ** GENERATED CODE                                   PAGE 00634
 17914  
 17915  int_4 _cmfgkb (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_4 _p_ 
 17916  cc_, real_4 _p_ cc1_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ im2_, int_4 _p_ in2_, 
 17917  real_4 _p_ wa_)
 17918  { // ** body not listed **
 18120  }
 18121  // VIF  THU 20 NOV 2025 22:19:29  ** CMFGKB                       ** GENERATED CODE                                   PAGE 00638
 18122  
 18123  
 18124  // VIF  THU 20 NOV 2025 22:19:29  ** CMFGKF                       ** CMFGKF                                           PAGE 00639
 18125  
 18126  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18127  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18128  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18129  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18130  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18131  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18132  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18133  
 18134  //                                    CCCCC  M     M FFFFFFF  GGGGG  K    K  FFFFFFF
 18135  //                                   C     C MM   MM F       G     G K   K   F
 18136  //                                   C       M M M M F       G       K  K    F
 18137  //                                   C       M  M  M FFFFF   G  GGGG KKK     FFFFF
 18138  //                                   C       M     M F       G     G K  K    F
 18139  //                                   C     C M     M F       G     G K   K   F
 18140  //                                    CCCCC  M     M F        GGGGG  K    K  F
 18141  
 18142  
 18143  // VIF  THU 20 NOV 2025 22:19:29  ** CMFGKF                       ** DIAGNOSTICS                                      PAGE 00640
 18144  
 18145  
 18146  // VIF  THU 20 NOV 2025 22:19:29  ** CMFGKF                       ** GENERATED CODE                                   PAGE 00641
 18147  
 18148  int_4 _cmfgkf (int_4 _p_ lot_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ lid_, int_4 _p_ na_, real_4 _p_ 
 18149  cc_, real_4 _p_ cc1_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch1_, int_4 _p_ im2_, int_4 _p_ in2_, 
 18150  real_4 _p_ wa_)
 18151  { // ** body not listed **
 18399  }
 18400  
 18401  // VIF  THU 20 NOV 2025 22:19:29  ** CMFM1B                       ** CMFM1B                                           PAGE 00646
 18402  
 18403  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18404  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18405  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18406  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18407  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18408  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18409  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18410  
 18411  //                                    CCCCC  M     M FFFFFFF M     M    1    BBBBBB
 18412  //                                   C     C MM   MM F       MM   MM   11    B     B
 18413  //                                   C       M M M M F       M M M M  1 1    B     B
 18414  //                                   C       M  M  M FFFFF   M  M  M    1    BBBBBB
 18415  //                                   C       M     M F       M     M    1    B     B
 18416  //                                   C     C M     M F       M     M    1    B     B
 18417  //                                    CCCCC  M     M F       M     M  11111  BBBBBB
 18418  
 18419  
 18420  // VIF  THU 20 NOV 2025 22:19:29  ** CMFM1B                       ** DIAGNOSTICS                                      PAGE 00647
 18421  
 18422  
 18423  // VIF  THU 20 NOV 2025 22:19:29  ** CMFM1B                       ** GENERATED CODE                                   PAGE 00648
 18424  
 18425  int_4 _cmfm1b (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, real_4 _p_ ch_, real_4 
 18426  _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_)
 18427  { // ** body not listed **
 18492  }
 18493  
 18494  // VIF  THU 20 NOV 2025 22:19:29  ** CMFM1F                       ** CMFM1F                                           PAGE 00650
 18495  
 18496  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18497  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18498  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18499  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18500  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18501  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18502  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18503  
 18504  //                                    CCCCC  M     M FFFFFFF M     M    1    FFFFFFF
 18505  //                                   C     C MM   MM F       MM   MM   11    F
 18506  //                                   C       M M M M F       M M M M  1 1    F
 18507  //                                   C       M  M  M FFFFF   M  M  M    1    FFFFF
 18508  //                                   C       M     M F       M     M    1    F
 18509  //                                   C     C M     M F       M     M    1    F
 18510  //                                    CCCCC  M     M F       M     M  11111  F
 18511  
 18512  
 18513  // VIF  THU 20 NOV 2025 22:19:29  ** CMFM1F                       ** DIAGNOSTICS                                      PAGE 00651
 18514  
 18515  
 18516  // VIF  THU 20 NOV 2025 22:19:29  ** CMFM1F                       ** GENERATED CODE                                   PAGE 00652
 18517  
 18518  int_4 _cmfm1f (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, complex_8 _p_ c_, real_4 _p_ ch_, real_4 
 18519  _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_)
 18520  { // ** body not listed **
 18585  }
 18586  
 18587  // VIF  THU 20 NOV 2025 22:19:29  ** COSQ1B                       ** COSQ1B                                           PAGE 00654
 18588  
 18589  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18590  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18591  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18592  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18593  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18594  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18595  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18596  
 18597  //                                    CCCCC   OOOOO   SSSSS   QQQQQ     1    BBBBBB
 18598  //                                   C     C O     O S     S Q     Q   11    B     B
 18599  //                                   C       O     O S       Q     Q  1 1    B     B
 18600  //                                   C       O     O  SSSSS  Q     Q    1    BBBBBB
 18601  //                                   C       O     O       S Q   Q Q    1    B     B
 18602  //                                   C     C O     O S     S Q    Q     1    B     B
 18603  //                                    CCCCC   OOOOO   SSSSS   QQQQ Q  11111  BBBBBB
 18604  
 18605  
 18606  // VIF  THU 20 NOV 2025 22:19:29  ** COSQ1B                       ** DIAGNOSTICS                                      PAGE 00655
 18607  
 18608  
 18609  // VIF  THU 20 NOV 2025 22:19:29  ** COSQ1B                       ** GENERATED CODE                                   PAGE 00656
 18610  
 18611  int_4 _cosq1b (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 18612  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 18613  { // ** body not listed **
 18658  }
 18659  
 18660  // VIF  THU 20 NOV 2025 22:19:29  ** COSQ1F                       ** COSQ1F                                           PAGE 00657
 18661  
 18662  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18663  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18664  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18665  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18666  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18667  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18668  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18669  
 18670  //                                    CCCCC   OOOOO   SSSSS   QQQQQ     1    FFFFFFF
 18671  //                                   C     C O     O S     S Q     Q   11    F
 18672  //                                   C       O     O S       Q     Q  1 1    F
 18673  //                                   C       O     O  SSSSS  Q     Q    1    FFFFF
 18674  //                                   C       O     O       S Q   Q Q    1    F
 18675  //                                   C     C O     O S     S Q    Q     1    F
 18676  //                                    CCCCC   OOOOO   SSSSS   QQQQ Q  11111  F
 18677  
 18678  
 18679  // VIF  THU 20 NOV 2025 22:19:29  ** COSQ1F                       ** DIAGNOSTICS                                      PAGE 00658
 18680  
 18681  
 18682  // VIF  THU 20 NOV 2025 22:19:29  ** COSQ1F                       ** GENERATED CODE                                   PAGE 00659
 18683  
 18684  int_4 _cosq1f (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 18685  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 18686  { // ** body not listed **
 18732  }
 18733  
 18734  // VIF  THU 20 NOV 2025 22:19:29  ** COSQ1I                       ** COSQ1I                                           PAGE 00660
 18735  
 18736  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18737  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18738  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18739  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18740  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18741  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18742  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18743  
 18744  //                                     CCCCC   OOOOO   SSSSS   QQQQQ     1      III
 18745  //                                    C     C O     O S     S Q     Q   11       I
 18746  //                                    C       O     O S       Q     Q  1 1       I
 18747  //                                    C       O     O  SSSSS  Q     Q    1       I
 18748  //                                    C       O     O       S Q   Q Q    1       I
 18749  //                                    C     C O     O S     S Q    Q     1       I
 18750  //                                     CCCCC   OOOOO   SSSSS   QQQQ Q  11111    III
 18751  
 18752  
 18753  // VIF  THU 20 NOV 2025 22:19:29  ** COSQ1I                       ** DIAGNOSTICS                                      PAGE 00661
 18754  
 18755  
 18756  // VIF  THU 20 NOV 2025 22:19:29  ** COSQ1I                       ** GENERATED CODE                                   PAGE 00662
 18757  
 18758  int_4 _cosq1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 18759  { // ** body not listed **
 18787  }
 18788  
 18789  // VIF  THU 20 NOV 2025 22:19:29  ** COSQB1                       ** COSQB1                                           PAGE 00663
 18790  
 18791  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18792  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18793  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18794  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18795  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18796  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18797  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18798  
 18799  //                                     CCCCC   OOOOO   SSSSS   QQQQQ  BBBBBB     1
 18800  //                                    C     C O     O S     S Q     Q B     B   11
 18801  //                                    C       O     O S       Q     Q B     B  1 1
 18802  //                                    C       O     O  SSSSS  Q     Q BBBBBB     1
 18803  //                                    C       O     O       S Q   Q Q B     B    1
 18804  //                                    C     C O     O S     S Q    Q  B     B    1
 18805  //                                     CCCCC   OOOOO   SSSSS   QQQQ Q BBBBBB   11111
 18806  
 18807  
 18808  // VIF  THU 20 NOV 2025 22:19:29  ** COSQB1                       ** DIAGNOSTICS                                      PAGE 00664
 18809  
 18810  
 18811  // VIF  THU 20 NOV 2025 22:19:29  ** COSQB1                       ** GENERATED CODE                                   PAGE 00665
 18812  
 18813  int_4 _cosqb1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
 18814  { // ** body not listed **
 18867  }
 18868  
 18869  // VIF  THU 20 NOV 2025 22:19:29  ** COSQF1                       ** COSQF1                                           PAGE 00667
 18870  
 18871  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18872  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18873  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18874  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18875  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18876  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18877  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18878  
 18879  //                                     CCCCC   OOOOO   SSSSS   QQQQQ  FFFFFFF    1
 18880  //                                    C     C O     O S     S Q     Q F         11
 18881  //                                    C       O     O S       Q     Q F        1 1
 18882  //                                    C       O     O  SSSSS  Q     Q FFFFF      1
 18883  //                                    C       O     O       S Q   Q Q F          1
 18884  //                                    C     C O     O S     S Q    Q  F          1
 18885  //                                     CCCCC   OOOOO   SSSSS   QQQQ Q F        11111
 18886  
 18887  
 18888  // VIF  THU 20 NOV 2025 22:19:29  ** COSQF1                       ** DIAGNOSTICS                                      PAGE 00668
 18889  
 18890  
 18891  // VIF  THU 20 NOV 2025 22:19:29  ** COSQF1                       ** GENERATED CODE                                   PAGE 00669
 18892  
 18893  int_4 _cosqf1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
 18894  { // ** body not listed **
 18940  }
 18941  
 18942  // VIF  THU 20 NOV 2025 22:19:29  ** COSQMB                       ** COSQMB                                           PAGE 00670
 18943  
 18944  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18945  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18946  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18947  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18948  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18949  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18950  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18951  
 18952  //                                    CCCCC   OOOOO   SSSSS   QQQQQ  M     M BBBBBB
 18953  //                                   C     C O     O S     S Q     Q MM   MM B     B
 18954  //                                   C       O     O S       Q     Q M M M M B     B
 18955  //                                   C       O     O  SSSSS  Q     Q M  M  M BBBBBB
 18956  //                                   C       O     O       S Q   Q Q M     M B     B
 18957  //                                   C     C O     O S     S Q    Q  M     M B     B
 18958  //                                    CCCCC   OOOOO   SSSSS   QQQQ Q M     M BBBBBB
 18959  
 18960  
 18961  // VIF  THU 20 NOV 2025 22:19:29  ** COSQMB                       ** DIAGNOSTICS                                      PAGE 00671
 18962  
 18963  
 18964  // VIF  THU 20 NOV 2025 22:19:29  ** COSQMB                       ** GENERATED CODE                                   PAGE 00672
 18965  
 18966  int_4 _cosqmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 
 18967  _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 18968  { // ** body not listed **
 19028  }
 19029  
 19030  // VIF  THU 20 NOV 2025 22:19:29  ** COSQMF                       ** COSQMF                                           PAGE 00674
 19031  
 19032  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19033  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19034  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19035  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19036  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19037  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19038  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19039  
 19040  //                                    CCCCC   OOOOO   SSSSS   QQQQQ  M     M FFFFFFF
 19041  //                                   C     C O     O S     S Q     Q MM   MM F
 19042  //                                   C       O     O S       Q     Q M M M M F
 19043  //                                   C       O     O  SSSSS  Q     Q M  M  M FFFFF
 19044  //                                   C       O     O       S Q   Q Q M     M F
 19045  //                                   C     C O     O S     S Q    Q  M     M F
 19046  //                                    CCCCC   OOOOO   SSSSS   QQQQ Q M     M F
 19047  
 19048  
 19049  // VIF  THU 20 NOV 2025 22:19:29  ** COSQMF                       ** DIAGNOSTICS                                      PAGE 00675
 19050  
 19051  
 19052  // VIF  THU 20 NOV 2025 22:19:29  ** COSQMF                       ** GENERATED CODE                                   PAGE 00676
 19053  
 19054  int_4 _cosqmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 
 19055  _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 19056  { // ** body not listed **
 19112  }
 19113  
 19114  // VIF  THU 20 NOV 2025 22:19:29  ** COSQMI                       ** COSQMI                                           PAGE 00678
 19115  
 19116  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19117  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19118  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19119  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19120  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19121  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19122  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19123  
 19124  //                                     CCCCC   OOOOO   SSSSS   QQQQQ  M     M   III
 19125  //                                    C     C O     O S     S Q     Q MM   MM    I
 19126  //                                    C       O     O S       Q     Q M M M M    I
 19127  //                                    C       O     O  SSSSS  Q     Q M  M  M    I
 19128  //                                    C       O     O       S Q   Q Q M     M    I
 19129  //                                    C     C O     O S     S Q    Q  M     M    I
 19130  //                                     CCCCC   OOOOO   SSSSS   QQQQ Q M     M   III
 19131  
 19132  
 19133  // VIF  THU 20 NOV 2025 22:19:29  ** COSQMI                       ** DIAGNOSTICS                                      PAGE 00679
 19134  
 19135  
 19136  // VIF  THU 20 NOV 2025 22:19:29  ** COSQMI                       ** GENERATED CODE                                   PAGE 00680
 19137  
 19138  int_4 _cosqmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 19139  { // ** body not listed **
 19167  }
 19168  
 19169  // VIF  THU 20 NOV 2025 22:19:29  ** COST1B                       ** COST1B                                           PAGE 00681
 19170  
 19171  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19172  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19173  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19174  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19175  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19176  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19177  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19178  
 19179  //                                    CCCCC   OOOOO   SSSSS  TTTTTTT    1    BBBBBB
 19180  //                                   C     C O     O S     S    T      11    B     B
 19181  //                                   C       O     O S          T     1 1    B     B
 19182  //                                   C       O     O  SSSSS     T       1    BBBBBB
 19183  //                                   C       O     O       S    T       1    B     B
 19184  //                                   C     C O     O S     S    T       1    B     B
 19185  //                                    CCCCC   OOOOO   SSSSS     T     11111  BBBBBB
 19186  
 19187  
 19188  // VIF  THU 20 NOV 2025 22:19:29  ** COST1B                       ** DIAGNOSTICS                                      PAGE 00682
 19189  
 19190  
 19191  // VIF  THU 20 NOV 2025 22:19:29  ** COST1B                       ** GENERATED CODE                                   PAGE 00683
 19192  
 19193  int_4 _cost1b (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 19194  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 19195  { // ** body not listed **
 19227  }
 19228  
 19229  // VIF  THU 20 NOV 2025 22:19:29  ** COST1F                       ** COST1F                                           PAGE 00684
 19230  
 19231  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19232  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19233  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19234  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19235  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19236  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19237  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19238  
 19239  //                                    CCCCC   OOOOO   SSSSS  TTTTTTT    1    FFFFFFF
 19240  //                                   C     C O     O S     S    T      11    F
 19241  //                                   C       O     O S          T     1 1    F
 19242  //                                   C       O     O  SSSSS     T       1    FFFFF
 19243  //                                   C       O     O       S    T       1    F
 19244  //                                   C     C O     O S     S    T       1    F
 19245  //                                    CCCCC   OOOOO   SSSSS     T     11111  F
 19246  
 19247  
 19248  // VIF  THU 20 NOV 2025 22:19:29  ** COST1F                       ** DIAGNOSTICS                                      PAGE 00685
 19249  
 19250  
 19251  // VIF  THU 20 NOV 2025 22:19:29  ** COST1F                       ** GENERATED CODE                                   PAGE 00686
 19252  
 19253  int_4 _cost1f (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 19254  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 19255  { // ** body not listed **
 19287  }
 19288  
 19289  // VIF  THU 20 NOV 2025 22:19:29  ** COST1I                       ** COST1I                                           PAGE 00687
 19290  
 19291  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19292  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19293  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19294  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19295  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19296  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19297  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19298  
 19299  //                                     CCCCC   OOOOO   SSSSS  TTTTTTT    1      III
 19300  //                                    C     C O     O S     S    T      11       I
 19301  //                                    C       O     O S          T     1 1       I
 19302  //                                    C       O     O  SSSSS     T       1       I
 19303  //                                    C       O     O       S    T       1       I
 19304  //                                    C     C O     O S     S    T       1       I
 19305  //                                     CCCCC   OOOOO   SSSSS     T     11111    III
 19306  
 19307  
 19308  // VIF  THU 20 NOV 2025 22:19:29  ** COST1I                       ** DIAGNOSTICS                                      PAGE 00688
 19309  
 19310  
 19311  // VIF  THU 20 NOV 2025 22:19:29  ** COST1I                       ** GENERATED CODE                                   PAGE 00689
 19312  
 19313  int_4 _cost1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 19314  { // ** body not listed **
 19351  }
 19352  
 19353  // VIF  THU 20 NOV 2025 22:19:29  ** COSTB1                       ** COSTB1                                           PAGE 00690
 19354  
 19355  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19356  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19357  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19358  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19359  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19360  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19361  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19362  
 19363  //                                     CCCCC   OOOOO   SSSSS  TTTTTTT BBBBBB     1
 19364  //                                    C     C O     O S     S    T    B     B   11
 19365  //                                    C       O     O S          T    B     B  1 1
 19366  //                                    C       O     O  SSSSS     T    BBBBBB     1
 19367  //                                    C       O     O       S    T    B     B    1
 19368  //                                    C     C O     O S     S    T    B     B    1
 19369  //                                     CCCCC   OOOOO   SSSSS     T    BBBBBB   11111
 19370  
 19371  
 19372  // VIF  THU 20 NOV 2025 22:19:29  ** COSTB1                       ** DIAGNOSTICS                                      PAGE 00691
 19373  
 19374  
 19375  // VIF  THU 20 NOV 2025 22:19:29  ** COSTB1                       ** GENERATED CODE                                   PAGE 00692
 19376  
 19377  int_4 _costb1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
 19378  { // ** body not listed **
 19465  }
 19466  
 19467  // VIF  THU 20 NOV 2025 22:19:29  ** COSTF1                       ** COSTF1                                           PAGE 00694
 19468  
 19469  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19470  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19471  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19472  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19473  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19474  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19475  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19476  
 19477  //                                     CCCCC   OOOOO   SSSSS  TTTTTTT FFFFFFF    1
 19478  //                                    C     C O     O S     S    T    F         11
 19479  //                                    C       O     O S          T    F        1 1
 19480  //                                    C       O     O  SSSSS     T    FFFFF      1
 19481  //                                    C       O     O       S    T    F          1
 19482  //                                    C     C O     O S     S    T    F          1
 19483  //                                     CCCCC   OOOOO   SSSSS     T    F        11111
 19484  
 19485  
 19486  // VIF  THU 20 NOV 2025 22:19:29  ** COSTF1                       ** DIAGNOSTICS                                      PAGE 00695
 19487  
 19488  
 19489  // VIF  THU 20 NOV 2025 22:19:29  ** COSTF1                       ** GENERATED CODE                                   PAGE 00696
 19490  
 19491  int_4 _costf1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ work_, int_4 _p_ ier_)
 19492  { // ** body not listed **
 19577  }
 19578  
 19579  // VIF  THU 20 NOV 2025 22:19:29  ** COSTMB                       ** COSTMB                                           PAGE 00698
 19580  
 19581  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19582  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19583  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19584  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19585  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19586  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19587  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19588  
 19589  //                                    CCCCC   OOOOO   SSSSS  TTTTTTT M     M BBBBBB
 19590  //                                   C     C O     O S     S    T    MM   MM B     B
 19591  //                                   C       O     O S          T    M M M M B     B
 19592  //                                   C       O     O  SSSSS     T    M  M  M BBBBBB
 19593  //                                   C       O     O       S    T    M     M B     B
 19594  //                                   C     C O     O S     S    T    M     M B     B
 19595  //                                    CCCCC   OOOOO   SSSSS     T    M     M BBBBBB
 19596  
 19597  
 19598  // VIF  THU 20 NOV 2025 22:19:29  ** COSTMB                       ** DIAGNOSTICS                                      PAGE 00699
 19599  
 19600  
 19601  // VIF  THU 20 NOV 2025 22:19:29  ** COSTMB                       ** GENERATED CODE                                   PAGE 00700
 19602  
 19603  int_4 _costmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 
 19604  _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 19605  { // ** body not listed **
 19639  }
 19640  
 19641  // VIF  THU 20 NOV 2025 22:19:29  ** COSTMF                       ** COSTMF                                           PAGE 00701
 19642  
 19643  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19644  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19645  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19646  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19647  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19648  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19649  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19650  
 19651  //                                    CCCCC   OOOOO   SSSSS  TTTTTTT M     M FFFFFFF
 19652  //                                   C     C O     O S     S    T    MM   MM F
 19653  //                                   C       O     O S          T    M M M M F
 19654  //                                   C       O     O  SSSSS     T    M  M  M FFFFF
 19655  //                                   C       O     O       S    T    M     M F
 19656  //                                   C     C O     O S     S    T    M     M F
 19657  //                                    CCCCC   OOOOO   SSSSS     T    M     M F
 19658  
 19659  
 19660  // VIF  THU 20 NOV 2025 22:19:29  ** COSTMF                       ** DIAGNOSTICS                                      PAGE 00702
 19661  
 19662  
 19663  // VIF  THU 20 NOV 2025 22:19:29  ** COSTMF                       ** GENERATED CODE                                   PAGE 00703
 19664  
 19665  int_4 _costmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 
 19666  _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 19667  { // ** body not listed **
 19701  }
 19702  
 19703  // VIF  THU 20 NOV 2025 22:19:29  ** COSTMI                       ** COSTMI                                           PAGE 00704
 19704  
 19705  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19706  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19707  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19708  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19709  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19710  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19711  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19712  
 19713  //                                     CCCCC   OOOOO   SSSSS  TTTTTTT M     M   III
 19714  //                                    C     C O     O S     S    T    MM   MM    I
 19715  //                                    C       O     O S          T    M M M M    I
 19716  //                                    C       O     O  SSSSS     T    M  M  M    I
 19717  //                                    C       O     O       S    T    M     M    I
 19718  //                                    C     C O     O S     S    T    M     M    I
 19719  //                                     CCCCC   OOOOO   SSSSS     T    M     M   III
 19720  
 19721  
 19722  // VIF  THU 20 NOV 2025 22:19:29  ** COSTMI                       ** DIAGNOSTICS                                      PAGE 00705
 19723  
 19724  
 19725  // VIF  THU 20 NOV 2025 22:19:29  ** COSTMI                       ** GENERATED CODE                                   PAGE 00706
 19726  
 19727  int_4 _costmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 19728  { // ** body not listed **
 19765  }
 19766  
 19767  // VIF  THU 20 NOV 2025 22:19:29  ** FACTOR                       ** FACTOR                                           PAGE 00707
 19768  
 19769  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19770  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19771  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19772  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19773  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19774  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19775  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19776  
 19777  //                                   FFFFFFF    A     CCCCC  TTTTTTT  OOOOO  RRRRRR
 19778  //                                   F         A A   C     C    T    O     O R     R
 19779  //                                   F        A   A  C          T    O     O R     R
 19780  //                                   FFFFF   A     A C          T    O     O RRRRRR
 19781  //                                   F       AAAAAAA C          T    O     O R   R
 19782  //                                   F       A     A C     C    T    O     O R    R
 19783  //                                   F       A     A  CCCCC     T     OOOOO  R     R
 19784  
 19785  
 19786  // VIF  THU 20 NOV 2025 22:19:29  ** FACTOR                       ** DIAGNOSTICS                                      PAGE 00708
 19787  
 19788  
 19789  // VIF  THU 20 NOV 2025 22:19:29  ** FACTOR                       ** GENERATED CODE                                   PAGE 00709
 19790  
 19791  int_4 _factor (int_4 _p_ n_, int_4 _p_ nf_, real_4 _p_ fac_)
 19792  { // ** body not listed **
 19865  }
 19866  
 19867  // VIF  THU 20 NOV 2025 22:19:29  ** MCFTI1                       ** MCFTI1                                           PAGE 00711
 19868  
 19869  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19870  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19871  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19872  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19873  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19874  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19875  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19876  
 19877  //                                    M     M  CCCCC  FFFFFFF TTTTTTT   III      1
 19878  //                                    MM   MM C     C F          T       I      11
 19879  //                                    M M M M C       F          T       I     1 1
 19880  //                                    M  M  M C       FFFFF      T       I       1
 19881  //                                    M     M C       F          T       I       1
 19882  //                                    M     M C     C F          T       I       1
 19883  //                                    M     M  CCCCC  F          T      III    11111
 19884  
 19885  
 19886  // VIF  THU 20 NOV 2025 22:19:29  ** MCFTI1                       ** DIAGNOSTICS                                      PAGE 00712
 19887  
 19888  
 19889  // VIF  THU 20 NOV 2025 22:19:29  ** MCFTI1                       ** GENERATED CODE                                   PAGE 00713
 19890  
 19891  int_4 _mcfti1 (int_4 _p_ n_, real_4 _p_ wa_, real_4 _p_ fnf_, real_4 _p_ fac_)
 19892  { // ** body not listed **
 19908  }
 19909  
 19910  // VIF  THU 20 NOV 2025 22:19:29  ** MCSQB1                       ** MCSQB1                                           PAGE 00714
 19911  
 19912  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19913  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19914  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19915  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19916  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19917  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19918  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19919  
 19920  //                                    M     M  CCCCC   SSSSS   QQQQQ  BBBBBB     1
 19921  //                                    MM   MM C     C S     S Q     Q B     B   11
 19922  //                                    M M M M C       S       Q     Q B     B  1 1
 19923  //                                    M  M  M C        SSSSS  Q     Q BBBBBB     1
 19924  //                                    M     M C             S Q   Q Q B     B    1
 19925  //                                    M     M C     C S     S Q    Q  B     B    1
 19926  //                                    M     M  CCCCC   SSSSS   QQQQ Q BBBBBB   11111
 19927  
 19928  
 19929  // VIF  THU 20 NOV 2025 22:19:29  ** MCSQB1                       ** DIAGNOSTICS                                      PAGE 00715
 19930  
 19931  
 19932  // VIF  THU 20 NOV 2025 22:19:29  ** MCSQB1                       ** GENERATED CODE                                   PAGE 00716
 19933  
 19934  int_4 _mcsqb1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 
 19935  _p_ work_, int_4 _p_ ier_)
 19936  { // ** body not listed **
 20011  }
 20012  
 20013  // VIF  THU 20 NOV 2025 22:19:29  ** MCSQF1                       ** MCSQF1                                           PAGE 00718
 20014  
 20015  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20016  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20017  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20018  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20019  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20020  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20021  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20022  
 20023  //                                    M     M  CCCCC   SSSSS   QQQQQ  FFFFFFF    1
 20024  //                                    MM   MM C     C S     S Q     Q F         11
 20025  //                                    M M M M C       S       Q     Q F        1 1
 20026  //                                    M  M  M C        SSSSS  Q     Q FFFFF      1
 20027  //                                    M     M C             S Q   Q Q F          1
 20028  //                                    M     M C     C S     S Q    Q  F          1
 20029  //                                    M     M  CCCCC   SSSSS   QQQQ Q F        11111
 20030  
 20031  
 20032  // VIF  THU 20 NOV 2025 22:19:29  ** MCSQF1                       ** DIAGNOSTICS                                      PAGE 00719
 20033  
 20034  
 20035  // VIF  THU 20 NOV 2025 22:19:29  ** MCSQF1                       ** GENERATED CODE                                   PAGE 00720
 20036  
 20037  int_4 _mcsqf1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 
 20038  _p_ work_, int_4 _p_ ier_)
 20039  { // ** body not listed **
 20110  }
 20111  
 20112  // VIF  THU 20 NOV 2025 22:19:29  ** MCSTB1                       ** MCSTB1                                           PAGE 00722
 20113  
 20114  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20115  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20116  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20117  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20118  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20119  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20120  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20121  
 20122  //                                    M     M  CCCCC   SSSSS  TTTTTTT BBBBBB     1
 20123  //                                    MM   MM C     C S     S    T    B     B   11
 20124  //                                    M M M M C       S          T    B     B  1 1
 20125  //                                    M  M  M C        SSSSS     T    BBBBBB     1
 20126  //                                    M     M C             S    T    B     B    1
 20127  //                                    M     M C     C S     S    T    B     B    1
 20128  //                                    M     M  CCCCC   SSSSS     T    BBBBBB   11111
 20129  
 20130  
 20131  // VIF  THU 20 NOV 2025 22:19:29  ** MCSTB1                       ** DIAGNOSTICS                                      PAGE 00723
 20132  
 20133  
 20134  // VIF  THU 20 NOV 2025 22:19:29  ** MCSTB1                       ** GENERATED CODE                                   PAGE 00724
 20135  
 20136  int_4 _mcstb1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_8 
 20137  _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_)
 20138  { // ** body not listed **
 20259  }
 20260  
 20261  // VIF  THU 20 NOV 2025 22:19:29  ** MCSTF1                       ** MCSTF1                                           PAGE 00727
 20262  
 20263  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20264  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20265  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20266  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20267  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20268  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20269  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20270  
 20271  //                                    M     M  CCCCC   SSSSS  TTTTTTT FFFFFFF    1
 20272  //                                    MM   MM C     C S     S    T    F         11
 20273  //                                    M M M M C       S          T    F        1 1
 20274  //                                    M  M  M C        SSSSS     T    FFFFF      1
 20275  //                                    M     M C             S    T    F          1
 20276  //                                    M     M C     C S     S    T    F          1
 20277  //                                    M     M  CCCCC   SSSSS     T    F        11111
 20278  
 20279  
 20280  // VIF  THU 20 NOV 2025 22:19:29  ** MCSTF1                       ** DIAGNOSTICS                                      PAGE 00728
 20281  
 20282  
 20283  // VIF  THU 20 NOV 2025 22:19:29  ** MCSTF1                       ** GENERATED CODE                                   PAGE 00729
 20284  
 20285  int_4 _mcstf1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_8 
 20286  _p_ dsum_, real_4 _p_ work_, int_4 _p_ ier_)
 20287  { // ** body not listed **
 20403  }
 20404  
 20405  // VIF  THU 20 NOV 2025 22:19:29  ** MRADB2                       ** MRADB2                                           PAGE 00732
 20406  
 20407  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20408  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20409  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20410  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20411  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20412  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20413  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20414  
 20415  //                                   M     M RRRRRR     A    DDDDDD  BBBBBB   22222
 20416  //                                   MM   MM R     R   A A   D     D B     B 2     2
 20417  //                                   M M M M R     R  A   A  D     D B     B       2
 20418  //                                   M  M  M RRRRRR  A     A D     D BBBBBB   22222
 20419  //                                   M     M R   R   AAAAAAA D     D B     B 2
 20420  //                                   M     M R    R  A     A D     D B     B 2
 20421  //                                   M     M R     R A     A DDDDDD  BBBBBB  2222222
 20422  
 20423  
 20424  // VIF  THU 20 NOV 2025 22:19:29  ** MRADB2                       ** DIAGNOSTICS                                      PAGE 00733
 20425  
 20426  
 20427  // VIF  THU 20 NOV 2025 22:19:29  ** MRADB2                       ** GENERATED CODE                                   PAGE 00734
 20428  
 20429  int_4 _mradb2 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ 
 20430  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_)
 20431  { // ** body not listed **
 20503  }
 20504  
 20505  // VIF  THU 20 NOV 2025 22:19:29  ** MRADB3                       ** MRADB3                                           PAGE 00736
 20506  
 20507  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20508  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20509  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20510  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20511  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20512  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20513  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20514  
 20515  //                                   M     M RRRRRR     A    DDDDDD  BBBBBB   33333
 20516  //                                   MM   MM R     R   A A   D     D B     B 3     3
 20517  //                                   M M M M R     R  A   A  D     D B     B       3
 20518  //                                   M  M  M RRRRRR  A     A D     D BBBBBB   33333
 20519  //                                   M     M R   R   AAAAAAA D     D B     B       3
 20520  //                                   M     M R    R  A     A D     D B     B 3     3
 20521  //                                   M     M R     R A     A DDDDDD  BBBBBB   33333
 20522  
 20523  
 20524  // VIF  THU 20 NOV 2025 22:19:29  ** MRADB3                       ** DIAGNOSTICS                                      PAGE 00737
 20525  
 20526  
 20527  // VIF  THU 20 NOV 2025 22:19:29  ** MRADB3                       ** GENERATED CODE                                   PAGE 00738
 20528  
 20529  int_4 _mradb3 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ 
 20530  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_)
 20531  { // ** body not listed **
 20614  }
 20615  
 20616  // VIF  THU 20 NOV 2025 22:19:29  ** MRADB4                       ** MRADB4                                           PAGE 00740
 20617  
 20618  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20619  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20620  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20621  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20622  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20623  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20624  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20625  
 20626  //                                   M     M RRRRRR     A    DDDDDD  BBBBBB  4
 20627  //                                   MM   MM R     R   A A   D     D B     B 4    4
 20628  //                                   M M M M R     R  A   A  D     D B     B 4    4
 20629  //                                   M  M  M RRRRRR  A     A D     D BBBBBB  4444444
 20630  //                                   M     M R   R   AAAAAAA D     D B     B      4
 20631  //                                   M     M R    R  A     A D     D B     B      4
 20632  //                                   M     M R     R A     A DDDDDD  BBBBBB       4
 20633  
 20634  
 20635  // VIF  THU 20 NOV 2025 22:19:29  ** MRADB4                       ** DIAGNOSTICS                                      PAGE 00741
 20636  
 20637  
 20638  // VIF  THU 20 NOV 2025 22:19:29  ** MRADB4                       ** GENERATED CODE                                   PAGE 00742
 20639  
 20640  int_4 _mradb4 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ 
 20641  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_)
 20642  { // ** body not listed **
 20774  }
 20775  
 20776  // VIF  THU 20 NOV 2025 22:19:29  ** MRADB5                       ** MRADB5                                           PAGE 00745
 20777  
 20778  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20779  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20780  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20781  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20782  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20783  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20784  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20785  
 20786  //                                   M     M RRRRRR     A    DDDDDD  BBBBBB  5555555
 20787  //                                   MM   MM R     R   A A   D     D B     B 5
 20788  //                                   M M M M R     R  A   A  D     D B     B 5
 20789  //                                   M  M  M RRRRRR  A     A D     D BBBBBB   55555
 20790  //                                   M     M R   R   AAAAAAA D     D B     B       5
 20791  //                                   M     M R    R  A     A D     D B     B 5     5
 20792  //                                   M     M R     R A     A DDDDDD  BBBBBB   55555
 20793  
 20794  
 20795  // VIF  THU 20 NOV 2025 22:19:29  ** MRADB5                       ** DIAGNOSTICS                                      PAGE 00746
 20796  
 20797  
 20798  // VIF  THU 20 NOV 2025 22:19:29  ** MRADB5                       ** GENERATED CODE                                   PAGE 00747
 20799  
 20800  int_4 _mradb5 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ 
 20801  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
 20802  { // ** body not listed **
 20993  }
 20994  
 20995  // VIF  THU 20 NOV 2025 22:19:29  ** MRADBG                       ** MRADBG                                           PAGE 00751
 20996  
 20997  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20998  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20999  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21000  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21001  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21002  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21003  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21004  
 21005  //                                   M     M RRRRRR     A    DDDDDD  BBBBBB   GGGGG
 21006  //                                   MM   MM R     R   A A   D     D B     B G     G
 21007  //                                   M M M M R     R  A   A  D     D B     B G
 21008  //                                   M  M  M RRRRRR  A     A D     D BBBBBB  G  GGGG
 21009  //                                   M     M R   R   AAAAAAA D     D B     B G     G
 21010  //                                   M     M R    R  A     A D     D B     B G     G
 21011  //                                   M     M R     R A     A DDDDDD  BBBBBB   GGGGG
 21012  
 21013  
 21014  // VIF  THU 20 NOV 2025 22:19:29  ** MRADBG                       ** DIAGNOSTICS                                      PAGE 00752
 21015  
 21016  
 21017  // VIF  THU 20 NOV 2025 22:19:29  ** MRADBG                       ** GENERATED CODE                                   PAGE 00753
 21018  
 21019  int_4 _mradbg (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_4 _p_ cc_, real_4 _p_ 
 21020  c1_, real_4 _p_ c2_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ im2_, int_4 _p_ in2_, 
 21021  real_4 _p_ wa_)
 21022  { // ** body not listed **
 21334  }
 21335  
 21336  // VIF  THU 20 NOV 2025 22:19:29  ** MRADF2                       ** MRADF2                                           PAGE 00760
 21337  
 21338  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21339  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21340  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21341  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21342  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21343  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21344  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21345  
 21346  //                                   M     M RRRRRR     A    DDDDDD  FFFFFFF  22222
 21347  //                                   MM   MM R     R   A A   D     D F       2     2
 21348  //                                   M M M M R     R  A   A  D     D F             2
 21349  //                                   M  M  M RRRRRR  A     A D     D FFFFF    22222
 21350  //                                   M     M R   R   AAAAAAA D     D F       2
 21351  //                                   M     M R    R  A     A D     D F       2
 21352  //                                   M     M R     R A     A DDDDDD  F       2222222
 21353  
 21354  
 21355  // VIF  THU 20 NOV 2025 22:19:29  ** MRADF2                       ** DIAGNOSTICS                                      PAGE 00761
 21356  
 21357  
 21358  // VIF  THU 20 NOV 2025 22:19:29  ** MRADF2                       ** GENERATED CODE                                   PAGE 00762
 21359  
 21360  int_4 _mradf2 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ 
 21361  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_)
 21362  { // ** body not listed **
 21433  }
 21434  
 21435  // VIF  THU 20 NOV 2025 22:19:29  ** MRADF3                       ** MRADF3                                           PAGE 00764
 21436  
 21437  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21438  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21439  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21440  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21441  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21442  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21443  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21444  
 21445  //                                   M     M RRRRRR     A    DDDDDD  FFFFFFF  33333
 21446  //                                   MM   MM R     R   A A   D     D F       3     3
 21447  //                                   M M M M R     R  A   A  D     D F             3
 21448  //                                   M  M  M RRRRRR  A     A D     D FFFFF    33333
 21449  //                                   M     M R   R   AAAAAAA D     D F             3
 21450  //                                   M     M R    R  A     A D     D F       3     3
 21451  //                                   M     M R     R A     A DDDDDD  F        33333
 21452  
 21453  
 21454  // VIF  THU 20 NOV 2025 22:19:29  ** MRADF3                       ** DIAGNOSTICS                                      PAGE 00765
 21455  
 21456  
 21457  // VIF  THU 20 NOV 2025 22:19:29  ** MRADF3                       ** GENERATED CODE                                   PAGE 00766
 21458  
 21459  int_4 _mradf3 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ 
 21460  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_)
 21461  { // ** body not listed **
 21549  }
 21550  
 21551  // VIF  THU 20 NOV 2025 22:19:29  ** MRADF4                       ** MRADF4                                           PAGE 00768
 21552  
 21553  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21554  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21555  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21556  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21557  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21558  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21559  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21560  
 21561  //                                   M     M RRRRRR     A    DDDDDD  FFFFFFF 4
 21562  //                                   MM   MM R     R   A A   D     D F       4    4
 21563  //                                   M M M M R     R  A   A  D     D F       4    4
 21564  //                                   M  M  M RRRRRR  A     A D     D FFFFF   4444444
 21565  //                                   M     M R   R   AAAAAAA D     D F            4
 21566  //                                   M     M R    R  A     A D     D F            4
 21567  //                                   M     M R     R A     A DDDDDD  F            4
 21568  
 21569  
 21570  // VIF  THU 20 NOV 2025 22:19:29  ** MRADF4                       ** DIAGNOSTICS                                      PAGE 00769
 21571  
 21572  
 21573  // VIF  THU 20 NOV 2025 22:19:29  ** MRADF4                       ** GENERATED CODE                                   PAGE 00770
 21574  
 21575  int_4 _mradf4 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ 
 21576  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_)
 21577  { // ** body not listed **
 21712  }
 21713  
 21714  // VIF  THU 20 NOV 2025 22:19:29  ** MRADF5                       ** MRADF5                                           PAGE 00773
 21715  
 21716  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21717  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21718  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21719  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21720  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21721  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21722  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21723  
 21724  //                                   M     M RRRRRR     A    DDDDDD  FFFFFFF 5555555
 21725  //                                   MM   MM R     R   A A   D     D F       5
 21726  //                                   M M M M R     R  A   A  D     D F       5
 21727  //                                   M  M  M RRRRRR  A     A D     D FFFFF    55555
 21728  //                                   M     M R   R   AAAAAAA D     D F             5
 21729  //                                   M     M R    R  A     A D     D F       5     5
 21730  //                                   M     M R     R A     A DDDDDD  F        55555
 21731  
 21732  
 21733  // VIF  THU 20 NOV 2025 22:19:29  ** MRADF5                       ** DIAGNOSTICS                                      PAGE 00774
 21734  
 21735  
 21736  // VIF  THU 20 NOV 2025 22:19:29  ** MRADF5                       ** GENERATED CODE                                   PAGE 00775
 21737  
 21738  int_4 _mradf5 (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ 
 21739  ch_, int_4 _p_ im2_, int_4 _p_ in2_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
 21740  { // ** body not listed **
 21957  }
 21958  
 21959  // VIF  THU 20 NOV 2025 22:19:29  ** MRADFG                       ** MRADFG                                           PAGE 00780
 21960  
 21961  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21962  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21963  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21964  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21965  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21966  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21967  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21968  
 21969  //                                   M     M RRRRRR     A    DDDDDD  FFFFFFF  GGGGG
 21970  //                                   MM   MM R     R   A A   D     D F       G     G
 21971  //                                   M M M M R     R  A   A  D     D F       G
 21972  //                                   M  M  M RRRRRR  A     A D     D FFFFF   G  GGGG
 21973  //                                   M     M R   R   AAAAAAA D     D F       G     G
 21974  //                                   M     M R    R  A     A D     D F       G     G
 21975  //                                   M     M R     R A     A DDDDDD  F        GGGGG
 21976  
 21977  
 21978  // VIF  THU 20 NOV 2025 22:19:29  ** MRADFG                       ** DIAGNOSTICS                                      PAGE 00781
 21979  
 21980  
 21981  // VIF  THU 20 NOV 2025 22:19:29  ** MRADFG                       ** GENERATED CODE                                   PAGE 00782
 21982  
 21983  int_4 _mradfg (int_4 _p_ m_, int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_4 _p_ cc_, real_4 _p_ 
 21984  c1_, real_4 _p_ c2_, int_4 _p_ im1_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ im2_, int_4 _p_ in2_, 
 21985  real_4 _p_ wa_)
 21986  { // ** body not listed **
 22304  }
 22305  
 22306  // VIF  THU 20 NOV 2025 22:19:29  ** MRFTB1                       ** MRFTB1                                           PAGE 00789
 22307  
 22308  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 22309  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 22310  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 22311  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 22312  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 22313  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 22314  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 22315  
 22316  //                                    M     M RRRRRR  FFFFFFF TTTTTTT BBBBBB     1
 22317  //                                    MM   MM R     R F          T    B     B   11
 22318  //                                    M M M M R     R F          T    B     B  1 1
 22319  //                                    M  M  M RRRRRR  FFFFF      T    BBBBBB     1
 22320  //                                    M     M R   R   F          T    B     B    1
 22321  //                                    M     M R    R  F          T    B     B    1
 22322  //                                    M     M R     R F          T    BBBBBB   11111
 22323  
 22324  
 22325  // VIF  THU 20 NOV 2025 22:19:29  ** MRFTB1                       ** DIAGNOSTICS                                      PAGE 00790
 22326  
 22327  
 22328  // VIF  THU 20 NOV 2025 22:19:29  ** MRFTB1                       ** GENERATED CODE                                   PAGE 00791
 22329  
 22330  int_4 _mrftb1 (int_4 _p_ m_, int_4 _p_ im_, int_4 _p_ n_, int_4 _p_ in_, real_4 _p_ c_, real_4 _p_ ch_, real_4 _p_ wa_, 
 22331  real_4 _p_ fac_)
 22332  { // ** body not listed **
 22476  }
 22477  
 22478  // VIF  THU 20 NOV 2025 22:19:29  ** MRFTF1                       ** MRFTF1                                           PAGE 00794
 22479  
 22480  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 22481  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 22482  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 22483  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 22484  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 22485  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 22486  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 22487  
 22488  //                                    M     M RRRRRR  FFFFFFF TTTTTTT FFFFFFF    1
 22489  //                                    MM   MM R     R F          T    F         11
 22490  //                                    M M M M R     R F          T    F        1 1
 22491  //                                    M  M  M RRRRRR  FFFFF      T    FFFFF      1
 22492  //                                    M     M R   R   F          T    F          1
 22493  //                                    M     M R    R  F          T    F          1
 22494  //                                    M     M R     R F          T    F        11111
 22495  
 22496  
 22497  // VIF  THU 20 NOV 2025 22:19:29  ** MRFTF1                       ** DIAGNOSTICS                                      PAGE 00795
 22498  
 22499  
 22500  // VIF  THU 20 NOV 2025 22:19:29  ** MRFTF1                       ** GENERATED CODE                                   PAGE 00796
 22501  
 22502  int_4 _mrftf1 (int_4 _p_ m_, int_4 _p_ im_, int_4 _p_ n_, int_4 _p_ in_, real_4 _p_ c_, real_4 _p_ ch_, real_4 _p_ wa_, 
 22503  real_4 _p_ fac_)
 22504  { // ** body not listed **
 22652  }
 22653  
 22654  // VIF  THU 20 NOV 2025 22:19:29  ** MRFTI1                       ** MRFTI1                                           PAGE 00799
 22655  
 22656  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 22657  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 22658  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 22659  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 22660  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 22661  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 22662  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 22663  
 22664  //                                    M     M RRRRRR  FFFFFFF TTTTTTT   III      1
 22665  //                                    MM   MM R     R F          T       I      11
 22666  //                                    M M M M R     R F          T       I     1 1
 22667  //                                    M  M  M RRRRRR  FFFFF      T       I       1
 22668  //                                    M     M R   R   F          T       I       1
 22669  //                                    M     M R    R  F          T       I       1
 22670  //                                    M     M R     R F          T      III    11111
 22671  
 22672  
 22673  // VIF  THU 20 NOV 2025 22:19:29  ** MRFTI1                       ** DIAGNOSTICS                                      PAGE 00800
 22674  
 22675  
 22676  // VIF  THU 20 NOV 2025 22:19:29  ** MRFTI1                       ** GENERATED CODE                                   PAGE 00801
 22677  
 22678  int_4 _mrfti1 (int_4 _p_ n_, real_4 _p_ wa_, real_4 _p_ fac_)
 22679  { // ** body not listed **
 22801  }
 22802  
 22803  // VIF  THU 20 NOV 2025 22:19:29  ** MSNTB1                       ** MSNTB1                                           PAGE 00804
 22804  
 22805  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 22806  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 22807  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 22808  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 22809  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 22810  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 22811  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 22812  
 22813  //                                    M     M  SSSSS  N     N TTTTTTT BBBBBB     1
 22814  //                                    MM   MM S     S NN    N    T    B     B   11
 22815  //                                    M M M M S       N N   N    T    B     B  1 1
 22816  //                                    M  M  M  SSSSS  N  N  N    T    BBBBBB     1
 22817  //                                    M     M       S N   N N    T    B     B    1
 22818  //                                    M     M S     S N    NN    T    B     B    1
 22819  //                                    M     M  SSSSS  N     N    T    BBBBBB   11111
 22820  
 22821  
 22822  // VIF  THU 20 NOV 2025 22:19:29  ** MSNTB1                       ** DIAGNOSTICS                                      PAGE 00805
 22823  
 22824  
 22825  // VIF  THU 20 NOV 2025 22:19:29  ** MSNTB1                       ** GENERATED CODE                                   PAGE 00806
 22826  
 22827  int_4 _msntb1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_8 
 22828  _p_ dsum_, real_4 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_)
 22829  { // ** body not listed **
 22925  }
 22926  
 22927  // VIF  THU 20 NOV 2025 22:19:29  ** MSNTF1                       ** MSNTF1                                           PAGE 00808
 22928  
 22929  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 22930  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 22931  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 22932  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 22933  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 22934  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 22935  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 22936  
 22937  //                                    M     M  SSSSS  N     N TTTTTTT FFFFFFF    1
 22938  //                                    MM   MM S     S NN    N    T    F         11
 22939  //                                    M M M M S       N N   N    T    F        1 1
 22940  //                                    M  M  M  SSSSS  N  N  N    T    FFFFF      1
 22941  //                                    M     M       S N   N N    T    F          1
 22942  //                                    M     M S     S N    NN    T    F          1
 22943  //                                    M     M  SSSSS  N     N    T    F        11111
 22944  
 22945  
 22946  // VIF  THU 20 NOV 2025 22:19:29  ** MSNTF1                       ** DIAGNOSTICS                                      PAGE 00809
 22947  
 22948  
 22949  // VIF  THU 20 NOV 2025 22:19:29  ** MSNTF1                       ** GENERATED CODE                                   PAGE 00810
 22950  
 22951  int_4 _msntf1 (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_8 
 22952  _p_ dsum_, real_4 _p_ xh_, real_4 _p_ work_, int_4 _p_ ier_)
 22953  { // ** body not listed **
 23050  }
 23051  
 23052  // VIF  THU 20 NOV 2025 22:19:29  ** R1F2KB                       ** R1F2KB                                           PAGE 00812
 23053  
 23054  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23055  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23056  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23057  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23058  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23059  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23060  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23061  
 23062  //                                   RRRRRR     1    FFFFFFF  22222  K    K  BBBBBB
 23063  //                                   R     R   11    F       2     2 K   K   B     B
 23064  //                                   R     R  1 1    F             2 K  K    B     B
 23065  //                                   RRRRRR     1    FFFFF    22222  KKK     BBBBBB
 23066  //                                   R   R      1    F       2       K  K    B     B
 23067  //                                   R    R     1    F       2       K   K   B     B
 23068  //                                   R     R  11111  F       2222222 K    K  BBBBBB
 23069  
 23070  
 23071  // VIF  THU 20 NOV 2025 22:19:29  ** R1F2KB                       ** DIAGNOSTICS                                      PAGE 00813
 23072  
 23073  
 23074  // VIF  THU 20 NOV 2025 22:19:29  ** R1F2KB                       ** GENERATED CODE                                   PAGE 00814
 23075  
 23076  int_4 _r1f2kb (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4 
 23077  _p_ wa1_)
 23078  { // ** body not listed **
 23130  }
 23131  
 23132  // VIF  THU 20 NOV 2025 22:19:29  ** R1F2KF                       ** R1F2KF                                           PAGE 00816
 23133  
 23134  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23135  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23136  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23137  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23138  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23139  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23140  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23141  
 23142  //                                   RRRRRR     1    FFFFFFF  22222  K    K  FFFFFFF
 23143  //                                   R     R   11    F       2     2 K   K   F
 23144  //                                   R     R  1 1    F             2 K  K    F
 23145  //                                   RRRRRR     1    FFFFF    22222  KKK     FFFFF
 23146  //                                   R   R      1    F       2       K  K    F
 23147  //                                   R    R     1    F       2       K   K   F
 23148  //                                   R     R  11111  F       2222222 K    K  F
 23149  
 23150  
 23151  // VIF  THU 20 NOV 2025 22:19:29  ** R1F2KF                       ** DIAGNOSTICS                                      PAGE 00817
 23152  
 23153  
 23154  // VIF  THU 20 NOV 2025 22:19:29  ** R1F2KF                       ** GENERATED CODE                                   PAGE 00818
 23155  
 23156  int_4 _r1f2kf (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4 
 23157  _p_ wa1_)
 23158  { // ** body not listed **
 23212  }
 23213  
 23214  // VIF  THU 20 NOV 2025 22:19:29  ** R1F3KB                       ** R1F3KB                                           PAGE 00820
 23215  
 23216  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23217  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23218  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23219  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23220  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23221  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23222  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23223  
 23224  //                                   RRRRRR     1    FFFFFFF  33333  K    K  BBBBBB
 23225  //                                   R     R   11    F       3     3 K   K   B     B
 23226  //                                   R     R  1 1    F             3 K  K    B     B
 23227  //                                   RRRRRR     1    FFFFF    33333  KKK     BBBBBB
 23228  //                                   R   R      1    F             3 K  K    B     B
 23229  //                                   R    R     1    F       3     3 K   K   B     B
 23230  //                                   R     R  11111  F        33333  K    K  BBBBBB
 23231  
 23232  
 23233  // VIF  THU 20 NOV 2025 22:19:29  ** R1F3KB                       ** DIAGNOSTICS                                      PAGE 00821
 23234  
 23235  
 23236  // VIF  THU 20 NOV 2025 22:19:29  ** R1F3KB                       ** GENERATED CODE                                   PAGE 00822
 23237  
 23238  int_4 _r1f3kb (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4 
 23239  _p_ wa1_, real_4 _p_ wa2_)
 23240  { // ** body not listed **
 23308  }
 23309  
 23310  // VIF  THU 20 NOV 2025 22:19:29  ** R1F3KF                       ** R1F3KF                                           PAGE 00824
 23311  
 23312  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23313  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23314  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23315  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23316  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23317  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23318  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23319  
 23320  //                                   RRRRRR     1    FFFFFFF  33333  K    K  FFFFFFF
 23321  //                                   R     R   11    F       3     3 K   K   F
 23322  //                                   R     R  1 1    F             3 K  K    F
 23323  //                                   RRRRRR     1    FFFFF    33333  KKK     FFFFF
 23324  //                                   R   R      1    F             3 K  K    F
 23325  //                                   R    R     1    F       3     3 K   K   F
 23326  //                                   R     R  11111  F        33333  K    K  F
 23327  
 23328  
 23329  // VIF  THU 20 NOV 2025 22:19:29  ** R1F3KF                       ** DIAGNOSTICS                                      PAGE 00825
 23330  
 23331  
 23332  // VIF  THU 20 NOV 2025 22:19:29  ** R1F3KF                       ** GENERATED CODE                                   PAGE 00826
 23333  
 23334  int_4 _r1f3kf (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4 
 23335  _p_ wa1_, real_4 _p_ wa2_)
 23336  { // ** body not listed **
 23412  }
 23413  
 23414  // VIF  THU 20 NOV 2025 22:19:29  ** R1F4KB                       ** R1F4KB                                           PAGE 00828
 23415  
 23416  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23417  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23418  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23419  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23420  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23421  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23422  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23423  
 23424  //                                   RRRRRR     1    FFFFFFF 4       K    K  BBBBBB
 23425  //                                   R     R   11    F       4    4  K   K   B     B
 23426  //                                   R     R  1 1    F       4    4  K  K    B     B
 23427  //                                   RRRRRR     1    FFFFF   4444444 KKK     BBBBBB
 23428  //                                   R   R      1    F            4  K  K    B     B
 23429  //                                   R    R     1    F            4  K   K   B     B
 23430  //                                   R     R  11111  F            4  K    K  BBBBBB
 23431  
 23432  
 23433  // VIF  THU 20 NOV 2025 22:19:29  ** R1F4KB                       ** DIAGNOSTICS                                      PAGE 00829
 23434  
 23435  
 23436  // VIF  THU 20 NOV 2025 22:19:29  ** R1F4KB                       ** GENERATED CODE                                   PAGE 00830
 23437  
 23438  int_4 _r1f4kb (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4 
 23439  _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_)
 23440  { // ** body not listed **
 23556  }
 23557  
 23558  // VIF  THU 20 NOV 2025 22:19:29  ** R1F4KF                       ** R1F4KF                                           PAGE 00833
 23559  
 23560  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23561  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23562  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23563  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23564  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23565  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23566  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23567  
 23568  //                                   RRRRRR     1    FFFFFFF 4       K    K  FFFFFFF
 23569  //                                   R     R   11    F       4    4  K   K   F
 23570  //                                   R     R  1 1    F       4    4  K  K    F
 23571  //                                   RRRRRR     1    FFFFF   4444444 KKK     FFFFF
 23572  //                                   R   R      1    F            4  K  K    F
 23573  //                                   R    R     1    F            4  K   K   F
 23574  //                                   R     R  11111  F            4  K    K  F
 23575  
 23576  
 23577  // VIF  THU 20 NOV 2025 22:19:29  ** R1F4KF                       ** DIAGNOSTICS                                      PAGE 00834
 23578  
 23579  
 23580  // VIF  THU 20 NOV 2025 22:19:29  ** R1F4KF                       ** GENERATED CODE                                   PAGE 00835
 23581  
 23582  int_4 _r1f4kf (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4 
 23583  _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_)
 23584  { // ** body not listed **
 23700  }
 23701  
 23702  // VIF  THU 20 NOV 2025 22:19:29  ** R1F5KB                       ** R1F5KB                                           PAGE 00838
 23703  
 23704  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23705  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23706  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23707  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23708  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23709  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23710  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23711  
 23712  //                                   RRRRRR     1    FFFFFFF 5555555 K    K  BBBBBB
 23713  //                                   R     R   11    F       5       K   K   B     B
 23714  //                                   R     R  1 1    F       5       K  K    B     B
 23715  //                                   RRRRRR     1    FFFFF    55555  KKK     BBBBBB
 23716  //                                   R   R      1    F             5 K  K    B     B
 23717  //                                   R    R     1    F       5     5 K   K   B     B
 23718  //                                   R     R  11111  F        55555  K    K  BBBBBB
 23719  
 23720  
 23721  // VIF  THU 20 NOV 2025 22:19:29  ** R1F5KB                       ** DIAGNOSTICS                                      PAGE 00839
 23722  
 23723  
 23724  // VIF  THU 20 NOV 2025 22:19:29  ** R1F5KB                       ** GENERATED CODE                                   PAGE 00840
 23725  
 23726  int_4 _r1f5kb (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4 
 23727  _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
 23728  { // ** body not listed **
 23899  }
 23900  
 23901  // VIF  THU 20 NOV 2025 22:19:29  ** R1F5KF                       ** R1F5KF                                           PAGE 00844
 23902  
 23903  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23904  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23905  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23906  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23907  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23908  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23909  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23910  
 23911  //                                   RRRRRR     1    FFFFFFF 5555555 K    K  FFFFFFF
 23912  //                                   R     R   11    F       5       K   K   F
 23913  //                                   R     R  1 1    F       5       K  K    F
 23914  //                                   RRRRRR     1    FFFFF    55555  KKK     FFFFF
 23915  //                                   R   R      1    F             5 K  K    F
 23916  //                                   R    R     1    F       5     5 K   K   F
 23917  //                                   R     R  11111  F        55555  K    K  F
 23918  
 23919  
 23920  // VIF  THU 20 NOV 2025 22:19:29  ** R1F5KF                       ** DIAGNOSTICS                                      PAGE 00845
 23921  
 23922  
 23923  // VIF  THU 20 NOV 2025 22:19:29  ** R1F5KF                       ** GENERATED CODE                                   PAGE 00846
 23924  
 23925  int_4 _r1f5kf (int_4 _p_ ido_, int_4 _p_ l1_, real_4 _p_ cc_, int_4 _p_ in1_, real_4 _p_ ch_, int_4 _p_ in2_, real_4 
 23926  _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
 23927  { // ** body not listed **
 24121  }
 24122  
 24123  // VIF  THU 20 NOV 2025 22:19:29  ** R1FGKB                       ** R1FGKB                                           PAGE 00850
 24124  
 24125  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 24126  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 24127  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 24128  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 24129  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 24130  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 24131  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 24132  
 24133  //                                   RRRRRR     1    FFFFFFF  GGGGG  K    K  BBBBBB
 24134  //                                   R     R   11    F       G     G K   K   B     B
 24135  //                                   R     R  1 1    F       G       K  K    B     B
 24136  //                                   RRRRRR     1    FFFFF   G  GGGG KKK     BBBBBB
 24137  //                                   R   R      1    F       G     G K  K    B     B
 24138  //                                   R    R     1    F       G     G K   K   B     B
 24139  //                                   R     R  11111  F        GGGGG  K    K  BBBBBB
 24140  
 24141  
 24142  // VIF  THU 20 NOV 2025 22:19:29  ** R1FGKB                       ** DIAGNOSTICS                                      PAGE 00851
 24143  
 24144  
 24145  // VIF  THU 20 NOV 2025 22:19:29  ** R1FGKB                       ** GENERATED CODE                                   PAGE 00852
 24146  
 24147  int_4 _r1fgkb (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_4 _p_ cc_, real_4 _p_ c1_, real_4 
 24148  _p_ c2_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ in2_, real_4 _p_ wa_)
 24149  { // ** body not listed **
 24392  }
 24393  
 24394  // VIF  THU 20 NOV 2025 22:19:29  ** R1FGKF                       ** R1FGKF                                           PAGE 00857
 24395  
 24396  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 24397  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 24398  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 24399  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 24400  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 24401  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 24402  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 24403  
 24404  //                                   RRRRRR     1    FFFFFFF  GGGGG  K    K  FFFFFFF
 24405  //                                   R     R   11    F       G     G K   K   F
 24406  //                                   R     R  1 1    F       G       K  K    F
 24407  //                                   RRRRRR     1    FFFFF   G  GGGG KKK     FFFFF
 24408  //                                   R   R      1    F       G     G K  K    F
 24409  //                                   R    R     1    F       G     G K   K   F
 24410  //                                   R     R  11111  F        GGGGG  K    K  F
 24411  
 24412  
 24413  // VIF  THU 20 NOV 2025 22:19:29  ** R1FGKF                       ** DIAGNOSTICS                                      PAGE 00858
 24414  
 24415  
 24416  // VIF  THU 20 NOV 2025 22:19:29  ** R1FGKF                       ** GENERATED CODE                                   PAGE 00859
 24417  
 24418  int_4 _r1fgkf (int_4 _p_ ido_, int_4 _p_ ip_, int_4 _p_ l1_, int_4 _p_ idl1_, real_4 _p_ cc_, real_4 _p_ c1_, real_4 
 24419  _p_ c2_, int_4 _p_ in1_, real_4 _p_ ch_, real_4 _p_ ch2_, int_4 _p_ in2_, real_4 _p_ wa_)
 24420  { // ** body not listed **
 24664  }
 24665  
 24666  // VIF  THU 20 NOV 2025 22:19:29  ** R2W                          ** R2W                                              PAGE 00864
 24667  
 24668  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 24669  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 24670  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 24671  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 24672  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 24673  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 24674  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 24675  
 24676  //                                               RRRRRR   22222  W     W
 24677  //                                               R     R 2     2 W     W
 24678  //                                               R     R       2 W     W
 24679  //                                               RRRRRR   22222  W  W  W
 24680  //                                               R   R   2       W  W  W
 24681  //                                               R    R  2       W  W  W
 24682  //                                               R     R 2222222  WW WW
 24683  
 24684  
 24685  // VIF  THU 20 NOV 2025 22:19:29  ** R2W                          ** DIAGNOSTICS                                      PAGE 00865
 24686  
 24687  
 24688  // VIF  THU 20 NOV 2025 22:19:29  ** R2W                          ** GENERATED CODE                                   PAGE 00866
 24689  
 24690  int_4 _r2w (int_4 _p_ ldr_, int_4 _p_ ldw_, int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ r_, real_4 _p_ w_)
 24691  { // ** body not listed **
 24700  }
 24701  
 24702  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT1B                       ** RFFT1B                                           PAGE 00867
 24703  
 24704  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 24705  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 24706  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 24707  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 24708  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 24709  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 24710  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 24711  
 24712  //                                   RRRRRR  FFFFFFF FFFFFFF TTTTTTT    1    BBBBBB
 24713  //                                   R     R F       F          T      11    B     B
 24714  //                                   R     R F       F          T     1 1    B     B
 24715  //                                   RRRRRR  FFFFF   FFFFF      T       1    BBBBBB
 24716  //                                   R   R   F       F          T       1    B     B
 24717  //                                   R    R  F       F          T       1    B     B
 24718  //                                   R     R F       F          T     11111  BBBBBB
 24719  
 24720  
 24721  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT1B                       ** DIAGNOSTICS                                      PAGE 00868
 24722  
 24723  
 24724  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT1B                       ** GENERATED CODE                                   PAGE 00869
 24725  
 24726  int_4 _rfft1b (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ r_, int_4 _p_ lenr_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 24727  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 24728  { // ** body not listed **
 24751  }
 24752  
 24753  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT1F                       ** RFFT1F                                           PAGE 00870
 24754  
 24755  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 24756  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 24757  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 24758  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 24759  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 24760  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 24761  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 24762  
 24763  //                                   RRRRRR  FFFFFFF FFFFFFF TTTTTTT    1    FFFFFFF
 24764  //                                   R     R F       F          T      11    F
 24765  //                                   R     R F       F          T     1 1    F
 24766  //                                   RRRRRR  FFFFF   FFFFF      T       1    FFFFF
 24767  //                                   R   R   F       F          T       1    F
 24768  //                                   R    R  F       F          T       1    F
 24769  //                                   R     R F       F          T     11111  F
 24770  
 24771  
 24772  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT1F                       ** DIAGNOSTICS                                      PAGE 00871
 24773  
 24774  
 24775  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT1F                       ** GENERATED CODE                                   PAGE 00872
 24776  
 24777  int_4 _rfft1f (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ r_, int_4 _p_ lenr_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 24778  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 24779  { // ** body not listed **
 24802  }
 24803  
 24804  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT1I                       ** RFFT1I                                           PAGE 00873
 24805  
 24806  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 24807  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 24808  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 24809  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 24810  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 24811  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 24812  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 24813  
 24814  //                                    RRRRRR  FFFFFFF FFFFFFF TTTTTTT    1      III
 24815  //                                    R     R F       F          T      11       I
 24816  //                                    R     R F       F          T     1 1       I
 24817  //                                    RRRRRR  FFFFF   FFFFF      T       1       I
 24818  //                                    R   R   F       F          T       1       I
 24819  //                                    R    R  F       F          T       1       I
 24820  //                                    R     R F       F          T     11111    III
 24821  
 24822  
 24823  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT1I                       ** DIAGNOSTICS                                      PAGE 00874
 24824  
 24825  
 24826  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT1I                       ** GENERATED CODE                                   PAGE 00875
 24827  
 24828  int_4 _rfft1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 24829  { // ** body not listed **
 24844  }
 24845  
 24846  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT2B                       ** RFFT2B                                           PAGE 00876
 24847  
 24848  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 24849  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 24850  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 24851  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 24852  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 24853  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 24854  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 24855  
 24856  //                                   RRRRRR  FFFFFFF FFFFFFF TTTTTTT  22222  BBBBBB
 24857  //                                   R     R F       F          T    2     2 B     B
 24858  //                                   R     R F       F          T          2 B     B
 24859  //                                   RRRRRR  FFFFF   FFFFF      T     22222  BBBBBB
 24860  //                                   R   R   F       F          T    2       B     B
 24861  //                                   R    R  F       F          T    2       B     B
 24862  //                                   R     R F       F          T    2222222 BBBBBB
 24863  
 24864  
 24865  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT2B                       ** DIAGNOSTICS                                      PAGE 00877
 24866  
 24867  
 24868  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT2B                       ** GENERATED CODE                                   PAGE 00878
 24869  
 24870  int_4 _rfft2b (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ r_, real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 
 24871  _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 24872  { // ** body not listed **
 24960  }
 24961  
 24962  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT2F                       ** RFFT2F                                           PAGE 00880
 24963  
 24964  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 24965  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 24966  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 24967  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 24968  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 24969  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 24970  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 24971  
 24972  //                                   RRRRRR  FFFFFFF FFFFFFF TTTTTTT  22222  FFFFFFF
 24973  //                                   R     R F       F          T    2     2 F
 24974  //                                   R     R F       F          T          2 F
 24975  //                                   RRRRRR  FFFFF   FFFFF      T     22222  FFFFF
 24976  //                                   R   R   F       F          T    2       F
 24977  //                                   R    R  F       F          T    2       F
 24978  //                                   R     R F       F          T    2222222 F
 24979  
 24980  
 24981  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT2F                       ** DIAGNOSTICS                                      PAGE 00881
 24982  
 24983  
 24984  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT2F                       ** GENERATED CODE                                   PAGE 00882
 24985  
 24986  int_4 _rfft2f (int_4 _p_ ldim_, int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ r_, real_4 _p_ wsave_, int_4 _p_ lensav_, real_4 
 24987  _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 24988  { // ** body not listed **
 25075  }
 25076  
 25077  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT2I                       ** RFFT2I                                           PAGE 00884
 25078  
 25079  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25080  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25081  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25082  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25083  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25084  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25085  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25086  
 25087  //                                    RRRRRR  FFFFFFF FFFFFFF TTTTTTT  22222    III
 25088  //                                    R     R F       F          T    2     2    I
 25089  //                                    R     R F       F          T          2    I
 25090  //                                    RRRRRR  FFFFF   FFFFF      T     22222     I
 25091  //                                    R   R   F       F          T    2          I
 25092  //                                    R    R  F       F          T    2          I
 25093  //                                    R     R F       F          T    2222222   III
 25094  
 25095  
 25096  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT2I                       ** DIAGNOSTICS                                      PAGE 00885
 25097  
 25098  
 25099  // VIF  THU 20 NOV 2025 22:19:29  ** RFFT2I                       ** GENERATED CODE                                   PAGE 00886
 25100  
 25101  int_4 _rfft2i (int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 25102  { // ** body not listed **
 25138  }
 25139  
 25140  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTB1                       ** RFFTB1                                           PAGE 00887
 25141  
 25142  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25143  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25144  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25145  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25146  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25147  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25148  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25149  
 25150  //                                    RRRRRR  FFFFFFF FFFFFFF TTTTTTT BBBBBB     1
 25151  //                                    R     R F       F          T    B     B   11
 25152  //                                    R     R F       F          T    B     B  1 1
 25153  //                                    RRRRRR  FFFFF   FFFFF      T    BBBBBB     1
 25154  //                                    R   R   F       F          T    B     B    1
 25155  //                                    R    R  F       F          T    B     B    1
 25156  //                                    R     R F       F          T    BBBBBB   11111
 25157  
 25158  
 25159  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTB1                       ** DIAGNOSTICS                                      PAGE 00888
 25160  
 25161  
 25162  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTB1                       ** GENERATED CODE                                   PAGE 00889
 25163  
 25164  int_4 _rfftb1 (int_4 _p_ n_, int_4 _p_ in_, real_4 _p_ c_, real_4 _p_ ch_, real_4 _p_ wa_, real_4 _p_ fac_)
 25165  { // ** body not listed **
 25295  }
 25296  
 25297  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTF1                       ** RFFTF1                                           PAGE 00892
 25298  
 25299  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25300  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25301  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25302  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25303  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25304  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25305  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25306  
 25307  //                                    RRRRRR  FFFFFFF FFFFFFF TTTTTTT FFFFFFF    1
 25308  //                                    R     R F       F          T    F         11
 25309  //                                    R     R F       F          T    F        1 1
 25310  //                                    RRRRRR  FFFFF   FFFFF      T    FFFFF      1
 25311  //                                    R   R   F       F          T    F          1
 25312  //                                    R    R  F       F          T    F          1
 25313  //                                    R     R F       F          T    F        11111
 25314  
 25315  
 25316  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTF1                       ** DIAGNOSTICS                                      PAGE 00893
 25317  
 25318  
 25319  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTF1                       ** GENERATED CODE                                   PAGE 00894
 25320  
 25321  int_4 _rfftf1 (int_4 _p_ n_, int_4 _p_ in_, real_4 _p_ c_, real_4 _p_ ch_, real_4 _p_ wa_, real_4 _p_ fac_)
 25322  { // ** body not listed **
 25444  }
 25445  
 25446  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTI1                       ** RFFTI1                                           PAGE 00897
 25447  
 25448  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25449  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25450  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25451  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25452  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25453  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25454  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25455  
 25456  //                                    RRRRRR  FFFFFFF FFFFFFF TTTTTTT   III      1
 25457  //                                    R     R F       F          T       I      11
 25458  //                                    R     R F       F          T       I     1 1
 25459  //                                    RRRRRR  FFFFF   FFFFF      T       I       1
 25460  //                                    R   R   F       F          T       I       1
 25461  //                                    R    R  F       F          T       I       1
 25462  //                                    R     R F       F          T      III    11111
 25463  
 25464  
 25465  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTI1                       ** DIAGNOSTICS                                      PAGE 00898
 25466  
 25467  
 25468  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTI1                       ** GENERATED CODE                                   PAGE 00899
 25469  
 25470  int_4 _rffti1 (int_4 _p_ n_, real_4 _p_ wa_, real_4 _p_ fac_)
 25471  { // ** body not listed **
 25593  }
 25594  
 25595  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTMB                       ** RFFTMB                                           PAGE 00902
 25596  
 25597  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25598  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25599  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25600  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25601  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25602  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25603  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25604  
 25605  //                                   RRRRRR  FFFFFFF FFFFFFF TTTTTTT M     M BBBBBB
 25606  //                                   R     R F       F          T    MM   MM B     B
 25607  //                                   R     R F       F          T    M M M M B     B
 25608  //                                   RRRRRR  FFFFF   FFFFF      T    M  M  M BBBBBB
 25609  //                                   R   R   F       F          T    M     M B     B
 25610  //                                   R    R  F       F          T    M     M B     B
 25611  //                                   R     R F       F          T    M     M BBBBBB
 25612  
 25613  
 25614  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTMB                       ** DIAGNOSTICS                                      PAGE 00903
 25615  
 25616  
 25617  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTMB                       ** GENERATED CODE                                   PAGE 00904
 25618  
 25619  int_4 _rfftmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ r_, int_4 _p_ lenr_, real_4 
 25620  _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 25621  { // ** body not listed **
 25648  }
 25649  
 25650  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTMF                       ** RFFTMF                                           PAGE 00905
 25651  
 25652  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25653  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25654  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25655  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25656  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25657  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25658  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25659  
 25660  //                                   RRRRRR  FFFFFFF FFFFFFF TTTTTTT M     M FFFFFFF
 25661  //                                   R     R F       F          T    MM   MM F
 25662  //                                   R     R F       F          T    M M M M F
 25663  //                                   RRRRRR  FFFFF   FFFFF      T    M  M  M FFFFF
 25664  //                                   R   R   F       F          T    M     M F
 25665  //                                   R    R  F       F          T    M     M F
 25666  //                                   R     R F       F          T    M     M F
 25667  
 25668  
 25669  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTMF                       ** DIAGNOSTICS                                      PAGE 00906
 25670  
 25671  
 25672  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTMF                       ** GENERATED CODE                                   PAGE 00907
 25673  
 25674  int_4 _rfftmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ r_, int_4 _p_ lenr_, real_4 
 25675  _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 25676  { // ** body not listed **
 25703  }
 25704  
 25705  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTMI                       ** RFFTMI                                           PAGE 00908
 25706  
 25707  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25708  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25709  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25710  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25711  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25712  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25713  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25714  
 25715  //                                    RRRRRR  FFFFFFF FFFFFFF TTTTTTT M     M   III
 25716  //                                    R     R F       F          T    MM   MM    I
 25717  //                                    R     R F       F          T    M M M M    I
 25718  //                                    RRRRRR  FFFFF   FFFFF      T    M  M  M    I
 25719  //                                    R   R   F       F          T    M     M    I
 25720  //                                    R    R  F       F          T    M     M    I
 25721  //                                    R     R F       F          T    M     M   III
 25722  
 25723  
 25724  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTMI                       ** DIAGNOSTICS                                      PAGE 00909
 25725  
 25726  
 25727  // VIF  THU 20 NOV 2025 22:19:29  ** RFFTMI                       ** GENERATED CODE                                   PAGE 00910
 25728  
 25729  int_4 _rfftmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 25730  { // ** body not listed **
 25745  }
 25746  
 25747  // VIF  THU 20 NOV 2025 22:19:29  ** SINQ1B                       ** SINQ1B                                           PAGE 00911
 25748  
 25749  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25750  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25751  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25752  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25753  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25754  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25755  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25756  
 25757  //                                    SSSSS    III   N     N  QQQQQ     1    BBBBBB
 25758  //                                   S     S    I    NN    N Q     Q   11    B     B
 25759  //                                   S          I    N N   N Q     Q  1 1    B     B
 25760  //                                    SSSSS     I    N  N  N Q     Q    1    BBBBBB
 25761  //                                         S    I    N   N N Q   Q Q    1    B     B
 25762  //                                   S     S    I    N    NN Q    Q     1    B     B
 25763  //                                    SSSSS    III   N     N  QQQQ Q  11111  BBBBBB
 25764  
 25765  
 25766  // VIF  THU 20 NOV 2025 22:19:29  ** SINQ1B                       ** DIAGNOSTICS                                      PAGE 00912
 25767  
 25768  
 25769  // VIF  THU 20 NOV 2025 22:19:29  ** SINQ1B                       ** GENERATED CODE                                   PAGE 00913
 25770  
 25771  int_4 _sinq1b (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 25772  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 25773  { // ** body not listed **
 25816  }
 25817  
 25818  // VIF  THU 20 NOV 2025 22:19:29  ** SINQ1F                       ** SINQ1F                                           PAGE 00914
 25819  
 25820  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25821  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25822  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25823  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25824  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25825  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25826  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25827  
 25828  //                                    SSSSS    III   N     N  QQQQQ     1    FFFFFFF
 25829  //                                   S     S    I    NN    N Q     Q   11    F
 25830  //                                   S          I    N N   N Q     Q  1 1    F
 25831  //                                    SSSSS     I    N  N  N Q     Q    1    FFFFF
 25832  //                                         S    I    N   N N Q   Q Q    1    F
 25833  //                                   S     S    I    N    NN Q    Q     1    F
 25834  //                                    SSSSS    III   N     N  QQQQ Q  11111  F
 25835  
 25836  
 25837  // VIF  THU 20 NOV 2025 22:19:29  ** SINQ1F                       ** DIAGNOSTICS                                      PAGE 00915
 25838  
 25839  
 25840  // VIF  THU 20 NOV 2025 22:19:29  ** SINQ1F                       ** GENERATED CODE                                   PAGE 00916
 25841  
 25842  int_4 _sinq1f (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 25843  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 25844  { // ** body not listed **
 25888  }
 25889  
 25890  // VIF  THU 20 NOV 2025 22:19:29  ** SINQ1I                       ** SINQ1I                                           PAGE 00917
 25891  
 25892  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25893  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25894  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25895  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25896  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25897  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25898  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25899  
 25900  //                                     SSSSS    III   N     N  QQQQQ     1      III
 25901  //                                    S     S    I    NN    N Q     Q   11       I
 25902  //                                    S          I    N N   N Q     Q  1 1       I
 25903  //                                     SSSSS     I    N  N  N Q     Q    1       I
 25904  //                                          S    I    N   N N Q   Q Q    1       I
 25905  //                                    S     S    I    N    NN Q    Q     1       I
 25906  //                                     SSSSS    III   N     N  QQQQ Q  11111    III
 25907  
 25908  
 25909  // VIF  THU 20 NOV 2025 22:19:29  ** SINQ1I                       ** DIAGNOSTICS                                      PAGE 00918
 25910  
 25911  
 25912  // VIF  THU 20 NOV 2025 22:19:29  ** SINQ1I                       ** GENERATED CODE                                   PAGE 00919
 25913  
 25914  int_4 _sinq1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 25915  { // ** body not listed **
 25933  }
 25934  
 25935  // VIF  THU 20 NOV 2025 22:19:29  ** SINQMB                       ** SINQMB                                           PAGE 00920
 25936  
 25937  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 25938  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 25939  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 25940  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 25941  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 25942  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 25943  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 25944  
 25945  //                                    SSSSS    III   N     N  QQQQQ  M     M BBBBBB
 25946  //                                   S     S    I    NN    N Q     Q MM   MM B     B
 25947  //                                   S          I    N N   N Q     Q M M M M B     B
 25948  //                                    SSSSS     I    N  N  N Q     Q M  M  M BBBBBB
 25949  //                                         S    I    N   N N Q   Q Q M     M B     B
 25950  //                                   S     S    I    N    NN Q    Q  M     M B     B
 25951  //                                    SSSSS    III   N     N  QQQQ Q M     M BBBBBB
 25952  
 25953  
 25954  // VIF  THU 20 NOV 2025 22:19:29  ** SINQMB                       ** DIAGNOSTICS                                      PAGE 00921
 25955  
 25956  
 25957  // VIF  THU 20 NOV 2025 22:19:29  ** SINQMB                       ** GENERATED CODE                                   PAGE 00922
 25958  
 25959  int_4 _sinqmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 
 25960  _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 25961  { // ** body not listed **
 26018  }
 26019  
 26020  // VIF  THU 20 NOV 2025 22:19:29  ** SINQMF                       ** SINQMF                                           PAGE 00924
 26021  
 26022  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26023  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26024  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26025  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26026  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26027  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26028  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26029  
 26030  //                                    SSSSS    III   N     N  QQQQQ  M     M FFFFFFF
 26031  //                                   S     S    I    NN    N Q     Q MM   MM F
 26032  //                                   S          I    N N   N Q     Q M M M M F
 26033  //                                    SSSSS     I    N  N  N Q     Q M  M  M FFFFF
 26034  //                                         S    I    N   N N Q   Q Q M     M F
 26035  //                                   S     S    I    N    NN Q    Q  M     M F
 26036  //                                    SSSSS    III   N     N  QQQQ Q M     M F
 26037  
 26038  
 26039  // VIF  THU 20 NOV 2025 22:19:29  ** SINQMF                       ** DIAGNOSTICS                                      PAGE 00925
 26040  
 26041  
 26042  // VIF  THU 20 NOV 2025 22:19:29  ** SINQMF                       ** GENERATED CODE                                   PAGE 00926
 26043  
 26044  int_4 _sinqmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 
 26045  _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 26046  { // ** body not listed **
 26102  }
 26103  
 26104  // VIF  THU 20 NOV 2025 22:19:29  ** SINQMI                       ** SINQMI                                           PAGE 00928
 26105  
 26106  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26107  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26108  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26109  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26110  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26111  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26112  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26113  
 26114  //                                     SSSSS    III   N     N  QQQQQ  M     M   III
 26115  //                                    S     S    I    NN    N Q     Q MM   MM    I
 26116  //                                    S          I    N N   N Q     Q M M M M    I
 26117  //                                     SSSSS     I    N  N  N Q     Q M  M  M    I
 26118  //                                          S    I    N   N N Q   Q Q M     M    I
 26119  //                                    S     S    I    N    NN Q    Q  M     M    I
 26120  //                                     SSSSS    III   N     N  QQQQ Q M     M   III
 26121  
 26122  
 26123  // VIF  THU 20 NOV 2025 22:19:29  ** SINQMI                       ** DIAGNOSTICS                                      PAGE 00929
 26124  
 26125  
 26126  // VIF  THU 20 NOV 2025 22:19:29  ** SINQMI                       ** GENERATED CODE                                   PAGE 00930
 26127  
 26128  int_4 _sinqmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 26129  { // ** body not listed **
 26147  }
 26148  
 26149  // VIF  THU 20 NOV 2025 22:19:29  ** SINT1B                       ** SINT1B                                           PAGE 00931
 26150  
 26151  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26152  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26153  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26154  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26155  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26156  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26157  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26158  
 26159  //                                    SSSSS    III   N     N TTTTTTT    1    BBBBBB
 26160  //                                   S     S    I    NN    N    T      11    B     B
 26161  //                                   S          I    N N   N    T     1 1    B     B
 26162  //                                    SSSSS     I    N  N  N    T       1    BBBBBB
 26163  //                                         S    I    N   N N    T       1    B     B
 26164  //                                   S     S    I    N    NN    T       1    B     B
 26165  //                                    SSSSS    III   N     N    T     11111  BBBBBB
 26166  
 26167  
 26168  // VIF  THU 20 NOV 2025 22:19:29  ** SINT1B                       ** DIAGNOSTICS                                      PAGE 00932
 26169  
 26170  
 26171  // VIF  THU 20 NOV 2025 22:19:29  ** SINT1B                       ** GENERATED CODE                                   PAGE 00933
 26172  
 26173  int_4 _sint1b (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 26174  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 26175  { // ** body not listed **
 26203  }
 26204  
 26205  // VIF  THU 20 NOV 2025 22:19:29  ** SINT1F                       ** SINT1F                                           PAGE 00934
 26206  
 26207  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26208  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26209  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26210  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26211  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26212  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26213  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26214  
 26215  //                                    SSSSS    III   N     N TTTTTTT    1    FFFFFFF
 26216  //                                   S     S    I    NN    N    T      11    F
 26217  //                                   S          I    N N   N    T     1 1    F
 26218  //                                    SSSSS     I    N  N  N    T       1    FFFFF
 26219  //                                         S    I    N   N N    T       1    F
 26220  //                                   S     S    I    N    NN    T       1    F
 26221  //                                    SSSSS    III   N     N    T     11111  F
 26222  
 26223  
 26224  // VIF  THU 20 NOV 2025 22:19:29  ** SINT1F                       ** DIAGNOSTICS                                      PAGE 00935
 26225  
 26226  
 26227  // VIF  THU 20 NOV 2025 22:19:29  ** SINT1F                       ** GENERATED CODE                                   PAGE 00936
 26228  
 26229  int_4 _sint1f (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 _p_ wsave_, int_4 _p_ lensav_, 
 26230  real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 26231  { // ** body not listed **
 26259  }
 26260  
 26261  // VIF  THU 20 NOV 2025 22:19:29  ** SINT1I                       ** SINT1I                                           PAGE 00937
 26262  
 26263  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26264  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26265  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26266  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26267  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26268  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26269  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26270  
 26271  //                                     SSSSS    III   N     N TTTTTTT    1      III
 26272  //                                    S     S    I    NN    N    T      11       I
 26273  //                                    S          I    N N   N    T     1 1       I
 26274  //                                     SSSSS     I    N  N  N    T       1       I
 26275  //                                          S    I    N   N N    T       1       I
 26276  //                                    S     S    I    N    NN    T       1       I
 26277  //                                     SSSSS    III   N     N    T     11111    III
 26278  
 26279  
 26280  // VIF  THU 20 NOV 2025 22:19:29  ** SINT1I                       ** DIAGNOSTICS                                      PAGE 00938
 26281  
 26282  
 26283  // VIF  THU 20 NOV 2025 22:19:29  ** SINT1I                       ** GENERATED CODE                                   PAGE 00939
 26284  
 26285  int_4 _sint1i (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 26286  { // ** body not listed **
 26318  }
 26319  
 26320  // VIF  THU 20 NOV 2025 22:19:29  ** SINTB1                       ** SINTB1                                           PAGE 00940
 26321  
 26322  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26323  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26324  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26325  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26326  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26327  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26328  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26329  
 26330  //                                     SSSSS    III   N     N TTTTTTT BBBBBB     1
 26331  //                                    S     S    I    NN    N    T    B     B   11
 26332  //                                    S          I    N N   N    T    B     B  1 1
 26333  //                                     SSSSS     I    N  N  N    T    BBBBBB     1
 26334  //                                          S    I    N   N N    T    B     B    1
 26335  //                                    S     S    I    N    NN    T    B     B    1
 26336  //                                     SSSSS    III   N     N    T    BBBBBB   11111
 26337  
 26338  
 26339  // VIF  THU 20 NOV 2025 22:19:29  ** SINTB1                       ** DIAGNOSTICS                                      PAGE 00941
 26340  
 26341  
 26342  // VIF  THU 20 NOV 2025 22:19:29  ** SINTB1                       ** GENERATED CODE                                   PAGE 00942
 26343  
 26344  int_4 _sintb1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ xh_, real_4 _p_ work_, int_4 
 26345  _p_ ier_)
 26346  { // ** body not listed **
 26415  }
 26416  
 26417  // VIF  THU 20 NOV 2025 22:19:29  ** SINTF1                       ** SINTF1                                           PAGE 00944
 26418  
 26419  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26420  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26421  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26422  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26423  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26424  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26425  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26426  
 26427  //                                     SSSSS    III   N     N TTTTTTT FFFFFFF    1
 26428  //                                    S     S    I    NN    N    T    F         11
 26429  //                                    S          I    N N   N    T    F        1 1
 26430  //                                     SSSSS     I    N  N  N    T    FFFFF      1
 26431  //                                          S    I    N   N N    T    F          1
 26432  //                                    S     S    I    N    NN    T    F          1
 26433  //                                     SSSSS    III   N     N    T    F        11111
 26434  
 26435  
 26436  // VIF  THU 20 NOV 2025 22:19:29  ** SINTF1                       ** DIAGNOSTICS                                      PAGE 00945
 26437  
 26438  
 26439  // VIF  THU 20 NOV 2025 22:19:29  ** SINTF1                       ** GENERATED CODE                                   PAGE 00946
 26440  
 26441  int_4 _sintf1 (int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, real_4 _p_ wsave_, real_4 _p_ xh_, real_4 _p_ work_, int_4 
 26442  _p_ ier_)
 26443  { // ** body not listed **
 26512  }
 26513  
 26514  // VIF  THU 20 NOV 2025 22:19:29  ** SINTMB                       ** SINTMB                                           PAGE 00948
 26515  
 26516  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26517  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26518  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26519  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26520  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26521  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26522  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26523  
 26524  //                                    SSSSS    III   N     N TTTTTTT M     M BBBBBB
 26525  //                                   S     S    I    NN    N    T    MM   MM B     B
 26526  //                                   S          I    N N   N    T    M M M M B     B
 26527  //                                    SSSSS     I    N  N  N    T    M  M  M BBBBBB
 26528  //                                         S    I    N   N N    T    M     M B     B
 26529  //                                   S     S    I    N    NN    T    M     M B     B
 26530  //                                    SSSSS    III   N     N    T    M     M BBBBBB
 26531  
 26532  
 26533  // VIF  THU 20 NOV 2025 22:19:29  ** SINTMB                       ** DIAGNOSTICS                                      PAGE 00949
 26534  
 26535  
 26536  // VIF  THU 20 NOV 2025 22:19:29  ** SINTMB                       ** GENERATED CODE                                   PAGE 00950
 26537  
 26538  int_4 _sintmb (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 
 26539  _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 26540  { // ** body not listed **
 26575  }
 26576  
 26577  // VIF  THU 20 NOV 2025 22:19:29  ** SINTMF                       ** SINTMF                                           PAGE 00951
 26578  
 26579  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26580  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26581  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26582  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26583  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26584  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26585  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26586  
 26587  //                                    SSSSS    III   N     N TTTTTTT M     M FFFFFFF
 26588  //                                   S     S    I    NN    N    T    MM   MM F
 26589  //                                   S          I    N N   N    T    M M M M F
 26590  //                                    SSSSS     I    N  N  N    T    M  M  M FFFFF
 26591  //                                         S    I    N   N N    T    M     M F
 26592  //                                   S     S    I    N    NN    T    M     M F
 26593  //                                    SSSSS    III   N     N    T    M     M F
 26594  
 26595  
 26596  // VIF  THU 20 NOV 2025 22:19:29  ** SINTMF                       ** DIAGNOSTICS                                      PAGE 00952
 26597  
 26598  
 26599  // VIF  THU 20 NOV 2025 22:19:29  ** SINTMF                       ** GENERATED CODE                                   PAGE 00953
 26600  
 26601  int_4 _sintmf (int_4 _p_ lot_, int_4 _p_ jump_, int_4 _p_ n_, int_4 _p_ inc_, real_4 _p_ x_, int_4 _p_ lenx_, real_4 
 26602  _p_ wsave_, int_4 _p_ lensav_, real_4 _p_ work_, int_4 _p_ lenwrk_, int_4 _p_ ier_)
 26603  { // ** body not listed **
 26638  }
 26639  
 26640  // VIF  THU 20 NOV 2025 22:19:29  ** SINTMI                       ** SINTMI                                           PAGE 00954
 26641  
 26642  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26643  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26644  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26645  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26646  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26647  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26648  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26649  
 26650  //                                     SSSSS    III   N     N TTTTTTT M     M   III
 26651  //                                    S     S    I    NN    N    T    MM   MM    I
 26652  //                                    S          I    N N   N    T    M M M M    I
 26653  //                                     SSSSS     I    N  N  N    T    M  M  M    I
 26654  //                                          S    I    N   N N    T    M     M    I
 26655  //                                    S     S    I    N    NN    T    M     M    I
 26656  //                                     SSSSS    III   N     N    T    M     M   III
 26657  
 26658  
 26659  // VIF  THU 20 NOV 2025 22:19:29  ** SINTMI                       ** DIAGNOSTICS                                      PAGE 00955
 26660  
 26661  
 26662  // VIF  THU 20 NOV 2025 22:19:29  ** SINTMI                       ** GENERATED CODE                                   PAGE 00956
 26663  
 26664  int_4 _sintmi (int_4 _p_ n_, real_4 _p_ wsave_, int_4 _p_ lensav_, int_4 _p_ ier_)
 26665  { // ** body not listed **
 26697  }
 26698  
 26699  // VIF  THU 20 NOV 2025 22:19:29  ** TABLES                       ** TABLES                                           PAGE 00957
 26700  
 26701  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26702  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26703  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26704  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26705  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26706  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26707  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26708  
 26709  //                                   TTTTTTT    A    BBBBBB  L       EEEEEEE  SSSSS
 26710  //                                      T      A A   B     B L       E       S     S
 26711  //                                      T     A   A  B     B L       E       S
 26712  //                                      T    A     A BBBBBB  L       EEEEE    SSSSS
 26713  //                                      T    AAAAAAA B     B L       E             S
 26714  //                                      T    A     A B     B L       E       S     S
 26715  //                                      T    A     A BBBBBB  LLLLLLL EEEEEEE  SSSSS
 26716  
 26717  
 26718  // VIF  THU 20 NOV 2025 22:19:29  ** TABLES                       ** DIAGNOSTICS                                      PAGE 00958
 26719  
 26720  
 26721  // VIF  THU 20 NOV 2025 22:19:29  ** TABLES                       ** GENERATED CODE                                   PAGE 00959
 26722  
 26723  int_4 _tables (int_4 _p_ ido_, int_4 _p_ ip_, real_4 _p_ wa_)
 26724  { // ** body not listed **
 26747  }
 26748  
 26749  // VIF  THU 20 NOV 2025 22:19:29  ** W2R                          ** W2R                                              PAGE 00960
 26750  
 26751  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 26752  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 26753  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 26754  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 26755  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 26756  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 26757  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 26758  
 26759  //                                               W     W  22222  RRRRRR
 26760  //                                               W     W 2     2 R     R
 26761  //                                               W     W       2 R     R
 26762  //                                               W  W  W  22222  RRRRRR
 26763  //                                               W  W  W 2       R   R
 26764  //                                               W  W  W 2       R    R
 26765  //                                                WW WW  2222222 R     R
 26766  
 26767  
 26768  // VIF  THU 20 NOV 2025 22:19:29  ** W2R                          ** DIAGNOSTICS                                      PAGE 00961
 26769  
 26770  
 26771  // VIF  THU 20 NOV 2025 22:19:29  ** W2R                          ** GENERATED CODE                                   PAGE 00962
 26772  
 26773  int_4 _w2r (int_4 _p_ ldr_, int_4 _p_ ldw_, int_4 _p_ l_, int_4 _p_ m_, real_4 _p_ r_, real_4 _p_ w_)
 26774  { // ** body not listed **
 26783  }


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