4 #include "cblas_test.h"
6 int cblas_ok, cblas_lerr, cblas_info;
11 void F77_xerbla(F77_Char F77_srname, void *vinfo);
13 void F77_xerbla(char *srname, void *vinfo);
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);
27 void F77_s3chke(char *rout) {
29 float A[2] = {0.0,0.0},
33 extern int cblas_info, cblas_lerr, cblas_ok;
34 extern int RowMajorStrg;
35 extern char *cblas_rout;
37 if (link_xerbla) /* call these first to link */
39 cblas_xerbla(cblas_info,cblas_rout,"");
40 F77_xerbla(cblas_rout,&cblas_info);
46 if (strncmp( sf,"cblas_sgemm" ,11)==0) {
47 cblas_rout = "cblas_sgemm" ;
49 cblas_sgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
50 ALPHA, A, 1, B, 1, BETA, C, 1 );
53 cblas_sgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
54 ALPHA, A, 1, B, 1, BETA, C, 1 );
57 cblas_sgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
58 ALPHA, A, 1, B, 1, BETA, C, 1 );
61 cblas_sgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0,
62 ALPHA, A, 1, B, 1, BETA, C, 1 );
64 cblas_info = 2; RowMajorStrg = FALSE;
65 cblas_sgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0,
66 ALPHA, A, 1, B, 1, BETA, C, 1 );
68 cblas_info = 2; RowMajorStrg = FALSE;
69 cblas_sgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0,
70 ALPHA, A, 1, B, 1, BETA, C, 1 );
72 cblas_info = 3; RowMajorStrg = FALSE;
73 cblas_sgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
74 ALPHA, A, 1, B, 1, BETA, C, 1 );
76 cblas_info = 3; RowMajorStrg = FALSE;
77 cblas_sgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0,
78 ALPHA, A, 1, B, 1, BETA, C, 1 );
80 cblas_info = 4; RowMajorStrg = FALSE;
81 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
82 ALPHA, A, 1, B, 1, BETA, C, 1 );
84 cblas_info = 4; RowMajorStrg = FALSE;
85 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
86 ALPHA, A, 1, B, 1, BETA, C, 1 );
88 cblas_info = 4; RowMajorStrg = FALSE;
89 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
90 ALPHA, A, 1, B, 1, BETA, C, 1 );
92 cblas_info = 4; RowMajorStrg = FALSE;
93 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
94 ALPHA, A, 1, B, 1, BETA, C, 1 );
96 cblas_info = 5; RowMajorStrg = FALSE;
97 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
98 ALPHA, A, 1, B, 1, BETA, C, 1 );
100 cblas_info = 5; RowMajorStrg = FALSE;
101 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
102 ALPHA, A, 1, B, 1, BETA, C, 1 );
104 cblas_info = 5; RowMajorStrg = FALSE;
105 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
106 ALPHA, A, 1, B, 1, BETA, C, 1 );
108 cblas_info = 5; RowMajorStrg = FALSE;
109 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
110 ALPHA, A, 1, B, 1, BETA, C, 1 );
112 cblas_info = 6; RowMajorStrg = FALSE;
113 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
114 ALPHA, A, 1, B, 1, BETA, C, 1 );
116 cblas_info = 6; RowMajorStrg = FALSE;
117 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
118 ALPHA, A, 1, B, 1, BETA, C, 1 );
120 cblas_info = 6; RowMajorStrg = FALSE;
121 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
122 ALPHA, A, 1, B, 1, BETA, C, 1 );
124 cblas_info = 6; RowMajorStrg = FALSE;
125 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
126 ALPHA, A, 1, B, 1, BETA, C, 1 );
128 cblas_info = 9; RowMajorStrg = FALSE;
129 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
130 ALPHA, A, 1, B, 1, BETA, C, 2 );
132 cblas_info = 9; RowMajorStrg = FALSE;
133 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
134 ALPHA, A, 1, B, 1, BETA, C, 2 );
136 cblas_info = 9; RowMajorStrg = FALSE;
137 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
138 ALPHA, A, 1, B, 2, BETA, C, 1 );
140 cblas_info = 9; RowMajorStrg = FALSE;
141 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2,
142 ALPHA, A, 1, B, 1, BETA, C, 1 );
144 cblas_info = 11; RowMajorStrg = FALSE;
145 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
146 ALPHA, A, 1, B, 1, BETA, C, 1 );
148 cblas_info = 11; RowMajorStrg = FALSE;
149 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
150 ALPHA, A, 2, B, 1, BETA, C, 1 );
152 cblas_info = 11; RowMajorStrg = FALSE;
153 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
154 ALPHA, A, 1, B, 1, BETA, C, 1 );
156 cblas_info = 11; RowMajorStrg = FALSE;
157 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0,
158 ALPHA, A, 1, B, 1, BETA, C, 1 );
160 cblas_info = 14; RowMajorStrg = FALSE;
161 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
162 ALPHA, A, 2, B, 1, BETA, C, 1 );
164 cblas_info = 14; RowMajorStrg = FALSE;
165 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
166 ALPHA, A, 2, B, 1, BETA, C, 1 );
168 cblas_info = 14; RowMajorStrg = FALSE;
169 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
170 ALPHA, A, 1, B, 1, BETA, C, 1 );
172 cblas_info = 14; RowMajorStrg = FALSE;
173 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0,
174 ALPHA, A, 1, B, 1, BETA, C, 1 );
177 cblas_info = 4; RowMajorStrg = TRUE;
178 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
179 ALPHA, A, 1, B, 1, BETA, C, 1 );
181 cblas_info = 4; RowMajorStrg = TRUE;
182 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
183 ALPHA, A, 1, B, 1, BETA, C, 1 );
185 cblas_info = 4; RowMajorStrg = TRUE;
186 cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
187 ALPHA, A, 1, B, 1, BETA, C, 1 );
189 cblas_info = 4; RowMajorStrg = TRUE;
190 cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
191 ALPHA, A, 1, B, 1, BETA, C, 1 );
193 cblas_info = 5; RowMajorStrg = TRUE;
194 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
195 ALPHA, A, 1, B, 1, BETA, C, 1 );
197 cblas_info = 5; RowMajorStrg = TRUE;
198 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
199 ALPHA, A, 1, B, 1, BETA, C, 1 );
201 cblas_info = 5; RowMajorStrg = TRUE;
202 cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
203 ALPHA, A, 1, B, 1, BETA, C, 1 );
205 cblas_info = 5; RowMajorStrg = TRUE;
206 cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
207 ALPHA, A, 1, B, 1, BETA, C, 1 );
209 cblas_info = 6; RowMajorStrg = TRUE;
210 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
211 ALPHA, A, 1, B, 1, BETA, C, 1 );
213 cblas_info = 6; RowMajorStrg = TRUE;
214 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
215 ALPHA, A, 1, B, 1, BETA, C, 1 );
217 cblas_info = 6; RowMajorStrg = TRUE;
218 cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
219 ALPHA, A, 1, B, 1, BETA, C, 1 );
221 cblas_info = 6; RowMajorStrg = TRUE;
222 cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
223 ALPHA, A, 1, B, 1, BETA, C, 1 );
225 cblas_info = 9; RowMajorStrg = TRUE;
226 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
227 ALPHA, A, 1, B, 1, BETA, C, 2 );
229 cblas_info = 9; RowMajorStrg = TRUE;
230 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2,
231 ALPHA, A, 1, B, 2, BETA, C, 2 );
233 cblas_info = 9; RowMajorStrg = TRUE;
234 cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
235 ALPHA, A, 1, B, 2, BETA, C, 1 );
237 cblas_info = 9; RowMajorStrg = TRUE;
238 cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0,
239 ALPHA, A, 1, B, 1, BETA, C, 1 );
241 cblas_info = 11; RowMajorStrg = TRUE;
242 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0,
243 ALPHA, A, 1, B, 1, BETA, C, 1 );
245 cblas_info = 11; RowMajorStrg = TRUE;
246 cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0,
247 ALPHA, A, 2, B, 1, BETA, C, 1 );
249 cblas_info = 11; RowMajorStrg = TRUE;
250 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2,
251 ALPHA, A, 2, B, 1, BETA, C, 1 );
253 cblas_info = 11; RowMajorStrg = TRUE;
254 cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2,
255 ALPHA, A, 1, B, 1, BETA, C, 1 );
257 cblas_info = 14; RowMajorStrg = TRUE;
258 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0,
259 ALPHA, A, 1, B, 2, BETA, C, 1 );
261 cblas_info = 14; RowMajorStrg = TRUE;
262 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
263 ALPHA, A, 1, B, 1, BETA, C, 1 );
265 cblas_info = 14; RowMajorStrg = TRUE;
266 cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0,
267 ALPHA, A, 1, B, 2, BETA, C, 1 );
269 cblas_info = 14; RowMajorStrg = TRUE;
270 cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
271 ALPHA, A, 1, B, 1, BETA, C, 1 );
274 } else if (strncmp( sf,"cblas_ssymm" ,11)==0) {
275 cblas_rout = "cblas_ssymm" ;
278 cblas_ssymm( INVALID, CblasRight, CblasLower, 0, 0,
279 ALPHA, A, 1, B, 1, BETA, C, 1 );
281 cblas_info = 2; RowMajorStrg = FALSE;
282 cblas_ssymm( CblasColMajor, INVALID, CblasUpper, 0, 0,
283 ALPHA, A, 1, B, 1, BETA, C, 1 );
285 cblas_info = 3; RowMajorStrg = FALSE;
286 cblas_ssymm( CblasColMajor, CblasLeft, INVALID, 0, 0,
287 ALPHA, A, 1, B, 1, BETA, C, 1 );
289 cblas_info = 4; RowMajorStrg = FALSE;
290 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0,
291 ALPHA, A, 1, B, 1, BETA, C, 1 );
293 cblas_info = 4; RowMajorStrg = FALSE;
294 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0,
295 ALPHA, A, 1, B, 1, BETA, C, 1 );
297 cblas_info = 4; RowMajorStrg = FALSE;
298 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0,
299 ALPHA, A, 1, B, 1, BETA, C, 1 );
301 cblas_info = 4; RowMajorStrg = FALSE;
302 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0,
303 ALPHA, A, 1, B, 1, BETA, C, 1 );
305 cblas_info = 5; RowMajorStrg = FALSE;
306 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID,
307 ALPHA, A, 1, B, 1, BETA, C, 1 );
309 cblas_info = 5; RowMajorStrg = FALSE;
310 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID,
311 ALPHA, A, 1, B, 1, BETA, C, 1 );
313 cblas_info = 5; RowMajorStrg = FALSE;
314 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID,
315 ALPHA, A, 1, B, 1, BETA, C, 1 );
317 cblas_info = 5; RowMajorStrg = FALSE;
318 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID,
319 ALPHA, A, 1, B, 1, BETA, C, 1 );
321 cblas_info = 8; RowMajorStrg = FALSE;
322 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
323 ALPHA, A, 1, B, 2, BETA, C, 2 );
325 cblas_info = 8; RowMajorStrg = FALSE;
326 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 0, 2,
327 ALPHA, A, 1, B, 1, BETA, C, 1 );
329 cblas_info = 8; RowMajorStrg = FALSE;
330 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
331 ALPHA, A, 1, B, 2, BETA, C, 2 );
333 cblas_info = 8; RowMajorStrg = FALSE;
334 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 0, 2,
335 ALPHA, A, 1, B, 1, BETA, C, 1 );
337 cblas_info = 10; RowMajorStrg = FALSE;
338 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
339 ALPHA, A, 2, B, 1, BETA, C, 1 );
341 cblas_info = 10; RowMajorStrg = FALSE;
342 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
343 ALPHA, A, 1, B, 1, BETA, C, 1 );
345 cblas_info = 10; RowMajorStrg = FALSE;
346 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
347 ALPHA, A, 2, B, 1, BETA, C, 1 );
349 cblas_info = 10; RowMajorStrg = FALSE;
350 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
351 ALPHA, A, 1, B, 1, BETA, C, 1 );
353 cblas_info = 13; RowMajorStrg = FALSE;
354 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
355 ALPHA, A, 2, B, 2, BETA, C, 1 );
357 cblas_info = 13; RowMajorStrg = FALSE;
358 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
359 ALPHA, A, 1, B, 2, BETA, C, 1 );
361 cblas_info = 13; RowMajorStrg = FALSE;
362 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
363 ALPHA, A, 2, B, 2, BETA, C, 1 );
365 cblas_info = 13; RowMajorStrg = FALSE;
366 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
367 ALPHA, A, 1, B, 2, BETA, C, 1 );
370 cblas_info = 4; RowMajorStrg = TRUE;
371 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
372 ALPHA, A, 1, B, 1, BETA, C, 1 );
374 cblas_info = 4; RowMajorStrg = TRUE;
375 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0,
376 ALPHA, A, 1, B, 1, BETA, C, 1 );
378 cblas_info = 4; RowMajorStrg = TRUE;
379 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0,
380 ALPHA, A, 1, B, 1, BETA, C, 1 );
382 cblas_info = 4; RowMajorStrg = TRUE;
383 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0,
384 ALPHA, A, 1, B, 1, BETA, C, 1 );
386 cblas_info = 5; RowMajorStrg = TRUE;
387 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID,
388 ALPHA, A, 1, B, 1, BETA, C, 1 );
390 cblas_info = 5; RowMajorStrg = TRUE;
391 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID,
392 ALPHA, A, 1, B, 1, BETA, C, 1 );
394 cblas_info = 5; RowMajorStrg = TRUE;
395 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID,
396 ALPHA, A, 1, B, 1, BETA, C, 1 );
398 cblas_info = 5; RowMajorStrg = TRUE;
399 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID,
400 ALPHA, A, 1, B, 1, BETA, C, 1 );
402 cblas_info = 8; RowMajorStrg = TRUE;
403 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0,
404 ALPHA, A, 1, B, 2, BETA, C, 2 );
406 cblas_info = 8; RowMajorStrg = TRUE;
407 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
408 ALPHA, A, 1, B, 1, BETA, C, 1 );
410 cblas_info = 8; RowMajorStrg = TRUE;
411 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0,
412 ALPHA, A, 1, B, 2, BETA, C, 2 );
414 cblas_info = 8; RowMajorStrg = TRUE;
415 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
416 ALPHA, A, 1, B, 1, BETA, C, 1 );
418 cblas_info = 10; RowMajorStrg = TRUE;
419 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
420 ALPHA, A, 2, B, 1, BETA, C, 1 );
422 cblas_info = 10; RowMajorStrg = TRUE;
423 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
424 ALPHA, A, 2, B, 1, BETA, C, 1 );
426 cblas_info = 10; RowMajorStrg = TRUE;
427 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
428 ALPHA, A, 2, B, 1, BETA, C, 1 );
430 cblas_info = 10; RowMajorStrg = TRUE;
431 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
432 ALPHA, A, 2, B, 1, BETA, C, 1 );
434 cblas_info = 13; RowMajorStrg = TRUE;
435 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
436 ALPHA, A, 1, B, 2, BETA, C, 1 );
438 cblas_info = 13; RowMajorStrg = TRUE;
439 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
440 ALPHA, A, 2, B, 2, BETA, C, 1 );
442 cblas_info = 13; RowMajorStrg = TRUE;
443 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
444 ALPHA, A, 1, B, 2, BETA, C, 1 );
446 cblas_info = 13; RowMajorStrg = TRUE;
447 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
448 ALPHA, A, 2, B, 2, BETA, C, 1 );
451 } else if (strncmp( sf,"cblas_strmm" ,11)==0) {
452 cblas_rout = "cblas_strmm" ;
455 cblas_strmm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
456 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
458 cblas_info = 2; RowMajorStrg = FALSE;
459 cblas_strmm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
460 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
462 cblas_info = 3; RowMajorStrg = FALSE;
463 cblas_strmm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
464 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
466 cblas_info = 4; RowMajorStrg = FALSE;
467 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
468 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
470 cblas_info = 5; RowMajorStrg = FALSE;
471 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
472 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
474 cblas_info = 6; RowMajorStrg = FALSE;
475 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
476 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
478 cblas_info = 6; RowMajorStrg = FALSE;
479 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
480 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
482 cblas_info = 6; RowMajorStrg = FALSE;
483 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
484 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
486 cblas_info = 6; RowMajorStrg = FALSE;
487 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
488 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
490 cblas_info = 6; RowMajorStrg = FALSE;
491 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
492 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
494 cblas_info = 6; RowMajorStrg = FALSE;
495 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
496 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
498 cblas_info = 6; RowMajorStrg = FALSE;
499 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
500 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
502 cblas_info = 6; RowMajorStrg = FALSE;
503 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
504 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
506 cblas_info = 7; RowMajorStrg = FALSE;
507 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
508 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
510 cblas_info = 7; RowMajorStrg = FALSE;
511 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
512 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
514 cblas_info = 7; RowMajorStrg = FALSE;
515 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
516 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
518 cblas_info = 7; RowMajorStrg = FALSE;
519 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
520 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
522 cblas_info = 7; RowMajorStrg = FALSE;
523 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
524 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
526 cblas_info = 7; RowMajorStrg = FALSE;
527 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
528 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
530 cblas_info = 7; RowMajorStrg = FALSE;
531 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
532 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
534 cblas_info = 7; RowMajorStrg = FALSE;
535 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
536 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
538 cblas_info = 10; RowMajorStrg = FALSE;
539 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
540 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
542 cblas_info = 10; RowMajorStrg = FALSE;
543 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
544 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
546 cblas_info = 10; RowMajorStrg = FALSE;
547 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
548 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
550 cblas_info = 10; RowMajorStrg = FALSE;
551 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
552 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
554 cblas_info = 10; RowMajorStrg = FALSE;
555 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
556 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
558 cblas_info = 10; RowMajorStrg = FALSE;
559 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
560 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
562 cblas_info = 10; RowMajorStrg = FALSE;
563 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
564 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
566 cblas_info = 10; RowMajorStrg = FALSE;
567 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
568 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
570 cblas_info = 12; RowMajorStrg = FALSE;
571 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
572 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
574 cblas_info = 12; RowMajorStrg = FALSE;
575 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
576 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
578 cblas_info = 12; RowMajorStrg = FALSE;
579 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
580 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
582 cblas_info = 12; RowMajorStrg = FALSE;
583 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
584 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
586 cblas_info = 12; RowMajorStrg = FALSE;
587 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
588 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
590 cblas_info = 12; RowMajorStrg = FALSE;
591 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
592 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
594 cblas_info = 12; RowMajorStrg = FALSE;
595 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
596 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
598 cblas_info = 12; RowMajorStrg = FALSE;
599 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
600 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
603 cblas_info = 6; RowMajorStrg = TRUE;
604 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
605 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
607 cblas_info = 6; RowMajorStrg = TRUE;
608 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
609 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
611 cblas_info = 6; RowMajorStrg = TRUE;
612 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
613 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
615 cblas_info = 6; RowMajorStrg = TRUE;
616 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
617 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
619 cblas_info = 6; RowMajorStrg = TRUE;
620 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
621 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
623 cblas_info = 6; RowMajorStrg = TRUE;
624 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
625 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
627 cblas_info = 6; RowMajorStrg = TRUE;
628 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
629 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
631 cblas_info = 6; RowMajorStrg = TRUE;
632 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
633 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
635 cblas_info = 7; RowMajorStrg = TRUE;
636 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
637 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
639 cblas_info = 7; RowMajorStrg = TRUE;
640 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
641 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
643 cblas_info = 7; RowMajorStrg = TRUE;
644 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
645 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
647 cblas_info = 7; RowMajorStrg = TRUE;
648 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
649 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
651 cblas_info = 7; RowMajorStrg = TRUE;
652 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
653 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
655 cblas_info = 7; RowMajorStrg = TRUE;
656 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
657 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
659 cblas_info = 7; RowMajorStrg = TRUE;
660 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
661 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
663 cblas_info = 7; RowMajorStrg = TRUE;
664 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
665 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
667 cblas_info = 10; RowMajorStrg = TRUE;
668 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
669 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
671 cblas_info = 10; RowMajorStrg = TRUE;
672 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
673 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
675 cblas_info = 10; RowMajorStrg = TRUE;
676 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
677 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
679 cblas_info = 10; RowMajorStrg = TRUE;
680 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
681 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
683 cblas_info = 10; RowMajorStrg = TRUE;
684 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
685 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
687 cblas_info = 10; RowMajorStrg = TRUE;
688 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
689 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
691 cblas_info = 10; RowMajorStrg = TRUE;
692 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
693 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
695 cblas_info = 10; RowMajorStrg = TRUE;
696 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
697 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
699 cblas_info = 12; RowMajorStrg = TRUE;
700 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
701 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
703 cblas_info = 12; RowMajorStrg = TRUE;
704 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
705 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
707 cblas_info = 12; RowMajorStrg = TRUE;
708 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
709 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
711 cblas_info = 12; RowMajorStrg = TRUE;
712 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
713 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
715 cblas_info = 12; RowMajorStrg = TRUE;
716 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
717 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
719 cblas_info = 12; RowMajorStrg = TRUE;
720 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
721 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
723 cblas_info = 12; RowMajorStrg = TRUE;
724 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
725 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
727 cblas_info = 12; RowMajorStrg = TRUE;
728 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
729 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
732 } else if (strncmp( sf,"cblas_strsm" ,11)==0) {
733 cblas_rout = "cblas_strsm" ;
736 cblas_strsm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
737 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
739 cblas_info = 2; RowMajorStrg = FALSE;
740 cblas_strsm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
741 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
743 cblas_info = 3; RowMajorStrg = FALSE;
744 cblas_strsm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
745 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
747 cblas_info = 4; RowMajorStrg = FALSE;
748 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
749 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
751 cblas_info = 5; RowMajorStrg = FALSE;
752 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
753 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
755 cblas_info = 6; RowMajorStrg = FALSE;
756 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
757 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
759 cblas_info = 6; RowMajorStrg = FALSE;
760 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
761 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
763 cblas_info = 6; RowMajorStrg = FALSE;
764 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
765 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
767 cblas_info = 6; RowMajorStrg = FALSE;
768 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
769 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
771 cblas_info = 6; RowMajorStrg = FALSE;
772 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
773 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
775 cblas_info = 6; RowMajorStrg = FALSE;
776 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
777 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
779 cblas_info = 6; RowMajorStrg = FALSE;
780 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
781 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
783 cblas_info = 6; RowMajorStrg = FALSE;
784 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
785 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
787 cblas_info = 7; RowMajorStrg = FALSE;
788 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
789 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
791 cblas_info = 7; RowMajorStrg = FALSE;
792 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
793 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
795 cblas_info = 7; RowMajorStrg = FALSE;
796 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
797 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
799 cblas_info = 7; RowMajorStrg = FALSE;
800 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
801 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
803 cblas_info = 7; RowMajorStrg = FALSE;
804 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
805 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
807 cblas_info = 7; RowMajorStrg = FALSE;
808 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
809 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
811 cblas_info = 7; RowMajorStrg = FALSE;
812 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
813 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
815 cblas_info = 7; RowMajorStrg = FALSE;
816 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
817 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
819 cblas_info = 10; RowMajorStrg = FALSE;
820 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
821 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
823 cblas_info = 10; RowMajorStrg = FALSE;
824 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
825 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
827 cblas_info = 10; RowMajorStrg = FALSE;
828 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
829 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
831 cblas_info = 10; RowMajorStrg = FALSE;
832 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
833 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
835 cblas_info = 10; RowMajorStrg = FALSE;
836 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
837 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
839 cblas_info = 10; RowMajorStrg = FALSE;
840 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
841 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
843 cblas_info = 10; RowMajorStrg = FALSE;
844 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
845 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
847 cblas_info = 10; RowMajorStrg = FALSE;
848 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
849 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
851 cblas_info = 12; RowMajorStrg = FALSE;
852 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
853 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
855 cblas_info = 12; RowMajorStrg = FALSE;
856 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
857 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
859 cblas_info = 12; RowMajorStrg = FALSE;
860 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
861 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
863 cblas_info = 12; RowMajorStrg = FALSE;
864 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
865 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
867 cblas_info = 12; RowMajorStrg = FALSE;
868 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
869 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
871 cblas_info = 12; RowMajorStrg = FALSE;
872 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
873 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
875 cblas_info = 12; RowMajorStrg = FALSE;
876 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
877 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
879 cblas_info = 12; RowMajorStrg = FALSE;
880 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
881 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
884 cblas_info = 6; RowMajorStrg = TRUE;
885 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
886 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
888 cblas_info = 6; RowMajorStrg = TRUE;
889 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
890 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
892 cblas_info = 6; RowMajorStrg = TRUE;
893 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
894 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
896 cblas_info = 6; RowMajorStrg = TRUE;
897 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
898 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
900 cblas_info = 6; RowMajorStrg = TRUE;
901 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
902 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
904 cblas_info = 6; RowMajorStrg = TRUE;
905 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
906 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
908 cblas_info = 6; RowMajorStrg = TRUE;
909 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
910 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
912 cblas_info = 6; RowMajorStrg = TRUE;
913 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
914 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
916 cblas_info = 7; RowMajorStrg = TRUE;
917 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
918 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
920 cblas_info = 7; RowMajorStrg = TRUE;
921 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
922 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
924 cblas_info = 7; RowMajorStrg = TRUE;
925 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
926 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
928 cblas_info = 7; RowMajorStrg = TRUE;
929 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
930 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
932 cblas_info = 7; RowMajorStrg = TRUE;
933 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
934 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
936 cblas_info = 7; RowMajorStrg = TRUE;
937 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
938 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
940 cblas_info = 7; RowMajorStrg = TRUE;
941 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
942 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
944 cblas_info = 7; RowMajorStrg = TRUE;
945 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
946 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
948 cblas_info = 10; RowMajorStrg = TRUE;
949 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
950 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
952 cblas_info = 10; RowMajorStrg = TRUE;
953 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
954 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
956 cblas_info = 10; RowMajorStrg = TRUE;
957 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
958 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
960 cblas_info = 10; RowMajorStrg = TRUE;
961 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
962 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
964 cblas_info = 10; RowMajorStrg = TRUE;
965 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
966 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
968 cblas_info = 10; RowMajorStrg = TRUE;
969 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
970 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
972 cblas_info = 10; RowMajorStrg = TRUE;
973 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
974 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
976 cblas_info = 10; RowMajorStrg = TRUE;
977 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
978 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
980 cblas_info = 12; RowMajorStrg = TRUE;
981 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
982 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
984 cblas_info = 12; RowMajorStrg = TRUE;
985 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
986 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
988 cblas_info = 12; RowMajorStrg = TRUE;
989 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
990 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
992 cblas_info = 12; RowMajorStrg = TRUE;
993 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
994 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
996 cblas_info = 12; RowMajorStrg = TRUE;
997 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
998 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1000 cblas_info = 12; RowMajorStrg = TRUE;
1001 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
1002 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1004 cblas_info = 12; RowMajorStrg = TRUE;
1005 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
1006 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1008 cblas_info = 12; RowMajorStrg = TRUE;
1009 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
1010 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1013 } else if (strncmp( sf,"cblas_ssyrk" ,11)==0) {
1014 cblas_rout = "cblas_ssyrk" ;
1017 cblas_ssyrk( INVALID, CblasUpper, CblasNoTrans,
1018 0, 0, ALPHA, A, 1, BETA, C, 1 );
1020 cblas_info = 2; RowMajorStrg = FALSE;
1021 cblas_ssyrk( CblasColMajor, INVALID, CblasNoTrans,
1022 0, 0, ALPHA, A, 1, BETA, C, 1 );
1024 cblas_info = 3; RowMajorStrg = FALSE;
1025 cblas_ssyrk( CblasColMajor, CblasUpper, INVALID,
1026 0, 0, ALPHA, A, 1, BETA, C, 1 );
1028 cblas_info = 4; RowMajorStrg = FALSE;
1029 cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1030 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1032 cblas_info = 4; RowMajorStrg = FALSE;
1033 cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans,
1034 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1036 cblas_info = 4; RowMajorStrg = FALSE;
1037 cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans,
1038 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1040 cblas_info = 4; RowMajorStrg = FALSE;
1041 cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans,
1042 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1044 cblas_info = 5; RowMajorStrg = FALSE;
1045 cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1046 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1048 cblas_info = 5; RowMajorStrg = FALSE;
1049 cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans,
1050 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1052 cblas_info = 5; RowMajorStrg = FALSE;
1053 cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans,
1054 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1056 cblas_info = 5; RowMajorStrg = FALSE;
1057 cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans,
1058 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1060 cblas_info = 8; RowMajorStrg = TRUE;
1061 cblas_ssyrk( CblasRowMajor, CblasUpper, CblasNoTrans,
1062 0, 2, ALPHA, A, 1, BETA, C, 2 );
1064 cblas_info = 8; RowMajorStrg = TRUE;
1065 cblas_ssyrk( CblasRowMajor, CblasUpper, CblasTrans,
1066 2, 0, ALPHA, A, 1, BETA, C, 1 );
1068 cblas_info = 8; RowMajorStrg = TRUE;
1069 cblas_ssyrk( CblasRowMajor, CblasLower, CblasNoTrans,
1070 0, 2, ALPHA, A, 1, BETA, C, 2 );
1072 cblas_info = 8; RowMajorStrg = TRUE;
1073 cblas_ssyrk( CblasRowMajor, CblasLower, CblasTrans,
1074 2, 0, ALPHA, A, 1, BETA, C, 1 );
1076 cblas_info = 8; RowMajorStrg = FALSE;
1077 cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1078 2, 0, ALPHA, A, 1, BETA, C, 2 );
1080 cblas_info = 8; RowMajorStrg = FALSE;
1081 cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans,
1082 0, 2, ALPHA, A, 1, BETA, C, 1 );
1084 cblas_info = 8; RowMajorStrg = FALSE;
1085 cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans,
1086 2, 0, ALPHA, A, 1, BETA, C, 2 );
1088 cblas_info = 8; RowMajorStrg = FALSE;
1089 cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans,
1090 0, 2, ALPHA, A, 1, BETA, C, 1 );
1092 cblas_info = 11; RowMajorStrg = TRUE;
1093 cblas_ssyrk( CblasRowMajor, CblasUpper, CblasNoTrans,
1094 2, 0, ALPHA, A, 1, BETA, C, 1 );
1096 cblas_info = 11; RowMajorStrg = TRUE;
1097 cblas_ssyrk( CblasRowMajor, CblasUpper, CblasTrans,
1098 2, 0, ALPHA, A, 2, BETA, C, 1 );
1100 cblas_info = 11; RowMajorStrg = TRUE;
1101 cblas_ssyrk( CblasRowMajor, CblasLower, CblasNoTrans,
1102 2, 0, ALPHA, A, 1, BETA, C, 1 );
1104 cblas_info = 11; RowMajorStrg = TRUE;
1105 cblas_ssyrk( CblasRowMajor, CblasLower, CblasTrans,
1106 2, 0, ALPHA, A, 2, BETA, C, 1 );
1108 cblas_info = 11; RowMajorStrg = FALSE;
1109 cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1110 2, 0, ALPHA, A, 2, BETA, C, 1 );
1112 cblas_info = 11; RowMajorStrg = FALSE;
1113 cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans,
1114 2, 0, ALPHA, A, 1, BETA, C, 1 );
1116 cblas_info = 11; RowMajorStrg = FALSE;
1117 cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans,
1118 2, 0, ALPHA, A, 2, BETA, C, 1 );
1120 cblas_info = 11; RowMajorStrg = FALSE;
1121 cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans,
1122 2, 0, ALPHA, A, 1, BETA, C, 1 );
1125 } else if (strncmp( sf,"cblas_ssyr2k" ,12)==0) {
1126 cblas_rout = "cblas_ssyr2k" ;
1129 cblas_ssyr2k( INVALID, CblasUpper, CblasNoTrans,
1130 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1132 cblas_info = 2; RowMajorStrg = FALSE;
1133 cblas_ssyr2k( CblasColMajor, INVALID, CblasNoTrans,
1134 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1136 cblas_info = 3; RowMajorStrg = FALSE;
1137 cblas_ssyr2k( CblasColMajor, CblasUpper, INVALID,
1138 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1140 cblas_info = 4; RowMajorStrg = FALSE;
1141 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1142 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1144 cblas_info = 4; RowMajorStrg = FALSE;
1145 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1146 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1148 cblas_info = 4; RowMajorStrg = FALSE;
1149 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1150 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1152 cblas_info = 4; RowMajorStrg = FALSE;
1153 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1154 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1156 cblas_info = 5; RowMajorStrg = FALSE;
1157 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1158 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1160 cblas_info = 5; RowMajorStrg = FALSE;
1161 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1162 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1164 cblas_info = 5; RowMajorStrg = FALSE;
1165 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1166 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1168 cblas_info = 5; RowMajorStrg = FALSE;
1169 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1170 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1172 cblas_info = 8; RowMajorStrg = TRUE;
1173 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
1174 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1176 cblas_info = 8; RowMajorStrg = TRUE;
1177 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasTrans,
1178 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1180 cblas_info = 8; RowMajorStrg = TRUE;
1181 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
1182 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1184 cblas_info = 8; RowMajorStrg = TRUE;
1185 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasTrans,
1186 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1188 cblas_info = 8; RowMajorStrg = FALSE;
1189 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1190 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1192 cblas_info = 8; RowMajorStrg = FALSE;
1193 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1194 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1196 cblas_info = 8; RowMajorStrg = FALSE;
1197 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1198 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1200 cblas_info = 8; RowMajorStrg = FALSE;
1201 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1202 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1204 cblas_info = 10; RowMajorStrg = TRUE;
1205 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
1206 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1208 cblas_info = 10; RowMajorStrg = TRUE;
1209 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasTrans,
1210 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1212 cblas_info = 10; RowMajorStrg = TRUE;
1213 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
1214 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1216 cblas_info = 10; RowMajorStrg = TRUE;
1217 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasTrans,
1218 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1220 cblas_info = 10; RowMajorStrg = FALSE;
1221 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1222 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1224 cblas_info = 10; RowMajorStrg = FALSE;
1225 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1226 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1228 cblas_info = 10; RowMajorStrg = FALSE;
1229 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1230 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1232 cblas_info = 10; RowMajorStrg = FALSE;
1233 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1234 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1236 cblas_info = 13; RowMajorStrg = TRUE;
1237 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
1238 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1240 cblas_info = 13; RowMajorStrg = TRUE;
1241 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasTrans,
1242 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1244 cblas_info = 13; RowMajorStrg = TRUE;
1245 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
1246 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1248 cblas_info = 13; RowMajorStrg = TRUE;
1249 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasTrans,
1250 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1252 cblas_info = 13; RowMajorStrg = FALSE;
1253 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1254 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1256 cblas_info = 13; RowMajorStrg = FALSE;
1257 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1258 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1260 cblas_info = 13; RowMajorStrg = FALSE;
1261 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1262 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1264 cblas_info = 13; RowMajorStrg = FALSE;
1265 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1266 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1269 if (cblas_ok == TRUE )
1270 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1272 printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);