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.12
    88  */
   197  static CALLS __calls[__ncalls] = {
   198    {"caxpy", 0}, // subroutine
   199    {"ccopy", 0}, // subroutine
   200    {"cdotc", 0}, // complex*8 function
   201    {"cdotu", 0}, // complex*8 function
   202    {"cgbmv", 0}, // subroutine
   203    {"cgemm", 0}, // subroutine
   204    {"cgemv", 0}, // subroutine
   205    {"cgerc", 0}, // subroutine
   206    {"cgeru", 0}, // subroutine
   207    {"chbmv", 0}, // subroutine
   208    {"chemm", 0}, // subroutine
   209    {"chemv", 0}, // subroutine
   210    {"cher2", 0}, // subroutine
   211    {"cher2k", 0}, // subroutine
   212    {"cher", 0}, // subroutine
   213    {"cherk", 0}, // subroutine
   214    {"chpmv", 0}, // subroutine
   215    {"chpr2", 0}, // subroutine
   216    {"chpr", 0}, // subroutine
   217    {"crotg", 0}, // subroutine
   218    {"cscal", 0}, // subroutine
   219    {"csrot", 0}, // subroutine
   220    {"csscal", 0}, // subroutine
   221    {"cswap", 0}, // subroutine
   222    {"csymm", 0}, // subroutine
   223    {"csyr2k", 0}, // subroutine
   224    {"csyrk", 0}, // subroutine
   225    {"ctbmv", 0}, // subroutine
   226    {"ctbsv", 0}, // subroutine
   227    {"ctpmv", 0}, // subroutine
   228    {"ctpsv", 0}, // subroutine
   229    {"ctrmm", 0}, // subroutine
   230    {"ctrmv", 0}, // subroutine
   231    {"ctrsm", 0}, // subroutine
   232    {"ctrsv", 0}, // subroutine
   233    {"dasum", 0}, // real*8 function
   234    {"daxpy", 0}, // subroutine
   235    {"dcabs1", 0}, // real*8 function
   236    {"dcopy", 0}, // subroutine
   237    {"ddot", 0}, // real*8 function
   238    {"dgbmv", 0}, // subroutine
   239    {"dgemm", 0}, // subroutine
   240    {"dgemv", 0}, // subroutine
   241    {"dger", 0}, // subroutine
   242    {"dnrm2", 0}, // real*8 function
   243    {"drot", 0}, // subroutine
   244    {"drotg", 0}, // subroutine
   245    {"drotm", 0}, // subroutine
   246    {"drotmg", 0}, // subroutine
   247    {"dsbmv", 0}, // subroutine
   248    {"dscal", 0}, // subroutine
   249    {"dsdot", 0}, // real*8 function
   250    {"dspmv", 0}, // subroutine
   251    {"dspr2", 0}, // subroutine
   252    {"dspr", 0}, // subroutine
   253    {"dswap", 0}, // subroutine
   254    {"dsymm", 0}, // subroutine
   255    {"dsymv", 0}, // subroutine
   256    {"dsyr2", 0}, // subroutine
   257    {"dsyr2k", 0}, // subroutine
   258    {"dsyr", 0}, // subroutine
   259    {"dsyrk", 0}, // subroutine
   260    {"dtbmv", 0}, // subroutine
   261    {"dtbsv", 0}, // subroutine
   262    {"dtpmv", 0}, // subroutine
   263    {"dtpsv", 0}, // subroutine
   264    {"dtrmm", 0}, // subroutine
   265    {"dtrmv", 0}, // subroutine
   266    {"dtrsm", 0}, // subroutine
   267    {"dtrsv", 0}, // subroutine
   268    {"dzasum", 0}, // real*8 function
   269    {"dznrm2", 0}, // real*8 function
   270    {"icamax", 0}, // integer*4 function
   271    {"idamax", 0}, // integer*4 function
   272    {"isamax", 0}, // integer*4 function
   273    {"izamax", 0}, // integer*4 function
   274    {"sasum", 0}, // real*4 function
   275    {"saxpy", 0}, // subroutine
   276    {"scabs1", 0}, // real*4 function
   277    {"scasum", 0}, // real*4 function
   278    {"scnrm2", 0}, // real*4 function
   279    {"scopy", 0}, // subroutine
   280    {"sdot", 0}, // real*4 function
   281    {"sdsdot", 0}, // real*4 function
   282    {"sgbmv", 0}, // subroutine
   283    {"sgemm", 0}, // subroutine
   284    {"sgemv", 0}, // subroutine
   285    {"sger", 0}, // subroutine
   286    {"snrm2", 0}, // real*4 function
   287    {"srot", 0}, // subroutine
   288    {"srotg", 0}, // subroutine
   289    {"srotm", 0}, // subroutine
   290    {"srotmg", 0}, // subroutine
   291    {"ssbmv", 0}, // subroutine
   292    {"sscal", 0}, // subroutine
   293    {"sspmv", 0}, // subroutine
   294    {"sspr2", 0}, // subroutine
   295    {"sspr", 0}, // subroutine
   296    {"sswap", 0}, // subroutine
   297    {"ssymm", 0}, // subroutine
   298    {"ssymv", 0}, // subroutine
   299    {"ssyr2", 0}, // subroutine
   300    {"ssyr2k", 0}, // subroutine
   301    {"ssyr", 0}, // subroutine
   302    {"ssyrk", 0}, // subroutine
   303    {"stbmv", 0}, // subroutine
   304    {"stbsv", 0}, // subroutine
   305    {"stpmv", 0}, // subroutine
   306    {"stpsv", 0}, // subroutine
   307    {"strmm", 0}, // subroutine
   308    {"strmv", 0}, // subroutine
   309    {"strsm", 0}, // subroutine
   310    {"strsv", 0}, // subroutine
   311    {"zaxpy", 0}, // subroutine
   312    {"zcopy", 0}, // subroutine
   313    {"zdotc", 0}, // complex*16 function
   314    {"zdotu", 0}, // complex*16 function
   315    {"zdrot", 0}, // subroutine
   316    {"zdscal", 0}, // subroutine
   317    {"zgbmv", 0}, // subroutine
   318    {"zgemm", 0}, // subroutine
   319    {"zgemv", 0}, // subroutine
   320    {"zgerc", 0}, // subroutine
   321    {"zgeru", 0}, // subroutine
   322    {"zhbmv", 0}, // subroutine
   323    {"zhemm", 0}, // subroutine
   324    {"zhemv", 0}, // subroutine
   325    {"zher2", 0}, // subroutine
   326    {"zher2k", 0}, // subroutine
   327    {"zher", 0}, // subroutine
   328    {"zherk", 0}, // subroutine
   329    {"zhpmv", 0}, // subroutine
   330    {"zhpr2", 0}, // subroutine
   331    {"zhpr", 0}, // subroutine
   332    {"zrotg", 0}, // subroutine
   333    {"zscal", 0}, // subroutine
   334    {"zswap", 0}, // subroutine
   335    {"zsymm", 0}, // subroutine
   336    {"zsyr2k", 0}, // subroutine
   337    {"zsyrk", 0}, // subroutine
   338    {"ztbmv", 0}, // subroutine
   339    {"ztbsv", 0}, // subroutine
   340    {"ztpmv", 0}, // subroutine
   341    {"ztpsv", 0}, // subroutine
   342    {"ztrmm", 0}, // subroutine
   343    {"ztrmv", 0}, // subroutine
   344    {"ztrsm", 0}, // subroutine
   345    {"ztrsv", 0}, // subroutine
   346    {NULL, 0}
   347  };
   348  
   350  _p_ incy_);
   355  , 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_ 
   356  incy_);
   358  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_, 
   359  int_4 _p_ ldc_);
   361  lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
   363  _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
   365  _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
   367  lda_, complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
   369  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_);
   371  _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
   373  complex_8 _p_ y_, int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_);
   375  _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_);
   377  _p_ a_, int_4 _p_ lda_);
   379  a_, int_4 _p_ lda_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
   381  _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_);
   383  complex_8 _p_ y_, int_4 _p_ incy_, complex_8 _p_ ap_);
   385  _p_ ap_);
   389  _p_ c_, real_4 _p_ s_);
   393  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_);
   395  _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_);
   397  _p_ a_, int_4 _p_ lda_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_);
   399  int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_);
   401  int_4 _p_ lda_, complex_8 _p_ x_, int_4 _p_ incx_);
   403  x_, int_4 _p_ incx_);
   405  x_, int_4 _p_ incx_);
   407  complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_);
   409  , complex_8 _p_ x_, int_4 _p_ incx_);
   411  complex_8 _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_);
   413  , complex_8 _p_ x_, int_4 _p_ incx_);
   416  ;
   421  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_);
   423  , 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_);
   425  real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
   427  int_4 _p_ incy_, real_8 _p_ a_, int_4 _p_ lda_);
   430  real_8 _p_ s_);
   433  dparam_);
   436  real_8 _p_ x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
   440  , real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
   442  int_4 _p_ incy_, real_8 _p_ ap_);
   444  ;
   447  int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
   449  int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_);
   451  int_4 _p_ incy_, real_8 _p_ a_, int_4 _p_ lda_);
   453  int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
   455  int_4 _p_ lda_);
   457  int_4 _p_ lda_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_);
   459  int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_);
   461  int_4 _p_ lda_, real_8 _p_ x_, int_4 _p_ incx_);
   463  int_4 _p_ incx_);
   465  int_4 _p_ incx_);
   467  real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_);
   469  real_8 _p_ x_, int_4 _p_ incx_);
   471  real_8 _p_ alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_);
   473  real_8 _p_ x_, int_4 _p_ incx_);
   482  ;
   489  incy_);
   491  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_);
   493  , 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_);
   495  real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
   497  int_4 _p_ incy_, real_4 _p_ a_, int_4 _p_ lda_);
   500  real_4 _p_ s_);
   503  sparam_);
   506  real_4 _p_ x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
   509  , real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
   511  int_4 _p_ incy_, real_4 _p_ ap_);
   513  ;
   516  int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
   518  int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_);
   520  int_4 _p_ incy_, real_4 _p_ a_, int_4 _p_ lda_);
   522  int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
   524  int_4 _p_ lda_);
   526  int_4 _p_ lda_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_);
   528  int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_);
   530  int_4 _p_ lda_, real_4 _p_ x_, int_4 _p_ incx_);
   532  int_4 _p_ incx_);
   534  int_4 _p_ incx_);
   536  real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_);
   538  real_4 _p_ x_, int_4 _p_ incx_);
   540  real_4 _p_ alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_);
   542  real_4 _p_ x_, int_4 _p_ incx_);
   544  int_4 _p_ incy_);
   549  _p_ c_, real_8 _p_ s_);
   552  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_, 
   553  int_4 _p_ incy_);
   555  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_, 
   556  int_4 _p_ ldc_);
   558  _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
   560  complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
   562  complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
   564  lda_, complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
   566  _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_);
   568  complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
   570  complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_);
   572  _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_);
   574  _p_ a_, int_4 _p_ lda_);
   576  a_, int_4 _p_ lda_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
   578  int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_);
   580  complex_16 _p_ y_, int_4 _p_ incy_, complex_16 _p_ ap_);
   582  _p_ ap_);
   587  _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_);
   589  _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_);
   591  _p_ a_, int_4 _p_ lda_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_);
   593  int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_);
   595  int_4 _p_ lda_, complex_16 _p_ x_, int_4 _p_ incx_);
   597  _p_ x_, int_4 _p_ incx_);
   599  _p_ x_, int_4 _p_ incx_);
   601  complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_);
   603  lda_, complex_16 _p_ x_, int_4 _p_ incx_);
   605  complex_16 _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_);
   607  lda_, complex_16 _p_ x_, int_4 _p_ incx_);
   608  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_)
   609  { // ** body not listed **
   641  }
   642  
   643  int_4 _ccopy (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
   644  { // ** body not listed **
   673  }
   674  
   675  complex_8 _cdotc (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
   676  { // ** body not listed **
   711  }
   712  
   713  complex_8 _cdotu (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
   714  { // ** body not listed **
   749  }
   750  
   751  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_, 
   752  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_ 
   753  incy_)
   754  { // ** body not listed **
   926  }
   927  
   928  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_, 
   929  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_ 
   930  ldc_)
   931  { // ** body not listed **
  1181  }
  1182  
  1183  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_, 
  1184  complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
  1185  { // ** body not listed **
  1340  }
  1341  
  1342  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_, 
  1343  int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
  1344  { // ** body not listed **
  1410  }
  1411  
  1412  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_, 
  1413  int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
  1414  { // ** body not listed **
  1480  }
  1481  
  1482  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_, 
  1483  complex_8 _p_ x_, int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
  1484  { // ** body not listed **
  1638  }
  1639  
  1640  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 
  1641  _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  1642  { // ** body not listed **
  1788  }
  1789  
  1790  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_, 
  1791  int_4 _p_ incx_, complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
  1792  { // ** body not listed **
  1933  }
  1934  
  1935  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_, 
  1936  int_4 _p_ incy_, complex_8 _p_ a_, int_4 _p_ lda_)
  1937  { // ** body not listed **
  2066  }
  2067  
  2068  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_, 
  2069  int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  2070  { // ** body not listed **
  2278  }
  2279  
  2280  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_, 
  2281  int_4 _p_ lda_)
  2282  { // ** body not listed **
  2388  }
  2389  
  2390  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 
  2391  _p_ lda_, real_4 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  2392  { // ** body not listed **
  2590  }
  2591  
  2592  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_, 
  2593  complex_8 _p_ beta_, complex_8 _p_ y_, int_4 _p_ incy_)
  2594  { // ** body not listed **
  2741  }
  2742  
  2743  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_, 
  2744  int_4 _p_ incy_, complex_8 _p_ ap_)
  2745  { // ** body not listed **
  2876  }
  2877  
  2878  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_)
  2879  { // ** body not listed **
  2987  }
  2988  
  2989  int_4 _crotg (complex_8 _p_ ca_, complex_8 _p_ cb_, real_4 _p_ c_, complex_8 _p_ s_)
  2990  { // ** body not listed **
  3011  }
  3012  
  3013  int_4 _cscal (int_4 _p_ n_, complex_8 _p_ ca_, complex_8 _p_ cx_, int_4 _p_ incx_)
  3014  { // ** body not listed **
  3034  }
  3035  
  3036  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_, 
  3037  real_4 _p_ s_)
  3038  { // ** body not listed **
  3072  }
  3073  
  3074  int_4 _csscal (int_4 _p_ n_, real_4 _p_ sa_, complex_8 _p_ cx_, int_4 _p_ incx_)
  3075  { // ** body not listed **
  3095  }
  3096  
  3097  int_4 _cswap (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_)
  3098  { // ** body not listed **
  3132  }
  3133  
  3134  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 
  3135  _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  3136  { // ** body not listed **
  3280  }
  3281  
  3282  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_, 
  3283  int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  3284  { // ** body not listed **
  3456  }
  3457  
  3458  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_, 
  3459  int_4 _p_ lda_, complex_8 _p_ beta_, complex_8 _p_ c_, int_4 _p_ ldc_)
  3460  { // ** body not listed **
  3619  }
  3620  
  3621  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_ 
  3622  lda_, complex_8 _p_ x_, int_4 _p_ incx_)
  3623  { // ** body not listed **
  3859  }
  3860  
  3861  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_ 
  3862  lda_, complex_8 _p_ x_, int_4 _p_ incx_)
  3863  { // ** body not listed **
  4099  }
  4100  
  4101  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 
  4102  _p_ incx_)
  4103  { // ** body not listed **
  4336  }
  4337  
  4338  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 
  4339  _p_ incx_)
  4340  { // ** body not listed **
  4573  }
  4574  
  4575  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 
  4576  _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_)
  4577  { // ** body not listed **
  4834  }
  4835  
  4836  int_4 _ctrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, 
  4837  complex_8 _p_ x_, int_4 _p_ incx_)
  4838  { // ** body not listed **
  5052  }
  5053  
  5054  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 
  5055  _p_ alpha_, complex_8 _p_ a_, int_4 _p_ lda_, complex_8 _p_ b_, int_4 _p_ ldb_)
  5056  { // ** body not listed **
  5329  }
  5330  
  5331  int_4 _ctrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, 
  5332  complex_8 _p_ x_, int_4 _p_ incx_)
  5333  { // ** body not listed **
  5547  }
  5548  
  5549  real_8 _dasum (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_)
  5550  { // ** body not listed **
  5592  }
  5593  
  5594  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_)
  5595  { // ** body not listed **
  5642  }
  5643  real_8 _dcabs1 (complex_16 _p_ z_)
  5644  { // ** body not listed **
  5649  }
  5650  
  5651  int_4 _dcopy (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
  5652  { // ** body not listed **
  5699  }
  5700  real_8 _ddot (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
  5701  { // ** body not listed **
  5750  }
  5751  
  5752  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_ 
  5753  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_)
  5754  { // ** body not listed **
  5909  }
  5910  
  5911  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 
  5912  _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_)
  5913  { // ** body not listed **
  6069  }
  6070  
  6071  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_ 
  6072  x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  6073  { // ** body not listed **
  6211  }
  6212  
  6213  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_ 
  6214  incy_, real_8 _p_ a_, int_4 _p_ lda_)
  6215  { // ** body not listed **
  6281  }
  6282  
  6283  real_8 _dnrm2 (int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ incx_)
  6284  { // ** body not listed **
  6316  }
  6317  
  6318  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_ 
  6319  s_)
  6320  { // ** body not listed **
  6354  }
  6355  
  6356  int_4 _drotg (real_8 _p_ da_, real_8 _p_ db_, real_8 _p_ c_, real_8 _p_ s_)
  6357  { // ** body not listed **
  6396  }
  6397  
  6398  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_)
  6399  { // ** body not listed **
  6525  }
  6526  
  6527  int_4 _drotmg (real_8 _p_ dd1_, real_8 _p_ dd2_, real_8 _p_ dx1_, real_8 _p_ dy1_, real_8 _p_ dparam_)
  6528  { // ** body not listed **
  6739  }
  6740  
  6741  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_ 
  6742  x_, int_4 _p_ incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  6743  { // ** body not listed **
  6896  }
  6897  
  6898  int_4 _dscal (int_4 _p_ n_, real_8 _p_ da_, real_8 _p_ dx_, int_4 _p_ incx_)
  6899  { // ** body not listed **
  6935  }
  6936  
  6937  real_8 _dsdot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
  6938  { // ** body not listed **
  6970  }
  6971  
  6972  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 
  6973  _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  6974  { // ** body not listed **
  7121  }
  7122  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_ 
  7123  incy_, real_8 _p_ ap_)
  7124  { // ** body not listed **
  7237  }
  7238  
  7239  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_)
  7240  { // ** body not listed **
  7332  }
  7333  
  7334  int_4 _dswap (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
  7335  { // ** body not listed **
  7389  }
  7390  
  7391  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_ 
  7392  lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
  7393  { // ** body not listed **
  7537  }
  7538  
  7539  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_ 
  7540  incx_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ incy_)
  7541  { // ** body not listed **
  7682  }
  7683  
  7684  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_ 
  7685  incy_, real_8 _p_ a_, int_4 _p_ lda_)
  7686  { // ** body not listed **
  7795  }
  7796  
  7797  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_ 
  7798  lda_, real_8 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
  7799  { // ** body not listed **
  7969  }
  7970  
  7971  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_ 
  7972  lda_)
  7973  { // ** body not listed **
  8059  }
  8060  
  8061  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_ 
  8062  lda_, real_8 _p_ beta_, real_8 _p_ c_, int_4 _p_ ldc_)
  8063  { // ** body not listed **
  8222  }
  8223  
  8224  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_ 
  8225  lda_, real_8 _p_ x_, int_4 _p_ incx_)
  8226  { // ** body not listed **
  8419  }
  8420  
  8421  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_ 
  8422  lda_, real_8 _p_ x_, int_4 _p_ incx_)
  8423  { // ** body not listed **
  8616  }
  8617  
  8618  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_ 
  8619  incx_)
  8620  { // ** body not listed **
  8808  }
  8809  
  8810  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_ 
  8811  incx_)
  8812  { // ** body not listed **
  9000  }
  9001  
  9002  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_ 
  9003  alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_)
  9004  { // ** body not listed **
  9220  }
  9221  
  9222  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_ 
  9223  x_, int_4 _p_ incx_)
  9224  { // ** body not listed **
  9395  }
  9396  
  9397  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_ 
  9398  alpha_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ b_, int_4 _p_ ldb_)
  9399  { // ** body not listed **
  9631  }
  9632  
  9633  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_ 
  9634  x_, int_4 _p_ incx_)
  9635  { // ** body not listed **
  9806  }
  9807  
  9808  real_8 _dzasum (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_)
  9809  { // ** body not listed **
  9836  }
  9837  
  9838  real_8 _dznrm2 (int_4 _p_ n_, complex_16 _p_ x_, int_4 _p_ incx_)
  9839  { // ** body not listed **
  9878  }
  9879  
  9880  int_4 _icamax (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
  9881  { // ** body not listed **
  9922  }
  9923  
  9924  int_4 _idamax (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_)
  9925  { // ** body not listed **
  9968  }
  9969  
  9970  int_4 _isamax (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_)
  9971  { // ** body not listed **
 10012  }
 10013  
 10014  int_4 _izamax (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_)
 10015  { // ** body not listed **
 10056  }
 10057  
 10058  real_4 _sasum (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_)
 10059  { // ** body not listed **
 10099  }
 10100  
 10101  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_)
 10102  { // ** body not listed **
 10149  }
 10150  real_4 _scabs1 (complex_8 _p_ z_)
 10151  { // ** body not listed **
 10156  }
 10157  
 10158  real_4 _scasum (int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ incx_)
 10159  { // ** body not listed **
 10185  }
 10186  
 10187  real_4 _scnrm2 (int_4 _p_ n_, complex_8 _p_ x_, int_4 _p_ incx_)
 10188  { // ** body not listed **
 10227  }
 10228  
 10229  int_4 _scopy (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
 10230  { // ** body not listed **
 10277  }
 10278  real_4 _sdot (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
 10279  { // ** body not listed **
 10328  }
 10329  
 10330  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_)
 10331  { // ** body not listed **
 10367  }
 10368  
 10369  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_ 
 10370  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_)
 10371  { // ** body not listed **
 10526  }
 10527  
 10528  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 
 10529  _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_)
 10530  { // ** body not listed **
 10686  }
 10687  
 10688  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_ 
 10689  x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 10690  { // ** body not listed **
 10828  }
 10829  
 10830  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_ 
 10831  incy_, real_4 _p_ a_, int_4 _p_ lda_)
 10832  { // ** body not listed **
 10898  }
 10899  
 10900  real_4 _snrm2 (int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ incx_)
 10901  { // ** body not listed **
 10933  }
 10934  
 10935  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_ 
 10936  s_)
 10937  { // ** body not listed **
 10971  }
 10972  
 10973  int_4 _srotg (real_4 _p_ sa_, real_4 _p_ sb_, real_4 _p_ c_, real_4 _p_ s_)
 10974  { // ** body not listed **
 11007  }
 11008  
 11009  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_)
 11010  { // ** body not listed **
 11136  }
 11137  
 11138  int_4 _srotmg (real_4 _p_ sd1_, real_4 _p_ sd2_, real_4 _p_ sx1_, real_4 _p_ sy1_, real_4 _p_ sparam_)
 11139  { // ** body not listed **
 11348  }
 11349  
 11350  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_ 
 11351  x_, int_4 _p_ incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 11352  { // ** body not listed **
 11505  }
 11506  
 11507  int_4 _sscal (int_4 _p_ n_, real_4 _p_ sa_, real_4 _p_ sx_, int_4 _p_ incx_)
 11508  { // ** body not listed **
 11544  }
 11545  
 11546  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 
 11547  _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 11548  { // ** body not listed **
 11695  }
 11696  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_ 
 11697  incy_, real_4 _p_ ap_)
 11698  { // ** body not listed **
 11811  }
 11812  
 11813  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_)
 11814  { // ** body not listed **
 11906  }
 11907  
 11908  int_4 _sswap (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
 11909  { // ** body not listed **
 11963  }
 11964  
 11965  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_ 
 11966  lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
 11967  { // ** body not listed **
 12111  }
 12112  
 12113  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_ 
 12114  incx_, real_4 _p_ beta_, real_4 _p_ y_, int_4 _p_ incy_)
 12115  { // ** body not listed **
 12256  }
 12257  
 12258  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_ 
 12259  incy_, real_4 _p_ a_, int_4 _p_ lda_)
 12260  { // ** body not listed **
 12369  }
 12370  
 12371  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_ 
 12372  lda_, real_4 _p_ b_, int_4 _p_ ldb_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
 12373  { // ** body not listed **
 12543  }
 12544  
 12545  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_ 
 12546  lda_)
 12547  { // ** body not listed **
 12633  }
 12634  
 12635  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_ 
 12636  lda_, real_4 _p_ beta_, real_4 _p_ c_, int_4 _p_ ldc_)
 12637  { // ** body not listed **
 12796  }
 12797  
 12798  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_ 
 12799  lda_, real_4 _p_ x_, int_4 _p_ incx_)
 12800  { // ** body not listed **
 12993  }
 12994  
 12995  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_ 
 12996  lda_, real_4 _p_ x_, int_4 _p_ incx_)
 12997  { // ** body not listed **
 13190  }
 13191  
 13192  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_ 
 13193  incx_)
 13194  { // ** body not listed **
 13382  }
 13383  
 13384  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_ 
 13385  incx_)
 13386  { // ** body not listed **
 13574  }
 13575  
 13576  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_ 
 13577  alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_)
 13578  { // ** body not listed **
 13794  }
 13795  
 13796  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_ 
 13797  x_, int_4 _p_ incx_)
 13798  { // ** body not listed **
 13969  }
 13970  
 13971  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_ 
 13972  alpha_, real_4 _p_ a_, int_4 _p_ lda_, real_4 _p_ b_, int_4 _p_ ldb_)
 13973  { // ** body not listed **
 14205  }
 14206  
 14207  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_ 
 14208  x_, int_4 _p_ incx_)
 14209  { // ** body not listed **
 14380  }
 14381  
 14382  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_ 
 14383  incy_)
 14384  { // ** body not listed **
 14416  }
 14417  
 14418  int_4 _zcopy (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
 14419  { // ** body not listed **
 14448  }
 14449  
 14450  complex_16 _zdotc (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
 14451  { // ** body not listed **
 14488  }
 14489  
 14490  complex_16 _zdotu (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
 14491  { // ** body not listed **
 14526  }
 14527  
 14528  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_, 
 14529  real_8 _p_ s_)
 14530  { // ** body not listed **
 14564  }
 14565  
 14566  int_4 _zdscal (int_4 _p_ n_, real_8 _p_ da_, complex_16 _p_ zx_, int_4 _p_ incx_)
 14567  { // ** body not listed **
 14588  }
 14589  
 14590  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_, 
 14591  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 
 14592  _p_ incy_)
 14593  { // ** body not listed **
 14767  }
 14768  
 14769  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_, 
 14770  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 
 14771  _p_ ldc_)
 14772  { // ** body not listed **
 15024  }
 15025  
 15026  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_, 
 15027  complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
 15028  { // ** body not listed **
 15185  }
 15186  
 15187  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_, 
 15188  int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
 15189  { // ** body not listed **
 15257  }
 15258  
 15259  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_, 
 15260  int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
 15261  { // ** body not listed **
 15327  }
 15328  
 15329  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_, 
 15330  complex_16 _p_ x_, int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
 15331  { // ** body not listed **
 15486  }
 15487  
 15488  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_, 
 15489  int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 15490  { // ** body not listed **
 15638  }
 15639  
 15640  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_
 15641  , int_4 _p_ incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
 15642  { // ** body not listed **
 15785  }
 15786  
 15787  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_ 
 15788  y_, int_4 _p_ incy_, complex_16 _p_ a_, int_4 _p_ lda_)
 15789  { // ** body not listed **
 15921  }
 15922  
 15923  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_, 
 15924  int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 15925  { // ** body not listed **
 16136  }
 16137  
 16138  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_, 
 16139  int_4 _p_ lda_)
 16140  { // ** body not listed **
 16248  }
 16249  
 16250  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 
 16251  _p_ lda_, real_8 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 16252  { // ** body not listed **
 16452  }
 16453  
 16454  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_ 
 16455  incx_, complex_16 _p_ beta_, complex_16 _p_ y_, int_4 _p_ incy_)
 16456  { // ** body not listed **
 16605  }
 16606  
 16607  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_ 
 16608  y_, int_4 _p_ incy_, complex_16 _p_ ap_)
 16609  { // ** body not listed **
 16743  }
 16744  
 16745  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_)
 16746  { // ** body not listed **
 16856  }
 16857  
 16858  int_4 _zrotg (complex_16 _p_ ca_, complex_16 _p_ cb_, real_8 _p_ c_, complex_16 _p_ s_)
 16859  { // ** body not listed **
 16888  }
 16889  
 16890  int_4 _zscal (int_4 _p_ n_, complex_16 _p_ za_, complex_16 _p_ zx_, int_4 _p_ incx_)
 16891  { // ** body not listed **
 16912  }
 16913  
 16914  int_4 _zswap (int_4 _p_ n_, complex_16 _p_ zx_, int_4 _p_ incx_, complex_16 _p_ zy_, int_4 _p_ incy_)
 16915  { // ** body not listed **
 16949  }
 16950  
 16951  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_, 
 16952  int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 16953  { // ** body not listed **
 17097  }
 17098  
 17099  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_, 
 17100  int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 17101  { // ** body not listed **
 17273  }
 17274  
 17275  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_, 
 17276  int_4 _p_ lda_, complex_16 _p_ beta_, complex_16 _p_ c_, int_4 _p_ ldc_)
 17277  { // ** body not listed **
 17436  }
 17437  
 17438  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_ 
 17439  lda_, complex_16 _p_ x_, int_4 _p_ incx_)
 17440  { // ** body not listed **
 17678  }
 17679  
 17680  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_ 
 17681  lda_, complex_16 _p_ x_, int_4 _p_ incx_)
 17682  { // ** body not listed **
 17920  }
 17921  
 17922  int_4 _ztpmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ ap_, complex_16 _p_ x_, 
 17923  int_4 _p_ incx_)
 17924  { // ** body not listed **
 18159  }
 18160  
 18161  int_4 _ztpsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ ap_, complex_16 _p_ x_, 
 18162  int_4 _p_ incx_)
 18163  { // ** body not listed **
 18398  }
 18399  
 18400  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 
 18401  _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_)
 18402  { // ** body not listed **
 18661  }
 18662  
 18663  int_4 _ztrmv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, 
 18664  complex_16 _p_ x_, int_4 _p_ incx_)
 18665  { // ** body not listed **
 18881  }
 18882  
 18883  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 
 18884  _p_ alpha_, complex_16 _p_ a_, int_4 _p_ lda_, complex_16 _p_ b_, int_4 _p_ ldb_)
 18885  { // ** body not listed **
 19160  }
 19161  
 19162  int_4 _ztrsv (char _p_ uplo_, char _p_ trans_, char _p_ diag_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, 
 19163  complex_16 _p_ x_, int_4 _p_ incx_)
 19164  { // ** body not listed **
 19380  }
 19381  


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