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