Back to home page

EIC code displayed by LXR
 
 

    

File indexing completed on 2025-01-17 09:55:22 

0001 #ifndef OPENBLAS_F77BLAS_H
0002 #define OPENBLAS_F77BLAS_H
0003 #include "openblas_config.h"
0004 /*********************************************************************/
0005 /* Copyright 2009, 2010 The University of Texas at Austin.           */
0006 /* All rights reserved.                                              */
0007 /*                                                                   */
0008 /* Redistribution and use in source and binary forms, with or        */
0009 /* without modification, are permitted provided that the following   */
0010 /* conditions are met:                                               */
0011 /*                                                                   */
0012 /*   1. Redistributions of source code must retain the above         */
0013 /*      copyright notice, this list of conditions and the following  */
0014 /*      disclaimer.                                                  */
0015 /*                                                                   */
0016 /*   2. Redistributions in binary form must reproduce the above      */
0017 /*      copyright notice, this list of conditions and the following  */
0018 /*      disclaimer in the documentation and/or other materials       */
0019 /*      provided with the distribution.                              */
0020 /*                                                                   */
0021 /*    THIS  SOFTWARE IS PROVIDED  BY THE  UNIVERSITY OF  TEXAS AT    */
0022 /*    AUSTIN  ``AS IS''  AND ANY  EXPRESS OR  IMPLIED WARRANTIES,    */
0023 /*    INCLUDING, BUT  NOT LIMITED  TO, THE IMPLIED  WARRANTIES OF    */
0024 /*    MERCHANTABILITY  AND FITNESS FOR  A PARTICULAR  PURPOSE ARE    */
0025 /*    DISCLAIMED.  IN  NO EVENT SHALL THE UNIVERSITY  OF TEXAS AT    */
0026 /*    AUSTIN OR CONTRIBUTORS BE  LIABLE FOR ANY DIRECT, INDIRECT,    */
0027 /*    INCIDENTAL,  SPECIAL, EXEMPLARY,  OR  CONSEQUENTIAL DAMAGES    */
0028 /*    (INCLUDING, BUT  NOT LIMITED TO,  PROCUREMENT OF SUBSTITUTE    */
0029 /*    GOODS  OR  SERVICES; LOSS  OF  USE,  DATA,  OR PROFITS;  OR    */
0030 /*    BUSINESS INTERRUPTION) HOWEVER CAUSED  AND ON ANY THEORY OF    */
0031 /*    LIABILITY, WHETHER  IN CONTRACT, STRICT  LIABILITY, OR TORT    */
0032 /*    (INCLUDING NEGLIGENCE OR OTHERWISE)  ARISING IN ANY WAY OUT    */
0033 /*    OF  THE  USE OF  THIS  SOFTWARE,  EVEN  IF ADVISED  OF  THE    */
0034 /*    POSSIBILITY OF SUCH DAMAGE.                                    */
0035 /*                                                                   */
0036 /* The views and conclusions contained in the software and           */
0037 /* documentation are those of the authors and should not be          */
0038 /* interpreted as representing official policies, either expressed   */
0039 /* or implied, of The University of Texas at Austin.                 */
0040 /*********************************************************************/
0041 
0042 #ifndef ASSEMBLER
0043 
0044 #ifdef __cplusplus
0045 extern "C" {
0046     /* Assume C declarations for C++ */
0047 #endif  /* __cplusplus */
0048 
0049 int    BLASFUNC(xerbla)(char *, blasint *info, blasint);
0050 
0051 void    openblas_set_num_threads_(int *);
0052 
0053 /*Set the threading backend to a custom callback.*/
0054 typedef void (*openblas_dojob_callback)(int thread_num, void *jobdata, int dojob_data);
0055 typedef void (*openblas_threads_callback)(int sync, openblas_dojob_callback dojob, int numjobs, size_t jobdata_elsize, void *jobdata, int dojob_data);
0056 extern openblas_threads_callback openblas_threads_callback_;
0057 
0058 FLOATRET  BLASFUNC(sdot)  (blasint *, float  *, blasint *, float  *, blasint *);
0059 FLOATRET  BLASFUNC(sdsdot)(blasint *, float  *,        float  *, blasint *, float  *, blasint *);
0060 
0061 double BLASFUNC(dsdot) (blasint *, float  *, blasint *, float  *, blasint *);
0062 double BLASFUNC(ddot)  (blasint *, double *, blasint *, double *, blasint *);
0063 xdouble BLASFUNC(qdot)  (blasint *, xdouble *, blasint *, xdouble *, blasint *);
0064 
0065 float  BLASFUNC(sbdot)     (blasint *, bfloat16 *, blasint *, bfloat16 *, blasint *);
0066 void   BLASFUNC(sbstobf16) (blasint *, float *,    blasint *, bfloat16 *, blasint *);
0067 void   BLASFUNC(sbdtobf16) (blasint *, double *,   blasint *, bfloat16 *, blasint *);
0068 void   BLASFUNC(sbf16tos)  (blasint *, bfloat16 *, blasint *, float *,    blasint *);
0069 void   BLASFUNC(dbf16tod)  (blasint *, bfloat16 *, blasint *, double *,   blasint *);
0070 
0071 #ifdef RETURN_BY_STRUCT
0072 typedef struct {
0073   float r, i;
0074 } myccomplex_t;
0075 
0076 typedef struct {
0077   double r, i;
0078 } myzcomplex_t;
0079 
0080 typedef struct {
0081   xdouble r, i;
0082 } myxcomplex_t;
0083 
0084 myccomplex_t    BLASFUNC(cdotu)  (blasint *, float  *, blasint *, float  *, blasint *);
0085 myccomplex_t    BLASFUNC(cdotc)  (blasint *, float  *, blasint *, float  *, blasint *);
0086 myzcomplex_t    BLASFUNC(zdotu)  (blasint *, double  *, blasint *, double  *, blasint *);
0087 myzcomplex_t    BLASFUNC(zdotc)  (blasint *, double  *, blasint *, double  *, blasint *);
0088 myxcomplex_t    BLASFUNC(xdotu)  (blasint *, xdouble  *, blasint *, xdouble  *, blasint *);
0089 myxcomplex_t    BLASFUNC(xdotc)  (blasint *, xdouble  *, blasint *, xdouble  *, blasint *);
0090 
0091 #elif defined RETURN_BY_STACK
0092 void  BLASFUNC(cdotu)  (openblas_complex_float   *,  blasint *, float  * , blasint *, float  *,  blasint *);
0093 void  BLASFUNC(cdotc)  (openblas_complex_float   *,  blasint *, float  *,  blasint *, float  *,  blasint *);
0094 void  BLASFUNC(zdotu)  (openblas_complex_double  *, blasint *, double  *, blasint *, double  *, blasint *);
0095 void  BLASFUNC(zdotc)  (openblas_complex_double  *, blasint *, double  *, blasint *, double  *, blasint *);
0096 void  BLASFUNC(xdotu)  (openblas_complex_xdouble *, blasint *, xdouble  *, blasint *, xdouble  *, blasint *);
0097 void  BLASFUNC(xdotc)  (openblas_complex_xdouble *, blasint *, xdouble  *, blasint *, xdouble  *, blasint *);
0098 #else
0099 openblas_complex_float   BLASFUNC(cdotu)  (blasint *, float  *, blasint *, float  *, blasint *);
0100 openblas_complex_float   BLASFUNC(cdotc)  (blasint *, float  *, blasint *, float  *, blasint *);
0101 openblas_complex_double  BLASFUNC(zdotu)  (blasint *, double  *, blasint *, double  *, blasint *);
0102 openblas_complex_double  BLASFUNC(zdotc)  (blasint *, double  *, blasint *, double  *, blasint *);
0103 openblas_complex_xdouble BLASFUNC(xdotu)  (blasint *, xdouble  *, blasint *, xdouble  *, blasint *);
0104 openblas_complex_xdouble BLASFUNC(xdotc)  (blasint *, xdouble  *, blasint *, xdouble  *, blasint *);
0105 #endif
0106 
0107 void    BLASFUNC(saxpy) (blasint *, float  *, float  *, blasint *, float  *, blasint *);
0108 void    BLASFUNC(daxpy) (blasint *, double *, double *, blasint *, double *, blasint *);
0109 void    BLASFUNC(qaxpy) (blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *);
0110 void    BLASFUNC(caxpy) (blasint *, float  *, float  *, blasint *, float  *, blasint *);
0111 void    BLASFUNC(zaxpy) (blasint *, double *, double *, blasint *, double *, blasint *);
0112 void    BLASFUNC(xaxpy) (blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *);
0113 void    BLASFUNC(caxpyc)(blasint *, float  *, float  *, blasint *, float  *, blasint *);
0114 void    BLASFUNC(zaxpyc)(blasint *, double *, double *, blasint *, double *, blasint *);
0115 void    BLASFUNC(xaxpyc)(blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *);
0116 
0117 void    BLASFUNC(scopy) (blasint *, float  *, blasint *, float  *, blasint *);
0118 void    BLASFUNC(dcopy) (blasint *, double *, blasint *, double *, blasint *);
0119 void    BLASFUNC(qcopy) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
0120 void    BLASFUNC(ccopy) (blasint *, float  *, blasint *, float  *, blasint *);
0121 void    BLASFUNC(zcopy) (blasint *, double *, blasint *, double *, blasint *);
0122 void    BLASFUNC(xcopy) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
0123 
0124 void    BLASFUNC(sswap) (blasint *, float  *, blasint *, float  *, blasint *);
0125 void    BLASFUNC(dswap) (blasint *, double *, blasint *, double *, blasint *);
0126 void    BLASFUNC(qswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
0127 void    BLASFUNC(cswap) (blasint *, float  *, blasint *, float  *, blasint *);
0128 void    BLASFUNC(zswap) (blasint *, double *, blasint *, double *, blasint *);
0129 void    BLASFUNC(xswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
0130 
0131 FLOATRET  BLASFUNC(sasum) (blasint *, float  *, blasint *);
0132 FLOATRET  BLASFUNC(scasum)(blasint *, float  *, blasint *);
0133 double BLASFUNC(dasum) (blasint *, double *, blasint *);
0134 xdouble BLASFUNC(qasum) (blasint *, xdouble *, blasint *);
0135 double BLASFUNC(dzasum)(blasint *, double *, blasint *);
0136 xdouble BLASFUNC(qxasum)(blasint *, xdouble *, blasint *);
0137 
0138 FLOATRET  BLASFUNC(ssum) (blasint *, float  *, blasint *);
0139 FLOATRET  BLASFUNC(scsum)(blasint *, float  *, blasint *);
0140 double BLASFUNC(dsum) (blasint *, double *, blasint *);
0141 xdouble BLASFUNC(qsum) (blasint *, xdouble *, blasint *);
0142 double BLASFUNC(dzsum)(blasint *, double *, blasint *);
0143 xdouble BLASFUNC(qxsum)(blasint *, xdouble *, blasint *);
0144 
0145 blasint    BLASFUNC(isamax)(blasint *, float  *, blasint *);
0146 blasint    BLASFUNC(idamax)(blasint *, double *, blasint *);
0147 blasint    BLASFUNC(iqamax)(blasint *, xdouble *, blasint *);
0148 blasint    BLASFUNC(icamax)(blasint *, float  *, blasint *);
0149 blasint    BLASFUNC(izamax)(blasint *, double *, blasint *);
0150 blasint    BLASFUNC(ixamax)(blasint *, xdouble *, blasint *);
0151 
0152 blasint    BLASFUNC(ismax) (blasint *, float  *, blasint *);
0153 blasint    BLASFUNC(idmax) (blasint *, double *, blasint *);
0154 blasint    BLASFUNC(iqmax) (blasint *, xdouble *, blasint *);
0155 blasint    BLASFUNC(icmax) (blasint *, float  *, blasint *);
0156 blasint    BLASFUNC(izmax) (blasint *, double *, blasint *);
0157 blasint    BLASFUNC(ixmax) (blasint *, xdouble *, blasint *);
0158 
0159 blasint    BLASFUNC(isamin)(blasint *, float  *, blasint *);
0160 blasint    BLASFUNC(idamin)(blasint *, double *, blasint *);
0161 blasint    BLASFUNC(iqamin)(blasint *, xdouble *, blasint *);
0162 blasint    BLASFUNC(icamin)(blasint *, float  *, blasint *);
0163 blasint    BLASFUNC(izamin)(blasint *, double *, blasint *);
0164 blasint    BLASFUNC(ixamin)(blasint *, xdouble *, blasint *);
0165 
0166 blasint    BLASFUNC(ismin)(blasint *, float  *, blasint *);
0167 blasint    BLASFUNC(idmin)(blasint *, double *, blasint *);
0168 blasint    BLASFUNC(iqmin)(blasint *, xdouble *, blasint *);
0169 blasint    BLASFUNC(icmin)(blasint *, float  *, blasint *);
0170 blasint    BLASFUNC(izmin)(blasint *, double *, blasint *);
0171 blasint    BLASFUNC(ixmin)(blasint *, xdouble *, blasint *);
0172 
0173 FLOATRET  BLASFUNC(samax) (blasint *, float  *, blasint *);
0174 double BLASFUNC(damax) (blasint *, double *, blasint *);
0175 xdouble BLASFUNC(qamax) (blasint *, xdouble *, blasint *);
0176 FLOATRET  BLASFUNC(scamax)(blasint *, float  *, blasint *);
0177 double BLASFUNC(dzamax)(blasint *, double *, blasint *);
0178 xdouble BLASFUNC(qxamax)(blasint *, xdouble *, blasint *);
0179 
0180 FLOATRET  BLASFUNC(samin) (blasint *, float  *, blasint *);
0181 double BLASFUNC(damin) (blasint *, double *, blasint *);
0182 xdouble BLASFUNC(qamin) (blasint *, xdouble *, blasint *);
0183 FLOATRET  BLASFUNC(scamin)(blasint *, float  *, blasint *);
0184 double BLASFUNC(dzamin)(blasint *, double *, blasint *);
0185 xdouble BLASFUNC(qxamin)(blasint *, xdouble *, blasint *);
0186 
0187 FLOATRET  BLASFUNC(smax)  (blasint *, float  *, blasint *);
0188 double BLASFUNC(dmax)  (blasint *, double *, blasint *);
0189 xdouble BLASFUNC(qmax)  (blasint *, xdouble *, blasint *);
0190 FLOATRET  BLASFUNC(scmax) (blasint *, float  *, blasint *);
0191 double BLASFUNC(dzmax) (blasint *, double *, blasint *);
0192 xdouble BLASFUNC(qxmax) (blasint *, xdouble *, blasint *);
0193 
0194 FLOATRET  BLASFUNC(smin)  (blasint *, float  *, blasint *);
0195 double BLASFUNC(dmin)  (blasint *, double *, blasint *);
0196 xdouble BLASFUNC(qmin)  (blasint *, xdouble *, blasint *);
0197 FLOATRET  BLASFUNC(scmin) (blasint *, float  *, blasint *);
0198 double BLASFUNC(dzmin) (blasint *, double *, blasint *);
0199 xdouble BLASFUNC(qxmin) (blasint *, xdouble *, blasint *);
0200 
0201 void    BLASFUNC(sscal) (blasint *,  float  *, float  *, blasint *);
0202 void    BLASFUNC(dscal) (blasint *,  double *, double *, blasint *);
0203 void    BLASFUNC(qscal) (blasint *,  xdouble *, xdouble *, blasint *);
0204 void    BLASFUNC(cscal) (blasint *,  float  *, float  *, blasint *);
0205 void    BLASFUNC(zscal) (blasint *,  double *, double *, blasint *);
0206 void    BLASFUNC(xscal) (blasint *,  xdouble *, xdouble *, blasint *);
0207 void    BLASFUNC(csscal)(blasint *,  float  *, float  *, blasint *);
0208 void    BLASFUNC(zdscal)(blasint *,  double *, double *, blasint *);
0209 void    BLASFUNC(xqscal)(blasint *,  xdouble *, xdouble *, blasint *);
0210 
0211 FLOATRET  BLASFUNC(snrm2) (blasint *, float  *, blasint *);
0212 FLOATRET  BLASFUNC(scnrm2)(blasint *, float  *, blasint *);
0213 
0214 double BLASFUNC(dnrm2) (blasint *, double *, blasint *);
0215 xdouble BLASFUNC(qnrm2) (blasint *, xdouble *, blasint *);
0216 double BLASFUNC(dznrm2)(blasint *, double *, blasint *);
0217 xdouble BLASFUNC(qxnrm2)(blasint *, xdouble *, blasint *);
0218 
0219 void  BLASFUNC(srot)  (blasint *, float  *, blasint *, float  *, blasint *, float  *, float  *);
0220 void  BLASFUNC(drot)  (blasint *, double *, blasint *, double *, blasint *, double *, double *);
0221 void  BLASFUNC(qrot)  (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *);
0222 void  BLASFUNC(csrot) (blasint *, float  *, blasint *, float  *, blasint *, float  *, float  *);
0223 void  BLASFUNC(zdrot) (blasint *, double *, blasint *, double *, blasint *, double *, double *);
0224 void  BLASFUNC(xqrot) (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *);
0225 
0226 void  BLASFUNC(srotg) (float  *, float  *, float  *, float  *);
0227 void  BLASFUNC(drotg) (double *, double *, double *, double *);
0228 void  BLASFUNC(qrotg) (xdouble *, xdouble *, xdouble *, xdouble *);
0229 void  BLASFUNC(crotg) (float  *, float  *, float  *, float  *);
0230 void  BLASFUNC(zrotg) (double *, double *, double *, double *);
0231 void  BLASFUNC(xrotg) (xdouble *, xdouble *, xdouble *, xdouble *);
0232 
0233 void  BLASFUNC(srotmg)(float  *, float  *, float  *, float  *, float  *);
0234 void  BLASFUNC(drotmg)(double *, double *, double *, double *, double *);
0235 
0236 void  BLASFUNC(srotm) (blasint *, float  *, blasint *, float  *, blasint *, float  *);
0237 void  BLASFUNC(drotm) (blasint *, double *, blasint *, double *, blasint *, double *);
0238 void  BLASFUNC(qrotm) (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *);
0239 
0240 /* Level 2 routines */
0241 
0242 void BLASFUNC(sger)(blasint *,    blasint *, float *,  float *, blasint *,
0243            float *,  blasint *, float *,  blasint *);
0244 void BLASFUNC(dger)(blasint *,    blasint *, double *, double *, blasint *,
0245            double *, blasint *, double *, blasint *);
0246 void BLASFUNC(qger)(blasint *,    blasint *, xdouble *, xdouble *, blasint *,
0247            xdouble *, blasint *, xdouble *, blasint *);
0248 void BLASFUNC(cgeru)(blasint *,    blasint *, float *,  float *, blasint *,
0249             float *,  blasint *, float *,  blasint *);
0250 void BLASFUNC(cgerc)(blasint *,    blasint *, float *,  float *, blasint *,
0251             float *,  blasint *, float *,  blasint *);
0252 void BLASFUNC(zgeru)(blasint *,    blasint *, double *, double *, blasint *,
0253             double *, blasint *, double *, blasint *);
0254 void BLASFUNC(zgerc)(blasint *,    blasint *, double *, double *, blasint *,
0255             double *, blasint *, double *, blasint *);
0256 void BLASFUNC(xgeru)(blasint *,    blasint *, xdouble *, xdouble *, blasint *,
0257             xdouble *, blasint *, xdouble *, blasint *);
0258 void BLASFUNC(xgerc)(blasint *,    blasint *, xdouble *, xdouble *, blasint *,
0259             xdouble *, blasint *, xdouble *, blasint *);
0260 
0261 void BLASFUNC(sbgemv)(char *, blasint *, blasint *, float  *, bfloat16 *, blasint *,
0262             bfloat16  *, blasint *, float  *, float  *, blasint *);
0263 void BLASFUNC(sgemv)(char *, blasint *, blasint *, float  *, float  *, blasint *,
0264             float  *, blasint *, float  *, float  *, blasint *);
0265 void BLASFUNC(dgemv)(char *, blasint *, blasint *, double *, double *, blasint *,
0266             double *, blasint *, double *, double *, blasint *);
0267 void BLASFUNC(qgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0268             xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0269 void BLASFUNC(cgemv)(char *, blasint *, blasint *, float  *, float  *, blasint *,
0270             float  *, blasint *, float  *, float  *, blasint *);
0271 void BLASFUNC(zgemv)(char *, blasint *, blasint *, double *, double *, blasint *,
0272             double *, blasint *, double *, double *, blasint *);
0273 void BLASFUNC(xgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0274             xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0275 
0276 void BLASFUNC(strsv) (char *, char *, char *, blasint *, float  *, blasint *,
0277              float  *, blasint *);
0278 void BLASFUNC(dtrsv) (char *, char *, char *, blasint *, double *, blasint *,
0279              double *, blasint *);
0280 void BLASFUNC(qtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *,
0281              xdouble *, blasint *);
0282 void BLASFUNC(ctrsv) (char *, char *, char *, blasint *, float  *, blasint *,
0283              float  *, blasint *);
0284 void BLASFUNC(ztrsv) (char *, char *, char *, blasint *, double *, blasint *,
0285              double *, blasint *);
0286 void BLASFUNC(xtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *,
0287              xdouble *, blasint *);
0288 
0289 void BLASFUNC(strmv) (char *, char *, char *, blasint *, float  *, blasint *,
0290              float  *, blasint *);
0291 void BLASFUNC(dtrmv) (char *, char *, char *, blasint *, double *, blasint *,
0292              double *, blasint *);
0293 void BLASFUNC(qtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *,
0294              xdouble *, blasint *);
0295 void BLASFUNC(ctrmv) (char *, char *, char *, blasint *, float  *, blasint *,
0296              float  *, blasint *);
0297 void BLASFUNC(ztrmv) (char *, char *, char *, blasint *, double *, blasint *,
0298              double *, blasint *);
0299 void BLASFUNC(xtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *,
0300              xdouble *, blasint *);
0301 
0302 void BLASFUNC(stpsv) (char *, char *, char *, blasint *, float  *, float  *, blasint *);
0303 void BLASFUNC(dtpsv) (char *, char *, char *, blasint *, double *, double *, blasint *);
0304 void BLASFUNC(qtpsv) (char *, char *, char *, blasint *, xdouble *, xdouble *, blasint *);
0305 void BLASFUNC(ctpsv) (char *, char *, char *, blasint *, float  *, float  *, blasint *);
0306 void BLASFUNC(ztpsv) (char *, char *, char *, blasint *, double *, double *, blasint *);
0307 void BLASFUNC(xtpsv) (char *, char *, char *, blasint *, xdouble *, xdouble *, blasint *);
0308 
0309 void BLASFUNC(stpmv) (char *, char *, char *, blasint *, float  *, float  *, blasint *);
0310 void BLASFUNC(dtpmv) (char *, char *, char *, blasint *, double *, double *, blasint *);
0311 void BLASFUNC(qtpmv) (char *, char *, char *, blasint *, xdouble *, xdouble *, blasint *);
0312 void BLASFUNC(ctpmv) (char *, char *, char *, blasint *, float  *, float  *, blasint *);
0313 void BLASFUNC(ztpmv) (char *, char *, char *, blasint *, double *, double *, blasint *);
0314 void BLASFUNC(xtpmv) (char *, char *, char *, blasint *, xdouble *, xdouble *, blasint *);
0315 
0316 void BLASFUNC(stbmv) (char *, char *, char *, blasint *, blasint *, float  *, blasint *, float  *, blasint *);
0317 void BLASFUNC(dtbmv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *);
0318 void BLASFUNC(qtbmv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
0319 void BLASFUNC(ctbmv) (char *, char *, char *, blasint *, blasint *, float  *, blasint *, float  *, blasint *);
0320 void BLASFUNC(ztbmv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *);
0321 void BLASFUNC(xtbmv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
0322 
0323 void BLASFUNC(stbsv) (char *, char *, char *, blasint *, blasint *, float  *, blasint *, float  *, blasint *);
0324 void BLASFUNC(dtbsv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *);
0325 void BLASFUNC(qtbsv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
0326 void BLASFUNC(ctbsv) (char *, char *, char *, blasint *, blasint *, float  *, blasint *, float  *, blasint *);
0327 void BLASFUNC(ztbsv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *);
0328 void BLASFUNC(xtbsv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
0329 
0330 void BLASFUNC(ssymv) (char *, blasint *, float  *, float *, blasint *,
0331              float  *, blasint *, float *, float *, blasint *);
0332 void BLASFUNC(dsymv) (char *, blasint *, double  *, double *, blasint *,
0333              double  *, blasint *, double *, double *, blasint *);
0334 void BLASFUNC(qsymv) (char *, blasint *, xdouble  *, xdouble *, blasint *,
0335              xdouble  *, blasint *, xdouble *, xdouble *, blasint *);
0336 void BLASFUNC(csymv) (char *, blasint *, float  *, float *, blasint *,
0337              float  *, blasint *, float *, float *, blasint *);
0338 void BLASFUNC(zsymv) (char *, blasint *, double  *, double *, blasint *,
0339              double  *, blasint *, double *, double *, blasint *);
0340 void BLASFUNC(xsymv) (char *, blasint *, xdouble  *, xdouble *, blasint *,
0341              xdouble  *, blasint *, xdouble *, xdouble *, blasint *);
0342 
0343 void BLASFUNC(sspmv) (char *, blasint *, float  *, float *,
0344              float  *, blasint *, float *, float *, blasint *);
0345 void BLASFUNC(dspmv) (char *, blasint *, double  *, double *,
0346              double  *, blasint *, double *, double *, blasint *);
0347 void BLASFUNC(qspmv) (char *, blasint *, xdouble  *, xdouble *,
0348              xdouble  *, blasint *, xdouble *, xdouble *, blasint *);
0349 void BLASFUNC(cspmv) (char *, blasint *, float  *, float *,
0350              float  *, blasint *, float *, float *, blasint *);
0351 void BLASFUNC(zspmv) (char *, blasint *, double  *, double *,
0352              double  *, blasint *, double *, double *, blasint *);
0353 void BLASFUNC(xspmv) (char *, blasint *, xdouble  *, xdouble *,
0354              xdouble  *, blasint *, xdouble *, xdouble *, blasint *);
0355 
0356 void BLASFUNC(ssyr) (char *, blasint *, float   *, float  *, blasint *,
0357             float  *, blasint *);
0358 void BLASFUNC(dsyr) (char *, blasint *, double  *, double *, blasint *,
0359             double *, blasint *);
0360 void BLASFUNC(qsyr) (char *, blasint *, xdouble  *, xdouble *, blasint *,
0361             xdouble *, blasint *);
0362 void BLASFUNC(csyr) (char *, blasint *, float   *, float  *, blasint *,
0363             float  *, blasint *);
0364 void BLASFUNC(zsyr) (char *, blasint *, double  *, double *, blasint *,
0365             double *, blasint *);
0366 void BLASFUNC(xsyr) (char *, blasint *, xdouble  *, xdouble *, blasint *,
0367             xdouble *, blasint *);
0368 
0369 void BLASFUNC(ssyr2) (char *, blasint *, float   *,
0370              float  *, blasint *, float  *, blasint *, float  *, blasint *);
0371 void BLASFUNC(dsyr2) (char *, blasint *, double  *,
0372              double *, blasint *, double *, blasint *, double *, blasint *);
0373 void BLASFUNC(qsyr2) (char *, blasint *, xdouble  *,
0374              xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
0375 void BLASFUNC(csyr2) (char *, blasint *, float   *,
0376              float  *, blasint *, float  *, blasint *, float  *, blasint *);
0377 void BLASFUNC(zsyr2) (char *, blasint *, double  *,
0378              double *, blasint *, double *, blasint *, double *, blasint *);
0379 void BLASFUNC(xsyr2) (char *, blasint *, xdouble  *,
0380              xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
0381 
0382 void BLASFUNC(sspr) (char *, blasint *, float   *, float  *, blasint *,
0383             float  *);
0384 void BLASFUNC(dspr) (char *, blasint *, double  *, double *, blasint *,
0385             double *);
0386 void BLASFUNC(qspr) (char *, blasint *, xdouble  *, xdouble *, blasint *,
0387             xdouble *);
0388 void BLASFUNC(cspr) (char *, blasint *, float   *, float  *, blasint *,
0389             float  *);
0390 void BLASFUNC(zspr) (char *, blasint *, double  *, double *, blasint *,
0391             double *);
0392 void BLASFUNC(xspr) (char *, blasint *, xdouble  *, xdouble *, blasint *,
0393             xdouble *);
0394 
0395 void BLASFUNC(sspr2) (char *, blasint *, float   *,
0396              float  *, blasint *, float  *, blasint *, float  *);
0397 void BLASFUNC(dspr2) (char *, blasint *, double  *,
0398              double *, blasint *, double *, blasint *, double *);
0399 void BLASFUNC(qspr2) (char *, blasint *, xdouble  *,
0400              xdouble *, blasint *, xdouble *, blasint *, xdouble *);
0401 void BLASFUNC(cspr2) (char *, blasint *, float   *,
0402              float  *, blasint *, float  *, blasint *, float  *);
0403 void BLASFUNC(zspr2) (char *, blasint *, double  *,
0404              double *, blasint *, double *, blasint *, double *);
0405 void BLASFUNC(xspr2) (char *, blasint *, xdouble  *,
0406              xdouble *, blasint *, xdouble *, blasint *, xdouble *);
0407 
0408 void BLASFUNC(cher) (char *, blasint *, float   *, float  *, blasint *,
0409             float  *, blasint *);
0410 void BLASFUNC(zher) (char *, blasint *, double  *, double *, blasint *,
0411             double *, blasint *);
0412 void BLASFUNC(xher) (char *, blasint *, xdouble  *, xdouble *, blasint *,
0413             xdouble *, blasint *);
0414 
0415 void BLASFUNC(chpr) (char *, blasint *, float   *, float  *, blasint *, float  *);
0416 void BLASFUNC(zhpr) (char *, blasint *, double  *, double *, blasint *, double *);
0417 void BLASFUNC(xhpr) (char *, blasint *, xdouble  *, xdouble *, blasint *, xdouble *);
0418 
0419 void BLASFUNC(cher2) (char *, blasint *, float   *,
0420              float  *, blasint *, float  *, blasint *, float  *, blasint *);
0421 void BLASFUNC(zher2) (char *, blasint *, double  *,
0422              double *, blasint *, double *, blasint *, double *, blasint *);
0423 void BLASFUNC(xher2) (char *, blasint *, xdouble  *,
0424              xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
0425 
0426 void BLASFUNC(chpr2) (char *, blasint *, float   *,
0427              float  *, blasint *, float  *, blasint *, float  *);
0428 void BLASFUNC(zhpr2) (char *, blasint *, double  *,
0429              double *, blasint *, double *, blasint *, double *);
0430 void BLASFUNC(xhpr2) (char *, blasint *, xdouble  *,
0431              xdouble *, blasint *, xdouble *, blasint *, xdouble *);
0432 
0433 void BLASFUNC(chemv) (char *, blasint *, float  *, float *, blasint *,
0434              float  *, blasint *, float *, float *, blasint *);
0435 void BLASFUNC(zhemv) (char *, blasint *, double  *, double *, blasint *,
0436              double  *, blasint *, double *, double *, blasint *);
0437 void BLASFUNC(xhemv) (char *, blasint *, xdouble  *, xdouble *, blasint *,
0438              xdouble  *, blasint *, xdouble *, xdouble *, blasint *);
0439 
0440 void BLASFUNC(chpmv) (char *, blasint *, float  *, float *,
0441              float  *, blasint *, float *, float *, blasint *);
0442 void BLASFUNC(zhpmv) (char *, blasint *, double  *, double *,
0443              double  *, blasint *, double *, double *, blasint *);
0444 void BLASFUNC(xhpmv) (char *, blasint *, xdouble  *, xdouble *,
0445              xdouble  *, blasint *, xdouble *, xdouble *, blasint *);
0446 
0447 int BLASFUNC(snorm)(char *, blasint *, blasint *, float  *, blasint *);
0448 int BLASFUNC(dnorm)(char *, blasint *, blasint *, double *, blasint *);
0449 int BLASFUNC(cnorm)(char *, blasint *, blasint *, float  *, blasint *);
0450 int BLASFUNC(znorm)(char *, blasint *, blasint *, double *, blasint *);
0451 
0452 void BLASFUNC(sgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float  *, float  *, blasint *,
0453             float  *, blasint *, float  *, float  *, blasint *);
0454 void BLASFUNC(dgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *,
0455             double *, blasint *, double *, double *, blasint *);
0456 void BLASFUNC(qgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0457             xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0458 void BLASFUNC(cgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float  *, float  *, blasint *,
0459             float  *, blasint *, float  *, float  *, blasint *);
0460 void BLASFUNC(zgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *,
0461             double *, blasint *, double *, double *, blasint *);
0462 void BLASFUNC(xgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0463             xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0464 
0465 void BLASFUNC(ssbmv)(char *, blasint *, blasint *, float  *, float  *, blasint *,
0466             float  *, blasint *, float  *, float  *, blasint *);
0467 void BLASFUNC(dsbmv)(char *, blasint *, blasint *, double *, double *, blasint *,
0468             double *, blasint *, double *, double *, blasint *);
0469 void BLASFUNC(qsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0470             xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0471 void BLASFUNC(csbmv)(char *, blasint *, blasint *, float  *, float  *, blasint *,
0472             float  *, blasint *, float  *, float  *, blasint *);
0473 void BLASFUNC(zsbmv)(char *, blasint *, blasint *, double *, double *, blasint *,
0474             double *, blasint *, double *, double *, blasint *);
0475 void BLASFUNC(xsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0476             xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0477 
0478 void BLASFUNC(chbmv)(char *, blasint *, blasint *, float  *, float  *, blasint *,
0479             float  *, blasint *, float  *, float  *, blasint *);
0480 void BLASFUNC(zhbmv)(char *, blasint *, blasint *, double *, double *, blasint *,
0481             double *, blasint *, double *, double *, blasint *);
0482 void BLASFUNC(xhbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0483             xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0484 
0485 /* Level 3 routines */
0486 
0487 void BLASFUNC(sbgemm)(char *, char *, blasint *, blasint *, blasint *, float *,
0488        bfloat16 *, blasint *, bfloat16 *, blasint *, float *, float *, blasint *);
0489 void BLASFUNC(sgemm)(char *, char *, blasint *, blasint *, blasint *, float *,
0490        float  *, blasint *, float  *, blasint *, float  *, float  *, blasint *);
0491 void BLASFUNC(dgemm)(char *, char *, blasint *, blasint *, blasint *, double *,
0492        double *, blasint *, double *, blasint *, double *, double *, blasint *);
0493 void BLASFUNC(qgemm)(char *, char *, blasint *, blasint *, blasint *, xdouble *,
0494        xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0495 void BLASFUNC(cgemm)(char *, char *, blasint *, blasint *, blasint *, float *,
0496        float  *, blasint *, float  *, blasint *, float  *, float  *, blasint *);
0497 void BLASFUNC(zgemm)(char *, char *, blasint *, blasint *, blasint *, double *,
0498        double *, blasint *, double *, blasint *, double *, double *, blasint *);
0499 void BLASFUNC(xgemm)(char *, char *, blasint *, blasint *, blasint *, xdouble *,
0500        xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0501 
0502 void BLASFUNC(cgemm3m)(char *, char *, blasint *, blasint *, blasint *, float *,
0503        float  *, blasint *, float  *, blasint *, float  *, float  *, blasint *);
0504 void BLASFUNC(zgemm3m)(char *, char *, blasint *, blasint *, blasint *, double *,
0505        double *, blasint *, double *, blasint *, double *, double *, blasint *);
0506 void BLASFUNC(xgemm3m)(char *, char *, blasint *, blasint *, blasint *, xdouble *,
0507        xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0508 
0509 void BLASFUNC(sgemmt)(char*, char *, char *, blasint *, blasint *, float *,
0510        float  *, blasint *, float  *, blasint *, float  *, float  *, blasint *);
0511 void BLASFUNC(dgemmt)(char*, char *, char *, blasint *, blasint *, double *,
0512        double *, blasint *, double *, blasint *, double *, double *, blasint *);
0513 void BLASFUNC(cgemmt)(char*, char *, char *, blasint *, blasint *, float *,
0514        float  *, blasint *, float  *, blasint *, float  *, float  *, blasint *);
0515 void BLASFUNC(zgemmt)(char*, char *, char *, blasint *, blasint *, double *,
0516        double *, blasint *, double *, blasint *, double *, double *, blasint *);
0517 
0518 int BLASFUNC(sge2mm)(char *, char *, char *, blasint *, blasint *,
0519              float *, float  *, blasint *, float  *, blasint *,
0520              float *, float  *, blasint *);
0521 int BLASFUNC(dge2mm)(char *, char *, char *, blasint *, blasint *,
0522              double *, double  *, blasint *, double  *, blasint *,
0523              double *, double  *, blasint *);
0524 int BLASFUNC(cge2mm)(char *, char *, char *, blasint *, blasint *,
0525              float *, float  *, blasint *, float  *, blasint *,
0526              float *, float  *, blasint *);
0527 int BLASFUNC(zge2mm)(char *, char *, char *, blasint *, blasint *,
0528              double *, double  *, blasint *, double  *, blasint *,
0529              double *, double  *, blasint *);
0530 
0531 void BLASFUNC(strsm)(char *, char *, char *, char *, blasint *, blasint *,
0532        float *,  float *, blasint *, float *, blasint *);
0533 void BLASFUNC(dtrsm)(char *, char *, char *, char *, blasint *, blasint *,
0534        double *,  double *, blasint *, double *, blasint *);
0535 void BLASFUNC(qtrsm)(char *, char *, char *, char *, blasint *, blasint *,
0536        xdouble *,  xdouble *, blasint *, xdouble *, blasint *);
0537 void BLASFUNC(ctrsm)(char *, char *, char *, char *, blasint *, blasint *,
0538        float *,  float *, blasint *, float *, blasint *);
0539 void BLASFUNC(ztrsm)(char *, char *, char *, char *, blasint *, blasint *,
0540        double *,  double *, blasint *, double *, blasint *);
0541 void BLASFUNC(xtrsm)(char *, char *, char *, char *, blasint *, blasint *,
0542        xdouble *,  xdouble *, blasint *, xdouble *, blasint *);
0543 
0544 void BLASFUNC(strmm)(char *, char *, char *, char *, blasint *, blasint *,
0545        float *,  float *, blasint *, float *, blasint *);
0546 void BLASFUNC(dtrmm)(char *, char *, char *, char *, blasint *, blasint *,
0547        double *,  double *, blasint *, double *, blasint *);
0548 void BLASFUNC(qtrmm)(char *, char *, char *, char *, blasint *, blasint *,
0549        xdouble *,  xdouble *, blasint *, xdouble *, blasint *);
0550 void BLASFUNC(ctrmm)(char *, char *, char *, char *, blasint *, blasint *,
0551        float *,  float *, blasint *, float *, blasint *);
0552 void BLASFUNC(ztrmm)(char *, char *, char *, char *, blasint *, blasint *,
0553        double *,  double *, blasint *, double *, blasint *);
0554 void BLASFUNC(xtrmm)(char *, char *, char *, char *, blasint *, blasint *,
0555        xdouble *,  xdouble *, blasint *, xdouble *, blasint *);
0556 
0557 void BLASFUNC(ssymm)(char *, char *, blasint *, blasint *, float  *, float  *, blasint *,
0558        float  *, blasint *, float  *, float  *, blasint *);
0559 void BLASFUNC(dsymm)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
0560        double *, blasint *, double *, double *, blasint *);
0561 void BLASFUNC(qsymm)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0562        xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0563 void BLASFUNC(csymm)(char *, char *, blasint *, blasint *, float  *, float  *, blasint *,
0564        float  *, blasint *, float  *, float  *, blasint *);
0565 void BLASFUNC(zsymm)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
0566        double *, blasint *, double *, double *, blasint *);
0567 void BLASFUNC(xsymm)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0568        xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0569 
0570 void BLASFUNC(csymm3m)(char *, char *, blasint *, blasint *, float  *, float  *, blasint *,
0571        float  *, blasint *, float  *, float  *, blasint *);
0572 void BLASFUNC(zsymm3m)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
0573        double *, blasint *, double *, double *, blasint *);
0574 void BLASFUNC(xsymm3m)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0575        xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0576 
0577 void BLASFUNC(ssyrk)(char *, char *, blasint *, blasint *, float  *, float  *, blasint *,
0578        float  *, float  *, blasint *);
0579 void BLASFUNC(dsyrk)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
0580        double *, double *, blasint *);
0581 void BLASFUNC(qsyrk)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0582        xdouble *, xdouble *, blasint *);
0583 void BLASFUNC(csyrk)(char *, char *, blasint *, blasint *, float  *, float  *, blasint *,
0584        float  *, float  *, blasint *);
0585 void BLASFUNC(zsyrk)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
0586        double *, double *, blasint *);
0587 void BLASFUNC(xsyrk)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0588        xdouble *, xdouble *, blasint *);
0589 
0590 void BLASFUNC(ssyr2k)(char *, char *, blasint *, blasint *, float  *, float  *, blasint *,
0591        float *, blasint *, float  *, float  *, blasint *);
0592 void BLASFUNC(dsyr2k)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
0593        double*, blasint *, double *, double *, blasint *);
0594 void BLASFUNC(qsyr2k)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0595        xdouble*, blasint *, xdouble *, xdouble *, blasint *);
0596 void BLASFUNC(csyr2k)(char *, char *, blasint *, blasint *, float  *, float  *, blasint *,
0597        float *, blasint *, float  *, float  *, blasint *);
0598 void BLASFUNC(zsyr2k)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
0599        double*, blasint *, double *, double *, blasint *);
0600 void BLASFUNC(xsyr2k)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0601        xdouble*, blasint *, xdouble *, xdouble *, blasint *);
0602 
0603 void BLASFUNC(chemm)(char *, char *, blasint *, blasint *, float  *, float  *, blasint *,
0604        float  *, blasint *, float  *, float  *, blasint *);
0605 void BLASFUNC(zhemm)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
0606        double *, blasint *, double *, double *, blasint *);
0607 void BLASFUNC(xhemm)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0608        xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0609 
0610 void BLASFUNC(chemm3m)(char *, char *, blasint *, blasint *, float  *, float  *, blasint *,
0611        float  *, blasint *, float  *, float  *, blasint *);
0612 void BLASFUNC(zhemm3m)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
0613        double *, blasint *, double *, double *, blasint *);
0614 void BLASFUNC(xhemm3m)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0615        xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0616 
0617 void BLASFUNC(cherk)(char *, char *, blasint *, blasint *, float  *, float  *, blasint *,
0618        float  *, float  *, blasint *);
0619 void BLASFUNC(zherk)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
0620        double *, double *, blasint *);
0621 void BLASFUNC(xherk)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0622        xdouble *, xdouble *, blasint *);
0623 
0624 void BLASFUNC(cher2k)(char *, char *, blasint *, blasint *, float  *, float  *, blasint *,
0625        float *, blasint *, float  *, float  *, blasint *);
0626 void BLASFUNC(zher2k)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
0627        double*, blasint *, double *, double *, blasint *);
0628 void BLASFUNC(xher2k)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0629        xdouble*, blasint *, xdouble *, xdouble *, blasint *);
0630 
0631 int BLASFUNC(cher2m)(char *, char *, char *, blasint *, blasint *, float  *, float  *, blasint *,
0632        float *, blasint *, float  *, float  *, blasint *);
0633 int BLASFUNC(zher2m)(char *, char *, char *, blasint *, blasint *, double *, double *, blasint *,
0634        double*, blasint *, double *, double *, blasint *);
0635 int BLASFUNC(xher2m)(char *, char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
0636        xdouble*, blasint *, xdouble *, xdouble *, blasint *);
0637 
0638 int BLASFUNC(sgemt)(char *, blasint *, blasint *, float  *, float  *, blasint *,
0639             float  *, blasint *);
0640 int BLASFUNC(dgemt)(char *, blasint *, blasint *, double *, double *, blasint *,
0641             double *, blasint *);
0642 int BLASFUNC(cgemt)(char *, blasint *, blasint *, float  *, float  *, blasint *,
0643             float  *, blasint *);
0644 int BLASFUNC(zgemt)(char *, blasint *, blasint *, double *, double *, blasint *,
0645             double *, blasint *);
0646 
0647 int BLASFUNC(sgema)(char *, char *, blasint *, blasint *, float  *,
0648             float  *, blasint *, float *, float  *, blasint *, float *, blasint *);
0649 int BLASFUNC(dgema)(char *, char *, blasint *, blasint *, double *,
0650             double *, blasint *, double*, double *, blasint *, double*, blasint *);
0651 int BLASFUNC(cgema)(char *, char *, blasint *, blasint *, float  *,
0652             float  *, blasint *, float *, float  *, blasint *, float *, blasint *);
0653 int BLASFUNC(zgema)(char *, char *, blasint *, blasint *, double *,
0654             double *, blasint *, double*, double *, blasint *, double*, blasint *);
0655 
0656 int BLASFUNC(sgems)(char *, char *, blasint *, blasint *, float  *,
0657             float  *, blasint *, float *, float  *, blasint *, float *, blasint *);
0658 int BLASFUNC(dgems)(char *, char *, blasint *, blasint *, double *,
0659             double *, blasint *, double*, double *, blasint *, double*, blasint *);
0660 int BLASFUNC(cgems)(char *, char *, blasint *, blasint *, float  *,
0661             float  *, blasint *, float *, float  *, blasint *, float *, blasint *);
0662 int BLASFUNC(zgems)(char *, char *, blasint *, blasint *, double *,
0663             double *, blasint *, double*, double *, blasint *, double*, blasint *);
0664 
0665 int BLASFUNC(sgemc)(char *, char *, blasint *, blasint *, blasint *, float *,
0666        float  *, blasint *, float  *, blasint *, float  *, blasint *, float  *, float  *, blasint *);
0667 int BLASFUNC(dgemc)(char *, char *, blasint *, blasint *, blasint *, double *,
0668        double *, blasint *, double *, blasint *, double *, blasint *, double *, double *, blasint *);
0669 int BLASFUNC(qgemc)(char *, char *, blasint *, blasint *, blasint *, xdouble *,
0670        xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *,  xdouble *, xdouble *, blasint *);
0671 int BLASFUNC(cgemc)(char *, char *, blasint *, blasint *, blasint *, float *,
0672        float  *, blasint *, float  *, blasint *, float  *, blasint *, float  *, float  *, blasint *);
0673 int BLASFUNC(zgemc)(char *, char *, blasint *, blasint *, blasint *, double *,
0674        double *, blasint *, double *, blasint *, double *, blasint *, double *, double *, blasint *);
0675 int BLASFUNC(xgemc)(char *, char *, blasint *, blasint *, blasint *, xdouble *,
0676        xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *);
0677 
0678 /* Lapack routines */
0679 
0680 int BLASFUNC(sgetf2)(blasint *, blasint *, float  *, blasint *, blasint *, blasint *);
0681 int BLASFUNC(dgetf2)(blasint *, blasint *, double *, blasint *, blasint *, blasint *);
0682 int BLASFUNC(qgetf2)(blasint *, blasint *, xdouble *, blasint *, blasint *, blasint *);
0683 int BLASFUNC(cgetf2)(blasint *, blasint *, float  *, blasint *, blasint *, blasint *);
0684 int BLASFUNC(zgetf2)(blasint *, blasint *, double *, blasint *, blasint *, blasint *);
0685 int BLASFUNC(xgetf2)(blasint *, blasint *, xdouble *, blasint *, blasint *, blasint *);
0686 
0687 int BLASFUNC(sgetrf)(blasint *, blasint *, float  *, blasint *, blasint *, blasint *);
0688 int BLASFUNC(dgetrf)(blasint *, blasint *, double *, blasint *, blasint *, blasint *);
0689 int BLASFUNC(qgetrf)(blasint *, blasint *, xdouble *, blasint *, blasint *, blasint *);
0690 int BLASFUNC(cgetrf)(blasint *, blasint *, float  *, blasint *, blasint *, blasint *);
0691 int BLASFUNC(zgetrf)(blasint *, blasint *, double *, blasint *, blasint *, blasint *);
0692 int BLASFUNC(xgetrf)(blasint *, blasint *, xdouble *, blasint *, blasint *, blasint *);
0693 
0694 int BLASFUNC(slaswp)(blasint *, float  *, blasint *, blasint *, blasint *, blasint *, blasint *);
0695 int BLASFUNC(dlaswp)(blasint *, double *, blasint *, blasint *, blasint *, blasint *, blasint *);
0696 int BLASFUNC(qlaswp)(blasint *, xdouble *, blasint *, blasint *, blasint *, blasint *, blasint *);
0697 int BLASFUNC(claswp)(blasint *, float  *, blasint *, blasint *, blasint *, blasint *, blasint *);
0698 int BLASFUNC(zlaswp)(blasint *, double *, blasint *, blasint *, blasint *, blasint *, blasint *);
0699 int BLASFUNC(xlaswp)(blasint *, xdouble *, blasint *, blasint *, blasint *, blasint *, blasint *);
0700 
0701 int BLASFUNC(sgetrs)(char *, blasint *, blasint *, float  *, blasint *, blasint *, float  *, blasint *, blasint *);
0702 int BLASFUNC(dgetrs)(char *, blasint *, blasint *, double *, blasint *, blasint *, double *, blasint *, blasint *);
0703 int BLASFUNC(qgetrs)(char *, blasint *, blasint *, xdouble *, blasint *, blasint *, xdouble *, blasint *, blasint *);
0704 int BLASFUNC(cgetrs)(char *, blasint *, blasint *, float  *, blasint *, blasint *, float  *, blasint *, blasint *);
0705 int BLASFUNC(zgetrs)(char *, blasint *, blasint *, double *, blasint *, blasint *, double *, blasint *, blasint *);
0706 int BLASFUNC(xgetrs)(char *, blasint *, blasint *, xdouble *, blasint *, blasint *, xdouble *, blasint *, blasint *);
0707 
0708 int BLASFUNC(sgesv)(blasint *, blasint *, float  *, blasint *, blasint *, float *, blasint *, blasint *);
0709 int BLASFUNC(dgesv)(blasint *, blasint *, double *, blasint *, blasint *, double*, blasint *, blasint *);
0710 int BLASFUNC(qgesv)(blasint *, blasint *, xdouble *, blasint *, blasint *, xdouble*, blasint *, blasint *);
0711 int BLASFUNC(cgesv)(blasint *, blasint *, float  *, blasint *, blasint *, float *, blasint *, blasint *);
0712 int BLASFUNC(zgesv)(blasint *, blasint *, double *, blasint *, blasint *, double*, blasint *, blasint *);
0713 int BLASFUNC(xgesv)(blasint *, blasint *, xdouble *, blasint *, blasint *, xdouble*, blasint *, blasint *);
0714 
0715 int BLASFUNC(spotf2)(char *, blasint *, float  *, blasint *, blasint *);
0716 int BLASFUNC(dpotf2)(char *, blasint *, double *, blasint *, blasint *);
0717 int BLASFUNC(qpotf2)(char *, blasint *, xdouble *, blasint *, blasint *);
0718 int BLASFUNC(cpotf2)(char *, blasint *, float  *, blasint *, blasint *);
0719 int BLASFUNC(zpotf2)(char *, blasint *, double *, blasint *, blasint *);
0720 int BLASFUNC(xpotf2)(char *, blasint *, xdouble *, blasint *, blasint *);
0721 
0722 int BLASFUNC(spotrf)(char *, blasint *, float  *, blasint *, blasint *);
0723 int BLASFUNC(dpotrf)(char *, blasint *, double *, blasint *, blasint *);
0724 int BLASFUNC(qpotrf)(char *, blasint *, xdouble *, blasint *, blasint *);
0725 int BLASFUNC(cpotrf)(char *, blasint *, float  *, blasint *, blasint *);
0726 int BLASFUNC(zpotrf)(char *, blasint *, double *, blasint *, blasint *);
0727 int BLASFUNC(xpotrf)(char *, blasint *, xdouble *, blasint *, blasint *);
0728 
0729 int BLASFUNC(spotri)(char *, blasint *, float  *, blasint *, blasint *);
0730 int BLASFUNC(dpotri)(char *, blasint *, double *, blasint *, blasint *);
0731 int BLASFUNC(qpotri)(char *, blasint *, xdouble *, blasint *, blasint *);
0732 int BLASFUNC(cpotri)(char *, blasint *, float  *, blasint *, blasint *);
0733 int BLASFUNC(zpotri)(char *, blasint *, double *, blasint *, blasint *);
0734 int BLASFUNC(xpotri)(char *, blasint *, xdouble *, blasint *, blasint *);
0735 
0736 int BLASFUNC(spotrs)(char *, blasint *, blasint *, float   *, blasint *, float   *, blasint *, blasint *);
0737 int BLASFUNC(dpotrs)(char *, blasint *, blasint *, double  *, blasint *, double  *, blasint *, blasint *);
0738 int BLASFUNC(qpotrs)(char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *, blasint *);
0739 int BLASFUNC(cpotrs)(char *, blasint *, blasint *, float   *, blasint *, float   *, blasint *, blasint *);
0740 int BLASFUNC(zpotrs)(char *, blasint *, blasint *, double  *, blasint *, double  *, blasint *, blasint *);
0741 int BLASFUNC(xpotrs)(char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *, blasint *);
0742 
0743 int BLASFUNC(slauu2)(char *, blasint *, float  *, blasint *, blasint *);
0744 int BLASFUNC(dlauu2)(char *, blasint *, double *, blasint *, blasint *);
0745 int BLASFUNC(qlauu2)(char *, blasint *, xdouble *, blasint *, blasint *);
0746 int BLASFUNC(clauu2)(char *, blasint *, float  *, blasint *, blasint *);
0747 int BLASFUNC(zlauu2)(char *, blasint *, double *, blasint *, blasint *);
0748 int BLASFUNC(xlauu2)(char *, blasint *, xdouble *, blasint *, blasint *);
0749 
0750 int BLASFUNC(slauum)(char *, blasint *, float  *, blasint *, blasint *);
0751 int BLASFUNC(dlauum)(char *, blasint *, double *, blasint *, blasint *);
0752 int BLASFUNC(qlauum)(char *, blasint *, xdouble *, blasint *, blasint *);
0753 int BLASFUNC(clauum)(char *, blasint *, float  *, blasint *, blasint *);
0754 int BLASFUNC(zlauum)(char *, blasint *, double *, blasint *, blasint *);
0755 int BLASFUNC(xlauum)(char *, blasint *, xdouble *, blasint *, blasint *);
0756 
0757 int BLASFUNC(strti2)(char *, char *, blasint *, float  *, blasint *, blasint *);
0758 int BLASFUNC(dtrti2)(char *, char *, blasint *, double *, blasint *, blasint *);
0759 int BLASFUNC(qtrti2)(char *, char *, blasint *, xdouble *, blasint *, blasint *);
0760 int BLASFUNC(ctrti2)(char *, char *, blasint *, float  *, blasint *, blasint *);
0761 int BLASFUNC(ztrti2)(char *, char *, blasint *, double *, blasint *, blasint *);
0762 int BLASFUNC(xtrti2)(char *, char *, blasint *, xdouble *, blasint *, blasint *);
0763 
0764 int BLASFUNC(strtri)(char *, char *, blasint *, float  *, blasint *, blasint *);
0765 int BLASFUNC(dtrtri)(char *, char *, blasint *, double *, blasint *, blasint *);
0766 int BLASFUNC(qtrtri)(char *, char *, blasint *, xdouble *, blasint *, blasint *);
0767 int BLASFUNC(ctrtri)(char *, char *, blasint *, float  *, blasint *, blasint *);
0768 int BLASFUNC(ztrtri)(char *, char *, blasint *, double *, blasint *, blasint *);
0769 int BLASFUNC(xtrtri)(char *, char *, blasint *, xdouble *, blasint *, blasint *);
0770 
0771 
0772 FLOATRET  BLASFUNC(slamch)(char *);
0773 double    BLASFUNC(dlamch)(char *);
0774 xdouble   BLASFUNC(qlamch)(char *);
0775 
0776 FLOATRET  BLASFUNC(slamc3)(float *, float *);
0777 double    BLASFUNC(dlamc3)(double *, double *);
0778 xdouble   BLASFUNC(qlamc3)(xdouble *, xdouble *);
0779 
0780 /* BLAS extensions */
0781 
0782 void    BLASFUNC(saxpby) (blasint *, float  *, float  *, blasint *, float *, float  *, blasint *);
0783 void    BLASFUNC(daxpby) (blasint *, double  *, double  *, blasint *, double *, double  *, blasint *);
0784 void    BLASFUNC(caxpby) (blasint *, void  *, float  *, blasint *, void *, float  *, blasint *);
0785 void    BLASFUNC(zaxpby) (blasint *, void  *, double *, blasint *, void *, double  *, blasint *);
0786 
0787 void    BLASFUNC(somatcopy) (char *, char *, blasint *, blasint *, float  *, float  *, blasint *, float  *, blasint *);
0788 void    BLASFUNC(domatcopy) (char *, char *, blasint *, blasint *, double  *, double  *, blasint *, double  *, blasint *);
0789 void    BLASFUNC(comatcopy) (char *, char *, blasint *, blasint *, float  *, float  *, blasint *, float  *, blasint *);
0790 void    BLASFUNC(zomatcopy) (char *, char *, blasint *, blasint *, double  *, double  *, blasint *, double  *, blasint *);
0791 
0792 void    BLASFUNC(simatcopy) (char *, char *, blasint *, blasint *, float  *, float  *, blasint *, blasint *);
0793 void    BLASFUNC(dimatcopy) (char *, char *, blasint *, blasint *, double  *, double  *, blasint *, blasint *);
0794 void    BLASFUNC(cimatcopy) (char *, char *, blasint *, blasint *, float  *, float  *, blasint *, blasint *);
0795 void    BLASFUNC(zimatcopy) (char *, char *, blasint *, blasint *, double  *, double  *, blasint *, blasint *);
0796 
0797 void    BLASFUNC(sgeadd) (blasint *, blasint *, float *, float *, blasint *, float *, float *, blasint*); 
0798 void    BLASFUNC(dgeadd) (blasint *, blasint *, double *, double *, blasint *, double *, double *, blasint*); 
0799 void    BLASFUNC(cgeadd) (blasint *, blasint *, float *, float *, blasint *, float *, float *, blasint*); 
0800 void    BLASFUNC(zgeadd) (blasint *, blasint *, double *, double *, blasint *, double *, double *, blasint*); 
0801 
0802 
0803 #ifdef __cplusplus
0804 }
0805 
0806 #endif  /* __cplusplus */
0807 
0808 #endif
0809 #endif
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated by the 2.3.7 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!