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