Go to the documentation of this file.00001
00002
00003
00004
00005 #ifndef CBLAS_TEST_H
00006 #define CBLAS_TEST_H
00007 #include "cblas.h"
00008
00009 #define TRUE 1
00010 #define PASSED 1
00011 #define TEST_ROW_MJR 1
00012
00013 #define FALSE 0
00014 #define FAILED 0
00015 #define TEST_COL_MJR 0
00016
00017 #define INVALID -1
00018 #define UNDEFINED -1
00019
00020 typedef struct { float real; float imag; } CBLAS_TEST_COMPLEX;
00021 typedef struct { double real; double imag; } CBLAS_TEST_ZOMPLEX;
00022
00023 #if defined(ADD_)
00024 #define F77_xerbla xerbla_
00025
00026
00027
00028 #define F77_srotg srotgtest_
00029 #define F77_srotmg srotmgtest_
00030 #define F77_srot srottest_
00031 #define F77_srotm srotmtest_
00032 #define F77_drotg drotgtest_
00033 #define F77_drotmg drotmgtest_
00034 #define F77_drot drottest_
00035 #define F77_drotm drotmtest_
00036 #define F77_sswap sswaptest_
00037 #define F77_scopy scopytest_
00038 #define F77_saxpy saxpytest_
00039 #define F77_isamax isamaxtest_
00040 #define F77_dswap dswaptest_
00041 #define F77_dcopy dcopytest_
00042 #define F77_daxpy daxpytest_
00043 #define F77_idamax idamaxtest_
00044 #define F77_cswap cswaptest_
00045 #define F77_ccopy ccopytest_
00046 #define F77_caxpy caxpytest_
00047 #define F77_icamax icamaxtest_
00048 #define F77_zswap zswaptest_
00049 #define F77_zcopy zcopytest_
00050 #define F77_zaxpy zaxpytest_
00051 #define F77_izamax izamaxtest_
00052 #define F77_sdot sdottest_
00053 #define F77_ddot ddottest_
00054 #define F77_dsdot dsdottest_
00055 #define F77_sscal sscaltest_
00056 #define F77_dscal dscaltest_
00057 #define F77_cscal cscaltest_
00058 #define F77_zscal zscaltest_
00059 #define F77_csscal csscaltest_
00060 #define F77_zdscal zdscaltest_
00061 #define F77_cdotu cdotutest_
00062 #define F77_cdotc cdotctest_
00063 #define F77_zdotu zdotutest_
00064 #define F77_zdotc zdotctest_
00065 #define F77_snrm2 snrm2test_
00066 #define F77_sasum sasumtest_
00067 #define F77_dnrm2 dnrm2test_
00068 #define F77_dasum dasumtest_
00069 #define F77_scnrm2 scnrm2test_
00070 #define F77_scasum scasumtest_
00071 #define F77_dznrm2 dznrm2test_
00072 #define F77_dzasum dzasumtest_
00073 #define F77_sdsdot sdsdottest_
00074
00075
00076
00077 #define F77_s2chke cs2chke_
00078 #define F77_d2chke cd2chke_
00079 #define F77_c2chke cc2chke_
00080 #define F77_z2chke cz2chke_
00081 #define F77_ssymv cssymv_
00082 #define F77_ssbmv cssbmv_
00083 #define F77_sspmv csspmv_
00084 #define F77_sger csger_
00085 #define F77_ssyr cssyr_
00086 #define F77_sspr csspr_
00087 #define F77_ssyr2 cssyr2_
00088 #define F77_sspr2 csspr2_
00089 #define F77_dsymv cdsymv_
00090 #define F77_dsbmv cdsbmv_
00091 #define F77_dspmv cdspmv_
00092 #define F77_dger cdger_
00093 #define F77_dsyr cdsyr_
00094 #define F77_dspr cdspr_
00095 #define F77_dsyr2 cdsyr2_
00096 #define F77_dspr2 cdspr2_
00097 #define F77_chemv cchemv_
00098 #define F77_chbmv cchbmv_
00099 #define F77_chpmv cchpmv_
00100 #define F77_cgeru ccgeru_
00101 #define F77_cgerc ccgerc_
00102 #define F77_cher ccher_
00103 #define F77_chpr cchpr_
00104 #define F77_cher2 ccher2_
00105 #define F77_chpr2 cchpr2_
00106 #define F77_zhemv czhemv_
00107 #define F77_zhbmv czhbmv_
00108 #define F77_zhpmv czhpmv_
00109 #define F77_zgeru czgeru_
00110 #define F77_zgerc czgerc_
00111 #define F77_zher czher_
00112 #define F77_zhpr czhpr_
00113 #define F77_zher2 czher2_
00114 #define F77_zhpr2 czhpr2_
00115 #define F77_sgemv csgemv_
00116 #define F77_sgbmv csgbmv_
00117 #define F77_strmv cstrmv_
00118 #define F77_stbmv cstbmv_
00119 #define F77_stpmv cstpmv_
00120 #define F77_strsv cstrsv_
00121 #define F77_stbsv cstbsv_
00122 #define F77_stpsv cstpsv_
00123 #define F77_dgemv cdgemv_
00124 #define F77_dgbmv cdgbmv_
00125 #define F77_dtrmv cdtrmv_
00126 #define F77_dtbmv cdtbmv_
00127 #define F77_dtpmv cdtpmv_
00128 #define F77_dtrsv cdtrsv_
00129 #define F77_dtbsv cdtbsv_
00130 #define F77_dtpsv cdtpsv_
00131 #define F77_cgemv ccgemv_
00132 #define F77_cgbmv ccgbmv_
00133 #define F77_ctrmv cctrmv_
00134 #define F77_ctbmv cctbmv_
00135 #define F77_ctpmv cctpmv_
00136 #define F77_ctrsv cctrsv_
00137 #define F77_ctbsv cctbsv_
00138 #define F77_ctpsv cctpsv_
00139 #define F77_zgemv czgemv_
00140 #define F77_zgbmv czgbmv_
00141 #define F77_ztrmv cztrmv_
00142 #define F77_ztbmv cztbmv_
00143 #define F77_ztpmv cztpmv_
00144 #define F77_ztrsv cztrsv_
00145 #define F77_ztbsv cztbsv_
00146 #define F77_ztpsv cztpsv_
00147
00148
00149
00150 #define F77_s3chke cs3chke_
00151 #define F77_d3chke cd3chke_
00152 #define F77_c3chke cc3chke_
00153 #define F77_z3chke cz3chke_
00154 #define F77_chemm cchemm_
00155 #define F77_cherk ccherk_
00156 #define F77_cher2k ccher2k_
00157 #define F77_zhemm czhemm_
00158 #define F77_zherk czherk_
00159 #define F77_zher2k czher2k_
00160 #define F77_sgemm csgemm_
00161 #define F77_ssymm cssymm_
00162 #define F77_ssyrk cssyrk_
00163 #define F77_ssyr2k cssyr2k_
00164 #define F77_strmm cstrmm_
00165 #define F77_strsm cstrsm_
00166 #define F77_dgemm cdgemm_
00167 #define F77_dsymm cdsymm_
00168 #define F77_dsyrk cdsyrk_
00169 #define F77_dsyr2k cdsyr2k_
00170 #define F77_dtrmm cdtrmm_
00171 #define F77_dtrsm cdtrsm_
00172 #define F77_cgemm ccgemm_
00173 #define F77_csymm ccsymm_
00174 #define F77_csyrk ccsyrk_
00175 #define F77_csyr2k ccsyr2k_
00176 #define F77_ctrmm cctrmm_
00177 #define F77_ctrsm cctrsm_
00178 #define F77_zgemm czgemm_
00179 #define F77_zsymm czsymm_
00180 #define F77_zsyrk czsyrk_
00181 #define F77_zsyr2k czsyr2k_
00182 #define F77_ztrmm cztrmm_
00183 #define F77_ztrsm cztrsm_
00184 #elif defined(UPCASE)
00185 #define F77_xerbla XERBLA
00186
00187
00188
00189 #define F77_srotg SROTGTEST
00190 #define F77_srotmg SROTMGTEST
00191 #define F77_srot SROTCTEST
00192 #define F77_srotm SROTMTEST
00193 #define F77_drotg DROTGTEST
00194 #define F77_drotmg DROTMGTEST
00195 #define F77_drot DROTTEST
00196 #define F77_drotm DROTMTEST
00197 #define F77_sswap SSWAPTEST
00198 #define F77_scopy SCOPYTEST
00199 #define F77_saxpy SAXPYTEST
00200 #define F77_isamax ISAMAXTEST
00201 #define F77_dswap DSWAPTEST
00202 #define F77_dcopy DCOPYTEST
00203 #define F77_daxpy DAXPYTEST
00204 #define F77_idamax IDAMAXTEST
00205 #define F77_cswap CSWAPTEST
00206 #define F77_ccopy CCOPYTEST
00207 #define F77_caxpy CAXPYTEST
00208 #define F77_icamax ICAMAXTEST
00209 #define F77_zswap ZSWAPTEST
00210 #define F77_zcopy ZCOPYTEST
00211 #define F77_zaxpy ZAXPYTEST
00212 #define F77_izamax IZAMAXTEST
00213 #define F77_sdot SDOTTEST
00214 #define F77_ddot DDOTTEST
00215 #define F77_dsdot DSDOTTEST
00216 #define F77_sscal SSCALTEST
00217 #define F77_dscal DSCALTEST
00218 #define F77_cscal CSCALTEST
00219 #define F77_zscal ZSCALTEST
00220 #define F77_csscal CSSCALTEST
00221 #define F77_zdscal ZDSCALTEST
00222 #define F77_cdotu CDOTUTEST
00223 #define F77_cdotc CDOTCTEST
00224 #define F77_zdotu ZDOTUTEST
00225 #define F77_zdotc ZDOTCTEST
00226 #define F77_snrm2 SNRM2TEST
00227 #define F77_sasum SASUMTEST
00228 #define F77_dnrm2 DNRM2TEST
00229 #define F77_dasum DASUMTEST
00230 #define F77_scnrm2 SCNRM2TEST
00231 #define F77_scasum SCASUMTEST
00232 #define F77_dznrm2 DZNRM2TEST
00233 #define F77_dzasum DZASUMTEST
00234 #define F77_sdsdot SDSDOTTEST
00235
00236
00237
00238 #define F77_s2chke CS2CHKE
00239 #define F77_d2chke CD2CHKE
00240 #define F77_c2chke CC2CHKE
00241 #define F77_z2chke CZ2CHKE
00242 #define F77_ssymv CSSYMV
00243 #define F77_ssbmv CSSBMV
00244 #define F77_sspmv CSSPMV
00245 #define F77_sger CSGER
00246 #define F77_ssyr CSSYR
00247 #define F77_sspr CSSPR
00248 #define F77_ssyr2 CSSYR2
00249 #define F77_sspr2 CSSPR2
00250 #define F77_dsymv CDSYMV
00251 #define F77_dsbmv CDSBMV
00252 #define F77_dspmv CDSPMV
00253 #define F77_dger CDGER
00254 #define F77_dsyr CDSYR
00255 #define F77_dspr CDSPR
00256 #define F77_dsyr2 CDSYR2
00257 #define F77_dspr2 CDSPR2
00258 #define F77_chemv CCHEMV
00259 #define F77_chbmv CCHBMV
00260 #define F77_chpmv CCHPMV
00261 #define F77_cgeru CCGERU
00262 #define F77_cgerc CCGERC
00263 #define F77_cher CCHER
00264 #define F77_chpr CCHPR
00265 #define F77_cher2 CCHER2
00266 #define F77_chpr2 CCHPR2
00267 #define F77_zhemv CZHEMV
00268 #define F77_zhbmv CZHBMV
00269 #define F77_zhpmv CZHPMV
00270 #define F77_zgeru CZGERU
00271 #define F77_zgerc CZGERC
00272 #define F77_zher CZHER
00273 #define F77_zhpr CZHPR
00274 #define F77_zher2 CZHER2
00275 #define F77_zhpr2 CZHPR2
00276 #define F77_sgemv CSGEMV
00277 #define F77_sgbmv CSGBMV
00278 #define F77_strmv CSTRMV
00279 #define F77_stbmv CSTBMV
00280 #define F77_stpmv CSTPMV
00281 #define F77_strsv CSTRSV
00282 #define F77_stbsv CSTBSV
00283 #define F77_stpsv CSTPSV
00284 #define F77_dgemv CDGEMV
00285 #define F77_dgbmv CDGBMV
00286 #define F77_dtrmv CDTRMV
00287 #define F77_dtbmv CDTBMV
00288 #define F77_dtpmv CDTPMV
00289 #define F77_dtrsv CDTRSV
00290 #define F77_dtbsv CDTBSV
00291 #define F77_dtpsv CDTPSV
00292 #define F77_cgemv CCGEMV
00293 #define F77_cgbmv CCGBMV
00294 #define F77_ctrmv CCTRMV
00295 #define F77_ctbmv CCTBMV
00296 #define F77_ctpmv CCTPMV
00297 #define F77_ctrsv CCTRSV
00298 #define F77_ctbsv CCTBSV
00299 #define F77_ctpsv CCTPSV
00300 #define F77_zgemv CZGEMV
00301 #define F77_zgbmv CZGBMV
00302 #define F77_ztrmv CZTRMV
00303 #define F77_ztbmv CZTBMV
00304 #define F77_ztpmv CZTPMV
00305 #define F77_ztrsv CZTRSV
00306 #define F77_ztbsv CZTBSV
00307 #define F77_ztpsv CZTPSV
00308
00309
00310
00311 #define F77_s3chke CS3CHKE
00312 #define F77_d3chke CD3CHKE
00313 #define F77_c3chke CC3CHKE
00314 #define F77_z3chke CZ3CHKE
00315 #define F77_chemm CCHEMM
00316 #define F77_cherk CCHERK
00317 #define F77_cher2k CCHER2K
00318 #define F77_zhemm CZHEMM
00319 #define F77_zherk CZHERK
00320 #define F77_zher2k CZHER2K
00321 #define F77_sgemm CSGEMM
00322 #define F77_ssymm CSSYMM
00323 #define F77_ssyrk CSSYRK
00324 #define F77_ssyr2k CSSYR2K
00325 #define F77_strmm CSTRMM
00326 #define F77_strsm CSTRSM
00327 #define F77_dgemm CDGEMM
00328 #define F77_dsymm CDSYMM
00329 #define F77_dsyrk CDSYRK
00330 #define F77_dsyr2k CDSYR2K
00331 #define F77_dtrmm CDTRMM
00332 #define F77_dtrsm CDTRSM
00333 #define F77_cgemm CCGEMM
00334 #define F77_csymm CCSYMM
00335 #define F77_csyrk CCSYRK
00336 #define F77_csyr2k CCSYR2K
00337 #define F77_ctrmm CCTRMM
00338 #define F77_ctrsm CCTRSM
00339 #define F77_zgemm CZGEMM
00340 #define F77_zsymm CZSYMM
00341 #define F77_zsyrk CZSYRK
00342 #define F77_zsyr2k CZSYR2K
00343 #define F77_ztrmm CZTRMM
00344 #define F77_ztrsm CZTRSM
00345 #elif defined(NOCHANGE)
00346 #define F77_xerbla xerbla
00347
00348
00349
00350 #define F77_srotg srotgtest
00351 #define F77_srotmg srotmgtest
00352 #define F77_srot srottest
00353 #define F77_srotm srotmtest
00354 #define F77_drotg drotgtest
00355 #define F77_drotmg drotmgtest
00356 #define F77_drot drottest
00357 #define F77_drotm drotmtest
00358 #define F77_sswap sswaptest
00359 #define F77_scopy scopytest
00360 #define F77_saxpy saxpytest
00361 #define F77_isamax isamaxtest
00362 #define F77_dswap dswaptest
00363 #define F77_dcopy dcopytest
00364 #define F77_daxpy daxpytest
00365 #define F77_idamax idamaxtest
00366 #define F77_cswap cswaptest
00367 #define F77_ccopy ccopytest
00368 #define F77_caxpy caxpytest
00369 #define F77_icamax icamaxtest
00370 #define F77_zswap zswaptest
00371 #define F77_zcopy zcopytest
00372 #define F77_zaxpy zaxpytest
00373 #define F77_izamax izamaxtest
00374 #define F77_sdot sdottest
00375 #define F77_ddot ddottest
00376 #define F77_dsdot dsdottest
00377 #define F77_sscal sscaltest
00378 #define F77_dscal dscaltest
00379 #define F77_cscal cscaltest
00380 #define F77_zscal zscaltest
00381 #define F77_csscal csscaltest
00382 #define F77_zdscal zdscaltest
00383 #define F77_cdotu cdotutest
00384 #define F77_cdotc cdotctest
00385 #define F77_zdotu zdotutest
00386 #define F77_zdotc zdotctest
00387 #define F77_snrm2 snrm2test
00388 #define F77_sasum sasumtest
00389 #define F77_dnrm2 dnrm2test
00390 #define F77_dasum dasumtest
00391 #define F77_scnrm2 scnrm2test
00392 #define F77_scasum scasumtest
00393 #define F77_dznrm2 dznrm2test
00394 #define F77_dzasum dzasumtest
00395 #define F77_sdsdot sdsdottest
00396
00397
00398
00399 #define F77_s2chke cs2chke
00400 #define F77_d2chke cd2chke
00401 #define F77_c2chke cc2chke
00402 #define F77_z2chke cz2chke
00403 #define F77_ssymv cssymv
00404 #define F77_ssbmv cssbmv
00405 #define F77_sspmv csspmv
00406 #define F77_sger csger
00407 #define F77_ssyr cssyr
00408 #define F77_sspr csspr
00409 #define F77_ssyr2 cssyr2
00410 #define F77_sspr2 csspr2
00411 #define F77_dsymv cdsymv
00412 #define F77_dsbmv cdsbmv
00413 #define F77_dspmv cdspmv
00414 #define F77_dger cdger
00415 #define F77_dsyr cdsyr
00416 #define F77_dspr cdspr
00417 #define F77_dsyr2 cdsyr2
00418 #define F77_dspr2 cdspr2
00419 #define F77_chemv cchemv
00420 #define F77_chbmv cchbmv
00421 #define F77_chpmv cchpmv
00422 #define F77_cgeru ccgeru
00423 #define F77_cgerc ccgerc
00424 #define F77_cher ccher
00425 #define F77_chpr cchpr
00426 #define F77_cher2 ccher2
00427 #define F77_chpr2 cchpr2
00428 #define F77_zhemv czhemv
00429 #define F77_zhbmv czhbmv
00430 #define F77_zhpmv czhpmv
00431 #define F77_zgeru czgeru
00432 #define F77_zgerc czgerc
00433 #define F77_zher czher
00434 #define F77_zhpr czhpr
00435 #define F77_zher2 czher2
00436 #define F77_zhpr2 czhpr2
00437 #define F77_sgemv csgemv
00438 #define F77_sgbmv csgbmv
00439 #define F77_strmv cstrmv
00440 #define F77_stbmv cstbmv
00441 #define F77_stpmv cstpmv
00442 #define F77_strsv cstrsv
00443 #define F77_stbsv cstbsv
00444 #define F77_stpsv cstpsv
00445 #define F77_dgemv cdgemv
00446 #define F77_dgbmv cdgbmv
00447 #define F77_dtrmv cdtrmv
00448 #define F77_dtbmv cdtbmv
00449 #define F77_dtpmv cdtpmv
00450 #define F77_dtrsv cdtrsv
00451 #define F77_dtbsv cdtbsv
00452 #define F77_dtpsv cdtpsv
00453 #define F77_cgemv ccgemv
00454 #define F77_cgbmv ccgbmv
00455 #define F77_ctrmv cctrmv
00456 #define F77_ctbmv cctbmv
00457 #define F77_ctpmv cctpmv
00458 #define F77_ctrsv cctrsv
00459 #define F77_ctbsv cctbsv
00460 #define F77_ctpsv cctpsv
00461 #define F77_zgemv czgemv
00462 #define F77_zgbmv czgbmv
00463 #define F77_ztrmv cztrmv
00464 #define F77_ztbmv cztbmv
00465 #define F77_ztpmv cztpmv
00466 #define F77_ztrsv cztrsv
00467 #define F77_ztbsv cztbsv
00468 #define F77_ztpsv cztpsv
00469
00470
00471
00472 #define F77_s3chke cs3chke
00473 #define F77_d3chke cd3chke
00474 #define F77_c3chke cc3chke
00475 #define F77_z3chke cz3chke
00476 #define F77_chemm cchemm
00477 #define F77_cherk ccherk
00478 #define F77_cher2k ccher2k
00479 #define F77_zhemm czhemm
00480 #define F77_zherk czherk
00481 #define F77_zher2k czher2k
00482 #define F77_sgemm csgemm
00483 #define F77_ssymm cssymm
00484 #define F77_ssyrk cssyrk
00485 #define F77_ssyr2k cssyr2k
00486 #define F77_strmm cstrmm
00487 #define F77_strsm cstrsm
00488 #define F77_dgemm cdgemm
00489 #define F77_dsymm cdsymm
00490 #define F77_dsyrk cdsyrk
00491 #define F77_dsyr2k cdsyr2k
00492 #define F77_dtrmm cdtrmm
00493 #define F77_dtrsm cdtrsm
00494 #define F77_cgemm ccgemm
00495 #define F77_csymm ccsymm
00496 #define F77_csyrk ccsyrk
00497 #define F77_csyr2k ccsyr2k
00498 #define F77_ctrmm cctrmm
00499 #define F77_ctrsm cctrsm
00500 #define F77_zgemm czgemm
00501 #define F77_zsymm czsymm
00502 #define F77_zsyrk czsyrk
00503 #define F77_zsyr2k czsyr2k
00504 #define F77_ztrmm cztrmm
00505 #define F77_ztrsm cztrsm
00506 #endif
00507
00508 void get_transpose_type(char *type, enum CBLAS_TRANSPOSE *trans);
00509 void get_uplo_type(char *type, enum CBLAS_UPLO *uplo);
00510 void get_diag_type(char *type, enum CBLAS_DIAG *diag);
00511 void get_side_type(char *type, enum CBLAS_SIDE *side);
00512
00513 #endif