515 lines
16 KiB
C
515 lines
16 KiB
C
/*
|
|
* cblas_test.h
|
|
* Written by Keita Teranishi
|
|
*/
|
|
#ifndef CBLAS_TEST_H
|
|
#define CBLAS_TEST_H
|
|
#include "cblas.h"
|
|
|
|
#ifdef USE64BITINT
|
|
#define int long
|
|
#endif
|
|
|
|
#define TRUE 1
|
|
#define PASSED 1
|
|
#define TEST_ROW_MJR 1
|
|
|
|
#define FALSE 0
|
|
#define FAILED 0
|
|
#define TEST_COL_MJR 0
|
|
|
|
#define INVALID -1
|
|
#define UNDEFINED -1
|
|
|
|
typedef struct { float real; float imag; } CBLAS_TEST_COMPLEX;
|
|
typedef struct { double real; double imag; } CBLAS_TEST_ZOMPLEX;
|
|
|
|
#if defined(ADD_)
|
|
/*
|
|
* Level 1 BLAS
|
|
*/
|
|
#define F77_srotg srotgtest_
|
|
#define F77_srotmg srotmgtest_
|
|
#define F77_srot srottest_
|
|
#define F77_srotm srotmtest_
|
|
#define F77_drotg drotgtest_
|
|
#define F77_drotmg drotmgtest_
|
|
#define F77_drot drottest_
|
|
#define F77_drotm drotmtest_
|
|
#define F77_sswap sswaptest_
|
|
#define F77_scopy scopytest_
|
|
#define F77_saxpy saxpytest_
|
|
#define F77_isamax isamaxtest_
|
|
#define F77_dswap dswaptest_
|
|
#define F77_dcopy dcopytest_
|
|
#define F77_daxpy daxpytest_
|
|
#define F77_idamax idamaxtest_
|
|
#define F77_cswap cswaptest_
|
|
#define F77_ccopy ccopytest_
|
|
#define F77_caxpy caxpytest_
|
|
#define F77_icamax icamaxtest_
|
|
#define F77_zswap zswaptest_
|
|
#define F77_zcopy zcopytest_
|
|
#define F77_zaxpy zaxpytest_
|
|
#define F77_izamax izamaxtest_
|
|
#define F77_sdot sdottest_
|
|
#define F77_ddot ddottest_
|
|
#define F77_dsdot dsdottest_
|
|
#define F77_sscal sscaltest_
|
|
#define F77_dscal dscaltest_
|
|
#define F77_cscal cscaltest_
|
|
#define F77_zscal zscaltest_
|
|
#define F77_csscal csscaltest_
|
|
#define F77_zdscal zdscaltest_
|
|
#define F77_cdotu cdotutest_
|
|
#define F77_cdotc cdotctest_
|
|
#define F77_zdotu zdotutest_
|
|
#define F77_zdotc zdotctest_
|
|
#define F77_snrm2 snrm2test_
|
|
#define F77_sasum sasumtest_
|
|
#define F77_dnrm2 dnrm2test_
|
|
#define F77_dasum dasumtest_
|
|
#define F77_scnrm2 scnrm2test_
|
|
#define F77_scasum scasumtest_
|
|
#define F77_dznrm2 dznrm2test_
|
|
#define F77_dzasum dzasumtest_
|
|
#define F77_sdsdot sdsdottest_
|
|
/*
|
|
* Level 2 BLAS
|
|
*/
|
|
#define F77_s2chke cs2chke_
|
|
#define F77_d2chke cd2chke_
|
|
#define F77_c2chke cc2chke_
|
|
#define F77_z2chke cz2chke_
|
|
#define F77_ssymv cssymv_
|
|
#define F77_ssbmv cssbmv_
|
|
#define F77_sspmv csspmv_
|
|
#define F77_sger csger_
|
|
#define F77_ssyr cssyr_
|
|
#define F77_sspr csspr_
|
|
#define F77_ssyr2 cssyr2_
|
|
#define F77_sspr2 csspr2_
|
|
#define F77_dsymv cdsymv_
|
|
#define F77_dsbmv cdsbmv_
|
|
#define F77_dspmv cdspmv_
|
|
#define F77_dger cdger_
|
|
#define F77_dsyr cdsyr_
|
|
#define F77_dspr cdspr_
|
|
#define F77_dsyr2 cdsyr2_
|
|
#define F77_dspr2 cdspr2_
|
|
#define F77_chemv cchemv_
|
|
#define F77_chbmv cchbmv_
|
|
#define F77_chpmv cchpmv_
|
|
#define F77_cgeru ccgeru_
|
|
#define F77_cgerc ccgerc_
|
|
#define F77_cher ccher_
|
|
#define F77_chpr cchpr_
|
|
#define F77_cher2 ccher2_
|
|
#define F77_chpr2 cchpr2_
|
|
#define F77_zhemv czhemv_
|
|
#define F77_zhbmv czhbmv_
|
|
#define F77_zhpmv czhpmv_
|
|
#define F77_zgeru czgeru_
|
|
#define F77_zgerc czgerc_
|
|
#define F77_zher czher_
|
|
#define F77_zhpr czhpr_
|
|
#define F77_zher2 czher2_
|
|
#define F77_zhpr2 czhpr2_
|
|
#define F77_sgemv csgemv_
|
|
#define F77_sgbmv csgbmv_
|
|
#define F77_strmv cstrmv_
|
|
#define F77_stbmv cstbmv_
|
|
#define F77_stpmv cstpmv_
|
|
#define F77_strsv cstrsv_
|
|
#define F77_stbsv cstbsv_
|
|
#define F77_stpsv cstpsv_
|
|
#define F77_dgemv cdgemv_
|
|
#define F77_dgbmv cdgbmv_
|
|
#define F77_dtrmv cdtrmv_
|
|
#define F77_dtbmv cdtbmv_
|
|
#define F77_dtpmv cdtpmv_
|
|
#define F77_dtrsv cdtrsv_
|
|
#define F77_dtbsv cdtbsv_
|
|
#define F77_dtpsv cdtpsv_
|
|
#define F77_cgemv ccgemv_
|
|
#define F77_cgbmv ccgbmv_
|
|
#define F77_ctrmv cctrmv_
|
|
#define F77_ctbmv cctbmv_
|
|
#define F77_ctpmv cctpmv_
|
|
#define F77_ctrsv cctrsv_
|
|
#define F77_ctbsv cctbsv_
|
|
#define F77_ctpsv cctpsv_
|
|
#define F77_zgemv czgemv_
|
|
#define F77_zgbmv czgbmv_
|
|
#define F77_ztrmv cztrmv_
|
|
#define F77_ztbmv cztbmv_
|
|
#define F77_ztpmv cztpmv_
|
|
#define F77_ztrsv cztrsv_
|
|
#define F77_ztbsv cztbsv_
|
|
#define F77_ztpsv cztpsv_
|
|
/*
|
|
* Level 3 BLAS
|
|
*/
|
|
#define F77_s3chke cs3chke_
|
|
#define F77_d3chke cd3chke_
|
|
#define F77_c3chke cc3chke_
|
|
#define F77_z3chke cz3chke_
|
|
#define F77_chemm cchemm_
|
|
#define F77_cherk ccherk_
|
|
#define F77_cher2k ccher2k_
|
|
#define F77_zhemm czhemm_
|
|
#define F77_zherk czherk_
|
|
#define F77_zher2k czher2k_
|
|
#define F77_sgemm csgemm_
|
|
#define F77_ssymm cssymm_
|
|
#define F77_ssyrk cssyrk_
|
|
#define F77_ssyr2k cssyr2k_
|
|
#define F77_strmm cstrmm_
|
|
#define F77_strsm cstrsm_
|
|
#define F77_dgemm cdgemm_
|
|
#define F77_dsymm cdsymm_
|
|
#define F77_dsyrk cdsyrk_
|
|
#define F77_dsyr2k cdsyr2k_
|
|
#define F77_dtrmm cdtrmm_
|
|
#define F77_dtrsm cdtrsm_
|
|
#define F77_cgemm ccgemm_
|
|
#define F77_csymm ccsymm_
|
|
#define F77_csyrk ccsyrk_
|
|
#define F77_csyr2k ccsyr2k_
|
|
#define F77_ctrmm cctrmm_
|
|
#define F77_ctrsm cctrsm_
|
|
#define F77_zgemm czgemm_
|
|
#define F77_zsymm czsymm_
|
|
#define F77_zsyrk czsyrk_
|
|
#define F77_zsyr2k czsyr2k_
|
|
#define F77_ztrmm cztrmm_
|
|
#define F77_ztrsm cztrsm_
|
|
#elif defined(UPCASE)
|
|
/*
|
|
* Level 1 BLAS
|
|
*/
|
|
#define F77_srotg SROTGTEST
|
|
#define F77_srotmg SROTMGTEST
|
|
#define F77_srot SROTCTEST
|
|
#define F77_srotm SROTMTEST
|
|
#define F77_drotg DROTGTEST
|
|
#define F77_drotmg DROTMGTEST
|
|
#define F77_drot DROTTEST
|
|
#define F77_drotm DROTMTEST
|
|
#define F77_sswap SSWAPTEST
|
|
#define F77_scopy SCOPYTEST
|
|
#define F77_saxpy SAXPYTEST
|
|
#define F77_isamax ISAMAXTEST
|
|
#define F77_dswap DSWAPTEST
|
|
#define F77_dcopy DCOPYTEST
|
|
#define F77_daxpy DAXPYTEST
|
|
#define F77_idamax IDAMAXTEST
|
|
#define F77_cswap CSWAPTEST
|
|
#define F77_ccopy CCOPYTEST
|
|
#define F77_caxpy CAXPYTEST
|
|
#define F77_icamax ICAMAXTEST
|
|
#define F77_zswap ZSWAPTEST
|
|
#define F77_zcopy ZCOPYTEST
|
|
#define F77_zaxpy ZAXPYTEST
|
|
#define F77_izamax IZAMAXTEST
|
|
#define F77_sdot SDOTTEST
|
|
#define F77_ddot DDOTTEST
|
|
#define F77_dsdot DSDOTTEST
|
|
#define F77_sscal SSCALTEST
|
|
#define F77_dscal DSCALTEST
|
|
#define F77_cscal CSCALTEST
|
|
#define F77_zscal ZSCALTEST
|
|
#define F77_csscal CSSCALTEST
|
|
#define F77_zdscal ZDSCALTEST
|
|
#define F77_cdotu CDOTUTEST
|
|
#define F77_cdotc CDOTCTEST
|
|
#define F77_zdotu ZDOTUTEST
|
|
#define F77_zdotc ZDOTCTEST
|
|
#define F77_snrm2 SNRM2TEST
|
|
#define F77_sasum SASUMTEST
|
|
#define F77_dnrm2 DNRM2TEST
|
|
#define F77_dasum DASUMTEST
|
|
#define F77_scnrm2 SCNRM2TEST
|
|
#define F77_scasum SCASUMTEST
|
|
#define F77_dznrm2 DZNRM2TEST
|
|
#define F77_dzasum DZASUMTEST
|
|
#define F77_sdsdot SDSDOTTEST
|
|
/*
|
|
* Level 2 BLAS
|
|
*/
|
|
#define F77_s2chke CS2CHKE
|
|
#define F77_d2chke CD2CHKE
|
|
#define F77_c2chke CC2CHKE
|
|
#define F77_z2chke CZ2CHKE
|
|
#define F77_ssymv CSSYMV
|
|
#define F77_ssbmv CSSBMV
|
|
#define F77_sspmv CSSPMV
|
|
#define F77_sger CSGER
|
|
#define F77_ssyr CSSYR
|
|
#define F77_sspr CSSPR
|
|
#define F77_ssyr2 CSSYR2
|
|
#define F77_sspr2 CSSPR2
|
|
#define F77_dsymv CDSYMV
|
|
#define F77_dsbmv CDSBMV
|
|
#define F77_dspmv CDSPMV
|
|
#define F77_dger CDGER
|
|
#define F77_dsyr CDSYR
|
|
#define F77_dspr CDSPR
|
|
#define F77_dsyr2 CDSYR2
|
|
#define F77_dspr2 CDSPR2
|
|
#define F77_chemv CCHEMV
|
|
#define F77_chbmv CCHBMV
|
|
#define F77_chpmv CCHPMV
|
|
#define F77_cgeru CCGERU
|
|
#define F77_cgerc CCGERC
|
|
#define F77_cher CCHER
|
|
#define F77_chpr CCHPR
|
|
#define F77_cher2 CCHER2
|
|
#define F77_chpr2 CCHPR2
|
|
#define F77_zhemv CZHEMV
|
|
#define F77_zhbmv CZHBMV
|
|
#define F77_zhpmv CZHPMV
|
|
#define F77_zgeru CZGERU
|
|
#define F77_zgerc CZGERC
|
|
#define F77_zher CZHER
|
|
#define F77_zhpr CZHPR
|
|
#define F77_zher2 CZHER2
|
|
#define F77_zhpr2 CZHPR2
|
|
#define F77_sgemv CSGEMV
|
|
#define F77_sgbmv CSGBMV
|
|
#define F77_strmv CSTRMV
|
|
#define F77_stbmv CSTBMV
|
|
#define F77_stpmv CSTPMV
|
|
#define F77_strsv CSTRSV
|
|
#define F77_stbsv CSTBSV
|
|
#define F77_stpsv CSTPSV
|
|
#define F77_dgemv CDGEMV
|
|
#define F77_dgbmv CDGBMV
|
|
#define F77_dtrmv CDTRMV
|
|
#define F77_dtbmv CDTBMV
|
|
#define F77_dtpmv CDTPMV
|
|
#define F77_dtrsv CDTRSV
|
|
#define F77_dtbsv CDTBSV
|
|
#define F77_dtpsv CDTPSV
|
|
#define F77_cgemv CCGEMV
|
|
#define F77_cgbmv CCGBMV
|
|
#define F77_ctrmv CCTRMV
|
|
#define F77_ctbmv CCTBMV
|
|
#define F77_ctpmv CCTPMV
|
|
#define F77_ctrsv CCTRSV
|
|
#define F77_ctbsv CCTBSV
|
|
#define F77_ctpsv CCTPSV
|
|
#define F77_zgemv CZGEMV
|
|
#define F77_zgbmv CZGBMV
|
|
#define F77_ztrmv CZTRMV
|
|
#define F77_ztbmv CZTBMV
|
|
#define F77_ztpmv CZTPMV
|
|
#define F77_ztrsv CZTRSV
|
|
#define F77_ztbsv CZTBSV
|
|
#define F77_ztpsv CZTPSV
|
|
/*
|
|
* Level 3 BLAS
|
|
*/
|
|
#define F77_s3chke CS3CHKE
|
|
#define F77_d3chke CD3CHKE
|
|
#define F77_c3chke CC3CHKE
|
|
#define F77_z3chke CZ3CHKE
|
|
#define F77_chemm CCHEMM
|
|
#define F77_cherk CCHERK
|
|
#define F77_cher2k CCHER2K
|
|
#define F77_zhemm CZHEMM
|
|
#define F77_zherk CZHERK
|
|
#define F77_zher2k CZHER2K
|
|
#define F77_sgemm CSGEMM
|
|
#define F77_ssymm CSSYMM
|
|
#define F77_ssyrk CSSYRK
|
|
#define F77_ssyr2k CSSYR2K
|
|
#define F77_strmm CSTRMM
|
|
#define F77_strsm CSTRSM
|
|
#define F77_dgemm CDGEMM
|
|
#define F77_dsymm CDSYMM
|
|
#define F77_dsyrk CDSYRK
|
|
#define F77_dsyr2k CDSYR2K
|
|
#define F77_dtrmm CDTRMM
|
|
#define F77_dtrsm CDTRSM
|
|
#define F77_cgemm CCGEMM
|
|
#define F77_csymm CCSYMM
|
|
#define F77_csyrk CCSYRK
|
|
#define F77_csyr2k CCSYR2K
|
|
#define F77_ctrmm CCTRMM
|
|
#define F77_ctrsm CCTRSM
|
|
#define F77_zgemm CZGEMM
|
|
#define F77_zsymm CZSYMM
|
|
#define F77_zsyrk CZSYRK
|
|
#define F77_zsyr2k CZSYR2K
|
|
#define F77_ztrmm CZTRMM
|
|
#define F77_ztrsm CZTRSM
|
|
#elif defined(NOCHANGE)
|
|
/*
|
|
* Level 1 BLAS
|
|
*/
|
|
#define F77_srotg srotgtest
|
|
#define F77_srotmg srotmgtest
|
|
#define F77_srot srottest
|
|
#define F77_srotm srotmtest
|
|
#define F77_drotg drotgtest
|
|
#define F77_drotmg drotmgtest
|
|
#define F77_drot drottest
|
|
#define F77_drotm drotmtest
|
|
#define F77_sswap sswaptest
|
|
#define F77_scopy scopytest
|
|
#define F77_saxpy saxpytest
|
|
#define F77_isamax isamaxtest
|
|
#define F77_dswap dswaptest
|
|
#define F77_dcopy dcopytest
|
|
#define F77_daxpy daxpytest
|
|
#define F77_idamax idamaxtest
|
|
#define F77_cswap cswaptest
|
|
#define F77_ccopy ccopytest
|
|
#define F77_caxpy caxpytest
|
|
#define F77_icamax icamaxtest
|
|
#define F77_zswap zswaptest
|
|
#define F77_zcopy zcopytest
|
|
#define F77_zaxpy zaxpytest
|
|
#define F77_izamax izamaxtest
|
|
#define F77_sdot sdottest
|
|
#define F77_ddot ddottest
|
|
#define F77_dsdot dsdottest
|
|
#define F77_sscal sscaltest
|
|
#define F77_dscal dscaltest
|
|
#define F77_cscal cscaltest
|
|
#define F77_zscal zscaltest
|
|
#define F77_csscal csscaltest
|
|
#define F77_zdscal zdscaltest
|
|
#define F77_cdotu cdotutest
|
|
#define F77_cdotc cdotctest
|
|
#define F77_zdotu zdotutest
|
|
#define F77_zdotc zdotctest
|
|
#define F77_snrm2 snrm2test
|
|
#define F77_sasum sasumtest
|
|
#define F77_dnrm2 dnrm2test
|
|
#define F77_dasum dasumtest
|
|
#define F77_scnrm2 scnrm2test
|
|
#define F77_scasum scasumtest
|
|
#define F77_dznrm2 dznrm2test
|
|
#define F77_dzasum dzasumtest
|
|
#define F77_sdsdot sdsdottest
|
|
/*
|
|
* Level 2 BLAS
|
|
*/
|
|
#define F77_s2chke cs2chke
|
|
#define F77_d2chke cd2chke
|
|
#define F77_c2chke cc2chke
|
|
#define F77_z2chke cz2chke
|
|
#define F77_ssymv cssymv
|
|
#define F77_ssbmv cssbmv
|
|
#define F77_sspmv csspmv
|
|
#define F77_sger csger
|
|
#define F77_ssyr cssyr
|
|
#define F77_sspr csspr
|
|
#define F77_ssyr2 cssyr2
|
|
#define F77_sspr2 csspr2
|
|
#define F77_dsymv cdsymv
|
|
#define F77_dsbmv cdsbmv
|
|
#define F77_dspmv cdspmv
|
|
#define F77_dger cdger
|
|
#define F77_dsyr cdsyr
|
|
#define F77_dspr cdspr
|
|
#define F77_dsyr2 cdsyr2
|
|
#define F77_dspr2 cdspr2
|
|
#define F77_chemv cchemv
|
|
#define F77_chbmv cchbmv
|
|
#define F77_chpmv cchpmv
|
|
#define F77_cgeru ccgeru
|
|
#define F77_cgerc ccgerc
|
|
#define F77_cher ccher
|
|
#define F77_chpr cchpr
|
|
#define F77_cher2 ccher2
|
|
#define F77_chpr2 cchpr2
|
|
#define F77_zhemv czhemv
|
|
#define F77_zhbmv czhbmv
|
|
#define F77_zhpmv czhpmv
|
|
#define F77_zgeru czgeru
|
|
#define F77_zgerc czgerc
|
|
#define F77_zher czher
|
|
#define F77_zhpr czhpr
|
|
#define F77_zher2 czher2
|
|
#define F77_zhpr2 czhpr2
|
|
#define F77_sgemv csgemv
|
|
#define F77_sgbmv csgbmv
|
|
#define F77_strmv cstrmv
|
|
#define F77_stbmv cstbmv
|
|
#define F77_stpmv cstpmv
|
|
#define F77_strsv cstrsv
|
|
#define F77_stbsv cstbsv
|
|
#define F77_stpsv cstpsv
|
|
#define F77_dgemv cdgemv
|
|
#define F77_dgbmv cdgbmv
|
|
#define F77_dtrmv cdtrmv
|
|
#define F77_dtbmv cdtbmv
|
|
#define F77_dtpmv cdtpmv
|
|
#define F77_dtrsv cdtrsv
|
|
#define F77_dtbsv cdtbsv
|
|
#define F77_dtpsv cdtpsv
|
|
#define F77_cgemv ccgemv
|
|
#define F77_cgbmv ccgbmv
|
|
#define F77_ctrmv cctrmv
|
|
#define F77_ctbmv cctbmv
|
|
#define F77_ctpmv cctpmv
|
|
#define F77_ctrsv cctrsv
|
|
#define F77_ctbsv cctbsv
|
|
#define F77_ctpsv cctpsv
|
|
#define F77_zgemv czgemv
|
|
#define F77_zgbmv czgbmv
|
|
#define F77_ztrmv cztrmv
|
|
#define F77_ztbmv cztbmv
|
|
#define F77_ztpmv cztpmv
|
|
#define F77_ztrsv cztrsv
|
|
#define F77_ztbsv cztbsv
|
|
#define F77_ztpsv cztpsv
|
|
/*
|
|
* Level 3 BLAS
|
|
*/
|
|
#define F77_s3chke cs3chke
|
|
#define F77_d3chke cd3chke
|
|
#define F77_c3chke cc3chke
|
|
#define F77_z3chke cz3chke
|
|
#define F77_chemm cchemm
|
|
#define F77_cherk ccherk
|
|
#define F77_cher2k ccher2k
|
|
#define F77_zhemm czhemm
|
|
#define F77_zherk czherk
|
|
#define F77_zher2k czher2k
|
|
#define F77_sgemm csgemm
|
|
#define F77_ssymm cssymm
|
|
#define F77_ssyrk cssyrk
|
|
#define F77_ssyr2k cssyr2k
|
|
#define F77_strmm cstrmm
|
|
#define F77_strsm cstrsm
|
|
#define F77_dgemm cdgemm
|
|
#define F77_dsymm cdsymm
|
|
#define F77_dsyrk cdsyrk
|
|
#define F77_dsyr2k cdsyr2k
|
|
#define F77_dtrmm cdtrmm
|
|
#define F77_dtrsm cdtrsm
|
|
#define F77_cgemm ccgemm
|
|
#define F77_csymm ccsymm
|
|
#define F77_csyrk ccsyrk
|
|
#define F77_csyr2k ccsyr2k
|
|
#define F77_ctrmm cctrmm
|
|
#define F77_ctrsm cctrsm
|
|
#define F77_zgemm czgemm
|
|
#define F77_zsymm czsymm
|
|
#define F77_zsyrk czsyrk
|
|
#define F77_zsyr2k czsyr2k
|
|
#define F77_ztrmm cztrmm
|
|
#define F77_ztrsm cztrsm
|
|
#endif
|
|
|
|
void get_transpose_type(char *type, enum CBLAS_TRANSPOSE *trans);
|
|
void get_uplo_type(char *type, enum CBLAS_UPLO *uplo);
|
|
void get_diag_type(char *type, enum CBLAS_DIAG *diag);
|
|
void get_side_type(char *type, enum CBLAS_SIDE *side);
|
|
|
|
#endif /* CBLAS_TEST_H */
|