LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
c_s3chke.c
Go to the documentation of this file.
1#include <stdio.h>
2#include <string.h>
3#include "cblas.h"
4#include "cblas_test.h"
5
6CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
7CBLAS_INT link_xerbla=TRUE;
8char *cblas_rout;
9
10#ifdef F77_Char
11void F77_xerbla(F77_Char F77_srname, void *vinfo);
12#else
13void F77_xerbla(char *srname, void *vinfo);
14#endif
15
16void chkxer(void) {
17 extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
18 extern CBLAS_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_s3chke(char *rout) {
28 char *sf = ( rout ) ;
29 float A[2] = {0.0,0.0},
30 B[2] = {0.0,0.0},
31 C[2] = {0.0,0.0},
32 ALPHA=0.0, BETA=0.0;
33 extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok;
34 extern int RowMajorStrg;
35 extern char *cblas_rout;
36
37#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
38 if (link_xerbla) /* call these first to link */
39 {
40 cblas_xerbla(cblas_info,cblas_rout,"");
41 F77_xerbla(cblas_rout,&cblas_info);
42 }
43#endif
44
45 cblas_ok = TRUE ;
46 cblas_lerr = PASSED ;
47
48 if (strncmp( sf,"cblas_sgemm" ,11)==0) {
49 cblas_rout = "cblas_sgemm" ;
50 cblas_info = 1;
51 cblas_sgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
52 ALPHA, A, 1, B, 1, BETA, C, 1 );
53 chkxer();
54 cblas_info = 1;
55 cblas_sgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
56 ALPHA, A, 1, B, 1, BETA, C, 1 );
57 chkxer();
58 cblas_info = 1;
59 cblas_sgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
60 ALPHA, A, 1, B, 1, BETA, C, 1 );
61 chkxer();
62 cblas_info = 1;
63 cblas_sgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0,
64 ALPHA, A, 1, B, 1, BETA, C, 1 );
65 chkxer();
66 cblas_info = 2; RowMajorStrg = FALSE;
67 cblas_sgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0,
68 ALPHA, A, 1, B, 1, BETA, C, 1 );
69 chkxer();
70 cblas_info = 2; RowMajorStrg = FALSE;
71 cblas_sgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0,
72 ALPHA, A, 1, B, 1, BETA, C, 1 );
73 chkxer();
74 cblas_info = 3; RowMajorStrg = FALSE;
75 cblas_sgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
76 ALPHA, A, 1, B, 1, BETA, C, 1 );
77 chkxer();
78 cblas_info = 3; RowMajorStrg = FALSE;
79 cblas_sgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0,
80 ALPHA, A, 1, B, 1, BETA, C, 1 );
81 chkxer();
82 cblas_info = 4; RowMajorStrg = FALSE;
83 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
84 ALPHA, A, 1, B, 1, BETA, C, 1 );
85 chkxer();
86 cblas_info = 4; RowMajorStrg = FALSE;
87 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
88 ALPHA, A, 1, B, 1, BETA, C, 1 );
89 chkxer();
90 cblas_info = 4; RowMajorStrg = FALSE;
91 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
92 ALPHA, A, 1, B, 1, BETA, C, 1 );
93 chkxer();
94 cblas_info = 4; RowMajorStrg = FALSE;
95 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
96 ALPHA, A, 1, B, 1, BETA, C, 1 );
97 chkxer();
98 cblas_info = 5; RowMajorStrg = FALSE;
99 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
100 ALPHA, A, 1, B, 1, BETA, C, 1 );
101 chkxer();
102 cblas_info = 5; RowMajorStrg = FALSE;
103 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
104 ALPHA, A, 1, B, 1, BETA, C, 1 );
105 chkxer();
106 cblas_info = 5; RowMajorStrg = FALSE;
107 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
108 ALPHA, A, 1, B, 1, BETA, C, 1 );
109 chkxer();
110 cblas_info = 5; RowMajorStrg = FALSE;
111 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
112 ALPHA, A, 1, B, 1, BETA, C, 1 );
113 chkxer();
114 cblas_info = 6; RowMajorStrg = FALSE;
115 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
116 ALPHA, A, 1, B, 1, BETA, C, 1 );
117 chkxer();
118 cblas_info = 6; RowMajorStrg = FALSE;
119 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
120 ALPHA, A, 1, B, 1, BETA, C, 1 );
121 chkxer();
122 cblas_info = 6; RowMajorStrg = FALSE;
123 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
124 ALPHA, A, 1, B, 1, BETA, C, 1 );
125 chkxer();
126 cblas_info = 6; RowMajorStrg = FALSE;
127 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
128 ALPHA, A, 1, B, 1, BETA, C, 1 );
129 chkxer();
130 cblas_info = 9; RowMajorStrg = FALSE;
131 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
132 ALPHA, A, 1, B, 1, BETA, C, 2 );
133 chkxer();
134 cblas_info = 9; RowMajorStrg = FALSE;
135 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
136 ALPHA, A, 1, B, 1, BETA, C, 2 );
137 chkxer();
138 cblas_info = 9; RowMajorStrg = FALSE;
139 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
140 ALPHA, A, 1, B, 2, BETA, C, 1 );
141 chkxer();
142 cblas_info = 9; RowMajorStrg = FALSE;
143 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2,
144 ALPHA, A, 1, B, 1, BETA, C, 1 );
145 chkxer();
146 cblas_info = 11; RowMajorStrg = FALSE;
147 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
148 ALPHA, A, 1, B, 1, BETA, C, 1 );
149 chkxer();
150 cblas_info = 11; RowMajorStrg = FALSE;
151 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
152 ALPHA, A, 2, B, 1, BETA, C, 1 );
153 chkxer();
154 cblas_info = 11; RowMajorStrg = FALSE;
155 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
156 ALPHA, A, 1, B, 1, BETA, C, 1 );
157 chkxer();
158 cblas_info = 11; RowMajorStrg = FALSE;
159 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0,
160 ALPHA, A, 1, B, 1, BETA, C, 1 );
161 chkxer();
162 cblas_info = 14; RowMajorStrg = FALSE;
163 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
164 ALPHA, A, 2, B, 1, BETA, C, 1 );
165 chkxer();
166 cblas_info = 14; RowMajorStrg = FALSE;
167 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
168 ALPHA, A, 2, B, 1, BETA, C, 1 );
169 chkxer();
170 cblas_info = 14; RowMajorStrg = FALSE;
171 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
172 ALPHA, A, 1, B, 1, BETA, C, 1 );
173 chkxer();
174 cblas_info = 14; RowMajorStrg = FALSE;
175 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0,
176 ALPHA, A, 1, B, 1, BETA, C, 1 );
177 chkxer();
178
179 cblas_info = 4; RowMajorStrg = TRUE;
180 cblas_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
273 ALPHA, A, 1, B, 1, BETA, C, 1 );
274 chkxer();
275
276 } else if (strncmp( sf,"cblas_ssymm" ,11)==0) {
277 cblas_rout = "cblas_ssymm" ;
278
279 cblas_info = 1;
280 cblas_ssymm( INVALID, CblasRight, CblasLower, 0, 0,
281 ALPHA, A, 1, B, 1, BETA, C, 1 );
282 chkxer();
283 cblas_info = 2; RowMajorStrg = FALSE;
284 cblas_ssymm( CblasColMajor, INVALID, CblasUpper, 0, 0,
285 ALPHA, A, 1, B, 1, BETA, C, 1 );
286 chkxer();
287 cblas_info = 3; RowMajorStrg = FALSE;
288 cblas_ssymm( CblasColMajor, CblasLeft, INVALID, 0, 0,
289 ALPHA, A, 1, B, 1, BETA, C, 1 );
290 chkxer();
291 cblas_info = 4; RowMajorStrg = FALSE;
292 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0,
293 ALPHA, A, 1, B, 1, BETA, C, 1 );
294 chkxer();
295 cblas_info = 4; RowMajorStrg = FALSE;
296 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0,
297 ALPHA, A, 1, B, 1, BETA, C, 1 );
298 chkxer();
299 cblas_info = 4; RowMajorStrg = FALSE;
300 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0,
301 ALPHA, A, 1, B, 1, BETA, C, 1 );
302 chkxer();
303 cblas_info = 4; RowMajorStrg = FALSE;
304 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0,
305 ALPHA, A, 1, B, 1, BETA, C, 1 );
306 chkxer();
307 cblas_info = 5; RowMajorStrg = FALSE;
308 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID,
309 ALPHA, A, 1, B, 1, BETA, C, 1 );
310 chkxer();
311 cblas_info = 5; RowMajorStrg = FALSE;
312 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID,
313 ALPHA, A, 1, B, 1, BETA, C, 1 );
314 chkxer();
315 cblas_info = 5; RowMajorStrg = FALSE;
316 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID,
317 ALPHA, A, 1, B, 1, BETA, C, 1 );
318 chkxer();
319 cblas_info = 5; RowMajorStrg = FALSE;
320 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID,
321 ALPHA, A, 1, B, 1, BETA, C, 1 );
322 chkxer();
323 cblas_info = 8; RowMajorStrg = FALSE;
324 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
325 ALPHA, A, 1, B, 2, BETA, C, 2 );
326 chkxer();
327 cblas_info = 8; RowMajorStrg = FALSE;
328 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 0, 2,
329 ALPHA, A, 1, B, 1, BETA, C, 1 );
330 chkxer();
331 cblas_info = 8; RowMajorStrg = FALSE;
332 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
333 ALPHA, A, 1, B, 2, BETA, C, 2 );
334 chkxer();
335 cblas_info = 8; RowMajorStrg = FALSE;
336 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 0, 2,
337 ALPHA, A, 1, B, 1, BETA, C, 1 );
338 chkxer();
339 cblas_info = 10; RowMajorStrg = FALSE;
340 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
341 ALPHA, A, 2, B, 1, BETA, C, 1 );
342 chkxer();
343 cblas_info = 10; RowMajorStrg = FALSE;
344 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
345 ALPHA, A, 1, B, 1, BETA, C, 1 );
346 chkxer();
347 cblas_info = 10; RowMajorStrg = FALSE;
348 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
349 ALPHA, A, 2, B, 1, BETA, C, 1 );
350 chkxer();
351 cblas_info = 10; RowMajorStrg = FALSE;
352 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
353 ALPHA, A, 1, B, 1, BETA, C, 1 );
354 chkxer();
355 cblas_info = 13; RowMajorStrg = FALSE;
356 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
357 ALPHA, A, 2, B, 2, BETA, C, 1 );
358 chkxer();
359 cblas_info = 13; RowMajorStrg = FALSE;
360 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
361 ALPHA, A, 1, B, 2, BETA, C, 1 );
362 chkxer();
363 cblas_info = 13; RowMajorStrg = FALSE;
364 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
365 ALPHA, A, 2, B, 2, BETA, C, 1 );
366 chkxer();
367 cblas_info = 13; RowMajorStrg = FALSE;
368 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
369 ALPHA, A, 1, B, 2, BETA, C, 1 );
370 chkxer();
371
372 cblas_info = 4; RowMajorStrg = TRUE;
373 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
374 ALPHA, A, 1, B, 1, BETA, C, 1 );
375 chkxer();
376 cblas_info = 4; RowMajorStrg = TRUE;
377 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0,
378 ALPHA, A, 1, B, 1, BETA, C, 1 );
379 chkxer();
380 cblas_info = 4; RowMajorStrg = TRUE;
381 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0,
382 ALPHA, A, 1, B, 1, BETA, C, 1 );
383 chkxer();
384 cblas_info = 4; RowMajorStrg = TRUE;
385 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0,
386 ALPHA, A, 1, B, 1, BETA, C, 1 );
387 chkxer();
388 cblas_info = 5; RowMajorStrg = TRUE;
389 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID,
390 ALPHA, A, 1, B, 1, BETA, C, 1 );
391 chkxer();
392 cblas_info = 5; RowMajorStrg = TRUE;
393 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID,
394 ALPHA, A, 1, B, 1, BETA, C, 1 );
395 chkxer();
396 cblas_info = 5; RowMajorStrg = TRUE;
397 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID,
398 ALPHA, A, 1, B, 1, BETA, C, 1 );
399 chkxer();
400 cblas_info = 5; RowMajorStrg = TRUE;
401 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID,
402 ALPHA, A, 1, B, 1, BETA, C, 1 );
403 chkxer();
404 cblas_info = 8; RowMajorStrg = TRUE;
405 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0,
406 ALPHA, A, 1, B, 2, BETA, C, 2 );
407 chkxer();
408 cblas_info = 8; RowMajorStrg = TRUE;
409 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
410 ALPHA, A, 1, B, 1, BETA, C, 1 );
411 chkxer();
412 cblas_info = 8; RowMajorStrg = TRUE;
413 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0,
414 ALPHA, A, 1, B, 2, BETA, C, 2 );
415 chkxer();
416 cblas_info = 8; RowMajorStrg = TRUE;
417 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
418 ALPHA, A, 1, B, 1, BETA, C, 1 );
419 chkxer();
420 cblas_info = 10; RowMajorStrg = TRUE;
421 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
422 ALPHA, A, 2, B, 1, BETA, C, 1 );
423 chkxer();
424 cblas_info = 10; RowMajorStrg = TRUE;
425 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
426 ALPHA, A, 2, B, 1, BETA, C, 1 );
427 chkxer();
428 cblas_info = 10; RowMajorStrg = TRUE;
429 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
430 ALPHA, A, 2, B, 1, BETA, C, 1 );
431 chkxer();
432 cblas_info = 10; RowMajorStrg = TRUE;
433 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
434 ALPHA, A, 2, B, 1, BETA, C, 1 );
435 chkxer();
436 cblas_info = 13; RowMajorStrg = TRUE;
437 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
438 ALPHA, A, 1, B, 2, BETA, C, 1 );
439 chkxer();
440 cblas_info = 13; RowMajorStrg = TRUE;
441 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
442 ALPHA, A, 2, B, 2, BETA, C, 1 );
443 chkxer();
444 cblas_info = 13; RowMajorStrg = TRUE;
445 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
446 ALPHA, A, 1, B, 2, BETA, C, 1 );
447 chkxer();
448 cblas_info = 13; RowMajorStrg = TRUE;
449 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
450 ALPHA, A, 2, B, 2, BETA, C, 1 );
451 chkxer();
452
453 } else if (strncmp( sf,"cblas_strmm" ,11)==0) {
454 cblas_rout = "cblas_strmm" ;
455
456 cblas_info = 1;
457 cblas_strmm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
458 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
459 chkxer();
460 cblas_info = 2; RowMajorStrg = FALSE;
461 cblas_strmm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
462 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
463 chkxer();
464 cblas_info = 3; RowMajorStrg = FALSE;
465 cblas_strmm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
466 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
467 chkxer();
468 cblas_info = 4; RowMajorStrg = FALSE;
469 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
470 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
471 chkxer();
472 cblas_info = 5; RowMajorStrg = FALSE;
473 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
474 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
475 chkxer();
476 cblas_info = 6; RowMajorStrg = FALSE;
477 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
478 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
479 chkxer();
480 cblas_info = 6; RowMajorStrg = FALSE;
481 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
482 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
483 chkxer();
484 cblas_info = 6; RowMajorStrg = FALSE;
485 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
486 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
487 chkxer();
488 cblas_info = 6; RowMajorStrg = FALSE;
489 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
490 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
491 chkxer();
492 cblas_info = 6; RowMajorStrg = FALSE;
493 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
494 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
495 chkxer();
496 cblas_info = 6; RowMajorStrg = FALSE;
497 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
498 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
499 chkxer();
500 cblas_info = 6; RowMajorStrg = FALSE;
501 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
502 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
503 chkxer();
504 cblas_info = 6; RowMajorStrg = FALSE;
505 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
506 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
507 chkxer();
508 cblas_info = 7; RowMajorStrg = FALSE;
509 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
510 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
511 chkxer();
512 cblas_info = 7; RowMajorStrg = FALSE;
513 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
514 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
515 chkxer();
516 cblas_info = 7; RowMajorStrg = FALSE;
517 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
518 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
519 chkxer();
520 cblas_info = 7; RowMajorStrg = FALSE;
521 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
522 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
523 chkxer();
524 cblas_info = 7; RowMajorStrg = FALSE;
525 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
526 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
527 chkxer();
528 cblas_info = 7; RowMajorStrg = FALSE;
529 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
530 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
531 chkxer();
532 cblas_info = 7; RowMajorStrg = FALSE;
533 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
534 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
535 chkxer();
536 cblas_info = 7; RowMajorStrg = FALSE;
537 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
538 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
539 chkxer();
540 cblas_info = 10; RowMajorStrg = FALSE;
541 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
542 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
543 chkxer();
544 cblas_info = 10; RowMajorStrg = FALSE;
545 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
546 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
547 chkxer();
548 cblas_info = 10; RowMajorStrg = FALSE;
549 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
550 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
551 chkxer();
552 cblas_info = 10; RowMajorStrg = FALSE;
553 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
554 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
555 chkxer();
556 cblas_info = 10; RowMajorStrg = FALSE;
557 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
558 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
559 chkxer();
560 cblas_info = 10; RowMajorStrg = FALSE;
561 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
562 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
563 chkxer();
564 cblas_info = 10; RowMajorStrg = FALSE;
565 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
566 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
567 chkxer();
568 cblas_info = 10; RowMajorStrg = FALSE;
569 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
570 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
571 chkxer();
572 cblas_info = 12; RowMajorStrg = FALSE;
573 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
574 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
575 chkxer();
576 cblas_info = 12; RowMajorStrg = FALSE;
577 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
578 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
579 chkxer();
580 cblas_info = 12; RowMajorStrg = FALSE;
581 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
582 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
583 chkxer();
584 cblas_info = 12; RowMajorStrg = FALSE;
585 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
586 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
587 chkxer();
588 cblas_info = 12; RowMajorStrg = FALSE;
589 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
590 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
591 chkxer();
592 cblas_info = 12; RowMajorStrg = FALSE;
593 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
594 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
595 chkxer();
596 cblas_info = 12; RowMajorStrg = FALSE;
597 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
598 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
599 chkxer();
600 cblas_info = 12; RowMajorStrg = FALSE;
601 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
602 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
603 chkxer();
604
605 cblas_info = 6; RowMajorStrg = TRUE;
606 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
607 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
608 chkxer();
609 cblas_info = 6; RowMajorStrg = TRUE;
610 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
611 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
612 chkxer();
613 cblas_info = 6; RowMajorStrg = TRUE;
614 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
615 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
616 chkxer();
617 cblas_info = 6; RowMajorStrg = TRUE;
618 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
619 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
620 chkxer();
621 cblas_info = 6; RowMajorStrg = TRUE;
622 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
623 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
624 chkxer();
625 cblas_info = 6; RowMajorStrg = TRUE;
626 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
627 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
628 chkxer();
629 cblas_info = 6; RowMajorStrg = TRUE;
630 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
631 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
632 chkxer();
633 cblas_info = 6; RowMajorStrg = TRUE;
634 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
635 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
636 chkxer();
637 cblas_info = 7; RowMajorStrg = TRUE;
638 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
639 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
640 chkxer();
641 cblas_info = 7; RowMajorStrg = TRUE;
642 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
643 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
644 chkxer();
645 cblas_info = 7; RowMajorStrg = TRUE;
646 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
647 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
648 chkxer();
649 cblas_info = 7; RowMajorStrg = TRUE;
650 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
651 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
652 chkxer();
653 cblas_info = 7; RowMajorStrg = TRUE;
654 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
655 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
656 chkxer();
657 cblas_info = 7; RowMajorStrg = TRUE;
658 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
659 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
660 chkxer();
661 cblas_info = 7; RowMajorStrg = TRUE;
662 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
663 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
664 chkxer();
665 cblas_info = 7; RowMajorStrg = TRUE;
666 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
667 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
668 chkxer();
669 cblas_info = 10; RowMajorStrg = TRUE;
670 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
671 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
672 chkxer();
673 cblas_info = 10; RowMajorStrg = TRUE;
674 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
675 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
676 chkxer();
677 cblas_info = 10; RowMajorStrg = TRUE;
678 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
679 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
680 chkxer();
681 cblas_info = 10; RowMajorStrg = TRUE;
682 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
683 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
684 chkxer();
685 cblas_info = 10; RowMajorStrg = TRUE;
686 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
687 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
688 chkxer();
689 cblas_info = 10; RowMajorStrg = TRUE;
690 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
691 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
692 chkxer();
693 cblas_info = 10; RowMajorStrg = TRUE;
694 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
695 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
696 chkxer();
697 cblas_info = 10; RowMajorStrg = TRUE;
698 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
699 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
700 chkxer();
701 cblas_info = 12; RowMajorStrg = TRUE;
702 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
703 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
704 chkxer();
705 cblas_info = 12; RowMajorStrg = TRUE;
706 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
707 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
708 chkxer();
709 cblas_info = 12; RowMajorStrg = TRUE;
710 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
711 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
712 chkxer();
713 cblas_info = 12; RowMajorStrg = TRUE;
714 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
715 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
716 chkxer();
717 cblas_info = 12; RowMajorStrg = TRUE;
718 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
719 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
720 chkxer();
721 cblas_info = 12; RowMajorStrg = TRUE;
722 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
723 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
724 chkxer();
725 cblas_info = 12; RowMajorStrg = TRUE;
726 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
727 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
728 chkxer();
729 cblas_info = 12; RowMajorStrg = TRUE;
730 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
731 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
732 chkxer();
733
734 } else if (strncmp( sf,"cblas_strsm" ,11)==0) {
735 cblas_rout = "cblas_strsm" ;
736
737 cblas_info = 1;
738 cblas_strsm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
739 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
740 chkxer();
741 cblas_info = 2; RowMajorStrg = FALSE;
742 cblas_strsm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
743 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
744 chkxer();
745 cblas_info = 3; RowMajorStrg = FALSE;
746 cblas_strsm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
747 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
748 chkxer();
749 cblas_info = 4; RowMajorStrg = FALSE;
750 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
751 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
752 chkxer();
753 cblas_info = 5; RowMajorStrg = FALSE;
754 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
755 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
756 chkxer();
757 cblas_info = 6; RowMajorStrg = FALSE;
758 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
759 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
760 chkxer();
761 cblas_info = 6; RowMajorStrg = FALSE;
762 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
763 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
764 chkxer();
765 cblas_info = 6; RowMajorStrg = FALSE;
766 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
767 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
768 chkxer();
769 cblas_info = 6; RowMajorStrg = FALSE;
770 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
771 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
772 chkxer();
773 cblas_info = 6; RowMajorStrg = FALSE;
774 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
775 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
776 chkxer();
777 cblas_info = 6; RowMajorStrg = FALSE;
778 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
779 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
780 chkxer();
781 cblas_info = 6; RowMajorStrg = FALSE;
782 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
783 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
784 chkxer();
785 cblas_info = 6; RowMajorStrg = FALSE;
786 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
787 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
788 chkxer();
789 cblas_info = 7; RowMajorStrg = FALSE;
790 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
791 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
792 chkxer();
793 cblas_info = 7; RowMajorStrg = FALSE;
794 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
795 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
796 chkxer();
797 cblas_info = 7; RowMajorStrg = FALSE;
798 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
799 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
800 chkxer();
801 cblas_info = 7; RowMajorStrg = FALSE;
802 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
803 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
804 chkxer();
805 cblas_info = 7; RowMajorStrg = FALSE;
806 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
807 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
808 chkxer();
809 cblas_info = 7; RowMajorStrg = FALSE;
810 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
811 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
812 chkxer();
813 cblas_info = 7; RowMajorStrg = FALSE;
814 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
815 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
816 chkxer();
817 cblas_info = 7; RowMajorStrg = FALSE;
818 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
819 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
820 chkxer();
821 cblas_info = 10; RowMajorStrg = FALSE;
822 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
823 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
824 chkxer();
825 cblas_info = 10; RowMajorStrg = FALSE;
826 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
827 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
828 chkxer();
829 cblas_info = 10; RowMajorStrg = FALSE;
830 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
831 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
832 chkxer();
833 cblas_info = 10; RowMajorStrg = FALSE;
834 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
835 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
836 chkxer();
837 cblas_info = 10; RowMajorStrg = FALSE;
838 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
839 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
840 chkxer();
841 cblas_info = 10; RowMajorStrg = FALSE;
842 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
843 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
844 chkxer();
845 cblas_info = 10; RowMajorStrg = FALSE;
846 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
847 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
848 chkxer();
849 cblas_info = 10; RowMajorStrg = FALSE;
850 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
851 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
852 chkxer();
853 cblas_info = 12; RowMajorStrg = FALSE;
854 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
855 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
856 chkxer();
857 cblas_info = 12; RowMajorStrg = FALSE;
858 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
859 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
860 chkxer();
861 cblas_info = 12; RowMajorStrg = FALSE;
862 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
863 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
864 chkxer();
865 cblas_info = 12; RowMajorStrg = FALSE;
866 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
867 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
868 chkxer();
869 cblas_info = 12; RowMajorStrg = FALSE;
870 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
871 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
872 chkxer();
873 cblas_info = 12; RowMajorStrg = FALSE;
874 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
875 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
876 chkxer();
877 cblas_info = 12; RowMajorStrg = FALSE;
878 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
879 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
880 chkxer();
881 cblas_info = 12; RowMajorStrg = FALSE;
882 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
883 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
884 chkxer();
885
886 cblas_info = 6; RowMajorStrg = TRUE;
887 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
888 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
889 chkxer();
890 cblas_info = 6; RowMajorStrg = TRUE;
891 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
892 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
893 chkxer();
894 cblas_info = 6; RowMajorStrg = TRUE;
895 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
896 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
897 chkxer();
898 cblas_info = 6; RowMajorStrg = TRUE;
899 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
900 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
901 chkxer();
902 cblas_info = 6; RowMajorStrg = TRUE;
903 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
904 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
905 chkxer();
906 cblas_info = 6; RowMajorStrg = TRUE;
907 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
908 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
909 chkxer();
910 cblas_info = 6; RowMajorStrg = TRUE;
911 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
912 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
913 chkxer();
914 cblas_info = 6; RowMajorStrg = TRUE;
915 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
916 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
917 chkxer();
918 cblas_info = 7; RowMajorStrg = TRUE;
919 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
920 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
921 chkxer();
922 cblas_info = 7; RowMajorStrg = TRUE;
923 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
924 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
925 chkxer();
926 cblas_info = 7; RowMajorStrg = TRUE;
927 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
928 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
929 chkxer();
930 cblas_info = 7; RowMajorStrg = TRUE;
931 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
932 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
933 chkxer();
934 cblas_info = 7; RowMajorStrg = TRUE;
935 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
936 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
937 chkxer();
938 cblas_info = 7; RowMajorStrg = TRUE;
939 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
940 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
941 chkxer();
942 cblas_info = 7; RowMajorStrg = TRUE;
943 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
944 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
945 chkxer();
946 cblas_info = 7; RowMajorStrg = TRUE;
947 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
948 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
949 chkxer();
950 cblas_info = 10; RowMajorStrg = TRUE;
951 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
952 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
953 chkxer();
954 cblas_info = 10; RowMajorStrg = TRUE;
955 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
956 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
957 chkxer();
958 cblas_info = 10; RowMajorStrg = TRUE;
959 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
960 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
961 chkxer();
962 cblas_info = 10; RowMajorStrg = TRUE;
963 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
964 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
965 chkxer();
966 cblas_info = 10; RowMajorStrg = TRUE;
967 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
968 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
969 chkxer();
970 cblas_info = 10; RowMajorStrg = TRUE;
971 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
972 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
973 chkxer();
974 cblas_info = 10; RowMajorStrg = TRUE;
975 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
976 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
977 chkxer();
978 cblas_info = 10; RowMajorStrg = TRUE;
979 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
980 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
981 chkxer();
982 cblas_info = 12; RowMajorStrg = TRUE;
983 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
984 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
985 chkxer();
986 cblas_info = 12; RowMajorStrg = TRUE;
987 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
988 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
989 chkxer();
990 cblas_info = 12; RowMajorStrg = TRUE;
991 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
992 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
993 chkxer();
994 cblas_info = 12; RowMajorStrg = TRUE;
995 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
996 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
997 chkxer();
998 cblas_info = 12; RowMajorStrg = TRUE;
999 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
1000 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1001 chkxer();
1002 cblas_info = 12; RowMajorStrg = TRUE;
1003 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
1004 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1005 chkxer();
1006 cblas_info = 12; RowMajorStrg = TRUE;
1007 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
1008 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1009 chkxer();
1010 cblas_info = 12; RowMajorStrg = TRUE;
1011 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
1012 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1013 chkxer();
1014
1015 } else if (strncmp( sf,"cblas_ssyrk" ,11)==0) {
1016 cblas_rout = "cblas_ssyrk" ;
1017
1018 cblas_info = 1;
1019 cblas_ssyrk( INVALID, CblasUpper, CblasNoTrans,
1020 0, 0, ALPHA, A, 1, BETA, C, 1 );
1021 chkxer();
1022 cblas_info = 2; RowMajorStrg = FALSE;
1023 cblas_ssyrk( CblasColMajor, INVALID, CblasNoTrans,
1024 0, 0, ALPHA, A, 1, BETA, C, 1 );
1025 chkxer();
1026 cblas_info = 3; RowMajorStrg = FALSE;
1027 cblas_ssyrk( CblasColMajor, CblasUpper, INVALID,
1028 0, 0, ALPHA, A, 1, BETA, C, 1 );
1029 chkxer();
1030 cblas_info = 4; RowMajorStrg = FALSE;
1031 cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1032 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1033 chkxer();
1034 cblas_info = 4; RowMajorStrg = FALSE;
1035 cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans,
1036 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1037 chkxer();
1038 cblas_info = 4; RowMajorStrg = FALSE;
1039 cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans,
1040 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1041 chkxer();
1042 cblas_info = 4; RowMajorStrg = FALSE;
1043 cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans,
1044 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1045 chkxer();
1046 cblas_info = 5; RowMajorStrg = FALSE;
1047 cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1048 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1049 chkxer();
1050 cblas_info = 5; RowMajorStrg = FALSE;
1051 cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans,
1052 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1053 chkxer();
1054 cblas_info = 5; RowMajorStrg = FALSE;
1055 cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans,
1056 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1057 chkxer();
1058 cblas_info = 5; RowMajorStrg = FALSE;
1059 cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans,
1060 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1061 chkxer();
1062 cblas_info = 8; RowMajorStrg = TRUE;
1063 cblas_ssyrk( CblasRowMajor, CblasUpper, CblasNoTrans,
1064 0, 2, ALPHA, A, 1, BETA, C, 2 );
1065 chkxer();
1066 cblas_info = 8; RowMajorStrg = TRUE;
1067 cblas_ssyrk( CblasRowMajor, CblasUpper, CblasTrans,
1068 2, 0, ALPHA, A, 1, BETA, C, 1 );
1069 chkxer();
1070 cblas_info = 8; RowMajorStrg = TRUE;
1071 cblas_ssyrk( CblasRowMajor, CblasLower, CblasNoTrans,
1072 0, 2, ALPHA, A, 1, BETA, C, 2 );
1073 chkxer();
1074 cblas_info = 8; RowMajorStrg = TRUE;
1075 cblas_ssyrk( CblasRowMajor, CblasLower, CblasTrans,
1076 2, 0, ALPHA, A, 1, BETA, C, 1 );
1077 chkxer();
1078 cblas_info = 8; RowMajorStrg = FALSE;
1079 cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1080 2, 0, ALPHA, A, 1, BETA, C, 2 );
1081 chkxer();
1082 cblas_info = 8; RowMajorStrg = FALSE;
1083 cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans,
1084 0, 2, ALPHA, A, 1, BETA, C, 1 );
1085 chkxer();
1086 cblas_info = 8; RowMajorStrg = FALSE;
1087 cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans,
1088 2, 0, ALPHA, A, 1, BETA, C, 2 );
1089 chkxer();
1090 cblas_info = 8; RowMajorStrg = FALSE;
1091 cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans,
1092 0, 2, ALPHA, A, 1, BETA, C, 1 );
1093 chkxer();
1094 cblas_info = 11; RowMajorStrg = TRUE;
1095 cblas_ssyrk( CblasRowMajor, CblasUpper, CblasNoTrans,
1096 2, 0, ALPHA, A, 1, BETA, C, 1 );
1097 chkxer();
1098 cblas_info = 11; RowMajorStrg = TRUE;
1099 cblas_ssyrk( CblasRowMajor, CblasUpper, CblasTrans,
1100 2, 0, ALPHA, A, 2, BETA, C, 1 );
1101 chkxer();
1102 cblas_info = 11; RowMajorStrg = TRUE;
1103 cblas_ssyrk( CblasRowMajor, CblasLower, CblasNoTrans,
1104 2, 0, ALPHA, A, 1, BETA, C, 1 );
1105 chkxer();
1106 cblas_info = 11; RowMajorStrg = TRUE;
1107 cblas_ssyrk( CblasRowMajor, CblasLower, CblasTrans,
1108 2, 0, ALPHA, A, 2, BETA, C, 1 );
1109 chkxer();
1110 cblas_info = 11; RowMajorStrg = FALSE;
1111 cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1112 2, 0, ALPHA, A, 2, BETA, C, 1 );
1113 chkxer();
1114 cblas_info = 11; RowMajorStrg = FALSE;
1115 cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans,
1116 2, 0, ALPHA, A, 1, BETA, C, 1 );
1117 chkxer();
1118 cblas_info = 11; RowMajorStrg = FALSE;
1119 cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans,
1120 2, 0, ALPHA, A, 2, BETA, C, 1 );
1121 chkxer();
1122 cblas_info = 11; RowMajorStrg = FALSE;
1123 cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans,
1124 2, 0, ALPHA, A, 1, BETA, C, 1 );
1125 chkxer();
1126
1127 } else if (strncmp( sf,"cblas_ssyr2k" ,12)==0) {
1128 cblas_rout = "cblas_ssyr2k" ;
1129
1130 cblas_info = 1;
1131 cblas_ssyr2k( INVALID, CblasUpper, CblasNoTrans,
1132 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1133 chkxer();
1134 cblas_info = 2; RowMajorStrg = FALSE;
1135 cblas_ssyr2k( CblasColMajor, INVALID, CblasNoTrans,
1136 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1137 chkxer();
1138 cblas_info = 3; RowMajorStrg = FALSE;
1139 cblas_ssyr2k( CblasColMajor, CblasUpper, INVALID,
1140 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1141 chkxer();
1142 cblas_info = 4; RowMajorStrg = FALSE;
1143 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1144 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1145 chkxer();
1146 cblas_info = 4; RowMajorStrg = FALSE;
1147 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1148 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1149 chkxer();
1150 cblas_info = 4; RowMajorStrg = FALSE;
1151 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1152 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1153 chkxer();
1154 cblas_info = 4; RowMajorStrg = FALSE;
1155 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1156 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1157 chkxer();
1158 cblas_info = 5; RowMajorStrg = FALSE;
1159 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1160 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1161 chkxer();
1162 cblas_info = 5; RowMajorStrg = FALSE;
1163 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1164 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1165 chkxer();
1166 cblas_info = 5; RowMajorStrg = FALSE;
1167 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1168 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1169 chkxer();
1170 cblas_info = 5; RowMajorStrg = FALSE;
1171 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1172 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1173 chkxer();
1174 cblas_info = 8; RowMajorStrg = TRUE;
1175 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
1176 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1177 chkxer();
1178 cblas_info = 8; RowMajorStrg = TRUE;
1179 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasTrans,
1180 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1181 chkxer();
1182 cblas_info = 8; RowMajorStrg = TRUE;
1183 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
1184 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1185 chkxer();
1186 cblas_info = 8; RowMajorStrg = TRUE;
1187 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasTrans,
1188 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1189 chkxer();
1190 cblas_info = 8; RowMajorStrg = FALSE;
1191 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1192 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1193 chkxer();
1194 cblas_info = 8; RowMajorStrg = FALSE;
1195 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1196 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1197 chkxer();
1198 cblas_info = 8; RowMajorStrg = FALSE;
1199 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1200 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1201 chkxer();
1202 cblas_info = 8; RowMajorStrg = FALSE;
1203 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1204 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1205 chkxer();
1206 cblas_info = 10; RowMajorStrg = TRUE;
1207 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
1208 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1209 chkxer();
1210 cblas_info = 10; RowMajorStrg = TRUE;
1211 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasTrans,
1212 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1213 chkxer();
1214 cblas_info = 10; RowMajorStrg = TRUE;
1215 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
1216 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1217 chkxer();
1218 cblas_info = 10; RowMajorStrg = TRUE;
1219 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasTrans,
1220 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1221 chkxer();
1222 cblas_info = 10; RowMajorStrg = FALSE;
1223 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1224 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1225 chkxer();
1226 cblas_info = 10; RowMajorStrg = FALSE;
1227 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1228 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1229 chkxer();
1230 cblas_info = 10; RowMajorStrg = FALSE;
1231 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1232 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1233 chkxer();
1234 cblas_info = 10; RowMajorStrg = FALSE;
1235 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1236 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1237 chkxer();
1238 cblas_info = 13; RowMajorStrg = TRUE;
1239 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
1240 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1241 chkxer();
1242 cblas_info = 13; RowMajorStrg = TRUE;
1243 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasTrans,
1244 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1245 chkxer();
1246 cblas_info = 13; RowMajorStrg = TRUE;
1247 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
1248 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1249 chkxer();
1250 cblas_info = 13; RowMajorStrg = TRUE;
1251 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasTrans,
1252 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1253 chkxer();
1254 cblas_info = 13; RowMajorStrg = FALSE;
1255 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1256 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1257 chkxer();
1258 cblas_info = 13; RowMajorStrg = FALSE;
1259 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1260 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1261 chkxer();
1262 cblas_info = 13; RowMajorStrg = FALSE;
1263 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1264 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1265 chkxer();
1266 cblas_info = 13; RowMajorStrg = FALSE;
1267 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1268 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1269 chkxer();
1270 }
1271 if (cblas_ok == TRUE )
1272 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1273 else
1274 printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
1275}
cblas_lerr
CBLAS_INT cblas_lerr
Definition c_s3chke.c:6
chkxer
void chkxer(void)
Definition c_s3chke.c:16
cblas_ok
CBLAS_INT cblas_ok
Definition c_s3chke.c:6
cblas_info
CBLAS_INT cblas_info
Definition c_s3chke.c:6
cblas_rout
char * cblas_rout
Definition c_s3chke.c:8
link_xerbla
CBLAS_INT link_xerbla
Definition c_s3chke.c:7
cblas_ssyrk
void cblas_ssyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float beta, float *C, const CBLAS_INT ldc)
Definition cblas_ssyrk.c:12
cblas_sgemm
void cblas_sgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
Definition cblas_sgemm.c:12
cblas_strsm
void cblas_strsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, float *B, const CBLAS_INT ldb)
Definition cblas_strsm.c:12
CblasLower
@ CblasLower
Definition cblas.h:41
CblasUpper
@ CblasUpper
Definition cblas.h:41
cblas_xerbla
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
Definition cblas_xerbla.c:12
CblasNoTrans
@ CblasNoTrans
Definition cblas.h:40
CblasTrans
@ CblasTrans
Definition cblas.h:40
CblasRight
@ CblasRight
Definition cblas.h:43
CblasLeft
@ CblasLeft
Definition cblas.h:43
cblas_ssymm
void cblas_ssymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
Definition cblas_ssymm.c:12
CblasColMajor
@ CblasColMajor
Definition cblas.h:39
CblasRowMajor
@ CblasRowMajor
Definition cblas.h:39
cblas_strmm
void cblas_strmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, float *B, const CBLAS_INT ldb)
Definition cblas_strmm.c:12
CblasNonUnit
@ CblasNonUnit
Definition cblas.h:42
cblas_ssyr2k
void cblas_ssyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
Definition cblas_ssyr2k.c:12
CBLAS_INT
#define CBLAS_INT
Definition cblas.h:24
INVALID
#define INVALID
Definition cblas_example2.c:8
F77_xerbla
#define F77_xerbla(...)
Definition cblas_f77.h:562
RowMajorStrg
int RowMajorStrg
Definition cblas_globals.c:2
TRUE
#define TRUE
Definition cblas_test.h:10
FALSE
#define FALSE
Definition cblas_test.h:14
F77_s3chke
#define F77_s3chke
Definition cblas_test.h:150
PASSED
#define PASSED
Definition cblas_test.h:11
cblas_test.h