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