cblas_test.h
Go to the documentation of this file.
00001 /*
00002  * cblas_test.h
00003  * Written by Keita Teranishi
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  * Level 1 BLAS
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  * Level 2 BLAS
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  * Level 3 BLAS
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  * Level 1 BLAS
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  * Level 2 BLAS
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  * Level 3 BLAS
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  * Level 1 BLAS
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  * Level 2 BLAS
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  * Level 3 BLAS
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 /* CBLAS_TEST_H */


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:16