181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * cblas_test.h 381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Written by Keita Teranishi 481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#ifndef CBLAS_TEST_H 681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define CBLAS_TEST_H 781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#include "cblas.h" 881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define TRUE 1 1081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define PASSED 1 1181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define TEST_ROW_MJR 1 1281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 1381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define FALSE 0 1481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define FAILED 0 1581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define TEST_COL_MJR 0 1681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 1781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define INVALID -1 1881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define UNDEFINED -1 1981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murraytypedef struct { float real; float imag; } CBLAS_TEST_COMPLEX; 2181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murraytypedef struct { double real; double imag; } CBLAS_TEST_ZOMPLEX; 2281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#if defined(ADD_) 2481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray // Google-local: Note that here we retain the standard name, as we want to 2581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray // override the existing BLAS/LAPACK version when running tests. 2681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_xerbla xerbla_ 2781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 2881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 1 BLAS 2981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 3081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_srotg srotgtest_ 3181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_srotmg srotmgtest_ 3281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_srot srottest_ 3381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_srotm srotmtest_ 3481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_drotg drotgtest_ 3581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_drotmg drotmgtest_ 3681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_drot drottest_ 3781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_drotm drotmtest_ 3881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sswap sswaptest_ 3981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_scopy scopytest_ 4081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_saxpy saxpytest_ 4181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_isamax isamaxtest_ 4281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dswap dswaptest_ 4381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dcopy dcopytest_ 4481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_daxpy daxpytest_ 4581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_idamax idamaxtest_ 4681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cswap cswaptest_ 4781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ccopy ccopytest_ 4881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_caxpy caxpytest_ 4981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_icamax icamaxtest_ 5081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zswap zswaptest_ 5181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zcopy zcopytest_ 5281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zaxpy zaxpytest_ 5381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_izamax izamaxtest_ 5481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sdot sdottest_ 5581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ddot ddottest_ 5681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsdot dsdottest_ 5781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sscal sscaltest_ 5881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dscal dscaltest_ 5981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cscal cscaltest_ 6081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zscal zscaltest_ 6181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_csscal csscaltest_ 6281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zdscal zdscaltest_ 6381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cdotu cdotutest_ 6481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cdotc cdotctest_ 6581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zdotu zdotutest_ 6681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zdotc zdotctest_ 6781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_snrm2 snrm2test_ 6881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sasum sasumtest_ 6981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dnrm2 dnrm2test_ 7081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dasum dasumtest_ 7181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_scnrm2 scnrm2test_ 7281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_scasum scasumtest_ 7381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dznrm2 dznrm2test_ 7481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dzasum dzasumtest_ 7581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sdsdot sdsdottest_ 7681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 7781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 2 BLAS 7881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 7981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_s2chke cs2chke_ 8081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_d2chke cd2chke_ 8181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_c2chke cc2chke_ 8281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_z2chke cz2chke_ 8381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssymv cssymv_ 8481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssbmv cssbmv_ 8581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sspmv csspmv_ 8681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sger csger_ 8781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssyr cssyr_ 8881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sspr csspr_ 8981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssyr2 cssyr2_ 9081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sspr2 csspr2_ 9181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsymv cdsymv_ 9281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsbmv cdsbmv_ 9381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dspmv cdspmv_ 9481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dger cdger_ 9581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsyr cdsyr_ 9681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dspr cdspr_ 9781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsyr2 cdsyr2_ 9881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dspr2 cdspr2_ 9981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chemv cchemv_ 10081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chbmv cchbmv_ 10181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chpmv cchpmv_ 10281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgeru ccgeru_ 10381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgerc ccgerc_ 10481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cher ccher_ 10581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chpr cchpr_ 10681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cher2 ccher2_ 10781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chpr2 cchpr2_ 10881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhemv czhemv_ 10981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhbmv czhbmv_ 11081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhpmv czhpmv_ 11181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgeru czgeru_ 11281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgerc czgerc_ 11381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zher czher_ 11481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhpr czhpr_ 11581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zher2 czher2_ 11681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhpr2 czhpr2_ 11781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sgemv csgemv_ 11881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sgbmv csgbmv_ 11981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_strmv cstrmv_ 12081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_stbmv cstbmv_ 12181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_stpmv cstpmv_ 12281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_strsv cstrsv_ 12381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_stbsv cstbsv_ 12481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_stpsv cstpsv_ 12581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dgemv cdgemv_ 12681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dgbmv cdgbmv_ 12781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtrmv cdtrmv_ 12881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtbmv cdtbmv_ 12981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtpmv cdtpmv_ 13081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtrsv cdtrsv_ 13181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtbsv cdtbsv_ 13281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtpsv cdtpsv_ 13381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgemv ccgemv_ 13481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgbmv ccgbmv_ 13581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctrmv cctrmv_ 13681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctbmv cctbmv_ 13781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctpmv cctpmv_ 13881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctrsv cctrsv_ 13981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctbsv cctbsv_ 14081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctpsv cctpsv_ 14181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgemv czgemv_ 14281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgbmv czgbmv_ 14381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztrmv cztrmv_ 14481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztbmv cztbmv_ 14581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztpmv cztpmv_ 14681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztrsv cztrsv_ 14781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztbsv cztbsv_ 14881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztpsv cztpsv_ 14981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 15081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 3 BLAS 15181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 15281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_s3chke cs3chke_ 15381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_d3chke cd3chke_ 15481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_c3chke cc3chke_ 15581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_z3chke cz3chke_ 15681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chemm cchemm_ 15781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cherk ccherk_ 15881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cher2k ccher2k_ 15981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhemm czhemm_ 16081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zherk czherk_ 16181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zher2k czher2k_ 16281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sgemm csgemm_ 16381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssymm cssymm_ 16481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssyrk cssyrk_ 16581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssyr2k cssyr2k_ 16681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_strmm cstrmm_ 16781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_strsm cstrsm_ 16881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dgemm cdgemm_ 16981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsymm cdsymm_ 17081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsyrk cdsyrk_ 17181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsyr2k cdsyr2k_ 17281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtrmm cdtrmm_ 17381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtrsm cdtrsm_ 17481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgemm ccgemm_ 17581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_csymm ccsymm_ 17681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_csyrk ccsyrk_ 17781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_csyr2k ccsyr2k_ 17881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctrmm cctrmm_ 17981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctrsm cctrsm_ 18081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgemm czgemm_ 18181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zsymm czsymm_ 18281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zsyrk czsyrk_ 18381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zsyr2k czsyr2k_ 18481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztrmm cztrmm_ 18581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztrsm cztrsm_ 18681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#elif defined(UPCASE) 18781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_xerbla XERBLA 18881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 18981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 1 BLAS 19081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 19181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_srotg SROTGTEST 19281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_srotmg SROTMGTEST 19381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_srot SROTCTEST 19481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_srotm SROTMTEST 19581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_drotg DROTGTEST 19681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_drotmg DROTMGTEST 19781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_drot DROTTEST 19881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_drotm DROTMTEST 19981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sswap SSWAPTEST 20081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_scopy SCOPYTEST 20181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_saxpy SAXPYTEST 20281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_isamax ISAMAXTEST 20381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dswap DSWAPTEST 20481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dcopy DCOPYTEST 20581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_daxpy DAXPYTEST 20681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_idamax IDAMAXTEST 20781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cswap CSWAPTEST 20881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ccopy CCOPYTEST 20981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_caxpy CAXPYTEST 21081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_icamax ICAMAXTEST 21181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zswap ZSWAPTEST 21281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zcopy ZCOPYTEST 21381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zaxpy ZAXPYTEST 21481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_izamax IZAMAXTEST 21581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sdot SDOTTEST 21681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ddot DDOTTEST 21781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsdot DSDOTTEST 21881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sscal SSCALTEST 21981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dscal DSCALTEST 22081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cscal CSCALTEST 22181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zscal ZSCALTEST 22281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_csscal CSSCALTEST 22381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zdscal ZDSCALTEST 22481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cdotu CDOTUTEST 22581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cdotc CDOTCTEST 22681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zdotu ZDOTUTEST 22781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zdotc ZDOTCTEST 22881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_snrm2 SNRM2TEST 22981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sasum SASUMTEST 23081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dnrm2 DNRM2TEST 23181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dasum DASUMTEST 23281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_scnrm2 SCNRM2TEST 23381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_scasum SCASUMTEST 23481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dznrm2 DZNRM2TEST 23581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dzasum DZASUMTEST 23681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sdsdot SDSDOTTEST 23781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 23881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 2 BLAS 23981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 24081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_s2chke CS2CHKE 24181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_d2chke CD2CHKE 24281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_c2chke CC2CHKE 24381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_z2chke CZ2CHKE 24481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssymv CSSYMV 24581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssbmv CSSBMV 24681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sspmv CSSPMV 24781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sger CSGER 24881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssyr CSSYR 24981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sspr CSSPR 25081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssyr2 CSSYR2 25181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sspr2 CSSPR2 25281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsymv CDSYMV 25381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsbmv CDSBMV 25481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dspmv CDSPMV 25581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dger CDGER 25681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsyr CDSYR 25781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dspr CDSPR 25881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsyr2 CDSYR2 25981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dspr2 CDSPR2 26081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chemv CCHEMV 26181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chbmv CCHBMV 26281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chpmv CCHPMV 26381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgeru CCGERU 26481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgerc CCGERC 26581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cher CCHER 26681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chpr CCHPR 26781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cher2 CCHER2 26881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chpr2 CCHPR2 26981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhemv CZHEMV 27081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhbmv CZHBMV 27181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhpmv CZHPMV 27281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgeru CZGERU 27381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgerc CZGERC 27481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zher CZHER 27581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhpr CZHPR 27681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zher2 CZHER2 27781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhpr2 CZHPR2 27881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sgemv CSGEMV 27981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sgbmv CSGBMV 28081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_strmv CSTRMV 28181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_stbmv CSTBMV 28281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_stpmv CSTPMV 28381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_strsv CSTRSV 28481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_stbsv CSTBSV 28581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_stpsv CSTPSV 28681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dgemv CDGEMV 28781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dgbmv CDGBMV 28881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtrmv CDTRMV 28981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtbmv CDTBMV 29081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtpmv CDTPMV 29181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtrsv CDTRSV 29281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtbsv CDTBSV 29381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtpsv CDTPSV 29481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgemv CCGEMV 29581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgbmv CCGBMV 29681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctrmv CCTRMV 29781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctbmv CCTBMV 29881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctpmv CCTPMV 29981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctrsv CCTRSV 30081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctbsv CCTBSV 30181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctpsv CCTPSV 30281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgemv CZGEMV 30381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgbmv CZGBMV 30481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztrmv CZTRMV 30581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztbmv CZTBMV 30681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztpmv CZTPMV 30781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztrsv CZTRSV 30881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztbsv CZTBSV 30981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztpsv CZTPSV 31081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 31181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 3 BLAS 31281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 31381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_s3chke CS3CHKE 31481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_d3chke CD3CHKE 31581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_c3chke CC3CHKE 31681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_z3chke CZ3CHKE 31781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chemm CCHEMM 31881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cherk CCHERK 31981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cher2k CCHER2K 32081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhemm CZHEMM 32181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zherk CZHERK 32281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zher2k CZHER2K 32381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sgemm CSGEMM 32481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssymm CSSYMM 32581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssyrk CSSYRK 32681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssyr2k CSSYR2K 32781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_strmm CSTRMM 32881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_strsm CSTRSM 32981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dgemm CDGEMM 33081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsymm CDSYMM 33181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsyrk CDSYRK 33281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsyr2k CDSYR2K 33381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtrmm CDTRMM 33481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtrsm CDTRSM 33581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgemm CCGEMM 33681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_csymm CCSYMM 33781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_csyrk CCSYRK 33881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_csyr2k CCSYR2K 33981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctrmm CCTRMM 34081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctrsm CCTRSM 34181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgemm CZGEMM 34281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zsymm CZSYMM 34381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zsyrk CZSYRK 34481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zsyr2k CZSYR2K 34581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztrmm CZTRMM 34681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztrsm CZTRSM 34781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#elif defined(NOCHANGE) 34881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_xerbla xerbla 34981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 35081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 1 BLAS 35181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 35281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_srotg srotgtest 35381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_srotmg srotmgtest 35481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_srot srottest 35581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_srotm srotmtest 35681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_drotg drotgtest 35781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_drotmg drotmgtest 35881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_drot drottest 35981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_drotm drotmtest 36081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sswap sswaptest 36181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_scopy scopytest 36281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_saxpy saxpytest 36381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_isamax isamaxtest 36481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dswap dswaptest 36581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dcopy dcopytest 36681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_daxpy daxpytest 36781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_idamax idamaxtest 36881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cswap cswaptest 36981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ccopy ccopytest 37081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_caxpy caxpytest 37181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_icamax icamaxtest 37281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zswap zswaptest 37381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zcopy zcopytest 37481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zaxpy zaxpytest 37581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_izamax izamaxtest 37681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sdot sdottest 37781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ddot ddottest 37881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsdot dsdottest 37981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sscal sscaltest 38081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dscal dscaltest 38181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cscal cscaltest 38281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zscal zscaltest 38381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_csscal csscaltest 38481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zdscal zdscaltest 38581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cdotu cdotutest 38681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cdotc cdotctest 38781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zdotu zdotutest 38881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zdotc zdotctest 38981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_snrm2 snrm2test 39081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sasum sasumtest 39181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dnrm2 dnrm2test 39281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dasum dasumtest 39381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_scnrm2 scnrm2test 39481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_scasum scasumtest 39581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dznrm2 dznrm2test 39681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dzasum dzasumtest 39781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sdsdot sdsdottest 39881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 39981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 2 BLAS 40081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 40181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_s2chke cs2chke 40281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_d2chke cd2chke 40381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_c2chke cc2chke 40481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_z2chke cz2chke 40581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssymv cssymv 40681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssbmv cssbmv 40781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sspmv csspmv 40881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sger csger 40981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssyr cssyr 41081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sspr csspr 41181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssyr2 cssyr2 41281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sspr2 csspr2 41381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsymv cdsymv 41481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsbmv cdsbmv 41581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dspmv cdspmv 41681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dger cdger 41781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsyr cdsyr 41881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dspr cdspr 41981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsyr2 cdsyr2 42081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dspr2 cdspr2 42181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chemv cchemv 42281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chbmv cchbmv 42381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chpmv cchpmv 42481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgeru ccgeru 42581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgerc ccgerc 42681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cher ccher 42781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chpr cchpr 42881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cher2 ccher2 42981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chpr2 cchpr2 43081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhemv czhemv 43181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhbmv czhbmv 43281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhpmv czhpmv 43381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgeru czgeru 43481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgerc czgerc 43581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zher czher 43681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhpr czhpr 43781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zher2 czher2 43881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhpr2 czhpr2 43981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sgemv csgemv 44081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sgbmv csgbmv 44181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_strmv cstrmv 44281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_stbmv cstbmv 44381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_stpmv cstpmv 44481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_strsv cstrsv 44581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_stbsv cstbsv 44681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_stpsv cstpsv 44781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dgemv cdgemv 44881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dgbmv cdgbmv 44981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtrmv cdtrmv 45081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtbmv cdtbmv 45181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtpmv cdtpmv 45281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtrsv cdtrsv 45381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtbsv cdtbsv 45481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtpsv cdtpsv 45581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgemv ccgemv 45681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgbmv ccgbmv 45781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctrmv cctrmv 45881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctbmv cctbmv 45981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctpmv cctpmv 46081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctrsv cctrsv 46181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctbsv cctbsv 46281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctpsv cctpsv 46381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgemv czgemv 46481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgbmv czgbmv 46581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztrmv cztrmv 46681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztbmv cztbmv 46781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztpmv cztpmv 46881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztrsv cztrsv 46981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztbsv cztbsv 47081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztpsv cztpsv 47181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 47281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 3 BLAS 47381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 47481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_s3chke cs3chke 47581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_d3chke cd3chke 47681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_c3chke cc3chke 47781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_z3chke cz3chke 47881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_chemm cchemm 47981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cherk ccherk 48081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cher2k ccher2k 48181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zhemm czhemm 48281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zherk czherk 48381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zher2k czher2k 48481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_sgemm csgemm 48581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssymm cssymm 48681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssyrk cssyrk 48781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ssyr2k cssyr2k 48881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_strmm cstrmm 48981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_strsm cstrsm 49081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dgemm cdgemm 49181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsymm cdsymm 49281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsyrk cdsyrk 49381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dsyr2k cdsyr2k 49481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtrmm cdtrmm 49581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_dtrsm cdtrsm 49681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_cgemm ccgemm 49781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_csymm ccsymm 49881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_csyrk ccsyrk 49981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_csyr2k ccsyr2k 50081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctrmm cctrmm 50181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ctrsm cctrsm 50281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zgemm czgemm 50381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zsymm czsymm 50481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zsyrk czsyrk 50581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_zsyr2k czsyr2k 50681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztrmm cztrmm 50781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray #define F77_ztrsm cztrsm 50881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#endif 50981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 51081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murrayvoid get_transpose_type(char *type, enum CBLAS_TRANSPOSE *trans); 51181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murrayvoid get_uplo_type(char *type, enum CBLAS_UPLO *uplo); 51281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murrayvoid get_diag_type(char *type, enum CBLAS_DIAG *diag); 51381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murrayvoid get_side_type(char *type, enum CBLAS_SIDE *side); 51481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 51581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#endif /* CBLAS_TEST_H */ 516