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