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