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