LAPACK  3.8.0
LAPACK: Linear Algebra PACKage
cblas_test.h
Go to the documentation of this file.
1 /*
2  * cblas_test.h
3  * Written by Keita Teranishi
4  */
5 #ifndef CBLAS_TEST_H
6 #define CBLAS_TEST_H
7 #include "cblas.h"
8 #include "cblas_mangling.h"
9 
10 #define TRUE 1
11 #define PASSED 1
12 #define TEST_ROW_MJR 1
13 
14 #define FALSE 0
15 #define FAILED 0
16 #define TEST_COL_MJR 0
17 
18 #define INVALID -1
19 #define UNDEFINED -1
20 
21 typedef struct { float real; float imag; } CBLAS_TEST_COMPLEX;
22 typedef struct { double real; double imag; } CBLAS_TEST_ZOMPLEX;
23 
24 #define F77_xerbla F77_GLOBAL(xerbla,XERBLA)
25 /*
26  * Level 1 BLAS
27  */
28 #define F77_srotg F77_GLOBAL(srotgtest,SROTGTEST)
29 #define F77_srotmg F77_GLOBAL(srotmgtest,SROTMGTEST)
30 #define F77_srot F77_GLOBAL(srottest,SROTTEST)
31 #define F77_srotm F77_GLOBAL(srotmtest,SROTMTEST)
32 #define F77_drotg F77_GLOBAL(drotgtest,DROTGTEST)
33 #define F77_drotmg F77_GLOBAL(drotmgtest,DROTMGTEST)
34 #define F77_drot F77_GLOBAL(drottest,DROTTEST)
35 #define F77_drotm F77_GLOBAL(drotmtest,DROTMTEST)
36 #define F77_sswap F77_GLOBAL(sswaptest,SSWAPTEST)
37 #define F77_scopy F77_GLOBAL(scopytest,SCOPYTEST)
38 #define F77_saxpy F77_GLOBAL(saxpytest,SAXPYTEST)
39 #define F77_isamax F77_GLOBAL(isamaxtest,ISAMAXTEST)
40 #define F77_dswap F77_GLOBAL(dswaptest,DSWAPTEST)
41 #define F77_dcopy F77_GLOBAL(dcopytest,DCOPYTEST)
42 #define F77_daxpy F77_GLOBAL(daxpytest,DAXPYTEST)
43 #define F77_idamax F77_GLOBAL(idamaxtest,IDAMAXTEST)
44 #define F77_cswap F77_GLOBAL(cswaptest,CSWAPTEST)
45 #define F77_ccopy F77_GLOBAL(ccopytest,CCOPYTEST)
46 #define F77_caxpy F77_GLOBAL(caxpytest,CAXPYTEST)
47 #define F77_icamax F77_GLOBAL(icamaxtest,ICAMAXTEST)
48 #define F77_zswap F77_GLOBAL(zswaptest,ZSWAPTEST)
49 #define F77_zcopy F77_GLOBAL(zcopytest,ZCOPYTEST)
50 #define F77_zaxpy F77_GLOBAL(zaxpytest,ZAXPYTEST)
51 #define F77_izamax F77_GLOBAL(izamaxtest,IZAMAXTEST)
52 #define F77_sdot F77_GLOBAL(sdottest,SDOTTEST)
53 #define F77_ddot F77_GLOBAL(ddottest,DDOTTEST)
54 #define F77_dsdot F77_GLOBAL(dsdottest,DSDOTTEST)
55 #define F77_sscal F77_GLOBAL(sscaltest,SSCALTEST)
56 #define F77_dscal F77_GLOBAL(dscaltest,DSCALTEST)
57 #define F77_cscal F77_GLOBAL(cscaltest,CSCALTEST)
58 #define F77_zscal F77_GLOBAL(zscaltest,ZSCALTEST)
59 #define F77_csscal F77_GLOBAL(csscaltest,CSSCALTEST)
60 #define F77_zdscal F77_GLOBAL(zdscaltest,ZDSCALTEST)
61 #define F77_cdotu F77_GLOBAL(cdotutest,CDOTUTEST)
62 #define F77_cdotc F77_GLOBAL(cdotctest,CDOTCTEST)
63 #define F77_zdotu F77_GLOBAL(zdotutest,ZDOTUTEST)
64 #define F77_zdotc F77_GLOBAL(zdotctest,ZDOTCTEST)
65 #define F77_snrm2 F77_GLOBAL(snrm2test,SNRM2TEST)
66 #define F77_sasum F77_GLOBAL(sasumtest,SASUMTEST)
67 #define F77_dnrm2 F77_GLOBAL(dnrm2test,DNRM2TEST)
68 #define F77_dasum F77_GLOBAL(dasumtest,DASUMTEST)
69 #define F77_scnrm2 F77_GLOBAL(scnrm2test,SCNRM2TEST)
70 #define F77_scasum F77_GLOBAL(scasumtest,SCASUMTEST)
71 #define F77_dznrm2 F77_GLOBAL(dznrm2test,DZNRM2TEST)
72 #define F77_dzasum F77_GLOBAL(dzasumtest,DZASUMTEST)
73 #define F77_sdsdot F77_GLOBAL(sdsdottest, SDSDOTTEST)
74 /*
75  * Level 2 BLAS
76  */
77 #define F77_s2chke F77_GLOBAL(cs2chke,CS2CHKE)
78 #define F77_d2chke F77_GLOBAL(cd2chke,CD2CHKE)
79 #define F77_c2chke F77_GLOBAL(cc2chke,CC2CHKE)
80 #define F77_z2chke F77_GLOBAL(cz2chke,CZ2CHKE)
81 #define F77_ssymv F77_GLOBAL(cssymv,CSSYMV)
82 #define F77_ssbmv F77_GLOBAL(cssbmv,CSSBMV)
83 #define F77_sspmv F77_GLOBAL(csspmv,CSSPMV)
84 #define F77_sger F77_GLOBAL(csger,CSGER)
85 #define F77_ssyr F77_GLOBAL(cssyr,CSSYR)
86 #define F77_sspr F77_GLOBAL(csspr,CSSPR)
87 #define F77_ssyr2 F77_GLOBAL(cssyr2,CSSYR2)
88 #define F77_sspr2 F77_GLOBAL(csspr2,CSSPR2)
89 #define F77_dsymv F77_GLOBAL(cdsymv,CDSYMV)
90 #define F77_dsbmv F77_GLOBAL(cdsbmv,CDSBMV)
91 #define F77_dspmv F77_GLOBAL(cdspmv,CDSPMV)
92 #define F77_dger F77_GLOBAL(cdger,CDGER)
93 #define F77_dsyr F77_GLOBAL(cdsyr,CDSYR)
94 #define F77_dspr F77_GLOBAL(cdspr,CDSPR)
95 #define F77_dsyr2 F77_GLOBAL(cdsyr2,CDSYR2)
96 #define F77_dspr2 F77_GLOBAL(cdspr2,CDSPR2)
97 #define F77_chemv F77_GLOBAL(cchemv,CCHEMV)
98 #define F77_chbmv F77_GLOBAL(cchbmv,CCHBMV)
99 #define F77_chpmv F77_GLOBAL(cchpmv,CCHPMV)
100 #define F77_cgeru F77_GLOBAL(ccgeru,CCGERU)
101 #define F77_cgerc F77_GLOBAL(ccgerc,CCGERC)
102 #define F77_cher F77_GLOBAL(ccher,CCHER)
103 #define F77_chpr F77_GLOBAL(cchpr,CCHPR)
104 #define F77_cher2 F77_GLOBAL(ccher2,CCHER2)
105 #define F77_chpr2 F77_GLOBAL(cchpr2,CCHPR2)
106 #define F77_zhemv F77_GLOBAL(czhemv,CZHEMV)
107 #define F77_zhbmv F77_GLOBAL(czhbmv,CZHBMV)
108 #define F77_zhpmv F77_GLOBAL(czhpmv,CZHPMV)
109 #define F77_zgeru F77_GLOBAL(czgeru,CZGERU)
110 #define F77_zgerc F77_GLOBAL(czgerc,CZGERC)
111 #define F77_zher F77_GLOBAL(czher,CZHER)
112 #define F77_zhpr F77_GLOBAL(czhpr,CZHPR)
113 #define F77_zher2 F77_GLOBAL(czher2,CZHER2)
114 #define F77_zhpr2 F77_GLOBAL(czhpr2,CZHPR2)
115 #define F77_sgemv F77_GLOBAL(csgemv,CSGEMV)
116 #define F77_sgbmv F77_GLOBAL(csgbmv,CSGBMV)
117 #define F77_strmv F77_GLOBAL(cstrmv,CSTRMV)
118 #define F77_stbmv F77_GLOBAL(cstbmv,CSTBMV)
119 #define F77_stpmv F77_GLOBAL(cstpmv,CSTPMV)
120 #define F77_strsv F77_GLOBAL(cstrsv,CSTRSV)
121 #define F77_stbsv F77_GLOBAL(cstbsv,CSTBSV)
122 #define F77_stpsv F77_GLOBAL(cstpsv,CSTPSV)
123 #define F77_dgemv F77_GLOBAL(cdgemv,CDGEMV)
124 #define F77_dgbmv F77_GLOBAL(cdgbmv,CDGBMV)
125 #define F77_dtrmv F77_GLOBAL(cdtrmv,CDTRMV)
126 #define F77_dtbmv F77_GLOBAL(cdtbmv,CDTBMV)
127 #define F77_dtpmv F77_GLOBAL(cdtpmv,CDTPMV)
128 #define F77_dtrsv F77_GLOBAL(cdtrsv,CDTRSV)
129 #define F77_dtbsv F77_GLOBAL(cdtbsv,CDTBSV)
130 #define F77_dtpsv F77_GLOBAL(cdtpsv,CDTPSV)
131 #define F77_cgemv F77_GLOBAL(ccgemv,CCGEMV)
132 #define F77_cgbmv F77_GLOBAL(ccgbmv,CCGBMV)
133 #define F77_ctrmv F77_GLOBAL(cctrmv,CCTRMV)
134 #define F77_ctbmv F77_GLOBAL(cctbmv,CCTBMV)
135 #define F77_ctpmv F77_GLOBAL(cctpmv,CCTPMV)
136 #define F77_ctrsv F77_GLOBAL(cctrsv,CCTRSV)
137 #define F77_ctbsv F77_GLOBAL(cctbsv,CCTBSV)
138 #define F77_ctpsv F77_GLOBAL(cctpsv,CCTPSV)
139 #define F77_zgemv F77_GLOBAL(czgemv,CZGEMV)
140 #define F77_zgbmv F77_GLOBAL(czgbmv,CZGBMV)
141 #define F77_ztrmv F77_GLOBAL(cztrmv,CZTRMV)
142 #define F77_ztbmv F77_GLOBAL(cztbmv,CZTBMV)
143 #define F77_ztpmv F77_GLOBAL(cztpmv,CZTPMV)
144 #define F77_ztrsv F77_GLOBAL(cztrsv,CZTRSV)
145 #define F77_ztbsv F77_GLOBAL(cztbsv,CZTBSV)
146 #define F77_ztpsv F77_GLOBAL(cztpsv,CZTPSV)
147 /*
148  * Level 3 BLAS
149  */
150 #define F77_s3chke F77_GLOBAL(cs3chke,CS3CHKE)
151 #define F77_d3chke F77_GLOBAL(cd3chke,CD3CHKE)
152 #define F77_c3chke F77_GLOBAL(cc3chke,CC3CHKE)
153 #define F77_z3chke F77_GLOBAL(cz3chke,CZ3CHKE)
154 #define F77_chemm F77_GLOBAL(cchemm,CCHEMM)
155 #define F77_cherk F77_GLOBAL(ccherk,CCHERK)
156 #define F77_cher2k F77_GLOBAL(ccher2k,CCHER2K)
157 #define F77_zhemm F77_GLOBAL(czhemm,CZHEMM)
158 #define F77_zherk F77_GLOBAL(czherk,CZHERK)
159 #define F77_zher2k F77_GLOBAL(czher2k,CZHER2K)
160 #define F77_sgemm F77_GLOBAL(csgemm,CSGEMM)
161 #define F77_ssymm F77_GLOBAL(cssymm,CSSYMM)
162 #define F77_ssyrk F77_GLOBAL(cssyrk,CSSYRK)
163 #define F77_ssyr2k F77_GLOBAL(cssyr2k,CSSYR2K)
164 #define F77_strmm F77_GLOBAL(cstrmm,CSTRMM)
165 #define F77_strsm F77_GLOBAL(cstrsm,CSTRSM)
166 #define F77_dgemm F77_GLOBAL(cdgemm,CDGEMM)
167 #define F77_dsymm F77_GLOBAL(cdsymm,CDSYMM)
168 #define F77_dsyrk F77_GLOBAL(cdsyrk,CDSYRK)
169 #define F77_dsyr2k F77_GLOBAL(cdsyr2k,CDSYR2K)
170 #define F77_dtrmm F77_GLOBAL(cdtrmm,CDTRMM)
171 #define F77_dtrsm F77_GLOBAL(cdtrsm,CDTRSM)
172 #define F77_cgemm F77_GLOBAL(ccgemm,CCGEMM)
173 #define F77_csymm F77_GLOBAL(ccsymm,CCSYMM)
174 #define F77_csyrk F77_GLOBAL(ccsyrk,CCSYRK)
175 #define F77_csyr2k F77_GLOBAL(ccsyr2k,CCSYR2K)
176 #define F77_ctrmm F77_GLOBAL(cctrmm,CCTRMM)
177 #define F77_ctrsm F77_GLOBAL(cctrsm,CCTRSM)
178 #define F77_zgemm F77_GLOBAL(czgemm,CZGEMM)
179 #define F77_zsymm F77_GLOBAL(czsymm,CZSYMM)
180 #define F77_zsyrk F77_GLOBAL(czsyrk,CZSYRK)
181 #define F77_zsyr2k F77_GLOBAL(czsyr2k,CZSYR2K)
182 #define F77_ztrmm F77_GLOBAL(cztrmm,CZTRMM)
183 #define F77_ztrsm F77_GLOBAL(cztrsm, CZTRSM)
184 
185 void get_transpose_type(char *type, CBLAS_TRANSPOSE *trans);
186 void get_uplo_type(char *type, CBLAS_UPLO *uplo);
187 void get_diag_type(char *type, CBLAS_DIAG *diag);
188 void get_side_type(char *type, CBLAS_SIDE *side);
189 
190 #endif /* CBLAS_TEST_H */
CBLAS_DIAG
Definition: cblas.h:22
void get_diag_type(char *type, CBLAS_DIAG *diag)
Definition: auxiliary.c:25
void get_transpose_type(char *type, CBLAS_TRANSPOSE *trans)
Definition: auxiliary.c:8
void get_side_type(char *type, CBLAS_SIDE *side)
Definition: auxiliary.c:32
CBLAS_TRANSPOSE
Definition: cblas.h:20
void get_uplo_type(char *type, CBLAS_UPLO *uplo)
Definition: auxiliary.c:18
CBLAS_UPLO
Definition: cblas.h:21
CBLAS_SIDE
Definition: cblas.h:23