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