LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
c_z3chke.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 
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 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 
27 void F77_z3chke(char * rout) {
28  char *sf = ( rout ) ;
29  double A[4] = {0.0,0.0,0.0,0.0},
30  B[4] = {0.0,0.0,0.0,0.0},
31  C[4] = {0.0,0.0,0.0,0.0},
32  ALPHA[2] = {0.0,0.0},
33  BETA[2] = {0.0,0.0},
34  RALPHA = 0.0, RBETA = 0.0;
35  extern int cblas_info, cblas_lerr, cblas_ok;
36  extern int RowMajorStrg;
37  extern char *cblas_rout;
38 
39  cblas_ok = TRUE ;
40  cblas_lerr = PASSED ;
41 
42  if (link_xerbla) /* call these first to link */
43  {
44  cblas_xerbla(cblas_info,cblas_rout,"");
45  F77_xerbla(cblas_rout,&cblas_info);
46  }
47 
48  if (strncmp( sf,"cblas_zgemm" ,11)==0) {
49  cblas_rout = "cblas_zgemm" ;
50 
51  cblas_info = 1;
53  ALPHA, A, 1, B, 1, BETA, C, 1 );
54  chkxer();
55  cblas_info = 1;
57  ALPHA, A, 1, B, 1, BETA, C, 1 );
58  chkxer();
59  cblas_info = 1;
61  ALPHA, A, 1, B, 1, BETA, C, 1 );
62  chkxer();
63  cblas_info = 1;
65  ALPHA, A, 1, B, 1, BETA, C, 1 );
66  chkxer();
67  cblas_info = 2; RowMajorStrg = FALSE;
69  ALPHA, A, 1, B, 1, BETA, C, 1 );
70  chkxer();
71  cblas_info = 2; RowMajorStrg = FALSE;
73  ALPHA, A, 1, B, 1, BETA, C, 1 );
74  chkxer();
75  cblas_info = 3; RowMajorStrg = FALSE;
77  ALPHA, A, 1, B, 1, BETA, C, 1 );
78  chkxer();
79  cblas_info = 3; RowMajorStrg = FALSE;
81  ALPHA, A, 1, B, 1, BETA, C, 1 );
82  chkxer();
83  cblas_info = 4; RowMajorStrg = FALSE;
85  ALPHA, A, 1, B, 1, BETA, C, 1 );
86  chkxer();
87  cblas_info = 4; RowMajorStrg = FALSE;
89  ALPHA, A, 1, B, 1, BETA, C, 1 );
90  chkxer();
91  cblas_info = 4; RowMajorStrg = FALSE;
93  ALPHA, A, 1, B, 1, BETA, C, 1 );
94  chkxer();
95  cblas_info = 4; RowMajorStrg = FALSE;
97  ALPHA, A, 1, B, 1, BETA, C, 1 );
98  chkxer();
99  cblas_info = 5; RowMajorStrg = FALSE;
101  ALPHA, A, 1, B, 1, BETA, C, 1 );
102  chkxer();
103  cblas_info = 5; RowMajorStrg = FALSE;
105  ALPHA, A, 1, B, 1, BETA, C, 1 );
106  chkxer();
107  cblas_info = 5; RowMajorStrg = FALSE;
109  ALPHA, A, 1, B, 1, BETA, C, 1 );
110  chkxer();
111  cblas_info = 5; RowMajorStrg = FALSE;
113  ALPHA, A, 1, B, 1, BETA, C, 1 );
114  chkxer();
115  cblas_info = 6; RowMajorStrg = FALSE;
117  ALPHA, A, 1, B, 1, BETA, C, 1 );
118  chkxer();
119  cblas_info = 6; RowMajorStrg = FALSE;
121  ALPHA, A, 1, B, 1, BETA, C, 1 );
122  chkxer();
123  cblas_info = 6; RowMajorStrg = FALSE;
125  ALPHA, A, 1, B, 1, BETA, C, 1 );
126  chkxer();
127  cblas_info = 6; RowMajorStrg = FALSE;
129  ALPHA, A, 1, B, 1, BETA, C, 1 );
130  chkxer();
131  cblas_info = 9; RowMajorStrg = FALSE;
133  ALPHA, A, 1, B, 1, BETA, C, 2 );
134  chkxer();
135  cblas_info = 9; RowMajorStrg = FALSE;
137  ALPHA, A, 1, B, 1, BETA, C, 2 );
138  chkxer();
139  cblas_info = 9; RowMajorStrg = FALSE;
141  ALPHA, A, 1, B, 2, BETA, C, 1 );
142  chkxer();
143  cblas_info = 9; RowMajorStrg = FALSE;
145  ALPHA, A, 1, B, 1, BETA, C, 1 );
146  chkxer();
147  cblas_info = 11; RowMajorStrg = FALSE;
149  ALPHA, A, 1, B, 1, BETA, C, 1 );
150  chkxer();
151  cblas_info = 11; RowMajorStrg = FALSE;
153  ALPHA, A, 2, B, 1, BETA, C, 1 );
154  chkxer();
155  cblas_info = 11; RowMajorStrg = FALSE;
157  ALPHA, A, 1, B, 1, BETA, C, 1 );
158  chkxer();
159  cblas_info = 11; RowMajorStrg = FALSE;
161  ALPHA, A, 1, B, 1, BETA, C, 1 );
162  chkxer();
163  cblas_info = 14; RowMajorStrg = FALSE;
165  ALPHA, A, 2, B, 1, BETA, C, 1 );
166  chkxer();
167  cblas_info = 14; RowMajorStrg = FALSE;
169  ALPHA, A, 2, B, 1, BETA, C, 1 );
170  chkxer();
171  cblas_info = 14; RowMajorStrg = FALSE;
173  ALPHA, A, 1, B, 1, BETA, C, 1 );
174  chkxer();
175  cblas_info = 14; RowMajorStrg = FALSE;
177  ALPHA, A, 1, B, 1, BETA, C, 1 );
178  chkxer();
179  cblas_info = 4; RowMajorStrg = TRUE;
181  ALPHA, A, 1, B, 1, BETA, C, 1 );
182  chkxer();
183  cblas_info = 4; RowMajorStrg = TRUE;
185  ALPHA, A, 1, B, 1, BETA, C, 1 );
186  chkxer();
187  cblas_info = 4; RowMajorStrg = TRUE;
189  ALPHA, A, 1, B, 1, BETA, C, 1 );
190  chkxer();
191  cblas_info = 4; RowMajorStrg = TRUE;
193  ALPHA, A, 1, B, 1, BETA, C, 1 );
194  chkxer();
195  cblas_info = 5; RowMajorStrg = TRUE;
197  ALPHA, A, 1, B, 1, BETA, C, 1 );
198  chkxer();
199  cblas_info = 5; RowMajorStrg = TRUE;
201  ALPHA, A, 1, B, 1, BETA, C, 1 );
202  chkxer();
203  cblas_info = 5; RowMajorStrg = TRUE;
205  ALPHA, A, 1, B, 1, BETA, C, 1 );
206  chkxer();
207  cblas_info = 5; RowMajorStrg = TRUE;
209  ALPHA, A, 1, B, 1, BETA, C, 1 );
210  chkxer();
211  cblas_info = 6; RowMajorStrg = TRUE;
213  ALPHA, A, 1, B, 1, BETA, C, 1 );
214  chkxer();
215  cblas_info = 6; RowMajorStrg = TRUE;
217  ALPHA, A, 1, B, 1, BETA, C, 1 );
218  chkxer();
219  cblas_info = 6; RowMajorStrg = TRUE;
221  ALPHA, A, 1, B, 1, BETA, C, 1 );
222  chkxer();
223  cblas_info = 6; RowMajorStrg = TRUE;
225  ALPHA, A, 1, B, 1, BETA, C, 1 );
226  chkxer();
227  cblas_info = 9; RowMajorStrg = TRUE;
229  ALPHA, A, 1, B, 1, BETA, C, 2 );
230  chkxer();
231  cblas_info = 9; RowMajorStrg = TRUE;
233  ALPHA, A, 1, B, 2, BETA, C, 2 );
234  chkxer();
235  cblas_info = 9; RowMajorStrg = TRUE;
237  ALPHA, A, 1, B, 2, BETA, C, 1 );
238  chkxer();
239  cblas_info = 9; RowMajorStrg = TRUE;
241  ALPHA, A, 1, B, 1, BETA, C, 1 );
242  chkxer();
243  cblas_info = 11; RowMajorStrg = TRUE;
245  ALPHA, A, 1, B, 1, BETA, C, 1 );
246  chkxer();
247  cblas_info = 11; RowMajorStrg = TRUE;
249  ALPHA, A, 2, B, 1, BETA, C, 1 );
250  chkxer();
251  cblas_info = 11; RowMajorStrg = TRUE;
253  ALPHA, A, 2, B, 1, BETA, C, 1 );
254  chkxer();
255  cblas_info = 11; RowMajorStrg = TRUE;
257  ALPHA, A, 1, B, 1, BETA, C, 1 );
258  chkxer();
259  cblas_info = 14; RowMajorStrg = TRUE;
261  ALPHA, A, 1, B, 2, BETA, C, 1 );
262  chkxer();
263  cblas_info = 14; RowMajorStrg = TRUE;
265  ALPHA, A, 1, B, 1, BETA, C, 1 );
266  chkxer();
267  cblas_info = 14; RowMajorStrg = TRUE;
269  ALPHA, A, 1, B, 2, BETA, C, 1 );
270  chkxer();
271  cblas_info = 14; RowMajorStrg = TRUE;
273  ALPHA, A, 1, B, 1, BETA, C, 1 );
274  chkxer();
275 
276  } else if (strncmp( sf,"cblas_zhemm" ,11)==0) {
277  cblas_rout = "cblas_zhemm" ;
278 
279  cblas_info = 1;
281  ALPHA, A, 1, B, 1, BETA, C, 1 );
282  chkxer();
283  cblas_info = 2; RowMajorStrg = FALSE;
285  ALPHA, A, 1, B, 1, BETA, C, 1 );
286  chkxer();
287  cblas_info = 3; RowMajorStrg = FALSE;
289  ALPHA, A, 1, B, 1, BETA, C, 1 );
290  chkxer();
291  cblas_info = 4; RowMajorStrg = FALSE;
293  ALPHA, A, 1, B, 1, BETA, C, 1 );
294  chkxer();
295  cblas_info = 4; RowMajorStrg = FALSE;
297  ALPHA, A, 1, B, 1, BETA, C, 1 );
298  chkxer();
299  cblas_info = 4; RowMajorStrg = FALSE;
301  ALPHA, A, 1, B, 1, BETA, C, 1 );
302  chkxer();
303  cblas_info = 4; RowMajorStrg = FALSE;
305  ALPHA, A, 1, B, 1, BETA, C, 1 );
306  chkxer();
307  cblas_info = 5; RowMajorStrg = FALSE;
309  ALPHA, A, 1, B, 1, BETA, C, 1 );
310  chkxer();
311  cblas_info = 5; RowMajorStrg = FALSE;
313  ALPHA, A, 1, B, 1, BETA, C, 1 );
314  chkxer();
315  cblas_info = 5; RowMajorStrg = FALSE;
317  ALPHA, A, 1, B, 1, BETA, C, 1 );
318  chkxer();
319  cblas_info = 5; RowMajorStrg = FALSE;
321  ALPHA, A, 1, B, 1, BETA, C, 1 );
322  chkxer();
323  cblas_info = 8; RowMajorStrg = FALSE;
325  ALPHA, A, 1, B, 2, BETA, C, 2 );
326  chkxer();
327  cblas_info = 8; RowMajorStrg = FALSE;
329  ALPHA, A, 1, B, 1, BETA, C, 1 );
330  chkxer();
331  cblas_info = 8; RowMajorStrg = FALSE;
333  ALPHA, A, 1, B, 2, BETA, C, 2 );
334  chkxer();
335  cblas_info = 8; RowMajorStrg = FALSE;
337  ALPHA, A, 1, B, 1, BETA, C, 1 );
338  chkxer();
339  cblas_info = 10; RowMajorStrg = FALSE;
341  ALPHA, A, 2, B, 1, BETA, C, 1 );
342  chkxer();
343  cblas_info = 10; RowMajorStrg = FALSE;
345  ALPHA, A, 1, B, 1, BETA, C, 1 );
346  chkxer();
347  cblas_info = 10; RowMajorStrg = FALSE;
349  ALPHA, A, 2, B, 1, BETA, C, 1 );
350  chkxer();
351  cblas_info = 10; RowMajorStrg = FALSE;
353  ALPHA, A, 1, B, 1, BETA, C, 1 );
354  chkxer();
355  cblas_info = 13; RowMajorStrg = FALSE;
357  ALPHA, A, 2, B, 2, BETA, C, 1 );
358  chkxer();
359  cblas_info = 13; RowMajorStrg = FALSE;
361  ALPHA, A, 1, B, 2, BETA, C, 1 );
362  chkxer();
363  cblas_info = 13; RowMajorStrg = FALSE;
365  ALPHA, A, 2, B, 2, BETA, C, 1 );
366  chkxer();
367  cblas_info = 13; RowMajorStrg = FALSE;
369  ALPHA, A, 1, B, 2, BETA, C, 1 );
370  chkxer();
371  cblas_info = 4; RowMajorStrg = TRUE;
373  ALPHA, A, 1, B, 1, BETA, C, 1 );
374  chkxer();
375  cblas_info = 4; RowMajorStrg = TRUE;
377  ALPHA, A, 1, B, 1, BETA, C, 1 );
378  chkxer();
379  cblas_info = 4; RowMajorStrg = TRUE;
381  ALPHA, A, 1, B, 1, BETA, C, 1 );
382  chkxer();
383  cblas_info = 4; RowMajorStrg = TRUE;
385  ALPHA, A, 1, B, 1, BETA, C, 1 );
386  chkxer();
387  cblas_info = 5; RowMajorStrg = TRUE;
389  ALPHA, A, 1, B, 1, BETA, C, 1 );
390  chkxer();
391  cblas_info = 5; RowMajorStrg = TRUE;
393  ALPHA, A, 1, B, 1, BETA, C, 1 );
394  chkxer();
395  cblas_info = 5; RowMajorStrg = TRUE;
397  ALPHA, A, 1, B, 1, BETA, C, 1 );
398  chkxer();
399  cblas_info = 5; RowMajorStrg = TRUE;
401  ALPHA, A, 1, B, 1, BETA, C, 1 );
402  chkxer();
403  cblas_info = 8; RowMajorStrg = TRUE;
405  ALPHA, A, 1, B, 2, BETA, C, 2 );
406  chkxer();
407  cblas_info = 8; RowMajorStrg = TRUE;
409  ALPHA, A, 1, B, 1, BETA, C, 1 );
410  chkxer();
411  cblas_info = 8; RowMajorStrg = TRUE;
413  ALPHA, A, 1, B, 2, BETA, C, 2 );
414  chkxer();
415  cblas_info = 8; RowMajorStrg = TRUE;
417  ALPHA, A, 1, B, 1, BETA, C, 1 );
418  chkxer();
419  cblas_info = 10; RowMajorStrg = TRUE;
421  ALPHA, A, 2, B, 1, BETA, C, 1 );
422  chkxer();
423  cblas_info = 10; RowMajorStrg = TRUE;
425  ALPHA, A, 2, B, 1, BETA, C, 1 );
426  chkxer();
427  cblas_info = 10; RowMajorStrg = TRUE;
429  ALPHA, A, 2, B, 1, BETA, C, 1 );
430  chkxer();
431  cblas_info = 10; RowMajorStrg = TRUE;
433  ALPHA, A, 2, B, 1, BETA, C, 1 );
434  chkxer();
435  cblas_info = 13; RowMajorStrg = TRUE;
437  ALPHA, A, 1, B, 2, BETA, C, 1 );
438  chkxer();
439  cblas_info = 13; RowMajorStrg = TRUE;
441  ALPHA, A, 2, B, 2, BETA, C, 1 );
442  chkxer();
443  cblas_info = 13; RowMajorStrg = TRUE;
445  ALPHA, A, 1, B, 2, BETA, C, 1 );
446  chkxer();
447  cblas_info = 13; RowMajorStrg = TRUE;
449  ALPHA, A, 2, B, 2, BETA, C, 1 );
450  chkxer();
451 
452  } else if (strncmp( sf,"cblas_zsymm" ,11)==0) {
453  cblas_rout = "cblas_zsymm" ;
454 
455  cblas_info = 1;
457  ALPHA, A, 1, B, 1, BETA, C, 1 );
458  chkxer();
459  cblas_info = 2; RowMajorStrg = FALSE;
461  ALPHA, A, 1, B, 1, BETA, C, 1 );
462  chkxer();
463  cblas_info = 3; RowMajorStrg = FALSE;
465  ALPHA, A, 1, B, 1, BETA, C, 1 );
466  chkxer();
467  cblas_info = 4; RowMajorStrg = FALSE;
469  ALPHA, A, 1, B, 1, BETA, C, 1 );
470  chkxer();
471  cblas_info = 4; RowMajorStrg = FALSE;
473  ALPHA, A, 1, B, 1, BETA, C, 1 );
474  chkxer();
475  cblas_info = 4; RowMajorStrg = FALSE;
477  ALPHA, A, 1, B, 1, BETA, C, 1 );
478  chkxer();
479  cblas_info = 4; RowMajorStrg = FALSE;
481  ALPHA, A, 1, B, 1, BETA, C, 1 );
482  chkxer();
483  cblas_info = 5; RowMajorStrg = FALSE;
485  ALPHA, A, 1, B, 1, BETA, C, 1 );
486  chkxer();
487  cblas_info = 5; RowMajorStrg = FALSE;
489  ALPHA, A, 1, B, 1, BETA, C, 1 );
490  chkxer();
491  cblas_info = 5; RowMajorStrg = FALSE;
493  ALPHA, A, 1, B, 1, BETA, C, 1 );
494  chkxer();
495  cblas_info = 5; RowMajorStrg = FALSE;
497  ALPHA, A, 1, B, 1, BETA, C, 1 );
498  chkxer();
499  cblas_info = 8; RowMajorStrg = FALSE;
501  ALPHA, A, 1, B, 2, BETA, C, 2 );
502  chkxer();
503  cblas_info = 8; RowMajorStrg = FALSE;
505  ALPHA, A, 1, B, 1, BETA, C, 1 );
506  chkxer();
507  cblas_info = 8; RowMajorStrg = FALSE;
509  ALPHA, A, 1, B, 2, BETA, C, 2 );
510  chkxer();
511  cblas_info = 8; RowMajorStrg = FALSE;
513  ALPHA, A, 1, B, 1, BETA, C, 1 );
514  chkxer();
515  cblas_info = 10; RowMajorStrg = FALSE;
517  ALPHA, A, 2, B, 1, BETA, C, 1 );
518  chkxer();
519  cblas_info = 10; RowMajorStrg = FALSE;
521  ALPHA, A, 1, B, 1, BETA, C, 1 );
522  chkxer();
523  cblas_info = 10; RowMajorStrg = FALSE;
525  ALPHA, A, 2, B, 1, BETA, C, 1 );
526  chkxer();
527  cblas_info = 10; RowMajorStrg = FALSE;
529  ALPHA, A, 1, B, 1, BETA, C, 1 );
530  chkxer();
531  cblas_info = 13; RowMajorStrg = FALSE;
533  ALPHA, A, 2, B, 2, BETA, C, 1 );
534  chkxer();
535  cblas_info = 13; RowMajorStrg = FALSE;
537  ALPHA, A, 1, B, 2, BETA, C, 1 );
538  chkxer();
539  cblas_info = 13; RowMajorStrg = FALSE;
541  ALPHA, A, 2, B, 2, BETA, C, 1 );
542  chkxer();
543  cblas_info = 13; RowMajorStrg = FALSE;
545  ALPHA, A, 1, B, 2, BETA, C, 1 );
546  chkxer();
547  cblas_info = 4; RowMajorStrg = TRUE;
549  ALPHA, A, 1, B, 1, BETA, C, 1 );
550  chkxer();
551  cblas_info = 4; RowMajorStrg = TRUE;
553  ALPHA, A, 1, B, 1, BETA, C, 1 );
554  chkxer();
555  cblas_info = 4; RowMajorStrg = TRUE;
557  ALPHA, A, 1, B, 1, BETA, C, 1 );
558  chkxer();
559  cblas_info = 4; RowMajorStrg = TRUE;
561  ALPHA, A, 1, B, 1, BETA, C, 1 );
562  chkxer();
563  cblas_info = 5; RowMajorStrg = TRUE;
565  ALPHA, A, 1, B, 1, BETA, C, 1 );
566  chkxer();
567  cblas_info = 5; RowMajorStrg = TRUE;
569  ALPHA, A, 1, B, 1, BETA, C, 1 );
570  chkxer();
571  cblas_info = 5; RowMajorStrg = TRUE;
573  ALPHA, A, 1, B, 1, BETA, C, 1 );
574  chkxer();
575  cblas_info = 5; RowMajorStrg = TRUE;
577  ALPHA, A, 1, B, 1, BETA, C, 1 );
578  chkxer();
579  cblas_info = 8; RowMajorStrg = TRUE;
581  ALPHA, A, 1, B, 2, BETA, C, 2 );
582  chkxer();
583  cblas_info = 8; RowMajorStrg = TRUE;
585  ALPHA, A, 1, B, 1, BETA, C, 1 );
586  chkxer();
587  cblas_info = 8; RowMajorStrg = TRUE;
589  ALPHA, A, 1, B, 2, BETA, C, 2 );
590  chkxer();
591  cblas_info = 8; RowMajorStrg = TRUE;
593  ALPHA, A, 1, B, 1, BETA, C, 1 );
594  chkxer();
595  cblas_info = 10; RowMajorStrg = TRUE;
597  ALPHA, A, 2, B, 1, BETA, C, 1 );
598  chkxer();
599  cblas_info = 10; RowMajorStrg = TRUE;
601  ALPHA, A, 2, B, 1, BETA, C, 1 );
602  chkxer();
603  cblas_info = 10; RowMajorStrg = TRUE;
605  ALPHA, A, 2, B, 1, BETA, C, 1 );
606  chkxer();
607  cblas_info = 10; RowMajorStrg = TRUE;
609  ALPHA, A, 2, B, 1, BETA, C, 1 );
610  chkxer();
611  cblas_info = 13; RowMajorStrg = TRUE;
613  ALPHA, A, 1, B, 2, BETA, C, 1 );
614  chkxer();
615  cblas_info = 13; RowMajorStrg = TRUE;
617  ALPHA, A, 2, B, 2, BETA, C, 1 );
618  chkxer();
619  cblas_info = 13; RowMajorStrg = TRUE;
621  ALPHA, A, 1, B, 2, BETA, C, 1 );
622  chkxer();
623  cblas_info = 13; RowMajorStrg = TRUE;
625  ALPHA, A, 2, B, 2, BETA, C, 1 );
626  chkxer();
627 
628  } else if (strncmp( sf,"cblas_ztrmm" ,11)==0) {
629  cblas_rout = "cblas_ztrmm" ;
630 
631  cblas_info = 1;
633  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
634  chkxer();
635  cblas_info = 2; RowMajorStrg = FALSE;
637  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
638  chkxer();
639  cblas_info = 3; RowMajorStrg = FALSE;
641  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
642  chkxer();
643  cblas_info = 4; RowMajorStrg = FALSE;
645  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
646  chkxer();
647  cblas_info = 5; RowMajorStrg = FALSE;
649  INVALID, 0, 0, ALPHA, A, 1, B, 1 );
650  chkxer();
651  cblas_info = 6; RowMajorStrg = FALSE;
653  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
654  chkxer();
655  cblas_info = 6; RowMajorStrg = FALSE;
657  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
658  chkxer();
659  cblas_info = 6; RowMajorStrg = FALSE;
661  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
662  chkxer();
663  cblas_info = 6; RowMajorStrg = FALSE;
665  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
666  chkxer();
667  cblas_info = 6; RowMajorStrg = FALSE;
669  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
670  chkxer();
671  cblas_info = 6; RowMajorStrg = FALSE;
673  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
674  chkxer();
675  cblas_info = 6; RowMajorStrg = FALSE;
677  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
678  chkxer();
679  cblas_info = 6; RowMajorStrg = FALSE;
681  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
682  chkxer();
683  cblas_info = 7; RowMajorStrg = FALSE;
685  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
686  chkxer();
687  cblas_info = 7; RowMajorStrg = FALSE;
689  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
690  chkxer();
691  cblas_info = 7; RowMajorStrg = FALSE;
693  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
694  chkxer();
695  cblas_info = 7; RowMajorStrg = FALSE;
697  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
698  chkxer();
699  cblas_info = 7; RowMajorStrg = FALSE;
701  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
702  chkxer();
703  cblas_info = 7; RowMajorStrg = FALSE;
705  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
706  chkxer();
707  cblas_info = 7; RowMajorStrg = FALSE;
709  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
710  chkxer();
711  cblas_info = 7; RowMajorStrg = FALSE;
713  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
714  chkxer();
715  cblas_info = 10; RowMajorStrg = FALSE;
717  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
718  chkxer();
719  cblas_info = 10; RowMajorStrg = FALSE;
721  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
722  chkxer();
723  cblas_info = 10; RowMajorStrg = FALSE;
725  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
726  chkxer();
727  cblas_info = 10; RowMajorStrg = FALSE;
729  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
730  chkxer();
731  cblas_info = 10; RowMajorStrg = FALSE;
733  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
734  chkxer();
735  cblas_info = 10; RowMajorStrg = FALSE;
737  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
738  chkxer();
739  cblas_info = 10; RowMajorStrg = FALSE;
741  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
742  chkxer();
743  cblas_info = 10; RowMajorStrg = FALSE;
745  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
746  chkxer();
747  cblas_info = 12; RowMajorStrg = FALSE;
749  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
750  chkxer();
751  cblas_info = 12; RowMajorStrg = FALSE;
753  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
754  chkxer();
755  cblas_info = 12; RowMajorStrg = FALSE;
757  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
758  chkxer();
759  cblas_info = 12; RowMajorStrg = FALSE;
761  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
762  chkxer();
763  cblas_info = 12; RowMajorStrg = FALSE;
765  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
766  chkxer();
767  cblas_info = 12; RowMajorStrg = FALSE;
769  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
770  chkxer();
771  cblas_info = 12; RowMajorStrg = FALSE;
773  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
774  chkxer();
775  cblas_info = 12; RowMajorStrg = FALSE;
777  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
778  chkxer();
779  cblas_info = 6; RowMajorStrg = TRUE;
781  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
782  chkxer();
783  cblas_info = 6; RowMajorStrg = TRUE;
785  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
786  chkxer();
787  cblas_info = 6; RowMajorStrg = TRUE;
789  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
790  chkxer();
791  cblas_info = 6; RowMajorStrg = TRUE;
793  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
794  chkxer();
795  cblas_info = 6; RowMajorStrg = TRUE;
797  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
798  chkxer();
799  cblas_info = 6; RowMajorStrg = TRUE;
801  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
802  chkxer();
803  cblas_info = 6; RowMajorStrg = TRUE;
805  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
806  chkxer();
807  cblas_info = 6; RowMajorStrg = TRUE;
809  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
810  chkxer();
811  cblas_info = 7; RowMajorStrg = TRUE;
813  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
814  chkxer();
815  cblas_info = 7; RowMajorStrg = TRUE;
817  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
818  chkxer();
819  cblas_info = 7; RowMajorStrg = TRUE;
821  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
822  chkxer();
823  cblas_info = 7; RowMajorStrg = TRUE;
825  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
826  chkxer();
827  cblas_info = 7; RowMajorStrg = TRUE;
829  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
830  chkxer();
831  cblas_info = 7; RowMajorStrg = TRUE;
833  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
834  chkxer();
835  cblas_info = 7; RowMajorStrg = TRUE;
837  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
838  chkxer();
839  cblas_info = 7; RowMajorStrg = TRUE;
841  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
842  chkxer();
843  cblas_info = 10; RowMajorStrg = TRUE;
845  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
846  chkxer();
847  cblas_info = 10; RowMajorStrg = TRUE;
849  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
850  chkxer();
851  cblas_info = 10; RowMajorStrg = TRUE;
853  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
854  chkxer();
855  cblas_info = 10; RowMajorStrg = TRUE;
857  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
858  chkxer();
859  cblas_info = 10; RowMajorStrg = TRUE;
861  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
862  chkxer();
863  cblas_info = 10; RowMajorStrg = TRUE;
865  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
866  chkxer();
867  cblas_info = 10; RowMajorStrg = TRUE;
869  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
870  chkxer();
871  cblas_info = 10; RowMajorStrg = TRUE;
873  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
874  chkxer();
875  cblas_info = 12; RowMajorStrg = TRUE;
877  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
878  chkxer();
879  cblas_info = 12; RowMajorStrg = TRUE;
881  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
882  chkxer();
883  cblas_info = 12; RowMajorStrg = TRUE;
885  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
886  chkxer();
887  cblas_info = 12; RowMajorStrg = TRUE;
889  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
890  chkxer();
891  cblas_info = 12; RowMajorStrg = TRUE;
893  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
894  chkxer();
895  cblas_info = 12; RowMajorStrg = TRUE;
897  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
898  chkxer();
899  cblas_info = 12; RowMajorStrg = TRUE;
901  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
902  chkxer();
903  cblas_info = 12; RowMajorStrg = TRUE;
905  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
906  chkxer();
907 
908  } else if (strncmp( sf,"cblas_ztrsm" ,11)==0) {
909  cblas_rout = "cblas_ztrsm" ;
910 
911  cblas_info = 1;
913  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
914  chkxer();
915  cblas_info = 2; RowMajorStrg = FALSE;
917  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
918  chkxer();
919  cblas_info = 3; RowMajorStrg = FALSE;
921  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
922  chkxer();
923  cblas_info = 4; RowMajorStrg = FALSE;
925  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
926  chkxer();
927  cblas_info = 5; RowMajorStrg = FALSE;
929  INVALID, 0, 0, ALPHA, A, 1, B, 1 );
930  chkxer();
931  cblas_info = 6; RowMajorStrg = FALSE;
933  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
934  chkxer();
935  cblas_info = 6; RowMajorStrg = FALSE;
937  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
938  chkxer();
939  cblas_info = 6; RowMajorStrg = FALSE;
941  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
942  chkxer();
943  cblas_info = 6; RowMajorStrg = FALSE;
945  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
946  chkxer();
947  cblas_info = 6; RowMajorStrg = FALSE;
949  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
950  chkxer();
951  cblas_info = 6; RowMajorStrg = FALSE;
953  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
954  chkxer();
955  cblas_info = 6; RowMajorStrg = FALSE;
957  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
958  chkxer();
959  cblas_info = 6; RowMajorStrg = FALSE;
961  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
962  chkxer();
963  cblas_info = 7; RowMajorStrg = FALSE;
965  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
966  chkxer();
967  cblas_info = 7; RowMajorStrg = FALSE;
969  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
970  chkxer();
971  cblas_info = 7; RowMajorStrg = FALSE;
973  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
974  chkxer();
975  cblas_info = 7; RowMajorStrg = FALSE;
977  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
978  chkxer();
979  cblas_info = 7; RowMajorStrg = FALSE;
981  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
982  chkxer();
983  cblas_info = 7; RowMajorStrg = FALSE;
985  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
986  chkxer();
987  cblas_info = 7; RowMajorStrg = FALSE;
989  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
990  chkxer();
991  cblas_info = 7; RowMajorStrg = FALSE;
993  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
994  chkxer();
995  cblas_info = 10; RowMajorStrg = FALSE;
997  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
998  chkxer();
999  cblas_info = 10; RowMajorStrg = FALSE;
1001  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1002  chkxer();
1003  cblas_info = 10; RowMajorStrg = FALSE;
1005  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1006  chkxer();
1007  cblas_info = 10; RowMajorStrg = FALSE;
1009  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1010  chkxer();
1011  cblas_info = 10; RowMajorStrg = FALSE;
1013  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1014  chkxer();
1015  cblas_info = 10; RowMajorStrg = FALSE;
1017  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1018  chkxer();
1019  cblas_info = 10; RowMajorStrg = FALSE;
1021  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1022  chkxer();
1023  cblas_info = 10; RowMajorStrg = FALSE;
1025  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1026  chkxer();
1027  cblas_info = 12; RowMajorStrg = FALSE;
1029  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1030  chkxer();
1031  cblas_info = 12; RowMajorStrg = FALSE;
1033  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1034  chkxer();
1035  cblas_info = 12; RowMajorStrg = FALSE;
1037  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1038  chkxer();
1039  cblas_info = 12; RowMajorStrg = FALSE;
1041  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1042  chkxer();
1043  cblas_info = 12; RowMajorStrg = FALSE;
1045  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1046  chkxer();
1047  cblas_info = 12; RowMajorStrg = FALSE;
1049  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1050  chkxer();
1051  cblas_info = 12; RowMajorStrg = FALSE;
1053  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1054  chkxer();
1055  cblas_info = 12; RowMajorStrg = FALSE;
1057  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1058  chkxer();
1059  cblas_info = 6; RowMajorStrg = TRUE;
1061  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1062  chkxer();
1063  cblas_info = 6; RowMajorStrg = TRUE;
1065  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1066  chkxer();
1067  cblas_info = 6; RowMajorStrg = TRUE;
1069  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1070  chkxer();
1071  cblas_info = 6; RowMajorStrg = TRUE;
1073  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1074  chkxer();
1075  cblas_info = 6; RowMajorStrg = TRUE;
1077  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1078  chkxer();
1079  cblas_info = 6; RowMajorStrg = TRUE;
1081  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1082  chkxer();
1083  cblas_info = 6; RowMajorStrg = TRUE;
1085  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1086  chkxer();
1087  cblas_info = 6; RowMajorStrg = TRUE;
1089  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1090  chkxer();
1091  cblas_info = 7; RowMajorStrg = TRUE;
1093  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1094  chkxer();
1095  cblas_info = 7; RowMajorStrg = TRUE;
1097  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1098  chkxer();
1099  cblas_info = 7; RowMajorStrg = TRUE;
1101  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1102  chkxer();
1103  cblas_info = 7; RowMajorStrg = TRUE;
1105  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1106  chkxer();
1107  cblas_info = 7; RowMajorStrg = TRUE;
1109  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1110  chkxer();
1111  cblas_info = 7; RowMajorStrg = TRUE;
1113  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1114  chkxer();
1115  cblas_info = 7; RowMajorStrg = TRUE;
1117  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1118  chkxer();
1119  cblas_info = 7; RowMajorStrg = TRUE;
1121  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1122  chkxer();
1123  cblas_info = 10; RowMajorStrg = TRUE;
1125  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1126  chkxer();
1127  cblas_info = 10; RowMajorStrg = TRUE;
1129  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1130  chkxer();
1131  cblas_info = 10; RowMajorStrg = TRUE;
1133  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1134  chkxer();
1135  cblas_info = 10; RowMajorStrg = TRUE;
1137  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1138  chkxer();
1139  cblas_info = 10; RowMajorStrg = TRUE;
1141  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1142  chkxer();
1143  cblas_info = 10; RowMajorStrg = TRUE;
1145  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1146  chkxer();
1147  cblas_info = 10; RowMajorStrg = TRUE;
1149  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1150  chkxer();
1151  cblas_info = 10; RowMajorStrg = TRUE;
1153  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1154  chkxer();
1155  cblas_info = 12; RowMajorStrg = TRUE;
1157  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1158  chkxer();
1159  cblas_info = 12; RowMajorStrg = TRUE;
1161  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1162  chkxer();
1163  cblas_info = 12; RowMajorStrg = TRUE;
1165  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1166  chkxer();
1167  cblas_info = 12; RowMajorStrg = TRUE;
1169  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1170  chkxer();
1171  cblas_info = 12; RowMajorStrg = TRUE;
1173  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1174  chkxer();
1175  cblas_info = 12; RowMajorStrg = TRUE;
1177  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1178  chkxer();
1179  cblas_info = 12; RowMajorStrg = TRUE;
1181  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1182  chkxer();
1183  cblas_info = 12; RowMajorStrg = TRUE;
1185  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1186  chkxer();
1187 
1188  } else if (strncmp( sf,"cblas_zherk" ,11)==0) {
1189  cblas_rout = "cblas_zherk" ;
1190 
1191  cblas_info = 1;
1193  RALPHA, A, 1, RBETA, C, 1 );
1194  chkxer();
1195  cblas_info = 2; RowMajorStrg = FALSE;
1197  RALPHA, A, 1, RBETA, C, 1 );
1198  chkxer();
1199  cblas_info = 3; RowMajorStrg = FALSE;
1201  RALPHA, A, 1, RBETA, C, 1 );
1202  chkxer();
1203  cblas_info = 4; RowMajorStrg = FALSE;
1205  RALPHA, A, 1, RBETA, C, 1 );
1206  chkxer();
1207  cblas_info = 4; RowMajorStrg = FALSE;
1209  RALPHA, A, 1, RBETA, C, 1 );
1210  chkxer();
1211  cblas_info = 4; RowMajorStrg = FALSE;
1213  RALPHA, A, 1, RBETA, C, 1 );
1214  chkxer();
1215  cblas_info = 4; RowMajorStrg = FALSE;
1217  RALPHA, A, 1, RBETA, C, 1 );
1218  chkxer();
1219  cblas_info = 5; RowMajorStrg = FALSE;
1221  RALPHA, A, 1, RBETA, C, 1 );
1222  chkxer();
1223  cblas_info = 5; RowMajorStrg = FALSE;
1225  RALPHA, A, 1, RBETA, C, 1 );
1226  chkxer();
1227  cblas_info = 5; RowMajorStrg = FALSE;
1229  RALPHA, A, 1, RBETA, C, 1 );
1230  chkxer();
1231  cblas_info = 5; RowMajorStrg = FALSE;
1233  RALPHA, A, 1, RBETA, C, 1 );
1234  chkxer();
1235  cblas_info = 8; RowMajorStrg = TRUE;
1237  RALPHA, A, 1, RBETA, C, 2 );
1238  chkxer();
1239  cblas_info = 8; RowMajorStrg = TRUE;
1241  RALPHA, A, 1, RBETA, C, 1 );
1242  chkxer();
1243  cblas_info = 8; RowMajorStrg = TRUE;
1245  RALPHA, A, 1, RBETA, C, 2 );
1246  chkxer();
1247  cblas_info = 8; RowMajorStrg = TRUE;
1249  RALPHA, A, 1, RBETA, C, 1 );
1250  chkxer();
1251  cblas_info = 8; RowMajorStrg = FALSE;
1253  RALPHA, A, 1, RBETA, C, 2 );
1254  chkxer();
1255  cblas_info = 8; RowMajorStrg = FALSE;
1257  RALPHA, A, 1, RBETA, C, 1 );
1258  chkxer();
1259  cblas_info = 8; RowMajorStrg = FALSE;
1261  RALPHA, A, 1, RBETA, C, 2 );
1262  chkxer();
1263  cblas_info = 8; RowMajorStrg = FALSE;
1265  RALPHA, A, 1, RBETA, C, 1 );
1266  chkxer();
1267  cblas_info = 11; RowMajorStrg = TRUE;
1269  RALPHA, A, 1, RBETA, C, 1 );
1270  chkxer();
1271  cblas_info = 11; RowMajorStrg = TRUE;
1273  RALPHA, A, 2, RBETA, C, 1 );
1274  chkxer();
1275  cblas_info = 11; RowMajorStrg = TRUE;
1277  RALPHA, A, 1, RBETA, C, 1 );
1278  chkxer();
1279  cblas_info = 11; RowMajorStrg = TRUE;
1281  RALPHA, A, 2, RBETA, C, 1 );
1282  chkxer();
1283  cblas_info = 11; RowMajorStrg = FALSE;
1285  RALPHA, A, 2, RBETA, C, 1 );
1286  chkxer();
1287  cblas_info = 11; RowMajorStrg = FALSE;
1289  RALPHA, A, 1, RBETA, C, 1 );
1290  chkxer();
1291  cblas_info = 11; RowMajorStrg = FALSE;
1293  RALPHA, A, 2, RBETA, C, 1 );
1294  chkxer();
1295  cblas_info = 11; RowMajorStrg = FALSE;
1297  RALPHA, A, 1, RBETA, C, 1 );
1298  chkxer();
1299 
1300  } else if (strncmp( sf,"cblas_zsyrk" ,11)==0) {
1301  cblas_rout = "cblas_zsyrk" ;
1302 
1303  cblas_info = 1;
1305  ALPHA, A, 1, BETA, C, 1 );
1306  chkxer();
1307  cblas_info = 2; RowMajorStrg = FALSE;
1309  ALPHA, A, 1, BETA, C, 1 );
1310  chkxer();
1311  cblas_info = 3; RowMajorStrg = FALSE;
1313  ALPHA, A, 1, BETA, C, 1 );
1314  chkxer();
1315  cblas_info = 4; RowMajorStrg = FALSE;
1317  ALPHA, A, 1, BETA, C, 1 );
1318  chkxer();
1319  cblas_info = 4; RowMajorStrg = FALSE;
1321  ALPHA, A, 1, BETA, C, 1 );
1322  chkxer();
1323  cblas_info = 4; RowMajorStrg = FALSE;
1325  ALPHA, A, 1, BETA, C, 1 );
1326  chkxer();
1327  cblas_info = 4; RowMajorStrg = FALSE;
1329  ALPHA, A, 1, BETA, C, 1 );
1330  chkxer();
1331  cblas_info = 5; RowMajorStrg = FALSE;
1333  ALPHA, A, 1, BETA, C, 1 );
1334  chkxer();
1335  cblas_info = 5; RowMajorStrg = FALSE;
1337  ALPHA, A, 1, BETA, C, 1 );
1338  chkxer();
1339  cblas_info = 5; RowMajorStrg = FALSE;
1341  ALPHA, A, 1, BETA, C, 1 );
1342  chkxer();
1343  cblas_info = 5; RowMajorStrg = FALSE;
1345  ALPHA, A, 1, BETA, C, 1 );
1346  chkxer();
1347  cblas_info = 8; RowMajorStrg = TRUE;
1349  ALPHA, A, 1, BETA, C, 2 );
1350  chkxer();
1351  cblas_info = 8; RowMajorStrg = TRUE;
1353  ALPHA, A, 1, BETA, C, 1 );
1354  chkxer();
1355  cblas_info = 8; RowMajorStrg = TRUE;
1357  ALPHA, A, 1, BETA, C, 2 );
1358  chkxer();
1359  cblas_info = 8; RowMajorStrg = TRUE;
1361  ALPHA, A, 1, BETA, C, 1 );
1362  chkxer();
1363  cblas_info = 8; RowMajorStrg = FALSE;
1365  ALPHA, A, 1, BETA, C, 2 );
1366  chkxer();
1367  cblas_info = 8; RowMajorStrg = FALSE;
1369  ALPHA, A, 1, BETA, C, 1 );
1370  chkxer();
1371  cblas_info = 8; RowMajorStrg = FALSE;
1373  ALPHA, A, 1, BETA, C, 2 );
1374  chkxer();
1375  cblas_info = 8; RowMajorStrg = FALSE;
1377  ALPHA, A, 1, BETA, C, 1 );
1378  chkxer();
1379  cblas_info = 11; RowMajorStrg = TRUE;
1381  ALPHA, A, 1, BETA, C, 1 );
1382  chkxer();
1383  cblas_info = 11; RowMajorStrg = TRUE;
1385  ALPHA, A, 2, BETA, C, 1 );
1386  chkxer();
1387  cblas_info = 11; RowMajorStrg = TRUE;
1389  ALPHA, A, 1, BETA, C, 1 );
1390  chkxer();
1391  cblas_info = 11; RowMajorStrg = TRUE;
1393  ALPHA, A, 2, BETA, C, 1 );
1394  chkxer();
1395  cblas_info = 11; RowMajorStrg = FALSE;
1397  ALPHA, A, 2, BETA, C, 1 );
1398  chkxer();
1399  cblas_info = 11; RowMajorStrg = FALSE;
1401  ALPHA, A, 1, BETA, C, 1 );
1402  chkxer();
1403  cblas_info = 11; RowMajorStrg = FALSE;
1405  ALPHA, A, 2, BETA, C, 1 );
1406  chkxer();
1407  cblas_info = 11; RowMajorStrg = FALSE;
1409  ALPHA, A, 1, BETA, C, 1 );
1410  chkxer();
1411 
1412  } else if (strncmp( sf,"cblas_zher2k" ,12)==0) {
1413  cblas_rout = "cblas_zher2k" ;
1414 
1415  cblas_info = 1;
1417  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1418  chkxer();
1419  cblas_info = 2; RowMajorStrg = FALSE;
1421  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1422  chkxer();
1423  cblas_info = 3; RowMajorStrg = FALSE;
1425  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1426  chkxer();
1427  cblas_info = 4; RowMajorStrg = FALSE;
1429  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1430  chkxer();
1431  cblas_info = 4; RowMajorStrg = FALSE;
1433  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1434  chkxer();
1435  cblas_info = 4; RowMajorStrg = FALSE;
1437  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1438  chkxer();
1439  cblas_info = 4; RowMajorStrg = FALSE;
1441  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1442  chkxer();
1443  cblas_info = 5; RowMajorStrg = FALSE;
1445  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1446  chkxer();
1447  cblas_info = 5; RowMajorStrg = FALSE;
1449  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1450  chkxer();
1451  cblas_info = 5; RowMajorStrg = FALSE;
1453  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1454  chkxer();
1455  cblas_info = 5; RowMajorStrg = FALSE;
1457  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1458  chkxer();
1459  cblas_info = 8; RowMajorStrg = TRUE;
1461  ALPHA, A, 1, B, 2, RBETA, C, 2 );
1462  chkxer();
1463  cblas_info = 8; RowMajorStrg = TRUE;
1465  ALPHA, A, 1, B, 2, RBETA, C, 1 );
1466  chkxer();
1467  cblas_info = 8; RowMajorStrg = TRUE;
1469  ALPHA, A, 1, B, 2, RBETA, C, 2 );
1470  chkxer();
1471  cblas_info = 8; RowMajorStrg = TRUE;
1473  ALPHA, A, 1, B, 2, RBETA, C, 1 );
1474  chkxer();
1475  cblas_info = 8; RowMajorStrg = FALSE;
1477  ALPHA, A, 1, B, 1, RBETA, C, 2 );
1478  chkxer();
1479  cblas_info = 8; RowMajorStrg = FALSE;
1481  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1482  chkxer();
1483  cblas_info = 8; RowMajorStrg = FALSE;
1485  ALPHA, A, 1, B, 1, RBETA, C, 2 );
1486  chkxer();
1487  cblas_info = 8; RowMajorStrg = FALSE;
1489  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1490  chkxer();
1491  cblas_info = 10; RowMajorStrg = TRUE;
1493  ALPHA, A, 2, B, 1, RBETA, C, 2 );
1494  chkxer();
1495  cblas_info = 10; RowMajorStrg = TRUE;
1497  ALPHA, A, 2, B, 1, RBETA, C, 1 );
1498  chkxer();
1499  cblas_info = 10; RowMajorStrg = TRUE;
1501  ALPHA, A, 2, B, 1, RBETA, C, 2 );
1502  chkxer();
1503  cblas_info = 10; RowMajorStrg = TRUE;
1505  ALPHA, A, 2, B, 1, RBETA, C, 1 );
1506  chkxer();
1507  cblas_info = 10; RowMajorStrg = FALSE;
1509  ALPHA, A, 2, B, 1, RBETA, C, 2 );
1510  chkxer();
1511  cblas_info = 10; RowMajorStrg = FALSE;
1513  ALPHA, A, 2, B, 1, RBETA, C, 1 );
1514  chkxer();
1515  cblas_info = 10; RowMajorStrg = FALSE;
1517  ALPHA, A, 2, B, 1, RBETA, C, 2 );
1518  chkxer();
1519  cblas_info = 10; RowMajorStrg = FALSE;
1521  ALPHA, A, 2, B, 1, RBETA, C, 1 );
1522  chkxer();
1523  cblas_info = 13; RowMajorStrg = TRUE;
1525  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1526  chkxer();
1527  cblas_info = 13; RowMajorStrg = TRUE;
1529  ALPHA, A, 2, B, 2, RBETA, C, 1 );
1530  chkxer();
1531  cblas_info = 13; RowMajorStrg = TRUE;
1533  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1534  chkxer();
1535  cblas_info = 13; RowMajorStrg = TRUE;
1537  ALPHA, A, 2, B, 2, RBETA, C, 1 );
1538  chkxer();
1539  cblas_info = 13; RowMajorStrg = FALSE;
1541  ALPHA, A, 2, B, 2, RBETA, C, 1 );
1542  chkxer();
1543  cblas_info = 13; RowMajorStrg = FALSE;
1545  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1546  chkxer();
1547  cblas_info = 13; RowMajorStrg = FALSE;
1549  ALPHA, A, 2, B, 2, RBETA, C, 1 );
1550  chkxer();
1551  cblas_info = 13; RowMajorStrg = FALSE;
1553  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1554  chkxer();
1555 
1556  } else if (strncmp( sf,"cblas_zsyr2k" ,12)==0) {
1557  cblas_rout = "cblas_zsyr2k" ;
1558 
1559  cblas_info = 1;
1561  ALPHA, A, 1, B, 1, BETA, C, 1 );
1562  chkxer();
1563  cblas_info = 2; RowMajorStrg = FALSE;
1565  ALPHA, A, 1, B, 1, BETA, C, 1 );
1566  chkxer();
1567  cblas_info = 3; RowMajorStrg = FALSE;
1569  ALPHA, A, 1, B, 1, BETA, C, 1 );
1570  chkxer();
1571  cblas_info = 4; RowMajorStrg = FALSE;
1573  ALPHA, A, 1, B, 1, BETA, C, 1 );
1574  chkxer();
1575  cblas_info = 4; RowMajorStrg = FALSE;
1577  ALPHA, A, 1, B, 1, BETA, C, 1 );
1578  chkxer();
1579  cblas_info = 4; RowMajorStrg = FALSE;
1581  ALPHA, A, 1, B, 1, BETA, C, 1 );
1582  chkxer();
1583  cblas_info = 4; RowMajorStrg = FALSE;
1585  ALPHA, A, 1, B, 1, BETA, C, 1 );
1586  chkxer();
1587  cblas_info = 5; RowMajorStrg = FALSE;
1589  ALPHA, A, 1, B, 1, BETA, C, 1 );
1590  chkxer();
1591  cblas_info = 5; RowMajorStrg = FALSE;
1593  ALPHA, A, 1, B, 1, BETA, C, 1 );
1594  chkxer();
1595  cblas_info = 5; RowMajorStrg = FALSE;
1597  ALPHA, A, 1, B, 1, BETA, C, 1 );
1598  chkxer();
1599  cblas_info = 5; RowMajorStrg = FALSE;
1601  ALPHA, A, 1, B, 1, BETA, C, 1 );
1602  chkxer();
1603  cblas_info = 8; RowMajorStrg = TRUE;
1605  ALPHA, A, 1, B, 2, BETA, C, 2 );
1606  chkxer();
1607  cblas_info = 8; RowMajorStrg = TRUE;
1609  ALPHA, A, 1, B, 2, BETA, C, 1 );
1610  chkxer();
1611  cblas_info = 8; RowMajorStrg = TRUE;
1613  ALPHA, A, 1, B, 2, BETA, C, 2 );
1614  chkxer();
1615  cblas_info = 8; RowMajorStrg = TRUE;
1617  ALPHA, A, 1, B, 2, BETA, C, 1 );
1618  chkxer();
1619  cblas_info = 8; RowMajorStrg = FALSE;
1621  ALPHA, A, 1, B, 1, BETA, C, 2 );
1622  chkxer();
1623  cblas_info = 8; RowMajorStrg = FALSE;
1625  ALPHA, A, 1, B, 1, BETA, C, 1 );
1626  chkxer();
1627  cblas_info = 8; RowMajorStrg = FALSE;
1629  ALPHA, A, 1, B, 1, BETA, C, 2 );
1630  chkxer();
1631  cblas_info = 8; RowMajorStrg = FALSE;
1633  ALPHA, A, 1, B, 1, BETA, C, 1 );
1634  chkxer();
1635  cblas_info = 10; RowMajorStrg = TRUE;
1637  ALPHA, A, 2, B, 1, BETA, C, 2 );
1638  chkxer();
1639  cblas_info = 10; RowMajorStrg = TRUE;
1641  ALPHA, A, 2, B, 1, BETA, C, 1 );
1642  chkxer();
1643  cblas_info = 10; RowMajorStrg = TRUE;
1645  ALPHA, A, 2, B, 1, BETA, C, 2 );
1646  chkxer();
1647  cblas_info = 10; RowMajorStrg = TRUE;
1649  ALPHA, A, 2, B, 1, BETA, C, 1 );
1650  chkxer();
1651  cblas_info = 10; RowMajorStrg = FALSE;
1653  ALPHA, A, 2, B, 1, BETA, C, 2 );
1654  chkxer();
1655  cblas_info = 10; RowMajorStrg = FALSE;
1657  ALPHA, A, 2, B, 1, BETA, C, 1 );
1658  chkxer();
1659  cblas_info = 10; RowMajorStrg = FALSE;
1661  ALPHA, A, 2, B, 1, BETA, C, 2 );
1662  chkxer();
1663  cblas_info = 10; RowMajorStrg = FALSE;
1665  ALPHA, A, 2, B, 1, BETA, C, 1 );
1666  chkxer();
1667  cblas_info = 13; RowMajorStrg = TRUE;
1669  ALPHA, A, 1, B, 1, BETA, C, 1 );
1670  chkxer();
1671  cblas_info = 13; RowMajorStrg = TRUE;
1673  ALPHA, A, 2, B, 2, BETA, C, 1 );
1674  chkxer();
1675  cblas_info = 13; RowMajorStrg = TRUE;
1677  ALPHA, A, 1, B, 1, BETA, C, 1 );
1678  chkxer();
1679  cblas_info = 13; RowMajorStrg = TRUE;
1681  ALPHA, A, 2, B, 2, BETA, C, 1 );
1682  chkxer();
1683  cblas_info = 13; RowMajorStrg = FALSE;
1685  ALPHA, A, 2, B, 2, BETA, C, 1 );
1686  chkxer();
1687  cblas_info = 13; RowMajorStrg = FALSE;
1689  ALPHA, A, 1, B, 1, BETA, C, 1 );
1690  chkxer();
1691  cblas_info = 13; RowMajorStrg = FALSE;
1693  ALPHA, A, 2, B, 2, BETA, C, 1 );
1694  chkxer();
1695  cblas_info = 13; RowMajorStrg = FALSE;
1697  ALPHA, A, 1, B, 1, BETA, C, 1 );
1698  chkxer();
1699 
1700  }
1701 
1702  if (cblas_ok == 1 )
1703  printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1704  else
1705  printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
1706 }
void cblas_ztrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const int M, const int N, const void *alpha, const void *A, const int lda, void *B, const int ldb)
Definition: cblas_ztrsm.c:12
#define PASSED
Definition: cblas_test.h:11
void cblas_zsyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const int N, const int K, const void *alpha, const void *A, const int lda, const void *beta, void *C, const int ldc)
Definition: cblas_zsyrk.c:12
#define FALSE
Definition: cblas_test.h:14
void cblas_zherk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const int N, const int K, const double alpha, const void *A, const int lda, const double beta, void *C, const int ldc)
Definition: cblas_zherk.c:12
int cblas_info
Definition: c_z3chke.c:6
int RowMajorStrg
Definition: cblas_globals.c:2
void cblas_zgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const int M, const int N, const int K, const void *alpha, const void *A, const int lda, const void *B, const int ldb, const void *beta, void *C, const int ldc)
Definition: cblas_zgemm.c:12
void cblas_ztrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const int M, const int N, const void *alpha, const void *A, const int lda, void *B, const int ldb)
Definition: cblas_ztrmm.c:12
void cblas_zher2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const int N, const int K, const void *alpha, const void *A, const int lda, const void *B, const int ldb, const double beta, void *C, const int ldc)
Definition: cblas_zher2k.c:12
void F77_z3chke(char *rout)
Definition: c_z3chke.c:27
char * cblas_rout
Definition: c_z3chke.c:8
#define TRUE
Definition: cblas_test.h:10
int link_xerbla
Definition: c_z3chke.c:7
int cblas_lerr
Definition: c_z3chke.c:6
void chkxer(void)
Definition: c_z3chke.c:16
int cblas_ok
Definition: c_z3chke.c:6
void F77_xerbla(char *srname, void *vinfo)
Definition: xerbla.c:12
void cblas_zsyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const int N, const int K, const void *alpha, const void *A, const int lda, const void *B, const int ldb, const void *beta, void *C, const int ldc)
Definition: cblas_zsyr2k.c:12
void cblas_zhemm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const int M, const int N, const void *alpha, const void *A, const int lda, const void *B, const int ldb, const void *beta, void *C, const int ldc)
Definition: cblas_zhemm.c:12
#define INVALID
Definition: cblas_example2.c:8
void cblas_xerbla(int p, const char *rout, const char *form,...)
Definition: cblas_xerbla.c:8
void cblas_zsymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const int M, const int N, const void *alpha, const void *A, const int lda, const void *B, const int ldb, const void *beta, void *C, const int ldc)
Definition: cblas_zsymm.c:12