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