1 #include <stdio.h>
2 #include <string.h>
3 #include "cblas.h"
4 #include "cblas_test.h"
5 
6 int cblas_ok, cblas_lerr, cblas_info;
7 int link_xerbla=TRUE;
8 char *cblas_rout;
9 
10 #ifdef F77_Char
11 void F77_xerbla(F77_Char F77_srname, void *vinfo);
12 #else
13 void F77_xerbla(char *srname, void *vinfo);
14 #endif
15 
chkxer(void)16 void chkxer(void) {
17    extern int cblas_ok, cblas_lerr, cblas_info;
18    extern int link_xerbla;
19    extern char *cblas_rout;
20    if (cblas_lerr == 1 ) {
21       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);
22       cblas_ok = 0 ;
23    }
24    cblas_lerr = 1 ;
25 }
26 
F77_c3chke(char * rout)27 void  F77_c3chke(char *  rout) {
28    char *sf = ( rout ) ;
29    float   A[4]     = {0.0,0.0,0.0,0.0},
30            B[4]     = {0.0,0.0,0.0,0.0},
31            C[4]     = {0.0,0.0,0.0,0.0},
32            ALPHA[2] = {0.0,0.0},
33            BETA[2]  = {0.0,0.0},
34            RALPHA   = 0.0, RBETA = 0.0;
35    extern int cblas_info, cblas_lerr, cblas_ok;
36    extern int RowMajorStrg;
37    extern char *cblas_rout;
38 
39    cblas_ok = TRUE ;
40    cblas_lerr = PASSED ;
41 
42    if (link_xerbla) /* call these first to link */
43    {
44       cblas_xerbla(cblas_info,cblas_rout,"");
45       F77_xerbla(cblas_rout,&cblas_info);
46    }
47 
48    if (strncmp( sf,"cblas_cgemm"   ,11)==0) {
49       cblas_rout = "cblas_cgemm"   ;
50 
51       cblas_info = 1;
52       cblas_cgemm( INVALID,  CblasNoTrans, CblasNoTrans, 0, 0, 0,
53                    ALPHA, A, 1, B, 1, BETA, C, 1 );
54       chkxer();
55       cblas_info = 1;
56       cblas_cgemm( INVALID,  CblasNoTrans, CblasTrans, 0, 0, 0,
57                    ALPHA, A, 1, B, 1, BETA, C, 1 );
58       chkxer();
59       cblas_info = 1;
60       cblas_cgemm( INVALID,  CblasTrans, CblasNoTrans, 0, 0, 0,
61                    ALPHA, A, 1, B, 1, BETA, C, 1 );
62       chkxer();
63       cblas_info = 1;
64       cblas_cgemm( INVALID,  CblasTrans, CblasTrans, 0, 0, 0,
65                    ALPHA, A, 1, B, 1, BETA, C, 1 );
66       chkxer();
67       cblas_info = 2; RowMajorStrg = FALSE;
68       cblas_cgemm( CblasColMajor,  INVALID, CblasNoTrans, 0, 0, 0,
69                    ALPHA, A, 1, B, 1, BETA, C, 1 );
70       chkxer();
71       cblas_info = 2; RowMajorStrg = FALSE;
72       cblas_cgemm( CblasColMajor,  INVALID, CblasTrans, 0, 0, 0,
73                    ALPHA, A, 1, B, 1, BETA, C, 1 );
74       chkxer();
75       cblas_info = 3; RowMajorStrg = FALSE;
76       cblas_cgemm( CblasColMajor,  CblasNoTrans, INVALID, 0, 0, 0,
77                    ALPHA, A, 1, B, 1, BETA, C, 1 );
78       chkxer();
79       cblas_info = 3; RowMajorStrg = FALSE;
80       cblas_cgemm( CblasColMajor,  CblasTrans, INVALID, 0, 0, 0,
81                    ALPHA, A, 1, B, 1, BETA, C, 1 );
82       chkxer();
83       cblas_info = 4; RowMajorStrg = FALSE;
84       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
85                    ALPHA, A, 1, B, 1, BETA, C, 1 );
86       chkxer();
87       cblas_info = 4; RowMajorStrg = FALSE;
88       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, INVALID, 0, 0,
89                    ALPHA, A, 1, B, 1, BETA, C, 1 );
90       chkxer();
91       cblas_info = 4; RowMajorStrg = FALSE;
92       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, INVALID, 0, 0,
93                    ALPHA, A, 1, B, 1, BETA, C, 1 );
94       chkxer();
95       cblas_info = 4; RowMajorStrg = FALSE;
96       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, INVALID, 0, 0,
97                    ALPHA, A, 1, B, 1, BETA, C, 1 );
98       chkxer();
99       cblas_info = 5; RowMajorStrg = FALSE;
100       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
101                    ALPHA, A, 1, B, 1, BETA, C, 1 );
102       chkxer();
103       cblas_info = 5; RowMajorStrg = FALSE;
104       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, INVALID, 0,
105                    ALPHA, A, 1, B, 1, BETA, C, 1 );
106       chkxer();
107       cblas_info = 5; RowMajorStrg = FALSE;
108       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, INVALID, 0,
109                    ALPHA, A, 1, B, 1, BETA, C, 1 );
110       chkxer();
111       cblas_info = 5; RowMajorStrg = FALSE;
112       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, INVALID, 0,
113                    ALPHA, A, 1, B, 1, BETA, C, 1 );
114       chkxer();
115       cblas_info = 6; RowMajorStrg = FALSE;
116       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
117                    ALPHA, A, 1, B, 1, BETA, C, 1 );
118       chkxer();
119       cblas_info = 6; RowMajorStrg = FALSE;
120       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, 0, INVALID,
121                    ALPHA, A, 1, B, 1, BETA, C, 1 );
122       chkxer();
123       cblas_info = 6; RowMajorStrg = FALSE;
124       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, INVALID,
125                    ALPHA, A, 1, B, 1, BETA, C, 1 );
126       chkxer();
127       cblas_info = 6; RowMajorStrg = FALSE;
128       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 0, INVALID,
129                    ALPHA, A, 1, B, 1, BETA, C, 1 );
130       chkxer();
131       cblas_info = 9; RowMajorStrg = FALSE;
132       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 2, 0, 0,
133                    ALPHA, A, 1, B, 1, BETA, C, 2 );
134       chkxer();
135       cblas_info = 9; RowMajorStrg = FALSE;
136       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 2, 0, 0,
137                    ALPHA, A, 1, B, 1, BETA, C, 2 );
138       chkxer();
139       cblas_info = 9; RowMajorStrg = FALSE;
140       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, 2,
141                    ALPHA, A, 1, B, 2, BETA, C, 1 );
142       chkxer();
143       cblas_info = 9; RowMajorStrg = FALSE;
144       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 0, 2,
145                    ALPHA, A, 1, B, 1, BETA, C, 1 );
146       chkxer();
147       cblas_info = 11; RowMajorStrg = FALSE;
148       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, 0, 2,
149                    ALPHA, A, 1, B, 1, BETA, C, 1 );
150       chkxer();
151       cblas_info = 11; RowMajorStrg = FALSE;
152       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, 2,
153                    ALPHA, A, 2, B, 1, BETA, C, 1 );
154       chkxer();
155       cblas_info = 11; RowMajorStrg = FALSE;
156       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, 2, 0,
157                    ALPHA, A, 1, B, 1, BETA, C, 1 );
158       chkxer();
159       cblas_info = 11; RowMajorStrg = FALSE;
160       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 2, 0,
161                    ALPHA, A, 1, B, 1, BETA, C, 1 );
162       chkxer();
163       cblas_info = 14; RowMajorStrg = FALSE;
164       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 2, 0, 0,
165                    ALPHA, A, 2, B, 1, BETA, C, 1 );
166       chkxer();
167       cblas_info = 14; RowMajorStrg = FALSE;
168       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 2, 0, 0,
169                    ALPHA, A, 2, B, 1, BETA, C, 1 );
170       chkxer();
171       cblas_info = 14; RowMajorStrg = FALSE;
172       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 2, 0, 0,
173                    ALPHA, A, 1, B, 1, BETA, C, 1 );
174       chkxer();
175       cblas_info = 14; RowMajorStrg = FALSE;
176       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 2, 0, 0,
177                    ALPHA, A, 1, B, 1, BETA, C, 1 );
178       chkxer();
179       cblas_info = 4; RowMajorStrg = TRUE;
180       cblas_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( 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_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 2, 0,
273                    ALPHA, A, 1, B, 1, BETA, C, 1 );
274       chkxer();
275 
276    } else if (strncmp( sf,"cblas_chemm"   ,11)==0) {
277             cblas_rout = "cblas_chemm"   ;
278 
279       cblas_info = 1;
280       cblas_chemm( INVALID,  CblasRight, CblasLower, 0, 0,
281                    ALPHA, A, 1, B, 1, BETA, C, 1 );
282       chkxer();
283       cblas_info = 2; RowMajorStrg = FALSE;
284       cblas_chemm( CblasColMajor,  INVALID, CblasUpper, 0, 0,
285                    ALPHA, A, 1, B, 1, BETA, C, 1 );
286       chkxer();
287       cblas_info = 3; RowMajorStrg = FALSE;
288       cblas_chemm( CblasColMajor,  CblasLeft, INVALID, 0, 0,
289                    ALPHA, A, 1, B, 1, BETA, C, 1 );
290       chkxer();
291       cblas_info = 4; RowMajorStrg = FALSE;
292       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, INVALID, 0,
293                    ALPHA, A, 1, B, 1, BETA, C, 1 );
294       chkxer();
295       cblas_info = 4; RowMajorStrg = FALSE;
296       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, INVALID, 0,
297                    ALPHA, A, 1, B, 1, BETA, C, 1 );
298       chkxer();
299       cblas_info = 4; RowMajorStrg = FALSE;
300       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, INVALID, 0,
301                    ALPHA, A, 1, B, 1, BETA, C, 1 );
302       chkxer();
303       cblas_info = 4; RowMajorStrg = FALSE;
304       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, INVALID, 0,
305                    ALPHA, A, 1, B, 1, BETA, C, 1 );
306       chkxer();
307       cblas_info = 5; RowMajorStrg = FALSE;
308       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 0, INVALID,
309                    ALPHA, A, 1, B, 1, BETA, C, 1 );
310       chkxer();
311       cblas_info = 5; RowMajorStrg = FALSE;
312       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 0, INVALID,
313                    ALPHA, A, 1, B, 1, BETA, C, 1 );
314       chkxer();
315       cblas_info = 5; RowMajorStrg = FALSE;
316       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 0, INVALID,
317                    ALPHA, A, 1, B, 1, BETA, C, 1 );
318       chkxer();
319       cblas_info = 5; RowMajorStrg = FALSE;
320       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 0, INVALID,
321                    ALPHA, A, 1, B, 1, BETA, C, 1 );
322       chkxer();
323       cblas_info = 8; RowMajorStrg = FALSE;
324       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
325                    ALPHA, A, 1, B, 2, BETA, C, 2 );
326       chkxer();
327       cblas_info = 8; RowMajorStrg = FALSE;
328       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 0, 2,
329                    ALPHA, A, 1, B, 1, BETA, C, 1 );
330       chkxer();
331       cblas_info = 8; RowMajorStrg = FALSE;
332       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
333                    ALPHA, A, 1, B, 2, BETA, C, 2 );
334       chkxer();
335       cblas_info = 8; RowMajorStrg = FALSE;
336       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 0, 2,
337                    ALPHA, A, 1, B, 1, BETA, C, 1 );
338       chkxer();
339       cblas_info = 10; RowMajorStrg = FALSE;
340       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
341                    ALPHA, A, 2, B, 1, BETA, C, 1 );
342       chkxer();
343       cblas_info = 10; RowMajorStrg = FALSE;
344       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
345                    ALPHA, A, 1, B, 1, BETA, C, 1 );
346       chkxer();
347       cblas_info = 10; RowMajorStrg = FALSE;
348       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
349                    ALPHA, A, 2, B, 1, BETA, C, 1 );
350       chkxer();
351       cblas_info = 10; RowMajorStrg = FALSE;
352       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
353                    ALPHA, A, 1, B, 1, BETA, C, 1 );
354       chkxer();
355       cblas_info = 13; RowMajorStrg = FALSE;
356       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
357                    ALPHA, A, 2, B, 2, BETA, C, 1 );
358       chkxer();
359       cblas_info = 13; RowMajorStrg = FALSE;
360       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
361                    ALPHA, A, 1, B, 2, BETA, C, 1 );
362       chkxer();
363       cblas_info = 13; RowMajorStrg = FALSE;
364       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
365                    ALPHA, A, 2, B, 2, BETA, C, 1 );
366       chkxer();
367       cblas_info = 13; RowMajorStrg = FALSE;
368       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
369                    ALPHA, A, 1, B, 2, BETA, C, 1 );
370       chkxer();
371       cblas_info = 4; RowMajorStrg = TRUE;
372       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, INVALID, 0,
373                    ALPHA, A, 1, B, 1, BETA, C, 1 );
374       chkxer();
375       cblas_info = 4; RowMajorStrg = TRUE;
376       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, INVALID, 0,
377                    ALPHA, A, 1, B, 1, BETA, C, 1 );
378       chkxer();
379       cblas_info = 4; RowMajorStrg = TRUE;
380       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, INVALID, 0,
381                    ALPHA, A, 1, B, 1, BETA, C, 1 );
382       chkxer();
383       cblas_info = 4; RowMajorStrg = TRUE;
384       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, INVALID, 0,
385                    ALPHA, A, 1, B, 1, BETA, C, 1 );
386       chkxer();
387       cblas_info = 5; RowMajorStrg = TRUE;
388       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, INVALID,
389                    ALPHA, A, 1, B, 1, BETA, C, 1 );
390       chkxer();
391       cblas_info = 5; RowMajorStrg = TRUE;
392       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, INVALID,
393                    ALPHA, A, 1, B, 1, BETA, C, 1 );
394       chkxer();
395       cblas_info = 5; RowMajorStrg = TRUE;
396       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 0, INVALID,
397                    ALPHA, A, 1, B, 1, BETA, C, 1 );
398       chkxer();
399       cblas_info = 5; RowMajorStrg = TRUE;
400       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, INVALID,
401                    ALPHA, A, 1, B, 1, BETA, C, 1 );
402       chkxer();
403       cblas_info = 8; RowMajorStrg = TRUE;
404       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 2, 0,
405                    ALPHA, A, 1, B, 2, BETA, C, 2 );
406       chkxer();
407       cblas_info = 8; RowMajorStrg = TRUE;
408       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
409                    ALPHA, A, 1, B, 1, BETA, C, 1 );
410       chkxer();
411       cblas_info = 8; RowMajorStrg = TRUE;
412       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 2, 0,
413                    ALPHA, A, 1, B, 2, BETA, C, 2 );
414       chkxer();
415       cblas_info = 8; RowMajorStrg = TRUE;
416       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
417                    ALPHA, A, 1, B, 1, BETA, C, 1 );
418       chkxer();
419       cblas_info = 10; RowMajorStrg = TRUE;
420       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
421                    ALPHA, A, 2, B, 1, BETA, C, 1 );
422       chkxer();
423       cblas_info = 10; RowMajorStrg = TRUE;
424       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
425                    ALPHA, A, 2, B, 1, BETA, C, 1 );
426       chkxer();
427       cblas_info = 10; RowMajorStrg = TRUE;
428       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
429                    ALPHA, A, 2, B, 1, BETA, C, 1 );
430       chkxer();
431       cblas_info = 10; RowMajorStrg = TRUE;
432       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
433                    ALPHA, A, 2, B, 1, BETA, C, 1 );
434       chkxer();
435       cblas_info = 13; RowMajorStrg = TRUE;
436       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
437                    ALPHA, A, 1, B, 2, BETA, C, 1 );
438       chkxer();
439       cblas_info = 13; RowMajorStrg = TRUE;
440       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
441                    ALPHA, A, 2, B, 2, BETA, C, 1 );
442       chkxer();
443       cblas_info = 13; RowMajorStrg = TRUE;
444       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
445                    ALPHA, A, 1, B, 2, BETA, C, 1 );
446       chkxer();
447       cblas_info = 13; RowMajorStrg = TRUE;
448       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
449                    ALPHA, A, 2, B, 2, BETA, C, 1 );
450       chkxer();
451 
452    } else if (strncmp( sf,"cblas_csymm"   ,11)==0) {
453             cblas_rout = "cblas_csymm"   ;
454 
455       cblas_info = 1;
456       cblas_csymm( INVALID,  CblasRight, CblasLower, 0, 0,
457                    ALPHA, A, 1, B, 1, BETA, C, 1 );
458       chkxer();
459       cblas_info = 2; RowMajorStrg = FALSE;
460       cblas_csymm( CblasColMajor,  INVALID, CblasUpper, 0, 0,
461                    ALPHA, A, 1, B, 1, BETA, C, 1 );
462       chkxer();
463       cblas_info = 3; RowMajorStrg = FALSE;
464       cblas_csymm( CblasColMajor,  CblasLeft, INVALID, 0, 0,
465                    ALPHA, A, 1, B, 1, BETA, C, 1 );
466       chkxer();
467       cblas_info = 4; RowMajorStrg = FALSE;
468       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, INVALID, 0,
469                    ALPHA, A, 1, B, 1, BETA, C, 1 );
470       chkxer();
471       cblas_info = 4; RowMajorStrg = FALSE;
472       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, INVALID, 0,
473                    ALPHA, A, 1, B, 1, BETA, C, 1 );
474       chkxer();
475       cblas_info = 4; RowMajorStrg = FALSE;
476       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, INVALID, 0,
477                    ALPHA, A, 1, B, 1, BETA, C, 1 );
478       chkxer();
479       cblas_info = 4; RowMajorStrg = FALSE;
480       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, INVALID, 0,
481                    ALPHA, A, 1, B, 1, BETA, C, 1 );
482       chkxer();
483       cblas_info = 5; RowMajorStrg = FALSE;
484       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 0, INVALID,
485                    ALPHA, A, 1, B, 1, BETA, C, 1 );
486       chkxer();
487       cblas_info = 5; RowMajorStrg = FALSE;
488       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 0, INVALID,
489                    ALPHA, A, 1, B, 1, BETA, C, 1 );
490       chkxer();
491       cblas_info = 5; RowMajorStrg = FALSE;
492       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 0, INVALID,
493                    ALPHA, A, 1, B, 1, BETA, C, 1 );
494       chkxer();
495       cblas_info = 5; RowMajorStrg = FALSE;
496       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 0, INVALID,
497                    ALPHA, A, 1, B, 1, BETA, C, 1 );
498       chkxer();
499       cblas_info = 8; RowMajorStrg = FALSE;
500       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
501                    ALPHA, A, 1, B, 2, BETA, C, 2 );
502       chkxer();
503       cblas_info = 8; RowMajorStrg = FALSE;
504       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 0, 2,
505                    ALPHA, A, 1, B, 1, BETA, C, 1 );
506       chkxer();
507       cblas_info = 8; RowMajorStrg = FALSE;
508       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
509                    ALPHA, A, 1, B, 2, BETA, C, 2 );
510       chkxer();
511       cblas_info = 8; RowMajorStrg = FALSE;
512       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 0, 2,
513                    ALPHA, A, 1, B, 1, BETA, C, 1 );
514       chkxer();
515       cblas_info = 10; RowMajorStrg = FALSE;
516       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
517                    ALPHA, A, 2, B, 1, BETA, C, 1 );
518       chkxer();
519       cblas_info = 10; RowMajorStrg = FALSE;
520       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
521                    ALPHA, A, 1, B, 1, BETA, C, 1 );
522       chkxer();
523       cblas_info = 10; RowMajorStrg = FALSE;
524       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
525                    ALPHA, A, 2, B, 1, BETA, C, 1 );
526       chkxer();
527       cblas_info = 10; RowMajorStrg = FALSE;
528       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
529                    ALPHA, A, 1, B, 1, BETA, C, 1 );
530       chkxer();
531       cblas_info = 13; RowMajorStrg = FALSE;
532       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
533                    ALPHA, A, 2, B, 2, BETA, C, 1 );
534       chkxer();
535       cblas_info = 13; RowMajorStrg = FALSE;
536       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
537                    ALPHA, A, 1, B, 2, BETA, C, 1 );
538       chkxer();
539       cblas_info = 13; RowMajorStrg = FALSE;
540       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
541                    ALPHA, A, 2, B, 2, BETA, C, 1 );
542       chkxer();
543       cblas_info = 13; RowMajorStrg = FALSE;
544       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
545                    ALPHA, A, 1, B, 2, BETA, C, 1 );
546       chkxer();
547       cblas_info = 4; RowMajorStrg = TRUE;
548       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, INVALID, 0,
549                    ALPHA, A, 1, B, 1, BETA, C, 1 );
550       chkxer();
551       cblas_info = 4; RowMajorStrg = TRUE;
552       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, INVALID, 0,
553                    ALPHA, A, 1, B, 1, BETA, C, 1 );
554       chkxer();
555       cblas_info = 4; RowMajorStrg = TRUE;
556       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, INVALID, 0,
557                    ALPHA, A, 1, B, 1, BETA, C, 1 );
558       chkxer();
559       cblas_info = 4; RowMajorStrg = TRUE;
560       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, INVALID, 0,
561                    ALPHA, A, 1, B, 1, BETA, C, 1 );
562       chkxer();
563       cblas_info = 5; RowMajorStrg = TRUE;
564       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, INVALID,
565                    ALPHA, A, 1, B, 1, BETA, C, 1 );
566       chkxer();
567       cblas_info = 5; RowMajorStrg = TRUE;
568       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, INVALID,
569                    ALPHA, A, 1, B, 1, BETA, C, 1 );
570       chkxer();
571       cblas_info = 5; RowMajorStrg = TRUE;
572       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 0, INVALID,
573                    ALPHA, A, 1, B, 1, BETA, C, 1 );
574       chkxer();
575       cblas_info = 5; RowMajorStrg = TRUE;
576       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, INVALID,
577                    ALPHA, A, 1, B, 1, BETA, C, 1 );
578       chkxer();
579       cblas_info = 8; RowMajorStrg = TRUE;
580       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 2, 0,
581                    ALPHA, A, 1, B, 2, BETA, C, 2 );
582       chkxer();
583       cblas_info = 8; RowMajorStrg = TRUE;
584       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
585                    ALPHA, A, 1, B, 1, BETA, C, 1 );
586       chkxer();
587       cblas_info = 8; RowMajorStrg = TRUE;
588       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 2, 0,
589                    ALPHA, A, 1, B, 2, BETA, C, 2 );
590       chkxer();
591       cblas_info = 8; RowMajorStrg = TRUE;
592       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
593                    ALPHA, A, 1, B, 1, BETA, C, 1 );
594       chkxer();
595       cblas_info = 10; RowMajorStrg = TRUE;
596       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
597                    ALPHA, A, 2, B, 1, BETA, C, 1 );
598       chkxer();
599       cblas_info = 10; RowMajorStrg = TRUE;
600       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
601                    ALPHA, A, 2, B, 1, BETA, C, 1 );
602       chkxer();
603       cblas_info = 10; RowMajorStrg = TRUE;
604       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
605                    ALPHA, A, 2, B, 1, BETA, C, 1 );
606       chkxer();
607       cblas_info = 10; RowMajorStrg = TRUE;
608       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
609                    ALPHA, A, 2, B, 1, BETA, C, 1 );
610       chkxer();
611       cblas_info = 13; RowMajorStrg = TRUE;
612       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
613                    ALPHA, A, 1, B, 2, BETA, C, 1 );
614       chkxer();
615       cblas_info = 13; RowMajorStrg = TRUE;
616       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
617                    ALPHA, A, 2, B, 2, BETA, C, 1 );
618       chkxer();
619       cblas_info = 13; RowMajorStrg = TRUE;
620       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
621                    ALPHA, A, 1, B, 2, BETA, C, 1 );
622       chkxer();
623       cblas_info = 13; RowMajorStrg = TRUE;
624       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
625                    ALPHA, A, 2, B, 2, BETA, C, 1 );
626       chkxer();
627 
628    } else if (strncmp( sf,"cblas_ctrmm"   ,11)==0) {
629             cblas_rout = "cblas_ctrmm"   ;
630 
631       cblas_info = 1;
632       cblas_ctrmm( INVALID,  CblasLeft, CblasUpper, CblasNoTrans,
633                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
634       chkxer();
635       cblas_info = 2; RowMajorStrg = FALSE;
636       cblas_ctrmm( CblasColMajor,  INVALID, CblasUpper, CblasNoTrans,
637                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
638       chkxer();
639       cblas_info = 3; RowMajorStrg = FALSE;
640       cblas_ctrmm( CblasColMajor,  CblasLeft, INVALID, CblasNoTrans,
641                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
642       chkxer();
643       cblas_info = 4; RowMajorStrg = FALSE;
644       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, INVALID,
645                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
646       chkxer();
647       cblas_info = 5; RowMajorStrg = FALSE;
648       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
649                    INVALID, 0, 0, ALPHA, A, 1, B, 1 );
650       chkxer();
651       cblas_info = 6; RowMajorStrg = FALSE;
652       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
653                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
654       chkxer();
655       cblas_info = 6; RowMajorStrg = FALSE;
656       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
657                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
658       chkxer();
659       cblas_info = 6; RowMajorStrg = FALSE;
660       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
661                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
662       chkxer();
663       cblas_info = 6; RowMajorStrg = FALSE;
664       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
665                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
666       chkxer();
667       cblas_info = 6; RowMajorStrg = FALSE;
668       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
669                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
670       chkxer();
671       cblas_info = 6; RowMajorStrg = FALSE;
672       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
673                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
674       chkxer();
675       cblas_info = 6; RowMajorStrg = FALSE;
676       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
677                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
678       chkxer();
679       cblas_info = 6; RowMajorStrg = FALSE;
680       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
681                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
682       chkxer();
683       cblas_info = 7; RowMajorStrg = FALSE;
684       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
685                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
686       chkxer();
687       cblas_info = 7; RowMajorStrg = FALSE;
688       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
689                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
690       chkxer();
691       cblas_info = 7; RowMajorStrg = FALSE;
692       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
693                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
694       chkxer();
695       cblas_info = 7; RowMajorStrg = FALSE;
696       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
697                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
698       chkxer();
699       cblas_info = 7; RowMajorStrg = FALSE;
700       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
701                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
702       chkxer();
703       cblas_info = 7; RowMajorStrg = FALSE;
704       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
705                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
706       chkxer();
707       cblas_info = 7; RowMajorStrg = FALSE;
708       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
709                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
710       chkxer();
711       cblas_info = 7; RowMajorStrg = FALSE;
712       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
713                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
714       chkxer();
715       cblas_info = 10; RowMajorStrg = FALSE;
716       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
717                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
718       chkxer();
719       cblas_info = 10; RowMajorStrg = FALSE;
720       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
721                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
722       chkxer();
723       cblas_info = 10; RowMajorStrg = FALSE;
724       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
725                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
726       chkxer();
727       cblas_info = 10; RowMajorStrg = FALSE;
728       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
729                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
730       chkxer();
731       cblas_info = 10; RowMajorStrg = FALSE;
732       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
733                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
734       chkxer();
735       cblas_info = 10; RowMajorStrg = FALSE;
736       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
737                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
738       chkxer();
739       cblas_info = 10; RowMajorStrg = FALSE;
740       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
741                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
742       chkxer();
743       cblas_info = 10; RowMajorStrg = FALSE;
744       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
745                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
746       chkxer();
747       cblas_info = 12; RowMajorStrg = FALSE;
748       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
749                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
750       chkxer();
751       cblas_info = 12; RowMajorStrg = FALSE;
752       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
753                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
754       chkxer();
755       cblas_info = 12; RowMajorStrg = FALSE;
756       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
757                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
758       chkxer();
759       cblas_info = 12; RowMajorStrg = FALSE;
760       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
761                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
762       chkxer();
763       cblas_info = 12; RowMajorStrg = FALSE;
764       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
765                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
766       chkxer();
767       cblas_info = 12; RowMajorStrg = FALSE;
768       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
769                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
770       chkxer();
771       cblas_info = 12; RowMajorStrg = FALSE;
772       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
773                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
774       chkxer();
775       cblas_info = 12; RowMajorStrg = FALSE;
776       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
777                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
778       chkxer();
779       cblas_info = 6; RowMajorStrg = TRUE;
780       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
781                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
782       chkxer();
783       cblas_info = 6; RowMajorStrg = TRUE;
784       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
785                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
786       chkxer();
787       cblas_info = 6; RowMajorStrg = TRUE;
788       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
789                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
790       chkxer();
791       cblas_info = 6; RowMajorStrg = TRUE;
792       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
793                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
794       chkxer();
795       cblas_info = 6; RowMajorStrg = TRUE;
796       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
797                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
798       chkxer();
799       cblas_info = 6; RowMajorStrg = TRUE;
800       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
801                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
802       chkxer();
803       cblas_info = 6; RowMajorStrg = TRUE;
804       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
805                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
806       chkxer();
807       cblas_info = 6; RowMajorStrg = TRUE;
808       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
809                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
810       chkxer();
811       cblas_info = 7; RowMajorStrg = TRUE;
812       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
813                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
814       chkxer();
815       cblas_info = 7; RowMajorStrg = TRUE;
816       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
817                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
818       chkxer();
819       cblas_info = 7; RowMajorStrg = TRUE;
820       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
821                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
822       chkxer();
823       cblas_info = 7; RowMajorStrg = TRUE;
824       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
825                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
826       chkxer();
827       cblas_info = 7; RowMajorStrg = TRUE;
828       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
829                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
830       chkxer();
831       cblas_info = 7; RowMajorStrg = TRUE;
832       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
833                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
834       chkxer();
835       cblas_info = 7; RowMajorStrg = TRUE;
836       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
837                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
838       chkxer();
839       cblas_info = 7; RowMajorStrg = TRUE;
840       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
841                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
842       chkxer();
843       cblas_info = 10; RowMajorStrg = TRUE;
844       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
845                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
846       chkxer();
847       cblas_info = 10; RowMajorStrg = TRUE;
848       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
849                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
850       chkxer();
851       cblas_info = 10; RowMajorStrg = TRUE;
852       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
853                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
854       chkxer();
855       cblas_info = 10; RowMajorStrg = TRUE;
856       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
857                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
858       chkxer();
859       cblas_info = 10; RowMajorStrg = TRUE;
860       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
861                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
862       chkxer();
863       cblas_info = 10; RowMajorStrg = TRUE;
864       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
865                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
866       chkxer();
867       cblas_info = 10; RowMajorStrg = TRUE;
868       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
869                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
870       chkxer();
871       cblas_info = 10; RowMajorStrg = TRUE;
872       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
873                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
874       chkxer();
875       cblas_info = 12; RowMajorStrg = TRUE;
876       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
877                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
878       chkxer();
879       cblas_info = 12; RowMajorStrg = TRUE;
880       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
881                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
882       chkxer();
883       cblas_info = 12; RowMajorStrg = TRUE;
884       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
885                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
886       chkxer();
887       cblas_info = 12; RowMajorStrg = TRUE;
888       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
889                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
890       chkxer();
891       cblas_info = 12; RowMajorStrg = TRUE;
892       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
893                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
894       chkxer();
895       cblas_info = 12; RowMajorStrg = TRUE;
896       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
897                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
898       chkxer();
899       cblas_info = 12; RowMajorStrg = TRUE;
900       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
901                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
902       chkxer();
903       cblas_info = 12; RowMajorStrg = TRUE;
904       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
905                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
906       chkxer();
907 
908    } else if (strncmp( sf,"cblas_ctrsm"   ,11)==0) {
909             cblas_rout = "cblas_ctrsm"   ;
910 
911       cblas_info = 1;
912       cblas_ctrsm( INVALID,  CblasLeft, CblasUpper, CblasNoTrans,
913                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
914       chkxer();
915       cblas_info = 2; RowMajorStrg = FALSE;
916       cblas_ctrsm( CblasColMajor,  INVALID, CblasUpper, CblasNoTrans,
917                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
918       chkxer();
919       cblas_info = 3; RowMajorStrg = FALSE;
920       cblas_ctrsm( CblasColMajor,  CblasLeft, INVALID, CblasNoTrans,
921                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
922       chkxer();
923       cblas_info = 4; RowMajorStrg = FALSE;
924       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, INVALID,
925                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
926       chkxer();
927       cblas_info = 5; RowMajorStrg = FALSE;
928       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
929                    INVALID, 0, 0, ALPHA, A, 1, B, 1 );
930       chkxer();
931       cblas_info = 6; RowMajorStrg = FALSE;
932       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
933                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
934       chkxer();
935       cblas_info = 6; RowMajorStrg = FALSE;
936       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
937                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
938       chkxer();
939       cblas_info = 6; RowMajorStrg = FALSE;
940       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
941                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
942       chkxer();
943       cblas_info = 6; RowMajorStrg = FALSE;
944       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
945                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
946       chkxer();
947       cblas_info = 6; RowMajorStrg = FALSE;
948       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
949                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
950       chkxer();
951       cblas_info = 6; RowMajorStrg = FALSE;
952       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
953                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
954       chkxer();
955       cblas_info = 6; RowMajorStrg = FALSE;
956       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
957                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
958       chkxer();
959       cblas_info = 6; RowMajorStrg = FALSE;
960       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
961                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
962       chkxer();
963       cblas_info = 7; RowMajorStrg = FALSE;
964       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
965                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
966       chkxer();
967       cblas_info = 7; RowMajorStrg = FALSE;
968       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
969                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
970       chkxer();
971       cblas_info = 7; RowMajorStrg = FALSE;
972       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
973                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
974       chkxer();
975       cblas_info = 7; RowMajorStrg = FALSE;
976       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
977                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
978       chkxer();
979       cblas_info = 7; RowMajorStrg = FALSE;
980       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
981                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
982       chkxer();
983       cblas_info = 7; RowMajorStrg = FALSE;
984       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
985                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
986       chkxer();
987       cblas_info = 7; RowMajorStrg = FALSE;
988       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
989                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
990       chkxer();
991       cblas_info = 7; RowMajorStrg = FALSE;
992       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
993                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
994       chkxer();
995       cblas_info = 10; RowMajorStrg = FALSE;
996       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
997                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
998       chkxer();
999       cblas_info = 10; RowMajorStrg = FALSE;
1000       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
1001                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1002       chkxer();
1003       cblas_info = 10; RowMajorStrg = FALSE;
1004       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
1005                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1006       chkxer();
1007       cblas_info = 10; RowMajorStrg = FALSE;
1008       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
1009                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1010       chkxer();
1011       cblas_info = 10; RowMajorStrg = FALSE;
1012       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
1013                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1014       chkxer();
1015       cblas_info = 10; RowMajorStrg = FALSE;
1016       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
1017                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1018       chkxer();
1019       cblas_info = 10; RowMajorStrg = FALSE;
1020       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
1021                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1022       chkxer();
1023       cblas_info = 10; RowMajorStrg = FALSE;
1024       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
1025                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1026       chkxer();
1027       cblas_info = 12; RowMajorStrg = FALSE;
1028       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
1029                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1030       chkxer();
1031       cblas_info = 12; RowMajorStrg = FALSE;
1032       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
1033                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1034       chkxer();
1035       cblas_info = 12; RowMajorStrg = FALSE;
1036       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
1037                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1038       chkxer();
1039       cblas_info = 12; RowMajorStrg = FALSE;
1040       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
1041                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1042       chkxer();
1043       cblas_info = 12; RowMajorStrg = FALSE;
1044       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
1045                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1046       chkxer();
1047       cblas_info = 12; RowMajorStrg = FALSE;
1048       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
1049                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1050       chkxer();
1051       cblas_info = 12; RowMajorStrg = FALSE;
1052       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
1053                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1054       chkxer();
1055       cblas_info = 12; RowMajorStrg = FALSE;
1056       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
1057                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1058       chkxer();
1059       cblas_info = 6; RowMajorStrg = TRUE;
1060       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
1061                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1062       chkxer();
1063       cblas_info = 6; RowMajorStrg = TRUE;
1064       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
1065                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1066       chkxer();
1067       cblas_info = 6; RowMajorStrg = TRUE;
1068       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
1069                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1070       chkxer();
1071       cblas_info = 6; RowMajorStrg = TRUE;
1072       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
1073                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1074       chkxer();
1075       cblas_info = 6; RowMajorStrg = TRUE;
1076       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
1077                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1078       chkxer();
1079       cblas_info = 6; RowMajorStrg = TRUE;
1080       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
1081                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1082       chkxer();
1083       cblas_info = 6; RowMajorStrg = TRUE;
1084       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
1085                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1086       chkxer();
1087       cblas_info = 6; RowMajorStrg = TRUE;
1088       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
1089                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1090       chkxer();
1091       cblas_info = 7; RowMajorStrg = TRUE;
1092       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
1093                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1094       chkxer();
1095       cblas_info = 7; RowMajorStrg = TRUE;
1096       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
1097                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1098       chkxer();
1099       cblas_info = 7; RowMajorStrg = TRUE;
1100       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
1101                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1102       chkxer();
1103       cblas_info = 7; RowMajorStrg = TRUE;
1104       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
1105                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1106       chkxer();
1107       cblas_info = 7; RowMajorStrg = TRUE;
1108       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
1109                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1110       chkxer();
1111       cblas_info = 7; RowMajorStrg = TRUE;
1112       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
1113                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1114       chkxer();
1115       cblas_info = 7; RowMajorStrg = TRUE;
1116       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
1117                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1118       chkxer();
1119       cblas_info = 7; RowMajorStrg = TRUE;
1120       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
1121                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1122       chkxer();
1123       cblas_info = 10; RowMajorStrg = TRUE;
1124       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
1125                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1126       chkxer();
1127       cblas_info = 10; RowMajorStrg = TRUE;
1128       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
1129                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1130       chkxer();
1131       cblas_info = 10; RowMajorStrg = TRUE;
1132       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
1133                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1134       chkxer();
1135       cblas_info = 10; RowMajorStrg = TRUE;
1136       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
1137                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1138       chkxer();
1139       cblas_info = 10; RowMajorStrg = TRUE;
1140       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
1141                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1142       chkxer();
1143       cblas_info = 10; RowMajorStrg = TRUE;
1144       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
1145                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1146       chkxer();
1147       cblas_info = 10; RowMajorStrg = TRUE;
1148       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
1149                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1150       chkxer();
1151       cblas_info = 10; RowMajorStrg = TRUE;
1152       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
1153                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1154       chkxer();
1155       cblas_info = 12; RowMajorStrg = TRUE;
1156       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
1157                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1158       chkxer();
1159       cblas_info = 12; RowMajorStrg = TRUE;
1160       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
1161                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1162       chkxer();
1163       cblas_info = 12; RowMajorStrg = TRUE;
1164       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
1165                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1166       chkxer();
1167       cblas_info = 12; RowMajorStrg = TRUE;
1168       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
1169                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1170       chkxer();
1171       cblas_info = 12; RowMajorStrg = TRUE;
1172       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
1173                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1174       chkxer();
1175       cblas_info = 12; RowMajorStrg = TRUE;
1176       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
1177                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1178       chkxer();
1179       cblas_info = 12; RowMajorStrg = TRUE;
1180       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
1181                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1182       chkxer();
1183       cblas_info = 12; RowMajorStrg = TRUE;
1184       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
1185                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1186       chkxer();
1187 
1188    } else if (strncmp( sf,"cblas_cherk"   ,11)==0) {
1189             cblas_rout = "cblas_cherk"   ;
1190 
1191       cblas_info = 1;
1192       cblas_cherk(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
1193                   RALPHA, A, 1, RBETA, C, 1 );
1194       chkxer();
1195       cblas_info = 2; RowMajorStrg = FALSE;
1196       cblas_cherk(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
1197                   RALPHA, A, 1, RBETA, C, 1 );
1198       chkxer();
1199       cblas_info = 3; RowMajorStrg = FALSE;
1200       cblas_cherk(CblasColMajor,  CblasUpper, CblasTrans, 0, 0,
1201                   RALPHA, A, 1, RBETA, C, 1 );
1202       chkxer();
1203       cblas_info = 4; RowMajorStrg = FALSE;
1204       cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
1205                   RALPHA, A, 1, RBETA, C, 1 );
1206       chkxer();
1207       cblas_info = 4; RowMajorStrg = FALSE;
1208       cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, INVALID, 0,
1209                   RALPHA, A, 1, RBETA, C, 1 );
1210       chkxer();
1211       cblas_info = 4; RowMajorStrg = FALSE;
1212       cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
1213                   RALPHA, A, 1, RBETA, C, 1 );
1214       chkxer();
1215       cblas_info = 4; RowMajorStrg = FALSE;
1216       cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, INVALID, 0,
1217                   RALPHA, A, 1, RBETA, C, 1 );
1218       chkxer();
1219       cblas_info = 5; RowMajorStrg = FALSE;
1220       cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
1221                   RALPHA, A, 1, RBETA, C, 1 );
1222       chkxer();
1223       cblas_info = 5; RowMajorStrg = FALSE;
1224       cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, 0, INVALID,
1225                   RALPHA, A, 1, RBETA, C, 1 );
1226       chkxer();
1227       cblas_info = 5; RowMajorStrg = FALSE;
1228       cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
1229                   RALPHA, A, 1, RBETA, C, 1 );
1230       chkxer();
1231       cblas_info = 5; RowMajorStrg = FALSE;
1232       cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, 0, INVALID,
1233                   RALPHA, A, 1, RBETA, C, 1 );
1234       chkxer();
1235       cblas_info = 8; RowMajorStrg = TRUE;
1236       cblas_cherk(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
1237                   RALPHA, A, 1, RBETA, C, 2 );
1238       chkxer();
1239       cblas_info = 8; RowMajorStrg = TRUE;
1240       cblas_cherk(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
1241                   RALPHA, A, 1, RBETA, C, 1 );
1242       chkxer();
1243       cblas_info = 8; RowMajorStrg = TRUE;
1244       cblas_cherk(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
1245                   RALPHA, A, 1, RBETA, C, 2 );
1246       chkxer();
1247       cblas_info = 8; RowMajorStrg = TRUE;
1248       cblas_cherk(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
1249                   RALPHA, A, 1, RBETA, C, 1 );
1250       chkxer();
1251       cblas_info = 8; RowMajorStrg = FALSE;
1252       cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
1253                   RALPHA, A, 1, RBETA, C, 2 );
1254       chkxer();
1255       cblas_info = 8; RowMajorStrg = FALSE;
1256       cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 2,
1257                   RALPHA, A, 1, RBETA, C, 1 );
1258       chkxer();
1259       cblas_info = 8; RowMajorStrg = FALSE;
1260       cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
1261                   RALPHA, A, 1, RBETA, C, 2 );
1262       chkxer();
1263       cblas_info = 8; RowMajorStrg = FALSE;
1264       cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, 0, 2,
1265                   RALPHA, A, 1, RBETA, C, 1 );
1266       chkxer();
1267       cblas_info = 11; RowMajorStrg = TRUE;
1268       cblas_cherk(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
1269                   RALPHA, A, 1, RBETA, C, 1 );
1270       chkxer();
1271       cblas_info = 11; RowMajorStrg = TRUE;
1272       cblas_cherk(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
1273                   RALPHA, A, 2, RBETA, C, 1 );
1274       chkxer();
1275       cblas_info = 11; RowMajorStrg = TRUE;
1276       cblas_cherk(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
1277                   RALPHA, A, 1, RBETA, C, 1 );
1278       chkxer();
1279       cblas_info = 11; RowMajorStrg = TRUE;
1280       cblas_cherk(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
1281                   RALPHA, A, 2, RBETA, C, 1 );
1282       chkxer();
1283       cblas_info = 11; RowMajorStrg = FALSE;
1284       cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
1285                   RALPHA, A, 2, RBETA, C, 1 );
1286       chkxer();
1287       cblas_info = 11; RowMajorStrg = FALSE;
1288       cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, 2, 0,
1289                   RALPHA, A, 1, RBETA, C, 1 );
1290       chkxer();
1291       cblas_info = 11; RowMajorStrg = FALSE;
1292       cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
1293                   RALPHA, A, 2, RBETA, C, 1 );
1294       chkxer();
1295       cblas_info = 11; RowMajorStrg = FALSE;
1296       cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, 2, 0,
1297                   RALPHA, A, 1, RBETA, C, 1 );
1298       chkxer();
1299 
1300    } else if (strncmp( sf,"cblas_csyrk"   ,11)==0) {
1301             cblas_rout = "cblas_csyrk"   ;
1302 
1303       cblas_info = 1;
1304       cblas_csyrk(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
1305                   ALPHA, A, 1, BETA, C, 1 );
1306       chkxer();
1307       cblas_info = 2; RowMajorStrg = FALSE;
1308       cblas_csyrk(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
1309                   ALPHA, A, 1, BETA, C, 1 );
1310       chkxer();
1311       cblas_info = 3; RowMajorStrg = FALSE;
1312       cblas_csyrk(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 0,
1313                   ALPHA, A, 1, BETA, C, 1 );
1314       chkxer();
1315       cblas_info = 4; RowMajorStrg = FALSE;
1316       cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
1317                   ALPHA, A, 1, BETA, C, 1 );
1318       chkxer();
1319       cblas_info = 4; RowMajorStrg = FALSE;
1320       cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, INVALID, 0,
1321                   ALPHA, A, 1, BETA, C, 1 );
1322       chkxer();
1323       cblas_info = 4; RowMajorStrg = FALSE;
1324       cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
1325                   ALPHA, A, 1, BETA, C, 1 );
1326       chkxer();
1327       cblas_info = 4; RowMajorStrg = FALSE;
1328       cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, INVALID, 0,
1329                   ALPHA, A, 1, BETA, C, 1 );
1330       chkxer();
1331       cblas_info = 5; RowMajorStrg = FALSE;
1332       cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
1333                   ALPHA, A, 1, BETA, C, 1 );
1334       chkxer();
1335       cblas_info = 5; RowMajorStrg = FALSE;
1336       cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, 0, INVALID,
1337                   ALPHA, A, 1, BETA, C, 1 );
1338       chkxer();
1339       cblas_info = 5; RowMajorStrg = FALSE;
1340       cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
1341                   ALPHA, A, 1, BETA, C, 1 );
1342       chkxer();
1343       cblas_info = 5; RowMajorStrg = FALSE;
1344       cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, 0, INVALID,
1345                   ALPHA, A, 1, BETA, C, 1 );
1346       chkxer();
1347       cblas_info = 8; RowMajorStrg = TRUE;
1348       cblas_csyrk(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
1349                   ALPHA, A, 1, BETA, C, 2 );
1350       chkxer();
1351       cblas_info = 8; RowMajorStrg = TRUE;
1352       cblas_csyrk(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
1353                   ALPHA, A, 1, BETA, C, 1 );
1354       chkxer();
1355       cblas_info = 8; RowMajorStrg = TRUE;
1356       cblas_csyrk(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
1357                   ALPHA, A, 1, BETA, C, 2 );
1358       chkxer();
1359       cblas_info = 8; RowMajorStrg = TRUE;
1360       cblas_csyrk(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
1361                   ALPHA, A, 1, BETA, C, 1 );
1362       chkxer();
1363       cblas_info = 8; RowMajorStrg = FALSE;
1364       cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
1365                   ALPHA, A, 1, BETA, C, 2 );
1366       chkxer();
1367       cblas_info = 8; RowMajorStrg = FALSE;
1368       cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, 0, 2,
1369                   ALPHA, A, 1, BETA, C, 1 );
1370       chkxer();
1371       cblas_info = 8; RowMajorStrg = FALSE;
1372       cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
1373                   ALPHA, A, 1, BETA, C, 2 );
1374       chkxer();
1375       cblas_info = 8; RowMajorStrg = FALSE;
1376       cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, 0, 2,
1377                   ALPHA, A, 1, BETA, C, 1 );
1378       chkxer();
1379       cblas_info = 11; RowMajorStrg = TRUE;
1380       cblas_csyrk(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
1381                   ALPHA, A, 1, BETA, C, 1 );
1382       chkxer();
1383       cblas_info = 11; RowMajorStrg = TRUE;
1384       cblas_csyrk(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
1385                   ALPHA, A, 2, BETA, C, 1 );
1386       chkxer();
1387       cblas_info = 11; RowMajorStrg = TRUE;
1388       cblas_csyrk(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
1389                   ALPHA, A, 1, BETA, C, 1 );
1390       chkxer();
1391       cblas_info = 11; RowMajorStrg = TRUE;
1392       cblas_csyrk(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
1393                   ALPHA, A, 2, BETA, C, 1 );
1394       chkxer();
1395       cblas_info = 11; RowMajorStrg = FALSE;
1396       cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
1397                   ALPHA, A, 2, BETA, C, 1 );
1398       chkxer();
1399       cblas_info = 11; RowMajorStrg = FALSE;
1400       cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, 2, 0,
1401                   ALPHA, A, 1, BETA, C, 1 );
1402       chkxer();
1403       cblas_info = 11; RowMajorStrg = FALSE;
1404       cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
1405                   ALPHA, A, 2, BETA, C, 1 );
1406       chkxer();
1407       cblas_info = 11; RowMajorStrg = FALSE;
1408       cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, 2, 0,
1409                   ALPHA, A, 1, BETA, C, 1 );
1410       chkxer();
1411 
1412    } else if (strncmp( sf,"cblas_cher2k"   ,12)==0) {
1413             cblas_rout = "cblas_cher2k"   ;
1414 
1415       cblas_info = 1;
1416       cblas_cher2k(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
1417                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1418       chkxer();
1419       cblas_info = 2; RowMajorStrg = FALSE;
1420       cblas_cher2k(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
1421                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1422       chkxer();
1423       cblas_info = 3; RowMajorStrg = FALSE;
1424       cblas_cher2k(CblasColMajor,  CblasUpper, CblasTrans, 0, 0,
1425                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1426       chkxer();
1427       cblas_info = 4; RowMajorStrg = FALSE;
1428       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
1429                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1430       chkxer();
1431       cblas_info = 4; RowMajorStrg = FALSE;
1432       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, INVALID, 0,
1433                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1434       chkxer();
1435       cblas_info = 4; RowMajorStrg = FALSE;
1436       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
1437                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1438       chkxer();
1439       cblas_info = 4; RowMajorStrg = FALSE;
1440       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, INVALID, 0,
1441                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1442       chkxer();
1443       cblas_info = 5; RowMajorStrg = FALSE;
1444       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
1445                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1446       chkxer();
1447       cblas_info = 5; RowMajorStrg = FALSE;
1448       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, INVALID,
1449                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1450       chkxer();
1451       cblas_info = 5; RowMajorStrg = FALSE;
1452       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
1453                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1454       chkxer();
1455       cblas_info = 5; RowMajorStrg = FALSE;
1456       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 0, INVALID,
1457                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1458       chkxer();
1459       cblas_info = 8; RowMajorStrg = TRUE;
1460       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
1461                    ALPHA, A, 1, B, 2, RBETA, C, 2 );
1462       chkxer();
1463       cblas_info = 8; RowMajorStrg = TRUE;
1464       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
1465                    ALPHA, A, 1, B, 2, RBETA, C, 1 );
1466       chkxer();
1467       cblas_info = 8; RowMajorStrg = TRUE;
1468       cblas_cher2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
1469                    ALPHA, A, 1, B, 2, RBETA, C, 2 );
1470       chkxer();
1471       cblas_info = 8; RowMajorStrg = TRUE;
1472       cblas_cher2k(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
1473                    ALPHA, A, 1, B, 2, RBETA, C, 1 );
1474       chkxer();
1475       cblas_info = 8; RowMajorStrg = FALSE;
1476       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
1477                    ALPHA, A, 1, B, 1, RBETA, C, 2 );
1478       chkxer();
1479       cblas_info = 8; RowMajorStrg = FALSE;
1480       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 2,
1481                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1482       chkxer();
1483       cblas_info = 8; RowMajorStrg = FALSE;
1484       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
1485                    ALPHA, A, 1, B, 1, RBETA, C, 2 );
1486       chkxer();
1487       cblas_info = 8; RowMajorStrg = FALSE;
1488       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 0, 2,
1489                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1490       chkxer();
1491       cblas_info = 10; RowMajorStrg = TRUE;
1492       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
1493                    ALPHA, A, 2, B, 1, RBETA, C, 2 );
1494       chkxer();
1495       cblas_info = 10; RowMajorStrg = TRUE;
1496       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
1497                    ALPHA, A, 2, B, 1, RBETA, C, 1 );
1498       chkxer();
1499       cblas_info = 10; RowMajorStrg = TRUE;
1500       cblas_cher2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
1501                    ALPHA, A, 2, B, 1, RBETA, C, 2 );
1502       chkxer();
1503       cblas_info = 10; RowMajorStrg = TRUE;
1504       cblas_cher2k(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
1505                    ALPHA, A, 2, B, 1, RBETA, C, 1 );
1506       chkxer();
1507       cblas_info = 10; RowMajorStrg = FALSE;
1508       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
1509                    ALPHA, A, 2, B, 1, RBETA, C, 2 );
1510       chkxer();
1511       cblas_info = 10; RowMajorStrg = FALSE;
1512       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 2,
1513                    ALPHA, A, 2, B, 1, RBETA, C, 1 );
1514       chkxer();
1515       cblas_info = 10; RowMajorStrg = FALSE;
1516       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
1517                    ALPHA, A, 2, B, 1, RBETA, C, 2 );
1518       chkxer();
1519       cblas_info = 10; RowMajorStrg = FALSE;
1520       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 0, 2,
1521                    ALPHA, A, 2, B, 1, RBETA, C, 1 );
1522       chkxer();
1523       cblas_info = 13; RowMajorStrg = TRUE;
1524       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
1525                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1526       chkxer();
1527       cblas_info = 13; RowMajorStrg = TRUE;
1528       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
1529                    ALPHA, A, 2, B, 2, RBETA, C, 1 );
1530       chkxer();
1531       cblas_info = 13; RowMajorStrg = TRUE;
1532       cblas_cher2k(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
1533                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1534       chkxer();
1535       cblas_info = 13; RowMajorStrg = TRUE;
1536       cblas_cher2k(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
1537                    ALPHA, A, 2, B, 2, RBETA, C, 1 );
1538       chkxer();
1539       cblas_info = 13; RowMajorStrg = FALSE;
1540       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
1541                    ALPHA, A, 2, B, 2, RBETA, C, 1 );
1542       chkxer();
1543       cblas_info = 13; RowMajorStrg = FALSE;
1544       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 2, 0,
1545                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1546       chkxer();
1547       cblas_info = 13; RowMajorStrg = FALSE;
1548       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
1549                    ALPHA, A, 2, B, 2, RBETA, C, 1 );
1550       chkxer();
1551       cblas_info = 13; RowMajorStrg = FALSE;
1552       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 2, 0,
1553                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
1554       chkxer();
1555 
1556    } else if (strncmp( sf,"cblas_csyr2k"   ,12)==0) {
1557             cblas_rout = "cblas_csyr2k"   ;
1558 
1559       cblas_info = 1;
1560       cblas_csyr2k(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
1561                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1562       chkxer();
1563       cblas_info = 2; RowMajorStrg = FALSE;
1564       cblas_csyr2k(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
1565                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1566       chkxer();
1567       cblas_info = 3; RowMajorStrg = FALSE;
1568       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 0,
1569                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1570       chkxer();
1571       cblas_info = 4; RowMajorStrg = FALSE;
1572       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
1573                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1574       chkxer();
1575       cblas_info = 4; RowMajorStrg = FALSE;
1576       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, INVALID, 0,
1577                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1578       chkxer();
1579       cblas_info = 4; RowMajorStrg = FALSE;
1580       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
1581                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1582       chkxer();
1583       cblas_info = 4; RowMajorStrg = FALSE;
1584       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, INVALID, 0,
1585                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1586       chkxer();
1587       cblas_info = 5; RowMajorStrg = FALSE;
1588       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
1589                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1590       chkxer();
1591       cblas_info = 5; RowMajorStrg = FALSE;
1592       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 0, INVALID,
1593                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1594       chkxer();
1595       cblas_info = 5; RowMajorStrg = FALSE;
1596       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
1597                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1598       chkxer();
1599       cblas_info = 5; RowMajorStrg = FALSE;
1600       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 0, INVALID,
1601                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1602       chkxer();
1603       cblas_info = 8; RowMajorStrg = TRUE;
1604       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
1605                    ALPHA, A, 1, B, 2, BETA, C, 2 );
1606       chkxer();
1607       cblas_info = 8; RowMajorStrg = TRUE;
1608       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
1609                    ALPHA, A, 1, B, 2, BETA, C, 1 );
1610       chkxer();
1611       cblas_info = 8; RowMajorStrg = TRUE;
1612       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
1613                    ALPHA, A, 1, B, 2, BETA, C, 2 );
1614       chkxer();
1615       cblas_info = 8; RowMajorStrg = TRUE;
1616       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
1617                    ALPHA, A, 1, B, 2, BETA, C, 1 );
1618       chkxer();
1619       cblas_info = 8; RowMajorStrg = FALSE;
1620       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
1621                    ALPHA, A, 1, B, 1, BETA, C, 2 );
1622       chkxer();
1623       cblas_info = 8; RowMajorStrg = FALSE;
1624       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 0, 2,
1625                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1626       chkxer();
1627       cblas_info = 8; RowMajorStrg = FALSE;
1628       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
1629                    ALPHA, A, 1, B, 1, BETA, C, 2 );
1630       chkxer();
1631       cblas_info = 8; RowMajorStrg = FALSE;
1632       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 0, 2,
1633                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1634       chkxer();
1635       cblas_info = 10; RowMajorStrg = TRUE;
1636       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
1637                    ALPHA, A, 2, B, 1, BETA, C, 2 );
1638       chkxer();
1639       cblas_info = 10; RowMajorStrg = TRUE;
1640       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
1641                    ALPHA, A, 2, B, 1, BETA, C, 1 );
1642       chkxer();
1643       cblas_info = 10; RowMajorStrg = TRUE;
1644       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
1645                    ALPHA, A, 2, B, 1, BETA, C, 2 );
1646       chkxer();
1647       cblas_info = 10; RowMajorStrg = TRUE;
1648       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
1649                    ALPHA, A, 2, B, 1, BETA, C, 1 );
1650       chkxer();
1651       cblas_info = 10; RowMajorStrg = FALSE;
1652       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
1653                    ALPHA, A, 2, B, 1, BETA, C, 2 );
1654       chkxer();
1655       cblas_info = 10; RowMajorStrg = FALSE;
1656       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 0, 2,
1657                    ALPHA, A, 2, B, 1, BETA, C, 1 );
1658       chkxer();
1659       cblas_info = 10; RowMajorStrg = FALSE;
1660       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
1661                    ALPHA, A, 2, B, 1, BETA, C, 2 );
1662       chkxer();
1663       cblas_info = 10; RowMajorStrg = FALSE;
1664       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 0, 2,
1665                    ALPHA, A, 2, B, 1, BETA, C, 1 );
1666       chkxer();
1667       cblas_info = 13; RowMajorStrg = TRUE;
1668       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
1669                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1670       chkxer();
1671       cblas_info = 13; RowMajorStrg = TRUE;
1672       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
1673                    ALPHA, A, 2, B, 2, BETA, C, 1 );
1674       chkxer();
1675       cblas_info = 13; RowMajorStrg = TRUE;
1676       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
1677                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1678       chkxer();
1679       cblas_info = 13; RowMajorStrg = TRUE;
1680       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
1681                    ALPHA, A, 2, B, 2, BETA, C, 1 );
1682       chkxer();
1683       cblas_info = 13; RowMajorStrg = FALSE;
1684       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
1685                    ALPHA, A, 2, B, 2, BETA, C, 1 );
1686       chkxer();
1687       cblas_info = 13; RowMajorStrg = FALSE;
1688       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 2, 0,
1689                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1690       chkxer();
1691       cblas_info = 13; RowMajorStrg = FALSE;
1692       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
1693                    ALPHA, A, 2, B, 2, BETA, C, 1 );
1694       chkxer();
1695       cblas_info = 13; RowMajorStrg = FALSE;
1696       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 2, 0,
1697                    ALPHA, A, 1, B, 1, BETA, C, 1 );
1698       chkxer();
1699 
1700    }
1701 
1702    if (cblas_ok == 1 )
1703        printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1704    else
1705        printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
1706 }
1707