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