mathlib-blas.c

     1  //! @file mathlib-blas.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 BLAS
    24  
    25  // Compiled from Fortran source code by VIF.
    26  
    27  // Miscellaneous routines from SLATEC, not in other packages as BLAS,
    28  // EISPACK, FISHPACK, FFTPACK, FNLIB, LINPACK etcetera.
    29  // 
    30  // Source: netlib.org/slatec/
    31  // 
    32  // For VIF, all source file have been formatted and labels have been renumbered.
    33  
    34  // The license for BLAS Fortran source code is:
    35  //
    36  // The SLATEC Common Mathematical Library was developed at
    37  // US government research laboratories and is in the public domain.
    38  // 
    39  // Repository: http://www.netlib.org/slatec/
    40  // 
    41  // The SLATEC common mathematical library is issued by the following
    42  // 
    43  //         Air Force Weapons Laboratory, Albuquerque
    44  //         Lawrence Livermore National Laboratory, Livermore
    45  //         Los Alamos National Laboratory, Los Alamos
    46  //         National Institute of Standards and Technology, Washington
    47  //         National Energy Research Supercomputer Center, Livermore
    48  //         Oak Ridge National Laboratory, Oak Ridge
    49  //         Sandia National Laboratories, Albuquerque
    50  //         Sandia National Laboratories, Livermore
    51  // 
    52  // All questions concerning the distribution of the library should be
    53  // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
    54  // Argonne, Illinois  60439, and not to the authors of the subprograms.
    55  // 
    56  //                  * * * * * Notice * * * * *
    57  // 
    58  // This material was prepared as an account of work sponsored by the
    59  // United States Government.  Neither the United States, nor the
    60  // Department of Energy, nor the Department of Defense, nor any of
    61  // their employees, nor any of their contractors, subcontractors, or
    62  // their employees, makes any warranty, expressed or implied, or
    63  // assumes any legal liability or responsibility for the accuracy,
    64  // completeness, or usefulness of any information, apparatus, product,
    65  // or process disclosed, or represents that its use would not infringe
    66  // upon privately owned rights.
    67  
    68  // VIF  THU 20 NOV 2025 22:18:53  ** MARCEL                       ** BLAS                                             PAGE 00001
    69  
    70  
    71  
    72  //                                   M     M    A    RRRRRR   CCCCC  EEEEEEE L
    73  //                                   MM   MM   A A   R     R C     C E       L
    74  //                                   M M M M  A   A  R     R C       E       L
    75  //                                   M  M  M A     A RRRRRR  C       EEEEE   L
    76  //                                   M     M AAAAAAA R   R   C       E       L
    77  //                                   M     M A     A R    R  C     C E       L
    78  //                                   M     M A     A R     R  CCCCC  EEEEEEE LLLLLLL
    79  
    80  //                                           BBBBBB  L          A     SSSSS
    81  //                                           B     B L         A A   S     S
    82  //                                           B     B L        A   A  S
    83  //                                           BBBBBB  L       A     A  SSSSS
    84  //                                           B     B L       AAAAAAA       S
    85  //                                           B     B L       A     A S     S
    86  //                                           BBBBBB  LLLLLLL A     A  SSSSS
    87  
    88  
    89  
    90  
    91  // VIF  THU 20 NOV 2025 22:18:53  ** GLOBAL SCOPE                 ** DIAGNOSTICS                                      PAGE 00002
    92  
    93  // ** linker     ** object size 1723176 bytes
    94  // ** statistics ** 148 subprograms, no errors, no warnings
    95  
    96  
    97  // VIF  THU 20 NOV 2025 22:18:53  ** GLOBAL SCOPE                 ** JOB CONTROL                                      PAGE 00003
    98  
    99  
   100  //   Line    JCL *...*....1....|....2....|....3....|....4....|....5....|....6....|....7..*.|....8
   101  
   102  
   103  
   104  // VIF  THU 20 NOV 2025 22:18:53  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00004
   105  
   106  /*
   107  Generated by VIF - experimental VIntage Fortran compiler.
   108  VIF release 1.4.1
   109  */
   110  
   111  #if defined (__GNUC__)
   112  #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
   113  #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
   114  #if (__GNUC__ >= 14)
   115  #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
   116  #pragma GCC diagnostic ignored "-Wimplicit-int"
   117  #pragma GCC diagnostic ignored "-Wint-conversion"
   118  #pragma GCC diagnostic ignored "-Wreturn-mismatch"
   119  #endif
   120  #else
   121  #error VIF requires GCC
   122  #endif
   123  
   124  #include <vif.h>
   125  
   126  static int_4 _km1 = -1, _k0 = 0, _k1 = 1;
   127  
   128  
   129  #define _dc_0 "n"
   130  #define _dc_1 "t"
   131  #define _dc_2 "c"
   132  #define _dc_3 "cgbmv "
   133  #define _dc_4 "cgemm "
   134  #define _dc_5 "cgemv "
   135  #define _dc_6 "cgerc "
   136  #define _dc_7 "cgeru "
   137  #define _dc_8 "u"
   138  #define _dc_9 "l"
   139  #define _dc_10 "chbmv "
   140  #define _dc_11 "r"
   141  #define _dc_12 "chemm "
   142  #define _dc_13 "chemv "
   143  #define _dc_14 "cher2 "
   144  #define _dc_15 "cher2k"
   145  #define _dc_16 "cher  "
   146  #define _dc_17 "cherk "
   147  #define _dc_18 "chpmv "
   148  #define _dc_19 "chpr2 "
   149  #define _dc_20 "chpr  "
   150  #define _dc_21 "csymm "
   151  #define _dc_22 "csyr2k"
   152  #define _dc_23 "csyrk "
   153  #define _dc_24 "ctbmv "
   154  #define _dc_25 "ctbsv "
   155  #define _dc_26 "ctpmv "
   156  #define _dc_27 "ctpsv "
   157  #define _dc_28 "ctrmm "
   158  #define _dc_29 "ctrmv "
   159  // VIF  THU 20 NOV 2025 22:18:53  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00005
   160  
   161  #define _dc_30 "ctrsm "
   162  #define _dc_31 "ctrsv "
   163  #define _dc_32 "dgbmv "
   164  #define _dc_33 "dgemm "
   165  #define _dc_34 "dgemv "
   166  #define _dc_35 "dger  "
   167  #define _dc_36 "dsbmv "
   168  #define _dc_37 "dspmv "
   169  #define _dc_38 "dspr2 "
   170  #define _dc_39 "dspr  "
   171  #define _dc_40 "dsymm "
   172  #define _dc_41 "dsymv "
   173  #define _dc_42 "dsyr2 "
   174  #define _dc_43 "dsyr2k"
   175  #define _dc_44 "dsyr  "
   176  #define _dc_45 "dsyrk "
   177  #define _dc_46 "dtbmv "
   178  #define _dc_47 "dtbsv "
   179  #define _dc_48 "dtpmv "
   180  #define _dc_49 "dtpsv "
   181  #define _dc_50 "dtrmm "
   182  #define _dc_51 "dtrmv "
   183  #define _dc_52 "dtrsm "
   184  #define _dc_53 "dtrsv "
   185  #define _dc_54 "sgbmv "
   186  #define _dc_55 "sgemm "
   187  #define _dc_56 "sgemv "
   188  #define _dc_57 "sger  "
   189  #define _dc_58 "ssbmv "
   190  #define _dc_59 "sspmv "
   191  #define _dc_60 "sspr2 "
   192  #define _dc_61 "sspr  "
   193  #define _dc_62 "ssymm "
   194  #define _dc_63 "ssymv "
   195  #define _dc_64 "ssyr2 "
   196  #define _dc_65 "ssyr2k"
   197  #define _dc_66 "ssyr  "
   198  #define _dc_67 "ssyrk "
   199  #define _dc_68 "stbmv "
   200  #define _dc_69 "stbsv "
   201  #define _dc_70 "stpmv "
   202  #define _dc_71 "stpsv "
   203  #define _dc_72 "strmm "
   204  #define _dc_73 "strmv "
   205  #define _dc_74 "strsm "
   206  #define _dc_75 "strsv "
   207  #define _dc_76 "zgbmv "
   208  #define _dc_77 "zgemm "
   209  #define _dc_78 "zgemv "
   210  #define _dc_79 "zgerc "
   211  // VIF  THU 20 NOV 2025 22:18:53  ** GLOBAL SCOPE                 ** DEFINITIONS                                      PAGE 00006
   212  
   213  #define _dc_80 "zgeru "
   214  #define _dc_81 "zhbmv "
   215  #define _dc_82 "zhemm "
   216  #define _dc_83 "zhemv "
   217  #define _dc_84 "zher2 "
   218  #define _dc_85 "zher2k"
   219  #define _dc_86 "zher  "
   220  #define _dc_87 "zherk "
   221  #define _dc_88 "zhpmv "
   222  #define _dc_89 "zhpr2 "
   223  #define _dc_90 "zhpr  "
   224  #define _dc_91 "zsymm "
   225  #define _dc_92 "zsyr2k"
   226  #define _dc_93 "zsyrk "
   227  #define _dc_94 "ztbmv "
   228  #define _dc_95 "ztbsv "
   229  #define _dc_96 "ztpmv "
   230  #define _dc_97 "ztpsv "
   231  #define _dc_98 "ztrmm "
   232  #define _dc_99 "ztrmv "
   233  #define _dc_100 "ztrsm "
   234  #define _dc_101 "ztrsv "
   235  
   236  
   237  
   238  // VIF  THU 20 NOV 2025 22:18:53  ** GLOBAL SCOPE                 ** TYPEDEFS                                         PAGE 00007
   239  
   240  static FORMAT *__fmt_a = NULL;
   241  typedef char char_1[2];
   242  typedef char char_7[8];
   243  
   244  
   245  // VIF  THU 20 NOV 2025 22:18:53  ** GLOBAL SCOPE                 ** FREQUENCY TABLE                                  PAGE 00008
   246  
   247  #define __ncalls 149
   248  static CALLS __calls[__ncalls] = {
   249  { // ** body not listed **"caxpy", 0}, // subroutine
   251  { // ** body not listed **"cdotc", 0}, // complex*8 function
   253  { // ** body not listed **"cgbmv", 0}, // subroutine
   255  { // ** body not listed **"cgemv", 0}, // subroutine
   257  { // ** body not listed **"cgeru", 0}, // subroutine
   259  { // ** body not listed **"chemm", 0}, // subroutine
   261  { // ** body not listed **"cher2", 0}, // subroutine
   263  { // ** body not listed **"cher", 0}, // subroutine
   265  { // ** body not listed **"chpmv", 0}, // subroutine
   267  { // ** body not listed **"chpr", 0}, // subroutine
   269  { // ** body not listed **"cscal", 0}, // subroutine
   271  { // ** body not listed **"csscal", 0}, // subroutine
   273  { // ** body not listed **"csymm", 0}, // subroutine
   275  { // ** body not listed **"csyrk", 0}, // subroutine
   277  { // ** body not listed **"ctbsv", 0}, // subroutine
   279  { // ** body not listed **"ctpsv", 0}, // subroutine
   281  { // ** body not listed **"ctrmv", 0}, // subroutine
   283  { // ** body not listed **"ctrsv", 0}, // subroutine
   285  { // ** body not listed **"daxpy", 0}, // subroutine
   287  { // ** body not listed **"dcopy", 0}, // subroutine
   289  { // ** body not listed **"dgbmv", 0}, // subroutine
   291  { // ** body not listed **"dgemv", 0}, // subroutine
   293  { // ** body not listed **"dnrm2", 0}, // real*8 function
   295  { // ** body not listed **"drotg", 0}, // subroutine
   299  { // ** body not listed **"drotmg", 0}, // subroutine
   301  { // ** body not listed **"dscal", 0}, // subroutine
   303  { // ** body not listed **"dspmv", 0}, // subroutine
   305  { // ** body not listed **"dspr", 0}, // subroutine
   307  { // ** body not listed **"dsymm", 0}, // subroutine
   309  { // ** body not listed **"dsyr2", 0}, // subroutine
   311  { // ** body not listed **"dsyr", 0}, // subroutine
   313  { // ** body not listed **"dtbmv", 0}, // subroutine
   315  { // ** body not listed **"dtpmv", 0}, // subroutine
   317  { // ** body not listed **"dtrmm", 0}, // subroutine
   319  { // ** body not listed **"dtrsm", 0}, // subroutine
   321  { // ** body not listed **"dzasum", 0}, // real*8 function
   323  { // ** body not listed **"icamax", 0}, // integer*4 function
   325  { // ** body not listed **"isamax", 0}, // integer*4 function
   327  { // ** body not listed **"sasum", 0}, // real*4 function
   329  { // ** body not listed **"scabs1", 0}, // real*4 function
   331  { // ** body not listed **"scnrm2", 0}, // real*4 function
   333  { // ** body not listed **"sdot", 0}, // real*4 function
   335  { // ** body not listed **"sgbmv", 0}, // subroutine
   337  { // ** body not listed **"sgemv", 0}, // subroutine
   339  { // ** body not listed **"snrm2", 0}, // real*4 function
   341  { // ** body not listed **"srotg", 0}, // subroutine
   343  { // ** body not listed **"srotmg", 0}, // subroutine
   345  { // ** body not listed **"sscal", 0}, // subroutine
   347  { // ** body not listed **"sspr2", 0}, // subroutine
   351  { // ** body not listed **"sswap", 0}, // subroutine
   353  { // ** body not listed **"ssymv", 0}, // subroutine
   355  { // ** body not listed **"ssyr2k", 0}, // subroutine
   357  { // ** body not listed **"ssyrk", 0}, // subroutine
   359  { // ** body not listed **"stbsv", 0}, // subroutine
   361  { // ** body not listed **"stpsv", 0}, // subroutine
   363  { // ** body not listed **"strmv", 0}, // subroutine
   365  { // ** body not listed **"strsv", 0}, // subroutine
   367  { // ** body not listed **"zcopy", 0}, // subroutine
   369  { // ** body not listed **"zdotu", 0}, // complex*16 function
   371  { // ** body not listed **"zdscal", 0}, // subroutine
   373  { // ** body not listed **"zgemm", 0}, // subroutine
   375  { // ** body not listed **"zgerc", 0}, // subroutine
   377  { // ** body not listed **"zhbmv", 0}, // subroutine
   379  { // ** body not listed **"zhemv", 0}, // subroutine
   381  { // ** body not listed **"zher2k", 0}, // subroutine
   383  { // ** body not listed **"zherk", 0}, // subroutine
   385  { // ** body not listed **"zhpr2", 0}, // subroutine
   387  { // ** body not listed **"zrotg", 0}, // subroutine
   389  { // ** body not listed **"zswap", 0}, // subroutine
   391  { // ** body not listed **"zsyr2k", 0}, // subroutine
   393  { // ** body not listed **"ztbmv", 0}, // subroutine
   395  { // ** body not listed **"ztpmv", 0}, // subroutine
   397  { // ** body not listed **"ztrmm", 0}, // subroutine
   399  { // ** body not listed **"ztrsm", 0}, // subroutine
   403  { // ** body not listed **NULL, 0}
   404  };
   722  { // ** body not listed **
   754  }
   755  
   756  // VIF  THU 20 NOV 2025 22:18:53  ** CCOPY                        ** CCOPY                                            PAGE 00022
   757  
   758  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
   759  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
   760  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
   761  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
   762  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
   763  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
   764  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
   765  
   766  //                                        CCCCC   CCCCC   OOOOO  PPPPPP  Y     Y
   767  //                                       C     C C     C O     O P     P  Y   Y
   768  //                                       C       C       O     O P     P   Y Y
   769  //                                       C       C       O     O PPPPPP     Y
   770  //                                       C       C       O     O P          Y
   771  //                                       C     C C     C O     O P          Y
   772  //                                        CCCCC   CCCCC   OOOOO  P          Y
   773  
   774  
   775  // VIF  THU 20 NOV 2025 22:18:53  ** CCOPY                        ** DIAGNOSTICS                                      PAGE 00023
   776  
   777  
   778  // VIF  THU 20 NOV 2025 22:18:53  ** CCOPY                        ** GENERATED CODE                                   PAGE 00024
   779  
   780  int_4 _ccopy (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
   781  { // ** body not listed **
   810  }
   811  
   812  // VIF  THU 20 NOV 2025 22:18:53  ** CDOTC                        ** CDOTC                                            PAGE 00025
   813  
   814  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
   815  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
   816  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
   817  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
   818  //                       C       O     O M     M P       L       E         X X     * *   8     8
   819  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
   820  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
   821  
   822  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
   823  //                           F       U     U NN    N C     C    T       I    O     O NN    N
   824  //                           F       U     U N N   N C          T       I    O     O N N   N
   825  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
   826  //                           F       U     U N   N N C          T       I    O     O N   N N
   827  //                           F       U     U N    NN C     C    T       I    O     O N    NN
   828  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
   829  
   830  //                                        CCCCC  DDDDDD   OOOOO  TTTTTTT  CCCCC
   831  //                                       C     C D     D O     O    T    C     C
   832  //                                       C       D     D O     O    T    C
   833  //                                       C       D     D O     O    T    C
   834  //                                       C       D     D O     O    T    C
   835  //                                       C     C D     D O     O    T    C     C
   836  //                                        CCCCC  DDDDDD   OOOOO     T     CCCCC
   837  
   838  
   839  // VIF  THU 20 NOV 2025 22:18:53  ** CDOTC                        ** DIAGNOSTICS                                      PAGE 00026
   840  
   841  
   842  // VIF  THU 20 NOV 2025 22:18:53  ** CDOTC                        ** GENERATED CODE                                   PAGE 00027
   843  
   844  complex_8 _cdotc (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
   845  { // ** body not listed **
   881  }
   882  
   883  // VIF  THU 20 NOV 2025 22:18:53  ** CDOTU                        ** CDOTU                                            PAGE 00028
   884  
   885  //                        CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X          88888
   886  //                       C     C O     O MM   MM P     P L       E        X   X   *   *  8     8
   887  //                       C       O     O M M M M P     P L       E         X X     * *   8     8
   888  //                       C       O     O M  M  M PPPPPP  L       EEEEE      X    *******  88888
   889  //                       C       O     O M     M P       L       E         X X     * *   8     8
   890  //                       C     C O     O M     M P       L       E        X   X   *   *  8     8
   891  //                        CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          88888
   892  
   893  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
   894  //                           F       U     U NN    N C     C    T       I    O     O NN    N
   895  //                           F       U     U N N   N C          T       I    O     O N N   N
   896  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
   897  //                           F       U     U N   N N C          T       I    O     O N   N N
   898  //                           F       U     U N    NN C     C    T       I    O     O N    NN
   899  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
   900  
   901  //                                        CCCCC  DDDDDD   OOOOO  TTTTTTT U     U
   902  //                                       C     C D     D O     O    T    U     U
   903  //                                       C       D     D O     O    T    U     U
   904  //                                       C       D     D O     O    T    U     U
   905  //                                       C       D     D O     O    T    U     U
   906  //                                       C     C D     D O     O    T    U     U
   907  //                                        CCCCC  DDDDDD   OOOOO     T     UUUUU
   908  
   909  
   910  // VIF  THU 20 NOV 2025 22:18:53  ** CDOTU                        ** DIAGNOSTICS                                      PAGE 00029
   911  
   912  
   913  // VIF  THU 20 NOV 2025 22:18:53  ** CDOTU                        ** GENERATED CODE                                   PAGE 00030
   914  
   915  complex_8 _cdotu (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
   916  { // ** body not listed **
   951  }
   952  
   953  // VIF  THU 20 NOV 2025 22:18:53  ** CGBMV                        ** CGBMV                                            PAGE 00031
   954  
   955  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
   956  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
   957  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
   958  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
   959  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
   960  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
   961  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
   962  
   963  //                                        CCCCC   GGGGG  BBBBBB  M     M V     V
   964  //                                       C     C G     G B     B MM   MM V     V
   965  //                                       C       G       B     B M M M M V     V
   966  //                                       C       G  GGGG BBBBBB  M  M  M V     V
   967  //                                       C       G     G B     B M     M  V   V
   968  //                                       C     C G     G B     B M     M   V V
   969  //                                        CCCCC   GGGGG  BBBBBB  M     M    V
   970  
   971  
   972  // VIF  THU 20 NOV 2025 22:18:53  ** CGBMV                        ** DIAGNOSTICS                                      PAGE 00032
   973  
   974  
   975  // VIF  THU 20 NOV 2025 22:18:53  ** CGBMV                        ** GENERATED CODE                                   PAGE 00033
   976  
   977  int_4 _cgbmv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, complex_8 _p_ alpha_, 
   978  complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ 
   979  incy_)
   980  { // ** body not listed **
  1161  }
  1162  
  1163  // VIF  THU 20 NOV 2025 22:18:53  ** CGEMM                        ** CGEMM                                            PAGE 00037
  1164  
  1165  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  1166  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  1167  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  1168  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  1169  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  1170  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  1171  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  1172  
  1173  //                                        CCCCC   GGGGG  EEEEEEE M     M M     M
  1174  //                                       C     C G     G E       MM   MM MM   MM
  1175  //                                       C       G       E       M M M M M M M M
  1176  //                                       C       G  GGGG EEEEE   M  M  M M  M  M
  1177  //                                       C       G     G E       M     M M     M
  1178  //                                       C     C G     G E       M     M M     M
  1179  //                                        CCCCC   GGGGG  EEEEEEE M     M M     M
  1180  
  1181  
  1182  // VIF  THU 20 NOV 2025 22:18:53  ** CGEMM                        ** DIAGNOSTICS                                      PAGE 00038
  1183  
  1184  
  1185  // VIF  THU 20 NOV 2025 22:18:53  ** CGEMM                        ** GENERATED CODE                                   PAGE 00039
  1186  
  1187  int_4 _cgemm (char _p_ transa_, char _p_ transb_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ alpha_, 
  1188  complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ 
  1189  ldc_)
  1190  { // ** body not listed **
  1452  }
  1453  
  1454  // VIF  THU 20 NOV 2025 22:18:53  ** CGEMV                        ** CGEMV                                            PAGE 00045
  1455  
  1456  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  1457  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  1458  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  1459  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  1460  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  1461  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  1462  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  1463  
  1464  //                                        CCCCC   GGGGG  EEEEEEE M     M V     V
  1465  //                                       C     C G     G E       MM   MM V     V
  1466  //                                       C       G       E       M M M M V     V
  1467  //                                       C       G  GGGG EEEEE   M  M  M V     V
  1468  //                                       C       G     G E       M     M  V   V
  1469  //                                       C     C G     G E       M     M   V V
  1470  //                                        CCCCC   GGGGG  EEEEEEE M     M    V
  1471  
  1472  
  1473  // VIF  THU 20 NOV 2025 22:18:53  ** CGEMV                        ** DIAGNOSTICS                                      PAGE 00046
  1474  
  1475  
  1476  // VIF  THU 20 NOV 2025 22:18:53  ** CGEMV                        ** GENERATED CODE                                   PAGE 00047
  1477  
  1478  int_4 _cgemv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, 
  1479  complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
  1480  { // ** body not listed **
  1643  }
  1644  
  1645  // VIF  THU 20 NOV 2025 22:18:53  ** CGERC                        ** CGERC                                            PAGE 00051
  1646  
  1647  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  1648  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  1649  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  1650  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  1651  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  1652  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  1653  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  1654  
  1655  //                                        CCCCC   GGGGG  EEEEEEE RRRRRR   CCCCC
  1656  //                                       C     C G     G E       R     R C     C
  1657  //                                       C       G       E       R     R C
  1658  //                                       C       G  GGGG EEEEE   RRRRRR  C
  1659  //                                       C       G     G E       R   R   C
  1660  //                                       C     C G     G E       R    R  C     C
  1661  //                                        CCCCC   GGGGG  EEEEEEE R     R  CCCCC
  1662  
  1663  
  1664  // VIF  THU 20 NOV 2025 22:18:53  ** CGERC                        ** DIAGNOSTICS                                      PAGE 00052
  1665  
  1666  
  1667  // VIF  THU 20 NOV 2025 22:18:53  ** CGERC                        ** GENERATED CODE                                   PAGE 00053
  1668  
  1669  int_4 _cgerc (int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ y_, 
  1670  int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
  1671  { // ** body not listed **
  1741  }
  1742  
  1743  // VIF  THU 20 NOV 2025 22:18:53  ** CGERU                        ** CGERU                                            PAGE 00055
  1744  
  1745  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  1746  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  1747  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  1748  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  1749  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  1750  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  1751  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  1752  
  1753  //                                        CCCCC   GGGGG  EEEEEEE RRRRRR  U     U
  1754  //                                       C     C G     G E       R     R U     U
  1755  //                                       C       G       E       R     R U     U
  1756  //                                       C       G  GGGG EEEEE   RRRRRR  U     U
  1757  //                                       C       G     G E       R   R   U     U
  1758  //                                       C     C G     G E       R    R  U     U
  1759  //                                        CCCCC   GGGGG  EEEEEEE R     R  UUUUU
  1760  
  1761  
  1762  // VIF  THU 20 NOV 2025 22:18:53  ** CGERU                        ** DIAGNOSTICS                                      PAGE 00056
  1763  
  1764  
  1765  // VIF  THU 20 NOV 2025 22:18:53  ** CGERU                        ** GENERATED CODE                                   PAGE 00057
  1766  
  1767  int_4 _cgeru (int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ y_, 
  1768  int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
  1769  { // ** body not listed **
  1838  }
  1839  
  1840  // VIF  THU 20 NOV 2025 22:18:53  ** CHBMV                        ** CHBMV                                            PAGE 00059
  1841  
  1842  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  1843  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  1844  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  1845  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  1846  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  1847  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  1848  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  1849  
  1850  //                                        CCCCC  H     H BBBBBB  M     M V     V
  1851  //                                       C     C H     H B     B MM   MM V     V
  1852  //                                       C       H     H B     B M M M M V     V
  1853  //                                       C       HHHHHHH BBBBBB  M  M  M V     V
  1854  //                                       C       H     H B     B M     M  V   V
  1855  //                                       C     C H     H B     B M     M   V V
  1856  //                                        CCCCC  H     H BBBBBB  M     M    V
  1857  
  1858  
  1859  // VIF  THU 20 NOV 2025 22:18:53  ** CHBMV                        ** DIAGNOSTICS                                      PAGE 00060
  1860  
  1861  
  1862  // VIF  THU 20 NOV 2025 22:18:53  ** CHBMV                        ** GENERATED CODE                                   PAGE 00061
  1863  
  1864  int_4 _chbmv (char _p_ uplo_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, 
  1865  complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
  1866  { // ** body not listed **
  2030  }
  2031  
  2032  // VIF  THU 20 NOV 2025 22:18:53  ** CHEMM                        ** CHEMM                                            PAGE 00065
  2033  
  2034  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2035  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2036  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2037  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2038  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2039  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2040  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2041  
  2042  //                                        CCCCC  H     H EEEEEEE M     M M     M
  2043  //                                       C     C H     H E       MM   MM MM   MM
  2044  //                                       C       H     H E       M M M M M M M M
  2045  //                                       C       HHHHHHH EEEEE   M  M  M M  M  M
  2046  //                                       C       H     H E       M     M M     M
  2047  //                                       C     C H     H E       M     M M     M
  2048  //                                        CCCCC  H     H EEEEEEE M     M M     M
  2049  
  2050  
  2051  // VIF  THU 20 NOV 2025 22:18:53  ** CHEMM                        ** DIAGNOSTICS                                      PAGE 00066
  2052  
  2053  
  2054  // VIF  THU 20 NOV 2025 22:18:53  ** CHEMM                        ** GENERATED CODE                                   PAGE 00067
  2055  
  2056  int_4 _chemm (char _p_ side_, char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 
  2057  _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  2058  { // ** body not listed **
  2213  }
  2214  
  2215  // VIF  THU 20 NOV 2025 22:18:53  ** CHEMV                        ** CHEMV                                            PAGE 00071
  2216  
  2217  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2218  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2219  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2220  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2221  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2222  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2223  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2224  
  2225  //                                        CCCCC  H     H EEEEEEE M     M V     V
  2226  //                                       C     C H     H E       MM   MM V     V
  2227  //                                       C       H     H E       M M M M V     V
  2228  //                                       C       HHHHHHH EEEEE   M  M  M V     V
  2229  //                                       C       H     H E       M     M  V   V
  2230  //                                       C     C H     H E       M     M   V V
  2231  //                                        CCCCC  H     H EEEEEEE M     M    V
  2232  
  2233  
  2234  // VIF  THU 20 NOV 2025 22:18:53  ** CHEMV                        ** DIAGNOSTICS                                      PAGE 00072
  2235  
  2236  
  2237  // VIF  THU 20 NOV 2025 22:18:53  ** CHEMV                        ** GENERATED CODE                                   PAGE 00073
  2238  
  2239  int_4 _chemv (char _p_ uplo_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ x_, 
  2240  int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
  2241  { // ** body not listed **
  2389  }
  2390  
  2391  // VIF  THU 20 NOV 2025 22:18:53  ** CHER2                        ** CHER2                                            PAGE 00076
  2392  
  2393  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2394  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2395  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2396  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2397  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2398  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2399  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2400  
  2401  //                                        CCCCC  H     H EEEEEEE RRRRRR   22222
  2402  //                                       C     C H     H E       R     R 2     2
  2403  //                                       C       H     H E       R     R       2
  2404  //                                       C       HHHHHHH EEEEE   RRRRRR   22222
  2405  //                                       C       H     H E       R   R   2
  2406  //                                       C     C H     H E       R    R  2
  2407  //                                        CCCCC  H     H EEEEEEE R     R 2222222
  2408  
  2409  
  2410  // VIF  THU 20 NOV 2025 22:18:53  ** CHER2                        ** DIAGNOSTICS                                      PAGE 00077
  2411  
  2412  
  2413  // VIF  THU 20 NOV 2025 22:18:53  ** CHER2                        ** GENERATED CODE                                   PAGE 00078
  2414  
  2415  int_4 _cher2 (char _p_ uplo_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ y_, 
  2416  int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
  2417  { // ** body not listed **
  2553  }
  2554  
  2555  // VIF  THU 20 NOV 2025 22:18:53  ** CHER2K                       ** CHER2K                                           PAGE 00081
  2556  
  2557  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2558  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2559  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2560  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2561  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2562  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2563  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2564  
  2565  //                                     CCCCC  H     H EEEEEEE RRRRRR   22222  K    K
  2566  //                                    C     C H     H E       R     R 2     2 K   K
  2567  //                                    C       H     H E       R     R       2 K  K
  2568  //                                    C       HHHHHHH EEEEE   RRRRRR   22222  KKK
  2569  //                                    C       H     H E       R   R   2       K  K
  2570  //                                    C     C H     H E       R    R  2       K   K
  2571  //                                     CCCCC  H     H EEEEEEE R     R 2222222 K    K
  2572  
  2573  
  2574  // VIF  THU 20 NOV 2025 22:18:53  ** CHER2K                       ** DIAGNOSTICS                                      PAGE 00082
  2575  
  2576  
  2577  // VIF  THU 20 NOV 2025 22:18:53  ** CHER2K                       ** GENERATED CODE                                   PAGE 00083
  2578  
  2579  int_4 _cher2k (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ alpha_, complex_8 _p_ a_, 
  2580  int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  2581  { // ** body not listed **
  2800  }
  2801  
  2802  // VIF  THU 20 NOV 2025 22:18:53  ** CHER                         ** CHER                                             PAGE 00088
  2803  
  2804  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2805  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2806  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2807  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2808  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2809  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2810  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2811  
  2812  //                                            CCCCC  H     H EEEEEEE RRRRRR
  2813  //                                           C     C H     H E       R     R
  2814  //                                           C       H     H E       R     R
  2815  //                                           C       HHHHHHH EEEEE   RRRRRR
  2816  //                                           C       H     H E       R   R
  2817  //                                           C     C H     H E       R    R
  2818  //                                            CCCCC  H     H EEEEEEE R     R
  2819  
  2820  
  2821  // VIF  THU 20 NOV 2025 22:18:53  ** CHER                         ** DIAGNOSTICS                                      PAGE 00089
  2822  
  2823  
  2824  // VIF  THU 20 NOV 2025 22:18:53  ** CHER                         ** GENERATED CODE                                   PAGE 00090
  2825  
  2826  int_4 _cher (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ a_, 
  2827  int_4 _p_ lda_)
  2828  { // ** body not listed **
  2941  }
  2942  
  2943  // VIF  THU 20 NOV 2025 22:18:53  ** CHERK                        ** CHERK                                            PAGE 00093
  2944  
  2945  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  2946  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  2947  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  2948  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  2949  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  2950  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  2951  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  2952  
  2953  //                                         CCCCC  H     H EEEEEEE RRRRRR  K    K
  2954  //                                        C     C H     H E       R     R K   K
  2955  //                                        C       H     H E       R     R K  K
  2956  //                                        C       HHHHHHH EEEEE   RRRRRR  KKK
  2957  //                                        C       H     H E       R   R   K  K
  2958  //                                        C     C H     H E       R    R  K   K
  2959  //                                         CCCCC  H     H EEEEEEE R     R K    K
  2960  
  2961  
  2962  // VIF  THU 20 NOV 2025 22:18:53  ** CHERK                        ** DIAGNOSTICS                                      PAGE 00094
  2963  
  2964  
  2965  // VIF  THU 20 NOV 2025 22:18:53  ** CHERK                        ** GENERATED CODE                                   PAGE 00095
  2966  
  2967  int_4 _cherk (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ alpha_, complex_8 _p_ a_, int_4 
  2968  _p_ lda_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  2969  { // ** body not listed **
  3179  }
  3180  
  3181  // VIF  THU 20 NOV 2025 22:18:53  ** CHPMV                        ** CHPMV                                            PAGE 00100
  3182  
  3183  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3184  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3185  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3186  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3187  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3188  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3189  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3190  
  3191  //                                        CCCCC  H     H PPPPPP  M     M V     V
  3192  //                                       C     C H     H P     P MM   MM V     V
  3193  //                                       C       H     H P     P M M M M V     V
  3194  //                                       C       HHHHHHH PPPPPP  M  M  M V     V
  3195  //                                       C       H     H P       M     M  V   V
  3196  //                                       C     C H     H P       M     M   V V
  3197  //                                        CCCCC  H     H P       M     M    V
  3198  
  3199  
  3200  // VIF  THU 20 NOV 2025 22:18:53  ** CHPMV                        ** DIAGNOSTICS                                      PAGE 00101
  3201  
  3202  
  3203  // VIF  THU 20 NOV 2025 22:18:53  ** CHPMV                        ** GENERATED CODE                                   PAGE 00102
  3204  
  3205  int_4 _chpmv (char _p_ uplo_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ ap_, complex_8 _p_ x_, int_4 _p_ incx_, 
  3206  complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
  3207  { // ** body not listed **
  3362  }
  3363  
  3364  // VIF  THU 20 NOV 2025 22:18:53  ** CHPR2                        ** CHPR2                                            PAGE 00106
  3365  
  3366  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3367  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3368  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3369  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3370  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3371  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3372  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3373  
  3374  //                                        CCCCC  H     H PPPPPP  RRRRRR   22222
  3375  //                                       C     C H     H P     P R     R 2     2
  3376  //                                       C       H     H P     P R     R       2
  3377  //                                       C       HHHHHHH PPPPPP  RRRRRR   22222
  3378  //                                       C       H     H P       R   R   2
  3379  //                                       C     C H     H P       R    R  2
  3380  //                                        CCCCC  H     H P       R     R 2222222
  3381  
  3382  
  3383  // VIF  THU 20 NOV 2025 22:18:53  ** CHPR2                        ** DIAGNOSTICS                                      PAGE 00107
  3384  
  3385  
  3386  // VIF  THU 20 NOV 2025 22:18:53  ** CHPR2                        ** GENERATED CODE                                   PAGE 00108
  3387  
  3388  int_4 _chpr2 (char _p_ uplo_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ y_, 
  3389  int_4 _p_ incy_, complex_8 _p_ ap_)
  3390  { // ** body not listed **
  3527  }
  3528  
  3529  // VIF  THU 20 NOV 2025 22:18:53  ** CHPR                         ** CHPR                                             PAGE 00111
  3530  
  3531  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3532  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3533  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3534  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3535  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3536  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3537  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3538  
  3539  //                                            CCCCC  H     H PPPPPP  RRRRRR
  3540  //                                           C     C H     H P     P R     R
  3541  //                                           C       H     H P     P R     R
  3542  //                                           C       HHHHHHH PPPPPP  RRRRRR
  3543  //                                           C       H     H P       R   R
  3544  //                                           C     C H     H P       R    R
  3545  //                                            CCCCC  H     H P       R     R
  3546  
  3547  
  3548  // VIF  THU 20 NOV 2025 22:18:53  ** CHPR                         ** DIAGNOSTICS                                      PAGE 00112
  3549  
  3550  
  3551  // VIF  THU 20 NOV 2025 22:18:53  ** CHPR                         ** GENERATED CODE                                   PAGE 00113
  3552  
  3553  int_4 _chpr (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ ap_)
  3554  { // ** body not listed **
  3668  }
  3669  
  3670  // VIF  THU 20 NOV 2025 22:18:53  ** CROTG                        ** CROTG                                            PAGE 00116
  3671  
  3672  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3673  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3674  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3675  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3676  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3677  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3678  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3679  
  3680  //                                        CCCCC  RRRRRR   OOOOO  TTTTTTT  GGGGG
  3681  //                                       C     C R     R O     O    T    G     G
  3682  //                                       C       R     R O     O    T    G
  3683  //                                       C       RRRRRR  O     O    T    G  GGGG
  3684  //                                       C       R   R   O     O    T    G     G
  3685  //                                       C     C R    R  O     O    T    G     G
  3686  //                                        CCCCC  R     R  OOOOO     T     GGGGG
  3687  
  3688  
  3689  // VIF  THU 20 NOV 2025 22:18:53  ** CROTG                        ** DIAGNOSTICS                                      PAGE 00117
  3690  
  3691  
  3692  // VIF  THU 20 NOV 2025 22:18:53  ** CROTG                        ** GENERATED CODE                                   PAGE 00118
  3693  
  3694  int_4 _crotg (complex_8 _p_ ca_, complex_8 _p_ cb_, real_4 _p_ c_, complex_8 _p_ s_)
  3695  { // ** body not listed **
  3719  }
  3720  
  3721  // VIF  THU 20 NOV 2025 22:18:53  ** CSCAL                        ** CSCAL                                            PAGE 00119
  3722  
  3723  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3724  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3725  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3726  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3727  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3728  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3729  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3730  
  3731  //                                        CCCCC   SSSSS   CCCCC     A    L
  3732  //                                       C     C S     S C     C   A A   L
  3733  //                                       C       S       C        A   A  L
  3734  //                                       C        SSSSS  C       A     A L
  3735  //                                       C             S C       AAAAAAA L
  3736  //                                       C     C S     S C     C A     A L
  3737  //                                        CCCCC   SSSSS   CCCCC  A     A LLLLLLL
  3738  
  3739  
  3740  // VIF  THU 20 NOV 2025 22:18:53  ** CSCAL                        ** DIAGNOSTICS                                      PAGE 00120
  3741  
  3742  
  3743  // VIF  THU 20 NOV 2025 22:18:53  ** CSCAL                        ** GENERATED CODE                                   PAGE 00121
  3744  
  3745  int_4 _cscal (int_4 _p_ n_, complex_8 _p_ ca_, complex_8 _p_ cx_, int_4 _p_ incx_)
  3746  { // ** body not listed **
  3766  }
  3767  
  3768  // VIF  THU 20 NOV 2025 22:18:53  ** CSROT                        ** CSROT                                            PAGE 00122
  3769  
  3770  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3771  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3772  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3773  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3774  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3775  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3776  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3777  
  3778  //                                        CCCCC   SSSSS  RRRRRR   OOOOO  TTTTTTT
  3779  //                                       C     C S     S R     R O     O    T
  3780  //                                       C       S       R     R O     O    T
  3781  //                                       C        SSSSS  RRRRRR  O     O    T
  3782  //                                       C             S R   R   O     O    T
  3783  //                                       C     C S     S R    R  O     O    T
  3784  //                                        CCCCC   SSSSS  R     R  OOOOO     T
  3785  
  3786  
  3787  // VIF  THU 20 NOV 2025 22:18:53  ** CSROT                        ** DIAGNOSTICS                                      PAGE 00123
  3788  
  3789  
  3790  // VIF  THU 20 NOV 2025 22:18:53  ** CSROT                        ** GENERATED CODE                                   PAGE 00124
  3791  
  3792  int_4 _csrot (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_, real_4 _p_ c_, 
  3793  real_4 _p_ s_)
  3794  { // ** body not listed **
  3828  }
  3829  
  3830  // VIF  THU 20 NOV 2025 22:18:53  ** CSSCAL                       ** CSSCAL                                           PAGE 00125
  3831  
  3832  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3833  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3834  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3835  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3836  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3837  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3838  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3839  
  3840  //                                    CCCCC   SSSSS   SSSSS   CCCCC     A    L
  3841  //                                   C     C S     S S     S C     C   A A   L
  3842  //                                   C       S       S       C        A   A  L
  3843  //                                   C        SSSSS   SSSSS  C       A     A L
  3844  //                                   C             S       S C       AAAAAAA L
  3845  //                                   C     C S     S S     S C     C A     A L
  3846  //                                    CCCCC   SSSSS   SSSSS   CCCCC  A     A LLLLLLL
  3847  
  3848  
  3849  // VIF  THU 20 NOV 2025 22:18:53  ** CSSCAL                       ** DIAGNOSTICS                                      PAGE 00126
  3850  
  3851  
  3852  // VIF  THU 20 NOV 2025 22:18:53  ** CSSCAL                       ** GENERATED CODE                                   PAGE 00127
  3853  
  3854  int_4 _csscal (int_4 _p_ n_, real_4 _p_ sa_, complex_8 _p_ cx_, int_4 _p_ incx_)
  3855  { // ** body not listed **
  3878  }
  3879  
  3880  // VIF  THU 20 NOV 2025 22:18:53  ** CSWAP                        ** CSWAP                                            PAGE 00128
  3881  
  3882  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3883  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3884  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3885  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3886  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3887  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3888  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3889  
  3890  //                                        CCCCC   SSSSS  W     W    A    PPPPPP
  3891  //                                       C     C S     S W     W   A A   P     P
  3892  //                                       C       S       W     W  A   A  P     P
  3893  //                                       C        SSSSS  W  W  W A     A PPPPPP
  3894  //                                       C             S W  W  W AAAAAAA P
  3895  //                                       C     C S     S W  W  W A     A P
  3896  //                                        CCCCC   SSSSS   WW WW  A     A P
  3897  
  3898  
  3899  // VIF  THU 20 NOV 2025 22:18:53  ** CSWAP                        ** DIAGNOSTICS                                      PAGE 00129
  3900  
  3901  
  3902  // VIF  THU 20 NOV 2025 22:18:53  ** CSWAP                        ** GENERATED CODE                                   PAGE 00130
  3903  
  3904  int_4 _cswap (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
  3905  { // ** body not listed **
  3939  }
  3940  
  3941  // VIF  THU 20 NOV 2025 22:18:53  ** CSYMM                        ** CSYMM                                            PAGE 00131
  3942  
  3943  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  3944  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  3945  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  3946  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  3947  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  3948  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  3949  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  3950  
  3951  //                                        CCCCC   SSSSS  Y     Y M     M M     M
  3952  //                                       C     C S     S  Y   Y  MM   MM MM   MM
  3953  //                                       C       S         Y Y   M M M M M M M M
  3954  //                                       C        SSSSS     Y    M  M  M M  M  M
  3955  //                                       C             S    Y    M     M M     M
  3956  //                                       C     C S     S    Y    M     M M     M
  3957  //                                        CCCCC   SSSSS     Y    M     M M     M
  3958  
  3959  
  3960  // VIF  THU 20 NOV 2025 22:18:53  ** CSYMM                        ** DIAGNOSTICS                                      PAGE 00132
  3961  
  3962  
  3963  // VIF  THU 20 NOV 2025 22:18:53  ** CSYMM                        ** GENERATED CODE                                   PAGE 00133
  3964  
  3965  int_4 _csymm (char _p_ side_, char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 
  3966  _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  3967  { // ** body not listed **
  4116  }
  4117  
  4118  // VIF  THU 20 NOV 2025 22:18:53  ** CSYR2K                       ** CSYR2K                                           PAGE 00136
  4119  
  4120  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  4121  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  4122  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  4123  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  4124  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  4125  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  4126  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  4127  
  4128  //                                     CCCCC   SSSSS  Y     Y RRRRRR   22222  K    K
  4129  //                                    C     C S     S  Y   Y  R     R 2     2 K   K
  4130  //                                    C       S         Y Y   R     R       2 K  K
  4131  //                                    C        SSSSS     Y    RRRRRR   22222  KKK
  4132  //                                    C             S    Y    R   R   2       K  K
  4133  //                                    C     C S     S    Y    R    R  2       K   K
  4134  //                                     CCCCC   SSSSS     Y    R     R 2222222 K    K
  4135  
  4136  
  4137  // VIF  THU 20 NOV 2025 22:18:53  ** CSYR2K                       ** DIAGNOSTICS                                      PAGE 00137
  4138  
  4139  
  4140  // VIF  THU 20 NOV 2025 22:18:53  ** CSYR2K                       ** GENERATED CODE                                   PAGE 00138
  4141  
  4142  int_4 _csyr2k (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ alpha_, complex_8 _p_ a_, 
  4143  int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  4144  { // ** body not listed **
  4323  }
  4324  
  4325  // VIF  THU 20 NOV 2025 22:18:53  ** CSYRK                        ** CSYRK                                            PAGE 00142
  4326  
  4327  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  4328  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  4329  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  4330  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  4331  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  4332  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  4333  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  4334  
  4335  //                                         CCCCC   SSSSS  Y     Y RRRRRR  K    K
  4336  //                                        C     C S     S  Y   Y  R     R K   K
  4337  //                                        C       S         Y Y   R     R K  K
  4338  //                                        C        SSSSS     Y    RRRRRR  KKK
  4339  //                                        C             S    Y    R   R   K  K
  4340  //                                        C     C S     S    Y    R    R  K   K
  4341  //                                         CCCCC   SSSSS     Y    R     R K    K
  4342  
  4343  
  4344  // VIF  THU 20 NOV 2025 22:18:53  ** CSYRK                        ** DIAGNOSTICS                                      PAGE 00143
  4345  
  4346  
  4347  // VIF  THU 20 NOV 2025 22:18:53  ** CSYRK                        ** GENERATED CODE                                   PAGE 00144
  4348  
  4349  int_4 _csyrk (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ alpha_, complex_8 _p_ a_, 
  4350  int_4 _p_ lda_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  4351  { // ** body not listed **
  4517  }
  4518  
  4519  // VIF  THU 20 NOV 2025 22:18:53  ** CTBMV                        ** CTBMV                                            PAGE 00148
  4520  
  4521  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  4522  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  4523  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  4524  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  4525  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  4526  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  4527  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  4528  
  4529  //                                        CCCCC  TTTTTTT BBBBBB  M     M V     V
  4530  //                                       C     C    T    B     B MM   MM V     V
  4531  //                                       C          T    B     B M M M M V     V
  4532  //                                       C          T    BBBBBB  M  M  M V     V
  4533  //                                       C          T    B     B M     M  V   V
  4534  //                                       C     C    T    B     B M     M   V V
  4535  //                                        CCCCC     T    BBBBBB  M     M    V
  4536  
  4537  
  4538  // VIF  THU 20 NOV 2025 22:18:53  ** CTBMV                        ** DIAGNOSTICS                                      PAGE 00149
  4539  
  4540  
  4541  // VIF  THU 20 NOV 2025 22:18:53  ** CTBMV                        ** GENERATED CODE                                   PAGE 00150
  4542  
  4543  int_4 _ctbmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ a_, int_4 _p_ 
  4544  lda_, complex_8 _p_ x_, int_4 _p_ incx_)
  4545  { // ** body not listed **
  4792  }
  4793  
  4794  // VIF  THU 20 NOV 2025 22:18:53  ** CTBSV                        ** CTBSV                                            PAGE 00155
  4795  
  4796  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  4797  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  4798  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  4799  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  4800  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  4801  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  4802  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  4803  
  4804  //                                        CCCCC  TTTTTTT BBBBBB   SSSSS  V     V
  4805  //                                       C     C    T    B     B S     S V     V
  4806  //                                       C          T    B     B S       V     V
  4807  //                                       C          T    BBBBBB   SSSSS  V     V
  4808  //                                       C          T    B     B       S  V   V
  4809  //                                       C     C    T    B     B S     S   V V
  4810  //                                        CCCCC     T    BBBBBB   SSSSS     V
  4811  
  4812  
  4813  // VIF  THU 20 NOV 2025 22:18:53  ** CTBSV                        ** DIAGNOSTICS                                      PAGE 00156
  4814  
  4815  
  4816  // VIF  THU 20 NOV 2025 22:18:53  ** CTBSV                        ** GENERATED CODE                                   PAGE 00157
  4817  
  4818  int_4 _ctbsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ a_, int_4 _p_ 
  4819  lda_, complex_8 _p_ x_, int_4 _p_ incx_)
  4820  { // ** body not listed **
  5067  }
  5068  
  5069  // VIF  THU 20 NOV 2025 22:18:53  ** CTPMV                        ** CTPMV                                            PAGE 00162
  5070  
  5071  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5072  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5073  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5074  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5075  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5076  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5077  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5078  
  5079  //                                        CCCCC  TTTTTTT PPPPPP  M     M V     V
  5080  //                                       C     C    T    P     P MM   MM V     V
  5081  //                                       C          T    P     P M M M M V     V
  5082  //                                       C          T    PPPPPP  M  M  M V     V
  5083  //                                       C          T    P       M     M  V   V
  5084  //                                       C     C    T    P       M     M   V V
  5085  //                                        CCCCC     T    P       M     M    V
  5086  
  5087  
  5088  // VIF  THU 20 NOV 2025 22:18:53  ** CTPMV                        ** DIAGNOSTICS                                      PAGE 00163
  5089  
  5090  
  5091  // VIF  THU 20 NOV 2025 22:18:53  ** CTPMV                        ** GENERATED CODE                                   PAGE 00164
  5092  
  5093  int_4 _ctpmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ ap_, complex_8 _p_ x_, int_4 
  5094  _p_ incx_)
  5095  { // ** body not listed **
  5337  }
  5338  
  5339  // VIF  THU 20 NOV 2025 22:18:53  ** CTPSV                        ** CTPSV                                            PAGE 00169
  5340  
  5341  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5342  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5343  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5344  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5345  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5346  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5347  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5348  
  5349  //                                        CCCCC  TTTTTTT PPPPPP   SSSSS  V     V
  5350  //                                       C     C    T    P     P S     S V     V
  5351  //                                       C          T    P     P S       V     V
  5352  //                                       C          T    PPPPPP   SSSSS  V     V
  5353  //                                       C          T    P             S  V   V
  5354  //                                       C     C    T    P       S     S   V V
  5355  //                                        CCCCC     T    P        SSSSS     V
  5356  
  5357  
  5358  // VIF  THU 20 NOV 2025 22:18:53  ** CTPSV                        ** DIAGNOSTICS                                      PAGE 00170
  5359  
  5360  
  5361  // VIF  THU 20 NOV 2025 22:18:53  ** CTPSV                        ** GENERATED CODE                                   PAGE 00171
  5362  
  5363  int_4 _ctpsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ ap_, complex_8 _p_ x_, int_4 
  5364  _p_ incx_)
  5365  { // ** body not listed **
  5607  }
  5608  
  5609  // VIF  THU 20 NOV 2025 22:18:53  ** CTRMM                        ** CTRMM                                            PAGE 00176
  5610  
  5611  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5612  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5613  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5614  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5615  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5616  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5617  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5618  
  5619  //                                        CCCCC  TTTTTTT RRRRRR  M     M M     M
  5620  //                                       C     C    T    R     R MM   MM MM   MM
  5621  //                                       C          T    R     R M M M M M M M M
  5622  //                                       C          T    RRRRRR  M  M  M M  M  M
  5623  //                                       C          T    R   R   M     M M     M
  5624  //                                       C     C    T    R    R  M     M M     M
  5625  //                                        CCCCC     T    R     R M     M M     M
  5626  
  5627  
  5628  // VIF  THU 20 NOV 2025 22:18:53  ** CTRMM                        ** DIAGNOSTICS                                      PAGE 00177
  5629  
  5630  
  5631  // VIF  THU 20 NOV 2025 22:18:53  ** CTRMM                        ** GENERATED CODE                                   PAGE 00178
  5632  
  5633  int_4 _ctrmm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, complex_8 
  5634  _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_)
  5635  { // ** body not listed **
  5904  }
  5905  
  5906  // VIF  THU 20 NOV 2025 22:18:53  ** CTRMV                        ** CTRMV                                            PAGE 00184
  5907  
  5908  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  5909  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  5910  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  5911  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  5912  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  5913  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  5914  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  5915  
  5916  //                                        CCCCC  TTTTTTT RRRRRR  M     M V     V
  5917  //                                       C     C    T    R     R MM   MM V     V
  5918  //                                       C          T    R     R M M M M V     V
  5919  //                                       C          T    RRRRRR  M  M  M V     V
  5920  //                                       C          T    R   R   M     M  V   V
  5921  //                                       C     C    T    R    R  M     M   V V
  5922  //                                        CCCCC     T    R     R M     M    V
  5923  
  5924  
  5925  // VIF  THU 20 NOV 2025 22:18:53  ** CTRMV                        ** DIAGNOSTICS                                      PAGE 00185
  5926  
  5927  
  5928  // VIF  THU 20 NOV 2025 22:18:53  ** CTRMV                        ** GENERATED CODE                                   PAGE 00186
  5929  
  5930  int_4 _ctrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, 
  5931  complex_8 _p_ x_, int_4 _p_ incx_)
  5932  { // ** body not listed **
  6156  }
  6157  
  6158  // VIF  THU 20 NOV 2025 22:18:53  ** CTRSM                        ** CTRSM                                            PAGE 00191
  6159  
  6160  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6161  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6162  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6163  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6164  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6165  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6166  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6167  
  6168  //                                        CCCCC  TTTTTTT RRRRRR   SSSSS  M     M
  6169  //                                       C     C    T    R     R S     S MM   MM
  6170  //                                       C          T    R     R S       M M M M
  6171  //                                       C          T    RRRRRR   SSSSS  M  M  M
  6172  //                                       C          T    R   R         S M     M
  6173  //                                       C     C    T    R    R  S     S M     M
  6174  //                                        CCCCC     T    R     R  SSSSS  M     M
  6175  
  6176  
  6177  // VIF  THU 20 NOV 2025 22:18:53  ** CTRSM                        ** DIAGNOSTICS                                      PAGE 00192
  6178  
  6179  
  6180  // VIF  THU 20 NOV 2025 22:18:53  ** CTRSM                        ** GENERATED CODE                                   PAGE 00193
  6181  
  6182  int_4 _ctrsm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, complex_8 
  6183  _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_)
  6184  { // ** body not listed **
  6469  }
  6470  
  6471  // VIF  THU 20 NOV 2025 22:18:53  ** CTRSV                        ** CTRSV                                            PAGE 00199
  6472  
  6473  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6474  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6475  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6476  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6477  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6478  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6479  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6480  
  6481  //                                        CCCCC  TTTTTTT RRRRRR   SSSSS  V     V
  6482  //                                       C     C    T    R     R S     S V     V
  6483  //                                       C          T    R     R S       V     V
  6484  //                                       C          T    RRRRRR   SSSSS  V     V
  6485  //                                       C          T    R   R         S  V   V
  6486  //                                       C     C    T    R    R  S     S   V V
  6487  //                                        CCCCC     T    R     R  SSSSS     V
  6488  
  6489  
  6490  // VIF  THU 20 NOV 2025 22:18:53  ** CTRSV                        ** DIAGNOSTICS                                      PAGE 00200
  6491  
  6492  
  6493  // VIF  THU 20 NOV 2025 22:18:53  ** CTRSV                        ** GENERATED CODE                                   PAGE 00201
  6494  
  6495  int_4 _ctrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, 
  6496  complex_8 _p_ x_, int_4 _p_ incx_)
  6497  { // ** body not listed **
  6721  }
  6722  
  6723  // VIF  THU 20 NOV 2025 22:18:53  ** DASUM                        ** DASUM                                            PAGE 00206
  6724  
  6725  //                                   RRRRRR  EEEEEEE    A    L                88888
  6726  //                                   R     R E         A A   L        *   *  8     8
  6727  //                                   R     R E        A   A  L         * *   8     8
  6728  //                                   RRRRRR  EEEEE   A     A L       *******  88888
  6729  //                                   R   R   E       AAAAAAA L         * *   8     8
  6730  //                                   R    R  E       A     A L        *   *  8     8
  6731  //                                   R     R EEEEEEE A     A LLLLLLL          88888
  6732  
  6733  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  6734  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  6735  //                           F       U     U N N   N C          T       I    O     O N N   N
  6736  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  6737  //                           F       U     U N   N N C          T       I    O     O N   N N
  6738  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  6739  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  6740  
  6741  //                                       DDDDDD     A     SSSSS  U     U M     M
  6742  //                                       D     D   A A   S     S U     U MM   MM
  6743  //                                       D     D  A   A  S       U     U M M M M
  6744  //                                       D     D A     A  SSSSS  U     U M  M  M
  6745  //                                       D     D AAAAAAA       S U     U M     M
  6746  //                                       D     D A     A S     S U     U M     M
  6747  //                                       DDDDDD  A     A  SSSSS   UUUUU  M     M
  6748  
  6749  
  6750  // VIF  THU 20 NOV 2025 22:18:53  ** DASUM                        ** DIAGNOSTICS                                      PAGE 00207
  6751  
  6752  
  6753  // VIF  THU 20 NOV 2025 22:18:53  ** DASUM                        ** GENERATED CODE                                   PAGE 00208
  6754  
  6755  real_8 _dasum (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_)
  6756  { // ** body not listed **
  6799  }
  6800  
  6801  // VIF  THU 20 NOV 2025 22:18:53  ** DAXPY                        ** DAXPY                                            PAGE 00209
  6802  
  6803  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6804  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6805  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6806  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6807  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6808  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6809  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6810  
  6811  //                                       DDDDDD     A    X     X PPPPPP  Y     Y
  6812  //                                       D     D   A A    X   X  P     P  Y   Y
  6813  //                                       D     D  A   A    X X   P     P   Y Y
  6814  //                                       D     D A     A    X    PPPPPP     Y
  6815  //                                       D     D AAAAAAA   X X   P          Y
  6816  //                                       D     D A     A  X   X  P          Y
  6817  //                                       DDDDDD  A     A X     X P          Y
  6818  
  6819  
  6820  // VIF  THU 20 NOV 2025 22:18:53  ** DAXPY                        ** DIAGNOSTICS                                      PAGE 00210
  6821  
  6822  
  6823  // VIF  THU 20 NOV 2025 22:18:53  ** DAXPY                        ** GENERATED CODE                                   PAGE 00211
  6824  
  6825  int_4 _daxpy (int_4 _p_ n_, real_8 _p_ da_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
  6826  { // ** body not listed **
  6874  }
  6875  // VIF  THU 20 NOV 2025 22:18:53  ** DAXPY                        ** GENERATED CODE                                   PAGE 00212
  6876  
  6877  
  6878  // VIF  THU 20 NOV 2025 22:18:53  ** DCABS1                       ** DCABS1                                           PAGE 00213
  6879  
  6880  //                                   RRRRRR  EEEEEEE    A    L                88888
  6881  //                                   R     R E         A A   L        *   *  8     8
  6882  //                                   R     R E        A   A  L         * *   8     8
  6883  //                                   RRRRRR  EEEEE   A     A L       *******  88888
  6884  //                                   R   R   E       AAAAAAA L         * *   8     8
  6885  //                                   R    R  E       A     A L        *   *  8     8
  6886  //                                   R     R EEEEEEE A     A LLLLLLL          88888
  6887  
  6888  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  6889  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  6890  //                           F       U     U N N   N C          T       I    O     O N N   N
  6891  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  6892  //                           F       U     U N   N N C          T       I    O     O N   N N
  6893  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  6894  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  6895  
  6896  //                                    DDDDDD   CCCCC     A    BBBBBB   SSSSS     1
  6897  //                                    D     D C     C   A A   B     B S     S   11
  6898  //                                    D     D C        A   A  B     B S        1 1
  6899  //                                    D     D C       A     A BBBBBB   SSSSS     1
  6900  //                                    D     D C       AAAAAAA B     B       S    1
  6901  //                                    D     D C     C A     A B     B S     S    1
  6902  //                                    DDDDDD   CCCCC  A     A BBBBBB   SSSSS   11111
  6903  
  6904  
  6905  // VIF  THU 20 NOV 2025 22:18:53  ** DCABS1                       ** DIAGNOSTICS                                      PAGE 00214
  6906  
  6907  
  6908  // VIF  THU 20 NOV 2025 22:18:53  ** DCABS1                       ** GENERATED CODE                                   PAGE 00215
  6909  
  6910  real_8 _dcabs1 (complex_16 _p_ z_)
  6911  { // ** body not listed **
  6919  }
  6920  
  6921  // VIF  THU 20 NOV 2025 22:18:53  ** DCOPY                        ** DCOPY                                            PAGE 00216
  6922  
  6923  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  6924  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  6925  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  6926  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  6927  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  6928  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  6929  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  6930  
  6931  //                                       DDDDDD   CCCCC   OOOOO  PPPPPP  Y     Y
  6932  //                                       D     D C     C O     O P     P  Y   Y
  6933  //                                       D     D C       O     O P     P   Y Y
  6934  //                                       D     D C       O     O PPPPPP     Y
  6935  //                                       D     D C       O     O P          Y
  6936  //                                       D     D C     C O     O P          Y
  6937  //                                       DDDDDD   CCCCC   OOOOO  P          Y
  6938  
  6939  
  6940  // VIF  THU 20 NOV 2025 22:18:53  ** DCOPY                        ** DIAGNOSTICS                                      PAGE 00217
  6941  
  6942  
  6943  // VIF  THU 20 NOV 2025 22:18:53  ** DCOPY                        ** GENERATED CODE                                   PAGE 00218
  6944  
  6945  int_4 _dcopy (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
  6946  { // ** body not listed **
  6994  }
  6995  // VIF  THU 20 NOV 2025 22:18:53  ** DCOPY                        ** GENERATED CODE                                   PAGE 00219
  6996  
  6997  
  6998  // VIF  THU 20 NOV 2025 22:18:53  ** DDOT                         ** DDOT                                             PAGE 00220
  6999  
  7000  //                                   RRRRRR  EEEEEEE    A    L                88888
  7001  //                                   R     R E         A A   L        *   *  8     8
  7002  //                                   R     R E        A   A  L         * *   8     8
  7003  //                                   RRRRRR  EEEEE   A     A L       *******  88888
  7004  //                                   R   R   E       AAAAAAA L         * *   8     8
  7005  //                                   R    R  E       A     A L        *   *  8     8
  7006  //                                   R     R EEEEEEE A     A LLLLLLL          88888
  7007  
  7008  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  7009  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  7010  //                           F       U     U N N   N C          T       I    O     O N N   N
  7011  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  7012  //                           F       U     U N   N N C          T       I    O     O N   N N
  7013  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  7014  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  7015  
  7016  //                                           DDDDDD  DDDDDD   OOOOO  TTTTTTT
  7017  //                                           D     D D     D O     O    T
  7018  //                                           D     D D     D O     O    T
  7019  //                                           D     D D     D O     O    T
  7020  //                                           D     D D     D O     O    T
  7021  //                                           D     D D     D O     O    T
  7022  //                                           DDDDDD  DDDDDD   OOOOO     T
  7023  
  7024  
  7025  // VIF  THU 20 NOV 2025 22:18:53  ** DDOT                         ** DIAGNOSTICS                                      PAGE 00221
  7026  
  7027  
  7028  // VIF  THU 20 NOV 2025 22:18:53  ** DDOT                         ** GENERATED CODE                                   PAGE 00222
  7029  
  7030  real_8 _ddot (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
  7031  { // ** body not listed **
  7083  }
  7084  
  7085  // VIF  THU 20 NOV 2025 22:18:53  ** DGBMV                        ** DGBMV                                            PAGE 00224
  7086  
  7087  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7088  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7089  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7090  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7091  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7092  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7093  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7094  
  7095  //                                       DDDDDD   GGGGG  BBBBBB  M     M V     V
  7096  //                                       D     D G     G B     B MM   MM V     V
  7097  //                                       D     D G       B     B M M M M V     V
  7098  //                                       D     D G  GGGG BBBBBB  M  M  M V     V
  7099  //                                       D     D G     G B     B M     M  V   V
  7100  //                                       D     D G     G B     B M     M   V V
  7101  //                                       DDDDDD   GGGGG  BBBBBB  M     M    V
  7102  
  7103  
  7104  // VIF  THU 20 NOV 2025 22:18:53  ** DGBMV                        ** DIAGNOSTICS                                      PAGE 00225
  7105  
  7106  
  7107  // VIF  THU 20 NOV 2025 22:18:53  ** DGBMV                        ** GENERATED CODE                                   PAGE 00226
  7108  
  7109  int_4 _dgbmv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, real_8 _p_ alpha_, real_8 _p_ 
  7110  a_, int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  7111  { // ** body not listed **
  7274  }
  7275  
  7276  // VIF  THU 20 NOV 2025 22:18:53  ** DGEMM                        ** DGEMM                                            PAGE 00230
  7277  
  7278  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7279  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7280  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7281  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7282  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7283  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7284  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7285  
  7286  //                                       DDDDDD   GGGGG  EEEEEEE M     M M     M
  7287  //                                       D     D G     G E       MM   MM MM   MM
  7288  //                                       D     D G       E       M M M M M M M M
  7289  //                                       D     D G  GGGG EEEEE   M  M  M M  M  M
  7290  //                                       D     D G     G E       M     M M     M
  7291  //                                       D     D G     G E       M     M M     M
  7292  //                                       DDDDDD   GGGGG  EEEEEEE M     M M     M
  7293  
  7294  
  7295  // VIF  THU 20 NOV 2025 22:18:53  ** DGEMM                        ** DIAGNOSTICS                                      PAGE 00231
  7296  
  7297  
  7298  // VIF  THU 20 NOV 2025 22:18:53  ** DGEMM                        ** GENERATED CODE                                   PAGE 00232
  7299  
  7300  int_4 _dgemm (char _p_ transa_, char _p_ transb_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ alpha_, real_8 
  7301  _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
  7302  { // ** body not listed **
  7465  }
  7466  
  7467  // VIF  THU 20 NOV 2025 22:18:53  ** DGEMV                        ** DGEMV                                            PAGE 00236
  7468  
  7469  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7470  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7471  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7472  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7473  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7474  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7475  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7476  
  7477  //                                       DDDDDD   GGGGG  EEEEEEE M     M V     V
  7478  //                                       D     D G     G E       MM   MM V     V
  7479  //                                       D     D G       E       M M M M V     V
  7480  //                                       D     D G  GGGG EEEEE   M  M  M V     V
  7481  //                                       D     D G     G E       M     M  V   V
  7482  //                                       D     D G     G E       M     M   V V
  7483  //                                       DDDDDD   GGGGG  EEEEEEE M     M    V
  7484  
  7485  
  7486  // VIF  THU 20 NOV 2025 22:18:53  ** DGEMV                        ** DIAGNOSTICS                                      PAGE 00237
  7487  
  7488  
  7489  // VIF  THU 20 NOV 2025 22:18:53  ** DGEMV                        ** GENERATED CODE                                   PAGE 00238
  7490  
  7491  int_4 _dgemv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ 
  7492  x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  7493  { // ** body not listed **
  7636  }
  7637  
  7638  // VIF  THU 20 NOV 2025 22:18:53  ** DGER                         ** DGER                                             PAGE 00241
  7639  
  7640  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7641  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7642  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7643  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7644  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7645  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7646  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7647  
  7648  //                                           DDDDDD   GGGGG  EEEEEEE RRRRRR
  7649  //                                           D     D G     G E       R     R
  7650  //                                           D     D G       E       R     R
  7651  //                                           D     D G  GGGG EEEEE   RRRRRR
  7652  //                                           D     D G     G E       R   R
  7653  //                                           D     D G     G E       R    R
  7654  //                                           DDDDDD   GGGGG  EEEEEEE R     R
  7655  
  7656  
  7657  // VIF  THU 20 NOV 2025 22:18:53  ** DGER                         ** DIAGNOSTICS                                      PAGE 00242
  7658  
  7659  
  7660  // VIF  THU 20 NOV 2025 22:18:53  ** DGER                         ** GENERATED CODE                                   PAGE 00243
  7661  
  7662  int_4 _dger (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ y_, int_4 _p_ 
  7663  incy_, real_8 _p_ a_, int_4 _p_ lda_)
  7664  { // ** body not listed **
  7733  }
  7734  
  7735  // VIF  THU 20 NOV 2025 22:18:53  ** DNRM2                        ** DNRM2                                            PAGE 00245
  7736  
  7737  //                                   RRRRRR  EEEEEEE    A    L                88888
  7738  //                                   R     R E         A A   L        *   *  8     8
  7739  //                                   R     R E        A   A  L         * *   8     8
  7740  //                                   RRRRRR  EEEEE   A     A L       *******  88888
  7741  //                                   R   R   E       AAAAAAA L         * *   8     8
  7742  //                                   R    R  E       A     A L        *   *  8     8
  7743  //                                   R     R EEEEEEE A     A LLLLLLL          88888
  7744  
  7745  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  7746  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  7747  //                           F       U     U N N   N C          T       I    O     O N N   N
  7748  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  7749  //                           F       U     U N   N N C          T       I    O     O N   N N
  7750  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  7751  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  7752  
  7753  //                                       DDDDDD  N     N RRRRRR  M     M  22222
  7754  //                                       D     D NN    N R     R MM   MM 2     2
  7755  //                                       D     D N N   N R     R M M M M       2
  7756  //                                       D     D N  N  N RRRRRR  M  M  M  22222
  7757  //                                       D     D N   N N R   R   M     M 2
  7758  //                                       D     D N    NN R    R  M     M 2
  7759  //                                       DDDDDD  N     N R     R M     M 2222222
  7760  
  7761  
  7762  // VIF  THU 20 NOV 2025 22:18:53  ** DNRM2                        ** DIAGNOSTICS                                      PAGE 00246
  7763  
  7764  
  7765  // VIF  THU 20 NOV 2025 22:18:53  ** DNRM2                        ** GENERATED CODE                                   PAGE 00247
  7766  
  7767  real_8 _dnrm2 (int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ incx_)
  7768  { // ** body not listed **
  7802  }
  7803  
  7804  // VIF  THU 20 NOV 2025 22:18:53  ** DROT                         ** DROT                                             PAGE 00248
  7805  
  7806  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7807  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7808  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7809  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7810  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7811  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7812  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7813  
  7814  //                                           DDDDDD  RRRRRR   OOOOO  TTTTTTT
  7815  //                                           D     D R     R O     O    T
  7816  //                                           D     D R     R O     O    T
  7817  //                                           D     D RRRRRR  O     O    T
  7818  //                                           D     D R   R   O     O    T
  7819  //                                           D     D R    R  O     O    T
  7820  //                                           DDDDDD  R     R  OOOOO     T
  7821  
  7822  
  7823  // VIF  THU 20 NOV 2025 22:18:53  ** DROT                         ** DIAGNOSTICS                                      PAGE 00249
  7824  
  7825  
  7826  // VIF  THU 20 NOV 2025 22:18:53  ** DROT                         ** GENERATED CODE                                   PAGE 00250
  7827  
  7828  int_4 _drot (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_, real_8 _p_ c_, real_8 _p_ 
  7829  s_)
  7830  { // ** body not listed **
  7864  }
  7865  
  7866  // VIF  THU 20 NOV 2025 22:18:53  ** DROTG                        ** DROTG                                            PAGE 00251
  7867  
  7868  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7869  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7870  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7871  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7872  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7873  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7874  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7875  
  7876  //                                       DDDDDD  RRRRRR   OOOOO  TTTTTTT  GGGGG
  7877  //                                       D     D R     R O     O    T    G     G
  7878  //                                       D     D R     R O     O    T    G
  7879  //                                       D     D RRRRRR  O     O    T    G  GGGG
  7880  //                                       D     D R   R   O     O    T    G     G
  7881  //                                       D     D R    R  O     O    T    G     G
  7882  //                                       DDDDDD  R     R  OOOOO     T     GGGGG
  7883  
  7884  
  7885  // VIF  THU 20 NOV 2025 22:18:53  ** DROTG                        ** DIAGNOSTICS                                      PAGE 00252
  7886  
  7887  
  7888  // VIF  THU 20 NOV 2025 22:18:53  ** DROTG                        ** GENERATED CODE                                   PAGE 00253
  7889  
  7890  int_4 _drotg (real_8 _p_ da_, real_8 _p_ db_, real_8 _p_ c_, real_8 _p_ s_)
  7891  { // ** body not listed **
  7930  }
  7931  
  7932  // VIF  THU 20 NOV 2025 22:18:53  ** DROTM                        ** DROTM                                            PAGE 00254
  7933  
  7934  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  7935  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  7936  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  7937  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  7938  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  7939  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  7940  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  7941  
  7942  //                                       DDDDDD  RRRRRR   OOOOO  TTTTTTT M     M
  7943  //                                       D     D R     R O     O    T    MM   MM
  7944  //                                       D     D R     R O     O    T    M M M M
  7945  //                                       D     D RRRRRR  O     O    T    M  M  M
  7946  //                                       D     D R   R   O     O    T    M     M
  7947  //                                       D     D R    R  O     O    T    M     M
  7948  //                                       DDDDDD  R     R  OOOOO     T    M     M
  7949  
  7950  
  7951  // VIF  THU 20 NOV 2025 22:18:53  ** DROTM                        ** DIAGNOSTICS                                      PAGE 00255
  7952  
  7953  
  7954  // VIF  THU 20 NOV 2025 22:18:53  ** DROTM                        ** GENERATED CODE                                   PAGE 00256
  7955  
  7956  int_4 _drotm (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_, real_8 _p_ dparam_)
  7957  { // ** body not listed **
  8089  }
  8090  
  8091  // VIF  THU 20 NOV 2025 22:18:53  ** DROTMG                       ** DROTMG                                           PAGE 00259
  8092  
  8093  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8094  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8095  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8096  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8097  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8098  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8099  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8100  
  8101  //                                   DDDDDD  RRRRRR   OOOOO  TTTTTTT M     M  GGGGG
  8102  //                                   D     D R     R O     O    T    MM   MM G     G
  8103  //                                   D     D R     R O     O    T    M M M M G
  8104  //                                   D     D RRRRRR  O     O    T    M  M  M G  GGGG
  8105  //                                   D     D R   R   O     O    T    M     M G     G
  8106  //                                   D     D R    R  O     O    T    M     M G     G
  8107  //                                   DDDDDD  R     R  OOOOO     T    M     M  GGGGG
  8108  
  8109  
  8110  // VIF  THU 20 NOV 2025 22:18:53  ** DROTMG                       ** DIAGNOSTICS                                      PAGE 00260
  8111  
  8112  
  8113  // VIF  THU 20 NOV 2025 22:18:53  ** DROTMG                       ** GENERATED CODE                                   PAGE 00261
  8114  
  8115  int_4 _drotmg (real_8 _p_ dd1_, real_8 _p_ dd2_, real_8 _p_ dx1_, real_8 _p_ dy1_, real_8 _p_ dparam_)
  8116  { // ** body not listed **
  8341  }
  8342  
  8343  // VIF  THU 20 NOV 2025 22:18:53  ** DSBMV                        ** DSBMV                                            PAGE 00266
  8344  
  8345  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8346  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8347  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8348  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8349  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8350  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8351  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8352  
  8353  //                                       DDDDDD   SSSSS  BBBBBB  M     M V     V
  8354  //                                       D     D S     S B     B MM   MM V     V
  8355  //                                       D     D S       B     B M M M M V     V
  8356  //                                       D     D  SSSSS  BBBBBB  M  M  M V     V
  8357  //                                       D     D       S B     B M     M  V   V
  8358  //                                       D     D S     S B     B M     M   V V
  8359  //                                       DDDDDD   SSSSS  BBBBBB  M     M    V
  8360  
  8361  
  8362  // VIF  THU 20 NOV 2025 22:18:53  ** DSBMV                        ** DIAGNOSTICS                                      PAGE 00267
  8363  
  8364  
  8365  // VIF  THU 20 NOV 2025 22:18:53  ** DSBMV                        ** GENERATED CODE                                   PAGE 00268
  8366  
  8367  int_4 _dsbmv (char _p_ uplo_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ 
  8368  x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  8369  { // ** body not listed **
  8530  }
  8531  
  8532  // VIF  THU 20 NOV 2025 22:18:53  ** DSCAL                        ** DSCAL                                            PAGE 00272
  8533  
  8534  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8535  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8536  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8537  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8538  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8539  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8540  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8541  
  8542  //                                       DDDDDD   SSSSS   CCCCC     A    L
  8543  //                                       D     D S     S C     C   A A   L
  8544  //                                       D     D S       C        A   A  L
  8545  //                                       D     D  SSSSS  C       A     A L
  8546  //                                       D     D       S C       AAAAAAA L
  8547  //                                       D     D S     S C     C A     A L
  8548  //                                       DDDDDD   SSSSS   CCCCC  A     A LLLLLLL
  8549  
  8550  
  8551  // VIF  THU 20 NOV 2025 22:18:53  ** DSCAL                        ** DIAGNOSTICS                                      PAGE 00273
  8552  
  8553  
  8554  // VIF  THU 20 NOV 2025 22:18:53  ** DSCAL                        ** GENERATED CODE                                   PAGE 00274
  8555  
  8556  int_4 _dscal (int_4 _p_ n_, real_8 _p_ da_, real_8 _p_ dx_, int_4 _p_ incx_)
  8557  { // ** body not listed **
  8594  }
  8595  
  8596  // VIF  THU 20 NOV 2025 22:18:53  ** DSDOT                        ** DSDOT                                            PAGE 00275
  8597  
  8598  //                                   RRRRRR  EEEEEEE    A    L                88888
  8599  //                                   R     R E         A A   L        *   *  8     8
  8600  //                                   R     R E        A   A  L         * *   8     8
  8601  //                                   RRRRRR  EEEEE   A     A L       *******  88888
  8602  //                                   R   R   E       AAAAAAA L         * *   8     8
  8603  //                                   R    R  E       A     A L        *   *  8     8
  8604  //                                   R     R EEEEEEE A     A LLLLLLL          88888
  8605  
  8606  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
  8607  //                           F       U     U NN    N C     C    T       I    O     O NN    N
  8608  //                           F       U     U N N   N C          T       I    O     O N N   N
  8609  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
  8610  //                           F       U     U N   N N C          T       I    O     O N   N N
  8611  //                           F       U     U N    NN C     C    T       I    O     O N    NN
  8612  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
  8613  
  8614  //                                       DDDDDD   SSSSS  DDDDDD   OOOOO  TTTTTTT
  8615  //                                       D     D S     S D     D O     O    T
  8616  //                                       D     D S       D     D O     O    T
  8617  //                                       D     D  SSSSS  D     D O     O    T
  8618  //                                       D     D       S D     D O     O    T
  8619  //                                       D     D S     S D     D O     O    T
  8620  //                                       DDDDDD   SSSSS  DDDDDD   OOOOO     T
  8621  
  8622  
  8623  // VIF  THU 20 NOV 2025 22:18:53  ** DSDOT                        ** DIAGNOSTICS                                      PAGE 00276
  8624  
  8625  
  8626  // VIF  THU 20 NOV 2025 22:18:53  ** DSDOT                        ** GENERATED CODE                                   PAGE 00277
  8627  
  8628  real_8 _dsdot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
  8629  { // ** body not listed **
  8662  }
  8663  
  8664  // VIF  THU 20 NOV 2025 22:18:53  ** DSPMV                        ** DSPMV                                            PAGE 00278
  8665  
  8666  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8667  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8668  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8669  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8670  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8671  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8672  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8673  
  8674  //                                       DDDDDD   SSSSS  PPPPPP  M     M V     V
  8675  //                                       D     D S     S P     P MM   MM V     V
  8676  //                                       D     D S       P     P M M M M V     V
  8677  //                                       D     D  SSSSS  PPPPPP  M  M  M V     V
  8678  //                                       D     D       S P       M     M  V   V
  8679  //                                       D     D S     S P       M     M   V V
  8680  //                                       DDDDDD   SSSSS  P       M     M    V
  8681  
  8682  
  8683  // VIF  THU 20 NOV 2025 22:18:53  ** DSPMV                        ** DIAGNOSTICS                                      PAGE 00279
  8684  
  8685  
  8686  // VIF  THU 20 NOV 2025 22:18:53  ** DSPMV                        ** GENERATED CODE                                   PAGE 00280
  8687  
  8688  int_4 _dspmv (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ ap_, real_8 _p_ x_, int_4 _p_ incx_, real_8 
  8689  _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  8690  { // ** body not listed **
  8841  }
  8842  // VIF  THU 20 NOV 2025 22:18:53  ** DSPMV                        ** GENERATED CODE                                   PAGE 00283
  8843  
  8844  
  8845  // VIF  THU 20 NOV 2025 22:18:53  ** DSPR2                        ** DSPR2                                            PAGE 00284
  8846  
  8847  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8848  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8849  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8850  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8851  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8852  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8853  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8854  
  8855  //                                       DDDDDD   SSSSS  PPPPPP  RRRRRR   22222
  8856  //                                       D     D S     S P     P R     R 2     2
  8857  //                                       D     D S       P     P R     R       2
  8858  //                                       D     D  SSSSS  PPPPPP  RRRRRR   22222
  8859  //                                       D     D       S P       R   R   2
  8860  //                                       D     D S     S P       R    R  2
  8861  //                                       DDDDDD   SSSSS  P       R     R 2222222
  8862  
  8863  
  8864  // VIF  THU 20 NOV 2025 22:18:53  ** DSPR2                        ** DIAGNOSTICS                                      PAGE 00285
  8865  
  8866  
  8867  // VIF  THU 20 NOV 2025 22:18:53  ** DSPR2                        ** GENERATED CODE                                   PAGE 00286
  8868  
  8869  int_4 _dspr2 (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ y_, int_4 _p_ 
  8870  incy_, real_8 _p_ ap_)
  8871  { // ** body not listed **
  8988  }
  8989  
  8990  // VIF  THU 20 NOV 2025 22:18:53  ** DSPR                         ** DSPR                                             PAGE 00289
  8991  
  8992  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  8993  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  8994  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  8995  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  8996  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  8997  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  8998  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  8999  
  9000  //                                           DDDDDD   SSSSS  PPPPPP  RRRRRR
  9001  //                                           D     D S     S P     P R     R
  9002  //                                           D     D S       P     P R     R
  9003  //                                           D     D  SSSSS  PPPPPP  RRRRRR
  9004  //                                           D     D       S P       R   R
  9005  //                                           D     D S     S P       R    R
  9006  //                                           DDDDDD   SSSSS  P       R     R
  9007  
  9008  
  9009  // VIF  THU 20 NOV 2025 22:18:53  ** DSPR                         ** DIAGNOSTICS                                      PAGE 00290
  9010  
  9011  
  9012  // VIF  THU 20 NOV 2025 22:18:53  ** DSPR                         ** GENERATED CODE                                   PAGE 00291
  9013  
  9014  int_4 _dspr (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ ap_)
  9015  { // ** body not listed **
  9109  }
  9110  
  9111  // VIF  THU 20 NOV 2025 22:18:53  ** DSWAP                        ** DSWAP                                            PAGE 00293
  9112  
  9113  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9114  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9115  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9116  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9117  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9118  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9119  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9120  
  9121  //                                       DDDDDD   SSSSS  W     W    A    PPPPPP
  9122  //                                       D     D S     S W     W   A A   P     P
  9123  //                                       D     D S       W     W  A   A  P     P
  9124  //                                       D     D  SSSSS  W  W  W A     A PPPPPP
  9125  //                                       D     D       S W  W  W AAAAAAA P
  9126  //                                       D     D S     S W  W  W A     A P
  9127  //                                       DDDDDD   SSSSS   WW WW  A     A P
  9128  
  9129  
  9130  // VIF  THU 20 NOV 2025 22:18:53  ** DSWAP                        ** DIAGNOSTICS                                      PAGE 00294
  9131  
  9132  
  9133  // VIF  THU 20 NOV 2025 22:18:53  ** DSWAP                        ** GENERATED CODE                                   PAGE 00295
  9134  
  9135  int_4 _dswap (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
  9136  { // ** body not listed **
  9193  }
  9194  
  9195  // VIF  THU 20 NOV 2025 22:18:53  ** DSYMM                        ** DSYMM                                            PAGE 00297
  9196  
  9197  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9198  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9199  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9200  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9201  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9202  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9203  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9204  
  9205  //                                       DDDDDD   SSSSS  Y     Y M     M M     M
  9206  //                                       D     D S     S  Y   Y  MM   MM MM   MM
  9207  //                                       D     D S         Y Y   M M M M M M M M
  9208  //                                       D     D  SSSSS     Y    M  M  M M  M  M
  9209  //                                       D     D       S    Y    M     M M     M
  9210  //                                       D     D S     S    Y    M     M M     M
  9211  //                                       DDDDDD   SSSSS     Y    M     M M     M
  9212  
  9213  
  9214  // VIF  THU 20 NOV 2025 22:18:53  ** DSYMM                        ** DIAGNOSTICS                                      PAGE 00298
  9215  
  9216  
  9217  // VIF  THU 20 NOV 2025 22:18:53  ** DSYMM                        ** GENERATED CODE                                   PAGE 00299
  9218  
  9219  int_4 _dsymm (char _p_ side_, char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ 
  9220  lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
  9221  { // ** body not listed **
  9370  }
  9371  
  9372  // VIF  THU 20 NOV 2025 22:18:53  ** DSYMV                        ** DSYMV                                            PAGE 00302
  9373  
  9374  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9375  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9376  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9377  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9378  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9379  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9380  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9381  
  9382  //                                       DDDDDD   SSSSS  Y     Y M     M V     V
  9383  //                                       D     D S     S  Y   Y  MM   MM V     V
  9384  //                                       D     D S         Y Y   M M M M V     V
  9385  //                                       D     D  SSSSS     Y    M  M  M V     V
  9386  //                                       D     D       S    Y    M     M  V   V
  9387  //                                       D     D S     S    Y    M     M   V V
  9388  //                                       DDDDDD   SSSSS     Y    M     M    V
  9389  
  9390  
  9391  // VIF  THU 20 NOV 2025 22:18:53  ** DSYMV                        ** DIAGNOSTICS                                      PAGE 00303
  9392  
  9393  
  9394  // VIF  THU 20 NOV 2025 22:18:53  ** DSYMV                        ** GENERATED CODE                                   PAGE 00304
  9395  
  9396  int_4 _dsymv (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ 
  9397  incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  9398  { // ** body not listed **
  9544  }
  9545  
  9546  // VIF  THU 20 NOV 2025 22:18:53  ** DSYR2                        ** DSYR2                                            PAGE 00307
  9547  
  9548  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9549  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9550  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9551  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9552  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9553  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9554  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9555  
  9556  //                                       DDDDDD   SSSSS  Y     Y RRRRRR   22222
  9557  //                                       D     D S     S  Y   Y  R     R 2     2
  9558  //                                       D     D S         Y Y   R     R       2
  9559  //                                       D     D  SSSSS     Y    RRRRRR   22222
  9560  //                                       D     D       S    Y    R   R   2
  9561  //                                       D     D S     S    Y    R    R  2
  9562  //                                       DDDDDD   SSSSS     Y    R     R 2222222
  9563  
  9564  
  9565  // VIF  THU 20 NOV 2025 22:18:53  ** DSYR2                        ** DIAGNOSTICS                                      PAGE 00308
  9566  
  9567  
  9568  // VIF  THU 20 NOV 2025 22:18:53  ** DSYR2                        ** GENERATED CODE                                   PAGE 00309
  9569  
  9570  int_4 _dsyr2 (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ y_, int_4 _p_ 
  9571  incy_, real_8 _p_ a_, int_4 _p_ lda_)
  9572  { // ** body not listed **
  9686  }
  9687  
  9688  // VIF  THU 20 NOV 2025 22:18:53  ** DSYR2K                       ** DSYR2K                                           PAGE 00312
  9689  
  9690  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9691  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9692  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9693  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9694  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9695  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9696  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9697  
  9698  //                                    DDDDDD   SSSSS  Y     Y RRRRRR   22222  K    K
  9699  //                                    D     D S     S  Y   Y  R     R 2     2 K   K
  9700  //                                    D     D S         Y Y   R     R       2 K  K
  9701  //                                    D     D  SSSSS     Y    RRRRRR   22222  KKK
  9702  //                                    D     D       S    Y    R   R   2       K  K
  9703  //                                    D     D S     S    Y    R    R  2       K   K
  9704  //                                    DDDDDD   SSSSS     Y    R     R 2222222 K    K
  9705  
  9706  
  9707  // VIF  THU 20 NOV 2025 22:18:53  ** DSYR2K                       ** DIAGNOSTICS                                      PAGE 00313
  9708  
  9709  
  9710  // VIF  THU 20 NOV 2025 22:18:53  ** DSYR2K                       ** GENERATED CODE                                   PAGE 00314
  9711  
  9712  int_4 _dsyr2k (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ 
  9713  lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
  9714  { // ** body not listed **
  9891  }
  9892  
  9893  // VIF  THU 20 NOV 2025 22:18:53  ** DSYR                         ** DSYR                                             PAGE 00318
  9894  
  9895  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
  9896  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
  9897  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
  9898  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
  9899  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
  9900  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
  9901  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
  9902  
  9903  //                                           DDDDDD   SSSSS  Y     Y RRRRRR
  9904  //                                           D     D S     S  Y   Y  R     R
  9905  //                                           D     D S         Y Y   R     R
  9906  //                                           D     D  SSSSS     Y    RRRRRR
  9907  //                                           D     D       S    Y    R   R
  9908  //                                           D     D S     S    Y    R    R
  9909  //                                           DDDDDD   SSSSS     Y    R     R
  9910  
  9911  
  9912  // VIF  THU 20 NOV 2025 22:18:53  ** DSYR                         ** DIAGNOSTICS                                      PAGE 00319
  9913  
  9914  
  9915  // VIF  THU 20 NOV 2025 22:18:53  ** DSYR                         ** GENERATED CODE                                   PAGE 00320
  9916  
  9917  int_4 _dsyr (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ a_, int_4 _p_ 
  9918  lda_)
  9919  { // ** body not listed **
 10008  }
 10009  
 10010  // VIF  THU 20 NOV 2025 22:18:53  ** DSYRK                        ** DSYRK                                            PAGE 00322
 10011  
 10012  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10013  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10014  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10015  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10016  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10017  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10018  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10019  
 10020  //                                        DDDDDD   SSSSS  Y     Y RRRRRR  K    K
 10021  //                                        D     D S     S  Y   Y  R     R K   K
 10022  //                                        D     D S         Y Y   R     R K  K
 10023  //                                        D     D  SSSSS     Y    RRRRRR  KKK
 10024  //                                        D     D       S    Y    R   R   K  K
 10025  //                                        D     D S     S    Y    R    R  K   K
 10026  //                                        DDDDDD   SSSSS     Y    R     R K    K
 10027  
 10028  
 10029  // VIF  THU 20 NOV 2025 22:18:53  ** DSYRK                        ** DIAGNOSTICS                                      PAGE 00323
 10030  
 10031  
 10032  // VIF  THU 20 NOV 2025 22:18:53  ** DSYRK                        ** GENERATED CODE                                   PAGE 00324
 10033  
 10034  int_4 _dsyrk (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ 
 10035  lda_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
 10036  { // ** body not listed **
 10202  }
 10203  
 10204  // VIF  THU 20 NOV 2025 22:18:53  ** DTBMV                        ** DTBMV                                            PAGE 00328
 10205  
 10206  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10207  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10208  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10209  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10210  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10211  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10212  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10213  
 10214  //                                       DDDDDD  TTTTTTT BBBBBB  M     M V     V
 10215  //                                       D     D    T    B     B MM   MM V     V
 10216  //                                       D     D    T    B     B M M M M V     V
 10217  //                                       D     D    T    BBBBBB  M  M  M V     V
 10218  //                                       D     D    T    B     B M     M  V   V
 10219  //                                       D     D    T    B     B M     M   V V
 10220  //                                       DDDDDD     T    BBBBBB  M     M    V
 10221  
 10222  
 10223  // VIF  THU 20 NOV 2025 22:18:53  ** DTBMV                        ** DIAGNOSTICS                                      PAGE 00329
 10224  
 10225  
 10226  // VIF  THU 20 NOV 2025 22:18:53  ** DTBMV                        ** GENERATED CODE                                   PAGE 00330
 10227  
 10228  int_4 _dtbmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ 
 10229  lda_, real_8 _p_ x_, int_4 _p_ incx_)
 10230  { // ** body not listed **
 10431  }
 10432  
 10433  // VIF  THU 20 NOV 2025 22:18:53  ** DTBSV                        ** DTBSV                                            PAGE 00334
 10434  
 10435  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10436  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10437  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10438  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10439  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10440  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10441  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10442  
 10443  //                                       DDDDDD  TTTTTTT BBBBBB   SSSSS  V     V
 10444  //                                       D     D    T    B     B S     S V     V
 10445  //                                       D     D    T    B     B S       V     V
 10446  //                                       D     D    T    BBBBBB   SSSSS  V     V
 10447  //                                       D     D    T    B     B       S  V   V
 10448  //                                       D     D    T    B     B S     S   V V
 10449  //                                       DDDDDD     T    BBBBBB   SSSSS     V
 10450  
 10451  
 10452  // VIF  THU 20 NOV 2025 22:18:53  ** DTBSV                        ** DIAGNOSTICS                                      PAGE 00335
 10453  
 10454  
 10455  // VIF  THU 20 NOV 2025 22:18:53  ** DTBSV                        ** GENERATED CODE                                   PAGE 00336
 10456  
 10457  int_4 _dtbsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ a_, int_4 _p_ 
 10458  lda_, real_8 _p_ x_, int_4 _p_ incx_)
 10459  { // ** body not listed **
 10660  }
 10661  
 10662  // VIF  THU 20 NOV 2025 22:18:53  ** DTPMV                        ** DTPMV                                            PAGE 00340
 10663  
 10664  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10665  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10666  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10667  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10668  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10669  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10670  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10671  
 10672  //                                       DDDDDD  TTTTTTT PPPPPP  M     M V     V
 10673  //                                       D     D    T    P     P MM   MM V     V
 10674  //                                       D     D    T    P     P M M M M V     V
 10675  //                                       D     D    T    PPPPPP  M  M  M V     V
 10676  //                                       D     D    T    P       M     M  V   V
 10677  //                                       D     D    T    P       M     M   V V
 10678  //                                       DDDDDD     T    P       M     M    V
 10679  
 10680  
 10681  // VIF  THU 20 NOV 2025 22:18:53  ** DTPMV                        ** DIAGNOSTICS                                      PAGE 00341
 10682  
 10683  
 10684  // VIF  THU 20 NOV 2025 22:18:53  ** DTPMV                        ** GENERATED CODE                                   PAGE 00342
 10685  
 10686  int_4 _dtpmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_8 _p_ ap_, real_8 _p_ x_, int_4 _p_ 
 10687  incx_)
 10688  { // ** body not listed **
 10882  }
 10883  
 10884  // VIF  THU 20 NOV 2025 22:18:53  ** DTPSV                        ** DTPSV                                            PAGE 00346
 10885  
 10886  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 10887  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 10888  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 10889  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 10890  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 10891  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 10892  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 10893  
 10894  //                                       DDDDDD  TTTTTTT PPPPPP   SSSSS  V     V
 10895  //                                       D     D    T    P     P S     S V     V
 10896  //                                       D     D    T    P     P S       V     V
 10897  //                                       D     D    T    PPPPPP   SSSSS  V     V
 10898  //                                       D     D    T    P             S  V   V
 10899  //                                       D     D    T    P       S     S   V V
 10900  //                                       DDDDDD     T    P        SSSSS     V
 10901  
 10902  
 10903  // VIF  THU 20 NOV 2025 22:18:53  ** DTPSV                        ** DIAGNOSTICS                                      PAGE 00347
 10904  
 10905  
 10906  // VIF  THU 20 NOV 2025 22:18:53  ** DTPSV                        ** GENERATED CODE                                   PAGE 00348
 10907  
 10908  int_4 _dtpsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_8 _p_ ap_, real_8 _p_ x_, int_4 _p_ 
 10909  incx_)
 10910  { // ** body not listed **
 11104  }
 11105  
 11106  // VIF  THU 20 NOV 2025 22:18:53  ** DTRMM                        ** DTRMM                                            PAGE 00352
 11107  
 11108  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11109  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11110  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11111  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11112  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11113  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11114  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11115  
 11116  //                                       DDDDDD  TTTTTTT RRRRRR  M     M M     M
 11117  //                                       D     D    T    R     R MM   MM MM   MM
 11118  //                                       D     D    T    R     R M M M M M M M M
 11119  //                                       D     D    T    RRRRRR  M  M  M M  M  M
 11120  //                                       D     D    T    R   R   M     M M     M
 11121  //                                       D     D    T    R    R  M     M M     M
 11122  //                                       DDDDDD     T    R     R M     M M     M
 11123  
 11124  
 11125  // VIF  THU 20 NOV 2025 22:18:53  ** DTRMM                        ** DIAGNOSTICS                                      PAGE 00353
 11126  
 11127  
 11128  // VIF  THU 20 NOV 2025 22:18:53  ** DTRMM                        ** GENERATED CODE                                   PAGE 00354
 11129  
 11130  int_4 _dtrmm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ 
 11131  alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_)
 11132  { // ** body not listed **
 11357  }
 11358  
 11359  // VIF  THU 20 NOV 2025 22:18:53  ** DTRMV                        ** DTRMV                                            PAGE 00359
 11360  
 11361  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11362  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11363  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11364  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11365  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11366  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11367  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11368  
 11369  //                                       DDDDDD  TTTTTTT RRRRRR  M     M V     V
 11370  //                                       D     D    T    R     R MM   MM V     V
 11371  //                                       D     D    T    R     R M M M M V     V
 11372  //                                       D     D    T    RRRRRR  M  M  M V     V
 11373  //                                       D     D    T    R   R   M     M  V   V
 11374  //                                       D     D    T    R    R  M     M   V V
 11375  //                                       DDDDDD     T    R     R M     M    V
 11376  
 11377  
 11378  // VIF  THU 20 NOV 2025 22:18:53  ** DTRMV                        ** DIAGNOSTICS                                      PAGE 00360
 11379  
 11380  
 11381  // VIF  THU 20 NOV 2025 22:18:53  ** DTRMV                        ** GENERATED CODE                                   PAGE 00361
 11382  
 11383  int_4 _dtrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ 
 11384  x_, int_4 _p_ incx_)
 11385  { // ** body not listed **
 11563  }
 11564  
 11565  // VIF  THU 20 NOV 2025 22:18:53  ** DTRSM                        ** DTRSM                                            PAGE 00365
 11566  
 11567  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11568  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11569  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11570  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11571  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11572  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11573  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11574  
 11575  //                                       DDDDDD  TTTTTTT RRRRRR   SSSSS  M     M
 11576  //                                       D     D    T    R     R S     S MM   MM
 11577  //                                       D     D    T    R     R S       M M M M
 11578  //                                       D     D    T    RRRRRR   SSSSS  M  M  M
 11579  //                                       D     D    T    R   R         S M     M
 11580  //                                       D     D    T    R    R  S     S M     M
 11581  //                                       DDDDDD     T    R     R  SSSSS  M     M
 11582  
 11583  
 11584  // VIF  THU 20 NOV 2025 22:18:53  ** DTRSM                        ** DIAGNOSTICS                                      PAGE 00366
 11585  
 11586  
 11587  // VIF  THU 20 NOV 2025 22:18:53  ** DTRSM                        ** GENERATED CODE                                   PAGE 00367
 11588  
 11589  int_4 _dtrsm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ 
 11590  alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_)
 11591  { // ** body not listed **
 11832  }
 11833  
 11834  // VIF  THU 20 NOV 2025 22:18:53  ** DTRSV                        ** DTRSV                                            PAGE 00372
 11835  
 11836  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 11837  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 11838  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 11839  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 11840  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 11841  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 11842  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 11843  
 11844  //                                       DDDDDD  TTTTTTT RRRRRR   SSSSS  V     V
 11845  //                                       D     D    T    R     R S     S V     V
 11846  //                                       D     D    T    R     R S       V     V
 11847  //                                       D     D    T    RRRRRR   SSSSS  V     V
 11848  //                                       D     D    T    R   R         S  V   V
 11849  //                                       D     D    T    R    R  S     S   V V
 11850  //                                       DDDDDD     T    R     R  SSSSS     V
 11851  
 11852  
 11853  // VIF  THU 20 NOV 2025 22:18:53  ** DTRSV                        ** DIAGNOSTICS                                      PAGE 00373
 11854  
 11855  
 11856  // VIF  THU 20 NOV 2025 22:18:53  ** DTRSV                        ** GENERATED CODE                                   PAGE 00374
 11857  
 11858  int_4 _dtrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ 
 11859  x_, int_4 _p_ incx_)
 11860  { // ** body not listed **
 12038  }
 12039  
 12040  // VIF  THU 20 NOV 2025 22:18:53  ** DZASUM                       ** DZASUM                                           PAGE 00378
 12041  
 12042  //                                   RRRRRR  EEEEEEE    A    L                88888
 12043  //                                   R     R E         A A   L        *   *  8     8
 12044  //                                   R     R E        A   A  L         * *   8     8
 12045  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 12046  //                                   R   R   E       AAAAAAA L         * *   8     8
 12047  //                                   R    R  E       A     A L        *   *  8     8
 12048  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 12049  
 12050  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12051  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12052  //                           F       U     U N N   N C          T       I    O     O N N   N
 12053  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12054  //                           F       U     U N   N N C          T       I    O     O N   N N
 12055  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12056  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12057  
 12058  //                                   DDDDDD  ZZZZZZZ    A     SSSSS  U     U M     M
 12059  //                                   D     D      Z    A A   S     S U     U MM   MM
 12060  //                                   D     D     Z    A   A  S       U     U M M M M
 12061  //                                   D     D    Z    A     A  SSSSS  U     U M  M  M
 12062  //                                   D     D   Z     AAAAAAA       S U     U M     M
 12063  //                                   D     D  *      A     A S     S U     U M     M
 12064  //                                   DDDDDD  ZZZZZZZ A     A  SSSSS   UUUUU  M     M
 12065  
 12066  
 12067  // VIF  THU 20 NOV 2025 22:18:53  ** DZASUM                       ** DIAGNOSTICS                                      PAGE 00379
 12068  
 12069  
 12070  // VIF  THU 20 NOV 2025 22:18:53  ** DZASUM                       ** GENERATED CODE                                   PAGE 00380
 12071  
 12072  real_8 _dzasum (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_)
 12073  { // ** body not listed **
 12100  }
 12101  
 12102  // VIF  THU 20 NOV 2025 22:18:53  ** DZNRM2                       ** DZNRM2                                           PAGE 00381
 12103  
 12104  //                                   RRRRRR  EEEEEEE    A    L                88888
 12105  //                                   R     R E         A A   L        *   *  8     8
 12106  //                                   R     R E        A   A  L         * *   8     8
 12107  //                                   RRRRRR  EEEEE   A     A L       *******  88888
 12108  //                                   R   R   E       AAAAAAA L         * *   8     8
 12109  //                                   R    R  E       A     A L        *   *  8     8
 12110  //                                   R     R EEEEEEE A     A LLLLLLL          88888
 12111  
 12112  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12113  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12114  //                           F       U     U N N   N C          T       I    O     O N N   N
 12115  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12116  //                           F       U     U N   N N C          T       I    O     O N   N N
 12117  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12118  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12119  
 12120  //                                   DDDDDD  ZZZZZZZ N     N RRRRRR  M     M  22222
 12121  //                                   D     D      Z  NN    N R     R MM   MM 2     2
 12122  //                                   D     D     Z   N N   N R     R M M M M       2
 12123  //                                   D     D    Z    N  N  N RRRRRR  M  M  M  22222
 12124  //                                   D     D   Z     N   N N R   R   M     M 2
 12125  //                                   D     D  *      N    NN R    R  M     M 2
 12126  //                                   DDDDDD  ZZZZZZZ N     N R     R M     M 2222222
 12127  
 12128  
 12129  // VIF  THU 20 NOV 2025 22:18:53  ** DZNRM2                       ** DIAGNOSTICS                                      PAGE 00382
 12130  
 12131  
 12132  // VIF  THU 20 NOV 2025 22:18:53  ** DZNRM2                       ** GENERATED CODE                                   PAGE 00383
 12133  
 12134  real_8 _dznrm2 (int_4 _p_ n_, complex_16 _p_ x_, int_4 _p_ incx_)
 12135  { // ** body not listed **
 12178  }
 12179  
 12180  // VIF  THU 20 NOV 2025 22:18:53  ** ICAMAX                       ** ICAMAX                                           PAGE 00384
 12181  
 12182  //                         III   N     N TTTTTTT EEEEEEE  GGGGG  EEEEEEE RRRRRR          4
 12183  //                          I    NN    N    T    E       G     G E       R     R  *   *  4    4
 12184  //                          I    N N   N    T    E       G       E       R     R   * *   4    4
 12185  //                          I    N  N  N    T    EEEEE   G  GGGG EEEEE   RRRRRR  ******* 4444444
 12186  //                          I    N   N N    T    E       G     G E       R   R     * *        4
 12187  //                          I    N    NN    T    E       G     G E       R    R   *   *       4
 12188  //                         III   N     N    T    EEEEEEE  GGGGG  EEEEEEE R     R              4
 12189  
 12190  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12191  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12192  //                           F       U     U N N   N C          T       I    O     O N N   N
 12193  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12194  //                           F       U     U N   N N C          T       I    O     O N   N N
 12195  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12196  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12197  
 12198  //                                     III    CCCCC     A    M     M    A    X     X
 12199  //                                      I    C     C   A A   MM   MM   A A    X   X
 12200  //                                      I    C        A   A  M M M M  A   A    X X
 12201  //                                      I    C       A     A M  M  M A     A    X
 12202  //                                      I    C       AAAAAAA M     M AAAAAAA   X X
 12203  //                                      I    C     C A     A M     M A     A  X   X
 12204  //                                     III    CCCCC  A     A M     M A     A X     X
 12205  
 12206  
 12207  // VIF  THU 20 NOV 2025 22:18:53  ** ICAMAX                       ** DIAGNOSTICS                                      PAGE 00385
 12208  
 12209  
 12210  // VIF  THU 20 NOV 2025 22:18:53  ** ICAMAX                       ** GENERATED CODE                                   PAGE 00386
 12211  
 12212  int_4 _icamax (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
 12213  { // ** body not listed **
 12254  }
 12255  
 12256  // VIF  THU 20 NOV 2025 22:18:53  ** IDAMAX                       ** IDAMAX                                           PAGE 00387
 12257  
 12258  //                         III   N     N TTTTTTT EEEEEEE  GGGGG  EEEEEEE RRRRRR          4
 12259  //                          I    NN    N    T    E       G     G E       R     R  *   *  4    4
 12260  //                          I    N N   N    T    E       G       E       R     R   * *   4    4
 12261  //                          I    N  N  N    T    EEEEE   G  GGGG EEEEE   RRRRRR  ******* 4444444
 12262  //                          I    N   N N    T    E       G     G E       R   R     * *        4
 12263  //                          I    N    NN    T    E       G     G E       R    R   *   *       4
 12264  //                         III   N     N    T    EEEEEEE  GGGGG  EEEEEEE R     R              4
 12265  
 12266  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12267  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12268  //                           F       U     U N N   N C          T       I    O     O N N   N
 12269  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12270  //                           F       U     U N   N N C          T       I    O     O N   N N
 12271  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12272  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12273  
 12274  //                                     III   DDDDDD     A    M     M    A    X     X
 12275  //                                      I    D     D   A A   MM   MM   A A    X   X
 12276  //                                      I    D     D  A   A  M M M M  A   A    X X
 12277  //                                      I    D     D A     A M  M  M A     A    X
 12278  //                                      I    D     D AAAAAAA M     M AAAAAAA   X X
 12279  //                                      I    D     D A     A M     M A     A  X   X
 12280  //                                     III   DDDDDD  A     A M     M A     A X     X
 12281  
 12282  
 12283  // VIF  THU 20 NOV 2025 22:18:53  ** IDAMAX                       ** DIAGNOSTICS                                      PAGE 00388
 12284  
 12285  
 12286  // VIF  THU 20 NOV 2025 22:18:53  ** IDAMAX                       ** GENERATED CODE                                   PAGE 00389
 12287  
 12288  int_4 _idamax (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_)
 12289  { // ** body not listed **
 12332  }
 12333  
 12334  // VIF  THU 20 NOV 2025 22:18:53  ** ISAMAX                       ** ISAMAX                                           PAGE 00390
 12335  
 12336  //                         III   N     N TTTTTTT EEEEEEE  GGGGG  EEEEEEE RRRRRR          4
 12337  //                          I    NN    N    T    E       G     G E       R     R  *   *  4    4
 12338  //                          I    N N   N    T    E       G       E       R     R   * *   4    4
 12339  //                          I    N  N  N    T    EEEEE   G  GGGG EEEEE   RRRRRR  ******* 4444444
 12340  //                          I    N   N N    T    E       G     G E       R   R     * *        4
 12341  //                          I    N    NN    T    E       G     G E       R    R   *   *       4
 12342  //                         III   N     N    T    EEEEEEE  GGGGG  EEEEEEE R     R              4
 12343  
 12344  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12345  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12346  //                           F       U     U N N   N C          T       I    O     O N N   N
 12347  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12348  //                           F       U     U N   N N C          T       I    O     O N   N N
 12349  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12350  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12351  
 12352  //                                     III    SSSSS     A    M     M    A    X     X
 12353  //                                      I    S     S   A A   MM   MM   A A    X   X
 12354  //                                      I    S        A   A  M M M M  A   A    X X
 12355  //                                      I     SSSSS  A     A M  M  M A     A    X
 12356  //                                      I          S AAAAAAA M     M AAAAAAA   X X
 12357  //                                      I    S     S A     A M     M A     A  X   X
 12358  //                                     III    SSSSS  A     A M     M A     A X     X
 12359  
 12360  
 12361  // VIF  THU 20 NOV 2025 22:18:53  ** ISAMAX                       ** DIAGNOSTICS                                      PAGE 00391
 12362  
 12363  
 12364  // VIF  THU 20 NOV 2025 22:18:53  ** ISAMAX                       ** GENERATED CODE                                   PAGE 00392
 12365  
 12366  int_4 _isamax (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_)
 12367  { // ** body not listed **
 12409  }
 12410  
 12411  // VIF  THU 20 NOV 2025 22:18:53  ** IZAMAX                       ** IZAMAX                                           PAGE 00393
 12412  
 12413  //                         III   N     N TTTTTTT EEEEEEE  GGGGG  EEEEEEE RRRRRR          4
 12414  //                          I    NN    N    T    E       G     G E       R     R  *   *  4    4
 12415  //                          I    N N   N    T    E       G       E       R     R   * *   4    4
 12416  //                          I    N  N  N    T    EEEEE   G  GGGG EEEEE   RRRRRR  ******* 4444444
 12417  //                          I    N   N N    T    E       G     G E       R   R     * *        4
 12418  //                          I    N    NN    T    E       G     G E       R    R   *   *       4
 12419  //                         III   N     N    T    EEEEEEE  GGGGG  EEEEEEE R     R              4
 12420  
 12421  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12422  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12423  //                           F       U     U N N   N C          T       I    O     O N N   N
 12424  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12425  //                           F       U     U N   N N C          T       I    O     O N   N N
 12426  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12427  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12428  
 12429  //                                     III   ZZZZZZZ    A    M     M    A    X     X
 12430  //                                      I         Z    A A   MM   MM   A A    X   X
 12431  //                                      I        Z    A   A  M M M M  A   A    X X
 12432  //                                      I       Z    A     A M  M  M A     A    X
 12433  //                                      I      Z     AAAAAAA M     M AAAAAAA   X X
 12434  //                                      I     *      A     A M     M A     A  X   X
 12435  //                                     III   ZZZZZZZ A     A M     M A     A X     X
 12436  
 12437  
 12438  // VIF  THU 20 NOV 2025 22:18:53  ** IZAMAX                       ** DIAGNOSTICS                                      PAGE 00394
 12439  
 12440  
 12441  // VIF  THU 20 NOV 2025 22:18:53  ** IZAMAX                       ** GENERATED CODE                                   PAGE 00395
 12442  
 12443  int_4 _izamax (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_)
 12444  { // ** body not listed **
 12485  }
 12486  
 12487  // VIF  THU 20 NOV 2025 22:18:53  ** SASUM                        ** SASUM                                            PAGE 00396
 12488  
 12489  //                                   RRRRRR  EEEEEEE    A    L               4
 12490  //                                   R     R E         A A   L        *   *  4    4
 12491  //                                   R     R E        A   A  L         * *   4    4
 12492  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 12493  //                                   R   R   E       AAAAAAA L         * *        4
 12494  //                                   R    R  E       A     A L        *   *       4
 12495  //                                   R     R EEEEEEE A     A LLLLLLL              4
 12496  
 12497  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12498  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12499  //                           F       U     U N N   N C          T       I    O     O N N   N
 12500  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12501  //                           F       U     U N   N N C          T       I    O     O N   N N
 12502  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12503  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12504  
 12505  //                                        SSSSS     A     SSSSS  U     U M     M
 12506  //                                       S     S   A A   S     S U     U MM   MM
 12507  //                                       S        A   A  S       U     U M M M M
 12508  //                                        SSSSS  A     A  SSSSS  U     U M  M  M
 12509  //                                             S AAAAAAA       S U     U M     M
 12510  //                                       S     S A     A S     S U     U M     M
 12511  //                                        SSSSS  A     A  SSSSS   UUUUU  M     M
 12512  
 12513  
 12514  // VIF  THU 20 NOV 2025 22:18:53  ** SASUM                        ** DIAGNOSTICS                                      PAGE 00397
 12515  
 12516  
 12517  // VIF  THU 20 NOV 2025 22:18:53  ** SASUM                        ** GENERATED CODE                                   PAGE 00398
 12518  
 12519  real_4 _sasum (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_)
 12520  { // ** body not listed **
 12562  }
 12563  
 12564  // VIF  THU 20 NOV 2025 22:18:53  ** SAXPY                        ** SAXPY                                            PAGE 00399
 12565  
 12566  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12567  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12568  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12569  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12570  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12571  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12572  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12573  
 12574  //                                        SSSSS     A    X     X PPPPPP  Y     Y
 12575  //                                       S     S   A A    X   X  P     P  Y   Y
 12576  //                                       S        A   A    X X   P     P   Y Y
 12577  //                                        SSSSS  A     A    X    PPPPPP     Y
 12578  //                                             S AAAAAAA   X X   P          Y
 12579  //                                       S     S A     A  X   X  P          Y
 12580  //                                        SSSSS  A     A X     X P          Y
 12581  
 12582  
 12583  // VIF  THU 20 NOV 2025 22:18:53  ** SAXPY                        ** DIAGNOSTICS                                      PAGE 00400
 12584  
 12585  
 12586  // VIF  THU 20 NOV 2025 22:18:53  ** SAXPY                        ** GENERATED CODE                                   PAGE 00401
 12587  
 12588  int_4 _saxpy (int_4 _p_ n_, real_4 _p_ sa_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
 12589  { // ** body not listed **
 12637  }
 12638  // VIF  THU 20 NOV 2025 22:18:53  ** SAXPY                        ** GENERATED CODE                                   PAGE 00402
 12639  
 12640  
 12641  // VIF  THU 20 NOV 2025 22:18:53  ** SCABS1                       ** SCABS1                                           PAGE 00403
 12642  
 12643  //                                   RRRRRR  EEEEEEE    A    L               4
 12644  //                                   R     R E         A A   L        *   *  4    4
 12645  //                                   R     R E        A   A  L         * *   4    4
 12646  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 12647  //                                   R   R   E       AAAAAAA L         * *        4
 12648  //                                   R    R  E       A     A L        *   *       4
 12649  //                                   R     R EEEEEEE A     A LLLLLLL              4
 12650  
 12651  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12652  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12653  //                           F       U     U N N   N C          T       I    O     O N N   N
 12654  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12655  //                           F       U     U N   N N C          T       I    O     O N   N N
 12656  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12657  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12658  
 12659  //                                     SSSSS   CCCCC     A    BBBBBB   SSSSS     1
 12660  //                                    S     S C     C   A A   B     B S     S   11
 12661  //                                    S       C        A   A  B     B S        1 1
 12662  //                                     SSSSS  C       A     A BBBBBB   SSSSS     1
 12663  //                                          S C       AAAAAAA B     B       S    1
 12664  //                                    S     S C     C A     A B     B S     S    1
 12665  //                                     SSSSS   CCCCC  A     A BBBBBB   SSSSS   11111
 12666  
 12667  
 12668  // VIF  THU 20 NOV 2025 22:18:53  ** SCABS1                       ** DIAGNOSTICS                                      PAGE 00404
 12669  
 12670  
 12671  // VIF  THU 20 NOV 2025 22:18:53  ** SCABS1                       ** GENERATED CODE                                   PAGE 00405
 12672  
 12673  real_4 _scabs1 (complex_8 _p_ z_)
 12674  { // ** body not listed **
 12682  }
 12683  
 12684  // VIF  THU 20 NOV 2025 22:18:53  ** SCASUM                       ** SCASUM                                           PAGE 00406
 12685  
 12686  //                                   RRRRRR  EEEEEEE    A    L               4
 12687  //                                   R     R E         A A   L        *   *  4    4
 12688  //                                   R     R E        A   A  L         * *   4    4
 12689  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 12690  //                                   R   R   E       AAAAAAA L         * *        4
 12691  //                                   R    R  E       A     A L        *   *       4
 12692  //                                   R     R EEEEEEE A     A LLLLLLL              4
 12693  
 12694  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12695  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12696  //                           F       U     U N N   N C          T       I    O     O N N   N
 12697  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12698  //                           F       U     U N   N N C          T       I    O     O N   N N
 12699  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12700  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12701  
 12702  //                                    SSSSS   CCCCC     A     SSSSS  U     U M     M
 12703  //                                   S     S C     C   A A   S     S U     U MM   MM
 12704  //                                   S       C        A   A  S       U     U M M M M
 12705  //                                    SSSSS  C       A     A  SSSSS  U     U M  M  M
 12706  //                                         S C       AAAAAAA       S U     U M     M
 12707  //                                   S     S C     C A     A S     S U     U M     M
 12708  //                                    SSSSS   CCCCC  A     A  SSSSS   UUUUU  M     M
 12709  
 12710  
 12711  // VIF  THU 20 NOV 2025 22:18:53  ** SCASUM                       ** DIAGNOSTICS                                      PAGE 00407
 12712  
 12713  
 12714  // VIF  THU 20 NOV 2025 22:18:53  ** SCASUM                       ** GENERATED CODE                                   PAGE 00408
 12715  
 12716  real_4 _scasum (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
 12717  { // ** body not listed **
 12746  }
 12747  
 12748  // VIF  THU 20 NOV 2025 22:18:53  ** SCNRM2                       ** SCNRM2                                           PAGE 00409
 12749  
 12750  //                                   RRRRRR  EEEEEEE    A    L               4
 12751  //                                   R     R E         A A   L        *   *  4    4
 12752  //                                   R     R E        A   A  L         * *   4    4
 12753  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 12754  //                                   R   R   E       AAAAAAA L         * *        4
 12755  //                                   R    R  E       A     A L        *   *       4
 12756  //                                   R     R EEEEEEE A     A LLLLLLL              4
 12757  
 12758  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12759  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12760  //                           F       U     U N N   N C          T       I    O     O N N   N
 12761  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12762  //                           F       U     U N   N N C          T       I    O     O N   N N
 12763  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12764  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12765  
 12766  //                                    SSSSS   CCCCC  N     N RRRRRR  M     M  22222
 12767  //                                   S     S C     C NN    N R     R MM   MM 2     2
 12768  //                                   S       C       N N   N R     R M M M M       2
 12769  //                                    SSSSS  C       N  N  N RRRRRR  M  M  M  22222
 12770  //                                         S C       N   N N R   R   M     M 2
 12771  //                                   S     S C     C N    NN R    R  M     M 2
 12772  //                                    SSSSS   CCCCC  N     N R     R M     M 2222222
 12773  
 12774  
 12775  // VIF  THU 20 NOV 2025 22:18:53  ** SCNRM2                       ** DIAGNOSTICS                                      PAGE 00410
 12776  
 12777  
 12778  // VIF  THU 20 NOV 2025 22:18:53  ** SCNRM2                       ** GENERATED CODE                                   PAGE 00411
 12779  
 12780  real_4 _scnrm2 (int_4 _p_ n_, complex_8 _p_ x_, int_4 _p_ incx_)
 12781  { // ** body not listed **
 12824  }
 12825  
 12826  // VIF  THU 20 NOV 2025 22:18:53  ** SCOPY                        ** SCOPY                                            PAGE 00412
 12827  
 12828  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 12829  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 12830  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 12831  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 12832  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 12833  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 12834  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 12835  
 12836  //                                        SSSSS   CCCCC   OOOOO  PPPPPP  Y     Y
 12837  //                                       S     S C     C O     O P     P  Y   Y
 12838  //                                       S       C       O     O P     P   Y Y
 12839  //                                        SSSSS  C       O     O PPPPPP     Y
 12840  //                                             S C       O     O P          Y
 12841  //                                       S     S C     C O     O P          Y
 12842  //                                        SSSSS   CCCCC   OOOOO  P          Y
 12843  
 12844  
 12845  // VIF  THU 20 NOV 2025 22:18:53  ** SCOPY                        ** DIAGNOSTICS                                      PAGE 00413
 12846  
 12847  
 12848  // VIF  THU 20 NOV 2025 22:18:53  ** SCOPY                        ** GENERATED CODE                                   PAGE 00414
 12849  
 12850  int_4 _scopy (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
 12851  { // ** body not listed **
 12899  }
 12900  // VIF  THU 20 NOV 2025 22:18:53  ** SCOPY                        ** GENERATED CODE                                   PAGE 00415
 12901  
 12902  
 12903  // VIF  THU 20 NOV 2025 22:18:53  ** SDOT                         ** SDOT                                             PAGE 00416
 12904  
 12905  //                                   RRRRRR  EEEEEEE    A    L               4
 12906  //                                   R     R E         A A   L        *   *  4    4
 12907  //                                   R     R E        A   A  L         * *   4    4
 12908  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 12909  //                                   R   R   E       AAAAAAA L         * *        4
 12910  //                                   R    R  E       A     A L        *   *       4
 12911  //                                   R     R EEEEEEE A     A LLLLLLL              4
 12912  
 12913  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 12914  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 12915  //                           F       U     U N N   N C          T       I    O     O N N   N
 12916  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 12917  //                           F       U     U N   N N C          T       I    O     O N   N N
 12918  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 12919  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 12920  
 12921  //                                            SSSSS  DDDDDD   OOOOO  TTTTTTT
 12922  //                                           S     S D     D O     O    T
 12923  //                                           S       D     D O     O    T
 12924  //                                            SSSSS  D     D O     O    T
 12925  //                                                 S D     D O     O    T
 12926  //                                           S     S D     D O     O    T
 12927  //                                            SSSSS  DDDDDD   OOOOO     T
 12928  
 12929  
 12930  // VIF  THU 20 NOV 2025 22:18:53  ** SDOT                         ** DIAGNOSTICS                                      PAGE 00417
 12931  
 12932  
 12933  // VIF  THU 20 NOV 2025 22:18:53  ** SDOT                         ** GENERATED CODE                                   PAGE 00418
 12934  
 12935  real_4 _sdot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
 12936  { // ** body not listed **
 12988  }
 12989  
 12990  // VIF  THU 20 NOV 2025 22:18:53  ** SDSDOT                       ** SDSDOT                                           PAGE 00420
 12991  
 12992  //                                   RRRRRR  EEEEEEE    A    L               4
 12993  //                                   R     R E         A A   L        *   *  4    4
 12994  //                                   R     R E        A   A  L         * *   4    4
 12995  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 12996  //                                   R   R   E       AAAAAAA L         * *        4
 12997  //                                   R    R  E       A     A L        *   *       4
 12998  //                                   R     R EEEEEEE A     A LLLLLLL              4
 12999  
 13000  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 13001  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 13002  //                           F       U     U N N   N C          T       I    O     O N N   N
 13003  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 13004  //                           F       U     U N   N N C          T       I    O     O N   N N
 13005  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 13006  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 13007  
 13008  //                                    SSSSS  DDDDDD   SSSSS  DDDDDD   OOOOO  TTTTTTT
 13009  //                                   S     S D     D S     S D     D O     O    T
 13010  //                                   S       D     D S       D     D O     O    T
 13011  //                                    SSSSS  D     D  SSSSS  D     D O     O    T
 13012  //                                         S D     D       S D     D O     O    T
 13013  //                                   S     S D     D S     S D     D O     O    T
 13014  //                                    SSSSS  DDDDDD   SSSSS  DDDDDD   OOOOO     T
 13015  
 13016  
 13017  // VIF  THU 20 NOV 2025 22:18:53  ** SDSDOT                       ** DIAGNOSTICS                                      PAGE 00421
 13018  
 13019  
 13020  // VIF  THU 20 NOV 2025 22:18:53  ** SDSDOT                       ** GENERATED CODE                                   PAGE 00422
 13021  
 13022  real_4 _sdsdot (int_4 _p_ n_, real_4 _p_ sb_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
 13023  { // ** body not listed **
 13060  }
 13061  
 13062  // VIF  THU 20 NOV 2025 22:18:53  ** SGBMV                        ** SGBMV                                            PAGE 00423
 13063  
 13064  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13065  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13066  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13067  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13068  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13069  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13070  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13071  
 13072  //                                        SSSSS   GGGGG  BBBBBB  M     M V     V
 13073  //                                       S     S G     G B     B MM   MM V     V
 13074  //                                       S       G       B     B M M M M V     V
 13075  //                                        SSSSS  G  GGGG BBBBBB  M  M  M V     V
 13076  //                                             S G     G B     B M     M  V   V
 13077  //                                       S     S G     G B     B M     M   V V
 13078  //                                        SSSSS   GGGGG  BBBBBB  M     M    V
 13079  
 13080  
 13081  // VIF  THU 20 NOV 2025 22:18:53  ** SGBMV                        ** DIAGNOSTICS                                      PAGE 00424
 13082  
 13083  
 13084  // VIF  THU 20 NOV 2025 22:18:53  ** SGBMV                        ** GENERATED CODE                                   PAGE 00425
 13085  
 13086  int_4 _sgbmv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, real_4 _p_ alpha_, real_4 _p_ 
 13087  a_, int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 13088  { // ** body not listed **
 13251  }
 13252  
 13253  // VIF  THU 20 NOV 2025 22:18:53  ** SGEMM                        ** SGEMM                                            PAGE 00429
 13254  
 13255  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13256  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13257  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13258  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13259  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13260  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13261  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13262  
 13263  //                                        SSSSS   GGGGG  EEEEEEE M     M M     M
 13264  //                                       S     S G     G E       MM   MM MM   MM
 13265  //                                       S       G       E       M M M M M M M M
 13266  //                                        SSSSS  G  GGGG EEEEE   M  M  M M  M  M
 13267  //                                             S G     G E       M     M M     M
 13268  //                                       S     S G     G E       M     M M     M
 13269  //                                        SSSSS   GGGGG  EEEEEEE M     M M     M
 13270  
 13271  
 13272  // VIF  THU 20 NOV 2025 22:18:53  ** SGEMM                        ** DIAGNOSTICS                                      PAGE 00430
 13273  
 13274  
 13275  // VIF  THU 20 NOV 2025 22:18:53  ** SGEMM                        ** GENERATED CODE                                   PAGE 00431
 13276  
 13277  int_4 _sgemm (char _p_ transa_, char _p_ transb_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ alpha_, real_4 
 13278  _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
 13279  { // ** body not listed **
 13442  }
 13443  
 13444  // VIF  THU 20 NOV 2025 22:18:53  ** SGEMV                        ** SGEMV                                            PAGE 00435
 13445  
 13446  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13447  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13448  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13449  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13450  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13451  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13452  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13453  
 13454  //                                        SSSSS   GGGGG  EEEEEEE M     M V     V
 13455  //                                       S     S G     G E       MM   MM V     V
 13456  //                                       S       G       E       M M M M V     V
 13457  //                                        SSSSS  G  GGGG EEEEE   M  M  M V     V
 13458  //                                             S G     G E       M     M  V   V
 13459  //                                       S     S G     G E       M     M   V V
 13460  //                                        SSSSS   GGGGG  EEEEEEE M     M    V
 13461  
 13462  
 13463  // VIF  THU 20 NOV 2025 22:18:53  ** SGEMV                        ** DIAGNOSTICS                                      PAGE 00436
 13464  
 13465  
 13466  // VIF  THU 20 NOV 2025 22:18:53  ** SGEMV                        ** GENERATED CODE                                   PAGE 00437
 13467  
 13468  int_4 _sgemv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ 
 13469  x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 13470  { // ** body not listed **
 13613  }
 13614  
 13615  // VIF  THU 20 NOV 2025 22:18:53  ** SGER                         ** SGER                                             PAGE 00440
 13616  
 13617  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13618  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13619  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13620  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13621  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13622  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13623  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13624  
 13625  //                                            SSSSS   GGGGG  EEEEEEE RRRRRR
 13626  //                                           S     S G     G E       R     R
 13627  //                                           S       G       E       R     R
 13628  //                                            SSSSS  G  GGGG EEEEE   RRRRRR
 13629  //                                                 S G     G E       R   R
 13630  //                                           S     S G     G E       R    R
 13631  //                                            SSSSS   GGGGG  EEEEEEE R     R
 13632  
 13633  
 13634  // VIF  THU 20 NOV 2025 22:18:53  ** SGER                         ** DIAGNOSTICS                                      PAGE 00441
 13635  
 13636  
 13637  // VIF  THU 20 NOV 2025 22:18:53  ** SGER                         ** GENERATED CODE                                   PAGE 00442
 13638  
 13639  int_4 _sger (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ y_, int_4 _p_ 
 13640  incy_, real_4 _p_ a_, int_4 _p_ lda_)
 13641  { // ** body not listed **
 13710  }
 13711  
 13712  // VIF  THU 20 NOV 2025 22:18:53  ** SNRM2                        ** SNRM2                                            PAGE 00444
 13713  
 13714  //                                   RRRRRR  EEEEEEE    A    L               4
 13715  //                                   R     R E         A A   L        *   *  4    4
 13716  //                                   R     R E        A   A  L         * *   4    4
 13717  //                                   RRRRRR  EEEEE   A     A L       ******* 4444444
 13718  //                                   R   R   E       AAAAAAA L         * *        4
 13719  //                                   R    R  E       A     A L        *   *       4
 13720  //                                   R     R EEEEEEE A     A LLLLLLL              4
 13721  
 13722  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 13723  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 13724  //                           F       U     U N N   N C          T       I    O     O N N   N
 13725  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 13726  //                           F       U     U N   N N C          T       I    O     O N   N N
 13727  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 13728  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 13729  
 13730  //                                        SSSSS  N     N RRRRRR  M     M  22222
 13731  //                                       S     S NN    N R     R MM   MM 2     2
 13732  //                                       S       N N   N R     R M M M M       2
 13733  //                                        SSSSS  N  N  N RRRRRR  M  M  M  22222
 13734  //                                             S N   N N R   R   M     M 2
 13735  //                                       S     S N    NN R    R  M     M 2
 13736  //                                        SSSSS  N     N R     R M     M 2222222
 13737  
 13738  
 13739  // VIF  THU 20 NOV 2025 22:18:53  ** SNRM2                        ** DIAGNOSTICS                                      PAGE 00445
 13740  
 13741  
 13742  // VIF  THU 20 NOV 2025 22:18:53  ** SNRM2                        ** GENERATED CODE                                   PAGE 00446
 13743  
 13744  real_4 _snrm2 (int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ incx_)
 13745  { // ** body not listed **
 13779  }
 13780  
 13781  // VIF  THU 20 NOV 2025 22:18:53  ** SROT                         ** SROT                                             PAGE 00447
 13782  
 13783  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13784  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13785  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13786  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13787  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13788  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13789  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13790  
 13791  //                                            SSSSS  RRRRRR   OOOOO  TTTTTTT
 13792  //                                           S     S R     R O     O    T
 13793  //                                           S       R     R O     O    T
 13794  //                                            SSSSS  RRRRRR  O     O    T
 13795  //                                                 S R   R   O     O    T
 13796  //                                           S     S R    R  O     O    T
 13797  //                                            SSSSS  R     R  OOOOO     T
 13798  
 13799  
 13800  // VIF  THU 20 NOV 2025 22:18:53  ** SROT                         ** DIAGNOSTICS                                      PAGE 00448
 13801  
 13802  
 13803  // VIF  THU 20 NOV 2025 22:18:53  ** SROT                         ** GENERATED CODE                                   PAGE 00449
 13804  
 13805  int_4 _srot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_, real_4 _p_ c_, real_4 _p_ 
 13806  s_)
 13807  { // ** body not listed **
 13841  }
 13842  
 13843  // VIF  THU 20 NOV 2025 22:18:53  ** SROTG                        ** SROTG                                            PAGE 00450
 13844  
 13845  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13846  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13847  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13848  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13849  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13850  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13851  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13852  
 13853  //                                        SSSSS  RRRRRR   OOOOO  TTTTTTT  GGGGG
 13854  //                                       S     S R     R O     O    T    G     G
 13855  //                                       S       R     R O     O    T    G
 13856  //                                        SSSSS  RRRRRR  O     O    T    G  GGGG
 13857  //                                             S R   R   O     O    T    G     G
 13858  //                                       S     S R    R  O     O    T    G     G
 13859  //                                        SSSSS  R     R  OOOOO     T     GGGGG
 13860  
 13861  
 13862  // VIF  THU 20 NOV 2025 22:18:53  ** SROTG                        ** DIAGNOSTICS                                      PAGE 00451
 13863  
 13864  
 13865  // VIF  THU 20 NOV 2025 22:18:53  ** SROTG                        ** GENERATED CODE                                   PAGE 00452
 13866  
 13867  int_4 _srotg (real_4 _p_ sa_, real_4 _p_ sb_, real_4 _p_ c_, real_4 _p_ s_)
 13868  { // ** body not listed **
 13904  }
 13905  
 13906  // VIF  THU 20 NOV 2025 22:18:53  ** SROTM                        ** SROTM                                            PAGE 00453
 13907  
 13908  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 13909  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 13910  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 13911  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 13912  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 13913  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 13914  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 13915  
 13916  //                                        SSSSS  RRRRRR   OOOOO  TTTTTTT M     M
 13917  //                                       S     S R     R O     O    T    MM   MM
 13918  //                                       S       R     R O     O    T    M M M M
 13919  //                                        SSSSS  RRRRRR  O     O    T    M  M  M
 13920  //                                             S R   R   O     O    T    M     M
 13921  //                                       S     S R    R  O     O    T    M     M
 13922  //                                        SSSSS  R     R  OOOOO     T    M     M
 13923  
 13924  
 13925  // VIF  THU 20 NOV 2025 22:18:53  ** SROTM                        ** DIAGNOSTICS                                      PAGE 00454
 13926  
 13927  
 13928  // VIF  THU 20 NOV 2025 22:18:53  ** SROTM                        ** GENERATED CODE                                   PAGE 00455
 13929  
 13930  int_4 _srotm (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_, real_4 _p_ sparam_)
 13931  { // ** body not listed **
 14063  }
 14064  
 14065  // VIF  THU 20 NOV 2025 22:18:53  ** SROTMG                       ** SROTMG                                           PAGE 00458
 14066  
 14067  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14068  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14069  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14070  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14071  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14072  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14073  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14074  
 14075  //                                    SSSSS  RRRRRR   OOOOO  TTTTTTT M     M  GGGGG
 14076  //                                   S     S R     R O     O    T    MM   MM G     G
 14077  //                                   S       R     R O     O    T    M M M M G
 14078  //                                    SSSSS  RRRRRR  O     O    T    M  M  M G  GGGG
 14079  //                                         S R   R   O     O    T    M     M G     G
 14080  //                                   S     S R    R  O     O    T    M     M G     G
 14081  //                                    SSSSS  R     R  OOOOO     T    M     M  GGGGG
 14082  
 14083  
 14084  // VIF  THU 20 NOV 2025 22:18:53  ** SROTMG                       ** DIAGNOSTICS                                      PAGE 00459
 14085  
 14086  
 14087  // VIF  THU 20 NOV 2025 22:18:53  ** SROTMG                       ** GENERATED CODE                                   PAGE 00460
 14088  
 14089  int_4 _srotmg (real_4 _p_ sd1_, real_4 _p_ sd2_, real_4 _p_ sx1_, real_4 _p_ sy1_, real_4 _p_ sparam_)
 14090  { // ** body not listed **
 14314  }
 14315  
 14316  // VIF  THU 20 NOV 2025 22:18:53  ** SSBMV                        ** SSBMV                                            PAGE 00465
 14317  
 14318  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14319  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14320  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14321  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14322  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14323  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14324  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14325  
 14326  //                                        SSSSS   SSSSS  BBBBBB  M     M V     V
 14327  //                                       S     S S     S B     B MM   MM V     V
 14328  //                                       S       S       B     B M M M M V     V
 14329  //                                        SSSSS   SSSSS  BBBBBB  M  M  M V     V
 14330  //                                             S       S B     B M     M  V   V
 14331  //                                       S     S S     S B     B M     M   V V
 14332  //                                        SSSSS   SSSSS  BBBBBB  M     M    V
 14333  
 14334  
 14335  // VIF  THU 20 NOV 2025 22:18:53  ** SSBMV                        ** DIAGNOSTICS                                      PAGE 00466
 14336  
 14337  
 14338  // VIF  THU 20 NOV 2025 22:18:53  ** SSBMV                        ** GENERATED CODE                                   PAGE 00467
 14339  
 14340  int_4 _ssbmv (char _p_ uplo_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ 
 14341  x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 14342  { // ** body not listed **
 14503  }
 14504  
 14505  // VIF  THU 20 NOV 2025 22:18:53  ** SSCAL                        ** SSCAL                                            PAGE 00471
 14506  
 14507  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14508  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14509  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14510  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14511  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14512  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14513  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14514  
 14515  //                                        SSSSS   SSSSS   CCCCC     A    L
 14516  //                                       S     S S     S C     C   A A   L
 14517  //                                       S       S       C        A   A  L
 14518  //                                        SSSSS   SSSSS  C       A     A L
 14519  //                                             S       S C       AAAAAAA L
 14520  //                                       S     S S     S C     C A     A L
 14521  //                                        SSSSS   SSSSS   CCCCC  A     A LLLLLLL
 14522  
 14523  
 14524  // VIF  THU 20 NOV 2025 22:18:53  ** SSCAL                        ** DIAGNOSTICS                                      PAGE 00472
 14525  
 14526  
 14527  // VIF  THU 20 NOV 2025 22:18:53  ** SSCAL                        ** GENERATED CODE                                   PAGE 00473
 14528  
 14529  int_4 _sscal (int_4 _p_ n_, real_4 _p_ sa_, real_4 _p_ sx_, int_4 _p_ incx_)
 14530  { // ** body not listed **
 14567  }
 14568  
 14569  // VIF  THU 20 NOV 2025 22:18:53  ** SSPMV                        ** SSPMV                                            PAGE 00474
 14570  
 14571  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14572  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14573  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14574  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14575  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14576  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14577  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14578  
 14579  //                                        SSSSS   SSSSS  PPPPPP  M     M V     V
 14580  //                                       S     S S     S P     P MM   MM V     V
 14581  //                                       S       S       P     P M M M M V     V
 14582  //                                        SSSSS   SSSSS  PPPPPP  M  M  M V     V
 14583  //                                             S       S P       M     M  V   V
 14584  //                                       S     S S     S P       M     M   V V
 14585  //                                        SSSSS   SSSSS  P       M     M    V
 14586  
 14587  
 14588  // VIF  THU 20 NOV 2025 22:18:53  ** SSPMV                        ** DIAGNOSTICS                                      PAGE 00475
 14589  
 14590  
 14591  // VIF  THU 20 NOV 2025 22:18:53  ** SSPMV                        ** GENERATED CODE                                   PAGE 00476
 14592  
 14593  int_4 _sspmv (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ ap_, real_4 _p_ x_, int_4 _p_ incx_, real_4 
 14594  _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 14595  { // ** body not listed **
 14746  }
 14747  // VIF  THU 20 NOV 2025 22:18:53  ** SSPMV                        ** GENERATED CODE                                   PAGE 00479
 14748  
 14749  
 14750  // VIF  THU 20 NOV 2025 22:18:53  ** SSPR2                        ** SSPR2                                            PAGE 00480
 14751  
 14752  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14753  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14754  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14755  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14756  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14757  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14758  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14759  
 14760  //                                        SSSSS   SSSSS  PPPPPP  RRRRRR   22222
 14761  //                                       S     S S     S P     P R     R 2     2
 14762  //                                       S       S       P     P R     R       2
 14763  //                                        SSSSS   SSSSS  PPPPPP  RRRRRR   22222
 14764  //                                             S       S P       R   R   2
 14765  //                                       S     S S     S P       R    R  2
 14766  //                                        SSSSS   SSSSS  P       R     R 2222222
 14767  
 14768  
 14769  // VIF  THU 20 NOV 2025 22:18:53  ** SSPR2                        ** DIAGNOSTICS                                      PAGE 00481
 14770  
 14771  
 14772  // VIF  THU 20 NOV 2025 22:18:53  ** SSPR2                        ** GENERATED CODE                                   PAGE 00482
 14773  
 14774  int_4 _sspr2 (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ y_, int_4 _p_ 
 14775  incy_, real_4 _p_ ap_)
 14776  { // ** body not listed **
 14893  }
 14894  
 14895  // VIF  THU 20 NOV 2025 22:18:53  ** SSPR                         ** SSPR                                             PAGE 00485
 14896  
 14897  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 14898  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 14899  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 14900  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 14901  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 14902  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 14903  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 14904  
 14905  //                                            SSSSS   SSSSS  PPPPPP  RRRRRR
 14906  //                                           S     S S     S P     P R     R
 14907  //                                           S       S       P     P R     R
 14908  //                                            SSSSS   SSSSS  PPPPPP  RRRRRR
 14909  //                                                 S       S P       R   R
 14910  //                                           S     S S     S P       R    R
 14911  //                                            SSSSS   SSSSS  P       R     R
 14912  
 14913  
 14914  // VIF  THU 20 NOV 2025 22:18:53  ** SSPR                         ** DIAGNOSTICS                                      PAGE 00486
 14915  
 14916  
 14917  // VIF  THU 20 NOV 2025 22:18:53  ** SSPR                         ** GENERATED CODE                                   PAGE 00487
 14918  
 14919  int_4 _sspr (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ ap_)
 14920  { // ** body not listed **
 15014  }
 15015  
 15016  // VIF  THU 20 NOV 2025 22:18:53  ** SSWAP                        ** SSWAP                                            PAGE 00489
 15017  
 15018  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 15019  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 15020  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 15021  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 15022  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15023  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15024  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15025  
 15026  //                                        SSSSS   SSSSS  W     W    A    PPPPPP
 15027  //                                       S     S S     S W     W   A A   P     P
 15028  //                                       S       S       W     W  A   A  P     P
 15029  //                                        SSSSS   SSSSS  W  W  W A     A PPPPPP
 15030  //                                             S       S W  W  W AAAAAAA P
 15031  //                                       S     S S     S W  W  W A     A P
 15032  //                                        SSSSS   SSSSS   WW WW  A     A P
 15033  
 15034  
 15035  // VIF  THU 20 NOV 2025 22:18:53  ** SSWAP                        ** DIAGNOSTICS                                      PAGE 00490
 15036  
 15037  
 15038  // VIF  THU 20 NOV 2025 22:18:53  ** SSWAP                        ** GENERATED CODE                                   PAGE 00491
 15039  
 15040  int_4 _sswap (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
 15041  { // ** body not listed **
 15098  }
 15099  
 15100  // VIF  THU 20 NOV 2025 22:18:53  ** SSYMM                        ** SSYMM                                            PAGE 00493
 15101  
 15102  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 15103  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 15104  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 15105  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 15106  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15107  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15108  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15109  
 15110  //                                        SSSSS   SSSSS  Y     Y M     M M     M
 15111  //                                       S     S S     S  Y   Y  MM   MM MM   MM
 15112  //                                       S       S         Y Y   M M M M M M M M
 15113  //                                        SSSSS   SSSSS     Y    M  M  M M  M  M
 15114  //                                             S       S    Y    M     M M     M
 15115  //                                       S     S S     S    Y    M     M M     M
 15116  //                                        SSSSS   SSSSS     Y    M     M M     M
 15117  
 15118  
 15119  // VIF  THU 20 NOV 2025 22:18:53  ** SSYMM                        ** DIAGNOSTICS                                      PAGE 00494
 15120  
 15121  
 15122  // VIF  THU 20 NOV 2025 22:18:53  ** SSYMM                        ** GENERATED CODE                                   PAGE 00495
 15123  
 15124  int_4 _ssymm (char _p_ side_, char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ 
 15125  lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
 15126  { // ** body not listed **
 15275  }
 15276  
 15277  // VIF  THU 20 NOV 2025 22:18:53  ** SSYMV                        ** SSYMV                                            PAGE 00498
 15278  
 15279  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 15280  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 15281  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 15282  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 15283  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15284  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15285  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15286  
 15287  //                                        SSSSS   SSSSS  Y     Y M     M V     V
 15288  //                                       S     S S     S  Y   Y  MM   MM V     V
 15289  //                                       S       S         Y Y   M M M M V     V
 15290  //                                        SSSSS   SSSSS     Y    M  M  M V     V
 15291  //                                             S       S    Y    M     M  V   V
 15292  //                                       S     S S     S    Y    M     M   V V
 15293  //                                        SSSSS   SSSSS     Y    M     M    V
 15294  
 15295  
 15296  // VIF  THU 20 NOV 2025 22:18:53  ** SSYMV                        ** DIAGNOSTICS                                      PAGE 00499
 15297  
 15298  
 15299  // VIF  THU 20 NOV 2025 22:18:53  ** SSYMV                        ** GENERATED CODE                                   PAGE 00500
 15300  
 15301  int_4 _ssymv (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ 
 15302  incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 15303  { // ** body not listed **
 15449  }
 15450  
 15451  // VIF  THU 20 NOV 2025 22:18:53  ** SSYR2                        ** SSYR2                                            PAGE 00503
 15452  
 15453  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 15454  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 15455  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 15456  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 15457  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15458  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15459  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15460  
 15461  //                                        SSSSS   SSSSS  Y     Y RRRRRR   22222
 15462  //                                       S     S S     S  Y   Y  R     R 2     2
 15463  //                                       S       S         Y Y   R     R       2
 15464  //                                        SSSSS   SSSSS     Y    RRRRRR   22222
 15465  //                                             S       S    Y    R   R   2
 15466  //                                       S     S S     S    Y    R    R  2
 15467  //                                        SSSSS   SSSSS     Y    R     R 2222222
 15468  
 15469  
 15470  // VIF  THU 20 NOV 2025 22:18:53  ** SSYR2                        ** DIAGNOSTICS                                      PAGE 00504
 15471  
 15472  
 15473  // VIF  THU 20 NOV 2025 22:18:53  ** SSYR2                        ** GENERATED CODE                                   PAGE 00505
 15474  
 15475  int_4 _ssyr2 (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ y_, int_4 _p_ 
 15476  incy_, real_4 _p_ a_, int_4 _p_ lda_)
 15477  { // ** body not listed **
 15591  }
 15592  
 15593  // VIF  THU 20 NOV 2025 22:18:53  ** SSYR2K                       ** SSYR2K                                           PAGE 00508
 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  //                                     SSSSS   SSSSS  Y     Y RRRRRR   22222  K    K
 15604  //                                    S     S S     S  Y   Y  R     R 2     2 K   K
 15605  //                                    S       S         Y Y   R     R       2 K  K
 15606  //                                     SSSSS   SSSSS     Y    RRRRRR   22222  KKK
 15607  //                                          S       S    Y    R   R   2       K  K
 15608  //                                    S     S S     S    Y    R    R  2       K   K
 15609  //                                     SSSSS   SSSSS     Y    R     R 2222222 K    K
 15610  
 15611  
 15612  // VIF  THU 20 NOV 2025 22:18:53  ** SSYR2K                       ** DIAGNOSTICS                                      PAGE 00509
 15613  
 15614  
 15615  // VIF  THU 20 NOV 2025 22:18:53  ** SSYR2K                       ** GENERATED CODE                                   PAGE 00510
 15616  
 15617  int_4 _ssyr2k (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ 
 15618  lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
 15619  { // ** body not listed **
 15796  }
 15797  
 15798  // VIF  THU 20 NOV 2025 22:18:53  ** SSYR                         ** SSYR                                             PAGE 00514
 15799  
 15800  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 15801  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 15802  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 15803  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 15804  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15805  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15806  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15807  
 15808  //                                            SSSSS   SSSSS  Y     Y RRRRRR
 15809  //                                           S     S S     S  Y   Y  R     R
 15810  //                                           S       S         Y Y   R     R
 15811  //                                            SSSSS   SSSSS     Y    RRRRRR
 15812  //                                                 S       S    Y    R   R
 15813  //                                           S     S S     S    Y    R    R
 15814  //                                            SSSSS   SSSSS     Y    R     R
 15815  
 15816  
 15817  // VIF  THU 20 NOV 2025 22:18:53  ** SSYR                         ** DIAGNOSTICS                                      PAGE 00515
 15818  
 15819  
 15820  // VIF  THU 20 NOV 2025 22:18:53  ** SSYR                         ** GENERATED CODE                                   PAGE 00516
 15821  
 15822  int_4 _ssyr (char _p_ uplo_, int_4 _p_ n_, real_4 _p_ alpha_, real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ a_, int_4 _p_ 
 15823  lda_)
 15824  { // ** body not listed **
 15913  }
 15914  
 15915  // VIF  THU 20 NOV 2025 22:18:53  ** SSYRK                        ** SSYRK                                            PAGE 00518
 15916  
 15917  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 15918  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 15919  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 15920  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 15921  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 15922  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 15923  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 15924  
 15925  //                                         SSSSS   SSSSS  Y     Y RRRRRR  K    K
 15926  //                                        S     S S     S  Y   Y  R     R K   K
 15927  //                                        S       S         Y Y   R     R K  K
 15928  //                                         SSSSS   SSSSS     Y    RRRRRR  KKK
 15929  //                                              S       S    Y    R   R   K  K
 15930  //                                        S     S S     S    Y    R    R  K   K
 15931  //                                         SSSSS   SSSSS     Y    R     R K    K
 15932  
 15933  
 15934  // VIF  THU 20 NOV 2025 22:18:53  ** SSYRK                        ** DIAGNOSTICS                                      PAGE 00519
 15935  
 15936  
 15937  // VIF  THU 20 NOV 2025 22:18:53  ** SSYRK                        ** GENERATED CODE                                   PAGE 00520
 15938  
 15939  int_4 _ssyrk (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ 
 15940  lda_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
 15941  { // ** body not listed **
 16107  }
 16108  
 16109  // VIF  THU 20 NOV 2025 22:18:53  ** STBMV                        ** STBMV                                            PAGE 00524
 16110  
 16111  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16112  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16113  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16114  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16115  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16116  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16117  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16118  
 16119  //                                        SSSSS  TTTTTTT BBBBBB  M     M V     V
 16120  //                                       S     S    T    B     B MM   MM V     V
 16121  //                                       S          T    B     B M M M M V     V
 16122  //                                        SSSSS     T    BBBBBB  M  M  M V     V
 16123  //                                             S    T    B     B M     M  V   V
 16124  //                                       S     S    T    B     B M     M   V V
 16125  //                                        SSSSS     T    BBBBBB  M     M    V
 16126  
 16127  
 16128  // VIF  THU 20 NOV 2025 22:18:53  ** STBMV                        ** DIAGNOSTICS                                      PAGE 00525
 16129  
 16130  
 16131  // VIF  THU 20 NOV 2025 22:18:53  ** STBMV                        ** GENERATED CODE                                   PAGE 00526
 16132  
 16133  int_4 _stbmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ a_, int_4 _p_ 
 16134  lda_, real_4 _p_ x_, int_4 _p_ incx_)
 16135  { // ** body not listed **
 16336  }
 16337  
 16338  // VIF  THU 20 NOV 2025 22:18:53  ** STBSV                        ** STBSV                                            PAGE 00530
 16339  
 16340  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16341  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16342  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16343  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16344  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16345  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16346  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16347  
 16348  //                                        SSSSS  TTTTTTT BBBBBB   SSSSS  V     V
 16349  //                                       S     S    T    B     B S     S V     V
 16350  //                                       S          T    B     B S       V     V
 16351  //                                        SSSSS     T    BBBBBB   SSSSS  V     V
 16352  //                                             S    T    B     B       S  V   V
 16353  //                                       S     S    T    B     B S     S   V V
 16354  //                                        SSSSS     T    BBBBBB   SSSSS     V
 16355  
 16356  
 16357  // VIF  THU 20 NOV 2025 22:18:53  ** STBSV                        ** DIAGNOSTICS                                      PAGE 00531
 16358  
 16359  
 16360  // VIF  THU 20 NOV 2025 22:18:53  ** STBSV                        ** GENERATED CODE                                   PAGE 00532
 16361  
 16362  int_4 _stbsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ a_, int_4 _p_ 
 16363  lda_, real_4 _p_ x_, int_4 _p_ incx_)
 16364  { // ** body not listed **
 16565  }
 16566  
 16567  // VIF  THU 20 NOV 2025 22:18:53  ** STPMV                        ** STPMV                                            PAGE 00536
 16568  
 16569  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16570  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16571  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16572  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16573  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16574  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16575  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16576  
 16577  //                                        SSSSS  TTTTTTT PPPPPP  M     M V     V
 16578  //                                       S     S    T    P     P MM   MM V     V
 16579  //                                       S          T    P     P M M M M V     V
 16580  //                                        SSSSS     T    PPPPPP  M  M  M V     V
 16581  //                                             S    T    P       M     M  V   V
 16582  //                                       S     S    T    P       M     M   V V
 16583  //                                        SSSSS     T    P       M     M    V
 16584  
 16585  
 16586  // VIF  THU 20 NOV 2025 22:18:53  ** STPMV                        ** DIAGNOSTICS                                      PAGE 00537
 16587  
 16588  
 16589  // VIF  THU 20 NOV 2025 22:18:53  ** STPMV                        ** GENERATED CODE                                   PAGE 00538
 16590  
 16591  int_4 _stpmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_4 _p_ ap_, real_4 _p_ x_, int_4 _p_ 
 16592  incx_)
 16593  { // ** body not listed **
 16787  }
 16788  
 16789  // VIF  THU 20 NOV 2025 22:18:53  ** STPSV                        ** STPSV                                            PAGE 00542
 16790  
 16791  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 16792  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 16793  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 16794  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 16795  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 16796  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 16797  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 16798  
 16799  //                                        SSSSS  TTTTTTT PPPPPP   SSSSS  V     V
 16800  //                                       S     S    T    P     P S     S V     V
 16801  //                                       S          T    P     P S       V     V
 16802  //                                        SSSSS     T    PPPPPP   SSSSS  V     V
 16803  //                                             S    T    P             S  V   V
 16804  //                                       S     S    T    P       S     S   V V
 16805  //                                        SSSSS     T    P        SSSSS     V
 16806  
 16807  
 16808  // VIF  THU 20 NOV 2025 22:18:53  ** STPSV                        ** DIAGNOSTICS                                      PAGE 00543
 16809  
 16810  
 16811  // VIF  THU 20 NOV 2025 22:18:53  ** STPSV                        ** GENERATED CODE                                   PAGE 00544
 16812  
 16813  int_4 _stpsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_4 _p_ ap_, real_4 _p_ x_, int_4 _p_ 
 16814  incx_)
 16815  { // ** body not listed **
 17009  }
 17010  
 17011  // VIF  THU 20 NOV 2025 22:18:53  ** STRMM                        ** STRMM                                            PAGE 00548
 17012  
 17013  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17014  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17015  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17016  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17017  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17018  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17019  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17020  
 17021  //                                        SSSSS  TTTTTTT RRRRRR  M     M M     M
 17022  //                                       S     S    T    R     R MM   MM MM   MM
 17023  //                                       S          T    R     R M M M M M M M M
 17024  //                                        SSSSS     T    RRRRRR  M  M  M M  M  M
 17025  //                                             S    T    R   R   M     M M     M
 17026  //                                       S     S    T    R    R  M     M M     M
 17027  //                                        SSSSS     T    R     R M     M M     M
 17028  
 17029  
 17030  // VIF  THU 20 NOV 2025 22:18:53  ** STRMM                        ** DIAGNOSTICS                                      PAGE 00549
 17031  
 17032  
 17033  // VIF  THU 20 NOV 2025 22:18:53  ** STRMM                        ** GENERATED CODE                                   PAGE 00550
 17034  
 17035  int_4 _strmm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ 
 17036  alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_)
 17037  { // ** body not listed **
 17262  }
 17263  
 17264  // VIF  THU 20 NOV 2025 22:18:53  ** STRMV                        ** STRMV                                            PAGE 00555
 17265  
 17266  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17267  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17268  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17269  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17270  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17271  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17272  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17273  
 17274  //                                        SSSSS  TTTTTTT RRRRRR  M     M V     V
 17275  //                                       S     S    T    R     R MM   MM V     V
 17276  //                                       S          T    R     R M M M M V     V
 17277  //                                        SSSSS     T    RRRRRR  M  M  M V     V
 17278  //                                             S    T    R   R   M     M  V   V
 17279  //                                       S     S    T    R    R  M     M   V V
 17280  //                                        SSSSS     T    R     R M     M    V
 17281  
 17282  
 17283  // VIF  THU 20 NOV 2025 22:18:53  ** STRMV                        ** DIAGNOSTICS                                      PAGE 00556
 17284  
 17285  
 17286  // VIF  THU 20 NOV 2025 22:18:53  ** STRMV                        ** GENERATED CODE                                   PAGE 00557
 17287  
 17288  int_4 _strmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ 
 17289  x_, int_4 _p_ incx_)
 17290  { // ** body not listed **
 17468  }
 17469  
 17470  // VIF  THU 20 NOV 2025 22:18:53  ** STRSM                        ** STRSM                                            PAGE 00561
 17471  
 17472  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17473  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17474  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17475  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17476  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17477  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17478  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17479  
 17480  //                                        SSSSS  TTTTTTT RRRRRR   SSSSS  M     M
 17481  //                                       S     S    T    R     R S     S MM   MM
 17482  //                                       S          T    R     R S       M M M M
 17483  //                                        SSSSS     T    RRRRRR   SSSSS  M  M  M
 17484  //                                             S    T    R   R         S M     M
 17485  //                                       S     S    T    R    R  S     S M     M
 17486  //                                        SSSSS     T    R     R  SSSSS  M     M
 17487  
 17488  
 17489  // VIF  THU 20 NOV 2025 22:18:53  ** STRSM                        ** DIAGNOSTICS                                      PAGE 00562
 17490  
 17491  
 17492  // VIF  THU 20 NOV 2025 22:18:53  ** STRSM                        ** GENERATED CODE                                   PAGE 00563
 17493  
 17494  int_4 _strsm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ 
 17495  alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_)
 17496  { // ** body not listed **
 17737  }
 17738  
 17739  // VIF  THU 20 NOV 2025 22:18:53  ** STRSV                        ** STRSV                                            PAGE 00568
 17740  
 17741  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17742  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17743  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17744  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17745  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17746  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17747  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17748  
 17749  //                                        SSSSS  TTTTTTT RRRRRR   SSSSS  V     V
 17750  //                                       S     S    T    R     R S     S V     V
 17751  //                                       S          T    R     R S       V     V
 17752  //                                        SSSSS     T    RRRRRR   SSSSS  V     V
 17753  //                                             S    T    R   R         S  V   V
 17754  //                                       S     S    T    R    R  S     S   V V
 17755  //                                        SSSSS     T    R     R  SSSSS     V
 17756  
 17757  
 17758  // VIF  THU 20 NOV 2025 22:18:53  ** STRSV                        ** DIAGNOSTICS                                      PAGE 00569
 17759  
 17760  
 17761  // VIF  THU 20 NOV 2025 22:18:53  ** STRSV                        ** GENERATED CODE                                   PAGE 00570
 17762  
 17763  int_4 _strsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ 
 17764  x_, int_4 _p_ incx_)
 17765  { // ** body not listed **
 17943  }
 17944  
 17945  // VIF  THU 20 NOV 2025 22:18:53  ** ZAXPY                        ** ZAXPY                                            PAGE 00574
 17946  
 17947  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 17948  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 17949  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 17950  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 17951  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 17952  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 17953  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 17954  
 17955  //                                       ZZZZZZZ    A    X     X PPPPPP  Y     Y
 17956  //                                            Z    A A    X   X  P     P  Y   Y
 17957  //                                           Z    A   A    X X   P     P   Y Y
 17958  //                                          Z    A     A    X    PPPPPP     Y
 17959  //                                         Z     AAAAAAA   X X   P          Y
 17960  //                                        *      A     A  X   X  P          Y
 17961  //                                       ZZZZZZZ A     A X     X P          Y
 17962  
 17963  
 17964  // VIF  THU 20 NOV 2025 22:18:53  ** ZAXPY                        ** DIAGNOSTICS                                      PAGE 00575
 17965  
 17966  
 17967  // VIF  THU 20 NOV 2025 22:18:53  ** ZAXPY                        ** GENERATED CODE                                   PAGE 00576
 17968  
 17969  int_4 _zaxpy (int_4 _p_ n_, complex_16 _p_ za_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ 
 17970  incy_)
 17971  { // ** body not listed **
 18003  }
 18004  
 18005  // VIF  THU 20 NOV 2025 22:18:53  ** ZCOPY                        ** ZCOPY                                            PAGE 00577
 18006  
 18007  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18008  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18009  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18010  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18011  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18012  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18013  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18014  
 18015  //                                       ZZZZZZZ  CCCCC   OOOOO  PPPPPP  Y     Y
 18016  //                                            Z  C     C O     O P     P  Y   Y
 18017  //                                           Z   C       O     O P     P   Y Y
 18018  //                                          Z    C       O     O PPPPPP     Y
 18019  //                                         Z     C       O     O P          Y
 18020  //                                        *      C     C O     O P          Y
 18021  //                                       ZZZZZZZ  CCCCC   OOOOO  P          Y
 18022  
 18023  
 18024  // VIF  THU 20 NOV 2025 22:18:53  ** ZCOPY                        ** DIAGNOSTICS                                      PAGE 00578
 18025  
 18026  
 18027  // VIF  THU 20 NOV 2025 22:18:53  ** ZCOPY                        ** GENERATED CODE                                   PAGE 00579
 18028  
 18029  int_4 _zcopy (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
 18030  { // ** body not listed **
 18059  }
 18060  
 18061  // VIF  THU 20 NOV 2025 22:18:53  ** ZDOTC                        ** ZDOTC                                            PAGE 00580
 18062  
 18063  //                    CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X            1     66666
 18064  //                   C     C O     O MM   MM P     P L       E        X   X   *   *    11    6     6
 18065  //                   C       O     O M M M M P     P L       E         X X     * *    1 1    6
 18066  //                   C       O     O M  M  M PPPPPP  L       EEEEE      X    *******    1    666666
 18067  //                   C       O     O M     M P       L       E         X X     * *      1    6     6
 18068  //                   C     C O     O M     M P       L       E        X   X   *   *     1    6     6
 18069  //                    CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          11111   66666
 18070  
 18071  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 18072  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 18073  //                           F       U     U N N   N C          T       I    O     O N N   N
 18074  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 18075  //                           F       U     U N   N N C          T       I    O     O N   N N
 18076  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 18077  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 18078  
 18079  //                                       ZZZZZZZ DDDDDD   OOOOO  TTTTTTT  CCCCC
 18080  //                                            Z  D     D O     O    T    C     C
 18081  //                                           Z   D     D O     O    T    C
 18082  //                                          Z    D     D O     O    T    C
 18083  //                                         Z     D     D O     O    T    C
 18084  //                                        *      D     D O     O    T    C     C
 18085  //                                       ZZZZZZZ DDDDDD   OOOOO     T     CCCCC
 18086  
 18087  
 18088  // VIF  THU 20 NOV 2025 22:18:53  ** ZDOTC                        ** DIAGNOSTICS                                      PAGE 00581
 18089  
 18090  
 18091  // VIF  THU 20 NOV 2025 22:18:53  ** ZDOTC                        ** GENERATED CODE                                   PAGE 00582
 18092  
 18093  complex_16 _zdotc (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
 18094  { // ** body not listed **
 18131  }
 18132  
 18133  // VIF  THU 20 NOV 2025 22:18:53  ** ZDOTU                        ** ZDOTU                                            PAGE 00583
 18134  
 18135  //                    CCCCC   OOOOO  M     M PPPPPP  L       EEEEEEE X     X            1     66666
 18136  //                   C     C O     O MM   MM P     P L       E        X   X   *   *    11    6     6
 18137  //                   C       O     O M M M M P     P L       E         X X     * *    1 1    6
 18138  //                   C       O     O M  M  M PPPPPP  L       EEEEE      X    *******    1    666666
 18139  //                   C       O     O M     M P       L       E         X X     * *      1    6     6
 18140  //                   C     C O     O M     M P       L       E        X   X   *   *     1    6     6
 18141  //                    CCCCC   OOOOO  M     M P       LLLLLLL EEEEEEE X     X          11111   66666
 18142  
 18143  //                           FFFFFFF U     U N     N  CCCCC  TTTTTTT   III    OOOOO  N     N
 18144  //                           F       U     U NN    N C     C    T       I    O     O NN    N
 18145  //                           F       U     U N N   N C          T       I    O     O N N   N
 18146  //                           FFFFF   U     U N  N  N C          T       I    O     O N  N  N
 18147  //                           F       U     U N   N N C          T       I    O     O N   N N
 18148  //                           F       U     U N    NN C     C    T       I    O     O N    NN
 18149  //                           F        UUUUU  N     N  CCCCC     T      III    OOOOO  N     N
 18150  
 18151  //                                       ZZZZZZZ DDDDDD   OOOOO  TTTTTTT U     U
 18152  //                                            Z  D     D O     O    T    U     U
 18153  //                                           Z   D     D O     O    T    U     U
 18154  //                                          Z    D     D O     O    T    U     U
 18155  //                                         Z     D     D O     O    T    U     U
 18156  //                                        *      D     D O     O    T    U     U
 18157  //                                       ZZZZZZZ DDDDDD   OOOOO     T     UUUUU
 18158  
 18159  
 18160  // VIF  THU 20 NOV 2025 22:18:53  ** ZDOTU                        ** DIAGNOSTICS                                      PAGE 00584
 18161  
 18162  
 18163  // VIF  THU 20 NOV 2025 22:18:53  ** ZDOTU                        ** GENERATED CODE                                   PAGE 00585
 18164  
 18165  complex_16 _zdotu (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
 18166  { // ** body not listed **
 18201  }
 18202  
 18203  // VIF  THU 20 NOV 2025 22:18:53  ** ZDROT                        ** ZDROT                                            PAGE 00586
 18204  
 18205  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18206  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18207  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18208  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18209  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18210  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18211  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18212  
 18213  //                                       ZZZZZZZ DDDDDD  RRRRRR   OOOOO  TTTTTTT
 18214  //                                            Z  D     D R     R O     O    T
 18215  //                                           Z   D     D R     R O     O    T
 18216  //                                          Z    D     D RRRRRR  O     O    T
 18217  //                                         Z     D     D R   R   O     O    T
 18218  //                                        *      D     D R    R  O     O    T
 18219  //                                       ZZZZZZZ DDDDDD  R     R  OOOOO     T
 18220  
 18221  
 18222  // VIF  THU 20 NOV 2025 22:18:53  ** ZDROT                        ** DIAGNOSTICS                                      PAGE 00587
 18223  
 18224  
 18225  // VIF  THU 20 NOV 2025 22:18:53  ** ZDROT                        ** GENERATED CODE                                   PAGE 00588
 18226  
 18227  int_4 _zdrot (int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ incx_, complex_16 _p_ cy_, int_4 _p_ incy_, real_8 _p_ c_, 
 18228  real_8 _p_ s_)
 18229  { // ** body not listed **
 18263  }
 18264  
 18265  // VIF  THU 20 NOV 2025 22:18:53  ** ZDSCAL                       ** ZDSCAL                                           PAGE 00589
 18266  
 18267  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18268  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18269  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18270  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18271  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18272  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18273  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18274  
 18275  //                                   ZZZZZZZ DDDDDD   SSSSS   CCCCC     A    L
 18276  //                                        Z  D     D S     S C     C   A A   L
 18277  //                                       Z   D     D S       C        A   A  L
 18278  //                                      Z    D     D  SSSSS  C       A     A L
 18279  //                                     Z     D     D       S C       AAAAAAA L
 18280  //                                    *      D     D S     S C     C A     A L
 18281  //                                   ZZZZZZZ DDDDDD   SSSSS   CCCCC  A     A LLLLLLL
 18282  
 18283  
 18284  // VIF  THU 20 NOV 2025 22:18:53  ** ZDSCAL                       ** DIAGNOSTICS                                      PAGE 00590
 18285  
 18286  
 18287  // VIF  THU 20 NOV 2025 22:18:53  ** ZDSCAL                       ** GENERATED CODE                                   PAGE 00591
 18288  
 18289  int_4 _zdscal (int_4 _p_ n_, real_8 _p_ da_, complex_16 _p_ zx_, int_4 _p_ incx_)
 18290  { // ** body not listed **
 18312  }
 18313  
 18314  // VIF  THU 20 NOV 2025 22:18:53  ** ZGBMV                        ** ZGBMV                                            PAGE 00592
 18315  
 18316  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18317  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18318  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18319  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18320  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18321  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18322  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18323  
 18324  //                                       ZZZZZZZ  GGGGG  BBBBBB  M     M V     V
 18325  //                                            Z  G     G B     B MM   MM V     V
 18326  //                                           Z   G       B     B M M M M V     V
 18327  //                                          Z    G  GGGG BBBBBB  M  M  M V     V
 18328  //                                         Z     G     G B     B M     M  V   V
 18329  //                                        *      G     G B     B M     M   V V
 18330  //                                       ZZZZZZZ  GGGGG  BBBBBB  M     M    V
 18331  
 18332  
 18333  // VIF  THU 20 NOV 2025 22:18:53  ** ZGBMV                        ** DIAGNOSTICS                                      PAGE 00593
 18334  
 18335  
 18336  // VIF  THU 20 NOV 2025 22:18:53  ** ZGBMV                        ** GENERATED CODE                                   PAGE 00594
 18337  
 18338  int_4 _zgbmv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ kl_, int_4 _p_ ku_, complex_16 _p_ alpha_, 
 18339  complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 
 18340  _p_ incy_)
 18341  { // ** body not listed **
 18523  }
 18524  
 18525  // VIF  THU 20 NOV 2025 22:18:53  ** ZGEMM                        ** ZGEMM                                            PAGE 00598
 18526  
 18527  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18528  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18529  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18530  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18531  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18532  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18533  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18534  
 18535  //                                       ZZZZZZZ  GGGGG  EEEEEEE M     M M     M
 18536  //                                            Z  G     G E       MM   MM MM   MM
 18537  //                                           Z   G       E       M M M M M M M M
 18538  //                                          Z    G  GGGG EEEEE   M  M  M M  M  M
 18539  //                                         Z     G     G E       M     M M     M
 18540  //                                        *      G     G E       M     M M     M
 18541  //                                       ZZZZZZZ  GGGGG  EEEEEEE M     M M     M
 18542  
 18543  
 18544  // VIF  THU 20 NOV 2025 22:18:53  ** ZGEMM                        ** DIAGNOSTICS                                      PAGE 00599
 18545  
 18546  
 18547  // VIF  THU 20 NOV 2025 22:18:53  ** ZGEMM                        ** GENERATED CODE                                   PAGE 00600
 18548  
 18549  int_4 _zgemm (char _p_ transa_, char _p_ transb_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ alpha_, 
 18550  complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 
 18551  _p_ ldc_)
 18552  { // ** body not listed **
 18815  }
 18816  
 18817  // VIF  THU 20 NOV 2025 22:18:53  ** ZGEMV                        ** ZGEMV                                            PAGE 00606
 18818  
 18819  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 18820  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 18821  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 18822  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 18823  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 18824  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 18825  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 18826  
 18827  //                                       ZZZZZZZ  GGGGG  EEEEEEE M     M V     V
 18828  //                                            Z  G     G E       MM   MM V     V
 18829  //                                           Z   G       E       M M M M V     V
 18830  //                                          Z    G  GGGG EEEEE   M  M  M V     V
 18831  //                                         Z     G     G E       M     M  V   V
 18832  //                                        *      G     G E       M     M   V V
 18833  //                                       ZZZZZZZ  GGGGG  EEEEEEE M     M    V
 18834  
 18835  
 18836  // VIF  THU 20 NOV 2025 22:18:53  ** ZGEMV                        ** DIAGNOSTICS                                      PAGE 00607
 18837  
 18838  
 18839  // VIF  THU 20 NOV 2025 22:18:53  ** ZGEMV                        ** GENERATED CODE                                   PAGE 00608
 18840  
 18841  int_4 _zgemv (char _p_ trans_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, 
 18842  complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
 18843  { // ** body not listed **
 19007  }
 19008  
 19009  // VIF  THU 20 NOV 2025 22:18:53  ** ZGERC                        ** ZGERC                                            PAGE 00612
 19010  
 19011  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19012  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19013  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19014  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19015  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19016  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19017  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19018  
 19019  //                                       ZZZZZZZ  GGGGG  EEEEEEE RRRRRR   CCCCC
 19020  //                                            Z  G     G E       R     R C     C
 19021  //                                           Z   G       E       R     R C
 19022  //                                          Z    G  GGGG EEEEE   RRRRRR  C
 19023  //                                         Z     G     G E       R   R   C
 19024  //                                        *      G     G E       R    R  C     C
 19025  //                                       ZZZZZZZ  GGGGG  EEEEEEE R     R  CCCCC
 19026  
 19027  
 19028  // VIF  THU 20 NOV 2025 22:18:53  ** ZGERC                        ** DIAGNOSTICS                                      PAGE 00613
 19029  
 19030  
 19031  // VIF  THU 20 NOV 2025 22:18:53  ** ZGERC                        ** GENERATED CODE                                   PAGE 00614
 19032  
 19033  int_4 _zgerc (int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ y_, 
 19034  int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
 19035  { // ** body not listed **
 19106  }
 19107  
 19108  // VIF  THU 20 NOV 2025 22:18:53  ** ZGERU                        ** ZGERU                                            PAGE 00616
 19109  
 19110  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19111  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19112  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19113  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19114  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19115  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19116  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19117  
 19118  //                                       ZZZZZZZ  GGGGG  EEEEEEE RRRRRR  U     U
 19119  //                                            Z  G     G E       R     R U     U
 19120  //                                           Z   G       E       R     R U     U
 19121  //                                          Z    G  GGGG EEEEE   RRRRRR  U     U
 19122  //                                         Z     G     G E       R   R   U     U
 19123  //                                        *      G     G E       R    R  U     U
 19124  //                                       ZZZZZZZ  GGGGG  EEEEEEE R     R  UUUUU
 19125  
 19126  
 19127  // VIF  THU 20 NOV 2025 22:18:53  ** ZGERU                        ** DIAGNOSTICS                                      PAGE 00617
 19128  
 19129  
 19130  // VIF  THU 20 NOV 2025 22:18:53  ** ZGERU                        ** GENERATED CODE                                   PAGE 00618
 19131  
 19132  int_4 _zgeru (int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ y_, 
 19133  int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
 19134  { // ** body not listed **
 19203  }
 19204  
 19205  // VIF  THU 20 NOV 2025 22:18:53  ** ZHBMV                        ** ZHBMV                                            PAGE 00620
 19206  
 19207  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19208  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19209  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19210  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19211  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19212  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19213  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19214  
 19215  //                                       ZZZZZZZ H     H BBBBBB  M     M V     V
 19216  //                                            Z  H     H B     B MM   MM V     V
 19217  //                                           Z   H     H B     B M M M M V     V
 19218  //                                          Z    HHHHHHH BBBBBB  M  M  M V     V
 19219  //                                         Z     H     H B     B M     M  V   V
 19220  //                                        *      H     H B     B M     M   V V
 19221  //                                       ZZZZZZZ H     H BBBBBB  M     M    V
 19222  
 19223  
 19224  // VIF  THU 20 NOV 2025 22:18:53  ** ZHBMV                        ** DIAGNOSTICS                                      PAGE 00621
 19225  
 19226  
 19227  // VIF  THU 20 NOV 2025 22:18:53  ** ZHBMV                        ** GENERATED CODE                                   PAGE 00622
 19228  
 19229  int_4 _zhbmv (char _p_ uplo_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, 
 19230  complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
 19231  { // ** body not listed **
 19395  }
 19396  
 19397  // VIF  THU 20 NOV 2025 22:18:53  ** ZHEMM                        ** ZHEMM                                            PAGE 00626
 19398  
 19399  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19400  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19401  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19402  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19403  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19404  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19405  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19406  
 19407  //                                       ZZZZZZZ H     H EEEEEEE M     M M     M
 19408  //                                            Z  H     H E       MM   MM MM   MM
 19409  //                                           Z   H     H E       M M M M M M M M
 19410  //                                          Z    HHHHHHH EEEEE   M  M  M M  M  M
 19411  //                                         Z     H     H E       M     M M     M
 19412  //                                        *      H     H E       M     M M     M
 19413  //                                       ZZZZZZZ H     H EEEEEEE M     M M     M
 19414  
 19415  
 19416  // VIF  THU 20 NOV 2025 22:18:53  ** ZHEMM                        ** DIAGNOSTICS                                      PAGE 00627
 19417  
 19418  
 19419  // VIF  THU 20 NOV 2025 22:18:53  ** ZHEMM                        ** GENERATED CODE                                   PAGE 00628
 19420  
 19421  int_4 _zhemm (char _p_ side_, char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ a_, 
 19422  int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 19423  { // ** body not listed **
 19579  }
 19580  
 19581  // VIF  THU 20 NOV 2025 22:18:53  ** ZHEMV                        ** ZHEMV                                            PAGE 00632
 19582  
 19583  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19584  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19585  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19586  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19587  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19588  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19589  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19590  
 19591  //                                       ZZZZZZZ H     H EEEEEEE M     M V     V
 19592  //                                            Z  H     H E       MM   MM V     V
 19593  //                                           Z   H     H E       M M M M V     V
 19594  //                                          Z    HHHHHHH EEEEE   M  M  M V     V
 19595  //                                         Z     H     H E       M     M  V   V
 19596  //                                        *      H     H E       M     M   V V
 19597  //                                       ZZZZZZZ H     H EEEEEEE M     M    V
 19598  
 19599  
 19600  // VIF  THU 20 NOV 2025 22:18:53  ** ZHEMV                        ** DIAGNOSTICS                                      PAGE 00633
 19601  
 19602  
 19603  // VIF  THU 20 NOV 2025 22:18:53  ** ZHEMV                        ** GENERATED CODE                                   PAGE 00634
 19604  
 19605  int_4 _zhemv (char _p_ uplo_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ x_
 19606  , int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
 19607  { // ** body not listed **
 19756  }
 19757  
 19758  // VIF  THU 20 NOV 2025 22:18:53  ** ZHER2                        ** ZHER2                                            PAGE 00637
 19759  
 19760  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19761  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19762  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19763  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19764  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19765  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19766  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19767  
 19768  //                                       ZZZZZZZ H     H EEEEEEE RRRRRR   22222
 19769  //                                            Z  H     H E       R     R 2     2
 19770  //                                           Z   H     H E       R     R       2
 19771  //                                          Z    HHHHHHH EEEEE   RRRRRR   22222
 19772  //                                         Z     H     H E       R   R   2
 19773  //                                        *      H     H E       R    R  2
 19774  //                                       ZZZZZZZ H     H EEEEEEE R     R 2222222
 19775  
 19776  
 19777  // VIF  THU 20 NOV 2025 22:18:53  ** ZHER2                        ** DIAGNOSTICS                                      PAGE 00638
 19778  
 19779  
 19780  // VIF  THU 20 NOV 2025 22:18:53  ** ZHER2                        ** GENERATED CODE                                   PAGE 00639
 19781  
 19782  int_4 _zher2 (char _p_ uplo_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ 
 19783  y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
 19784  { // ** body not listed **
 19922  }
 19923  
 19924  // VIF  THU 20 NOV 2025 22:18:53  ** ZHER2K                       ** ZHER2K                                           PAGE 00642
 19925  
 19926  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 19927  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 19928  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 19929  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 19930  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 19931  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 19932  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 19933  
 19934  //                                    ZZZZZZZ H     H EEEEEEE RRRRRR   22222  K    K
 19935  //                                         Z  H     H E       R     R 2     2 K   K
 19936  //                                        Z   H     H E       R     R       2 K  K
 19937  //                                       Z    HHHHHHH EEEEE   RRRRRR   22222  KKK
 19938  //                                      Z     H     H E       R   R   2       K  K
 19939  //                                     *      H     H E       R    R  2       K   K
 19940  //                                    ZZZZZZZ H     H EEEEEEE R     R 2222222 K    K
 19941  
 19942  
 19943  // VIF  THU 20 NOV 2025 22:18:53  ** ZHER2K                       ** DIAGNOSTICS                                      PAGE 00643
 19944  
 19945  
 19946  // VIF  THU 20 NOV 2025 22:18:53  ** ZHER2K                       ** GENERATED CODE                                   PAGE 00644
 19947  
 19948  int_4 _zher2k (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ alpha_, complex_16 _p_ a_, 
 19949  int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 19950  { // ** body not listed **
 20171  }
 20172  
 20173  // VIF  THU 20 NOV 2025 22:18:53  ** ZHER                         ** ZHER                                             PAGE 00649
 20174  
 20175  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20176  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20177  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20178  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20179  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20180  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20181  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20182  
 20183  //                                           ZZZZZZZ H     H EEEEEEE RRRRRR
 20184  //                                                Z  H     H E       R     R
 20185  //                                               Z   H     H E       R     R
 20186  //                                              Z    HHHHHHH EEEEE   RRRRRR
 20187  //                                             Z     H     H E       R   R
 20188  //                                            *      H     H E       R    R
 20189  //                                           ZZZZZZZ H     H EEEEEEE R     R
 20190  
 20191  
 20192  // VIF  THU 20 NOV 2025 22:18:53  ** ZHER                         ** DIAGNOSTICS                                      PAGE 00650
 20193  
 20194  
 20195  // VIF  THU 20 NOV 2025 22:18:53  ** ZHER                         ** GENERATED CODE                                   PAGE 00651
 20196  
 20197  int_4 _zher (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ a_, 
 20198  int_4 _p_ lda_)
 20199  { // ** body not listed **
 20313  }
 20314  
 20315  // VIF  THU 20 NOV 2025 22:18:53  ** ZHERK                        ** ZHERK                                            PAGE 00654
 20316  
 20317  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20318  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20319  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20320  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20321  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20322  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20323  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20324  
 20325  //                                        ZZZZZZZ H     H EEEEEEE RRRRRR  K    K
 20326  //                                             Z  H     H E       R     R K   K
 20327  //                                            Z   H     H E       R     R K  K
 20328  //                                           Z    HHHHHHH EEEEE   RRRRRR  KKK
 20329  //                                          Z     H     H E       R   R   K  K
 20330  //                                         *      H     H E       R    R  K   K
 20331  //                                        ZZZZZZZ H     H EEEEEEE R     R K    K
 20332  
 20333  
 20334  // VIF  THU 20 NOV 2025 22:18:53  ** ZHERK                        ** DIAGNOSTICS                                      PAGE 00655
 20335  
 20336  
 20337  // VIF  THU 20 NOV 2025 22:18:53  ** ZHERK                        ** GENERATED CODE                                   PAGE 00656
 20338  
 20339  int_4 _zherk (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ alpha_, complex_16 _p_ a_, int_4 
 20340  _p_ lda_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 20341  { // ** body not listed **
 20552  }
 20553  
 20554  // VIF  THU 20 NOV 2025 22:18:53  ** ZHPMV                        ** ZHPMV                                            PAGE 00661
 20555  
 20556  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20557  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20558  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20559  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20560  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20561  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20562  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20563  
 20564  //                                       ZZZZZZZ H     H PPPPPP  M     M V     V
 20565  //                                            Z  H     H P     P MM   MM V     V
 20566  //                                           Z   H     H P     P M M M M V     V
 20567  //                                          Z    HHHHHHH PPPPPP  M  M  M V     V
 20568  //                                         Z     H     H P       M     M  V   V
 20569  //                                        *      H     H P       M     M   V V
 20570  //                                       ZZZZZZZ H     H P       M     M    V
 20571  
 20572  
 20573  // VIF  THU 20 NOV 2025 22:18:53  ** ZHPMV                        ** DIAGNOSTICS                                      PAGE 00662
 20574  
 20575  
 20576  // VIF  THU 20 NOV 2025 22:18:53  ** ZHPMV                        ** GENERATED CODE                                   PAGE 00663
 20577  
 20578  int_4 _zhpmv (char _p_ uplo_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ ap_, complex_16 _p_ x_, int_4 _p_ 
 20579  incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
 20580  { // ** body not listed **
 20736  }
 20737  
 20738  // VIF  THU 20 NOV 2025 22:18:53  ** ZHPR2                        ** ZHPR2                                            PAGE 00667
 20739  
 20740  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20741  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20742  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20743  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20744  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20745  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20746  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20747  
 20748  //                                       ZZZZZZZ H     H PPPPPP  RRRRRR   22222
 20749  //                                            Z  H     H P     P R     R 2     2
 20750  //                                           Z   H     H P     P R     R       2
 20751  //                                          Z    HHHHHHH PPPPPP  RRRRRR   22222
 20752  //                                         Z     H     H P       R   R   2
 20753  //                                        *      H     H P       R    R  2
 20754  //                                       ZZZZZZZ H     H P       R     R 2222222
 20755  
 20756  
 20757  // VIF  THU 20 NOV 2025 22:18:53  ** ZHPR2                        ** DIAGNOSTICS                                      PAGE 00668
 20758  
 20759  
 20760  // VIF  THU 20 NOV 2025 22:18:53  ** ZHPR2                        ** GENERATED CODE                                   PAGE 00669
 20761  
 20762  int_4 _zhpr2 (char _p_ uplo_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ 
 20763  y_, int_4 _p_ incy_, complex_16 _p_ ap_)
 20764  { // ** body not listed **
 20903  }
 20904  
 20905  // VIF  THU 20 NOV 2025 22:18:53  ** ZHPR                         ** ZHPR                                             PAGE 00672
 20906  
 20907  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 20908  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 20909  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 20910  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 20911  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 20912  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 20913  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 20914  
 20915  //                                           ZZZZZZZ H     H PPPPPP  RRRRRR
 20916  //                                                Z  H     H P     P R     R
 20917  //                                               Z   H     H P     P R     R
 20918  //                                              Z    HHHHHHH PPPPPP  RRRRRR
 20919  //                                             Z     H     H P       R   R
 20920  //                                            *      H     H P       R    R
 20921  //                                           ZZZZZZZ H     H P       R     R
 20922  
 20923  
 20924  // VIF  THU 20 NOV 2025 22:18:53  ** ZHPR                         ** DIAGNOSTICS                                      PAGE 00673
 20925  
 20926  
 20927  // VIF  THU 20 NOV 2025 22:18:53  ** ZHPR                         ** GENERATED CODE                                   PAGE 00674
 20928  
 20929  int_4 _zhpr (char _p_ uplo_, int_4 _p_ n_, real_8 _p_ alpha_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ ap_)
 20930  { // ** body not listed **
 21045  }
 21046  
 21047  // VIF  THU 20 NOV 2025 22:18:53  ** ZROTG                        ** ZROTG                                            PAGE 00677
 21048  
 21049  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21050  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21051  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21052  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21053  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21054  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21055  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21056  
 21057  //                                       ZZZZZZZ RRRRRR   OOOOO  TTTTTTT  GGGGG
 21058  //                                            Z  R     R O     O    T    G     G
 21059  //                                           Z   R     R O     O    T    G
 21060  //                                          Z    RRRRRR  O     O    T    G  GGGG
 21061  //                                         Z     R   R   O     O    T    G     G
 21062  //                                        *      R    R  O     O    T    G     G
 21063  //                                       ZZZZZZZ R     R  OOOOO     T     GGGGG
 21064  
 21065  
 21066  // VIF  THU 20 NOV 2025 22:18:53  ** ZROTG                        ** DIAGNOSTICS                                      PAGE 00678
 21067  
 21068  
 21069  // VIF  THU 20 NOV 2025 22:18:53  ** ZROTG                        ** GENERATED CODE                                   PAGE 00679
 21070  
 21071  int_4 _zrotg (complex_16 _p_ ca_, complex_16 _p_ cb_, real_8 _p_ c_, complex_16 _p_ s_)
 21072  { // ** body not listed **
 21102  }
 21103  
 21104  // VIF  THU 20 NOV 2025 22:18:53  ** ZSCAL                        ** ZSCAL                                            PAGE 00680
 21105  
 21106  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21107  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21108  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21109  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21110  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21111  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21112  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21113  
 21114  //                                       ZZZZZZZ  SSSSS   CCCCC     A    L
 21115  //                                            Z  S     S C     C   A A   L
 21116  //                                           Z   S       C        A   A  L
 21117  //                                          Z     SSSSS  C       A     A L
 21118  //                                         Z           S C       AAAAAAA L
 21119  //                                        *      S     S C     C A     A L
 21120  //                                       ZZZZZZZ  SSSSS   CCCCC  A     A LLLLLLL
 21121  
 21122  
 21123  // VIF  THU 20 NOV 2025 22:18:53  ** ZSCAL                        ** DIAGNOSTICS                                      PAGE 00681
 21124  
 21125  
 21126  // VIF  THU 20 NOV 2025 22:18:53  ** ZSCAL                        ** GENERATED CODE                                   PAGE 00682
 21127  
 21128  int_4 _zscal (int_4 _p_ n_, complex_16 _p_ za_, complex_16 _p_ zx_, int_4 _p_ incx_)
 21129  { // ** body not listed **
 21150  }
 21151  
 21152  // VIF  THU 20 NOV 2025 22:18:53  ** ZSWAP                        ** ZSWAP                                            PAGE 00683
 21153  
 21154  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21155  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21156  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21157  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21158  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21159  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21160  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21161  
 21162  //                                       ZZZZZZZ  SSSSS  W     W    A    PPPPPP
 21163  //                                            Z  S     S W     W   A A   P     P
 21164  //                                           Z   S       W     W  A   A  P     P
 21165  //                                          Z     SSSSS  W  W  W A     A PPPPPP
 21166  //                                         Z           S W  W  W AAAAAAA P
 21167  //                                        *      S     S W  W  W A     A P
 21168  //                                       ZZZZZZZ  SSSSS   WW WW  A     A P
 21169  
 21170  
 21171  // VIF  THU 20 NOV 2025 22:18:53  ** ZSWAP                        ** DIAGNOSTICS                                      PAGE 00684
 21172  
 21173  
 21174  // VIF  THU 20 NOV 2025 22:18:53  ** ZSWAP                        ** GENERATED CODE                                   PAGE 00685
 21175  
 21176  int_4 _zswap (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
 21177  { // ** body not listed **
 21211  }
 21212  
 21213  // VIF  THU 20 NOV 2025 22:18:53  ** ZSYMM                        ** ZSYMM                                            PAGE 00686
 21214  
 21215  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21216  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21217  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21218  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21219  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21220  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21221  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21222  
 21223  //                                       ZZZZZZZ  SSSSS  Y     Y M     M M     M
 21224  //                                            Z  S     S  Y   Y  MM   MM MM   MM
 21225  //                                           Z   S         Y Y   M M M M M M M M
 21226  //                                          Z     SSSSS     Y    M  M  M M  M  M
 21227  //                                         Z           S    Y    M     M M     M
 21228  //                                        *      S     S    Y    M     M M     M
 21229  //                                       ZZZZZZZ  SSSSS     Y    M     M M     M
 21230  
 21231  
 21232  // VIF  THU 20 NOV 2025 22:18:53  ** ZSYMM                        ** DIAGNOSTICS                                      PAGE 00687
 21233  
 21234  
 21235  // VIF  THU 20 NOV 2025 22:18:53  ** ZSYMM                        ** GENERATED CODE                                   PAGE 00688
 21236  
 21237  int_4 _zsymm (char _p_ side_, char _p_ uplo_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ alpha_, complex_16 _p_ a_, 
 21238  int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 21239  { // ** body not listed **
 21388  }
 21389  
 21390  // VIF  THU 20 NOV 2025 22:18:53  ** ZSYR2K                       ** ZSYR2K                                           PAGE 00691
 21391  
 21392  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21393  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21394  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21395  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21396  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21397  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21398  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21399  
 21400  //                                    ZZZZZZZ  SSSSS  Y     Y RRRRRR   22222  K    K
 21401  //                                         Z  S     S  Y   Y  R     R 2     2 K   K
 21402  //                                        Z   S         Y Y   R     R       2 K  K
 21403  //                                       Z     SSSSS     Y    RRRRRR   22222  KKK
 21404  //                                      Z           S    Y    R   R   2       K  K
 21405  //                                     *      S     S    Y    R    R  2       K   K
 21406  //                                    ZZZZZZZ  SSSSS     Y    R     R 2222222 K    K
 21407  
 21408  
 21409  // VIF  THU 20 NOV 2025 22:18:53  ** ZSYR2K                       ** DIAGNOSTICS                                      PAGE 00692
 21410  
 21411  
 21412  // VIF  THU 20 NOV 2025 22:18:53  ** ZSYR2K                       ** GENERATED CODE                                   PAGE 00693
 21413  
 21414  int_4 _zsyr2k (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ alpha_, complex_16 _p_ a_, 
 21415  int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 21416  { // ** body not listed **
 21595  }
 21596  
 21597  // VIF  THU 20 NOV 2025 22:18:53  ** ZSYRK                        ** ZSYRK                                            PAGE 00697
 21598  
 21599  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21600  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21601  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21602  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21603  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21604  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21605  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21606  
 21607  //                                        ZZZZZZZ  SSSSS  Y     Y RRRRRR  K    K
 21608  //                                             Z  S     S  Y   Y  R     R K   K
 21609  //                                            Z   S         Y Y   R     R K  K
 21610  //                                           Z     SSSSS     Y    RRRRRR  KKK
 21611  //                                          Z           S    Y    R   R   K  K
 21612  //                                         *      S     S    Y    R    R  K   K
 21613  //                                        ZZZZZZZ  SSSSS     Y    R     R K    K
 21614  
 21615  
 21616  // VIF  THU 20 NOV 2025 22:18:53  ** ZSYRK                        ** DIAGNOSTICS                                      PAGE 00698
 21617  
 21618  
 21619  // VIF  THU 20 NOV 2025 22:18:53  ** ZSYRK                        ** GENERATED CODE                                   PAGE 00699
 21620  
 21621  int_4 _zsyrk (char _p_ uplo_, char _p_ trans_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ alpha_, complex_16 _p_ a_, 
 21622  int_4 _p_ lda_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 21623  { // ** body not listed **
 21789  }
 21790  
 21791  // VIF  THU 20 NOV 2025 22:18:53  ** ZTBMV                        ** ZTBMV                                            PAGE 00703
 21792  
 21793  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 21794  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 21795  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 21796  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 21797  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 21798  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 21799  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 21800  
 21801  //                                       ZZZZZZZ TTTTTTT BBBBBB  M     M V     V
 21802  //                                            Z     T    B     B MM   MM V     V
 21803  //                                           Z      T    B     B M M M M V     V
 21804  //                                          Z       T    BBBBBB  M  M  M V     V
 21805  //                                         Z        T    B     B M     M  V   V
 21806  //                                        *         T    B     B M     M   V V
 21807  //                                       ZZZZZZZ    T    BBBBBB  M     M    V
 21808  
 21809  
 21810  // VIF  THU 20 NOV 2025 22:18:53  ** ZTBMV                        ** DIAGNOSTICS                                      PAGE 00704
 21811  
 21812  
 21813  // VIF  THU 20 NOV 2025 22:18:53  ** ZTBMV                        ** GENERATED CODE                                   PAGE 00705
 21814  
 21815  int_4 _ztbmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ a_, int_4 _p_ 
 21816  lda_, complex_16 _p_ x_, int_4 _p_ incx_)
 21817  { // ** body not listed **
 22065  }
 22066  
 22067  // VIF  THU 20 NOV 2025 22:18:53  ** ZTBSV                        ** ZTBSV                                            PAGE 00710
 22068  
 22069  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 22070  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 22071  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 22072  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 22073  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 22074  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 22075  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 22076  
 22077  //                                       ZZZZZZZ TTTTTTT BBBBBB   SSSSS  V     V
 22078  //                                            Z     T    B     B S     S V     V
 22079  //                                           Z      T    B     B S       V     V
 22080  //                                          Z       T    BBBBBB   SSSSS  V     V
 22081  //                                         Z        T    B     B       S  V   V
 22082  //                                        *         T    B     B S     S   V V
 22083  //                                       ZZZZZZZ    T    BBBBBB   SSSSS     V
 22084  
 22085  
 22086  // VIF  THU 20 NOV 2025 22:18:53  ** ZTBSV                        ** DIAGNOSTICS                                      PAGE 00711
 22087  
 22088  
 22089  // VIF  THU 20 NOV 2025 22:18:53  ** ZTBSV                        ** GENERATED CODE                                   PAGE 00712
 22090  
 22091  int_4 _ztbsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ a_, int_4 _p_ 
 22092  lda_, complex_16 _p_ x_, int_4 _p_ incx_)
 22093  { // ** body not listed **
 22341  }
 22342  
 22343  // VIF  THU 20 NOV 2025 22:18:53  ** ZTPMV                        ** ZTPMV                                            PAGE 00717
 22344  
 22345  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 22346  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 22347  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 22348  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 22349  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 22350  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 22351  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 22352  
 22353  //                                       ZZZZZZZ TTTTTTT PPPPPP  M     M V     V
 22354  //                                            Z     T    P     P MM   MM V     V
 22355  //                                           Z      T    P     P M M M M V     V
 22356  //                                          Z       T    PPPPPP  M  M  M V     V
 22357  //                                         Z        T    P       M     M  V   V
 22358  //                                        *         T    P       M     M   V V
 22359  //                                       ZZZZZZZ    T    P       M     M    V
 22360  
 22361  
 22362  // VIF  THU 20 NOV 2025 22:18:53  ** ZTPMV                        ** DIAGNOSTICS                                      PAGE 00718
 22363  
 22364  
 22365  // VIF  THU 20 NOV 2025 22:18:53  ** ZTPMV                        ** GENERATED CODE                                   PAGE 00719
 22366  
 22367  int_4 _ztpmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ ap_, complex_16 _p_ x_, 
 22368  int_4 _p_ incx_)
 22369  { // ** body not listed **
 22612  }
 22613  
 22614  // VIF  THU 20 NOV 2025 22:18:53  ** ZTPSV                        ** ZTPSV                                            PAGE 00724
 22615  
 22616  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 22617  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 22618  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 22619  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 22620  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 22621  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 22622  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 22623  
 22624  //                                       ZZZZZZZ TTTTTTT PPPPPP   SSSSS  V     V
 22625  //                                            Z     T    P     P S     S V     V
 22626  //                                           Z      T    P     P S       V     V
 22627  //                                          Z       T    PPPPPP   SSSSS  V     V
 22628  //                                         Z        T    P             S  V   V
 22629  //                                        *         T    P       S     S   V V
 22630  //                                       ZZZZZZZ    T    P        SSSSS     V
 22631  
 22632  
 22633  // VIF  THU 20 NOV 2025 22:18:53  ** ZTPSV                        ** DIAGNOSTICS                                      PAGE 00725
 22634  
 22635  
 22636  // VIF  THU 20 NOV 2025 22:18:53  ** ZTPSV                        ** GENERATED CODE                                   PAGE 00726
 22637  
 22638  int_4 _ztpsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ ap_, complex_16 _p_ x_, 
 22639  int_4 _p_ incx_)
 22640  { // ** body not listed **
 22883  }
 22884  
 22885  // VIF  THU 20 NOV 2025 22:18:53  ** ZTRMM                        ** ZTRMM                                            PAGE 00731
 22886  
 22887  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 22888  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 22889  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 22890  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 22891  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 22892  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 22893  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 22894  
 22895  //                                       ZZZZZZZ TTTTTTT RRRRRR  M     M M     M
 22896  //                                            Z     T    R     R MM   MM MM   MM
 22897  //                                           Z      T    R     R M M M M M M M M
 22898  //                                          Z       T    RRRRRR  M  M  M M  M  M
 22899  //                                         Z        T    R   R   M     M M     M
 22900  //                                        *         T    R    R  M     M M     M
 22901  //                                       ZZZZZZZ    T    R     R M     M M     M
 22902  
 22903  
 22904  // VIF  THU 20 NOV 2025 22:18:53  ** ZTRMM                        ** DIAGNOSTICS                                      PAGE 00732
 22905  
 22906  
 22907  // VIF  THU 20 NOV 2025 22:18:53  ** ZTRMM                        ** GENERATED CODE                                   PAGE 00733
 22908  
 22909  int_4 _ztrmm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, complex_16 
 22910  _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_)
 22911  { // ** body not listed **
 23181  }
 23182  
 23183  // VIF  THU 20 NOV 2025 22:18:53  ** ZTRMV                        ** ZTRMV                                            PAGE 00739
 23184  
 23185  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23186  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23187  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23188  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23189  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23190  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23191  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23192  
 23193  //                                       ZZZZZZZ TTTTTTT RRRRRR  M     M V     V
 23194  //                                            Z     T    R     R MM   MM V     V
 23195  //                                           Z      T    R     R M M M M V     V
 23196  //                                          Z       T    RRRRRR  M  M  M V     V
 23197  //                                         Z        T    R   R   M     M  V   V
 23198  //                                        *         T    R    R  M     M   V V
 23199  //                                       ZZZZZZZ    T    R     R M     M    V
 23200  
 23201  
 23202  // VIF  THU 20 NOV 2025 22:18:53  ** ZTRMV                        ** DIAGNOSTICS                                      PAGE 00740
 23203  
 23204  
 23205  // VIF  THU 20 NOV 2025 22:18:53  ** ZTRMV                        ** GENERATED CODE                                   PAGE 00741
 23206  
 23207  int_4 _ztrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, 
 23208  complex_16 _p_ x_, int_4 _p_ incx_)
 23209  { // ** body not listed **
 23434  }
 23435  
 23436  // VIF  THU 20 NOV 2025 22:18:53  ** ZTRSM                        ** ZTRSM                                            PAGE 00746
 23437  
 23438  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23439  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23440  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23441  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23442  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23443  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23444  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23445  
 23446  //                                       ZZZZZZZ TTTTTTT RRRRRR   SSSSS  M     M
 23447  //                                            Z     T    R     R S     S MM   MM
 23448  //                                           Z      T    R     R S       M M M M
 23449  //                                          Z       T    RRRRRR   SSSSS  M  M  M
 23450  //                                         Z        T    R   R         S M     M
 23451  //                                        *         T    R    R  S     S M     M
 23452  //                                       ZZZZZZZ    T    R     R  SSSSS  M     M
 23453  
 23454  
 23455  // VIF  THU 20 NOV 2025 22:18:53  ** ZTRSM                        ** DIAGNOSTICS                                      PAGE 00747
 23456  
 23457  
 23458  // VIF  THU 20 NOV 2025 22:18:53  ** ZTRSM                        ** GENERATED CODE                                   PAGE 00748
 23459  
 23460  int_4 _ztrsm (char _p_ side_, char _p_ uplo_, char _p_ transa_, char _p_ diag_, int_4 _p_ m_, int_4 _p_ n_, complex_16 
 23461  _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_)
 23462  { // ** body not listed **
 23748  }
 23749  
 23750  // VIF  THU 20 NOV 2025 22:18:53  ** ZTRSV                        ** ZTRSV                                            PAGE 00754
 23751  
 23752  //                    SSSSS  U     U BBBBBB  RRRRRR   OOOOO  U     U TTTTTTT   III   N     N EEEEEEE
 23753  //                   S     S U     U B     B R     R O     O U     U    T       I    NN    N E
 23754  //                   S       U     U B     B R     R O     O U     U    T       I    N N   N E
 23755  //                    SSSSS  U     U BBBBBB  RRRRRR  O     O U     U    T       I    N  N  N EEEEE
 23756  //                         S U     U B     B R   R   O     O U     U    T       I    N   N N E
 23757  //                   S     S U     U B     B R    R  O     O U     U    T       I    N    NN E
 23758  //                    SSSSS   UUUUU  BBBBBB  R     R  OOOOO   UUUUU     T      III   N     N EEEEEEE
 23759  
 23760  //                                       ZZZZZZZ TTTTTTT RRRRRR   SSSSS  V     V
 23761  //                                            Z     T    R     R S     S V     V
 23762  //                                           Z      T    R     R S       V     V
 23763  //                                          Z       T    RRRRRR   SSSSS  V     V
 23764  //                                         Z        T    R   R         S  V   V
 23765  //                                        *         T    R    R  S     S   V V
 23766  //                                       ZZZZZZZ    T    R     R  SSSSS     V
 23767  
 23768  
 23769  // VIF  THU 20 NOV 2025 22:18:53  ** ZTRSV                        ** DIAGNOSTICS                                      PAGE 00755
 23770  
 23771  
 23772  // VIF  THU 20 NOV 2025 22:18:53  ** ZTRSV                        ** GENERATED CODE                                   PAGE 00756
 23773  
 23774  int_4 _ztrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, 
 23775  complex_16 _p_ x_, int_4 _p_ incx_)
 23776  { // ** body not listed **
 24001  }


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