1 /* 2 * cblas_test.h 3 * Written by Keita Teranishi 4 */ 5 #ifndef CBLAS_TEST_H 6 #define CBLAS_TEST_H 7 #include "cblas.h" 8 9 #ifdef USE64BITINT 10 #define int long 11 #endif 12 13 #define TRUE 1 14 #define PASSED 1 15 #define TEST_ROW_MJR 1 16 17 #define FALSE 0 18 #define FAILED 0 19 #define TEST_COL_MJR 0 20 21 #define INVALID -1 22 #define UNDEFINED -1 23 24 typedef struct { float real; float imag; } CBLAS_TEST_COMPLEX; 25 typedef struct { double real; double imag; } CBLAS_TEST_ZOMPLEX; 26 27 #if defined(ADD_) 28 /* 29 * Level 1 BLAS 30 */ 31 #define F77_srotg srotgtest_ 32 #define F77_srotmg srotmgtest_ 33 #define F77_srot srottest_ 34 #define F77_srotm srotmtest_ 35 #define F77_drotg drotgtest_ 36 #define F77_drotmg drotmgtest_ 37 #define F77_drot drottest_ 38 #define F77_drotm drotmtest_ 39 #define F77_sswap sswaptest_ 40 #define F77_scopy scopytest_ 41 #define F77_saxpy saxpytest_ 42 #define F77_isamax isamaxtest_ 43 #define F77_dswap dswaptest_ 44 #define F77_dcopy dcopytest_ 45 #define F77_daxpy daxpytest_ 46 #define F77_idamax idamaxtest_ 47 #define F77_cswap cswaptest_ 48 #define F77_ccopy ccopytest_ 49 #define F77_caxpy caxpytest_ 50 #define F77_icamax icamaxtest_ 51 #define F77_zswap zswaptest_ 52 #define F77_zcopy zcopytest_ 53 #define F77_zaxpy zaxpytest_ 54 #define F77_izamax izamaxtest_ 55 #define F77_sdot sdottest_ 56 #define F77_ddot ddottest_ 57 #define F77_dsdot dsdottest_ 58 #define F77_sscal sscaltest_ 59 #define F77_dscal dscaltest_ 60 #define F77_cscal cscaltest_ 61 #define F77_zscal zscaltest_ 62 #define F77_csscal csscaltest_ 63 #define F77_zdscal zdscaltest_ 64 #define F77_cdotu cdotutest_ 65 #define F77_cdotc cdotctest_ 66 #define F77_zdotu zdotutest_ 67 #define F77_zdotc zdotctest_ 68 #define F77_snrm2 snrm2test_ 69 #define F77_sasum sasumtest_ 70 #define F77_dnrm2 dnrm2test_ 71 #define F77_dasum dasumtest_ 72 #define F77_scnrm2 scnrm2test_ 73 #define F77_scasum scasumtest_ 74 #define F77_dznrm2 dznrm2test_ 75 #define F77_dzasum dzasumtest_ 76 #define F77_sdsdot sdsdottest_ 77 /* 78 * Level 2 BLAS 79 */ 80 #define F77_s2chke cs2chke_ 81 #define F77_d2chke cd2chke_ 82 #define F77_c2chke cc2chke_ 83 #define F77_z2chke cz2chke_ 84 #define F77_ssymv cssymv_ 85 #define F77_ssbmv cssbmv_ 86 #define F77_sspmv csspmv_ 87 #define F77_sger csger_ 88 #define F77_ssyr cssyr_ 89 #define F77_sspr csspr_ 90 #define F77_ssyr2 cssyr2_ 91 #define F77_sspr2 csspr2_ 92 #define F77_dsymv cdsymv_ 93 #define F77_dsbmv cdsbmv_ 94 #define F77_dspmv cdspmv_ 95 #define F77_dger cdger_ 96 #define F77_dsyr cdsyr_ 97 #define F77_dspr cdspr_ 98 #define F77_dsyr2 cdsyr2_ 99 #define F77_dspr2 cdspr2_ 100 #define F77_chemv cchemv_ 101 #define F77_chbmv cchbmv_ 102 #define F77_chpmv cchpmv_ 103 #define F77_cgeru ccgeru_ 104 #define F77_cgerc ccgerc_ 105 #define F77_cher ccher_ 106 #define F77_chpr cchpr_ 107 #define F77_cher2 ccher2_ 108 #define F77_chpr2 cchpr2_ 109 #define F77_zhemv czhemv_ 110 #define F77_zhbmv czhbmv_ 111 #define F77_zhpmv czhpmv_ 112 #define F77_zgeru czgeru_ 113 #define F77_zgerc czgerc_ 114 #define F77_zher czher_ 115 #define F77_zhpr czhpr_ 116 #define F77_zher2 czher2_ 117 #define F77_zhpr2 czhpr2_ 118 #define F77_sgemv csgemv_ 119 #define F77_sgbmv csgbmv_ 120 #define F77_strmv cstrmv_ 121 #define F77_stbmv cstbmv_ 122 #define F77_stpmv cstpmv_ 123 #define F77_strsv cstrsv_ 124 #define F77_stbsv cstbsv_ 125 #define F77_stpsv cstpsv_ 126 #define F77_dgemv cdgemv_ 127 #define F77_dgbmv cdgbmv_ 128 #define F77_dtrmv cdtrmv_ 129 #define F77_dtbmv cdtbmv_ 130 #define F77_dtpmv cdtpmv_ 131 #define F77_dtrsv cdtrsv_ 132 #define F77_dtbsv cdtbsv_ 133 #define F77_dtpsv cdtpsv_ 134 #define F77_cgemv ccgemv_ 135 #define F77_cgbmv ccgbmv_ 136 #define F77_ctrmv cctrmv_ 137 #define F77_ctbmv cctbmv_ 138 #define F77_ctpmv cctpmv_ 139 #define F77_ctrsv cctrsv_ 140 #define F77_ctbsv cctbsv_ 141 #define F77_ctpsv cctpsv_ 142 #define F77_zgemv czgemv_ 143 #define F77_zgbmv czgbmv_ 144 #define F77_ztrmv cztrmv_ 145 #define F77_ztbmv cztbmv_ 146 #define F77_ztpmv cztpmv_ 147 #define F77_ztrsv cztrsv_ 148 #define F77_ztbsv cztbsv_ 149 #define F77_ztpsv cztpsv_ 150 /* 151 * Level 3 BLAS 152 */ 153 #define F77_s3chke cs3chke_ 154 #define F77_d3chke cd3chke_ 155 #define F77_c3chke cc3chke_ 156 #define F77_z3chke cz3chke_ 157 #define F77_chemm cchemm_ 158 #define F77_cherk ccherk_ 159 #define F77_cher2k ccher2k_ 160 #define F77_zhemm czhemm_ 161 #define F77_zherk czherk_ 162 #define F77_zher2k czher2k_ 163 #define F77_sgemm csgemm_ 164 #define F77_ssymm cssymm_ 165 #define F77_ssyrk cssyrk_ 166 #define F77_ssyr2k cssyr2k_ 167 #define F77_strmm cstrmm_ 168 #define F77_strsm cstrsm_ 169 #define F77_dgemm cdgemm_ 170 #define F77_dsymm cdsymm_ 171 #define F77_dsyrk cdsyrk_ 172 #define F77_dsyr2k cdsyr2k_ 173 #define F77_dtrmm cdtrmm_ 174 #define F77_dtrsm cdtrsm_ 175 #define F77_cgemm ccgemm_ 176 #define F77_csymm ccsymm_ 177 #define F77_csyrk ccsyrk_ 178 #define F77_csyr2k ccsyr2k_ 179 #define F77_ctrmm cctrmm_ 180 #define F77_ctrsm cctrsm_ 181 #define F77_zgemm czgemm_ 182 #define F77_zsymm czsymm_ 183 #define F77_zsyrk czsyrk_ 184 #define F77_zsyr2k czsyr2k_ 185 #define F77_ztrmm cztrmm_ 186 #define F77_ztrsm cztrsm_ 187 #elif defined(UPCASE) 188 /* 189 * Level 1 BLAS 190 */ 191 #define F77_srotg SROTGTEST 192 #define F77_srotmg SROTMGTEST 193 #define F77_srot SROTCTEST 194 #define F77_srotm SROTMTEST 195 #define F77_drotg DROTGTEST 196 #define F77_drotmg DROTMGTEST 197 #define F77_drot DROTTEST 198 #define F77_drotm DROTMTEST 199 #define F77_sswap SSWAPTEST 200 #define F77_scopy SCOPYTEST 201 #define F77_saxpy SAXPYTEST 202 #define F77_isamax ISAMAXTEST 203 #define F77_dswap DSWAPTEST 204 #define F77_dcopy DCOPYTEST 205 #define F77_daxpy DAXPYTEST 206 #define F77_idamax IDAMAXTEST 207 #define F77_cswap CSWAPTEST 208 #define F77_ccopy CCOPYTEST 209 #define F77_caxpy CAXPYTEST 210 #define F77_icamax ICAMAXTEST 211 #define F77_zswap ZSWAPTEST 212 #define F77_zcopy ZCOPYTEST 213 #define F77_zaxpy ZAXPYTEST 214 #define F77_izamax IZAMAXTEST 215 #define F77_sdot SDOTTEST 216 #define F77_ddot DDOTTEST 217 #define F77_dsdot DSDOTTEST 218 #define F77_sscal SSCALTEST 219 #define F77_dscal DSCALTEST 220 #define F77_cscal CSCALTEST 221 #define F77_zscal ZSCALTEST 222 #define F77_csscal CSSCALTEST 223 #define F77_zdscal ZDSCALTEST 224 #define F77_cdotu CDOTUTEST 225 #define F77_cdotc CDOTCTEST 226 #define F77_zdotu ZDOTUTEST 227 #define F77_zdotc ZDOTCTEST 228 #define F77_snrm2 SNRM2TEST 229 #define F77_sasum SASUMTEST 230 #define F77_dnrm2 DNRM2TEST 231 #define F77_dasum DASUMTEST 232 #define F77_scnrm2 SCNRM2TEST 233 #define F77_scasum SCASUMTEST 234 #define F77_dznrm2 DZNRM2TEST 235 #define F77_dzasum DZASUMTEST 236 #define F77_sdsdot SDSDOTTEST 237 /* 238 * Level 2 BLAS 239 */ 240 #define F77_s2chke CS2CHKE 241 #define F77_d2chke CD2CHKE 242 #define F77_c2chke CC2CHKE 243 #define F77_z2chke CZ2CHKE 244 #define F77_ssymv CSSYMV 245 #define F77_ssbmv CSSBMV 246 #define F77_sspmv CSSPMV 247 #define F77_sger CSGER 248 #define F77_ssyr CSSYR 249 #define F77_sspr CSSPR 250 #define F77_ssyr2 CSSYR2 251 #define F77_sspr2 CSSPR2 252 #define F77_dsymv CDSYMV 253 #define F77_dsbmv CDSBMV 254 #define F77_dspmv CDSPMV 255 #define F77_dger CDGER 256 #define F77_dsyr CDSYR 257 #define F77_dspr CDSPR 258 #define F77_dsyr2 CDSYR2 259 #define F77_dspr2 CDSPR2 260 #define F77_chemv CCHEMV 261 #define F77_chbmv CCHBMV 262 #define F77_chpmv CCHPMV 263 #define F77_cgeru CCGERU 264 #define F77_cgerc CCGERC 265 #define F77_cher CCHER 266 #define F77_chpr CCHPR 267 #define F77_cher2 CCHER2 268 #define F77_chpr2 CCHPR2 269 #define F77_zhemv CZHEMV 270 #define F77_zhbmv CZHBMV 271 #define F77_zhpmv CZHPMV 272 #define F77_zgeru CZGERU 273 #define F77_zgerc CZGERC 274 #define F77_zher CZHER 275 #define F77_zhpr CZHPR 276 #define F77_zher2 CZHER2 277 #define F77_zhpr2 CZHPR2 278 #define F77_sgemv CSGEMV 279 #define F77_sgbmv CSGBMV 280 #define F77_strmv CSTRMV 281 #define F77_stbmv CSTBMV 282 #define F77_stpmv CSTPMV 283 #define F77_strsv CSTRSV 284 #define F77_stbsv CSTBSV 285 #define F77_stpsv CSTPSV 286 #define F77_dgemv CDGEMV 287 #define F77_dgbmv CDGBMV 288 #define F77_dtrmv CDTRMV 289 #define F77_dtbmv CDTBMV 290 #define F77_dtpmv CDTPMV 291 #define F77_dtrsv CDTRSV 292 #define F77_dtbsv CDTBSV 293 #define F77_dtpsv CDTPSV 294 #define F77_cgemv CCGEMV 295 #define F77_cgbmv CCGBMV 296 #define F77_ctrmv CCTRMV 297 #define F77_ctbmv CCTBMV 298 #define F77_ctpmv CCTPMV 299 #define F77_ctrsv CCTRSV 300 #define F77_ctbsv CCTBSV 301 #define F77_ctpsv CCTPSV 302 #define F77_zgemv CZGEMV 303 #define F77_zgbmv CZGBMV 304 #define F77_ztrmv CZTRMV 305 #define F77_ztbmv CZTBMV 306 #define F77_ztpmv CZTPMV 307 #define F77_ztrsv CZTRSV 308 #define F77_ztbsv CZTBSV 309 #define F77_ztpsv CZTPSV 310 /* 311 * Level 3 BLAS 312 */ 313 #define F77_s3chke CS3CHKE 314 #define F77_d3chke CD3CHKE 315 #define F77_c3chke CC3CHKE 316 #define F77_z3chke CZ3CHKE 317 #define F77_chemm CCHEMM 318 #define F77_cherk CCHERK 319 #define F77_cher2k CCHER2K 320 #define F77_zhemm CZHEMM 321 #define F77_zherk CZHERK 322 #define F77_zher2k CZHER2K 323 #define F77_sgemm CSGEMM 324 #define F77_ssymm CSSYMM 325 #define F77_ssyrk CSSYRK 326 #define F77_ssyr2k CSSYR2K 327 #define F77_strmm CSTRMM 328 #define F77_strsm CSTRSM 329 #define F77_dgemm CDGEMM 330 #define F77_dsymm CDSYMM 331 #define F77_dsyrk CDSYRK 332 #define F77_dsyr2k CDSYR2K 333 #define F77_dtrmm CDTRMM 334 #define F77_dtrsm CDTRSM 335 #define F77_cgemm CCGEMM 336 #define F77_csymm CCSYMM 337 #define F77_csyrk CCSYRK 338 #define F77_csyr2k CCSYR2K 339 #define F77_ctrmm CCTRMM 340 #define F77_ctrsm CCTRSM 341 #define F77_zgemm CZGEMM 342 #define F77_zsymm CZSYMM 343 #define F77_zsyrk CZSYRK 344 #define F77_zsyr2k CZSYR2K 345 #define F77_ztrmm CZTRMM 346 #define F77_ztrsm CZTRSM 347 #elif defined(NOCHANGE) 348 /* 349 * Level 1 BLAS 350 */ 351 #define F77_srotg srotgtest 352 #define F77_srotmg srotmgtest 353 #define F77_srot srottest 354 #define F77_srotm srotmtest 355 #define F77_drotg drotgtest 356 #define F77_drotmg drotmgtest 357 #define F77_drot drottest 358 #define F77_drotm drotmtest 359 #define F77_sswap sswaptest 360 #define F77_scopy scopytest 361 #define F77_saxpy saxpytest 362 #define F77_isamax isamaxtest 363 #define F77_dswap dswaptest 364 #define F77_dcopy dcopytest 365 #define F77_daxpy daxpytest 366 #define F77_idamax idamaxtest 367 #define F77_cswap cswaptest 368 #define F77_ccopy ccopytest 369 #define F77_caxpy caxpytest 370 #define F77_icamax icamaxtest 371 #define F77_zswap zswaptest 372 #define F77_zcopy zcopytest 373 #define F77_zaxpy zaxpytest 374 #define F77_izamax izamaxtest 375 #define F77_sdot sdottest 376 #define F77_ddot ddottest 377 #define F77_dsdot dsdottest 378 #define F77_sscal sscaltest 379 #define F77_dscal dscaltest 380 #define F77_cscal cscaltest 381 #define F77_zscal zscaltest 382 #define F77_csscal csscaltest 383 #define F77_zdscal zdscaltest 384 #define F77_cdotu cdotutest 385 #define F77_cdotc cdotctest 386 #define F77_zdotu zdotutest 387 #define F77_zdotc zdotctest 388 #define F77_snrm2 snrm2test 389 #define F77_sasum sasumtest 390 #define F77_dnrm2 dnrm2test 391 #define F77_dasum dasumtest 392 #define F77_scnrm2 scnrm2test 393 #define F77_scasum scasumtest 394 #define F77_dznrm2 dznrm2test 395 #define F77_dzasum dzasumtest 396 #define F77_sdsdot sdsdottest 397 /* 398 * Level 2 BLAS 399 */ 400 #define F77_s2chke cs2chke 401 #define F77_d2chke cd2chke 402 #define F77_c2chke cc2chke 403 #define F77_z2chke cz2chke 404 #define F77_ssymv cssymv 405 #define F77_ssbmv cssbmv 406 #define F77_sspmv csspmv 407 #define F77_sger csger 408 #define F77_ssyr cssyr 409 #define F77_sspr csspr 410 #define F77_ssyr2 cssyr2 411 #define F77_sspr2 csspr2 412 #define F77_dsymv cdsymv 413 #define F77_dsbmv cdsbmv 414 #define F77_dspmv cdspmv 415 #define F77_dger cdger 416 #define F77_dsyr cdsyr 417 #define F77_dspr cdspr 418 #define F77_dsyr2 cdsyr2 419 #define F77_dspr2 cdspr2 420 #define F77_chemv cchemv 421 #define F77_chbmv cchbmv 422 #define F77_chpmv cchpmv 423 #define F77_cgeru ccgeru 424 #define F77_cgerc ccgerc 425 #define F77_cher ccher 426 #define F77_chpr cchpr 427 #define F77_cher2 ccher2 428 #define F77_chpr2 cchpr2 429 #define F77_zhemv czhemv 430 #define F77_zhbmv czhbmv 431 #define F77_zhpmv czhpmv 432 #define F77_zgeru czgeru 433 #define F77_zgerc czgerc 434 #define F77_zher czher 435 #define F77_zhpr czhpr 436 #define F77_zher2 czher2 437 #define F77_zhpr2 czhpr2 438 #define F77_sgemv csgemv 439 #define F77_sgbmv csgbmv 440 #define F77_strmv cstrmv 441 #define F77_stbmv cstbmv 442 #define F77_stpmv cstpmv 443 #define F77_strsv cstrsv 444 #define F77_stbsv cstbsv 445 #define F77_stpsv cstpsv 446 #define F77_dgemv cdgemv 447 #define F77_dgbmv cdgbmv 448 #define F77_dtrmv cdtrmv 449 #define F77_dtbmv cdtbmv 450 #define F77_dtpmv cdtpmv 451 #define F77_dtrsv cdtrsv 452 #define F77_dtbsv cdtbsv 453 #define F77_dtpsv cdtpsv 454 #define F77_cgemv ccgemv 455 #define F77_cgbmv ccgbmv 456 #define F77_ctrmv cctrmv 457 #define F77_ctbmv cctbmv 458 #define F77_ctpmv cctpmv 459 #define F77_ctrsv cctrsv 460 #define F77_ctbsv cctbsv 461 #define F77_ctpsv cctpsv 462 #define F77_zgemv czgemv 463 #define F77_zgbmv czgbmv 464 #define F77_ztrmv cztrmv 465 #define F77_ztbmv cztbmv 466 #define F77_ztpmv cztpmv 467 #define F77_ztrsv cztrsv 468 #define F77_ztbsv cztbsv 469 #define F77_ztpsv cztpsv 470 /* 471 * Level 3 BLAS 472 */ 473 #define F77_s3chke cs3chke 474 #define F77_d3chke cd3chke 475 #define F77_c3chke cc3chke 476 #define F77_z3chke cz3chke 477 #define F77_chemm cchemm 478 #define F77_cherk ccherk 479 #define F77_cher2k ccher2k 480 #define F77_zhemm czhemm 481 #define F77_zherk czherk 482 #define F77_zher2k czher2k 483 #define F77_sgemm csgemm 484 #define F77_ssymm cssymm 485 #define F77_ssyrk cssyrk 486 #define F77_ssyr2k cssyr2k 487 #define F77_strmm cstrmm 488 #define F77_strsm cstrsm 489 #define F77_dgemm cdgemm 490 #define F77_dsymm cdsymm 491 #define F77_dsyrk cdsyrk 492 #define F77_dsyr2k cdsyr2k 493 #define F77_dtrmm cdtrmm 494 #define F77_dtrsm cdtrsm 495 #define F77_cgemm ccgemm 496 #define F77_csymm ccsymm 497 #define F77_csyrk ccsyrk 498 #define F77_csyr2k ccsyr2k 499 #define F77_ctrmm cctrmm 500 #define F77_ctrsm cctrsm 501 #define F77_zgemm czgemm 502 #define F77_zsymm czsymm 503 #define F77_zsyrk czsyrk 504 #define F77_zsyr2k czsyr2k 505 #define F77_ztrmm cztrmm 506 #define F77_ztrsm cztrsm 507 #endif 508 509 void get_transpose_type(char *type, enum CBLAS_TRANSPOSE *trans); 510 void get_uplo_type(char *type, enum CBLAS_UPLO *uplo); 511 void get_diag_type(char *type, enum CBLAS_DIAG *diag); 512 void get_side_type(char *type, enum CBLAS_SIDE *side); 513 514 #endif /* CBLAS_TEST_H */ 515