LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
c_d3chke.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_d3chke(char *rout) {
28  char *sf = ( rout ) ;
29  double A[2] = {0.0,0.0},
30  B[2] = {0.0,0.0},
31  C[2] = {0.0,0.0},
32  ALPHA=0.0, BETA=0.0;
33  extern int cblas_info, cblas_lerr, cblas_ok;
34  extern int RowMajorStrg;
35  extern char *cblas_rout;
36 
37  if (link_xerbla) /* call these first to link */
38  {
39  cblas_xerbla(cblas_info,cblas_rout,"");
40  F77_xerbla(cblas_rout,&cblas_info);
41  }
42 
43  cblas_ok = TRUE ;
44  cblas_lerr = PASSED ;
45 
46  if (strncmp( sf,"cblas_dgemm" ,11)==0) {
47  cblas_rout = "cblas_dgemm" ;
48 
49  cblas_info = 1;
51  ALPHA, A, 1, B, 1, BETA, C, 1 );
52  chkxer();
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 = 2; RowMajorStrg = FALSE;
67  ALPHA, A, 1, B, 1, BETA, C, 1 );
68  chkxer();
69  cblas_info = 2; RowMajorStrg = FALSE;
71  ALPHA, A, 1, B, 1, BETA, C, 1 );
72  chkxer();
73  cblas_info = 3; RowMajorStrg = FALSE;
75  ALPHA, A, 1, B, 1, BETA, C, 1 );
76  chkxer();
77  cblas_info = 3; RowMajorStrg = FALSE;
79  ALPHA, A, 1, B, 1, BETA, C, 1 );
80  chkxer();
81  cblas_info = 4; RowMajorStrg = FALSE;
83  ALPHA, A, 1, B, 1, BETA, C, 1 );
84  chkxer();
85  cblas_info = 4; RowMajorStrg = FALSE;
87  ALPHA, A, 1, B, 1, BETA, C, 1 );
88  chkxer();
89  cblas_info = 4; RowMajorStrg = FALSE;
91  ALPHA, A, 1, B, 1, BETA, C, 1 );
92  chkxer();
93  cblas_info = 4; RowMajorStrg = FALSE;
95  ALPHA, A, 1, B, 1, BETA, C, 1 );
96  chkxer();
97  cblas_info = 5; RowMajorStrg = FALSE;
99  ALPHA, A, 1, B, 1, BETA, C, 1 );
100  chkxer();
101  cblas_info = 5; RowMajorStrg = FALSE;
103  ALPHA, A, 1, B, 1, BETA, C, 1 );
104  chkxer();
105  cblas_info = 5; RowMajorStrg = FALSE;
107  ALPHA, A, 1, B, 1, BETA, C, 1 );
108  chkxer();
109  cblas_info = 5; RowMajorStrg = FALSE;
111  ALPHA, A, 1, B, 1, BETA, C, 1 );
112  chkxer();
113  cblas_info = 6; RowMajorStrg = FALSE;
115  ALPHA, A, 1, B, 1, BETA, C, 1 );
116  chkxer();
117  cblas_info = 6; RowMajorStrg = FALSE;
119  ALPHA, A, 1, B, 1, BETA, C, 1 );
120  chkxer();
121  cblas_info = 6; RowMajorStrg = FALSE;
123  ALPHA, A, 1, B, 1, BETA, C, 1 );
124  chkxer();
125  cblas_info = 6; RowMajorStrg = FALSE;
127  ALPHA, A, 1, B, 1, BETA, C, 1 );
128  chkxer();
129  cblas_info = 9; RowMajorStrg = FALSE;
131  ALPHA, A, 1, B, 1, BETA, C, 2 );
132  chkxer();
133  cblas_info = 9; RowMajorStrg = FALSE;
135  ALPHA, A, 1, B, 1, BETA, C, 2 );
136  chkxer();
137  cblas_info = 9; RowMajorStrg = FALSE;
139  ALPHA, A, 1, B, 2, BETA, C, 1 );
140  chkxer();
141  cblas_info = 9; RowMajorStrg = FALSE;
143  ALPHA, A, 1, B, 1, BETA, C, 1 );
144  chkxer();
145  cblas_info = 11; RowMajorStrg = FALSE;
147  ALPHA, A, 1, B, 1, BETA, C, 1 );
148  chkxer();
149  cblas_info = 11; RowMajorStrg = FALSE;
151  ALPHA, A, 2, B, 1, BETA, C, 1 );
152  chkxer();
153  cblas_info = 11; RowMajorStrg = FALSE;
155  ALPHA, A, 1, 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 = 14; RowMajorStrg = FALSE;
163  ALPHA, A, 2, 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, 1, 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 = 4; RowMajorStrg = TRUE;
179  ALPHA, A, 1, B, 1, BETA, C, 1 );
180  chkxer();
181  cblas_info = 4; RowMajorStrg = TRUE;
183  ALPHA, A, 1, B, 1, BETA, C, 1 );
184  chkxer();
185  cblas_info = 4; RowMajorStrg = TRUE;
187  ALPHA, A, 1, B, 1, BETA, C, 1 );
188  chkxer();
189  cblas_info = 4; RowMajorStrg = TRUE;
191  ALPHA, A, 1, B, 1, BETA, C, 1 );
192  chkxer();
193  cblas_info = 5; RowMajorStrg = TRUE;
195  ALPHA, A, 1, B, 1, BETA, C, 1 );
196  chkxer();
197  cblas_info = 5; RowMajorStrg = TRUE;
199  ALPHA, A, 1, B, 1, BETA, C, 1 );
200  chkxer();
201  cblas_info = 5; RowMajorStrg = TRUE;
203  ALPHA, A, 1, B, 1, BETA, C, 1 );
204  chkxer();
205  cblas_info = 5; RowMajorStrg = TRUE;
207  ALPHA, A, 1, B, 1, BETA, C, 1 );
208  chkxer();
209  cblas_info = 6; RowMajorStrg = TRUE;
211  ALPHA, A, 1, B, 1, BETA, C, 1 );
212  chkxer();
213  cblas_info = 6; RowMajorStrg = TRUE;
215  ALPHA, A, 1, B, 1, BETA, C, 1 );
216  chkxer();
217  cblas_info = 6; RowMajorStrg = TRUE;
219  ALPHA, A, 1, B, 1, BETA, C, 1 );
220  chkxer();
221  cblas_info = 6; RowMajorStrg = TRUE;
223  ALPHA, A, 1, B, 1, BETA, C, 1 );
224  chkxer();
225  cblas_info = 9; RowMajorStrg = TRUE;
227  ALPHA, A, 1, B, 1, BETA, C, 2 );
228  chkxer();
229  cblas_info = 9; RowMajorStrg = TRUE;
231  ALPHA, A, 1, B, 2, BETA, C, 2 );
232  chkxer();
233  cblas_info = 9; RowMajorStrg = TRUE;
235  ALPHA, A, 1, B, 2, BETA, C, 1 );
236  chkxer();
237  cblas_info = 9; RowMajorStrg = TRUE;
239  ALPHA, A, 1, B, 1, BETA, C, 1 );
240  chkxer();
241  cblas_info = 11; RowMajorStrg = TRUE;
243  ALPHA, A, 1, B, 1, BETA, C, 1 );
244  chkxer();
245  cblas_info = 11; RowMajorStrg = TRUE;
247  ALPHA, A, 2, 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, 1, B, 1, BETA, C, 1 );
256  chkxer();
257  cblas_info = 14; RowMajorStrg = TRUE;
259  ALPHA, A, 1, B, 2, BETA, C, 1 );
260  chkxer();
261  cblas_info = 14; RowMajorStrg = TRUE;
263  ALPHA, A, 1, B, 1, BETA, C, 1 );
264  chkxer();
265  cblas_info = 14; RowMajorStrg = TRUE;
267  ALPHA, A, 1, B, 2, BETA, C, 1 );
268  chkxer();
269  cblas_info = 14; RowMajorStrg = TRUE;
271  ALPHA, A, 1, B, 1, BETA, C, 1 );
272  chkxer();
273 
274  } else if (strncmp( sf,"cblas_dsymm" ,11)==0) {
275  cblas_rout = "cblas_dsymm" ;
276 
277  cblas_info = 1;
279  ALPHA, A, 1, B, 1, BETA, C, 1 );
280  chkxer();
281  cblas_info = 2; RowMajorStrg = FALSE;
283  ALPHA, A, 1, B, 1, BETA, C, 1 );
284  chkxer();
285  cblas_info = 3; RowMajorStrg = FALSE;
287  ALPHA, A, 1, B, 1, BETA, C, 1 );
288  chkxer();
289  cblas_info = 4; RowMajorStrg = FALSE;
291  ALPHA, A, 1, B, 1, BETA, C, 1 );
292  chkxer();
293  cblas_info = 4; RowMajorStrg = FALSE;
295  ALPHA, A, 1, B, 1, BETA, C, 1 );
296  chkxer();
297  cblas_info = 4; RowMajorStrg = FALSE;
299  ALPHA, A, 1, B, 1, BETA, C, 1 );
300  chkxer();
301  cblas_info = 4; RowMajorStrg = FALSE;
303  ALPHA, A, 1, B, 1, BETA, C, 1 );
304  chkxer();
305  cblas_info = 5; RowMajorStrg = FALSE;
307  ALPHA, A, 1, B, 1, BETA, C, 1 );
308  chkxer();
309  cblas_info = 5; RowMajorStrg = FALSE;
311  ALPHA, A, 1, B, 1, BETA, C, 1 );
312  chkxer();
313  cblas_info = 5; RowMajorStrg = FALSE;
315  ALPHA, A, 1, B, 1, BETA, C, 1 );
316  chkxer();
317  cblas_info = 5; RowMajorStrg = FALSE;
319  ALPHA, A, 1, B, 1, BETA, C, 1 );
320  chkxer();
321  cblas_info = 8; RowMajorStrg = FALSE;
323  ALPHA, A, 1, B, 2, BETA, C, 2 );
324  chkxer();
325  cblas_info = 8; RowMajorStrg = FALSE;
327  ALPHA, A, 1, B, 1, BETA, C, 1 );
328  chkxer();
329  cblas_info = 8; RowMajorStrg = FALSE;
331  ALPHA, A, 1, B, 2, BETA, C, 2 );
332  chkxer();
333  cblas_info = 8; RowMajorStrg = FALSE;
335  ALPHA, A, 1, B, 1, BETA, C, 1 );
336  chkxer();
337  cblas_info = 10; RowMajorStrg = FALSE;
339  ALPHA, A, 2, B, 1, BETA, C, 1 );
340  chkxer();
341  cblas_info = 10; RowMajorStrg = FALSE;
343  ALPHA, A, 1, B, 1, BETA, C, 1 );
344  chkxer();
345  cblas_info = 10; RowMajorStrg = FALSE;
347  ALPHA, A, 2, B, 1, BETA, C, 1 );
348  chkxer();
349  cblas_info = 10; RowMajorStrg = FALSE;
351  ALPHA, A, 1, B, 1, BETA, C, 1 );
352  chkxer();
353  cblas_info = 13; RowMajorStrg = FALSE;
355  ALPHA, A, 2, B, 2, BETA, C, 1 );
356  chkxer();
357  cblas_info = 13; RowMajorStrg = FALSE;
359  ALPHA, A, 1, B, 2, BETA, C, 1 );
360  chkxer();
361  cblas_info = 13; RowMajorStrg = FALSE;
363  ALPHA, A, 2, B, 2, BETA, C, 1 );
364  chkxer();
365  cblas_info = 13; RowMajorStrg = FALSE;
367  ALPHA, A, 1, B, 2, BETA, C, 1 );
368  chkxer();
369  cblas_info = 4; RowMajorStrg = TRUE;
371  ALPHA, A, 1, B, 1, BETA, C, 1 );
372  chkxer();
373  cblas_info = 4; RowMajorStrg = TRUE;
375  ALPHA, A, 1, B, 1, BETA, C, 1 );
376  chkxer();
377  cblas_info = 4; RowMajorStrg = TRUE;
379  ALPHA, A, 1, B, 1, BETA, C, 1 );
380  chkxer();
381  cblas_info = 4; RowMajorStrg = TRUE;
383  ALPHA, A, 1, B, 1, BETA, C, 1 );
384  chkxer();
385  cblas_info = 5; RowMajorStrg = TRUE;
387  ALPHA, A, 1, B, 1, BETA, C, 1 );
388  chkxer();
389  cblas_info = 5; RowMajorStrg = TRUE;
391  ALPHA, A, 1, B, 1, BETA, C, 1 );
392  chkxer();
393  cblas_info = 5; RowMajorStrg = TRUE;
395  ALPHA, A, 1, B, 1, BETA, C, 1 );
396  chkxer();
397  cblas_info = 5; RowMajorStrg = TRUE;
399  ALPHA, A, 1, B, 1, BETA, C, 1 );
400  chkxer();
401  cblas_info = 8; RowMajorStrg = TRUE;
403  ALPHA, A, 1, B, 2, BETA, C, 2 );
404  chkxer();
405  cblas_info = 8; RowMajorStrg = TRUE;
407  ALPHA, A, 1, B, 1, BETA, C, 1 );
408  chkxer();
409  cblas_info = 8; RowMajorStrg = TRUE;
411  ALPHA, A, 1, B, 2, BETA, C, 2 );
412  chkxer();
413  cblas_info = 8; RowMajorStrg = TRUE;
415  ALPHA, A, 1, B, 1, BETA, C, 1 );
416  chkxer();
417  cblas_info = 10; RowMajorStrg = TRUE;
419  ALPHA, A, 2, 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 = 13; RowMajorStrg = TRUE;
435  ALPHA, A, 1, B, 2, BETA, C, 1 );
436  chkxer();
437  cblas_info = 13; RowMajorStrg = TRUE;
439  ALPHA, A, 2, B, 2, BETA, C, 1 );
440  chkxer();
441  cblas_info = 13; RowMajorStrg = TRUE;
443  ALPHA, A, 1, B, 2, BETA, C, 1 );
444  chkxer();
445  cblas_info = 13; RowMajorStrg = TRUE;
447  ALPHA, A, 2, B, 2, BETA, C, 1 );
448  chkxer();
449 
450  } else if (strncmp( sf,"cblas_dtrmm" ,11)==0) {
451  cblas_rout = "cblas_dtrmm" ;
452 
453  cblas_info = 1;
455  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
456  chkxer();
457  cblas_info = 2; RowMajorStrg = FALSE;
459  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
460  chkxer();
461  cblas_info = 3; RowMajorStrg = FALSE;
463  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
464  chkxer();
465  cblas_info = 4; RowMajorStrg = FALSE;
467  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
468  chkxer();
469  cblas_info = 5; RowMajorStrg = FALSE;
471  INVALID, 0, 0, ALPHA, A, 1, B, 1 );
472  chkxer();
473  cblas_info = 6; RowMajorStrg = FALSE;
475  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
476  chkxer();
477  cblas_info = 6; RowMajorStrg = FALSE;
479  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
480  chkxer();
481  cblas_info = 6; RowMajorStrg = FALSE;
483  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
484  chkxer();
485  cblas_info = 6; RowMajorStrg = FALSE;
487  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
488  chkxer();
489  cblas_info = 6; RowMajorStrg = FALSE;
491  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
492  chkxer();
493  cblas_info = 6; RowMajorStrg = FALSE;
495  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
496  chkxer();
497  cblas_info = 6; RowMajorStrg = FALSE;
499  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
500  chkxer();
501  cblas_info = 6; RowMajorStrg = FALSE;
503  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
504  chkxer();
505  cblas_info = 7; RowMajorStrg = FALSE;
507  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
508  chkxer();
509  cblas_info = 7; RowMajorStrg = FALSE;
511  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
512  chkxer();
513  cblas_info = 7; RowMajorStrg = FALSE;
515  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
516  chkxer();
517  cblas_info = 7; RowMajorStrg = FALSE;
519  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
520  chkxer();
521  cblas_info = 7; RowMajorStrg = FALSE;
523  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
524  chkxer();
525  cblas_info = 7; RowMajorStrg = FALSE;
527  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
528  chkxer();
529  cblas_info = 7; RowMajorStrg = FALSE;
531  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
532  chkxer();
533  cblas_info = 7; RowMajorStrg = FALSE;
535  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
536  chkxer();
537  cblas_info = 10; RowMajorStrg = FALSE;
539  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
540  chkxer();
541  cblas_info = 10; RowMajorStrg = FALSE;
543  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
544  chkxer();
545  cblas_info = 10; RowMajorStrg = FALSE;
547  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
548  chkxer();
549  cblas_info = 10; RowMajorStrg = FALSE;
551  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
552  chkxer();
553  cblas_info = 10; RowMajorStrg = FALSE;
555  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
556  chkxer();
557  cblas_info = 10; RowMajorStrg = FALSE;
559  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
560  chkxer();
561  cblas_info = 10; RowMajorStrg = FALSE;
563  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
564  chkxer();
565  cblas_info = 10; RowMajorStrg = FALSE;
567  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
568  chkxer();
569  cblas_info = 12; RowMajorStrg = FALSE;
571  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
572  chkxer();
573  cblas_info = 12; RowMajorStrg = FALSE;
575  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
576  chkxer();
577  cblas_info = 12; RowMajorStrg = FALSE;
579  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
580  chkxer();
581  cblas_info = 12; RowMajorStrg = FALSE;
583  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
584  chkxer();
585  cblas_info = 12; RowMajorStrg = FALSE;
587  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
588  chkxer();
589  cblas_info = 12; RowMajorStrg = FALSE;
591  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
592  chkxer();
593  cblas_info = 12; RowMajorStrg = FALSE;
595  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
596  chkxer();
597  cblas_info = 12; RowMajorStrg = FALSE;
599  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
600  chkxer();
601  cblas_info = 6; RowMajorStrg = TRUE;
603  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
604  chkxer();
605  cblas_info = 6; RowMajorStrg = TRUE;
607  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
608  chkxer();
609  cblas_info = 6; RowMajorStrg = TRUE;
611  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
612  chkxer();
613  cblas_info = 6; RowMajorStrg = TRUE;
615  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
616  chkxer();
617  cblas_info = 6; RowMajorStrg = TRUE;
619  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
620  chkxer();
621  cblas_info = 6; RowMajorStrg = TRUE;
623  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
624  chkxer();
625  cblas_info = 6; RowMajorStrg = TRUE;
627  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
628  chkxer();
629  cblas_info = 6; RowMajorStrg = TRUE;
631  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
632  chkxer();
633  cblas_info = 7; RowMajorStrg = TRUE;
635  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
636  chkxer();
637  cblas_info = 7; RowMajorStrg = TRUE;
639  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
640  chkxer();
641  cblas_info = 7; RowMajorStrg = TRUE;
643  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
644  chkxer();
645  cblas_info = 7; RowMajorStrg = TRUE;
647  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
648  chkxer();
649  cblas_info = 7; RowMajorStrg = TRUE;
651  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
652  chkxer();
653  cblas_info = 7; RowMajorStrg = TRUE;
655  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
656  chkxer();
657  cblas_info = 7; RowMajorStrg = TRUE;
659  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
660  chkxer();
661  cblas_info = 7; RowMajorStrg = TRUE;
663  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
664  chkxer();
665  cblas_info = 10; RowMajorStrg = TRUE;
667  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
668  chkxer();
669  cblas_info = 10; RowMajorStrg = TRUE;
671  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
672  chkxer();
673  cblas_info = 10; RowMajorStrg = TRUE;
675  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
676  chkxer();
677  cblas_info = 10; RowMajorStrg = TRUE;
679  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
680  chkxer();
681  cblas_info = 10; RowMajorStrg = TRUE;
683  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
684  chkxer();
685  cblas_info = 10; RowMajorStrg = TRUE;
687  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
688  chkxer();
689  cblas_info = 10; RowMajorStrg = TRUE;
691  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
692  chkxer();
693  cblas_info = 10; RowMajorStrg = TRUE;
695  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
696  chkxer();
697  cblas_info = 12; RowMajorStrg = TRUE;
699  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
700  chkxer();
701  cblas_info = 12; RowMajorStrg = TRUE;
703  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
704  chkxer();
705  cblas_info = 12; RowMajorStrg = TRUE;
707  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
708  chkxer();
709  cblas_info = 12; RowMajorStrg = TRUE;
711  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
712  chkxer();
713  cblas_info = 12; RowMajorStrg = TRUE;
715  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
716  chkxer();
717  cblas_info = 12; RowMajorStrg = TRUE;
719  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
720  chkxer();
721  cblas_info = 12; RowMajorStrg = TRUE;
723  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
724  chkxer();
725  cblas_info = 12; RowMajorStrg = TRUE;
727  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
728  chkxer();
729 
730  } else if (strncmp( sf,"cblas_dtrsm" ,11)==0) {
731  cblas_rout = "cblas_dtrsm" ;
732 
733  cblas_info = 1;
735  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
736  chkxer();
737  cblas_info = 2; RowMajorStrg = FALSE;
739  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
740  chkxer();
741  cblas_info = 3; RowMajorStrg = FALSE;
743  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
744  chkxer();
745  cblas_info = 4; RowMajorStrg = FALSE;
747  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
748  chkxer();
749  cblas_info = 5; RowMajorStrg = FALSE;
751  INVALID, 0, 0, ALPHA, A, 1, B, 1 );
752  chkxer();
753  cblas_info = 6; RowMajorStrg = FALSE;
755  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
756  chkxer();
757  cblas_info = 6; RowMajorStrg = FALSE;
759  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
760  chkxer();
761  cblas_info = 6; RowMajorStrg = FALSE;
763  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
764  chkxer();
765  cblas_info = 6; RowMajorStrg = FALSE;
767  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
768  chkxer();
769  cblas_info = 6; RowMajorStrg = FALSE;
771  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
772  chkxer();
773  cblas_info = 6; RowMajorStrg = FALSE;
775  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
776  chkxer();
777  cblas_info = 6; RowMajorStrg = FALSE;
779  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
780  chkxer();
781  cblas_info = 6; RowMajorStrg = FALSE;
783  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
784  chkxer();
785  cblas_info = 7; RowMajorStrg = FALSE;
787  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
788  chkxer();
789  cblas_info = 7; RowMajorStrg = FALSE;
791  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
792  chkxer();
793  cblas_info = 7; RowMajorStrg = FALSE;
795  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
796  chkxer();
797  cblas_info = 7; RowMajorStrg = FALSE;
799  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
800  chkxer();
801  cblas_info = 7; RowMajorStrg = FALSE;
803  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
804  chkxer();
805  cblas_info = 7; RowMajorStrg = FALSE;
807  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
808  chkxer();
809  cblas_info = 7; RowMajorStrg = FALSE;
811  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
812  chkxer();
813  cblas_info = 7; RowMajorStrg = FALSE;
815  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
816  chkxer();
817  cblas_info = 10; RowMajorStrg = FALSE;
819  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
820  chkxer();
821  cblas_info = 10; RowMajorStrg = FALSE;
823  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
824  chkxer();
825  cblas_info = 10; RowMajorStrg = FALSE;
827  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
828  chkxer();
829  cblas_info = 10; RowMajorStrg = FALSE;
831  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
832  chkxer();
833  cblas_info = 10; RowMajorStrg = FALSE;
835  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
836  chkxer();
837  cblas_info = 10; RowMajorStrg = FALSE;
839  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
840  chkxer();
841  cblas_info = 10; RowMajorStrg = FALSE;
843  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
844  chkxer();
845  cblas_info = 10; RowMajorStrg = FALSE;
847  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
848  chkxer();
849  cblas_info = 12; RowMajorStrg = FALSE;
851  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
852  chkxer();
853  cblas_info = 12; RowMajorStrg = FALSE;
855  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
856  chkxer();
857  cblas_info = 12; RowMajorStrg = FALSE;
859  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
860  chkxer();
861  cblas_info = 12; RowMajorStrg = FALSE;
863  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
864  chkxer();
865  cblas_info = 12; RowMajorStrg = FALSE;
867  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
868  chkxer();
869  cblas_info = 12; RowMajorStrg = FALSE;
871  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
872  chkxer();
873  cblas_info = 12; RowMajorStrg = FALSE;
875  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
876  chkxer();
877  cblas_info = 12; RowMajorStrg = FALSE;
879  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
880  chkxer();
881 
882  cblas_info = 6; RowMajorStrg = TRUE;
884  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
885  chkxer();
886  cblas_info = 6; RowMajorStrg = TRUE;
888  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
889  chkxer();
890  cblas_info = 6; RowMajorStrg = TRUE;
892  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
893  chkxer();
894  cblas_info = 6; RowMajorStrg = TRUE;
896  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
897  chkxer();
898  cblas_info = 6; RowMajorStrg = TRUE;
900  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
901  chkxer();
902  cblas_info = 6; RowMajorStrg = TRUE;
904  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
905  chkxer();
906  cblas_info = 6; RowMajorStrg = TRUE;
908  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
909  chkxer();
910  cblas_info = 6; RowMajorStrg = TRUE;
912  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
913  chkxer();
914  cblas_info = 7; RowMajorStrg = TRUE;
916  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
917  chkxer();
918  cblas_info = 7; RowMajorStrg = TRUE;
920  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
921  chkxer();
922  cblas_info = 7; RowMajorStrg = TRUE;
924  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
925  chkxer();
926  cblas_info = 7; RowMajorStrg = TRUE;
928  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
929  chkxer();
930  cblas_info = 7; RowMajorStrg = TRUE;
932  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
933  chkxer();
934  cblas_info = 7; RowMajorStrg = TRUE;
936  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
937  chkxer();
938  cblas_info = 7; RowMajorStrg = TRUE;
940  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
941  chkxer();
942  cblas_info = 7; RowMajorStrg = TRUE;
944  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
945  chkxer();
946  cblas_info = 10; RowMajorStrg = TRUE;
948  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
949  chkxer();
950  cblas_info = 10; RowMajorStrg = TRUE;
952  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
953  chkxer();
954  cblas_info = 10; RowMajorStrg = TRUE;
956  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
957  chkxer();
958  cblas_info = 10; RowMajorStrg = TRUE;
960  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
961  chkxer();
962  cblas_info = 10; RowMajorStrg = TRUE;
964  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
965  chkxer();
966  cblas_info = 10; RowMajorStrg = TRUE;
968  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
969  chkxer();
970  cblas_info = 10; RowMajorStrg = TRUE;
972  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
973  chkxer();
974  cblas_info = 10; RowMajorStrg = TRUE;
976  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
977  chkxer();
978  cblas_info = 12; RowMajorStrg = TRUE;
980  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
981  chkxer();
982  cblas_info = 12; RowMajorStrg = TRUE;
984  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
985  chkxer();
986  cblas_info = 12; RowMajorStrg = TRUE;
988  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
989  chkxer();
990  cblas_info = 12; RowMajorStrg = TRUE;
992  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
993  chkxer();
994  cblas_info = 12; RowMajorStrg = TRUE;
996  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
997  chkxer();
998  cblas_info = 12; RowMajorStrg = TRUE;
1000  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1001  chkxer();
1002  cblas_info = 12; RowMajorStrg = TRUE;
1004  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1005  chkxer();
1006  cblas_info = 12; RowMajorStrg = TRUE;
1008  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1009  chkxer();
1010 
1011  } else if (strncmp( sf,"cblas_dsyrk" ,11)==0) {
1012  cblas_rout = "cblas_dsyrk" ;
1013 
1014  cblas_info = 1;
1016  0, 0, ALPHA, A, 1, BETA, C, 1 );
1017  chkxer();
1018  cblas_info = 2; RowMajorStrg = FALSE;
1020  0, 0, ALPHA, A, 1, BETA, C, 1 );
1021  chkxer();
1022  cblas_info = 3; RowMajorStrg = FALSE;
1024  0, 0, ALPHA, A, 1, BETA, C, 1 );
1025  chkxer();
1026  cblas_info = 4; RowMajorStrg = FALSE;
1028  INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1029  chkxer();
1030  cblas_info = 4; RowMajorStrg = FALSE;
1032  INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1033  chkxer();
1034  cblas_info = 4; RowMajorStrg = FALSE;
1036  INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1037  chkxer();
1038  cblas_info = 4; RowMajorStrg = FALSE;
1040  INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1041  chkxer();
1042  cblas_info = 5; RowMajorStrg = FALSE;
1044  0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1045  chkxer();
1046  cblas_info = 5; RowMajorStrg = FALSE;
1048  0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1049  chkxer();
1050  cblas_info = 5; RowMajorStrg = FALSE;
1052  0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1053  chkxer();
1054  cblas_info = 5; RowMajorStrg = FALSE;
1056  0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1057  chkxer();
1058  cblas_info = 8; RowMajorStrg = TRUE;
1060  0, 2, ALPHA, A, 1, BETA, C, 2 );
1061  chkxer();
1062  cblas_info = 8; RowMajorStrg = TRUE;
1064  2, 0, ALPHA, A, 1, BETA, C, 1 );
1065  chkxer();
1066  cblas_info = 8; RowMajorStrg = TRUE;
1068  0, 2, ALPHA, A, 1, BETA, C, 2 );
1069  chkxer();
1070  cblas_info = 8; RowMajorStrg = TRUE;
1072  2, 0, ALPHA, A, 1, BETA, C, 1 );
1073  chkxer();
1074  cblas_info = 8; RowMajorStrg = FALSE;
1076  2, 0, ALPHA, A, 1, BETA, C, 2 );
1077  chkxer();
1078  cblas_info = 8; RowMajorStrg = FALSE;
1080  0, 2, ALPHA, A, 1, BETA, C, 1 );
1081  chkxer();
1082  cblas_info = 8; RowMajorStrg = FALSE;
1084  2, 0, ALPHA, A, 1, BETA, C, 2 );
1085  chkxer();
1086  cblas_info = 8; RowMajorStrg = FALSE;
1088  0, 2, ALPHA, A, 1, BETA, C, 1 );
1089  chkxer();
1090  cblas_info = 11; RowMajorStrg = TRUE;
1092  2, 0, ALPHA, A, 1, BETA, C, 1 );
1093  chkxer();
1094  cblas_info = 11; RowMajorStrg = TRUE;
1096  2, 0, ALPHA, A, 2, BETA, C, 1 );
1097  chkxer();
1098  cblas_info = 11; RowMajorStrg = TRUE;
1100  2, 0, ALPHA, A, 1, BETA, C, 1 );
1101  chkxer();
1102  cblas_info = 11; RowMajorStrg = TRUE;
1104  2, 0, ALPHA, A, 2, BETA, C, 1 );
1105  chkxer();
1106  cblas_info = 11; RowMajorStrg = FALSE;
1108  2, 0, ALPHA, A, 2, BETA, C, 1 );
1109  chkxer();
1110  cblas_info = 11; RowMajorStrg = FALSE;
1112  2, 0, ALPHA, A, 1, BETA, C, 1 );
1113  chkxer();
1114  cblas_info = 11; RowMajorStrg = FALSE;
1116  2, 0, ALPHA, A, 2, BETA, C, 1 );
1117  chkxer();
1118  cblas_info = 11; RowMajorStrg = FALSE;
1120  2, 0, ALPHA, A, 1, BETA, C, 1 );
1121  chkxer();
1122 
1123  } else if (strncmp( sf,"cblas_dsyr2k" ,12)==0) {
1124  cblas_rout = "cblas_dsyr2k" ;
1125 
1126  cblas_info = 1;
1128  0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1129  chkxer();
1130  cblas_info = 2; RowMajorStrg = FALSE;
1132  0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1133  chkxer();
1134  cblas_info = 3; RowMajorStrg = FALSE;
1136  0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1137  chkxer();
1138  cblas_info = 4; RowMajorStrg = FALSE;
1140  INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1141  chkxer();
1142  cblas_info = 4; RowMajorStrg = FALSE;
1144  INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1145  chkxer();
1146  cblas_info = 4; RowMajorStrg = FALSE;
1148  INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1149  chkxer();
1150  cblas_info = 4; RowMajorStrg = FALSE;
1152  INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1153  chkxer();
1154  cblas_info = 5; RowMajorStrg = FALSE;
1156  0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1157  chkxer();
1158  cblas_info = 5; RowMajorStrg = FALSE;
1160  0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1161  chkxer();
1162  cblas_info = 5; RowMajorStrg = FALSE;
1164  0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1165  chkxer();
1166  cblas_info = 5; RowMajorStrg = FALSE;
1168  0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1169  chkxer();
1170  cblas_info = 8; RowMajorStrg = TRUE;
1172  0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1173  chkxer();
1174  cblas_info = 8; RowMajorStrg = TRUE;
1176  2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1177  chkxer();
1178  cblas_info = 8; RowMajorStrg = TRUE;
1180  0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1181  chkxer();
1182  cblas_info = 8; RowMajorStrg = TRUE;
1184  2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1185  chkxer();
1186  cblas_info = 8; RowMajorStrg = FALSE;
1188  2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1189  chkxer();
1190  cblas_info = 8; RowMajorStrg = FALSE;
1192  0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1193  chkxer();
1194  cblas_info = 8; RowMajorStrg = FALSE;
1196  2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1197  chkxer();
1198  cblas_info = 8; RowMajorStrg = FALSE;
1200  0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1201  chkxer();
1202  cblas_info = 10; RowMajorStrg = TRUE;
1204  0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1205  chkxer();
1206  cblas_info = 10; RowMajorStrg = TRUE;
1208  2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1209  chkxer();
1210  cblas_info = 10; RowMajorStrg = TRUE;
1212  0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1213  chkxer();
1214  cblas_info = 10; RowMajorStrg = TRUE;
1216  2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1217  chkxer();
1218  cblas_info = 10; RowMajorStrg = FALSE;
1220  2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1221  chkxer();
1222  cblas_info = 10; RowMajorStrg = FALSE;
1224  0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1225  chkxer();
1226  cblas_info = 10; RowMajorStrg = FALSE;
1228  2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1229  chkxer();
1230  cblas_info = 10; RowMajorStrg = FALSE;
1232  0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1233  chkxer();
1234  cblas_info = 13; RowMajorStrg = TRUE;
1236  2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1237  chkxer();
1238  cblas_info = 13; RowMajorStrg = TRUE;
1240  2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1241  chkxer();
1242  cblas_info = 13; RowMajorStrg = TRUE;
1244  2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1245  chkxer();
1246  cblas_info = 13; RowMajorStrg = TRUE;
1248  2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1249  chkxer();
1250  cblas_info = 13; RowMajorStrg = FALSE;
1252  2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1253  chkxer();
1254  cblas_info = 13; RowMajorStrg = FALSE;
1256  2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1257  chkxer();
1258  cblas_info = 13; RowMajorStrg = FALSE;
1260  2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1261  chkxer();
1262  cblas_info = 13; RowMajorStrg = FALSE;
1264  2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1265  chkxer();
1266  }
1267  if (cblas_ok == TRUE )
1268  printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1269  else
1270  printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
1271 }
void cblas_dsyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const int N, const int K, const double alpha, const double *A, const int lda, const double beta, double *C, const int ldc)
Definition: cblas_dsyrk.c:12
#define PASSED
Definition: cblas_test.h:11
void F77_xerbla(char *srname, void *vinfo)
Definition: xerbla.c:12
#define FALSE
Definition: cblas_test.h:14
int RowMajorStrg
Definition: cblas_globals.c:2
void cblas_dsyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const int N, const int K, const double alpha, const double *A, const int lda, const double *B, const int ldb, const double beta, double *C, const int ldc)
Definition: cblas_dsyr2k.c:12
void cblas_dtrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const int M, const int N, const double alpha, const double *A, const int lda, double *B, const int ldb)
Definition: cblas_dtrmm.c:12
char * cblas_rout
Definition: c_d3chke.c:8
int link_xerbla
Definition: c_d3chke.c:7
void cblas_dsymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const int M, const int N, const double alpha, const double *A, const int lda, const double *B, const int ldb, const double beta, double *C, const int ldc)
Definition: cblas_dsymm.c:12
void cblas_dtrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const int M, const int N, const double alpha, const double *A, const int lda, double *B, const int ldb)
Definition: cblas_dtrsm.c:12
#define TRUE
Definition: cblas_test.h:10
int cblas_ok
Definition: c_d3chke.c:6
void chkxer(void)
Definition: c_d3chke.c:16
#define INVALID
Definition: cblas_example2.c:8
void cblas_dgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const int M, const int N, const int K, const double alpha, const double *A, const int lda, const double *B, const int ldb, const double beta, double *C, const int ldc)
Definition: cblas_dgemm.c:12
int cblas_info
Definition: c_d3chke.c:6
void cblas_xerbla(int p, const char *rout, const char *form,...)
Definition: cblas_xerbla.c:8
void F77_d3chke(char *rout)
Definition: c_d3chke.c:27
int cblas_lerr
Definition: c_d3chke.c:6