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