LAPACK  3.10.0
LAPACK: Linear Algebra PACKage
c_c3chke.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_c3chke(char * rout) {
28  char *sf = ( rout ) ;
29  float 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 #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
43  if (link_xerbla) /* call these first to link */
44  {
47  }
48 #endif
49 
50  if (strncmp( sf,"cblas_cgemm" ,11)==0) {
51  cblas_rout = "cblas_cgemm" ;
52 
53  cblas_info = 1;
55  ALPHA, A, 1, B, 1, BETA, C, 1 );
56  chkxer();
57  cblas_info = 1;
59  ALPHA, A, 1, B, 1, BETA, C, 1 );
60  chkxer();
61  cblas_info = 1;
63  ALPHA, A, 1, B, 1, BETA, C, 1 );
64  chkxer();
65  cblas_info = 1;
67  ALPHA, A, 1, B, 1, BETA, C, 1 );
68  chkxer();
71  ALPHA, A, 1, B, 1, BETA, C, 1 );
72  chkxer();
75  ALPHA, A, 1, B, 1, BETA, C, 1 );
76  chkxer();
79  ALPHA, A, 1, B, 1, BETA, C, 1 );
80  chkxer();
83  ALPHA, A, 1, B, 1, BETA, C, 1 );
84  chkxer();
87  ALPHA, A, 1, B, 1, BETA, C, 1 );
88  chkxer();
91  ALPHA, A, 1, B, 1, BETA, C, 1 );
92  chkxer();
95  ALPHA, A, 1, B, 1, BETA, C, 1 );
96  chkxer();
99  ALPHA, A, 1, B, 1, BETA, C, 1 );
100  chkxer();
103  ALPHA, A, 1, B, 1, BETA, C, 1 );
104  chkxer();
107  ALPHA, A, 1, B, 1, BETA, C, 1 );
108  chkxer();
111  ALPHA, A, 1, B, 1, BETA, C, 1 );
112  chkxer();
115  ALPHA, A, 1, B, 1, BETA, C, 1 );
116  chkxer();
119  ALPHA, A, 1, B, 1, BETA, C, 1 );
120  chkxer();
123  ALPHA, A, 1, B, 1, BETA, C, 1 );
124  chkxer();
127  ALPHA, A, 1, B, 1, BETA, C, 1 );
128  chkxer();
131  ALPHA, A, 1, B, 1, BETA, C, 1 );
132  chkxer();
135  ALPHA, A, 1, B, 1, BETA, C, 2 );
136  chkxer();
139  ALPHA, A, 1, B, 1, BETA, C, 2 );
140  chkxer();
143  ALPHA, A, 1, B, 2, BETA, C, 1 );
144  chkxer();
147  ALPHA, A, 1, B, 1, BETA, C, 1 );
148  chkxer();
149  cblas_info = 11; RowMajorStrg = FALSE;
151  ALPHA, A, 1, B, 1, BETA, C, 1 );
152  chkxer();
153  cblas_info = 11; RowMajorStrg = FALSE;
155  ALPHA, A, 2, B, 1, BETA, C, 1 );
156  chkxer();
157  cblas_info = 11; RowMajorStrg = FALSE;
159  ALPHA, A, 1, B, 1, BETA, C, 1 );
160  chkxer();
161  cblas_info = 11; RowMajorStrg = FALSE;
163  ALPHA, A, 1, B, 1, BETA, C, 1 );
164  chkxer();
165  cblas_info = 14; RowMajorStrg = FALSE;
167  ALPHA, A, 2, B, 1, BETA, C, 1 );
168  chkxer();
169  cblas_info = 14; RowMajorStrg = FALSE;
171  ALPHA, A, 2, B, 1, BETA, C, 1 );
172  chkxer();
173  cblas_info = 14; RowMajorStrg = FALSE;
175  ALPHA, A, 1, B, 1, BETA, C, 1 );
176  chkxer();
177  cblas_info = 14; RowMajorStrg = FALSE;
179  ALPHA, A, 1, B, 1, BETA, C, 1 );
180  chkxer();
183  ALPHA, A, 1, B, 1, BETA, C, 1 );
184  chkxer();
187  ALPHA, A, 1, B, 1, BETA, C, 1 );
188  chkxer();
191  ALPHA, A, 1, B, 1, BETA, C, 1 );
192  chkxer();
195  ALPHA, A, 1, B, 1, BETA, C, 1 );
196  chkxer();
199  ALPHA, A, 1, B, 1, BETA, C, 1 );
200  chkxer();
203  ALPHA, A, 1, B, 1, BETA, C, 1 );
204  chkxer();
207  ALPHA, A, 1, B, 1, BETA, C, 1 );
208  chkxer();
211  ALPHA, A, 1, B, 1, BETA, C, 1 );
212  chkxer();
215  ALPHA, A, 1, B, 1, BETA, C, 1 );
216  chkxer();
219  ALPHA, A, 1, B, 1, BETA, C, 1 );
220  chkxer();
223  ALPHA, A, 1, B, 1, BETA, C, 1 );
224  chkxer();
227  ALPHA, A, 1, B, 1, BETA, C, 1 );
228  chkxer();
231  ALPHA, A, 1, B, 1, BETA, C, 2 );
232  chkxer();
235  ALPHA, A, 1, B, 2, BETA, C, 2 );
236  chkxer();
239  ALPHA, A, 1, B, 2, BETA, C, 1 );
240  chkxer();
243  ALPHA, A, 1, B, 1, BETA, C, 1 );
244  chkxer();
245  cblas_info = 11; RowMajorStrg = TRUE;
247  ALPHA, A, 1, B, 1, BETA, C, 1 );
248  chkxer();
249  cblas_info = 11; RowMajorStrg = TRUE;
251  ALPHA, A, 2, B, 1, BETA, C, 1 );
252  chkxer();
253  cblas_info = 11; RowMajorStrg = TRUE;
255  ALPHA, A, 2, B, 1, BETA, C, 1 );
256  chkxer();
257  cblas_info = 11; RowMajorStrg = TRUE;
259  ALPHA, A, 1, B, 1, BETA, C, 1 );
260  chkxer();
261  cblas_info = 14; RowMajorStrg = TRUE;
263  ALPHA, A, 1, B, 2, BETA, C, 1 );
264  chkxer();
265  cblas_info = 14; RowMajorStrg = TRUE;
267  ALPHA, A, 1, B, 1, BETA, C, 1 );
268  chkxer();
269  cblas_info = 14; RowMajorStrg = TRUE;
271  ALPHA, A, 1, B, 2, BETA, C, 1 );
272  chkxer();
273  cblas_info = 14; RowMajorStrg = TRUE;
275  ALPHA, A, 1, B, 1, BETA, C, 1 );
276  chkxer();
277 
278  } else if (strncmp( sf,"cblas_chemm" ,11)==0) {
279  cblas_rout = "cblas_chemm" ;
280 
281  cblas_info = 1;
283  ALPHA, A, 1, B, 1, BETA, C, 1 );
284  chkxer();
287  ALPHA, A, 1, B, 1, BETA, C, 1 );
288  chkxer();
291  ALPHA, A, 1, B, 1, BETA, C, 1 );
292  chkxer();
295  ALPHA, A, 1, B, 1, BETA, C, 1 );
296  chkxer();
299  ALPHA, A, 1, B, 1, BETA, C, 1 );
300  chkxer();
303  ALPHA, A, 1, B, 1, BETA, C, 1 );
304  chkxer();
307  ALPHA, A, 1, B, 1, BETA, C, 1 );
308  chkxer();
311  ALPHA, A, 1, B, 1, BETA, C, 1 );
312  chkxer();
315  ALPHA, A, 1, B, 1, BETA, C, 1 );
316  chkxer();
319  ALPHA, A, 1, B, 1, BETA, C, 1 );
320  chkxer();
323  ALPHA, A, 1, B, 1, BETA, C, 1 );
324  chkxer();
327  ALPHA, A, 1, B, 2, BETA, C, 2 );
328  chkxer();
331  ALPHA, A, 1, B, 1, BETA, C, 1 );
332  chkxer();
335  ALPHA, A, 1, B, 2, BETA, C, 2 );
336  chkxer();
339  ALPHA, A, 1, B, 1, BETA, C, 1 );
340  chkxer();
341  cblas_info = 10; RowMajorStrg = FALSE;
343  ALPHA, A, 2, B, 1, BETA, C, 1 );
344  chkxer();
345  cblas_info = 10; RowMajorStrg = FALSE;
347  ALPHA, A, 1, B, 1, BETA, C, 1 );
348  chkxer();
349  cblas_info = 10; RowMajorStrg = FALSE;
351  ALPHA, A, 2, B, 1, BETA, C, 1 );
352  chkxer();
353  cblas_info = 10; RowMajorStrg = FALSE;
355  ALPHA, A, 1, B, 1, BETA, C, 1 );
356  chkxer();
357  cblas_info = 13; RowMajorStrg = FALSE;
359  ALPHA, A, 2, B, 2, BETA, C, 1 );
360  chkxer();
361  cblas_info = 13; RowMajorStrg = FALSE;
363  ALPHA, A, 1, B, 2, BETA, C, 1 );
364  chkxer();
365  cblas_info = 13; RowMajorStrg = FALSE;
367  ALPHA, A, 2, B, 2, BETA, C, 1 );
368  chkxer();
369  cblas_info = 13; RowMajorStrg = FALSE;
371  ALPHA, A, 1, B, 2, BETA, C, 1 );
372  chkxer();
375  ALPHA, A, 1, B, 1, BETA, C, 1 );
376  chkxer();
379  ALPHA, A, 1, B, 1, BETA, C, 1 );
380  chkxer();
383  ALPHA, A, 1, B, 1, BETA, C, 1 );
384  chkxer();
387  ALPHA, A, 1, B, 1, BETA, C, 1 );
388  chkxer();
391  ALPHA, A, 1, B, 1, BETA, C, 1 );
392  chkxer();
395  ALPHA, A, 1, B, 1, BETA, C, 1 );
396  chkxer();
399  ALPHA, A, 1, B, 1, BETA, C, 1 );
400  chkxer();
403  ALPHA, A, 1, B, 1, BETA, C, 1 );
404  chkxer();
407  ALPHA, A, 1, B, 2, BETA, C, 2 );
408  chkxer();
411  ALPHA, A, 1, B, 1, BETA, C, 1 );
412  chkxer();
415  ALPHA, A, 1, B, 2, BETA, C, 2 );
416  chkxer();
419  ALPHA, A, 1, B, 1, BETA, C, 1 );
420  chkxer();
421  cblas_info = 10; RowMajorStrg = TRUE;
423  ALPHA, A, 2, B, 1, BETA, C, 1 );
424  chkxer();
425  cblas_info = 10; RowMajorStrg = TRUE;
427  ALPHA, A, 2, B, 1, BETA, C, 1 );
428  chkxer();
429  cblas_info = 10; RowMajorStrg = TRUE;
431  ALPHA, A, 2, B, 1, BETA, C, 1 );
432  chkxer();
433  cblas_info = 10; RowMajorStrg = TRUE;
435  ALPHA, A, 2, B, 1, BETA, C, 1 );
436  chkxer();
437  cblas_info = 13; RowMajorStrg = TRUE;
439  ALPHA, A, 1, B, 2, BETA, C, 1 );
440  chkxer();
441  cblas_info = 13; RowMajorStrg = TRUE;
443  ALPHA, A, 2, B, 2, BETA, C, 1 );
444  chkxer();
445  cblas_info = 13; RowMajorStrg = TRUE;
447  ALPHA, A, 1, B, 2, BETA, C, 1 );
448  chkxer();
449  cblas_info = 13; RowMajorStrg = TRUE;
451  ALPHA, A, 2, B, 2, BETA, C, 1 );
452  chkxer();
453 
454  } else if (strncmp( sf,"cblas_csymm" ,11)==0) {
455  cblas_rout = "cblas_csymm" ;
456 
457  cblas_info = 1;
459  ALPHA, A, 1, B, 1, BETA, C, 1 );
460  chkxer();
463  ALPHA, A, 1, B, 1, BETA, C, 1 );
464  chkxer();
467  ALPHA, A, 1, B, 1, BETA, C, 1 );
468  chkxer();
471  ALPHA, A, 1, B, 1, BETA, C, 1 );
472  chkxer();
475  ALPHA, A, 1, B, 1, BETA, C, 1 );
476  chkxer();
479  ALPHA, A, 1, B, 1, BETA, C, 1 );
480  chkxer();
483  ALPHA, A, 1, B, 1, BETA, C, 1 );
484  chkxer();
487  ALPHA, A, 1, B, 1, BETA, C, 1 );
488  chkxer();
491  ALPHA, A, 1, B, 1, BETA, C, 1 );
492  chkxer();
495  ALPHA, A, 1, B, 1, BETA, C, 1 );
496  chkxer();
499  ALPHA, A, 1, B, 1, BETA, C, 1 );
500  chkxer();
503  ALPHA, A, 1, B, 2, BETA, C, 2 );
504  chkxer();
507  ALPHA, A, 1, B, 1, BETA, C, 1 );
508  chkxer();
511  ALPHA, A, 1, B, 2, BETA, C, 2 );
512  chkxer();
515  ALPHA, A, 1, B, 1, BETA, C, 1 );
516  chkxer();
517  cblas_info = 10; RowMajorStrg = FALSE;
519  ALPHA, A, 2, B, 1, BETA, C, 1 );
520  chkxer();
521  cblas_info = 10; RowMajorStrg = FALSE;
523  ALPHA, A, 1, B, 1, BETA, C, 1 );
524  chkxer();
525  cblas_info = 10; RowMajorStrg = FALSE;
527  ALPHA, A, 2, B, 1, BETA, C, 1 );
528  chkxer();
529  cblas_info = 10; RowMajorStrg = FALSE;
531  ALPHA, A, 1, B, 1, BETA, C, 1 );
532  chkxer();
533  cblas_info = 13; RowMajorStrg = FALSE;
535  ALPHA, A, 2, B, 2, BETA, C, 1 );
536  chkxer();
537  cblas_info = 13; RowMajorStrg = FALSE;
539  ALPHA, A, 1, B, 2, BETA, C, 1 );
540  chkxer();
541  cblas_info = 13; RowMajorStrg = FALSE;
543  ALPHA, A, 2, B, 2, BETA, C, 1 );
544  chkxer();
545  cblas_info = 13; RowMajorStrg = FALSE;
547  ALPHA, A, 1, B, 2, BETA, C, 1 );
548  chkxer();
551  ALPHA, A, 1, B, 1, BETA, C, 1 );
552  chkxer();
555  ALPHA, A, 1, B, 1, BETA, C, 1 );
556  chkxer();
559  ALPHA, A, 1, B, 1, BETA, C, 1 );
560  chkxer();
563  ALPHA, A, 1, B, 1, BETA, C, 1 );
564  chkxer();
567  ALPHA, A, 1, B, 1, BETA, C, 1 );
568  chkxer();
571  ALPHA, A, 1, B, 1, BETA, C, 1 );
572  chkxer();
575  ALPHA, A, 1, B, 1, BETA, C, 1 );
576  chkxer();
579  ALPHA, A, 1, B, 1, BETA, C, 1 );
580  chkxer();
583  ALPHA, A, 1, B, 2, BETA, C, 2 );
584  chkxer();
587  ALPHA, A, 1, B, 1, BETA, C, 1 );
588  chkxer();
591  ALPHA, A, 1, B, 2, BETA, C, 2 );
592  chkxer();
595  ALPHA, A, 1, B, 1, BETA, C, 1 );
596  chkxer();
597  cblas_info = 10; RowMajorStrg = TRUE;
599  ALPHA, A, 2, B, 1, BETA, C, 1 );
600  chkxer();
601  cblas_info = 10; RowMajorStrg = TRUE;
603  ALPHA, A, 2, B, 1, BETA, C, 1 );
604  chkxer();
605  cblas_info = 10; RowMajorStrg = TRUE;
607  ALPHA, A, 2, B, 1, BETA, C, 1 );
608  chkxer();
609  cblas_info = 10; RowMajorStrg = TRUE;
611  ALPHA, A, 2, B, 1, BETA, C, 1 );
612  chkxer();
613  cblas_info = 13; RowMajorStrg = TRUE;
615  ALPHA, A, 1, B, 2, BETA, C, 1 );
616  chkxer();
617  cblas_info = 13; RowMajorStrg = TRUE;
619  ALPHA, A, 2, B, 2, BETA, C, 1 );
620  chkxer();
621  cblas_info = 13; RowMajorStrg = TRUE;
623  ALPHA, A, 1, B, 2, BETA, C, 1 );
624  chkxer();
625  cblas_info = 13; RowMajorStrg = TRUE;
627  ALPHA, A, 2, B, 2, BETA, C, 1 );
628  chkxer();
629 
630  } else if (strncmp( sf,"cblas_ctrmm" ,11)==0) {
631  cblas_rout = "cblas_ctrmm" ;
632 
633  cblas_info = 1;
635  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
636  chkxer();
639  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
640  chkxer();
643  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
644  chkxer();
647  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
648  chkxer();
651  INVALID, 0, 0, ALPHA, A, 1, B, 1 );
652  chkxer();
655  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
656  chkxer();
659  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
660  chkxer();
663  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
664  chkxer();
667  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
668  chkxer();
671  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
672  chkxer();
675  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
676  chkxer();
679  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
680  chkxer();
683  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
684  chkxer();
687  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
688  chkxer();
691  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
692  chkxer();
695  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
696  chkxer();
699  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
700  chkxer();
703  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
704  chkxer();
707  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
708  chkxer();
711  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
712  chkxer();
715  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
716  chkxer();
717  cblas_info = 10; RowMajorStrg = FALSE;
719  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
720  chkxer();
721  cblas_info = 10; RowMajorStrg = FALSE;
723  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
724  chkxer();
725  cblas_info = 10; RowMajorStrg = FALSE;
727  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
728  chkxer();
729  cblas_info = 10; RowMajorStrg = FALSE;
731  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
732  chkxer();
733  cblas_info = 10; RowMajorStrg = FALSE;
735  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
736  chkxer();
737  cblas_info = 10; RowMajorStrg = FALSE;
739  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
740  chkxer();
741  cblas_info = 10; RowMajorStrg = FALSE;
743  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
744  chkxer();
745  cblas_info = 10; RowMajorStrg = FALSE;
747  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
748  chkxer();
749  cblas_info = 12; RowMajorStrg = FALSE;
751  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
752  chkxer();
753  cblas_info = 12; RowMajorStrg = FALSE;
755  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
756  chkxer();
757  cblas_info = 12; RowMajorStrg = FALSE;
759  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
760  chkxer();
761  cblas_info = 12; RowMajorStrg = FALSE;
763  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
764  chkxer();
765  cblas_info = 12; RowMajorStrg = FALSE;
767  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
768  chkxer();
769  cblas_info = 12; RowMajorStrg = FALSE;
771  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
772  chkxer();
773  cblas_info = 12; RowMajorStrg = FALSE;
775  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
776  chkxer();
777  cblas_info = 12; RowMajorStrg = FALSE;
779  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
780  chkxer();
783  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
784  chkxer();
787  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
788  chkxer();
791  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
792  chkxer();
795  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
796  chkxer();
799  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
800  chkxer();
803  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
804  chkxer();
807  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
808  chkxer();
811  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
812  chkxer();
815  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
816  chkxer();
819  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
820  chkxer();
823  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
824  chkxer();
827  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
828  chkxer();
831  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
832  chkxer();
835  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
836  chkxer();
839  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
840  chkxer();
843  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
844  chkxer();
845  cblas_info = 10; RowMajorStrg = TRUE;
847  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
848  chkxer();
849  cblas_info = 10; RowMajorStrg = TRUE;
851  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
852  chkxer();
853  cblas_info = 10; RowMajorStrg = TRUE;
855  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
856  chkxer();
857  cblas_info = 10; RowMajorStrg = TRUE;
859  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
860  chkxer();
861  cblas_info = 10; RowMajorStrg = TRUE;
863  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
864  chkxer();
865  cblas_info = 10; RowMajorStrg = TRUE;
867  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
868  chkxer();
869  cblas_info = 10; RowMajorStrg = TRUE;
871  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
872  chkxer();
873  cblas_info = 10; RowMajorStrg = TRUE;
875  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
876  chkxer();
877  cblas_info = 12; RowMajorStrg = TRUE;
879  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
880  chkxer();
881  cblas_info = 12; RowMajorStrg = TRUE;
883  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
884  chkxer();
885  cblas_info = 12; RowMajorStrg = TRUE;
887  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
888  chkxer();
889  cblas_info = 12; RowMajorStrg = TRUE;
891  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
892  chkxer();
893  cblas_info = 12; RowMajorStrg = TRUE;
895  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
896  chkxer();
897  cblas_info = 12; RowMajorStrg = TRUE;
899  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
900  chkxer();
901  cblas_info = 12; RowMajorStrg = TRUE;
903  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
904  chkxer();
905  cblas_info = 12; RowMajorStrg = TRUE;
907  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
908  chkxer();
909 
910  } else if (strncmp( sf,"cblas_ctrsm" ,11)==0) {
911  cblas_rout = "cblas_ctrsm" ;
912 
913  cblas_info = 1;
915  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
916  chkxer();
919  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
920  chkxer();
923  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
924  chkxer();
927  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
928  chkxer();
931  INVALID, 0, 0, ALPHA, A, 1, B, 1 );
932  chkxer();
935  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
936  chkxer();
939  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
940  chkxer();
943  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
944  chkxer();
947  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
948  chkxer();
951  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
952  chkxer();
955  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
956  chkxer();
959  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
960  chkxer();
963  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
964  chkxer();
967  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
968  chkxer();
971  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
972  chkxer();
975  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
976  chkxer();
979  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
980  chkxer();
983  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
984  chkxer();
987  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
988  chkxer();
991  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
992  chkxer();
995  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
996  chkxer();
997  cblas_info = 10; RowMajorStrg = FALSE;
999  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1000  chkxer();
1001  cblas_info = 10; RowMajorStrg = FALSE;
1003  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1004  chkxer();
1005  cblas_info = 10; RowMajorStrg = FALSE;
1007  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1008  chkxer();
1009  cblas_info = 10; RowMajorStrg = FALSE;
1011  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1012  chkxer();
1013  cblas_info = 10; RowMajorStrg = FALSE;
1015  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1016  chkxer();
1017  cblas_info = 10; RowMajorStrg = FALSE;
1019  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1020  chkxer();
1021  cblas_info = 10; RowMajorStrg = FALSE;
1023  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1024  chkxer();
1025  cblas_info = 10; RowMajorStrg = FALSE;
1027  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1028  chkxer();
1029  cblas_info = 12; RowMajorStrg = FALSE;
1031  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1032  chkxer();
1033  cblas_info = 12; RowMajorStrg = FALSE;
1035  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1036  chkxer();
1037  cblas_info = 12; RowMajorStrg = FALSE;
1039  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1040  chkxer();
1041  cblas_info = 12; RowMajorStrg = FALSE;
1043  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1044  chkxer();
1045  cblas_info = 12; RowMajorStrg = FALSE;
1047  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1048  chkxer();
1049  cblas_info = 12; RowMajorStrg = FALSE;
1051  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1052  chkxer();
1053  cblas_info = 12; RowMajorStrg = FALSE;
1055  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1056  chkxer();
1057  cblas_info = 12; RowMajorStrg = FALSE;
1059  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1060  chkxer();
1061  cblas_info = 6; RowMajorStrg = TRUE;
1063  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1064  chkxer();
1065  cblas_info = 6; RowMajorStrg = TRUE;
1067  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1068  chkxer();
1069  cblas_info = 6; RowMajorStrg = TRUE;
1071  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1072  chkxer();
1073  cblas_info = 6; RowMajorStrg = TRUE;
1075  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1076  chkxer();
1077  cblas_info = 6; RowMajorStrg = TRUE;
1079  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1080  chkxer();
1081  cblas_info = 6; RowMajorStrg = TRUE;
1083  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1084  chkxer();
1085  cblas_info = 6; RowMajorStrg = TRUE;
1087  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1088  chkxer();
1089  cblas_info = 6; RowMajorStrg = TRUE;
1091  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1092  chkxer();
1093  cblas_info = 7; RowMajorStrg = TRUE;
1095  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1096  chkxer();
1097  cblas_info = 7; RowMajorStrg = TRUE;
1099  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1100  chkxer();
1101  cblas_info = 7; RowMajorStrg = TRUE;
1103  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1104  chkxer();
1105  cblas_info = 7; RowMajorStrg = TRUE;
1107  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1108  chkxer();
1109  cblas_info = 7; RowMajorStrg = TRUE;
1111  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1112  chkxer();
1113  cblas_info = 7; RowMajorStrg = TRUE;
1115  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1116  chkxer();
1117  cblas_info = 7; RowMajorStrg = TRUE;
1119  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1120  chkxer();
1121  cblas_info = 7; RowMajorStrg = TRUE;
1123  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1124  chkxer();
1125  cblas_info = 10; RowMajorStrg = TRUE;
1127  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1128  chkxer();
1129  cblas_info = 10; RowMajorStrg = TRUE;
1131  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1132  chkxer();
1133  cblas_info = 10; RowMajorStrg = TRUE;
1135  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1136  chkxer();
1137  cblas_info = 10; RowMajorStrg = TRUE;
1139  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1140  chkxer();
1141  cblas_info = 10; RowMajorStrg = TRUE;
1143  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1144  chkxer();
1145  cblas_info = 10; RowMajorStrg = TRUE;
1147  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1148  chkxer();
1149  cblas_info = 10; RowMajorStrg = TRUE;
1151  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1152  chkxer();
1153  cblas_info = 10; RowMajorStrg = TRUE;
1155  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1156  chkxer();
1157  cblas_info = 12; RowMajorStrg = TRUE;
1159  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1160  chkxer();
1161  cblas_info = 12; RowMajorStrg = TRUE;
1163  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1164  chkxer();
1165  cblas_info = 12; RowMajorStrg = TRUE;
1167  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1168  chkxer();
1169  cblas_info = 12; RowMajorStrg = TRUE;
1171  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1172  chkxer();
1173  cblas_info = 12; RowMajorStrg = TRUE;
1175  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1176  chkxer();
1177  cblas_info = 12; RowMajorStrg = TRUE;
1179  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1180  chkxer();
1181  cblas_info = 12; RowMajorStrg = TRUE;
1183  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1184  chkxer();
1185  cblas_info = 12; RowMajorStrg = TRUE;
1187  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1188  chkxer();
1189 
1190  } else if (strncmp( sf,"cblas_cherk" ,11)==0) {
1191  cblas_rout = "cblas_cherk" ;
1192 
1193  cblas_info = 1;
1195  RALPHA, A, 1, RBETA, C, 1 );
1196  chkxer();
1197  cblas_info = 2; RowMajorStrg = FALSE;
1199  RALPHA, A, 1, RBETA, C, 1 );
1200  chkxer();
1201  cblas_info = 3; RowMajorStrg = FALSE;
1203  RALPHA, A, 1, RBETA, C, 1 );
1204  chkxer();
1205  cblas_info = 4; RowMajorStrg = FALSE;
1207  RALPHA, A, 1, RBETA, C, 1 );
1208  chkxer();
1209  cblas_info = 4; RowMajorStrg = FALSE;
1211  RALPHA, A, 1, RBETA, C, 1 );
1212  chkxer();
1213  cblas_info = 4; RowMajorStrg = FALSE;
1215  RALPHA, A, 1, RBETA, C, 1 );
1216  chkxer();
1217  cblas_info = 4; RowMajorStrg = FALSE;
1219  RALPHA, A, 1, RBETA, C, 1 );
1220  chkxer();
1221  cblas_info = 5; RowMajorStrg = FALSE;
1223  RALPHA, A, 1, RBETA, C, 1 );
1224  chkxer();
1225  cblas_info = 5; RowMajorStrg = FALSE;
1227  RALPHA, A, 1, RBETA, C, 1 );
1228  chkxer();
1229  cblas_info = 5; RowMajorStrg = FALSE;
1231  RALPHA, A, 1, RBETA, C, 1 );
1232  chkxer();
1233  cblas_info = 5; RowMajorStrg = FALSE;
1235  RALPHA, A, 1, RBETA, C, 1 );
1236  chkxer();
1237  cblas_info = 8; RowMajorStrg = TRUE;
1239  RALPHA, A, 1, RBETA, C, 2 );
1240  chkxer();
1241  cblas_info = 8; RowMajorStrg = TRUE;
1243  RALPHA, A, 1, RBETA, C, 1 );
1244  chkxer();
1245  cblas_info = 8; RowMajorStrg = TRUE;
1247  RALPHA, A, 1, RBETA, C, 2 );
1248  chkxer();
1249  cblas_info = 8; RowMajorStrg = TRUE;
1251  RALPHA, A, 1, RBETA, C, 1 );
1252  chkxer();
1253  cblas_info = 8; RowMajorStrg = FALSE;
1255  RALPHA, A, 1, RBETA, C, 2 );
1256  chkxer();
1257  cblas_info = 8; RowMajorStrg = FALSE;
1259  RALPHA, A, 1, RBETA, C, 1 );
1260  chkxer();
1261  cblas_info = 8; RowMajorStrg = FALSE;
1263  RALPHA, A, 1, RBETA, C, 2 );
1264  chkxer();
1265  cblas_info = 8; RowMajorStrg = FALSE;
1267  RALPHA, A, 1, RBETA, C, 1 );
1268  chkxer();
1269  cblas_info = 11; RowMajorStrg = TRUE;
1271  RALPHA, A, 1, RBETA, C, 1 );
1272  chkxer();
1273  cblas_info = 11; RowMajorStrg = TRUE;
1275  RALPHA, A, 2, RBETA, C, 1 );
1276  chkxer();
1277  cblas_info = 11; RowMajorStrg = TRUE;
1279  RALPHA, A, 1, RBETA, C, 1 );
1280  chkxer();
1281  cblas_info = 11; RowMajorStrg = TRUE;
1283  RALPHA, A, 2, RBETA, C, 1 );
1284  chkxer();
1285  cblas_info = 11; RowMajorStrg = FALSE;
1287  RALPHA, A, 2, RBETA, C, 1 );
1288  chkxer();
1289  cblas_info = 11; RowMajorStrg = FALSE;
1291  RALPHA, A, 1, RBETA, C, 1 );
1292  chkxer();
1293  cblas_info = 11; RowMajorStrg = FALSE;
1295  RALPHA, A, 2, RBETA, C, 1 );
1296  chkxer();
1297  cblas_info = 11; RowMajorStrg = FALSE;
1299  RALPHA, A, 1, RBETA, C, 1 );
1300  chkxer();
1301 
1302  } else if (strncmp( sf,"cblas_csyrk" ,11)==0) {
1303  cblas_rout = "cblas_csyrk" ;
1304 
1305  cblas_info = 1;
1307  ALPHA, A, 1, BETA, C, 1 );
1308  chkxer();
1309  cblas_info = 2; RowMajorStrg = FALSE;
1311  ALPHA, A, 1, BETA, C, 1 );
1312  chkxer();
1313  cblas_info = 3; RowMajorStrg = FALSE;
1315  ALPHA, A, 1, BETA, C, 1 );
1316  chkxer();
1317  cblas_info = 4; RowMajorStrg = FALSE;
1319  ALPHA, A, 1, BETA, C, 1 );
1320  chkxer();
1321  cblas_info = 4; RowMajorStrg = FALSE;
1323  ALPHA, A, 1, BETA, C, 1 );
1324  chkxer();
1325  cblas_info = 4; RowMajorStrg = FALSE;
1327  ALPHA, A, 1, BETA, C, 1 );
1328  chkxer();
1329  cblas_info = 4; RowMajorStrg = FALSE;
1331  ALPHA, A, 1, BETA, C, 1 );
1332  chkxer();
1333  cblas_info = 5; RowMajorStrg = FALSE;
1335  ALPHA, A, 1, BETA, C, 1 );
1336  chkxer();
1337  cblas_info = 5; RowMajorStrg = FALSE;
1339  ALPHA, A, 1, BETA, C, 1 );
1340  chkxer();
1341  cblas_info = 5; RowMajorStrg = FALSE;
1343  ALPHA, A, 1, BETA, C, 1 );
1344  chkxer();
1345  cblas_info = 5; RowMajorStrg = FALSE;
1347  ALPHA, A, 1, BETA, C, 1 );
1348  chkxer();
1349  cblas_info = 8; RowMajorStrg = TRUE;
1351  ALPHA, A, 1, BETA, C, 2 );
1352  chkxer();
1353  cblas_info = 8; RowMajorStrg = TRUE;
1355  ALPHA, A, 1, BETA, C, 1 );
1356  chkxer();
1357  cblas_info = 8; RowMajorStrg = TRUE;
1359  ALPHA, A, 1, BETA, C, 2 );
1360  chkxer();
1361  cblas_info = 8; RowMajorStrg = TRUE;
1363  ALPHA, A, 1, BETA, C, 1 );
1364  chkxer();
1365  cblas_info = 8; RowMajorStrg = FALSE;
1367  ALPHA, A, 1, BETA, C, 2 );
1368  chkxer();
1369  cblas_info = 8; RowMajorStrg = FALSE;
1371  ALPHA, A, 1, BETA, C, 1 );
1372  chkxer();
1373  cblas_info = 8; RowMajorStrg = FALSE;
1375  ALPHA, A, 1, BETA, C, 2 );
1376  chkxer();
1377  cblas_info = 8; RowMajorStrg = FALSE;
1379  ALPHA, A, 1, BETA, C, 1 );
1380  chkxer();
1381  cblas_info = 11; RowMajorStrg = TRUE;
1383  ALPHA, A, 1, BETA, C, 1 );
1384  chkxer();
1385  cblas_info = 11; RowMajorStrg = TRUE;
1387  ALPHA, A, 2, BETA, C, 1 );
1388  chkxer();
1389  cblas_info = 11; RowMajorStrg = TRUE;
1391  ALPHA, A, 1, BETA, C, 1 );
1392  chkxer();
1393  cblas_info = 11; RowMajorStrg = TRUE;
1395  ALPHA, A, 2, BETA, C, 1 );
1396  chkxer();
1397  cblas_info = 11; RowMajorStrg = FALSE;
1399  ALPHA, A, 2, BETA, C, 1 );
1400  chkxer();
1401  cblas_info = 11; RowMajorStrg = FALSE;
1403  ALPHA, A, 1, BETA, C, 1 );
1404  chkxer();
1405  cblas_info = 11; RowMajorStrg = FALSE;
1407  ALPHA, A, 2, BETA, C, 1 );
1408  chkxer();
1409  cblas_info = 11; RowMajorStrg = FALSE;
1411  ALPHA, A, 1, BETA, C, 1 );
1412  chkxer();
1413 
1414  } else if (strncmp( sf,"cblas_cher2k" ,12)==0) {
1415  cblas_rout = "cblas_cher2k" ;
1416 
1417  cblas_info = 1;
1419  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1420  chkxer();
1421  cblas_info = 2; RowMajorStrg = FALSE;
1423  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1424  chkxer();
1425  cblas_info = 3; RowMajorStrg = FALSE;
1427  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1428  chkxer();
1429  cblas_info = 4; RowMajorStrg = FALSE;
1431  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1432  chkxer();
1433  cblas_info = 4; RowMajorStrg = FALSE;
1435  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1436  chkxer();
1437  cblas_info = 4; RowMajorStrg = FALSE;
1439  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1440  chkxer();
1441  cblas_info = 4; RowMajorStrg = FALSE;
1443  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1444  chkxer();
1445  cblas_info = 5; RowMajorStrg = FALSE;
1447  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1448  chkxer();
1449  cblas_info = 5; RowMajorStrg = FALSE;
1451  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1452  chkxer();
1453  cblas_info = 5; RowMajorStrg = FALSE;
1455  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1456  chkxer();
1457  cblas_info = 5; RowMajorStrg = FALSE;
1459  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1460  chkxer();
1461  cblas_info = 8; RowMajorStrg = TRUE;
1463  ALPHA, A, 1, B, 2, RBETA, C, 2 );
1464  chkxer();
1465  cblas_info = 8; RowMajorStrg = TRUE;
1467  ALPHA, A, 1, B, 2, RBETA, C, 1 );
1468  chkxer();
1469  cblas_info = 8; RowMajorStrg = TRUE;
1471  ALPHA, A, 1, B, 2, RBETA, C, 2 );
1472  chkxer();
1473  cblas_info = 8; RowMajorStrg = TRUE;
1475  ALPHA, A, 1, B, 2, RBETA, C, 1 );
1476  chkxer();
1477  cblas_info = 8; RowMajorStrg = FALSE;
1479  ALPHA, A, 1, B, 1, RBETA, C, 2 );
1480  chkxer();
1481  cblas_info = 8; RowMajorStrg = FALSE;
1483  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1484  chkxer();
1485  cblas_info = 8; RowMajorStrg = FALSE;
1487  ALPHA, A, 1, B, 1, RBETA, C, 2 );
1488  chkxer();
1489  cblas_info = 8; RowMajorStrg = FALSE;
1491  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1492  chkxer();
1493  cblas_info = 10; RowMajorStrg = TRUE;
1495  ALPHA, A, 2, B, 1, RBETA, C, 2 );
1496  chkxer();
1497  cblas_info = 10; RowMajorStrg = TRUE;
1499  ALPHA, A, 2, B, 1, RBETA, C, 1 );
1500  chkxer();
1501  cblas_info = 10; RowMajorStrg = TRUE;
1503  ALPHA, A, 2, B, 1, RBETA, C, 2 );
1504  chkxer();
1505  cblas_info = 10; RowMajorStrg = TRUE;
1507  ALPHA, A, 2, B, 1, RBETA, C, 1 );
1508  chkxer();
1509  cblas_info = 10; RowMajorStrg = FALSE;
1511  ALPHA, A, 2, B, 1, RBETA, C, 2 );
1512  chkxer();
1513  cblas_info = 10; RowMajorStrg = FALSE;
1515  ALPHA, A, 2, B, 1, RBETA, C, 1 );
1516  chkxer();
1517  cblas_info = 10; RowMajorStrg = FALSE;
1519  ALPHA, A, 2, B, 1, RBETA, C, 2 );
1520  chkxer();
1521  cblas_info = 10; RowMajorStrg = FALSE;
1523  ALPHA, A, 2, B, 1, RBETA, C, 1 );
1524  chkxer();
1525  cblas_info = 13; RowMajorStrg = TRUE;
1527  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1528  chkxer();
1529  cblas_info = 13; RowMajorStrg = TRUE;
1531  ALPHA, A, 2, B, 2, RBETA, C, 1 );
1532  chkxer();
1533  cblas_info = 13; RowMajorStrg = TRUE;
1535  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1536  chkxer();
1537  cblas_info = 13; RowMajorStrg = TRUE;
1539  ALPHA, A, 2, B, 2, RBETA, C, 1 );
1540  chkxer();
1541  cblas_info = 13; RowMajorStrg = FALSE;
1543  ALPHA, A, 2, B, 2, RBETA, C, 1 );
1544  chkxer();
1545  cblas_info = 13; RowMajorStrg = FALSE;
1547  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1548  chkxer();
1549  cblas_info = 13; RowMajorStrg = FALSE;
1551  ALPHA, A, 2, B, 2, RBETA, C, 1 );
1552  chkxer();
1553  cblas_info = 13; RowMajorStrg = FALSE;
1555  ALPHA, A, 1, B, 1, RBETA, C, 1 );
1556  chkxer();
1557 
1558  } else if (strncmp( sf,"cblas_csyr2k" ,12)==0) {
1559  cblas_rout = "cblas_csyr2k" ;
1560 
1561  cblas_info = 1;
1563  ALPHA, A, 1, B, 1, BETA, C, 1 );
1564  chkxer();
1565  cblas_info = 2; RowMajorStrg = FALSE;
1567  ALPHA, A, 1, B, 1, BETA, C, 1 );
1568  chkxer();
1569  cblas_info = 3; RowMajorStrg = FALSE;
1571  ALPHA, A, 1, B, 1, BETA, C, 1 );
1572  chkxer();
1573  cblas_info = 4; RowMajorStrg = FALSE;
1575  ALPHA, A, 1, B, 1, BETA, C, 1 );
1576  chkxer();
1577  cblas_info = 4; RowMajorStrg = FALSE;
1579  ALPHA, A, 1, B, 1, BETA, C, 1 );
1580  chkxer();
1581  cblas_info = 4; RowMajorStrg = FALSE;
1583  ALPHA, A, 1, B, 1, BETA, C, 1 );
1584  chkxer();
1585  cblas_info = 4; RowMajorStrg = FALSE;
1587  ALPHA, A, 1, B, 1, BETA, C, 1 );
1588  chkxer();
1589  cblas_info = 5; RowMajorStrg = FALSE;
1591  ALPHA, A, 1, B, 1, BETA, C, 1 );
1592  chkxer();
1593  cblas_info = 5; RowMajorStrg = FALSE;
1595  ALPHA, A, 1, B, 1, BETA, C, 1 );
1596  chkxer();
1597  cblas_info = 5; RowMajorStrg = FALSE;
1599  ALPHA, A, 1, B, 1, BETA, C, 1 );
1600  chkxer();
1601  cblas_info = 5; RowMajorStrg = FALSE;
1603  ALPHA, A, 1, B, 1, BETA, C, 1 );
1604  chkxer();
1605  cblas_info = 8; RowMajorStrg = TRUE;
1607  ALPHA, A, 1, B, 2, BETA, C, 2 );
1608  chkxer();
1609  cblas_info = 8; RowMajorStrg = TRUE;
1611  ALPHA, A, 1, B, 2, BETA, C, 1 );
1612  chkxer();
1613  cblas_info = 8; RowMajorStrg = TRUE;
1615  ALPHA, A, 1, B, 2, BETA, C, 2 );
1616  chkxer();
1617  cblas_info = 8; RowMajorStrg = TRUE;
1619  ALPHA, A, 1, B, 2, BETA, C, 1 );
1620  chkxer();
1621  cblas_info = 8; RowMajorStrg = FALSE;
1623  ALPHA, A, 1, B, 1, BETA, C, 2 );
1624  chkxer();
1625  cblas_info = 8; RowMajorStrg = FALSE;
1627  ALPHA, A, 1, B, 1, BETA, C, 1 );
1628  chkxer();
1629  cblas_info = 8; RowMajorStrg = FALSE;
1631  ALPHA, A, 1, B, 1, BETA, C, 2 );
1632  chkxer();
1633  cblas_info = 8; RowMajorStrg = FALSE;
1635  ALPHA, A, 1, B, 1, BETA, C, 1 );
1636  chkxer();
1637  cblas_info = 10; RowMajorStrg = TRUE;
1639  ALPHA, A, 2, B, 1, BETA, C, 2 );
1640  chkxer();
1641  cblas_info = 10; RowMajorStrg = TRUE;
1643  ALPHA, A, 2, B, 1, BETA, C, 1 );
1644  chkxer();
1645  cblas_info = 10; RowMajorStrg = TRUE;
1647  ALPHA, A, 2, B, 1, BETA, C, 2 );
1648  chkxer();
1649  cblas_info = 10; RowMajorStrg = TRUE;
1651  ALPHA, A, 2, B, 1, BETA, C, 1 );
1652  chkxer();
1653  cblas_info = 10; RowMajorStrg = FALSE;
1655  ALPHA, A, 2, B, 1, BETA, C, 2 );
1656  chkxer();
1657  cblas_info = 10; RowMajorStrg = FALSE;
1659  ALPHA, A, 2, B, 1, BETA, C, 1 );
1660  chkxer();
1661  cblas_info = 10; RowMajorStrg = FALSE;
1663  ALPHA, A, 2, B, 1, BETA, C, 2 );
1664  chkxer();
1665  cblas_info = 10; RowMajorStrg = FALSE;
1667  ALPHA, A, 2, B, 1, BETA, C, 1 );
1668  chkxer();
1669  cblas_info = 13; RowMajorStrg = TRUE;
1671  ALPHA, A, 1, B, 1, BETA, C, 1 );
1672  chkxer();
1673  cblas_info = 13; RowMajorStrg = TRUE;
1675  ALPHA, A, 2, B, 2, BETA, C, 1 );
1676  chkxer();
1677  cblas_info = 13; RowMajorStrg = TRUE;
1679  ALPHA, A, 1, B, 1, BETA, C, 1 );
1680  chkxer();
1681  cblas_info = 13; RowMajorStrg = TRUE;
1683  ALPHA, A, 2, B, 2, BETA, C, 1 );
1684  chkxer();
1685  cblas_info = 13; RowMajorStrg = FALSE;
1687  ALPHA, A, 2, B, 2, BETA, C, 1 );
1688  chkxer();
1689  cblas_info = 13; RowMajorStrg = FALSE;
1691  ALPHA, A, 1, B, 1, BETA, C, 1 );
1692  chkxer();
1693  cblas_info = 13; RowMajorStrg = FALSE;
1695  ALPHA, A, 2, B, 2, BETA, C, 1 );
1696  chkxer();
1697  cblas_info = 13; RowMajorStrg = FALSE;
1699  ALPHA, A, 1, B, 1, BETA, C, 1 );
1700  chkxer();
1701 
1702  }
1703 
1704  if (cblas_ok == 1 )
1705  printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1706  else
1707  printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
1708 }
void F77_c3chke(char *rout)
Definition: c_c3chke.c:27
int link_xerbla
Definition: c_c3chke.c:7
int cblas_lerr
Definition: c_c3chke.c:6
void chkxer(void)
Definition: c_c3chke.c:16
void F77_xerbla(char *srname, void *vinfo)
Definition: xerbla.c:17
int cblas_info
Definition: c_c3chke.c:6
int cblas_ok
Definition: c_c3chke.c:6
char * cblas_rout
Definition: c_c3chke.c:8
@ CblasLower
Definition: cblas.h:21
@ CblasUpper
Definition: cblas.h:21
void cblas_cherk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, const float alpha, const void *A, const CBLAS_INDEX lda, const float beta, void *C, const CBLAS_INDEX ldc)
Definition: cblas_cherk.c:12
void cblas_ctrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, const void *alpha, const void *A, const CBLAS_INDEX lda, void *B, const CBLAS_INDEX ldb)
Definition: cblas_ctrmm.c:12
void cblas_cher2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, const void *alpha, const void *A, const CBLAS_INDEX lda, const void *B, const CBLAS_INDEX ldb, const float beta, void *C, const CBLAS_INDEX ldc)
Definition: cblas_cher2k.c:12
@ CblasNoTrans
Definition: cblas.h:20
@ CblasTrans
Definition: cblas.h:20
@ CblasConjTrans
Definition: cblas.h:20
void cblas_chemm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, const void *alpha, const void *A, const CBLAS_INDEX lda, const void *B, const CBLAS_INDEX ldb, const void *beta, void *C, const CBLAS_INDEX ldc)
Definition: cblas_chemm.c:12
@ CblasRight
Definition: cblas.h:23
@ CblasLeft
Definition: cblas.h:23
void cblas_cgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const CBLAS_INDEX M, const CBLAS_INDEX N, const CBLAS_INDEX K, const void *alpha, const void *A, const CBLAS_INDEX lda, const void *B, const CBLAS_INDEX ldb, const void *beta, void *C, const CBLAS_INDEX ldc)
Definition: cblas_cgemm.c:12
void cblas_csyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, const void *alpha, const void *A, const CBLAS_INDEX lda, const void *beta, void *C, const CBLAS_INDEX ldc)
Definition: cblas_csyrk.c:12
@ CblasColMajor
Definition: cblas.h:19
@ CblasRowMajor
Definition: cblas.h:19
void cblas_csymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, const void *alpha, const void *A, const CBLAS_INDEX lda, const void *B, const CBLAS_INDEX ldb, const void *beta, void *C, const CBLAS_INDEX ldc)
Definition: cblas_csymm.c:12
void cblas_ctrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, const void *alpha, const void *A, const CBLAS_INDEX lda, void *B, const CBLAS_INDEX ldb)
Definition: cblas_ctrsm.c:12
@ CblasNonUnit
Definition: cblas.h:22
void cblas_xerbla(CBLAS_INDEX p, const char *rout, const char *form,...)
Definition: cblas_xerbla.c:12
void cblas_csyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, const void *alpha, const void *A, const CBLAS_INDEX lda, const void *B, const CBLAS_INDEX ldb, const void *beta, void *C, const CBLAS_INDEX ldc)
Definition: cblas_csyr2k.c:12
#define INVALID
Definition: cblas_example2.c:8
int RowMajorStrg
Definition: cblas_globals.c:2
#define TRUE
Definition: cblas_test.h:10
#define FALSE
Definition: cblas_test.h:14
#define PASSED
Definition: cblas_test.h:11