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