LAPACK  3.10.0
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 
6 int cblas_ok, cblas_lerr, cblas_info;
7 int link_xerbla=TRUE;
8 char *cblas_rout;
9 
10 #ifdef F77_Char
11 void F77_xerbla(F77_Char F77_srname, void *vinfo);
12 #else
13 void F77_xerbla(char *srname, void *vinfo);
14 #endif
15 
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 #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
38  if (link_xerbla) /* call these first to link */
39  {
40  cblas_xerbla(cblas_info,cblas_rout,"");
41  F77_xerbla(cblas_rout,&cblas_info);
42  }
43 #endif
44 
45  cblas_ok = TRUE ;
46  cblas_lerr = PASSED ;
47 
48  if (strncmp( sf,"cblas_dgemm" ,11)==0) {
49  cblas_rout = "cblas_dgemm" ;
50 
51  cblas_info = 1;
52  cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
53  ALPHA, A, 1, B, 1, BETA, C, 1 );
54  chkxer();
55  cblas_info = 1;
56  cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
57  ALPHA, A, 1, B, 1, BETA, C, 1 );
58  chkxer();
59  cblas_info = 1;
60  cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
61  ALPHA, A, 1, B, 1, BETA, C, 1 );
62  chkxer();
63  cblas_info = 1;
64  cblas_dgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0,
65  ALPHA, A, 1, B, 1, BETA, C, 1 );
66  chkxer();
67  cblas_info = 2; RowMajorStrg = FALSE;
68  cblas_dgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0,
69  ALPHA, A, 1, B, 1, BETA, C, 1 );
70  chkxer();
71  cblas_info = 2; RowMajorStrg = FALSE;
72  cblas_dgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0,
73  ALPHA, A, 1, B, 1, BETA, C, 1 );
74  chkxer();
75  cblas_info = 3; RowMajorStrg = FALSE;
76  cblas_dgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
77  ALPHA, A, 1, B, 1, BETA, C, 1 );
78  chkxer();
79  cblas_info = 3; RowMajorStrg = FALSE;
80  cblas_dgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0,
81  ALPHA, A, 1, B, 1, BETA, C, 1 );
82  chkxer();
83  cblas_info = 4; RowMajorStrg = FALSE;
84  cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
85  ALPHA, A, 1, B, 1, BETA, C, 1 );
86  chkxer();
87  cblas_info = 4; RowMajorStrg = FALSE;
88  cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
89  ALPHA, A, 1, B, 1, BETA, C, 1 );
90  chkxer();
91  cblas_info = 4; RowMajorStrg = FALSE;
92  cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
93  ALPHA, A, 1, B, 1, BETA, C, 1 );
94  chkxer();
95  cblas_info = 4; RowMajorStrg = FALSE;
96  cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
97  ALPHA, A, 1, B, 1, BETA, C, 1 );
98  chkxer();
99  cblas_info = 5; RowMajorStrg = FALSE;
100  cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
101  ALPHA, A, 1, B, 1, BETA, C, 1 );
102  chkxer();
103  cblas_info = 5; RowMajorStrg = FALSE;
104  cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
105  ALPHA, A, 1, B, 1, BETA, C, 1 );
106  chkxer();
107  cblas_info = 5; RowMajorStrg = FALSE;
108  cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
109  ALPHA, A, 1, B, 1, BETA, C, 1 );
110  chkxer();
111  cblas_info = 5; RowMajorStrg = FALSE;
112  cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
113  ALPHA, A, 1, B, 1, BETA, C, 1 );
114  chkxer();
115  cblas_info = 6; RowMajorStrg = FALSE;
116  cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
117  ALPHA, A, 1, B, 1, BETA, C, 1 );
118  chkxer();
119  cblas_info = 6; RowMajorStrg = FALSE;
120  cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
121  ALPHA, A, 1, B, 1, BETA, C, 1 );
122  chkxer();
123  cblas_info = 6; RowMajorStrg = FALSE;
124  cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
125  ALPHA, A, 1, B, 1, BETA, C, 1 );
126  chkxer();
127  cblas_info = 6; RowMajorStrg = FALSE;
128  cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
129  ALPHA, A, 1, B, 1, BETA, C, 1 );
130  chkxer();
131  cblas_info = 9; RowMajorStrg = FALSE;
132  cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
133  ALPHA, A, 1, B, 1, BETA, C, 2 );
134  chkxer();
135  cblas_info = 9; RowMajorStrg = FALSE;
136  cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
137  ALPHA, A, 1, B, 1, BETA, C, 2 );
138  chkxer();
139  cblas_info = 9; RowMajorStrg = FALSE;
140  cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
141  ALPHA, A, 1, B, 2, BETA, C, 1 );
142  chkxer();
143  cblas_info = 9; RowMajorStrg = FALSE;
144  cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2,
145  ALPHA, A, 1, B, 1, BETA, C, 1 );
146  chkxer();
147  cblas_info = 11; RowMajorStrg = FALSE;
148  cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
149  ALPHA, A, 1, B, 1, BETA, C, 1 );
150  chkxer();
151  cblas_info = 11; RowMajorStrg = FALSE;
152  cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
153  ALPHA, A, 2, B, 1, BETA, C, 1 );
154  chkxer();
155  cblas_info = 11; RowMajorStrg = FALSE;
156  cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
157  ALPHA, A, 1, B, 1, BETA, C, 1 );
158  chkxer();
159  cblas_info = 11; RowMajorStrg = FALSE;
160  cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0,
161  ALPHA, A, 1, B, 1, BETA, C, 1 );
162  chkxer();
163  cblas_info = 14; RowMajorStrg = FALSE;
164  cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
165  ALPHA, A, 2, B, 1, BETA, C, 1 );
166  chkxer();
167  cblas_info = 14; RowMajorStrg = FALSE;
168  cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
169  ALPHA, A, 2, B, 1, BETA, C, 1 );
170  chkxer();
171  cblas_info = 14; RowMajorStrg = FALSE;
172  cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
173  ALPHA, A, 1, B, 1, BETA, C, 1 );
174  chkxer();
175  cblas_info = 14; RowMajorStrg = FALSE;
176  cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0,
177  ALPHA, A, 1, B, 1, BETA, C, 1 );
178  chkxer();
179  cblas_info = 4; RowMajorStrg = TRUE;
180  cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
181  ALPHA, A, 1, B, 1, BETA, C, 1 );
182  chkxer();
183  cblas_info = 4; RowMajorStrg = TRUE;
184  cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
185  ALPHA, A, 1, B, 1, BETA, C, 1 );
186  chkxer();
187  cblas_info = 4; RowMajorStrg = TRUE;
188  cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
189  ALPHA, A, 1, B, 1, BETA, C, 1 );
190  chkxer();
191  cblas_info = 4; RowMajorStrg = TRUE;
192  cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
193  ALPHA, A, 1, B, 1, BETA, C, 1 );
194  chkxer();
195  cblas_info = 5; RowMajorStrg = TRUE;
196  cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
197  ALPHA, A, 1, B, 1, BETA, C, 1 );
198  chkxer();
199  cblas_info = 5; RowMajorStrg = TRUE;
200  cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
201  ALPHA, A, 1, B, 1, BETA, C, 1 );
202  chkxer();
203  cblas_info = 5; RowMajorStrg = TRUE;
204  cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
205  ALPHA, A, 1, B, 1, BETA, C, 1 );
206  chkxer();
207  cblas_info = 5; RowMajorStrg = TRUE;
208  cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
209  ALPHA, A, 1, B, 1, BETA, C, 1 );
210  chkxer();
211  cblas_info = 6; RowMajorStrg = TRUE;
212  cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
213  ALPHA, A, 1, B, 1, BETA, C, 1 );
214  chkxer();
215  cblas_info = 6; RowMajorStrg = TRUE;
216  cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
217  ALPHA, A, 1, B, 1, BETA, C, 1 );
218  chkxer();
219  cblas_info = 6; RowMajorStrg = TRUE;
220  cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
221  ALPHA, A, 1, B, 1, BETA, C, 1 );
222  chkxer();
223  cblas_info = 6; RowMajorStrg = TRUE;
224  cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
225  ALPHA, A, 1, B, 1, BETA, C, 1 );
226  chkxer();
227  cblas_info = 9; RowMajorStrg = TRUE;
228  cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
229  ALPHA, A, 1, B, 1, BETA, C, 2 );
230  chkxer();
231  cblas_info = 9; RowMajorStrg = TRUE;
232  cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2,
233  ALPHA, A, 1, B, 2, BETA, C, 2 );
234  chkxer();
235  cblas_info = 9; RowMajorStrg = TRUE;
236  cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
237  ALPHA, A, 1, B, 2, BETA, C, 1 );
238  chkxer();
239  cblas_info = 9; RowMajorStrg = TRUE;
240  cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0,
241  ALPHA, A, 1, B, 1, BETA, C, 1 );
242  chkxer();
243  cblas_info = 11; RowMajorStrg = TRUE;
244  cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0,
245  ALPHA, A, 1, B, 1, BETA, C, 1 );
246  chkxer();
247  cblas_info = 11; RowMajorStrg = TRUE;
248  cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0,
249  ALPHA, A, 2, B, 1, BETA, C, 1 );
250  chkxer();
251  cblas_info = 11; RowMajorStrg = TRUE;
252  cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2,
253  ALPHA, A, 2, B, 1, BETA, C, 1 );
254  chkxer();
255  cblas_info = 11; RowMajorStrg = TRUE;
256  cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2,
257  ALPHA, A, 1, B, 1, BETA, C, 1 );
258  chkxer();
259  cblas_info = 14; RowMajorStrg = TRUE;
260  cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0,
261  ALPHA, A, 1, B, 2, BETA, C, 1 );
262  chkxer();
263  cblas_info = 14; RowMajorStrg = TRUE;
264  cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
265  ALPHA, A, 1, B, 1, BETA, C, 1 );
266  chkxer();
267  cblas_info = 14; RowMajorStrg = TRUE;
268  cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0,
269  ALPHA, A, 1, B, 2, BETA, C, 1 );
270  chkxer();
271  cblas_info = 14; RowMajorStrg = TRUE;
272  cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
273  ALPHA, A, 1, B, 1, BETA, C, 1 );
274  chkxer();
275 
276  } else if (strncmp( sf,"cblas_dsymm" ,11)==0) {
277  cblas_rout = "cblas_dsymm" ;
278 
279  cblas_info = 1;
280  cblas_dsymm( INVALID, CblasRight, CblasLower, 0, 0,
281  ALPHA, A, 1, B, 1, BETA, C, 1 );
282  chkxer();
283  cblas_info = 2; RowMajorStrg = FALSE;
284  cblas_dsymm( CblasColMajor, INVALID, CblasUpper, 0, 0,
285  ALPHA, A, 1, B, 1, BETA, C, 1 );
286  chkxer();
287  cblas_info = 3; RowMajorStrg = FALSE;
288  cblas_dsymm( CblasColMajor, CblasLeft, INVALID, 0, 0,
289  ALPHA, A, 1, B, 1, BETA, C, 1 );
290  chkxer();
291  cblas_info = 4; RowMajorStrg = FALSE;
292  cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0,
293  ALPHA, A, 1, B, 1, BETA, C, 1 );
294  chkxer();
295  cblas_info = 4; RowMajorStrg = FALSE;
296  cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0,
297  ALPHA, A, 1, B, 1, BETA, C, 1 );
298  chkxer();
299  cblas_info = 4; RowMajorStrg = FALSE;
300  cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0,
301  ALPHA, A, 1, B, 1, BETA, C, 1 );
302  chkxer();
303  cblas_info = 4; RowMajorStrg = FALSE;
304  cblas_dsymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0,
305  ALPHA, A, 1, B, 1, BETA, C, 1 );
306  chkxer();
307  cblas_info = 5; RowMajorStrg = FALSE;
308  cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID,
309  ALPHA, A, 1, B, 1, BETA, C, 1 );
310  chkxer();
311  cblas_info = 5; RowMajorStrg = FALSE;
312  cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID,
313  ALPHA, A, 1, B, 1, BETA, C, 1 );
314  chkxer();
315  cblas_info = 5; RowMajorStrg = FALSE;
316  cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID,
317  ALPHA, A, 1, B, 1, BETA, C, 1 );
318  chkxer();
319  cblas_info = 5; RowMajorStrg = FALSE;
320  cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID,
321  ALPHA, A, 1, B, 1, BETA, C, 1 );
322  chkxer();
323  cblas_info = 8; RowMajorStrg = FALSE;
324  cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
325  ALPHA, A, 1, B, 2, BETA, C, 2 );
326  chkxer();
327  cblas_info = 8; RowMajorStrg = FALSE;
328  cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 0, 2,
329  ALPHA, A, 1, B, 1, BETA, C, 1 );
330  chkxer();
331  cblas_info = 8; RowMajorStrg = FALSE;
332  cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
333  ALPHA, A, 1, B, 2, BETA, C, 2 );
334  chkxer();
335  cblas_info = 8; RowMajorStrg = FALSE;
336  cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 0, 2,
337  ALPHA, A, 1, B, 1, BETA, C, 1 );
338  chkxer();
339  cblas_info = 10; RowMajorStrg = FALSE;
340  cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
341  ALPHA, A, 2, B, 1, BETA, C, 1 );
342  chkxer();
343  cblas_info = 10; RowMajorStrg = FALSE;
344  cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
345  ALPHA, A, 1, B, 1, BETA, C, 1 );
346  chkxer();
347  cblas_info = 10; RowMajorStrg = FALSE;
348  cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
349  ALPHA, A, 2, B, 1, BETA, C, 1 );
350  chkxer();
351  cblas_info = 10; RowMajorStrg = FALSE;
352  cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
353  ALPHA, A, 1, B, 1, BETA, C, 1 );
354  chkxer();
355  cblas_info = 13; RowMajorStrg = FALSE;
356  cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
357  ALPHA, A, 2, B, 2, BETA, C, 1 );
358  chkxer();
359  cblas_info = 13; RowMajorStrg = FALSE;
360  cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
361  ALPHA, A, 1, B, 2, BETA, C, 1 );
362  chkxer();
363  cblas_info = 13; RowMajorStrg = FALSE;
364  cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
365  ALPHA, A, 2, B, 2, BETA, C, 1 );
366  chkxer();
367  cblas_info = 13; RowMajorStrg = FALSE;
368  cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
369  ALPHA, A, 1, B, 2, BETA, C, 1 );
370  chkxer();
371  cblas_info = 4; RowMajorStrg = TRUE;
372  cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
373  ALPHA, A, 1, B, 1, BETA, C, 1 );
374  chkxer();
375  cblas_info = 4; RowMajorStrg = TRUE;
376  cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0,
377  ALPHA, A, 1, B, 1, BETA, C, 1 );
378  chkxer();
379  cblas_info = 4; RowMajorStrg = TRUE;
380  cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0,
381  ALPHA, A, 1, B, 1, BETA, C, 1 );
382  chkxer();
383  cblas_info = 4; RowMajorStrg = TRUE;
384  cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0,
385  ALPHA, A, 1, B, 1, BETA, C, 1 );
386  chkxer();
387  cblas_info = 5; RowMajorStrg = TRUE;
388  cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID,
389  ALPHA, A, 1, B, 1, BETA, C, 1 );
390  chkxer();
391  cblas_info = 5; RowMajorStrg = TRUE;
392  cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID,
393  ALPHA, A, 1, B, 1, BETA, C, 1 );
394  chkxer();
395  cblas_info = 5; RowMajorStrg = TRUE;
396  cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID,
397  ALPHA, A, 1, B, 1, BETA, C, 1 );
398  chkxer();
399  cblas_info = 5; RowMajorStrg = TRUE;
400  cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID,
401  ALPHA, A, 1, B, 1, BETA, C, 1 );
402  chkxer();
403  cblas_info = 8; RowMajorStrg = TRUE;
404  cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0,
405  ALPHA, A, 1, B, 2, BETA, C, 2 );
406  chkxer();
407  cblas_info = 8; RowMajorStrg = TRUE;
408  cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
409  ALPHA, A, 1, B, 1, BETA, C, 1 );
410  chkxer();
411  cblas_info = 8; RowMajorStrg = TRUE;
412  cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0,
413  ALPHA, A, 1, B, 2, BETA, C, 2 );
414  chkxer();
415  cblas_info = 8; RowMajorStrg = TRUE;
416  cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
417  ALPHA, A, 1, B, 1, BETA, C, 1 );
418  chkxer();
419  cblas_info = 10; RowMajorStrg = TRUE;
420  cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
421  ALPHA, A, 2, B, 1, BETA, C, 1 );
422  chkxer();
423  cblas_info = 10; RowMajorStrg = TRUE;
424  cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
425  ALPHA, A, 2, B, 1, BETA, C, 1 );
426  chkxer();
427  cblas_info = 10; RowMajorStrg = TRUE;
428  cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
429  ALPHA, A, 2, B, 1, BETA, C, 1 );
430  chkxer();
431  cblas_info = 10; RowMajorStrg = TRUE;
432  cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
433  ALPHA, A, 2, B, 1, BETA, C, 1 );
434  chkxer();
435  cblas_info = 13; RowMajorStrg = TRUE;
436  cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
437  ALPHA, A, 1, B, 2, BETA, C, 1 );
438  chkxer();
439  cblas_info = 13; RowMajorStrg = TRUE;
440  cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
441  ALPHA, A, 2, B, 2, BETA, C, 1 );
442  chkxer();
443  cblas_info = 13; RowMajorStrg = TRUE;
444  cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
445  ALPHA, A, 1, B, 2, BETA, C, 1 );
446  chkxer();
447  cblas_info = 13; RowMajorStrg = TRUE;
448  cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
449  ALPHA, A, 2, B, 2, BETA, C, 1 );
450  chkxer();
451 
452  } else if (strncmp( sf,"cblas_dtrmm" ,11)==0) {
453  cblas_rout = "cblas_dtrmm" ;
454 
455  cblas_info = 1;
456  cblas_dtrmm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
457  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
458  chkxer();
459  cblas_info = 2; RowMajorStrg = FALSE;
460  cblas_dtrmm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
461  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
462  chkxer();
463  cblas_info = 3; RowMajorStrg = FALSE;
464  cblas_dtrmm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
465  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
466  chkxer();
467  cblas_info = 4; RowMajorStrg = FALSE;
468  cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
469  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
470  chkxer();
471  cblas_info = 5; RowMajorStrg = FALSE;
472  cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
473  INVALID, 0, 0, ALPHA, A, 1, B, 1 );
474  chkxer();
475  cblas_info = 6; RowMajorStrg = FALSE;
476  cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
477  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
478  chkxer();
479  cblas_info = 6; RowMajorStrg = FALSE;
480  cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
481  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
482  chkxer();
483  cblas_info = 6; RowMajorStrg = FALSE;
484  cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
485  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
486  chkxer();
487  cblas_info = 6; RowMajorStrg = FALSE;
488  cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
489  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
490  chkxer();
491  cblas_info = 6; RowMajorStrg = FALSE;
492  cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
493  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
494  chkxer();
495  cblas_info = 6; RowMajorStrg = FALSE;
496  cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
497  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
498  chkxer();
499  cblas_info = 6; RowMajorStrg = FALSE;
500  cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
501  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
502  chkxer();
503  cblas_info = 6; RowMajorStrg = FALSE;
504  cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
505  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
506  chkxer();
507  cblas_info = 7; RowMajorStrg = FALSE;
508  cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
509  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
510  chkxer();
511  cblas_info = 7; RowMajorStrg = FALSE;
512  cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
513  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
514  chkxer();
515  cblas_info = 7; RowMajorStrg = FALSE;
516  cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
517  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
518  chkxer();
519  cblas_info = 7; RowMajorStrg = FALSE;
520  cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
521  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
522  chkxer();
523  cblas_info = 7; RowMajorStrg = FALSE;
524  cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
525  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
526  chkxer();
527  cblas_info = 7; RowMajorStrg = FALSE;
528  cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
529  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
530  chkxer();
531  cblas_info = 7; RowMajorStrg = FALSE;
532  cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
533  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
534  chkxer();
535  cblas_info = 7; RowMajorStrg = FALSE;
536  cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
537  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
538  chkxer();
539  cblas_info = 10; RowMajorStrg = FALSE;
540  cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
541  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
542  chkxer();
543  cblas_info = 10; RowMajorStrg = FALSE;
544  cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
545  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
546  chkxer();
547  cblas_info = 10; RowMajorStrg = FALSE;
548  cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
549  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
550  chkxer();
551  cblas_info = 10; RowMajorStrg = FALSE;
552  cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
553  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
554  chkxer();
555  cblas_info = 10; RowMajorStrg = FALSE;
556  cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
557  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
558  chkxer();
559  cblas_info = 10; RowMajorStrg = FALSE;
560  cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
561  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
562  chkxer();
563  cblas_info = 10; RowMajorStrg = FALSE;
564  cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
565  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
566  chkxer();
567  cblas_info = 10; RowMajorStrg = FALSE;
568  cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
569  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
570  chkxer();
571  cblas_info = 12; RowMajorStrg = FALSE;
572  cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
573  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
574  chkxer();
575  cblas_info = 12; RowMajorStrg = FALSE;
576  cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
577  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
578  chkxer();
579  cblas_info = 12; RowMajorStrg = FALSE;
580  cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
581  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
582  chkxer();
583  cblas_info = 12; RowMajorStrg = FALSE;
584  cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
585  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
586  chkxer();
587  cblas_info = 12; RowMajorStrg = FALSE;
588  cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
589  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
590  chkxer();
591  cblas_info = 12; RowMajorStrg = FALSE;
592  cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
593  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
594  chkxer();
595  cblas_info = 12; RowMajorStrg = FALSE;
596  cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
597  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
598  chkxer();
599  cblas_info = 12; RowMajorStrg = FALSE;
600  cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
601  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
602  chkxer();
603  cblas_info = 6; RowMajorStrg = TRUE;
604  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
605  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
606  chkxer();
607  cblas_info = 6; RowMajorStrg = TRUE;
608  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
609  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
610  chkxer();
611  cblas_info = 6; RowMajorStrg = TRUE;
612  cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
613  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
614  chkxer();
615  cblas_info = 6; RowMajorStrg = TRUE;
616  cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
617  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
618  chkxer();
619  cblas_info = 6; RowMajorStrg = TRUE;
620  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
621  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
622  chkxer();
623  cblas_info = 6; RowMajorStrg = TRUE;
624  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
625  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
626  chkxer();
627  cblas_info = 6; RowMajorStrg = TRUE;
628  cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
629  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
630  chkxer();
631  cblas_info = 6; RowMajorStrg = TRUE;
632  cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
633  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
634  chkxer();
635  cblas_info = 7; RowMajorStrg = TRUE;
636  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
637  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
638  chkxer();
639  cblas_info = 7; RowMajorStrg = TRUE;
640  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
641  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
642  chkxer();
643  cblas_info = 7; RowMajorStrg = TRUE;
644  cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
645  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
646  chkxer();
647  cblas_info = 7; RowMajorStrg = TRUE;
648  cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
649  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
650  chkxer();
651  cblas_info = 7; RowMajorStrg = TRUE;
652  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
653  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
654  chkxer();
655  cblas_info = 7; RowMajorStrg = TRUE;
656  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
657  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
658  chkxer();
659  cblas_info = 7; RowMajorStrg = TRUE;
660  cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
661  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
662  chkxer();
663  cblas_info = 7; RowMajorStrg = TRUE;
664  cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
665  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
666  chkxer();
667  cblas_info = 10; RowMajorStrg = TRUE;
668  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
669  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
670  chkxer();
671  cblas_info = 10; RowMajorStrg = TRUE;
672  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
673  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
674  chkxer();
675  cblas_info = 10; RowMajorStrg = TRUE;
676  cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
677  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
678  chkxer();
679  cblas_info = 10; RowMajorStrg = TRUE;
680  cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
681  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
682  chkxer();
683  cblas_info = 10; RowMajorStrg = TRUE;
684  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
685  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
686  chkxer();
687  cblas_info = 10; RowMajorStrg = TRUE;
688  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
689  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
690  chkxer();
691  cblas_info = 10; RowMajorStrg = TRUE;
692  cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
693  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
694  chkxer();
695  cblas_info = 10; RowMajorStrg = TRUE;
696  cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
697  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
698  chkxer();
699  cblas_info = 12; RowMajorStrg = TRUE;
700  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
701  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
702  chkxer();
703  cblas_info = 12; RowMajorStrg = TRUE;
704  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
705  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
706  chkxer();
707  cblas_info = 12; RowMajorStrg = TRUE;
708  cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
709  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
710  chkxer();
711  cblas_info = 12; RowMajorStrg = TRUE;
712  cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
713  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
714  chkxer();
715  cblas_info = 12; RowMajorStrg = TRUE;
716  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
717  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
718  chkxer();
719  cblas_info = 12; RowMajorStrg = TRUE;
720  cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
721  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
722  chkxer();
723  cblas_info = 12; RowMajorStrg = TRUE;
724  cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
725  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
726  chkxer();
727  cblas_info = 12; RowMajorStrg = TRUE;
728  cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
729  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
730  chkxer();
731 
732  } else if (strncmp( sf,"cblas_dtrsm" ,11)==0) {
733  cblas_rout = "cblas_dtrsm" ;
734 
735  cblas_info = 1;
736  cblas_dtrsm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
737  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
738  chkxer();
739  cblas_info = 2; RowMajorStrg = FALSE;
740  cblas_dtrsm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
741  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
742  chkxer();
743  cblas_info = 3; RowMajorStrg = FALSE;
744  cblas_dtrsm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
745  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
746  chkxer();
747  cblas_info = 4; RowMajorStrg = FALSE;
748  cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
749  CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
750  chkxer();
751  cblas_info = 5; RowMajorStrg = FALSE;
752  cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
753  INVALID, 0, 0, ALPHA, A, 1, B, 1 );
754  chkxer();
755  cblas_info = 6; RowMajorStrg = FALSE;
756  cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
757  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
758  chkxer();
759  cblas_info = 6; RowMajorStrg = FALSE;
760  cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
761  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
762  chkxer();
763  cblas_info = 6; RowMajorStrg = FALSE;
764  cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
765  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
766  chkxer();
767  cblas_info = 6; RowMajorStrg = FALSE;
768  cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
769  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
770  chkxer();
771  cblas_info = 6; RowMajorStrg = FALSE;
772  cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
773  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
774  chkxer();
775  cblas_info = 6; RowMajorStrg = FALSE;
776  cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
777  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
778  chkxer();
779  cblas_info = 6; RowMajorStrg = FALSE;
780  cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
781  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
782  chkxer();
783  cblas_info = 6; RowMajorStrg = FALSE;
784  cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
785  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
786  chkxer();
787  cblas_info = 7; RowMajorStrg = FALSE;
788  cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
789  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
790  chkxer();
791  cblas_info = 7; RowMajorStrg = FALSE;
792  cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
793  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
794  chkxer();
795  cblas_info = 7; RowMajorStrg = FALSE;
796  cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
797  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
798  chkxer();
799  cblas_info = 7; RowMajorStrg = FALSE;
800  cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
801  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
802  chkxer();
803  cblas_info = 7; RowMajorStrg = FALSE;
804  cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
805  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
806  chkxer();
807  cblas_info = 7; RowMajorStrg = FALSE;
808  cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
809  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
810  chkxer();
811  cblas_info = 7; RowMajorStrg = FALSE;
812  cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
813  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
814  chkxer();
815  cblas_info = 7; RowMajorStrg = FALSE;
816  cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
817  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
818  chkxer();
819  cblas_info = 10; RowMajorStrg = FALSE;
820  cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
821  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
822  chkxer();
823  cblas_info = 10; RowMajorStrg = FALSE;
824  cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
825  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
826  chkxer();
827  cblas_info = 10; RowMajorStrg = FALSE;
828  cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
829  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
830  chkxer();
831  cblas_info = 10; RowMajorStrg = FALSE;
832  cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
833  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
834  chkxer();
835  cblas_info = 10; RowMajorStrg = FALSE;
836  cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
837  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
838  chkxer();
839  cblas_info = 10; RowMajorStrg = FALSE;
840  cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
841  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
842  chkxer();
843  cblas_info = 10; RowMajorStrg = FALSE;
844  cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
845  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
846  chkxer();
847  cblas_info = 10; RowMajorStrg = FALSE;
848  cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
849  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
850  chkxer();
851  cblas_info = 12; RowMajorStrg = FALSE;
852  cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
853  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
854  chkxer();
855  cblas_info = 12; RowMajorStrg = FALSE;
856  cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
857  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
858  chkxer();
859  cblas_info = 12; RowMajorStrg = FALSE;
860  cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
861  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
862  chkxer();
863  cblas_info = 12; RowMajorStrg = FALSE;
864  cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
865  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
866  chkxer();
867  cblas_info = 12; RowMajorStrg = FALSE;
868  cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
869  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
870  chkxer();
871  cblas_info = 12; RowMajorStrg = FALSE;
872  cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
873  CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
874  chkxer();
875  cblas_info = 12; RowMajorStrg = FALSE;
876  cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
877  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
878  chkxer();
879  cblas_info = 12; RowMajorStrg = FALSE;
880  cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
881  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
882  chkxer();
883 
884  cblas_info = 6; RowMajorStrg = TRUE;
885  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
886  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
887  chkxer();
888  cblas_info = 6; RowMajorStrg = TRUE;
889  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
890  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
891  chkxer();
892  cblas_info = 6; RowMajorStrg = TRUE;
893  cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
894  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
895  chkxer();
896  cblas_info = 6; RowMajorStrg = TRUE;
897  cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
898  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
899  chkxer();
900  cblas_info = 6; RowMajorStrg = TRUE;
901  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
902  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
903  chkxer();
904  cblas_info = 6; RowMajorStrg = TRUE;
905  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
906  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
907  chkxer();
908  cblas_info = 6; RowMajorStrg = TRUE;
909  cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
910  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
911  chkxer();
912  cblas_info = 6; RowMajorStrg = TRUE;
913  cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
914  CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
915  chkxer();
916  cblas_info = 7; RowMajorStrg = TRUE;
917  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
918  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
919  chkxer();
920  cblas_info = 7; RowMajorStrg = TRUE;
921  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
922  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
923  chkxer();
924  cblas_info = 7; RowMajorStrg = TRUE;
925  cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
926  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
927  chkxer();
928  cblas_info = 7; RowMajorStrg = TRUE;
929  cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
930  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
931  chkxer();
932  cblas_info = 7; RowMajorStrg = TRUE;
933  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
934  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
935  chkxer();
936  cblas_info = 7; RowMajorStrg = TRUE;
937  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
938  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
939  chkxer();
940  cblas_info = 7; RowMajorStrg = TRUE;
941  cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
942  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
943  chkxer();
944  cblas_info = 7; RowMajorStrg = TRUE;
945  cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
946  CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
947  chkxer();
948  cblas_info = 10; RowMajorStrg = TRUE;
949  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
950  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
951  chkxer();
952  cblas_info = 10; RowMajorStrg = TRUE;
953  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
954  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
955  chkxer();
956  cblas_info = 10; RowMajorStrg = TRUE;
957  cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
958  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
959  chkxer();
960  cblas_info = 10; RowMajorStrg = TRUE;
961  cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
962  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
963  chkxer();
964  cblas_info = 10; RowMajorStrg = TRUE;
965  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
966  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
967  chkxer();
968  cblas_info = 10; RowMajorStrg = TRUE;
969  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
970  CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
971  chkxer();
972  cblas_info = 10; RowMajorStrg = TRUE;
973  cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
974  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
975  chkxer();
976  cblas_info = 10; RowMajorStrg = TRUE;
977  cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
978  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
979  chkxer();
980  cblas_info = 12; RowMajorStrg = TRUE;
981  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
982  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
983  chkxer();
984  cblas_info = 12; RowMajorStrg = TRUE;
985  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
986  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
987  chkxer();
988  cblas_info = 12; RowMajorStrg = TRUE;
989  cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
990  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
991  chkxer();
992  cblas_info = 12; RowMajorStrg = TRUE;
993  cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
994  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
995  chkxer();
996  cblas_info = 12; RowMajorStrg = TRUE;
997  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
998  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
999  chkxer();
1000  cblas_info = 12; RowMajorStrg = TRUE;
1001  cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
1002  CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1003  chkxer();
1004  cblas_info = 12; RowMajorStrg = TRUE;
1005  cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
1006  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1007  chkxer();
1008  cblas_info = 12; RowMajorStrg = TRUE;
1009  cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
1010  CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1011  chkxer();
1012 
1013  } else if (strncmp( sf,"cblas_dsyrk" ,11)==0) {
1014  cblas_rout = "cblas_dsyrk" ;
1015 
1016  cblas_info = 1;
1017  cblas_dsyrk( INVALID, CblasUpper, CblasNoTrans,
1018  0, 0, ALPHA, A, 1, BETA, C, 1 );
1019  chkxer();
1020  cblas_info = 2; RowMajorStrg = FALSE;
1021  cblas_dsyrk( CblasColMajor, INVALID, CblasNoTrans,
1022  0, 0, ALPHA, A, 1, BETA, C, 1 );
1023  chkxer();
1024  cblas_info = 3; RowMajorStrg = FALSE;
1025  cblas_dsyrk( CblasColMajor, CblasUpper, INVALID,
1026  0, 0, ALPHA, A, 1, BETA, C, 1 );
1027  chkxer();
1028  cblas_info = 4; RowMajorStrg = FALSE;
1029  cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1030  INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1031  chkxer();
1032  cblas_info = 4; RowMajorStrg = FALSE;
1033  cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans,
1034  INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1035  chkxer();
1036  cblas_info = 4; RowMajorStrg = FALSE;
1037  cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans,
1038  INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1039  chkxer();
1040  cblas_info = 4; RowMajorStrg = FALSE;
1041  cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans,
1042  INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1043  chkxer();
1044  cblas_info = 5; RowMajorStrg = FALSE;
1045  cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1046  0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1047  chkxer();
1048  cblas_info = 5; RowMajorStrg = FALSE;
1049  cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans,
1050  0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1051  chkxer();
1052  cblas_info = 5; RowMajorStrg = FALSE;
1053  cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans,
1054  0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1055  chkxer();
1056  cblas_info = 5; RowMajorStrg = FALSE;
1057  cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans,
1058  0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1059  chkxer();
1060  cblas_info = 8; RowMajorStrg = TRUE;
1061  cblas_dsyrk( CblasRowMajor, CblasUpper, CblasNoTrans,
1062  0, 2, ALPHA, A, 1, BETA, C, 2 );
1063  chkxer();
1064  cblas_info = 8; RowMajorStrg = TRUE;
1065  cblas_dsyrk( CblasRowMajor, CblasUpper, CblasTrans,
1066  2, 0, ALPHA, A, 1, BETA, C, 1 );
1067  chkxer();
1068  cblas_info = 8; RowMajorStrg = TRUE;
1069  cblas_dsyrk( CblasRowMajor, CblasLower, CblasNoTrans,
1070  0, 2, ALPHA, A, 1, BETA, C, 2 );
1071  chkxer();
1072  cblas_info = 8; RowMajorStrg = TRUE;
1073  cblas_dsyrk( CblasRowMajor, CblasLower, CblasTrans,
1074  2, 0, ALPHA, A, 1, BETA, C, 1 );
1075  chkxer();
1076  cblas_info = 8; RowMajorStrg = FALSE;
1077  cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1078  2, 0, ALPHA, A, 1, BETA, C, 2 );
1079  chkxer();
1080  cblas_info = 8; RowMajorStrg = FALSE;
1081  cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans,
1082  0, 2, ALPHA, A, 1, BETA, C, 1 );
1083  chkxer();
1084  cblas_info = 8; RowMajorStrg = FALSE;
1085  cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans,
1086  2, 0, ALPHA, A, 1, BETA, C, 2 );
1087  chkxer();
1088  cblas_info = 8; RowMajorStrg = FALSE;
1089  cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans,
1090  0, 2, ALPHA, A, 1, BETA, C, 1 );
1091  chkxer();
1092  cblas_info = 11; RowMajorStrg = TRUE;
1093  cblas_dsyrk( CblasRowMajor, CblasUpper, CblasNoTrans,
1094  2, 0, ALPHA, A, 1, BETA, C, 1 );
1095  chkxer();
1096  cblas_info = 11; RowMajorStrg = TRUE;
1097  cblas_dsyrk( CblasRowMajor, CblasUpper, CblasTrans,
1098  2, 0, ALPHA, A, 2, BETA, C, 1 );
1099  chkxer();
1100  cblas_info = 11; RowMajorStrg = TRUE;
1101  cblas_dsyrk( CblasRowMajor, CblasLower, CblasNoTrans,
1102  2, 0, ALPHA, A, 1, BETA, C, 1 );
1103  chkxer();
1104  cblas_info = 11; RowMajorStrg = TRUE;
1105  cblas_dsyrk( CblasRowMajor, CblasLower, CblasTrans,
1106  2, 0, ALPHA, A, 2, BETA, C, 1 );
1107  chkxer();
1108  cblas_info = 11; RowMajorStrg = FALSE;
1109  cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1110  2, 0, ALPHA, A, 2, BETA, C, 1 );
1111  chkxer();
1112  cblas_info = 11; RowMajorStrg = FALSE;
1113  cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans,
1114  2, 0, ALPHA, A, 1, BETA, C, 1 );
1115  chkxer();
1116  cblas_info = 11; RowMajorStrg = FALSE;
1117  cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans,
1118  2, 0, ALPHA, A, 2, BETA, C, 1 );
1119  chkxer();
1120  cblas_info = 11; RowMajorStrg = FALSE;
1121  cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans,
1122  2, 0, ALPHA, A, 1, BETA, C, 1 );
1123  chkxer();
1124 
1125  } else if (strncmp( sf,"cblas_dsyr2k" ,12)==0) {
1126  cblas_rout = "cblas_dsyr2k" ;
1127 
1128  cblas_info = 1;
1129  cblas_dsyr2k( INVALID, CblasUpper, CblasNoTrans,
1130  0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1131  chkxer();
1132  cblas_info = 2; RowMajorStrg = FALSE;
1133  cblas_dsyr2k( CblasColMajor, INVALID, CblasNoTrans,
1134  0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1135  chkxer();
1136  cblas_info = 3; RowMajorStrg = FALSE;
1137  cblas_dsyr2k( CblasColMajor, CblasUpper, INVALID,
1138  0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1139  chkxer();
1140  cblas_info = 4; RowMajorStrg = FALSE;
1141  cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1142  INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1143  chkxer();
1144  cblas_info = 4; RowMajorStrg = FALSE;
1145  cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans,
1146  INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1147  chkxer();
1148  cblas_info = 4; RowMajorStrg = FALSE;
1149  cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1150  INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1151  chkxer();
1152  cblas_info = 4; RowMajorStrg = FALSE;
1153  cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans,
1154  INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1155  chkxer();
1156  cblas_info = 5; RowMajorStrg = FALSE;
1157  cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1158  0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1159  chkxer();
1160  cblas_info = 5; RowMajorStrg = FALSE;
1161  cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans,
1162  0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1163  chkxer();
1164  cblas_info = 5; RowMajorStrg = FALSE;
1165  cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1166  0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1167  chkxer();
1168  cblas_info = 5; RowMajorStrg = FALSE;
1169  cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans,
1170  0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1171  chkxer();
1172  cblas_info = 8; RowMajorStrg = TRUE;
1173  cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
1174  0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1175  chkxer();
1176  cblas_info = 8; RowMajorStrg = TRUE;
1177  cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasTrans,
1178  2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1179  chkxer();
1180  cblas_info = 8; RowMajorStrg = TRUE;
1181  cblas_dsyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
1182  0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1183  chkxer();
1184  cblas_info = 8; RowMajorStrg = TRUE;
1185  cblas_dsyr2k( CblasRowMajor, CblasLower, CblasTrans,
1186  2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1187  chkxer();
1188  cblas_info = 8; RowMajorStrg = FALSE;
1189  cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1190  2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1191  chkxer();
1192  cblas_info = 8; RowMajorStrg = FALSE;
1193  cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans,
1194  0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1195  chkxer();
1196  cblas_info = 8; RowMajorStrg = FALSE;
1197  cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1198  2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1199  chkxer();
1200  cblas_info = 8; RowMajorStrg = FALSE;
1201  cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans,
1202  0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1203  chkxer();
1204  cblas_info = 10; RowMajorStrg = TRUE;
1205  cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
1206  0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1207  chkxer();
1208  cblas_info = 10; RowMajorStrg = TRUE;
1209  cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasTrans,
1210  2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1211  chkxer();
1212  cblas_info = 10; RowMajorStrg = TRUE;
1213  cblas_dsyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
1214  0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1215  chkxer();
1216  cblas_info = 10; RowMajorStrg = TRUE;
1217  cblas_dsyr2k( CblasRowMajor, CblasLower, CblasTrans,
1218  2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1219  chkxer();
1220  cblas_info = 10; RowMajorStrg = FALSE;
1221  cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1222  2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1223  chkxer();
1224  cblas_info = 10; RowMajorStrg = FALSE;
1225  cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans,
1226  0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1227  chkxer();
1228  cblas_info = 10; RowMajorStrg = FALSE;
1229  cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1230  2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1231  chkxer();
1232  cblas_info = 10; RowMajorStrg = FALSE;
1233  cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans,
1234  0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1235  chkxer();
1236  cblas_info = 13; RowMajorStrg = TRUE;
1237  cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
1238  2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1239  chkxer();
1240  cblas_info = 13; RowMajorStrg = TRUE;
1241  cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasTrans,
1242  2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1243  chkxer();
1244  cblas_info = 13; RowMajorStrg = TRUE;
1245  cblas_dsyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
1246  2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1247  chkxer();
1248  cblas_info = 13; RowMajorStrg = TRUE;
1249  cblas_dsyr2k( CblasRowMajor, CblasLower, CblasTrans,
1250  2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1251  chkxer();
1252  cblas_info = 13; RowMajorStrg = FALSE;
1253  cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1254  2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1255  chkxer();
1256  cblas_info = 13; RowMajorStrg = FALSE;
1257  cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans,
1258  2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1259  chkxer();
1260  cblas_info = 13; RowMajorStrg = FALSE;
1261  cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1262  2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1263  chkxer();
1264  cblas_info = 13; RowMajorStrg = FALSE;
1265  cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans,
1266  2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1267  chkxer();
1268  }
1269  if (cblas_ok == TRUE )
1270  printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1271  else
1272  printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
1273 }
link_xerbla
int link_xerbla
Definition: c_d3chke.c:7
F77_d3chke
void F77_d3chke(char *rout)
Definition: c_d3chke.c:27
cblas_lerr
int cblas_lerr
Definition: c_d3chke.c:6
chkxer
void chkxer(void)
Definition: c_d3chke.c:16
F77_xerbla
void F77_xerbla(char *srname, void *vinfo)
Definition: xerbla.c:17
cblas_info
int cblas_info
Definition: c_d3chke.c:6
cblas_ok
int cblas_ok
Definition: c_d3chke.c:6
cblas_rout
char * cblas_rout
Definition: c_d3chke.c:8
CblasLower
@ CblasLower
Definition: cblas.h:21
CblasUpper
@ CblasUpper
Definition: cblas.h:21
cblas_dtrmm
void cblas_dtrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, const double alpha, const double *A, const CBLAS_INDEX lda, double *B, const CBLAS_INDEX ldb)
Definition: cblas_dtrmm.c:12
CblasNoTrans
@ CblasNoTrans
Definition: cblas.h:20
CblasTrans
@ CblasTrans
Definition: cblas.h:20
CblasRight
@ CblasRight
Definition: cblas.h:23
CblasLeft
@ CblasLeft
Definition: cblas.h:23
CblasColMajor
@ CblasColMajor
Definition: cblas.h:19
CblasRowMajor
@ CblasRowMajor
Definition: cblas.h:19
cblas_dsyrk
void cblas_dsyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, const double alpha, const double *A, const CBLAS_INDEX lda, const double beta, double *C, const CBLAS_INDEX ldc)
Definition: cblas_dsyrk.c:12
cblas_dgemm
void cblas_dgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const CBLAS_INDEX M, const CBLAS_INDEX N, const CBLAS_INDEX K, const double alpha, const double *A, const CBLAS_INDEX lda, const double *B, const CBLAS_INDEX ldb, const double beta, double *C, const CBLAS_INDEX ldc)
Definition: cblas_dgemm.c:12
cblas_dsymm
void cblas_dsymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, const double alpha, const double *A, const CBLAS_INDEX lda, const double *B, const CBLAS_INDEX ldb, const double beta, double *C, const CBLAS_INDEX ldc)
Definition: cblas_dsymm.c:12
CblasNonUnit
@ CblasNonUnit
Definition: cblas.h:22
cblas_xerbla
void cblas_xerbla(CBLAS_INDEX p, const char *rout, const char *form,...)
Definition: cblas_xerbla.c:12
cblas_dtrsm
void cblas_dtrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, const double alpha, const double *A, const CBLAS_INDEX lda, double *B, const CBLAS_INDEX ldb)
Definition: cblas_dtrsm.c:12
cblas_dsyr2k
void cblas_dsyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, const double alpha, const double *A, const CBLAS_INDEX lda, const double *B, const CBLAS_INDEX ldb, const double beta, double *C, const CBLAS_INDEX ldc)
Definition: cblas_dsyr2k.c:12
INVALID
#define INVALID
Definition: cblas_example2.c:8
RowMajorStrg
int RowMajorStrg
Definition: cblas_globals.c:2
TRUE
#define TRUE
Definition: cblas_test.h:10
FALSE
#define FALSE
Definition: cblas_test.h:14
PASSED
#define PASSED
Definition: cblas_test.h:11
cblas_test.h