LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
c_z2chke.c
Go to the documentation of this file.
1#include <stdio.h>
2#include <string.h>
3#include "cblas.h"
4#include "cblas_test.h"
5
6CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
7CBLAS_INT link_xerbla=TRUE;
8char *cblas_rout;
9
10#ifdef F77_Char
11void F77_xerbla(F77_Char F77_srname, void *vinfo);
12#else
13void F77_xerbla(char *srname, void *vinfo);
14#endif
15
16void chkxer(void) {
17 extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
18 extern CBLAS_INT link_xerbla;
19 extern char *cblas_rout;
20 if (cblas_lerr == 1 ) {
21 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);
22 cblas_ok = 0 ;
23 }
24 cblas_lerr = 1 ;
25}
26
27void F77_z2chke(char *rout) {
28 char *sf = ( rout ) ;
29 double A[2] = {0.0,0.0},
30 X[2] = {0.0,0.0},
31 Y[2] = {0.0,0.0},
32 ALPHA[2] = {0.0,0.0},
33 BETA[2] = {0.0,0.0},
34 RALPHA = 0.0;
35 extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok;
36 extern int RowMajorStrg;
37 extern char *cblas_rout;
38
39#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
40 if (link_xerbla) /* call these first to link */
41 {
42 cblas_xerbla(cblas_info,cblas_rout,"");
43 F77_xerbla(cblas_rout,&cblas_info);
44 }
45#endif
46
47 cblas_ok = TRUE ;
48 cblas_lerr = PASSED ;
49
50 if (strncmp( sf,"cblas_zgemv",11)==0) {
51 cblas_rout = "cblas_zgemv";
52 cblas_info = 1;
53 cblas_zgemv(INVALID, CblasNoTrans, 0, 0,
54 ALPHA, A, 1, X, 1, BETA, Y, 1 );
55 chkxer();
56 cblas_info = 2; RowMajorStrg = FALSE;
57 cblas_zgemv(CblasColMajor, INVALID, 0, 0,
58 ALPHA, A, 1, X, 1, BETA, Y, 1 );
59 chkxer();
60 cblas_info = 3; RowMajorStrg = FALSE;
61 cblas_zgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
62 ALPHA, A, 1, X, 1, BETA, Y, 1 );
63 chkxer();
64 cblas_info = 4; RowMajorStrg = FALSE;
65 cblas_zgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
66 ALPHA, A, 1, X, 1, BETA, Y, 1 );
67 chkxer();
68 cblas_info = 7; RowMajorStrg = FALSE;
69 cblas_zgemv(CblasColMajor, CblasNoTrans, 2, 0,
70 ALPHA, A, 1, X, 1, BETA, Y, 1 );
71 chkxer();
72 cblas_info = 9; RowMajorStrg = FALSE;
73 cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0,
74 ALPHA, A, 1, X, 0, BETA, Y, 1 );
75 chkxer();
76 cblas_info = 12; RowMajorStrg = FALSE;
77 cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0,
78 ALPHA, A, 1, X, 1, BETA, Y, 0 );
79 chkxer();
80
81 cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
82 cblas_zgemv(CblasRowMajor, INVALID, 0, 0,
83 ALPHA, A, 1, X, 1, BETA, Y, 1 );
84 chkxer();
85 cblas_info = 3; RowMajorStrg = TRUE;
86 cblas_zgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
87 ALPHA, A, 1, X, 1, BETA, Y, 1 );
88 chkxer();
89 cblas_info = 4; RowMajorStrg = TRUE;
90 cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
91 ALPHA, A, 1, X, 1, BETA, Y, 1 );
92 chkxer();
93 cblas_info = 7; RowMajorStrg = TRUE;
94 cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 2,
95 ALPHA, A, 1, X, 1, BETA, Y, 1 );
96 chkxer();
97 cblas_info = 9; RowMajorStrg = TRUE;
98 cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0,
99 ALPHA, A, 1, X, 0, BETA, Y, 1 );
100 chkxer();
101 cblas_info = 12; RowMajorStrg = TRUE;
102 cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0,
103 ALPHA, A, 1, X, 1, BETA, Y, 0 );
104 chkxer();
105 } else if (strncmp( sf,"cblas_zgbmv",11)==0) {
106 cblas_rout = "cblas_zgbmv";
107 cblas_info = 1; RowMajorStrg = FALSE;
108 cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
109 ALPHA, A, 1, X, 1, BETA, Y, 1 );
110 chkxer();
111 cblas_info = 2; RowMajorStrg = FALSE;
112 cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
113 ALPHA, A, 1, X, 1, BETA, Y, 1 );
114 chkxer();
115 cblas_info = 3; RowMajorStrg = FALSE;
116 cblas_zgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
117 ALPHA, A, 1, X, 1, BETA, Y, 1 );
118 chkxer();
119 cblas_info = 4; RowMajorStrg = FALSE;
120 cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
121 ALPHA, A, 1, X, 1, BETA, Y, 1 );
122 chkxer();
123 cblas_info = 5; RowMajorStrg = FALSE;
124 cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
125 ALPHA, A, 1, X, 1, BETA, Y, 1 );
126 chkxer();
127 cblas_info = 6; RowMajorStrg = FALSE;
128 cblas_zgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
129 ALPHA, A, 1, X, 1, BETA, Y, 1 );
130 chkxer();
131 cblas_info = 9; RowMajorStrg = FALSE;
132 cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
133 ALPHA, A, 1, X, 1, BETA, Y, 1 );
134 chkxer();
135 cblas_info = 11; RowMajorStrg = FALSE;
136 cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
137 ALPHA, A, 1, X, 0, BETA, Y, 1 );
138 chkxer();
139 cblas_info = 14; RowMajorStrg = FALSE;
140 cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
141 ALPHA, A, 1, X, 1, BETA, Y, 0 );
142 chkxer();
143 cblas_info = 2; RowMajorStrg = TRUE;
144 cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
145 ALPHA, A, 1, X, 1, BETA, Y, 1 );
146 chkxer();
147 cblas_info = 3; RowMajorStrg = TRUE;
148 cblas_zgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
149 ALPHA, A, 1, X, 1, BETA, Y, 1 );
150 chkxer();
151 cblas_info = 4; RowMajorStrg = TRUE;
152 cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
153 ALPHA, A, 1, X, 1, BETA, Y, 1 );
154 chkxer();
155 cblas_info = 5; RowMajorStrg = TRUE;
156 cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
157 ALPHA, A, 1, X, 1, BETA, Y, 1 );
158 chkxer();
159 cblas_info = 6; RowMajorStrg = TRUE;
160 cblas_zgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
161 ALPHA, A, 1, X, 1, BETA, Y, 1 );
162 chkxer();
163 cblas_info = 9; RowMajorStrg = TRUE;
164 cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
165 ALPHA, A, 1, X, 1, BETA, Y, 1 );
166 chkxer();
167 cblas_info = 11; RowMajorStrg = TRUE;
168 cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
169 ALPHA, A, 1, X, 0, BETA, Y, 1 );
170 chkxer();
171 cblas_info = 14; RowMajorStrg = TRUE;
172 cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
173 ALPHA, A, 1, X, 1, BETA, Y, 0 );
174 chkxer();
175 } else if (strncmp( sf,"cblas_zhemv",11)==0) {
176 cblas_rout = "cblas_zhemv";
177 cblas_info = 1; RowMajorStrg = FALSE;
178 cblas_zhemv(INVALID, CblasUpper, 0,
179 ALPHA, A, 1, X, 1, BETA, Y, 1 );
180 chkxer();
181 cblas_info = 2; RowMajorStrg = FALSE;
182 cblas_zhemv(CblasColMajor, INVALID, 0,
183 ALPHA, A, 1, X, 1, BETA, Y, 1 );
184 chkxer();
185 cblas_info = 3; RowMajorStrg = FALSE;
186 cblas_zhemv(CblasColMajor, CblasUpper, INVALID,
187 ALPHA, A, 1, X, 1, BETA, Y, 1 );
188 chkxer();
189 cblas_info = 6; RowMajorStrg = FALSE;
190 cblas_zhemv(CblasColMajor, CblasUpper, 2,
191 ALPHA, A, 1, X, 1, BETA, Y, 1 );
192 chkxer();
193 cblas_info = 8; RowMajorStrg = FALSE;
194 cblas_zhemv(CblasColMajor, CblasUpper, 0,
195 ALPHA, A, 1, X, 0, BETA, Y, 1 );
196 chkxer();
197 cblas_info = 11; RowMajorStrg = FALSE;
198 cblas_zhemv(CblasColMajor, CblasUpper, 0,
199 ALPHA, A, 1, X, 1, BETA, Y, 0 );
200 chkxer();
201 cblas_info = 2; RowMajorStrg = TRUE;
202 cblas_zhemv(CblasRowMajor, INVALID, 0,
203 ALPHA, A, 1, X, 1, BETA, Y, 1 );
204 chkxer();
205 cblas_info = 3; RowMajorStrg = TRUE;
206 cblas_zhemv(CblasRowMajor, CblasUpper, INVALID,
207 ALPHA, A, 1, X, 1, BETA, Y, 1 );
208 chkxer();
209 cblas_info = 6; RowMajorStrg = TRUE;
210 cblas_zhemv(CblasRowMajor, CblasUpper, 2,
211 ALPHA, A, 1, X, 1, BETA, Y, 1 );
212 chkxer();
213 cblas_info = 8; RowMajorStrg = TRUE;
214 cblas_zhemv(CblasRowMajor, CblasUpper, 0,
215 ALPHA, A, 1, X, 0, BETA, Y, 1 );
216 chkxer();
217 cblas_info = 11; RowMajorStrg = TRUE;
218 cblas_zhemv(CblasRowMajor, CblasUpper, 0,
219 ALPHA, A, 1, X, 1, BETA, Y, 0 );
220 chkxer();
221 } else if (strncmp( sf,"cblas_zhbmv",11)==0) {
222 cblas_rout = "cblas_zhbmv";
223 cblas_info = 1; RowMajorStrg = FALSE;
224 cblas_zhbmv(INVALID, CblasUpper, 0, 0,
225 ALPHA, A, 1, X, 1, BETA, Y, 1 );
226 chkxer();
227 cblas_info = 2; RowMajorStrg = FALSE;
228 cblas_zhbmv(CblasColMajor, INVALID, 0, 0,
229 ALPHA, A, 1, X, 1, BETA, Y, 1 );
230 chkxer();
231 cblas_info = 3; RowMajorStrg = FALSE;
232 cblas_zhbmv(CblasColMajor, CblasUpper, INVALID, 0,
233 ALPHA, A, 1, X, 1, BETA, Y, 1 );
234 chkxer();
235 cblas_info = 4; RowMajorStrg = FALSE;
236 cblas_zhbmv(CblasColMajor, CblasUpper, 0, INVALID,
237 ALPHA, A, 1, X, 1, BETA, Y, 1 );
238 chkxer();
239 cblas_info = 7; RowMajorStrg = FALSE;
240 cblas_zhbmv(CblasColMajor, CblasUpper, 0, 1,
241 ALPHA, A, 1, X, 1, BETA, Y, 1 );
242 chkxer();
243 cblas_info = 9; RowMajorStrg = FALSE;
244 cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0,
245 ALPHA, A, 1, X, 0, BETA, Y, 1 );
246 chkxer();
247 cblas_info = 12; RowMajorStrg = FALSE;
248 cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0,
249 ALPHA, A, 1, X, 1, BETA, Y, 0 );
250 chkxer();
251 cblas_info = 2; RowMajorStrg = TRUE;
252 cblas_zhbmv(CblasRowMajor, INVALID, 0, 0,
253 ALPHA, A, 1, X, 1, BETA, Y, 1 );
254 chkxer();
255 cblas_info = 3; RowMajorStrg = TRUE;
256 cblas_zhbmv(CblasRowMajor, CblasUpper, INVALID, 0,
257 ALPHA, A, 1, X, 1, BETA, Y, 1 );
258 chkxer();
259 cblas_info = 4; RowMajorStrg = TRUE;
260 cblas_zhbmv(CblasRowMajor, CblasUpper, 0, INVALID,
261 ALPHA, A, 1, X, 1, BETA, Y, 1 );
262 chkxer();
263 cblas_info = 7; RowMajorStrg = TRUE;
264 cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 1,
265 ALPHA, A, 1, X, 1, BETA, Y, 1 );
266 chkxer();
267 cblas_info = 9; RowMajorStrg = TRUE;
268 cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0,
269 ALPHA, A, 1, X, 0, BETA, Y, 1 );
270 chkxer();
271 cblas_info = 12; RowMajorStrg = TRUE;
272 cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0,
273 ALPHA, A, 1, X, 1, BETA, Y, 0 );
274 chkxer();
275 } else if (strncmp( sf,"cblas_zhpmv",11)==0) {
276 cblas_rout = "cblas_zhpmv";
277 cblas_info = 1; RowMajorStrg = FALSE;
278 cblas_zhpmv(INVALID, CblasUpper, 0,
279 ALPHA, A, X, 1, BETA, Y, 1 );
280 chkxer();
281 cblas_info = 2; RowMajorStrg = FALSE;
282 cblas_zhpmv(CblasColMajor, INVALID, 0,
283 ALPHA, A, X, 1, BETA, Y, 1 );
284 chkxer();
285 cblas_info = 3; RowMajorStrg = FALSE;
286 cblas_zhpmv(CblasColMajor, CblasUpper, INVALID,
287 ALPHA, A, X, 1, BETA, Y, 1 );
288 chkxer();
289 cblas_info = 7; RowMajorStrg = FALSE;
290 cblas_zhpmv(CblasColMajor, CblasUpper, 0,
291 ALPHA, A, X, 0, BETA, Y, 1 );
292 chkxer();
293 cblas_info = 10; RowMajorStrg = FALSE;
294 cblas_zhpmv(CblasColMajor, CblasUpper, 0,
295 ALPHA, A, X, 1, BETA, Y, 0 );
296 chkxer();
297 cblas_info = 2; RowMajorStrg = TRUE;
298 cblas_zhpmv(CblasRowMajor, INVALID, 0,
299 ALPHA, A, X, 1, BETA, Y, 1 );
300 chkxer();
301 cblas_info = 3; RowMajorStrg = TRUE;
302 cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID,
303 ALPHA, A, X, 1, BETA, Y, 1 );
304 chkxer();
305 cblas_info = 7; RowMajorStrg = TRUE;
306 cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
307 ALPHA, A, X, 0, BETA, Y, 1 );
308 chkxer();
309 cblas_info = 10; RowMajorStrg = TRUE;
310 cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
311 ALPHA, A, X, 1, BETA, Y, 0 );
312 chkxer();
313 } else if (strncmp( sf,"cblas_ztrmv",11)==0) {
314 cblas_rout = "cblas_ztrmv";
315 cblas_info = 1; RowMajorStrg = FALSE;
316 cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans,
317 CblasNonUnit, 0, A, 1, X, 1 );
318 chkxer();
319 cblas_info = 2; RowMajorStrg = FALSE;
320 cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans,
321 CblasNonUnit, 0, A, 1, X, 1 );
322 chkxer();
323 cblas_info = 3; RowMajorStrg = FALSE;
324 cblas_ztrmv(CblasColMajor, CblasUpper, INVALID,
325 CblasNonUnit, 0, A, 1, X, 1 );
326 chkxer();
327 cblas_info = 4; RowMajorStrg = FALSE;
328 cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
329 INVALID, 0, A, 1, X, 1 );
330 chkxer();
331 cblas_info = 5; RowMajorStrg = FALSE;
332 cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
333 CblasNonUnit, INVALID, A, 1, X, 1 );
334 chkxer();
335 cblas_info = 7; RowMajorStrg = FALSE;
336 cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
337 CblasNonUnit, 2, A, 1, X, 1 );
338 chkxer();
339 cblas_info = 9; RowMajorStrg = FALSE;
340 cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
341 CblasNonUnit, 0, A, 1, X, 0 );
342 chkxer();
343 cblas_info = 2; RowMajorStrg = TRUE;
344 cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans,
345 CblasNonUnit, 0, A, 1, X, 1 );
346 chkxer();
347 cblas_info = 3; RowMajorStrg = TRUE;
348 cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID,
349 CblasNonUnit, 0, A, 1, X, 1 );
350 chkxer();
351 cblas_info = 4; RowMajorStrg = TRUE;
352 cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
353 INVALID, 0, A, 1, X, 1 );
354 chkxer();
355 cblas_info = 5; RowMajorStrg = TRUE;
356 cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
357 CblasNonUnit, INVALID, A, 1, X, 1 );
358 chkxer();
359 cblas_info = 7; RowMajorStrg = TRUE;
360 cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
361 CblasNonUnit, 2, A, 1, X, 1 );
362 chkxer();
363 cblas_info = 9; RowMajorStrg = TRUE;
364 cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
365 CblasNonUnit, 0, A, 1, X, 0 );
366 chkxer();
367 } else if (strncmp( sf,"cblas_ztbmv",11)==0) {
368 cblas_rout = "cblas_ztbmv";
369 cblas_info = 1; RowMajorStrg = FALSE;
370 cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans,
371 CblasNonUnit, 0, 0, A, 1, X, 1 );
372 chkxer();
373 cblas_info = 2; RowMajorStrg = FALSE;
374 cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans,
375 CblasNonUnit, 0, 0, A, 1, X, 1 );
376 chkxer();
377 cblas_info = 3; RowMajorStrg = FALSE;
378 cblas_ztbmv(CblasColMajor, CblasUpper, INVALID,
379 CblasNonUnit, 0, 0, A, 1, X, 1 );
380 chkxer();
381 cblas_info = 4; RowMajorStrg = FALSE;
382 cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
383 INVALID, 0, 0, A, 1, X, 1 );
384 chkxer();
385 cblas_info = 5; RowMajorStrg = FALSE;
386 cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
387 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
388 chkxer();
389 cblas_info = 6; RowMajorStrg = FALSE;
390 cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
391 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
392 chkxer();
393 cblas_info = 8; RowMajorStrg = FALSE;
394 cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
395 CblasNonUnit, 0, 1, A, 1, X, 1 );
396 chkxer();
397 cblas_info = 10; RowMajorStrg = FALSE;
398 cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
399 CblasNonUnit, 0, 0, A, 1, X, 0 );
400 chkxer();
401 cblas_info = 2; RowMajorStrg = TRUE;
402 cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans,
403 CblasNonUnit, 0, 0, A, 1, X, 1 );
404 chkxer();
405 cblas_info = 3; RowMajorStrg = TRUE;
406 cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID,
407 CblasNonUnit, 0, 0, A, 1, X, 1 );
408 chkxer();
409 cblas_info = 4; RowMajorStrg = TRUE;
410 cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
411 INVALID, 0, 0, A, 1, X, 1 );
412 chkxer();
413 cblas_info = 5; RowMajorStrg = TRUE;
414 cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
415 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
416 chkxer();
417 cblas_info = 6; RowMajorStrg = TRUE;
418 cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
419 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
420 chkxer();
421 cblas_info = 8; RowMajorStrg = TRUE;
422 cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
423 CblasNonUnit, 0, 1, A, 1, X, 1 );
424 chkxer();
425 cblas_info = 10; RowMajorStrg = TRUE;
426 cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
427 CblasNonUnit, 0, 0, A, 1, X, 0 );
428 chkxer();
429 } else if (strncmp( sf,"cblas_ztpmv",11)==0) {
430 cblas_rout = "cblas_ztpmv";
431 cblas_info = 1; RowMajorStrg = FALSE;
432 cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans,
433 CblasNonUnit, 0, A, X, 1 );
434 chkxer();
435 cblas_info = 2; RowMajorStrg = FALSE;
436 cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans,
437 CblasNonUnit, 0, A, X, 1 );
438 chkxer();
439 cblas_info = 3; RowMajorStrg = FALSE;
440 cblas_ztpmv(CblasColMajor, CblasUpper, INVALID,
441 CblasNonUnit, 0, A, X, 1 );
442 chkxer();
443 cblas_info = 4; RowMajorStrg = FALSE;
444 cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
445 INVALID, 0, A, X, 1 );
446 chkxer();
447 cblas_info = 5; RowMajorStrg = FALSE;
448 cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
449 CblasNonUnit, INVALID, A, X, 1 );
450 chkxer();
451 cblas_info = 8; RowMajorStrg = FALSE;
452 cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
453 CblasNonUnit, 0, A, X, 0 );
454 chkxer();
455 cblas_info = 2; RowMajorStrg = TRUE;
456 cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans,
457 CblasNonUnit, 0, A, X, 1 );
458 chkxer();
459 cblas_info = 3; RowMajorStrg = TRUE;
460 cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID,
461 CblasNonUnit, 0, A, X, 1 );
462 chkxer();
463 cblas_info = 4; RowMajorStrg = TRUE;
464 cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
465 INVALID, 0, A, X, 1 );
466 chkxer();
467 cblas_info = 5; RowMajorStrg = TRUE;
468 cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
469 CblasNonUnit, INVALID, A, X, 1 );
470 chkxer();
471 cblas_info = 8; RowMajorStrg = TRUE;
472 cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
473 CblasNonUnit, 0, A, X, 0 );
474 chkxer();
475 } else if (strncmp( sf,"cblas_ztrsv",11)==0) {
476 cblas_rout = "cblas_ztrsv";
477 cblas_info = 1; RowMajorStrg = FALSE;
478 cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans,
479 CblasNonUnit, 0, A, 1, X, 1 );
480 chkxer();
481 cblas_info = 2; RowMajorStrg = FALSE;
482 cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans,
483 CblasNonUnit, 0, A, 1, X, 1 );
484 chkxer();
485 cblas_info = 3; RowMajorStrg = FALSE;
486 cblas_ztrsv(CblasColMajor, CblasUpper, INVALID,
487 CblasNonUnit, 0, A, 1, X, 1 );
488 chkxer();
489 cblas_info = 4; RowMajorStrg = FALSE;
490 cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
491 INVALID, 0, A, 1, X, 1 );
492 chkxer();
493 cblas_info = 5; RowMajorStrg = FALSE;
494 cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
495 CblasNonUnit, INVALID, A, 1, X, 1 );
496 chkxer();
497 cblas_info = 7; RowMajorStrg = FALSE;
498 cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
499 CblasNonUnit, 2, A, 1, X, 1 );
500 chkxer();
501 cblas_info = 9; RowMajorStrg = FALSE;
502 cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
503 CblasNonUnit, 0, A, 1, X, 0 );
504 chkxer();
505 cblas_info = 2; RowMajorStrg = TRUE;
506 cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans,
507 CblasNonUnit, 0, A, 1, X, 1 );
508 chkxer();
509 cblas_info = 3; RowMajorStrg = TRUE;
510 cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID,
511 CblasNonUnit, 0, A, 1, X, 1 );
512 chkxer();
513 cblas_info = 4; RowMajorStrg = TRUE;
514 cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
515 INVALID, 0, A, 1, X, 1 );
516 chkxer();
517 cblas_info = 5; RowMajorStrg = TRUE;
518 cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
519 CblasNonUnit, INVALID, A, 1, X, 1 );
520 chkxer();
521 cblas_info = 7; RowMajorStrg = TRUE;
522 cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
523 CblasNonUnit, 2, A, 1, X, 1 );
524 chkxer();
525 cblas_info = 9; RowMajorStrg = TRUE;
526 cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
527 CblasNonUnit, 0, A, 1, X, 0 );
528 chkxer();
529 } else if (strncmp( sf,"cblas_ztbsv",11)==0) {
530 cblas_rout = "cblas_ztbsv";
531 cblas_info = 1; RowMajorStrg = FALSE;
532 cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans,
533 CblasNonUnit, 0, 0, A, 1, X, 1 );
534 chkxer();
535 cblas_info = 2; RowMajorStrg = FALSE;
536 cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans,
537 CblasNonUnit, 0, 0, A, 1, X, 1 );
538 chkxer();
539 cblas_info = 3; RowMajorStrg = FALSE;
540 cblas_ztbsv(CblasColMajor, CblasUpper, INVALID,
541 CblasNonUnit, 0, 0, A, 1, X, 1 );
542 chkxer();
543 cblas_info = 4; RowMajorStrg = FALSE;
544 cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
545 INVALID, 0, 0, A, 1, X, 1 );
546 chkxer();
547 cblas_info = 5; RowMajorStrg = FALSE;
548 cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
549 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
550 chkxer();
551 cblas_info = 6; RowMajorStrg = FALSE;
552 cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
553 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
554 chkxer();
555 cblas_info = 8; RowMajorStrg = FALSE;
556 cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
557 CblasNonUnit, 0, 1, A, 1, X, 1 );
558 chkxer();
559 cblas_info = 10; RowMajorStrg = FALSE;
560 cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
561 CblasNonUnit, 0, 0, A, 1, X, 0 );
562 chkxer();
563 cblas_info = 2; RowMajorStrg = TRUE;
564 cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans,
565 CblasNonUnit, 0, 0, A, 1, X, 1 );
566 chkxer();
567 cblas_info = 3; RowMajorStrg = TRUE;
568 cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID,
569 CblasNonUnit, 0, 0, A, 1, X, 1 );
570 chkxer();
571 cblas_info = 4; RowMajorStrg = TRUE;
572 cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
573 INVALID, 0, 0, A, 1, X, 1 );
574 chkxer();
575 cblas_info = 5; RowMajorStrg = TRUE;
576 cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
577 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
578 chkxer();
579 cblas_info = 6; RowMajorStrg = TRUE;
580 cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
581 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
582 chkxer();
583 cblas_info = 8; RowMajorStrg = TRUE;
584 cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
585 CblasNonUnit, 0, 1, A, 1, X, 1 );
586 chkxer();
587 cblas_info = 10; RowMajorStrg = TRUE;
588 cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
589 CblasNonUnit, 0, 0, A, 1, X, 0 );
590 chkxer();
591 } else if (strncmp( sf,"cblas_ztpsv",11)==0) {
592 cblas_rout = "cblas_ztpsv";
593 cblas_info = 1; RowMajorStrg = FALSE;
594 cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans,
595 CblasNonUnit, 0, A, X, 1 );
596 chkxer();
597 cblas_info = 2; RowMajorStrg = FALSE;
598 cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans,
599 CblasNonUnit, 0, A, X, 1 );
600 chkxer();
601 cblas_info = 3; RowMajorStrg = FALSE;
602 cblas_ztpsv(CblasColMajor, CblasUpper, INVALID,
603 CblasNonUnit, 0, A, X, 1 );
604 chkxer();
605 cblas_info = 4; RowMajorStrg = FALSE;
606 cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
607 INVALID, 0, A, X, 1 );
608 chkxer();
609 cblas_info = 5; RowMajorStrg = FALSE;
610 cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
611 CblasNonUnit, INVALID, A, X, 1 );
612 chkxer();
613 cblas_info = 8; RowMajorStrg = FALSE;
614 cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
615 CblasNonUnit, 0, A, X, 0 );
616 chkxer();
617 cblas_info = 2; RowMajorStrg = TRUE;
618 cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans,
619 CblasNonUnit, 0, A, X, 1 );
620 chkxer();
621 cblas_info = 3; RowMajorStrg = TRUE;
622 cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID,
623 CblasNonUnit, 0, A, X, 1 );
624 chkxer();
625 cblas_info = 4; RowMajorStrg = TRUE;
626 cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
627 INVALID, 0, A, X, 1 );
628 chkxer();
629 cblas_info = 5; RowMajorStrg = TRUE;
630 cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
631 CblasNonUnit, INVALID, A, X, 1 );
632 chkxer();
633 cblas_info = 8; RowMajorStrg = TRUE;
634 cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
635 CblasNonUnit, 0, A, X, 0 );
636 chkxer();
637 } else if (strncmp( sf,"cblas_zgeru",10)==0) {
638 cblas_rout = "cblas_zgeru";
639 cblas_info = 1; RowMajorStrg = FALSE;
640 cblas_zgeru(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
641 chkxer();
642 cblas_info = 2; RowMajorStrg = FALSE;
643 cblas_zgeru(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
644 chkxer();
645 cblas_info = 3; RowMajorStrg = FALSE;
646 cblas_zgeru(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
647 chkxer();
648 cblas_info = 6; RowMajorStrg = FALSE;
649 cblas_zgeru(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
650 chkxer();
651 cblas_info = 8; RowMajorStrg = FALSE;
652 cblas_zgeru(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
653 chkxer();
654 cblas_info = 10; RowMajorStrg = FALSE;
655 cblas_zgeru(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
656 chkxer();
657 cblas_info = 2; RowMajorStrg = TRUE;
658 cblas_zgeru(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
659 chkxer();
660 cblas_info = 3; RowMajorStrg = TRUE;
661 cblas_zgeru(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
662 chkxer();
663 cblas_info = 6; RowMajorStrg = TRUE;
664 cblas_zgeru(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
665 chkxer();
666 cblas_info = 8; RowMajorStrg = TRUE;
667 cblas_zgeru(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
668 chkxer();
669 cblas_info = 10; RowMajorStrg = TRUE;
670 cblas_zgeru(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
671 chkxer();
672 } else if (strncmp( sf,"cblas_zgerc",10)==0) {
673 cblas_rout = "cblas_zgerc";
674 cblas_info = 1; RowMajorStrg = FALSE;
675 cblas_zgerc(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
676 chkxer();
677 cblas_info = 2; RowMajorStrg = FALSE;
678 cblas_zgerc(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
679 chkxer();
680 cblas_info = 3; RowMajorStrg = FALSE;
681 cblas_zgerc(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
682 chkxer();
683 cblas_info = 6; RowMajorStrg = FALSE;
684 cblas_zgerc(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
685 chkxer();
686 cblas_info = 8; RowMajorStrg = FALSE;
687 cblas_zgerc(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
688 chkxer();
689 cblas_info = 10; RowMajorStrg = FALSE;
690 cblas_zgerc(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
691 chkxer();
692 cblas_info = 2; RowMajorStrg = TRUE;
693 cblas_zgerc(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
694 chkxer();
695 cblas_info = 3; RowMajorStrg = TRUE;
696 cblas_zgerc(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
697 chkxer();
698 cblas_info = 6; RowMajorStrg = TRUE;
699 cblas_zgerc(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
700 chkxer();
701 cblas_info = 8; RowMajorStrg = TRUE;
702 cblas_zgerc(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
703 chkxer();
704 cblas_info = 10; RowMajorStrg = TRUE;
705 cblas_zgerc(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
706 chkxer();
707 } else if (strncmp( sf,"cblas_zher2",11)==0) {
708 cblas_rout = "cblas_zher2";
709 cblas_info = 1; RowMajorStrg = FALSE;
710 cblas_zher2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
711 chkxer();
712 cblas_info = 2; RowMajorStrg = FALSE;
713 cblas_zher2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
714 chkxer();
715 cblas_info = 3; RowMajorStrg = FALSE;
716 cblas_zher2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
717 chkxer();
718 cblas_info = 6; RowMajorStrg = FALSE;
719 cblas_zher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
720 chkxer();
721 cblas_info = 8; RowMajorStrg = FALSE;
722 cblas_zher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
723 chkxer();
724 cblas_info = 10; RowMajorStrg = FALSE;
725 cblas_zher2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
726 chkxer();
727 cblas_info = 2; RowMajorStrg = TRUE;
728 cblas_zher2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
729 chkxer();
730 cblas_info = 3; RowMajorStrg = TRUE;
731 cblas_zher2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
732 chkxer();
733 cblas_info = 6; RowMajorStrg = TRUE;
734 cblas_zher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
735 chkxer();
736 cblas_info = 8; RowMajorStrg = TRUE;
737 cblas_zher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
738 chkxer();
739 cblas_info = 10; RowMajorStrg = TRUE;
740 cblas_zher2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
741 chkxer();
742 } else if (strncmp( sf,"cblas_zhpr2",11)==0) {
743 cblas_rout = "cblas_zhpr2";
744 cblas_info = 1; RowMajorStrg = FALSE;
745 cblas_zhpr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
746 chkxer();
747 cblas_info = 2; RowMajorStrg = FALSE;
748 cblas_zhpr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
749 chkxer();
750 cblas_info = 3; RowMajorStrg = FALSE;
751 cblas_zhpr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
752 chkxer();
753 cblas_info = 6; RowMajorStrg = FALSE;
754 cblas_zhpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
755 chkxer();
756 cblas_info = 8; RowMajorStrg = FALSE;
757 cblas_zhpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
758 chkxer();
759 cblas_info = 2; RowMajorStrg = TRUE;
760 cblas_zhpr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
761 chkxer();
762 cblas_info = 3; RowMajorStrg = TRUE;
763 cblas_zhpr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
764 chkxer();
765 cblas_info = 6; RowMajorStrg = TRUE;
766 cblas_zhpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
767 chkxer();
768 cblas_info = 8; RowMajorStrg = TRUE;
769 cblas_zhpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
770 chkxer();
771 } else if (strncmp( sf,"cblas_zher",10)==0) {
772 cblas_rout = "cblas_zher";
773 cblas_info = 1; RowMajorStrg = FALSE;
774 cblas_zher(INVALID, CblasUpper, 0, RALPHA, X, 1, A, 1 );
775 chkxer();
776 cblas_info = 2; RowMajorStrg = FALSE;
777 cblas_zher(CblasColMajor, INVALID, 0, RALPHA, X, 1, A, 1 );
778 chkxer();
779 cblas_info = 3; RowMajorStrg = FALSE;
780 cblas_zher(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );
781 chkxer();
782 cblas_info = 6; RowMajorStrg = FALSE;
783 cblas_zher(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );
784 chkxer();
785 cblas_info = 8; RowMajorStrg = FALSE;
786 cblas_zher(CblasColMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );
787 chkxer();
788 cblas_info = 2; RowMajorStrg = TRUE;
789 cblas_zher(CblasRowMajor, INVALID, 0, RALPHA, X, 1, A, 1 );
790 chkxer();
791 cblas_info = 3; RowMajorStrg = TRUE;
792 cblas_zher(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );
793 chkxer();
794 cblas_info = 6; RowMajorStrg = TRUE;
795 cblas_zher(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );
796 chkxer();
797 cblas_info = 8; RowMajorStrg = TRUE;
798 cblas_zher(CblasRowMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );
799 chkxer();
800 } else if (strncmp( sf,"cblas_zhpr",10)==0) {
801 cblas_rout = "cblas_zhpr";
802 cblas_info = 1; RowMajorStrg = FALSE;
803 cblas_zhpr(INVALID, CblasUpper, 0, RALPHA, X, 1, A );
804 chkxer();
805 cblas_info = 2; RowMajorStrg = FALSE;
806 cblas_zhpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );
807 chkxer();
808 cblas_info = 3; RowMajorStrg = FALSE;
809 cblas_zhpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
810 chkxer();
811 cblas_info = 6; RowMajorStrg = FALSE;
812 cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
813 chkxer();
814 cblas_info = 2; RowMajorStrg = FALSE;
815 cblas_zhpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );
816 chkxer();
817 cblas_info = 3; RowMajorStrg = FALSE;
818 cblas_zhpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
819 chkxer();
820 cblas_info = 6; RowMajorStrg = FALSE;
821 cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
822 chkxer();
823 }
824 if (cblas_ok == TRUE)
825 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
826 else
827 printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
828}
cblas_lerr
CBLAS_INT cblas_lerr
Definition c_z2chke.c:6
chkxer
void chkxer(void)
Definition c_z2chke.c:16
cblas_ok
CBLAS_INT cblas_ok
Definition c_z2chke.c:6
cblas_info
CBLAS_INT cblas_info
Definition c_z2chke.c:6
cblas_rout
char * cblas_rout
Definition c_z2chke.c:8
link_xerbla
CBLAS_INT link_xerbla
Definition c_z2chke.c:7
cblas_ztbmv
void cblas_ztbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
Definition cblas_ztbmv.c:10
CblasUpper
@ CblasUpper
Definition cblas.h:41
cblas_xerbla
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
Definition cblas_xerbla.c:12
cblas_ztpmv
void cblas_ztpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX)
Definition cblas_ztpmv.c:10
cblas_ztpsv
void cblas_ztpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX)
Definition cblas_ztpsv.c:10
cblas_zgbmv
void cblas_zgbmv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zgbmv.c:12
CblasNoTrans
@ CblasNoTrans
Definition cblas.h:40
cblas_zher
void cblas_zher(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const void *X, const CBLAS_INT incX, void *A, const CBLAS_INT lda)
Definition cblas_zher.c:12
cblas_ztbsv
void cblas_ztbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
Definition cblas_ztbsv.c:10
cblas_zgeru
void cblas_zgeru(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
Definition cblas_zgeru.c:10
cblas_zhpr2
void cblas_zhpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *Ap)
Definition cblas_zhpr2.c:12
cblas_zhpmv
void cblas_zhpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *Ap, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zhpmv.c:12
CblasColMajor
@ CblasColMajor
Definition cblas.h:39
CblasRowMajor
@ CblasRowMajor
Definition cblas.h:39
cblas_zgemv
void cblas_zgemv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zgemv.c:12
cblas_zher2
void cblas_zher2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
Definition cblas_zher2.c:12
CblasNonUnit
@ CblasNonUnit
Definition cblas.h:42
cblas_zgerc
void cblas_zgerc(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
Definition cblas_zgerc.c:12
cblas_ztrsv
void cblas_ztrsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
Definition cblas_ztrsv.c:10
CBLAS_INT
#define CBLAS_INT
Definition cblas.h:24
cblas_ztrmv
void cblas_ztrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
Definition cblas_ztrmv.c:10
cblas_zhpr
void cblas_zhpr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const void *X, const CBLAS_INT incX, void *A)
Definition cblas_zhpr.c:12
cblas_zhbmv
void cblas_zhbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zhbmv.c:12
cblas_zhemv
void cblas_zhemv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zhemv.c:12
INVALID
#define INVALID
Definition cblas_example2.c:8
F77_xerbla
#define F77_xerbla(...)
Definition cblas_f77.h:562
RowMajorStrg
int RowMajorStrg
Definition cblas_globals.c:2
TRUE
#define TRUE
Definition cblas_test.h:10
FALSE
#define FALSE
Definition cblas_test.h:14
PASSED
#define PASSED
Definition cblas_test.h:11
F77_z2chke
#define F77_z2chke
Definition cblas_test.h:80
cblas_test.h