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