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  //! 148 subprograms from BLAS
    24  
    25  // Compiled from Fortran source code by VIF.
    26  // Selected subprograms are:
    27  //
    28  // CAXPY  CHERK  CTPSV  DROT   DSYR2K IZAMAX SROTG  STBMV  ZGEMM  ZROTG
    29  // CCOPY  CHPMV  CTRMM  DROTG  DSYRK  SASUM  SROTM  STBSV  ZGEMV  ZSCAL
    30  // CDOTC  CHPR   CTRMV  DROTM  DTBMV  SAXPY  SROTMG STPMV  ZGERC  ZSWAP
    31  // CDOTU  CHPR2  CTRSM  DROTMG DTBSV  SCABS1 SSBMV  STPSV  ZGERU  ZSYMM
    32  // CGBMV  CROTG  CTRSV  DSBMV  DTPMV  SCASUM SSCAL  STRMM  ZHBMV  ZSYR2K
    33  // CGEMM  CSCAL  DASUM  DSCAL  DTPSV  SCNRM2 SSPMV  STRMV  ZHEMM  ZSYRK
    34  // CGEMV  CSROT  DAXPY  DSDOT  DTRMM  SCOPY  SSPR   STRSM  ZHEMV  ZTBMV
    35  // CGERC  CSSCAL DCABS1 DSPMV  DTRMV  SDOT   SSPR2  STRSV  ZHER   ZTBSV
    36  // CGERU  CSWAP  DCOPY  DSPR   DTRSM  SDSDOT SSWAP  ZAXPY  ZHER2  ZTPMV
    37  // CHBMV  CSYMM  DDOT   DSPR2  DTRSV  SGBMV  SSYMM  ZCOPY  ZHER2K ZTPSV
    38  // CHEMM  CSYR2K DGBMV  DSWAP  DZASUM SGEMM  SSYMV  ZDOTC  ZHERK  ZTRMM
    39  // CHEMV  CSYRK  DGEMM  DSYMM  DZNRM2 SGEMV  SSYR   ZDOTU  ZHPMV  ZTRMV
    40  // CHER   CTBMV  DGEMV  DSYMV  ICAMAX SGER   SSYR2  ZDROT  ZHPR   ZTRSM
    41  // CHER2  CTBSV  DGER   DSYR   IDAMAX SNRM2  SSYR2K ZDSCAL ZHPR2  ZTRSV
    42  // CHER2K CTPMV  DNRM2  DSYR2  ISAMAX SROT   SSYRK  ZGBMV
    43  
    44  // Miscellaneous routines from SLATEC, not in other packages as BLAS,
    45  // EISPACK, FISHPACK, FFTPACK, FNLIB, LINPACK etcetera.
    46  // 
    47  // Source: netlib.org/slatec/
    48  // 
    49  // For VIF, all source file have been formatted and labels have been renumbered.
    50  
    51  // The license for BLAS Fortran source code is:
    52  //
    53  // The SLATEC Common Mathematical Library was developed at
    54  // US government research laboratories and is in the public domain.
    55  // 
    56  // Repository: http://www.netlib.org/slatec/
    57  // 
    58  // The SLATEC common mathematical library is issued by the following
    59  // 
    60  //         Air Force Weapons Laboratory, Albuquerque
    61  //         Lawrence Livermore National Laboratory, Livermore
    62  //         Los Alamos National Laboratory, Los Alamos
    63  //         National Institute of Standards and Technology, Washington
    64  //         National Energy Research Supercomputer Center, Livermore
    65  //         Oak Ridge National Laboratory, Oak Ridge
    66  //         Sandia National Laboratories, Albuquerque
    67  //         Sandia National Laboratories, Livermore
    68  // 
    69  // All questions concerning the distribution of the library should be
    70  // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
    71  // Argonne, Illinois  60439, and not to the authors of the subprograms.
    72  // 
    73  //                  * * * * * Notice * * * * *
    74  // 
    75  // This material was prepared as an account of work sponsored by the
    76  // United States Government.  Neither the United States, nor the
    77  // Department of Energy, nor the Department of Defense, nor any of
    78  // their employees, nor any of their contractors, subcontractors, or
    79  // their employees, makes any warranty, expressed or implied, or
    80  // assumes any legal liability or responsibility for the accuracy,
    81  // completeness, or usefulness of any information, apparatus, product,
    82  // or process disclosed, or represents that its use would not infringe
    83  // upon privately owned rights.
    84  
    85  /*
    86  Generated by VIF - experimental VIntage Fortran compiler.
    87  VIF release 1.2.17
    88  */
    89  #if defined (__GNUC__)
    90  #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
    91  #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
    92  #if (__GNUC__ >= 14)
    93  #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
    94  #pragma GCC diagnostic ignored "-Wimplicit-int"
    95  #pragma GCC diagnostic ignored "-Wint-conversion"
    96  #pragma GCC diagnostic ignored "-Wreturn-mismatch"
    97  #endif
    98  #else
    99  #error VIF requires GCC
   100  #endif
   209  static CALLS __calls[__ncalls] = {
   210    {"caxpy", 0}, // subroutine
   211    {"ccopy", 0}, // subroutine
   212    {"cdotc", 0}, // complex*8 function
   213    {"cdotu", 0}, // complex*8 function
   214    {"cgbmv", 0}, // subroutine
   215    {"cgemm", 0}, // subroutine
   216    {"cgemv", 0}, // subroutine
   217    {"cgerc", 0}, // subroutine
   218    {"cgeru", 0}, // subroutine
   219    {"chbmv", 0}, // subroutine
   220    {"chemm", 0}, // subroutine
   221    {"chemv", 0}, // subroutine
   222    {"cher2", 0}, // subroutine
   223    {"cher2k", 0}, // subroutine
   224    {"cher", 0}, // subroutine
   225    {"cherk", 0}, // subroutine
   226    {"chpmv", 0}, // subroutine
   227    {"chpr2", 0}, // subroutine
   228    {"chpr", 0}, // subroutine
   229    {"crotg", 0}, // subroutine
   230    {"cscal", 0}, // subroutine
   231    {"csrot", 0}, // subroutine
   232    {"csscal", 0}, // subroutine
   233    {"cswap", 0}, // subroutine
   234    {"csymm", 0}, // subroutine
   235    {"csyr2k", 0}, // subroutine
   236    {"csyrk", 0}, // subroutine
   237    {"ctbmv", 0}, // subroutine
   238    {"ctbsv", 0}, // subroutine
   239    {"ctpmv", 0}, // subroutine
   240    {"ctpsv", 0}, // subroutine
   241    {"ctrmm", 0}, // subroutine
   242    {"ctrmv", 0}, // subroutine
   243    {"ctrsm", 0}, // subroutine
   244    {"ctrsv", 0}, // subroutine
   245    {"dasum", 0}, // real*8 function
   246    {"daxpy", 0}, // subroutine
   247    {"dcabs1", 0}, // real*8 function
   248    {"dcopy", 0}, // subroutine
   249    {"ddot", 0}, // real*8 function
   250    {"dgbmv", 0}, // subroutine
   251    {"dgemm", 0}, // subroutine
   252    {"dgemv", 0}, // subroutine
   253    {"dger", 0}, // subroutine
   254    {"dnrm2", 0}, // real*8 function
   255    {"drot", 0}, // subroutine
   256    {"drotg", 0}, // subroutine
   257    {"drotm", 0}, // subroutine
   258    {"drotmg", 0}, // subroutine
   259    {"dsbmv", 0}, // subroutine
   260    {"dscal", 0}, // subroutine
   261    {"dsdot", 0}, // real*8 function
   262    {"dspmv", 0}, // subroutine
   263    {"dspr2", 0}, // subroutine
   264    {"dspr", 0}, // subroutine
   265    {"dswap", 0}, // subroutine
   266    {"dsymm", 0}, // subroutine
   267    {"dsymv", 0}, // subroutine
   268    {"dsyr2", 0}, // subroutine
   269    {"dsyr2k", 0}, // subroutine
   270    {"dsyr", 0}, // subroutine
   271    {"dsyrk", 0}, // subroutine
   272    {"dtbmv", 0}, // subroutine
   273    {"dtbsv", 0}, // subroutine
   274    {"dtpmv", 0}, // subroutine
   275    {"dtpsv", 0}, // subroutine
   276    {"dtrmm", 0}, // subroutine
   277    {"dtrmv", 0}, // subroutine
   278    {"dtrsm", 0}, // subroutine
   279    {"dtrsv", 0}, // subroutine
   280    {"dzasum", 0}, // real*8 function
   281    {"dznrm2", 0}, // real*8 function
   282    {"icamax", 0}, // integer*4 function
   283    {"idamax", 0}, // integer*4 function
   284    {"isamax", 0}, // integer*4 function
   285    {"izamax", 0}, // integer*4 function
   286    {"sasum", 0}, // real*4 function
   287    {"saxpy", 0}, // subroutine
   288    {"scabs1", 0}, // real*4 function
   289    {"scasum", 0}, // real*4 function
   290    {"scnrm2", 0}, // real*4 function
   291    {"scopy", 0}, // subroutine
   292    {"sdot", 0}, // real*4 function
   293    {"sdsdot", 0}, // real*4 function
   294    {"sgbmv", 0}, // subroutine
   295    {"sgemm", 0}, // subroutine
   296    {"sgemv", 0}, // subroutine
   297    {"sger", 0}, // subroutine
   298    {"snrm2", 0}, // real*4 function
   299    {"srot", 0}, // subroutine
   300    {"srotg", 0}, // subroutine
   301    {"srotm", 0}, // subroutine
   302    {"srotmg", 0}, // subroutine
   303    {"ssbmv", 0}, // subroutine
   304    {"sscal", 0}, // subroutine
   305    {"sspmv", 0}, // subroutine
   306    {"sspr2", 0}, // subroutine
   307    {"sspr", 0}, // subroutine
   308    {"sswap", 0}, // subroutine
   309    {"ssymm", 0}, // subroutine
   310    {"ssymv", 0}, // subroutine
   311    {"ssyr2", 0}, // subroutine
   312    {"ssyr2k", 0}, // subroutine
   313    {"ssyr", 0}, // subroutine
   314    {"ssyrk", 0}, // subroutine
   315    {"stbmv", 0}, // subroutine
   316    {"stbsv", 0}, // subroutine
   317    {"stpmv", 0}, // subroutine
   318    {"stpsv", 0}, // subroutine
   319    {"strmm", 0}, // subroutine
   320    {"strmv", 0}, // subroutine
   321    {"strsm", 0}, // subroutine
   322    {"strsv", 0}, // subroutine
   323    {"zaxpy", 0}, // subroutine
   324    {"zcopy", 0}, // subroutine
   325    {"zdotc", 0}, // complex*16 function
   326    {"zdotu", 0}, // complex*16 function
   327    {"zdrot", 0}, // subroutine
   328    {"zdscal", 0}, // subroutine
   329    {"zgbmv", 0}, // subroutine
   330    {"zgemm", 0}, // subroutine
   331    {"zgemv", 0}, // subroutine
   332    {"zgerc", 0}, // subroutine
   333    {"zgeru", 0}, // subroutine
   334    {"zhbmv", 0}, // subroutine
   335    {"zhemm", 0}, // subroutine
   336    {"zhemv", 0}, // subroutine
   337    {"zher2", 0}, // subroutine
   338    {"zher2k", 0}, // subroutine
   339    {"zher", 0}, // subroutine
   340    {"zherk", 0}, // subroutine
   341    {"zhpmv", 0}, // subroutine
   342    {"zhpr2", 0}, // subroutine
   343    {"zhpr", 0}, // subroutine
   344    {"zrotg", 0}, // subroutine
   345    {"zscal", 0}, // subroutine
   346    {"zswap", 0}, // subroutine
   347    {"zsymm", 0}, // subroutine
   348    {"zsyr2k", 0}, // subroutine
   349    {"zsyrk", 0}, // subroutine
   350    {"ztbmv", 0}, // subroutine
   351    {"ztbsv", 0}, // subroutine
   352    {"ztpmv", 0}, // subroutine
   353    {"ztpsv", 0}, // subroutine
   354    {"ztrmm", 0}, // subroutine
   355    {"ztrmv", 0}, // subroutine
   356    {"ztrsm", 0}, // subroutine
   357    {"ztrsv", 0}, // subroutine
   358    {NULL, 0}
   359  };
   360  
   362  _p_ incy_);
   367  , 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_ 
   368  incy_);
   370  alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, 
   371  int_4 _p_ ldc_);
   373  lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
   375  _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
   377  _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
   379  lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
   381  a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
   383  _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
   385  complex_8 _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
   387  _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
   389  _p_ a_, int_4 _p_ lda_);
   391  a_, int_4 _p_ lda_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
   393  _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
   395  complex_8 _p_ y_, int_4 _p_ incy_, complex_8 _p_ ap_);
   397  _p_ ap_);
   401  _p_ c_, real_4 _p_ s_);
   405  a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
   407  _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_ ldc_);
   409  _p_ a_, int_4 _p_ lda_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
   411  int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_);
   413  int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_);
   415  x_, int_4 _p_ incx_);
   417  x_, int_4 _p_ incx_);
   419  complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_);
   421  , complex_8 _p_ x_, int_4 _p_ incx_);
   423  complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_);
   425  , complex_8 _p_ x_, int_4 _p_ incx_);
   428  ;
   433  real_8 _p_ 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_);
   435  , real_8 _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_);
   437  real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
   439  int_4 _p_ incy_, real_8 _p_ a_, int_4 _p_ lda_);
   442  real_8 _p_ s_);
   445  dparam_);
   448  real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
   452  , real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
   454  int_4 _p_ incy_, real_8 _p_ ap_);
   456  ;
   459  int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
   461  int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
   463  int_4 _p_ incy_, real_8 _p_ a_, int_4 _p_ lda_);
   465  int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
   467  int_4 _p_ lda_);
   469  int_4 _p_ lda_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
   471  int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_);
   473  int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_);
   475  int_4 _p_ incx_);
   477  int_4 _p_ incx_);
   479  real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_);
   481  real_8 _p_ x_, int_4 _p_ incx_);
   483  real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_);
   485  real_8 _p_ x_, int_4 _p_ incx_);
   494  ;
   501  incy_);
   503  real_4 _p_ 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_);
   505  , real_4 _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_);
   507  real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
   509  int_4 _p_ incy_, real_4 _p_ a_, int_4 _p_ lda_);
   512  real_4 _p_ s_);
   515  sparam_);
   518  real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
   521  , real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
   523  int_4 _p_ incy_, real_4 _p_ ap_);
   525  ;
   528  int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
   530  int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
   532  int_4 _p_ incy_, real_4 _p_ a_, int_4 _p_ lda_);
   534  int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
   536  int_4 _p_ lda_);
   538  int_4 _p_ lda_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
   540  int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_);
   542  int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_);
   544  int_4 _p_ incx_);
   546  int_4 _p_ incx_);
   548  real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_);
   550  real_4 _p_ x_, int_4 _p_ incx_);
   552  real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_);
   554  real_4 _p_ x_, int_4 _p_ incx_);
   556  int_4 _p_ incy_);
   561  _p_ c_, real_8 _p_ s_);
   564  alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, 
   565  int_4 _p_ incy_);
   567  alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, 
   568  int_4 _p_ ldc_);
   570  _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
   572  complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
   574  complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
   576  lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
   578  _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
   580  complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
   582  complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
   584  _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
   586  _p_ a_, int_4 _p_ lda_);
   588  a_, int_4 _p_ lda_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
   590  int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
   592  complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ ap_);
   594  _p_ ap_);
   599  _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
   601  _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
   603  _p_ a_, int_4 _p_ lda_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
   605  int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_);
   607  int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_);
   609  _p_ x_, int_4 _p_ incx_);
   611  _p_ x_, int_4 _p_ incx_);
   613  complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_);
   615  lda_, complex_16 _p_ x_, int_4 _p_ incx_);
   617  complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_);
   619  lda_, complex_16 _p_ x_, int_4 _p_ incx_);
   620  int_4 _caxpy (int_4 _p_ n_, complex_8 _p_ ca_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
   621  { // ** body not listed **
   653  }
   654  
   655  int_4 _ccopy (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
   656  { // ** body not listed **
   685  }
   686  
   687  complex_8 _cdotc (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
   688  { // ** body not listed **
   723  }
   724  
   725  complex_8 _cdotu (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
   726  { // ** body not listed **
   761  }
   762  
   763  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_, 
   764  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_ 
   765  incy_)
   766  { // ** body not listed **
   938  }
   939  
   940  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_, 
   941  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_ 
   942  ldc_)
   943  { // ** body not listed **
  1193  }
  1194  
  1195  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_, 
  1196  complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
  1197  { // ** body not listed **
  1352  }
  1353  
  1354  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_, 
  1355  int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
  1356  { // ** body not listed **
  1422  }
  1423  
  1424  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_, 
  1425  int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
  1426  { // ** body not listed **
  1492  }
  1493  
  1494  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_, 
  1495  complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
  1496  { // ** body not listed **
  1650  }
  1651  
  1652  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 
  1653  _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  1654  { // ** body not listed **
  1800  }
  1801  
  1802  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_, 
  1803  int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
  1804  { // ** body not listed **
  1945  }
  1946  
  1947  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_, 
  1948  int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
  1949  { // ** body not listed **
  2078  }
  2079  
  2080  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_, 
  2081  int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  2082  { // ** body not listed **
  2290  }
  2291  
  2292  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_, 
  2293  int_4 _p_ lda_)
  2294  { // ** body not listed **
  2400  }
  2401  
  2402  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 
  2403  _p_ lda_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  2404  { // ** body not listed **
  2602  }
  2603  
  2604  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_, 
  2605  complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
  2606  { // ** body not listed **
  2753  }
  2754  
  2755  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_, 
  2756  int_4 _p_ incy_, complex_8 _p_ ap_)
  2757  { // ** body not listed **
  2888  }
  2889  
  2890  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_)
  2891  { // ** body not listed **
  2999  }
  3000  
  3001  int_4 _crotg (complex_8 _p_ ca_, complex_8 _p_ cb_, real_4 _p_ c_, complex_8 _p_ s_)
  3002  { // ** body not listed **
  3023  }
  3024  
  3025  int_4 _cscal (int_4 _p_ n_, complex_8 _p_ ca_, complex_8 _p_ cx_, int_4 _p_ incx_)
  3026  { // ** body not listed **
  3046  }
  3047  
  3048  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_, 
  3049  real_4 _p_ s_)
  3050  { // ** body not listed **
  3084  }
  3085  
  3086  int_4 _csscal (int_4 _p_ n_, real_4 _p_ sa_, complex_8 _p_ cx_, int_4 _p_ incx_)
  3087  { // ** body not listed **
  3107  }
  3108  
  3109  int_4 _cswap (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
  3110  { // ** body not listed **
  3144  }
  3145  
  3146  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 
  3147  _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  3148  { // ** body not listed **
  3292  }
  3293  
  3294  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_, 
  3295  int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  3296  { // ** body not listed **
  3468  }
  3469  
  3470  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_, 
  3471  int_4 _p_ lda_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  3472  { // ** body not listed **
  3631  }
  3632  
  3633  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_ 
  3634  lda_, complex_8 _p_ x_, int_4 _p_ incx_)
  3635  { // ** body not listed **
  3871  }
  3872  
  3873  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_ 
  3874  lda_, complex_8 _p_ x_, int_4 _p_ incx_)
  3875  { // ** body not listed **
  4111  }
  4112  
  4113  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 
  4114  _p_ incx_)
  4115  { // ** body not listed **
  4348  }
  4349  
  4350  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 
  4351  _p_ incx_)
  4352  { // ** body not listed **
  4585  }
  4586  
  4587  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 
  4588  _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_)
  4589  { // ** body not listed **
  4846  }
  4847  
  4848  int_4 _ctrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, 
  4849  complex_8 _p_ x_, int_4 _p_ incx_)
  4850  { // ** body not listed **
  5064  }
  5065  
  5066  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 
  5067  _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_)
  5068  { // ** body not listed **
  5341  }
  5342  
  5343  int_4 _ctrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, 
  5344  complex_8 _p_ x_, int_4 _p_ incx_)
  5345  { // ** body not listed **
  5559  }
  5560  
  5561  real_8 _dasum (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_)
  5562  { // ** body not listed **
  5604  }
  5605  
  5606  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_)
  5607  { // ** body not listed **
  5654  }
  5655  real_8 _dcabs1 (complex_16 _p_ z_)
  5656  { // ** body not listed **
  5661  }
  5662  
  5663  int_4 _dcopy (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
  5664  { // ** body not listed **
  5711  }
  5712  real_8 _ddot (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
  5713  { // ** body not listed **
  5762  }
  5763  
  5764  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_ 
  5765  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_)
  5766  { // ** body not listed **
  5921  }
  5922  
  5923  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 
  5924  _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_)
  5925  { // ** body not listed **
  6081  }
  6082  
  6083  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_ 
  6084  x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  6085  { // ** body not listed **
  6223  }
  6224  
  6225  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_ 
  6226  incy_, real_8 _p_ a_, int_4 _p_ lda_)
  6227  { // ** body not listed **
  6293  }
  6294  
  6295  real_8 _dnrm2 (int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ incx_)
  6296  { // ** body not listed **
  6328  }
  6329  
  6330  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_ 
  6331  s_)
  6332  { // ** body not listed **
  6366  }
  6367  
  6368  int_4 _drotg (real_8 _p_ da_, real_8 _p_ db_, real_8 _p_ c_, real_8 _p_ s_)
  6369  { // ** body not listed **
  6408  }
  6409  
  6410  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_)
  6411  { // ** body not listed **
  6537  }
  6538  
  6539  int_4 _drotmg (real_8 _p_ dd1_, real_8 _p_ dd2_, real_8 _p_ dx1_, real_8 _p_ dy1_, real_8 _p_ dparam_)
  6540  { // ** body not listed **
  6751  }
  6752  
  6753  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_ 
  6754  x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  6755  { // ** body not listed **
  6908  }
  6909  
  6910  int_4 _dscal (int_4 _p_ n_, real_8 _p_ da_, real_8 _p_ dx_, int_4 _p_ incx_)
  6911  { // ** body not listed **
  6947  }
  6948  
  6949  real_8 _dsdot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
  6950  { // ** body not listed **
  6982  }
  6983  
  6984  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 
  6985  _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  6986  { // ** body not listed **
  7133  }
  7134  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_ 
  7135  incy_, real_8 _p_ ap_)
  7136  { // ** body not listed **
  7249  }
  7250  
  7251  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_)
  7252  { // ** body not listed **
  7344  }
  7345  
  7346  int_4 _dswap (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
  7347  { // ** body not listed **
  7401  }
  7402  
  7403  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_ 
  7404  lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
  7405  { // ** body not listed **
  7549  }
  7550  
  7551  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_ 
  7552  incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  7553  { // ** body not listed **
  7694  }
  7695  
  7696  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_ 
  7697  incy_, real_8 _p_ a_, int_4 _p_ lda_)
  7698  { // ** body not listed **
  7807  }
  7808  
  7809  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_ 
  7810  lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
  7811  { // ** body not listed **
  7981  }
  7982  
  7983  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_ 
  7984  lda_)
  7985  { // ** body not listed **
  8071  }
  8072  
  8073  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_ 
  8074  lda_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
  8075  { // ** body not listed **
  8234  }
  8235  
  8236  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_ 
  8237  lda_, real_8 _p_ x_, int_4 _p_ incx_)
  8238  { // ** body not listed **
  8431  }
  8432  
  8433  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_ 
  8434  lda_, real_8 _p_ x_, int_4 _p_ incx_)
  8435  { // ** body not listed **
  8628  }
  8629  
  8630  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_ 
  8631  incx_)
  8632  { // ** body not listed **
  8820  }
  8821  
  8822  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_ 
  8823  incx_)
  8824  { // ** body not listed **
  9012  }
  9013  
  9014  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_ 
  9015  alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_)
  9016  { // ** body not listed **
  9232  }
  9233  
  9234  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_ 
  9235  x_, int_4 _p_ incx_)
  9236  { // ** body not listed **
  9407  }
  9408  
  9409  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_ 
  9410  alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_)
  9411  { // ** body not listed **
  9643  }
  9644  
  9645  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_ 
  9646  x_, int_4 _p_ incx_)
  9647  { // ** body not listed **
  9818  }
  9819  
  9820  real_8 _dzasum (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_)
  9821  { // ** body not listed **
  9848  }
  9849  
  9850  real_8 _dznrm2 (int_4 _p_ n_, complex_16 _p_ x_, int_4 _p_ incx_)
  9851  { // ** body not listed **
  9890  }
  9891  
  9892  int_4 _icamax (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
  9893  { // ** body not listed **
  9934  }
  9935  
  9936  int_4 _idamax (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_)
  9937  { // ** body not listed **
  9980  }
  9981  
  9982  int_4 _isamax (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_)
  9983  { // ** body not listed **
 10024  }
 10025  
 10026  int_4 _izamax (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_)
 10027  { // ** body not listed **
 10068  }
 10069  
 10070  real_4 _sasum (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_)
 10071  { // ** body not listed **
 10111  }
 10112  
 10113  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_)
 10114  { // ** body not listed **
 10161  }
 10162  real_4 _scabs1 (complex_8 _p_ z_)
 10163  { // ** body not listed **
 10168  }
 10169  
 10170  real_4 _scasum (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
 10171  { // ** body not listed **
 10197  }
 10198  
 10199  real_4 _scnrm2 (int_4 _p_ n_, complex_8 _p_ x_, int_4 _p_ incx_)
 10200  { // ** body not listed **
 10239  }
 10240  
 10241  int_4 _scopy (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
 10242  { // ** body not listed **
 10289  }
 10290  real_4 _sdot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
 10291  { // ** body not listed **
 10340  }
 10341  
 10342  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_)
 10343  { // ** body not listed **
 10379  }
 10380  
 10381  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_ 
 10382  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_)
 10383  { // ** body not listed **
 10538  }
 10539  
 10540  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 
 10541  _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_)
 10542  { // ** body not listed **
 10698  }
 10699  
 10700  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_ 
 10701  x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 10702  { // ** body not listed **
 10840  }
 10841  
 10842  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_ 
 10843  incy_, real_4 _p_ a_, int_4 _p_ lda_)
 10844  { // ** body not listed **
 10910  }
 10911  
 10912  real_4 _snrm2 (int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ incx_)
 10913  { // ** body not listed **
 10945  }
 10946  
 10947  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_ 
 10948  s_)
 10949  { // ** body not listed **
 10983  }
 10984  
 10985  int_4 _srotg (real_4 _p_ sa_, real_4 _p_ sb_, real_4 _p_ c_, real_4 _p_ s_)
 10986  { // ** body not listed **
 11019  }
 11020  
 11021  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_)
 11022  { // ** body not listed **
 11148  }
 11149  
 11150  int_4 _srotmg (real_4 _p_ sd1_, real_4 _p_ sd2_, real_4 _p_ sx1_, real_4 _p_ sy1_, real_4 _p_ sparam_)
 11151  { // ** body not listed **
 11360  }
 11361  
 11362  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_ 
 11363  x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 11364  { // ** body not listed **
 11517  }
 11518  
 11519  int_4 _sscal (int_4 _p_ n_, real_4 _p_ sa_, real_4 _p_ sx_, int_4 _p_ incx_)
 11520  { // ** body not listed **
 11556  }
 11557  
 11558  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 
 11559  _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 11560  { // ** body not listed **
 11707  }
 11708  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_ 
 11709  incy_, real_4 _p_ ap_)
 11710  { // ** body not listed **
 11823  }
 11824  
 11825  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_)
 11826  { // ** body not listed **
 11918  }
 11919  
 11920  int_4 _sswap (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
 11921  { // ** body not listed **
 11975  }
 11976  
 11977  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_ 
 11978  lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
 11979  { // ** body not listed **
 12123  }
 12124  
 12125  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_ 
 12126  incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 12127  { // ** body not listed **
 12268  }
 12269  
 12270  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_ 
 12271  incy_, real_4 _p_ a_, int_4 _p_ lda_)
 12272  { // ** body not listed **
 12381  }
 12382  
 12383  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_ 
 12384  lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
 12385  { // ** body not listed **
 12555  }
 12556  
 12557  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_ 
 12558  lda_)
 12559  { // ** body not listed **
 12645  }
 12646  
 12647  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_ 
 12648  lda_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
 12649  { // ** body not listed **
 12808  }
 12809  
 12810  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_ 
 12811  lda_, real_4 _p_ x_, int_4 _p_ incx_)
 12812  { // ** body not listed **
 13005  }
 13006  
 13007  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_ 
 13008  lda_, real_4 _p_ x_, int_4 _p_ incx_)
 13009  { // ** body not listed **
 13202  }
 13203  
 13204  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_ 
 13205  incx_)
 13206  { // ** body not listed **
 13394  }
 13395  
 13396  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_ 
 13397  incx_)
 13398  { // ** body not listed **
 13586  }
 13587  
 13588  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_ 
 13589  alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_)
 13590  { // ** body not listed **
 13806  }
 13807  
 13808  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_ 
 13809  x_, int_4 _p_ incx_)
 13810  { // ** body not listed **
 13981  }
 13982  
 13983  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_ 
 13984  alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_)
 13985  { // ** body not listed **
 14217  }
 14218  
 14219  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_ 
 14220  x_, int_4 _p_ incx_)
 14221  { // ** body not listed **
 14392  }
 14393  
 14394  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_ 
 14395  incy_)
 14396  { // ** body not listed **
 14428  }
 14429  
 14430  int_4 _zcopy (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
 14431  { // ** body not listed **
 14460  }
 14461  
 14462  complex_16 _zdotc (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
 14463  { // ** body not listed **
 14500  }
 14501  
 14502  complex_16 _zdotu (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
 14503  { // ** body not listed **
 14538  }
 14539  
 14540  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_, 
 14541  real_8 _p_ s_)
 14542  { // ** body not listed **
 14576  }
 14577  
 14578  int_4 _zdscal (int_4 _p_ n_, real_8 _p_ da_, complex_16 _p_ zx_, int_4 _p_ incx_)
 14579  { // ** body not listed **
 14600  }
 14601  
 14602  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_, 
 14603  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 
 14604  _p_ incy_)
 14605  { // ** body not listed **
 14779  }
 14780  
 14781  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_, 
 14782  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 
 14783  _p_ ldc_)
 14784  { // ** body not listed **
 15036  }
 15037  
 15038  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_, 
 15039  complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
 15040  { // ** body not listed **
 15197  }
 15198  
 15199  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_, 
 15200  int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
 15201  { // ** body not listed **
 15269  }
 15270  
 15271  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_, 
 15272  int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
 15273  { // ** body not listed **
 15339  }
 15340  
 15341  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_, 
 15342  complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
 15343  { // ** body not listed **
 15498  }
 15499  
 15500  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_, 
 15501  int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 15502  { // ** body not listed **
 15650  }
 15651  
 15652  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_
 15653  , int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
 15654  { // ** body not listed **
 15797  }
 15798  
 15799  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_ 
 15800  y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
 15801  { // ** body not listed **
 15933  }
 15934  
 15935  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_, 
 15936  int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 15937  { // ** body not listed **
 16148  }
 16149  
 16150  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_, 
 16151  int_4 _p_ lda_)
 16152  { // ** body not listed **
 16260  }
 16261  
 16262  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 
 16263  _p_ lda_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 16264  { // ** body not listed **
 16464  }
 16465  
 16466  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_ 
 16467  incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
 16468  { // ** body not listed **
 16617  }
 16618  
 16619  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_ 
 16620  y_, int_4 _p_ incy_, complex_16 _p_ ap_)
 16621  { // ** body not listed **
 16755  }
 16756  
 16757  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_)
 16758  { // ** body not listed **
 16868  }
 16869  
 16870  int_4 _zrotg (complex_16 _p_ ca_, complex_16 _p_ cb_, real_8 _p_ c_, complex_16 _p_ s_)
 16871  { // ** body not listed **
 16900  }
 16901  
 16902  int_4 _zscal (int_4 _p_ n_, complex_16 _p_ za_, complex_16 _p_ zx_, int_4 _p_ incx_)
 16903  { // ** body not listed **
 16924  }
 16925  
 16926  int_4 _zswap (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
 16927  { // ** body not listed **
 16961  }
 16962  
 16963  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_, 
 16964  int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 16965  { // ** body not listed **
 17109  }
 17110  
 17111  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_, 
 17112  int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 17113  { // ** body not listed **
 17285  }
 17286  
 17287  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_, 
 17288  int_4 _p_ lda_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 17289  { // ** body not listed **
 17448  }
 17449  
 17450  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_ 
 17451  lda_, complex_16 _p_ x_, int_4 _p_ incx_)
 17452  { // ** body not listed **
 17690  }
 17691  
 17692  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_ 
 17693  lda_, complex_16 _p_ x_, int_4 _p_ incx_)
 17694  { // ** body not listed **
 17932  }
 17933  
 17934  int_4 _ztpmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ ap_, complex_16 _p_ x_, 
 17935  int_4 _p_ incx_)
 17936  { // ** body not listed **
 18171  }
 18172  
 18173  int_4 _ztpsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ ap_, complex_16 _p_ x_, 
 18174  int_4 _p_ incx_)
 18175  { // ** body not listed **
 18410  }
 18411  
 18412  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 
 18413  _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_)
 18414  { // ** body not listed **
 18673  }
 18674  
 18675  int_4 _ztrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, 
 18676  complex_16 _p_ x_, int_4 _p_ incx_)
 18677  { // ** body not listed **
 18893  }
 18894  
 18895  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 
 18896  _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_)
 18897  { // ** body not listed **
 19172  }
 19173  
 19174  int_4 _ztrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, 
 19175  complex_16 _p_ x_, int_4 _p_ incx_)
 19176  { // ** body not listed **
 19392  }
 19393  


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