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