LAPACK  3.11.0
LAPACK: Linear Algebra PACKage
c_z3chke.c
1 #include <stdio.h>
2 #include <string.h>
3 #include "cblas.h"
4 #include "cblas_test.h"
5 
6 CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
7 CBLAS_INT link_xerbla=TRUE;
8 char *cblas_rout;
9 
10 #ifdef F77_Char
11 void F77_xerbla(F77_Char F77_srname, void *vinfo);
12 #else
13 void F77_xerbla(char *srname, void *vinfo);
14 #endif
15 
16 void chkxer(void) {
17  extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
18  extern CBLAS_INT link_xerbla;
19  extern char *cblas_rout;
20  if (cblas_lerr == 1 ) {
21  printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);
22  cblas_ok = 0 ;
23  }
24  cblas_lerr = 1 ;
25 }
26 
27 void F77_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 CBLAS_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 }