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