d7/de8/cblas__test_8h_source.html

 /*

  * cblas_test.h

  * Written by Keita Teranishi

  */

 #ifndef CBLAS_TEST_H

 #define CBLAS_TEST_H

 #include "cblas.h"

 #include "cblas_mangling.h"


 #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;


 #define F77_xerbla              F77_GLOBAL(xerbla,XERBLA)

 /*

  * Level 1 BLAS

  */

 #define F77_srotg               F77_GLOBAL(srotgtest,SROTGTEST)

 #define F77_srotmg              F77_GLOBAL(srotmgtest,SROTMGTEST)

 #define F77_srot                F77_GLOBAL(srottest,SROTTEST)

 #define F77_srotm               F77_GLOBAL(srotmtest,SROTMTEST)

 #define F77_drotg               F77_GLOBAL(drotgtest,DROTGTEST)

 #define F77_drotmg              F77_GLOBAL(drotmgtest,DROTMGTEST)

 #define F77_drot                F77_GLOBAL(drottest,DROTTEST)

 #define F77_drotm               F77_GLOBAL(drotmtest,DROTMTEST)

 #define F77_sswap               F77_GLOBAL(sswaptest,SSWAPTEST)

 #define F77_scopy               F77_GLOBAL(scopytest,SCOPYTEST)

 #define F77_saxpy               F77_GLOBAL(saxpytest,SAXPYTEST)

 #define F77_isamax              F77_GLOBAL(isamaxtest,ISAMAXTEST)

 #define F77_dswap               F77_GLOBAL(dswaptest,DSWAPTEST)

 #define F77_dcopy               F77_GLOBAL(dcopytest,DCOPYTEST)

 #define F77_daxpy               F77_GLOBAL(daxpytest,DAXPYTEST)

 #define F77_idamax              F77_GLOBAL(idamaxtest,IDAMAXTEST)

 #define F77_cswap               F77_GLOBAL(cswaptest,CSWAPTEST)

 #define F77_ccopy               F77_GLOBAL(ccopytest,CCOPYTEST)

 #define F77_caxpy               F77_GLOBAL(caxpytest,CAXPYTEST)

 #define F77_icamax              F77_GLOBAL(icamaxtest,ICAMAXTEST)

 #define F77_zswap               F77_GLOBAL(zswaptest,ZSWAPTEST)

 #define F77_zcopy               F77_GLOBAL(zcopytest,ZCOPYTEST)

 #define F77_zaxpy               F77_GLOBAL(zaxpytest,ZAXPYTEST)

 #define F77_izamax              F77_GLOBAL(izamaxtest,IZAMAXTEST)

 #define F77_sdot                F77_GLOBAL(sdottest,SDOTTEST)

 #define F77_ddot                F77_GLOBAL(ddottest,DDOTTEST)

 #define F77_dsdot               F77_GLOBAL(dsdottest,DSDOTTEST)

 #define F77_sscal               F77_GLOBAL(sscaltest,SSCALTEST)

 #define F77_dscal               F77_GLOBAL(dscaltest,DSCALTEST)

 #define F77_cscal               F77_GLOBAL(cscaltest,CSCALTEST)

 #define F77_zscal               F77_GLOBAL(zscaltest,ZSCALTEST)

 #define F77_csscal              F77_GLOBAL(csscaltest,CSSCALTEST)

 #define F77_zdscal              F77_GLOBAL(zdscaltest,ZDSCALTEST)

 #define F77_cdotu               F77_GLOBAL(cdotutest,CDOTUTEST)

 #define F77_cdotc               F77_GLOBAL(cdotctest,CDOTCTEST)

 #define F77_zdotu               F77_GLOBAL(zdotutest,ZDOTUTEST)

 #define F77_zdotc               F77_GLOBAL(zdotctest,ZDOTCTEST)

 #define F77_snrm2               F77_GLOBAL(snrm2test,SNRM2TEST)

 #define F77_sasum               F77_GLOBAL(sasumtest,SASUMTEST)

 #define F77_dnrm2               F77_GLOBAL(dnrm2test,DNRM2TEST)

 #define F77_dasum               F77_GLOBAL(dasumtest,DASUMTEST)

 #define F77_scnrm2              F77_GLOBAL(scnrm2test,SCNRM2TEST)

 #define F77_scasum              F77_GLOBAL(scasumtest,SCASUMTEST)

 #define F77_dznrm2              F77_GLOBAL(dznrm2test,DZNRM2TEST)

 #define F77_dzasum              F77_GLOBAL(dzasumtest,DZASUMTEST)

 #define F77_sdsdot              F77_GLOBAL(sdsdottest, SDSDOTTEST)

 /*

  * Level 2 BLAS

  */

 #define F77_s2chke              F77_GLOBAL(cs2chke,CS2CHKE)

 #define F77_d2chke              F77_GLOBAL(cd2chke,CD2CHKE)

 #define F77_c2chke              F77_GLOBAL(cc2chke,CC2CHKE)

 #define F77_z2chke              F77_GLOBAL(cz2chke,CZ2CHKE)

 #define F77_ssymv               F77_GLOBAL(cssymv,CSSYMV)

 #define F77_ssbmv               F77_GLOBAL(cssbmv,CSSBMV)

 #define F77_sspmv               F77_GLOBAL(csspmv,CSSPMV)

 #define F77_sger                F77_GLOBAL(csger,CSGER)

 #define F77_ssyr                F77_GLOBAL(cssyr,CSSYR)

 #define F77_sspr                F77_GLOBAL(csspr,CSSPR)

 #define F77_ssyr2               F77_GLOBAL(cssyr2,CSSYR2)

 #define F77_sspr2               F77_GLOBAL(csspr2,CSSPR2)

 #define F77_dsymv               F77_GLOBAL(cdsymv,CDSYMV)

 #define F77_dsbmv               F77_GLOBAL(cdsbmv,CDSBMV)

 #define F77_dspmv               F77_GLOBAL(cdspmv,CDSPMV)

 #define F77_dger                F77_GLOBAL(cdger,CDGER)

 #define F77_dsyr                F77_GLOBAL(cdsyr,CDSYR)

 #define F77_dspr                F77_GLOBAL(cdspr,CDSPR)

 #define F77_dsyr2               F77_GLOBAL(cdsyr2,CDSYR2)

 #define F77_dspr2               F77_GLOBAL(cdspr2,CDSPR2)

 #define F77_chemv               F77_GLOBAL(cchemv,CCHEMV)

 #define F77_chbmv               F77_GLOBAL(cchbmv,CCHBMV)

 #define F77_chpmv               F77_GLOBAL(cchpmv,CCHPMV)

 #define F77_cgeru               F77_GLOBAL(ccgeru,CCGERU)

 #define F77_cgerc               F77_GLOBAL(ccgerc,CCGERC)

 #define F77_cher                F77_GLOBAL(ccher,CCHER)

 #define F77_chpr                F77_GLOBAL(cchpr,CCHPR)

 #define F77_cher2               F77_GLOBAL(ccher2,CCHER2)

 #define F77_chpr2               F77_GLOBAL(cchpr2,CCHPR2)

 #define F77_zhemv               F77_GLOBAL(czhemv,CZHEMV)

 #define F77_zhbmv               F77_GLOBAL(czhbmv,CZHBMV)

 #define F77_zhpmv               F77_GLOBAL(czhpmv,CZHPMV)

 #define F77_zgeru               F77_GLOBAL(czgeru,CZGERU)

 #define F77_zgerc               F77_GLOBAL(czgerc,CZGERC)

 #define F77_zher                F77_GLOBAL(czher,CZHER)

 #define F77_zhpr                F77_GLOBAL(czhpr,CZHPR)

 #define F77_zher2               F77_GLOBAL(czher2,CZHER2)

 #define F77_zhpr2               F77_GLOBAL(czhpr2,CZHPR2)

 #define F77_sgemv               F77_GLOBAL(csgemv,CSGEMV)

 #define F77_sgbmv               F77_GLOBAL(csgbmv,CSGBMV)

 #define F77_strmv               F77_GLOBAL(cstrmv,CSTRMV)

 #define F77_stbmv               F77_GLOBAL(cstbmv,CSTBMV)

 #define F77_stpmv               F77_GLOBAL(cstpmv,CSTPMV)

 #define F77_strsv               F77_GLOBAL(cstrsv,CSTRSV)

 #define F77_stbsv               F77_GLOBAL(cstbsv,CSTBSV)

 #define F77_stpsv               F77_GLOBAL(cstpsv,CSTPSV)

 #define F77_dgemv               F77_GLOBAL(cdgemv,CDGEMV)

 #define F77_dgbmv               F77_GLOBAL(cdgbmv,CDGBMV)

 #define F77_dtrmv               F77_GLOBAL(cdtrmv,CDTRMV)

 #define F77_dtbmv               F77_GLOBAL(cdtbmv,CDTBMV)

 #define F77_dtpmv               F77_GLOBAL(cdtpmv,CDTPMV)

 #define F77_dtrsv               F77_GLOBAL(cdtrsv,CDTRSV)

 #define F77_dtbsv               F77_GLOBAL(cdtbsv,CDTBSV)

 #define F77_dtpsv               F77_GLOBAL(cdtpsv,CDTPSV)

 #define F77_cgemv               F77_GLOBAL(ccgemv,CCGEMV)

 #define F77_cgbmv               F77_GLOBAL(ccgbmv,CCGBMV)

 #define F77_ctrmv               F77_GLOBAL(cctrmv,CCTRMV)

 #define F77_ctbmv               F77_GLOBAL(cctbmv,CCTPMV)

 #define F77_ctpmv               F77_GLOBAL(cctpmv,CCTPMV)

 #define F77_ctrsv               F77_GLOBAL(cctrsv,CCTRSV)

 #define F77_ctbsv               F77_GLOBAL(cctbsv,CCTBSV)

 #define F77_ctpsv               F77_GLOBAL(cctpsv,CCTPSV)

 #define F77_zgemv               F77_GLOBAL(czgemv,CZGEMV)

 #define F77_zgbmv               F77_GLOBAL(czgbmv,CZGBMV)

 #define F77_ztrmv               F77_GLOBAL(cztrmv,CZTRMV)

 #define F77_ztbmv               F77_GLOBAL(cztbmv,CZTBMV)

 #define F77_ztpmv               F77_GLOBAL(cztpmv,CZTPMV)

 #define F77_ztrsv               F77_GLOBAL(cztrsv,CZTRSV)

 #define F77_ztbsv               F77_GLOBAL(cztbsv,CZTBSV)

 #define F77_ztpsv               F77_GLOBAL(cztpsv,CZTPSV)

 /*

  * Level 3 BLAS

  */

 #define F77_s3chke              F77_GLOBAL(cs3chke,CS3CHKE)

 #define F77_d3chke              F77_GLOBAL(cd3chke,CD3CHKE)

 #define F77_c3chke              F77_GLOBAL(cc3chke,CC3CHKE)

 #define F77_z3chke              F77_GLOBAL(cz3chke,CZ3CHKE)

 #define F77_chemm               F77_GLOBAL(cchemm,CCHEMM)

 #define F77_cherk               F77_GLOBAL(ccherk,CCHERK)

 #define F77_cher2k              F77_GLOBAL(ccher2k,CCHER2K)

 #define F77_zhemm               F77_GLOBAL(czhemm,CZHEMM)

 #define F77_zherk               F77_GLOBAL(czherk,CZHERK)

 #define F77_zher2k              F77_GLOBAL(czher2k,CZHER2K)

 #define F77_sgemm               F77_GLOBAL(csgemm,CSGEMM)

 #define F77_ssymm               F77_GLOBAL(cssymm,CSSYMM)

 #define F77_ssyrk               F77_GLOBAL(cssyrk,CSSYRK)

 #define F77_ssyr2k              F77_GLOBAL(cssyr2k,CSSYR2K)

 #define F77_strmm               F77_GLOBAL(cstrmm,CSTRMM)

 #define F77_strsm               F77_GLOBAL(cstrsm,CSTRSM)

 #define F77_dgemm               F77_GLOBAL(cdgemm,CDGEMM)

 #define F77_dsymm               F77_GLOBAL(cdsymm,CDSYMM)

 #define F77_dsyrk               F77_GLOBAL(cdsyrk,CDSYRK)

 #define F77_dsyr2k              F77_GLOBAL(cdsyr2k,CDSYR2K)

 #define F77_dtrmm               F77_GLOBAL(cdtrmm,CDTRMM)

 #define F77_dtrsm               F77_GLOBAL(cdtrsm,CDTRSM)

 #define F77_cgemm               F77_GLOBAL(ccgemm,CCGEMM)

 #define F77_csymm               F77_GLOBAL(ccsymm,CCSYMM)

 #define F77_csyrk               F77_GLOBAL(ccsyrk,CCSYRK)

 #define F77_csyr2k              F77_GLOBAL(ccsyr2k,CCSYR2K)

 #define F77_ctrmm               F77_GLOBAL(cctrmm,CCTRMM)

 #define F77_ctrsm               F77_GLOBAL(cctrsm,CCTRSM)

 #define F77_zgemm               F77_GLOBAL(czgemm,CZGEMM)

 #define F77_zsymm               F77_GLOBAL(czsymm,CZSYMM)

 #define F77_zsyrk               F77_GLOBAL(czsyrk,CZSYRK)

 #define F77_zsyr2k              F77_GLOBAL(czsyr2k,CZSYR2K)

 #define F77_ztrmm               F77_GLOBAL(cztrmm,CZTRMM)

 #define F77_ztrsm               F77_GLOBAL(cztrsm, CZTRSM)


 void get_transpose_type(char *type, CBLAS_TRANSPOSE *trans);

 void get_uplo_type(char *type, CBLAS_UPLO *uplo);

 void get_diag_type(char *type, CBLAS_DIAG *diag);

 void get_side_type(char *type, CBLAS_SIDE *side);


 #endif /* CBLAS_TEST_H */

get_transpose_type
void get_transpose_type(char *type, CBLAS_TRANSPOSE *trans)
Definition: auxiliary.c:8

get_side_type
void get_side_type(char *type, CBLAS_SIDE *side)
Definition: auxiliary.c:32

CBLAS_SIDE
CBLAS_SIDE
Definition: cblas.h:23

CBLAS_DIAG
CBLAS_DIAG
Definition: cblas.h:22

CBLAS_TEST_ZOMPLEX::real
double real
Definition: cblas_test.h:22

CBLAS_TRANSPOSE
CBLAS_TRANSPOSE
Definition: cblas.h:20

cblas.h

CBLAS_TEST_COMPLEX
Definition: cblas_test.h:21

get_diag_type
void get_diag_type(char *type, CBLAS_DIAG *diag)
Definition: auxiliary.c:25

CBLAS_UPLO
CBLAS_UPLO
Definition: cblas.h:21

get_uplo_type
void get_uplo_type(char *type, CBLAS_UPLO *uplo)
Definition: auxiliary.c:18

CBLAS_TEST_ZOMPLEX
Definition: cblas_test.h:22

CBLAS_TEST_COMPLEX::real
float real
Definition: cblas_test.h:21