1 #ifndef BLAS_H 2 #define BLAS_H 3 4 #define BLASFUNC(FUNC) FUNC##_ 5 6 #ifdef __WIN64__ 7 typedef long long BLASLONG; 8 typedef unsigned long long BLASULONG; 9 #else 10 typedef long BLASLONG; 11 typedef unsigned long BLASULONG; 12 #endif 13 14 int BLASFUNC(xerbla)(const char *, int *info, int); 15 16 float BLASFUNC(sdot) (int *, float *, int *, float *, int *); 17 float BLASFUNC(sdsdot)(int *, float *, float *, int *, float *, int *); 18 19 double BLASFUNC(dsdot) (int *, float *, int *, float *, int *); 20 double BLASFUNC(ddot) (int *, double *, int *, double *, int *); 21 double BLASFUNC(qdot) (int *, double *, int *, double *, int *); 22 23 #if defined(F_INTERFACE_GFORT) && !defined(__64BIT__) 24 int BLASFUNC(cdotu) (int *, float * , int *, float *, int *); 25 int BLASFUNC(cdotc) (int *, float *, int *, float *, int *); 26 void BLASFUNC(zdotu) (double *, int *, double *, int *, double *, int *); 27 void BLASFUNC(zdotc) (double *, int *, double *, int *, double *, int *); 28 void BLASFUNC(xdotu) (double *, int *, double *, int *, double *, int *); 29 void BLASFUNC(xdotc) (double *, int *, double *, int *, double *, int *); 30 #elif defined(F_INTERFACE_F2C) || \ 31 defined(F_INTERFACE_PGI) || \ 32 defined(F_INTERFACE_GFORT) || \ 33 (defined(F_INTERFACE_PATHSCALE) && defined(__64BIT__)) 34 void BLASFUNC(cdotu) (float *, int *, float * , int *, float *, int *); 35 void BLASFUNC(cdotc) (float *, int *, float *, int *, float *, int *); 36 void BLASFUNC(zdotu) (double *, int *, double *, int *, double *, int *); 37 void BLASFUNC(zdotc) (double *, int *, double *, int *, double *, int *); 38 void BLASFUNC(xdotu) (double *, int *, double *, int *, double *, int *); 39 void BLASFUNC(xdotc) (double *, int *, double *, int *, double *, int *); 40 #else 41 std::complex<float> BLASFUNC(cdotu) (int *, float *, int *, float *, int *); 42 std::complex<float> BLASFUNC(cdotc) (int *, float *, int *, float *, int *); 43 std::complex<double> BLASFUNC(zdotu) (int *, double *, int *, double *, int *); 44 std::complex<double> BLASFUNC(zdotc) (int *, double *, int *, double *, int *); 45 double BLASFUNC(xdotu) (int *, double *, int *, double *, int *); 46 double BLASFUNC(xdotc) (int *, double *, int *, double *, int *); 47 #endif 48 49 int BLASFUNC(cdotuw) (int *, float *, int *, float *, int *, float*); 50 int BLASFUNC(cdotcw) (int *, float *, int *, float *, int *, float*); 51 int BLASFUNC(zdotuw) (int *, double *, int *, double *, int *, double*); 52 int BLASFUNC(zdotcw) (int *, double *, int *, double *, int *, double*); 53 54 int BLASFUNC(saxpy) (int *, float *, float *, int *, float *, int *); 55 int BLASFUNC(daxpy) (int *, double *, double *, int *, double *, int *); 56 int BLASFUNC(qaxpy) (int *, double *, double *, int *, double *, int *); 57 int BLASFUNC(caxpy) (int *, float *, float *, int *, float *, int *); 58 int BLASFUNC(zaxpy) (int *, double *, double *, int *, double *, int *); 59 int BLASFUNC(xaxpy) (int *, double *, double *, int *, double *, int *); 60 int BLASFUNC(caxpyc)(int *, float *, float *, int *, float *, int *); 61 int BLASFUNC(zaxpyc)(int *, double *, double *, int *, double *, int *); 62 int BLASFUNC(xaxpyc)(int *, double *, double *, int *, double *, int *); 63 64 int BLASFUNC(scopy) (int *, float *, int *, float *, int *); 65 int BLASFUNC(dcopy) (int *, double *, int *, double *, int *); 66 int BLASFUNC(qcopy) (int *, double *, int *, double *, int *); 67 int BLASFUNC(ccopy) (int *, float *, int *, float *, int *); 68 int BLASFUNC(zcopy) (int *, double *, int *, double *, int *); 69 int BLASFUNC(xcopy) (int *, double *, int *, double *, int *); 70 71 int BLASFUNC(sswap) (int *, float *, int *, float *, int *); 72 int BLASFUNC(dswap) (int *, double *, int *, double *, int *); 73 int BLASFUNC(qswap) (int *, double *, int *, double *, int *); 74 int BLASFUNC(cswap) (int *, float *, int *, float *, int *); 75 int BLASFUNC(zswap) (int *, double *, int *, double *, int *); 76 int BLASFUNC(xswap) (int *, double *, int *, double *, int *); 77 78 float BLASFUNC(sasum) (int *, float *, int *); 79 float BLASFUNC(scasum)(int *, float *, int *); 80 double BLASFUNC(dasum) (int *, double *, int *); 81 double BLASFUNC(qasum) (int *, double *, int *); 82 double BLASFUNC(dzasum)(int *, double *, int *); 83 double BLASFUNC(qxasum)(int *, double *, int *); 84 85 int BLASFUNC(isamax)(int *, float *, int *); 86 int BLASFUNC(idamax)(int *, double *, int *); 87 int BLASFUNC(iqamax)(int *, double *, int *); 88 int BLASFUNC(icamax)(int *, float *, int *); 89 int BLASFUNC(izamax)(int *, double *, int *); 90 int BLASFUNC(ixamax)(int *, double *, int *); 91 92 int BLASFUNC(ismax) (int *, float *, int *); 93 int BLASFUNC(idmax) (int *, double *, int *); 94 int BLASFUNC(iqmax) (int *, double *, int *); 95 int BLASFUNC(icmax) (int *, float *, int *); 96 int BLASFUNC(izmax) (int *, double *, int *); 97 int BLASFUNC(ixmax) (int *, double *, int *); 98 99 int BLASFUNC(isamin)(int *, float *, int *); 100 int BLASFUNC(idamin)(int *, double *, int *); 101 int BLASFUNC(iqamin)(int *, double *, int *); 102 int BLASFUNC(icamin)(int *, float *, int *); 103 int BLASFUNC(izamin)(int *, double *, int *); 104 int BLASFUNC(ixamin)(int *, double *, int *); 105 106 int BLASFUNC(ismin)(int *, float *, int *); 107 int BLASFUNC(idmin)(int *, double *, int *); 108 int BLASFUNC(iqmin)(int *, double *, int *); 109 int BLASFUNC(icmin)(int *, float *, int *); 110 int BLASFUNC(izmin)(int *, double *, int *); 111 int BLASFUNC(ixmin)(int *, double *, int *); 112 113 float BLASFUNC(samax) (int *, float *, int *); 114 double BLASFUNC(damax) (int *, double *, int *); 115 double BLASFUNC(qamax) (int *, double *, int *); 116 float BLASFUNC(scamax)(int *, float *, int *); 117 double BLASFUNC(dzamax)(int *, double *, int *); 118 double BLASFUNC(qxamax)(int *, double *, int *); 119 120 float BLASFUNC(samin) (int *, float *, int *); 121 double BLASFUNC(damin) (int *, double *, int *); 122 double BLASFUNC(qamin) (int *, double *, int *); 123 float BLASFUNC(scamin)(int *, float *, int *); 124 double BLASFUNC(dzamin)(int *, double *, int *); 125 double BLASFUNC(qxamin)(int *, double *, int *); 126 127 float BLASFUNC(smax) (int *, float *, int *); 128 double BLASFUNC(dmax) (int *, double *, int *); 129 double BLASFUNC(qmax) (int *, double *, int *); 130 float BLASFUNC(scmax) (int *, float *, int *); 131 double BLASFUNC(dzmax) (int *, double *, int *); 132 double BLASFUNC(qxmax) (int *, double *, int *); 133 134 float BLASFUNC(smin) (int *, float *, int *); 135 double BLASFUNC(dmin) (int *, double *, int *); 136 double BLASFUNC(qmin) (int *, double *, int *); 137 float BLASFUNC(scmin) (int *, float *, int *); 138 double BLASFUNC(dzmin) (int *, double *, int *); 139 double BLASFUNC(qxmin) (int *, double *, int *); 140 141 int BLASFUNC(sscal) (int *, float *, float *, int *); 142 int BLASFUNC(dscal) (int *, double *, double *, int *); 143 int BLASFUNC(qscal) (int *, double *, double *, int *); 144 int BLASFUNC(cscal) (int *, float *, float *, int *); 145 int BLASFUNC(zscal) (int *, double *, double *, int *); 146 int BLASFUNC(xscal) (int *, double *, double *, int *); 147 int BLASFUNC(csscal)(int *, float *, float *, int *); 148 int BLASFUNC(zdscal)(int *, double *, double *, int *); 149 int BLASFUNC(xqscal)(int *, double *, double *, int *); 150 151 float BLASFUNC(snrm2) (int *, float *, int *); 152 float BLASFUNC(scnrm2)(int *, float *, int *); 153 154 double BLASFUNC(dnrm2) (int *, double *, int *); 155 double BLASFUNC(qnrm2) (int *, double *, int *); 156 double BLASFUNC(dznrm2)(int *, double *, int *); 157 double BLASFUNC(qxnrm2)(int *, double *, int *); 158 159 int BLASFUNC(srot) (int *, float *, int *, float *, int *, float *, float *); 160 int BLASFUNC(drot) (int *, double *, int *, double *, int *, double *, double *); 161 int BLASFUNC(qrot) (int *, double *, int *, double *, int *, double *, double *); 162 int BLASFUNC(csrot) (int *, float *, int *, float *, int *, float *, float *); 163 int BLASFUNC(zdrot) (int *, double *, int *, double *, int *, double *, double *); 164 int BLASFUNC(xqrot) (int *, double *, int *, double *, int *, double *, double *); 165 166 int BLASFUNC(srotg) (float *, float *, float *, float *); 167 int BLASFUNC(drotg) (double *, double *, double *, double *); 168 int BLASFUNC(qrotg) (double *, double *, double *, double *); 169 int BLASFUNC(crotg) (float *, float *, float *, float *); 170 int BLASFUNC(zrotg) (double *, double *, double *, double *); 171 int BLASFUNC(xrotg) (double *, double *, double *, double *); 172 173 int BLASFUNC(srotmg)(float *, float *, float *, float *, float *); 174 int BLASFUNC(drotmg)(double *, double *, double *, double *, double *); 175 176 int BLASFUNC(srotm) (int *, float *, int *, float *, int *, float *); 177 int BLASFUNC(drotm) (int *, double *, int *, double *, int *, double *); 178 int BLASFUNC(qrotm) (int *, double *, int *, double *, int *, double *); 179 180 /* Level 2 routines */ 181 182 int BLASFUNC(sger)(int *, int *, float *, float *, int *, 183 float *, int *, float *, int *); 184 int BLASFUNC(dger)(int *, int *, double *, double *, int *, 185 double *, int *, double *, int *); 186 int BLASFUNC(qger)(int *, int *, double *, double *, int *, 187 double *, int *, double *, int *); 188 int BLASFUNC(cgeru)(int *, int *, float *, float *, int *, 189 float *, int *, float *, int *); 190 int BLASFUNC(cgerc)(int *, int *, float *, float *, int *, 191 float *, int *, float *, int *); 192 int BLASFUNC(zgeru)(int *, int *, double *, double *, int *, 193 double *, int *, double *, int *); 194 int BLASFUNC(zgerc)(int *, int *, double *, double *, int *, 195 double *, int *, double *, int *); 196 int BLASFUNC(xgeru)(int *, int *, double *, double *, int *, 197 double *, int *, double *, int *); 198 int BLASFUNC(xgerc)(int *, int *, double *, double *, int *, 199 double *, int *, double *, int *); 200 201 int BLASFUNC(sgemv)(char *, int *, int *, float *, float *, int *, 202 float *, int *, float *, float *, int *); 203 int BLASFUNC(dgemv)(char *, int *, int *, double *, double *, int *, 204 double *, int *, double *, double *, int *); 205 int BLASFUNC(qgemv)(char *, int *, int *, double *, double *, int *, 206 double *, int *, double *, double *, int *); 207 int BLASFUNC(cgemv)(char *, int *, int *, float *, float *, int *, 208 float *, int *, float *, float *, int *); 209 int BLASFUNC(zgemv)(char *, int *, int *, double *, double *, int *, 210 double *, int *, double *, double *, int *); 211 int BLASFUNC(xgemv)(char *, int *, int *, double *, double *, int *, 212 double *, int *, double *, double *, int *); 213 214 int BLASFUNC(strsv) (char *, char *, char *, int *, float *, int *, 215 float *, int *); 216 int BLASFUNC(dtrsv) (char *, char *, char *, int *, double *, int *, 217 double *, int *); 218 int BLASFUNC(qtrsv) (char *, char *, char *, int *, double *, int *, 219 double *, int *); 220 int BLASFUNC(ctrsv) (char *, char *, char *, int *, float *, int *, 221 float *, int *); 222 int BLASFUNC(ztrsv) (char *, char *, char *, int *, double *, int *, 223 double *, int *); 224 int BLASFUNC(xtrsv) (char *, char *, char *, int *, double *, int *, 225 double *, int *); 226 227 int BLASFUNC(stpsv) (char *, char *, char *, int *, float *, float *, int *); 228 int BLASFUNC(dtpsv) (char *, char *, char *, int *, double *, double *, int *); 229 int BLASFUNC(qtpsv) (char *, char *, char *, int *, double *, double *, int *); 230 int BLASFUNC(ctpsv) (char *, char *, char *, int *, float *, float *, int *); 231 int BLASFUNC(ztpsv) (char *, char *, char *, int *, double *, double *, int *); 232 int BLASFUNC(xtpsv) (char *, char *, char *, int *, double *, double *, int *); 233 234 int BLASFUNC(strmv) (char *, char *, char *, int *, float *, int *, 235 float *, int *); 236 int BLASFUNC(dtrmv) (char *, char *, char *, int *, double *, int *, 237 double *, int *); 238 int BLASFUNC(qtrmv) (char *, char *, char *, int *, double *, int *, 239 double *, int *); 240 int BLASFUNC(ctrmv) (char *, char *, char *, int *, float *, int *, 241 float *, int *); 242 int BLASFUNC(ztrmv) (char *, char *, char *, int *, double *, int *, 243 double *, int *); 244 int BLASFUNC(xtrmv) (char *, char *, char *, int *, double *, int *, 245 double *, int *); 246 247 int BLASFUNC(stpmv) (char *, char *, char *, int *, float *, float *, int *); 248 int BLASFUNC(dtpmv) (char *, char *, char *, int *, double *, double *, int *); 249 int BLASFUNC(qtpmv) (char *, char *, char *, int *, double *, double *, int *); 250 int BLASFUNC(ctpmv) (char *, char *, char *, int *, float *, float *, int *); 251 int BLASFUNC(ztpmv) (char *, char *, char *, int *, double *, double *, int *); 252 int BLASFUNC(xtpmv) (char *, char *, char *, int *, double *, double *, int *); 253 254 int BLASFUNC(stbmv) (char *, char *, char *, int *, int *, float *, int *, float *, int *); 255 int BLASFUNC(dtbmv) (char *, char *, char *, int *, int *, double *, int *, double *, int *); 256 int BLASFUNC(qtbmv) (char *, char *, char *, int *, int *, double *, int *, double *, int *); 257 int BLASFUNC(ctbmv) (char *, char *, char *, int *, int *, float *, int *, float *, int *); 258 int BLASFUNC(ztbmv) (char *, char *, char *, int *, int *, double *, int *, double *, int *); 259 int BLASFUNC(xtbmv) (char *, char *, char *, int *, int *, double *, int *, double *, int *); 260 261 int BLASFUNC(stbsv) (char *, char *, char *, int *, int *, float *, int *, float *, int *); 262 int BLASFUNC(dtbsv) (char *, char *, char *, int *, int *, double *, int *, double *, int *); 263 int BLASFUNC(qtbsv) (char *, char *, char *, int *, int *, double *, int *, double *, int *); 264 int BLASFUNC(ctbsv) (char *, char *, char *, int *, int *, float *, int *, float *, int *); 265 int BLASFUNC(ztbsv) (char *, char *, char *, int *, int *, double *, int *, double *, int *); 266 int BLASFUNC(xtbsv) (char *, char *, char *, int *, int *, double *, int *, double *, int *); 267 268 int BLASFUNC(ssymv) (char *, int *, float *, float *, int *, 269 float *, int *, float *, float *, int *); 270 int BLASFUNC(dsymv) (char *, int *, double *, double *, int *, 271 double *, int *, double *, double *, int *); 272 int BLASFUNC(qsymv) (char *, int *, double *, double *, int *, 273 double *, int *, double *, double *, int *); 274 int BLASFUNC(csymv) (char *, int *, float *, float *, int *, 275 float *, int *, float *, float *, int *); 276 int BLASFUNC(zsymv) (char *, int *, double *, double *, int *, 277 double *, int *, double *, double *, int *); 278 int BLASFUNC(xsymv) (char *, int *, double *, double *, int *, 279 double *, int *, double *, double *, int *); 280 281 int BLASFUNC(sspmv) (char *, int *, float *, float *, 282 float *, int *, float *, float *, int *); 283 int BLASFUNC(dspmv) (char *, int *, double *, double *, 284 double *, int *, double *, double *, int *); 285 int BLASFUNC(qspmv) (char *, int *, double *, double *, 286 double *, int *, double *, double *, int *); 287 int BLASFUNC(cspmv) (char *, int *, float *, float *, 288 float *, int *, float *, float *, int *); 289 int BLASFUNC(zspmv) (char *, int *, double *, double *, 290 double *, int *, double *, double *, int *); 291 int BLASFUNC(xspmv) (char *, int *, double *, double *, 292 double *, int *, double *, double *, int *); 293 294 int BLASFUNC(ssyr) (char *, int *, float *, float *, int *, 295 float *, int *); 296 int BLASFUNC(dsyr) (char *, int *, double *, double *, int *, 297 double *, int *); 298 int BLASFUNC(qsyr) (char *, int *, double *, double *, int *, 299 double *, int *); 300 int BLASFUNC(csyr) (char *, int *, float *, float *, int *, 301 float *, int *); 302 int BLASFUNC(zsyr) (char *, int *, double *, double *, int *, 303 double *, int *); 304 int BLASFUNC(xsyr) (char *, int *, double *, double *, int *, 305 double *, int *); 306 307 int BLASFUNC(ssyr2) (char *, int *, float *, 308 float *, int *, float *, int *, float *, int *); 309 int BLASFUNC(dsyr2) (char *, int *, double *, 310 double *, int *, double *, int *, double *, int *); 311 int BLASFUNC(qsyr2) (char *, int *, double *, 312 double *, int *, double *, int *, double *, int *); 313 int BLASFUNC(csyr2) (char *, int *, float *, 314 float *, int *, float *, int *, float *, int *); 315 int BLASFUNC(zsyr2) (char *, int *, double *, 316 double *, int *, double *, int *, double *, int *); 317 int BLASFUNC(xsyr2) (char *, int *, double *, 318 double *, int *, double *, int *, double *, int *); 319 320 int BLASFUNC(sspr) (char *, int *, float *, float *, int *, 321 float *); 322 int BLASFUNC(dspr) (char *, int *, double *, double *, int *, 323 double *); 324 int BLASFUNC(qspr) (char *, int *, double *, double *, int *, 325 double *); 326 int BLASFUNC(cspr) (char *, int *, float *, float *, int *, 327 float *); 328 int BLASFUNC(zspr) (char *, int *, double *, double *, int *, 329 double *); 330 int BLASFUNC(xspr) (char *, int *, double *, double *, int *, 331 double *); 332 333 int BLASFUNC(sspr2) (char *, int *, float *, 334 float *, int *, float *, int *, float *); 335 int BLASFUNC(dspr2) (char *, int *, double *, 336 double *, int *, double *, int *, double *); 337 int BLASFUNC(qspr2) (char *, int *, double *, 338 double *, int *, double *, int *, double *); 339 int BLASFUNC(cspr2) (char *, int *, float *, 340 float *, int *, float *, int *, float *); 341 int BLASFUNC(zspr2) (char *, int *, double *, 342 double *, int *, double *, int *, double *); 343 int BLASFUNC(xspr2) (char *, int *, double *, 344 double *, int *, double *, int *, double *); 345 346 int BLASFUNC(cher) (char *, int *, float *, float *, int *, 347 float *, int *); 348 int BLASFUNC(zher) (char *, int *, double *, double *, int *, 349 double *, int *); 350 int BLASFUNC(xher) (char *, int *, double *, double *, int *, 351 double *, int *); 352 353 int BLASFUNC(chpr) (char *, int *, float *, float *, int *, float *); 354 int BLASFUNC(zhpr) (char *, int *, double *, double *, int *, double *); 355 int BLASFUNC(xhpr) (char *, int *, double *, double *, int *, double *); 356 357 int BLASFUNC(cher2) (char *, int *, float *, 358 float *, int *, float *, int *, float *, int *); 359 int BLASFUNC(zher2) (char *, int *, double *, 360 double *, int *, double *, int *, double *, int *); 361 int BLASFUNC(xher2) (char *, int *, double *, 362 double *, int *, double *, int *, double *, int *); 363 364 int BLASFUNC(chpr2) (char *, int *, float *, 365 float *, int *, float *, int *, float *); 366 int BLASFUNC(zhpr2) (char *, int *, double *, 367 double *, int *, double *, int *, double *); 368 int BLASFUNC(xhpr2) (char *, int *, double *, 369 double *, int *, double *, int *, double *); 370 371 int BLASFUNC(chemv) (char *, int *, float *, float *, int *, 372 float *, int *, float *, float *, int *); 373 int BLASFUNC(zhemv) (char *, int *, double *, double *, int *, 374 double *, int *, double *, double *, int *); 375 int BLASFUNC(xhemv) (char *, int *, double *, double *, int *, 376 double *, int *, double *, double *, int *); 377 378 int BLASFUNC(chpmv) (char *, int *, float *, float *, 379 float *, int *, float *, float *, int *); 380 int BLASFUNC(zhpmv) (char *, int *, double *, double *, 381 double *, int *, double *, double *, int *); 382 int BLASFUNC(xhpmv) (char *, int *, double *, double *, 383 double *, int *, double *, double *, int *); 384 385 int BLASFUNC(snorm)(char *, int *, int *, float *, int *); 386 int BLASFUNC(dnorm)(char *, int *, int *, double *, int *); 387 int BLASFUNC(cnorm)(char *, int *, int *, float *, int *); 388 int BLASFUNC(znorm)(char *, int *, int *, double *, int *); 389 390 int BLASFUNC(sgbmv)(char *, int *, int *, int *, int *, float *, float *, int *, 391 float *, int *, float *, float *, int *); 392 int BLASFUNC(dgbmv)(char *, int *, int *, int *, int *, double *, double *, int *, 393 double *, int *, double *, double *, int *); 394 int BLASFUNC(qgbmv)(char *, int *, int *, int *, int *, double *, double *, int *, 395 double *, int *, double *, double *, int *); 396 int BLASFUNC(cgbmv)(char *, int *, int *, int *, int *, float *, float *, int *, 397 float *, int *, float *, float *, int *); 398 int BLASFUNC(zgbmv)(char *, int *, int *, int *, int *, double *, double *, int *, 399 double *, int *, double *, double *, int *); 400 int BLASFUNC(xgbmv)(char *, int *, int *, int *, int *, double *, double *, int *, 401 double *, int *, double *, double *, int *); 402 403 int BLASFUNC(ssbmv)(char *, int *, int *, float *, float *, int *, 404 float *, int *, float *, float *, int *); 405 int BLASFUNC(dsbmv)(char *, int *, int *, double *, double *, int *, 406 double *, int *, double *, double *, int *); 407 int BLASFUNC(qsbmv)(char *, int *, int *, double *, double *, int *, 408 double *, int *, double *, double *, int *); 409 int BLASFUNC(csbmv)(char *, int *, int *, float *, float *, int *, 410 float *, int *, float *, float *, int *); 411 int BLASFUNC(zsbmv)(char *, int *, int *, double *, double *, int *, 412 double *, int *, double *, double *, int *); 413 int BLASFUNC(xsbmv)(char *, int *, int *, double *, double *, int *, 414 double *, int *, double *, double *, int *); 415 416 int BLASFUNC(chbmv)(char *, int *, int *, float *, float *, int *, 417 float *, int *, float *, float *, int *); 418 int BLASFUNC(zhbmv)(char *, int *, int *, double *, double *, int *, 419 double *, int *, double *, double *, int *); 420 int BLASFUNC(xhbmv)(char *, int *, int *, double *, double *, int *, 421 double *, int *, double *, double *, int *); 422 423 /* Level 3 routines */ 424 425 int BLASFUNC(sgemm)(char *, char *, int *, int *, int *, float *, 426 float *, int *, float *, int *, float *, float *, int *); 427 int BLASFUNC(dgemm)(char *, char *, int *, int *, int *, double *, 428 double *, int *, double *, int *, double *, double *, int *); 429 int BLASFUNC(qgemm)(char *, char *, int *, int *, int *, double *, 430 double *, int *, double *, int *, double *, double *, int *); 431 int BLASFUNC(cgemm)(char *, char *, int *, int *, int *, float *, 432 float *, int *, float *, int *, float *, float *, int *); 433 int BLASFUNC(zgemm)(char *, char *, int *, int *, int *, double *, 434 double *, int *, double *, int *, double *, double *, int *); 435 int BLASFUNC(xgemm)(char *, char *, int *, int *, int *, double *, 436 double *, int *, double *, int *, double *, double *, int *); 437 438 int BLASFUNC(cgemm3m)(char *, char *, int *, int *, int *, float *, 439 float *, int *, float *, int *, float *, float *, int *); 440 int BLASFUNC(zgemm3m)(char *, char *, int *, int *, int *, double *, 441 double *, int *, double *, int *, double *, double *, int *); 442 int BLASFUNC(xgemm3m)(char *, char *, int *, int *, int *, double *, 443 double *, int *, double *, int *, double *, double *, int *); 444 445 int BLASFUNC(sge2mm)(char *, char *, char *, int *, int *, 446 float *, float *, int *, float *, int *, 447 float *, float *, int *); 448 int BLASFUNC(dge2mm)(char *, char *, char *, int *, int *, 449 double *, double *, int *, double *, int *, 450 double *, double *, int *); 451 int BLASFUNC(cge2mm)(char *, char *, char *, int *, int *, 452 float *, float *, int *, float *, int *, 453 float *, float *, int *); 454 int BLASFUNC(zge2mm)(char *, char *, char *, int *, int *, 455 double *, double *, int *, double *, int *, 456 double *, double *, int *); 457 458 int BLASFUNC(strsm)(char *, char *, char *, char *, int *, int *, 459 float *, float *, int *, float *, int *); 460 int BLASFUNC(dtrsm)(char *, char *, char *, char *, int *, int *, 461 double *, double *, int *, double *, int *); 462 int BLASFUNC(qtrsm)(char *, char *, char *, char *, int *, int *, 463 double *, double *, int *, double *, int *); 464 int BLASFUNC(ctrsm)(char *, char *, char *, char *, int *, int *, 465 float *, float *, int *, float *, int *); 466 int BLASFUNC(ztrsm)(char *, char *, char *, char *, int *, int *, 467 double *, double *, int *, double *, int *); 468 int BLASFUNC(xtrsm)(char *, char *, char *, char *, int *, int *, 469 double *, double *, int *, double *, int *); 470 471 int BLASFUNC(strmm)(char *, char *, char *, char *, int *, int *, 472 float *, float *, int *, float *, int *); 473 int BLASFUNC(dtrmm)(char *, char *, char *, char *, int *, int *, 474 double *, double *, int *, double *, int *); 475 int BLASFUNC(qtrmm)(char *, char *, char *, char *, int *, int *, 476 double *, double *, int *, double *, int *); 477 int BLASFUNC(ctrmm)(char *, char *, char *, char *, int *, int *, 478 float *, float *, int *, float *, int *); 479 int BLASFUNC(ztrmm)(char *, char *, char *, char *, int *, int *, 480 double *, double *, int *, double *, int *); 481 int BLASFUNC(xtrmm)(char *, char *, char *, char *, int *, int *, 482 double *, double *, int *, double *, int *); 483 484 int BLASFUNC(ssymm)(char *, char *, int *, int *, float *, float *, int *, 485 float *, int *, float *, float *, int *); 486 int BLASFUNC(dsymm)(char *, char *, int *, int *, double *, double *, int *, 487 double *, int *, double *, double *, int *); 488 int BLASFUNC(qsymm)(char *, char *, int *, int *, double *, double *, int *, 489 double *, int *, double *, double *, int *); 490 int BLASFUNC(csymm)(char *, char *, int *, int *, float *, float *, int *, 491 float *, int *, float *, float *, int *); 492 int BLASFUNC(zsymm)(char *, char *, int *, int *, double *, double *, int *, 493 double *, int *, double *, double *, int *); 494 int BLASFUNC(xsymm)(char *, char *, int *, int *, double *, double *, int *, 495 double *, int *, double *, double *, int *); 496 497 int BLASFUNC(csymm3m)(char *, char *, int *, int *, float *, float *, int *, 498 float *, int *, float *, float *, int *); 499 int BLASFUNC(zsymm3m)(char *, char *, int *, int *, double *, double *, int *, 500 double *, int *, double *, double *, int *); 501 int BLASFUNC(xsymm3m)(char *, char *, int *, int *, double *, double *, int *, 502 double *, int *, double *, double *, int *); 503 504 int BLASFUNC(ssyrk)(char *, char *, int *, int *, float *, float *, int *, 505 float *, float *, int *); 506 int BLASFUNC(dsyrk)(char *, char *, int *, int *, double *, double *, int *, 507 double *, double *, int *); 508 int BLASFUNC(qsyrk)(char *, char *, int *, int *, double *, double *, int *, 509 double *, double *, int *); 510 int BLASFUNC(csyrk)(char *, char *, int *, int *, float *, float *, int *, 511 float *, float *, int *); 512 int BLASFUNC(zsyrk)(char *, char *, int *, int *, double *, double *, int *, 513 double *, double *, int *); 514 int BLASFUNC(xsyrk)(char *, char *, int *, int *, double *, double *, int *, 515 double *, double *, int *); 516 517 int BLASFUNC(ssyr2k)(char *, char *, int *, int *, float *, float *, int *, 518 float *, int *, float *, float *, int *); 519 int BLASFUNC(dsyr2k)(char *, char *, int *, int *, double *, double *, int *, 520 double*, int *, double *, double *, int *); 521 int BLASFUNC(qsyr2k)(char *, char *, int *, int *, double *, double *, int *, 522 double*, int *, double *, double *, int *); 523 int BLASFUNC(csyr2k)(char *, char *, int *, int *, float *, float *, int *, 524 float *, int *, float *, float *, int *); 525 int BLASFUNC(zsyr2k)(char *, char *, int *, int *, double *, double *, int *, 526 double*, int *, double *, double *, int *); 527 int BLASFUNC(xsyr2k)(char *, char *, int *, int *, double *, double *, int *, 528 double*, int *, double *, double *, int *); 529 530 int BLASFUNC(chemm)(char *, char *, int *, int *, float *, float *, int *, 531 float *, int *, float *, float *, int *); 532 int BLASFUNC(zhemm)(char *, char *, int *, int *, double *, double *, int *, 533 double *, int *, double *, double *, int *); 534 int BLASFUNC(xhemm)(char *, char *, int *, int *, double *, double *, int *, 535 double *, int *, double *, double *, int *); 536 537 int BLASFUNC(chemm3m)(char *, char *, int *, int *, float *, float *, int *, 538 float *, int *, float *, float *, int *); 539 int BLASFUNC(zhemm3m)(char *, char *, int *, int *, double *, double *, int *, 540 double *, int *, double *, double *, int *); 541 int BLASFUNC(xhemm3m)(char *, char *, int *, int *, double *, double *, int *, 542 double *, int *, double *, double *, int *); 543 544 int BLASFUNC(cherk)(char *, char *, int *, int *, float *, float *, int *, 545 float *, float *, int *); 546 int BLASFUNC(zherk)(char *, char *, int *, int *, double *, double *, int *, 547 double *, double *, int *); 548 int BLASFUNC(xherk)(char *, char *, int *, int *, double *, double *, int *, 549 double *, double *, int *); 550 551 int BLASFUNC(cher2k)(char *, char *, int *, int *, float *, float *, int *, 552 float *, int *, float *, float *, int *); 553 int BLASFUNC(zher2k)(char *, char *, int *, int *, double *, double *, int *, 554 double*, int *, double *, double *, int *); 555 int BLASFUNC(xher2k)(char *, char *, int *, int *, double *, double *, int *, 556 double*, int *, double *, double *, int *); 557 int BLASFUNC(cher2m)(char *, char *, char *, int *, int *, float *, float *, int *, 558 float *, int *, float *, float *, int *); 559 int BLASFUNC(zher2m)(char *, char *, char *, int *, int *, double *, double *, int *, 560 double*, int *, double *, double *, int *); 561 int BLASFUNC(xher2m)(char *, char *, char *, int *, int *, double *, double *, int *, 562 double*, int *, double *, double *, int *); 563 564 int BLASFUNC(sgemt)(char *, int *, int *, float *, float *, int *, 565 float *, int *); 566 int BLASFUNC(dgemt)(char *, int *, int *, double *, double *, int *, 567 double *, int *); 568 int BLASFUNC(cgemt)(char *, int *, int *, float *, float *, int *, 569 float *, int *); 570 int BLASFUNC(zgemt)(char *, int *, int *, double *, double *, int *, 571 double *, int *); 572 573 int BLASFUNC(sgema)(char *, char *, int *, int *, float *, 574 float *, int *, float *, float *, int *, float *, int *); 575 int BLASFUNC(dgema)(char *, char *, int *, int *, double *, 576 double *, int *, double*, double *, int *, double*, int *); 577 int BLASFUNC(cgema)(char *, char *, int *, int *, float *, 578 float *, int *, float *, float *, int *, float *, int *); 579 int BLASFUNC(zgema)(char *, char *, int *, int *, double *, 580 double *, int *, double*, double *, int *, double*, int *); 581 582 int BLASFUNC(sgems)(char *, char *, int *, int *, float *, 583 float *, int *, float *, float *, int *, float *, int *); 584 int BLASFUNC(dgems)(char *, char *, int *, int *, double *, 585 double *, int *, double*, double *, int *, double*, int *); 586 int BLASFUNC(cgems)(char *, char *, int *, int *, float *, 587 float *, int *, float *, float *, int *, float *, int *); 588 int BLASFUNC(zgems)(char *, char *, int *, int *, double *, 589 double *, int *, double*, double *, int *, double*, int *); 590 591 int BLASFUNC(sgetf2)(int *, int *, float *, int *, int *, int *); 592 int BLASFUNC(dgetf2)(int *, int *, double *, int *, int *, int *); 593 int BLASFUNC(qgetf2)(int *, int *, double *, int *, int *, int *); 594 int BLASFUNC(cgetf2)(int *, int *, float *, int *, int *, int *); 595 int BLASFUNC(zgetf2)(int *, int *, double *, int *, int *, int *); 596 int BLASFUNC(xgetf2)(int *, int *, double *, int *, int *, int *); 597 598 int BLASFUNC(sgetrf)(int *, int *, float *, int *, int *, int *); 599 int BLASFUNC(dgetrf)(int *, int *, double *, int *, int *, int *); 600 int BLASFUNC(qgetrf)(int *, int *, double *, int *, int *, int *); 601 int BLASFUNC(cgetrf)(int *, int *, float *, int *, int *, int *); 602 int BLASFUNC(zgetrf)(int *, int *, double *, int *, int *, int *); 603 int BLASFUNC(xgetrf)(int *, int *, double *, int *, int *, int *); 604 605 int BLASFUNC(slaswp)(int *, float *, int *, int *, int *, int *, int *); 606 int BLASFUNC(dlaswp)(int *, double *, int *, int *, int *, int *, int *); 607 int BLASFUNC(qlaswp)(int *, double *, int *, int *, int *, int *, int *); 608 int BLASFUNC(claswp)(int *, float *, int *, int *, int *, int *, int *); 609 int BLASFUNC(zlaswp)(int *, double *, int *, int *, int *, int *, int *); 610 int BLASFUNC(xlaswp)(int *, double *, int *, int *, int *, int *, int *); 611 612 int BLASFUNC(sgetrs)(char *, int *, int *, float *, int *, int *, float *, int *, int *); 613 int BLASFUNC(dgetrs)(char *, int *, int *, double *, int *, int *, double *, int *, int *); 614 int BLASFUNC(qgetrs)(char *, int *, int *, double *, int *, int *, double *, int *, int *); 615 int BLASFUNC(cgetrs)(char *, int *, int *, float *, int *, int *, float *, int *, int *); 616 int BLASFUNC(zgetrs)(char *, int *, int *, double *, int *, int *, double *, int *, int *); 617 int BLASFUNC(xgetrs)(char *, int *, int *, double *, int *, int *, double *, int *, int *); 618 619 int BLASFUNC(sgesv)(int *, int *, float *, int *, int *, float *, int *, int *); 620 int BLASFUNC(dgesv)(int *, int *, double *, int *, int *, double*, int *, int *); 621 int BLASFUNC(qgesv)(int *, int *, double *, int *, int *, double*, int *, int *); 622 int BLASFUNC(cgesv)(int *, int *, float *, int *, int *, float *, int *, int *); 623 int BLASFUNC(zgesv)(int *, int *, double *, int *, int *, double*, int *, int *); 624 int BLASFUNC(xgesv)(int *, int *, double *, int *, int *, double*, int *, int *); 625 626 int BLASFUNC(spotf2)(char *, int *, float *, int *, int *); 627 int BLASFUNC(dpotf2)(char *, int *, double *, int *, int *); 628 int BLASFUNC(qpotf2)(char *, int *, double *, int *, int *); 629 int BLASFUNC(cpotf2)(char *, int *, float *, int *, int *); 630 int BLASFUNC(zpotf2)(char *, int *, double *, int *, int *); 631 int BLASFUNC(xpotf2)(char *, int *, double *, int *, int *); 632 633 int BLASFUNC(spotrf)(char *, int *, float *, int *, int *); 634 int BLASFUNC(dpotrf)(char *, int *, double *, int *, int *); 635 int BLASFUNC(qpotrf)(char *, int *, double *, int *, int *); 636 int BLASFUNC(cpotrf)(char *, int *, float *, int *, int *); 637 int BLASFUNC(zpotrf)(char *, int *, double *, int *, int *); 638 int BLASFUNC(xpotrf)(char *, int *, double *, int *, int *); 639 640 int BLASFUNC(slauu2)(char *, int *, float *, int *, int *); 641 int BLASFUNC(dlauu2)(char *, int *, double *, int *, int *); 642 int BLASFUNC(qlauu2)(char *, int *, double *, int *, int *); 643 int BLASFUNC(clauu2)(char *, int *, float *, int *, int *); 644 int BLASFUNC(zlauu2)(char *, int *, double *, int *, int *); 645 int BLASFUNC(xlauu2)(char *, int *, double *, int *, int *); 646 647 int BLASFUNC(slauum)(char *, int *, float *, int *, int *); 648 int BLASFUNC(dlauum)(char *, int *, double *, int *, int *); 649 int BLASFUNC(qlauum)(char *, int *, double *, int *, int *); 650 int BLASFUNC(clauum)(char *, int *, float *, int *, int *); 651 int BLASFUNC(zlauum)(char *, int *, double *, int *, int *); 652 int BLASFUNC(xlauum)(char *, int *, double *, int *, int *); 653 654 int BLASFUNC(strti2)(char *, char *, int *, float *, int *, int *); 655 int BLASFUNC(dtrti2)(char *, char *, int *, double *, int *, int *); 656 int BLASFUNC(qtrti2)(char *, char *, int *, double *, int *, int *); 657 int BLASFUNC(ctrti2)(char *, char *, int *, float *, int *, int *); 658 int BLASFUNC(ztrti2)(char *, char *, int *, double *, int *, int *); 659 int BLASFUNC(xtrti2)(char *, char *, int *, double *, int *, int *); 660 661 int BLASFUNC(strtri)(char *, char *, int *, float *, int *, int *); 662 int BLASFUNC(dtrtri)(char *, char *, int *, double *, int *, int *); 663 int BLASFUNC(qtrtri)(char *, char *, int *, double *, int *, int *); 664 int BLASFUNC(ctrtri)(char *, char *, int *, float *, int *, int *); 665 int BLASFUNC(ztrtri)(char *, char *, int *, double *, int *, int *); 666 int BLASFUNC(xtrtri)(char *, char *, int *, double *, int *, int *); 667 668 int BLASFUNC(spotri)(char *, int *, float *, int *, int *); 669 int BLASFUNC(dpotri)(char *, int *, double *, int *, int *); 670 int BLASFUNC(qpotri)(char *, int *, double *, int *, int *); 671 int BLASFUNC(cpotri)(char *, int *, float *, int *, int *); 672 int BLASFUNC(zpotri)(char *, int *, double *, int *, int *); 673 int BLASFUNC(xpotri)(char *, int *, double *, int *, int *); 674 675 #endif 676