1#include <stdio.h>
2#include <string.h>
3#include "cblas.h"
4#include "cblas_test.h"
5
6int cblas_ok, cblas_lerr, cblas_info;
7int link_xerbla=TRUE;
8char *cblas_rout;
9
10#ifdef F77_Char
11void F77_xerbla(F77_Char F77_srname, void *vinfo);
12#else
13void F77_xerbla(char *srname, void *vinfo);
14#endif
15
16void 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
27void 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}
1274