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