LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
c_s3chke.c
Go to the documentation of this file.
1#include <stdio.h>
2#include <string.h>
3#include "cblas.h"
4#include "cblas_test.h"
5
6CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
7CBLAS_INT link_xerbla=TRUE;
8char *cblas_rout;
9
10#ifdef F77_Char
11void F77_xerbla(F77_Char F77_srname, void *vinfo
12#else
13void F77_xerbla(char *srname, void *vinfo
14#endif
15#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_s3chke(char *rout
32#ifdef BLAS_FORTRAN_STRLEN_END
33 , FORTRAN_STRLEN rout_len
34#endif
35) {
36 char *sf = ( rout ) ;
37 float 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_sgemmtr" ,13)==0) {
57 cblas_rout = "cblas_sgemmtr" ;
58
59 cblas_info = 1;
60 cblas_sgemmtr( INVALID, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 0,
61 ALPHA, A, 1, B, 1, BETA, C, 1 );
62 chkxer();
63 cblas_info = 1;
64 cblas_sgemmtr( INVALID, CblasUpper, CblasNoTrans, CblasTrans, 0, 0,
65 ALPHA, A, 1, B, 1, BETA, C, 1 );
66 chkxer();
67 cblas_info = 1;
68 cblas_sgemmtr( INVALID, CblasUpper,CblasTrans, CblasNoTrans, 0, 0,
69 ALPHA, A, 1, B, 1, BETA, C, 1 );
70 chkxer();
71 cblas_info = 1;
72 cblas_sgemmtr( INVALID, CblasUpper, CblasTrans, CblasTrans, 0, 0,
73 ALPHA, A, 1, B, 1, BETA, C, 1 );
74 chkxer();
75
76 cblas_info = 1;
77 cblas_sgemmtr( INVALID, CblasLower, CblasNoTrans, CblasNoTrans, 0, 0,
78 ALPHA, A, 1, B, 1, BETA, C, 1 );
79 chkxer();
80 cblas_info = 1;
81 cblas_sgemmtr( INVALID, CblasLower, CblasNoTrans, CblasTrans, 0, 0,
82 ALPHA, A, 1, B, 1, BETA, C, 1 );
83 chkxer();
84 cblas_info = 1;
85 cblas_sgemmtr( INVALID, CblasLower,CblasTrans, CblasNoTrans, 0, 0,
86 ALPHA, A, 1, B, 1, BETA, C, 1 );
87 chkxer();
88 cblas_info = 1;
89 cblas_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( 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_sgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
283 ALPHA, A, 2, B, 2, BETA, C, 1 );
284 chkxer();
285
286 } else if (strncmp( sf,"cblas_sgemm" ,11)==0) {
287 cblas_rout = "cblas_sgemm" ;
288 cblas_info = 1;
289 cblas_sgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
290 ALPHA, A, 1, B, 1, BETA, C, 1 );
291 chkxer();
292 cblas_info = 1;
293 cblas_sgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
294 ALPHA, A, 1, B, 1, BETA, C, 1 );
295 chkxer();
296 cblas_info = 1;
297 cblas_sgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
298 ALPHA, A, 1, B, 1, BETA, C, 1 );
299 chkxer();
300 cblas_info = 1;
301 cblas_sgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0,
302 ALPHA, A, 1, B, 1, BETA, C, 1 );
303 chkxer();
304 cblas_info = 2; RowMajorStrg = FALSE;
305 cblas_sgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0,
306 ALPHA, A, 1, B, 1, BETA, C, 1 );
307 chkxer();
308 cblas_info = 2; RowMajorStrg = FALSE;
309 cblas_sgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0,
310 ALPHA, A, 1, B, 1, BETA, C, 1 );
311 chkxer();
312 cblas_info = 3; RowMajorStrg = FALSE;
313 cblas_sgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
314 ALPHA, A, 1, B, 1, BETA, C, 1 );
315 chkxer();
316 cblas_info = 3; RowMajorStrg = FALSE;
317 cblas_sgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0,
318 ALPHA, A, 1, B, 1, BETA, C, 1 );
319 chkxer();
320 cblas_info = 4; RowMajorStrg = FALSE;
321 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
322 ALPHA, A, 1, B, 1, BETA, C, 1 );
323 chkxer();
324 cblas_info = 4; RowMajorStrg = FALSE;
325 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
326 ALPHA, A, 1, B, 1, BETA, C, 1 );
327 chkxer();
328 cblas_info = 4; RowMajorStrg = FALSE;
329 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
330 ALPHA, A, 1, B, 1, BETA, C, 1 );
331 chkxer();
332 cblas_info = 4; RowMajorStrg = FALSE;
333 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
334 ALPHA, A, 1, B, 1, BETA, C, 1 );
335 chkxer();
336 cblas_info = 5; RowMajorStrg = FALSE;
337 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
338 ALPHA, A, 1, B, 1, BETA, C, 1 );
339 chkxer();
340 cblas_info = 5; RowMajorStrg = FALSE;
341 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
342 ALPHA, A, 1, B, 1, BETA, C, 1 );
343 chkxer();
344 cblas_info = 5; RowMajorStrg = FALSE;
345 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
346 ALPHA, A, 1, B, 1, BETA, C, 1 );
347 chkxer();
348 cblas_info = 5; RowMajorStrg = FALSE;
349 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
350 ALPHA, A, 1, B, 1, BETA, C, 1 );
351 chkxer();
352 cblas_info = 6; RowMajorStrg = FALSE;
353 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
354 ALPHA, A, 1, B, 1, BETA, C, 1 );
355 chkxer();
356 cblas_info = 6; RowMajorStrg = FALSE;
357 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
358 ALPHA, A, 1, B, 1, BETA, C, 1 );
359 chkxer();
360 cblas_info = 6; RowMajorStrg = FALSE;
361 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
362 ALPHA, A, 1, B, 1, BETA, C, 1 );
363 chkxer();
364 cblas_info = 6; RowMajorStrg = FALSE;
365 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
366 ALPHA, A, 1, B, 1, BETA, C, 1 );
367 chkxer();
368 cblas_info = 9; RowMajorStrg = FALSE;
369 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
370 ALPHA, A, 1, B, 1, BETA, C, 2 );
371 chkxer();
372 cblas_info = 9; RowMajorStrg = FALSE;
373 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
374 ALPHA, A, 1, B, 1, BETA, C, 2 );
375 chkxer();
376 cblas_info = 9; RowMajorStrg = FALSE;
377 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
378 ALPHA, A, 1, B, 2, BETA, C, 1 );
379 chkxer();
380 cblas_info = 9; RowMajorStrg = FALSE;
381 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2,
382 ALPHA, A, 1, B, 1, BETA, C, 1 );
383 chkxer();
384 cblas_info = 11; RowMajorStrg = FALSE;
385 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
386 ALPHA, A, 1, B, 1, BETA, C, 1 );
387 chkxer();
388 cblas_info = 11; RowMajorStrg = FALSE;
389 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
390 ALPHA, A, 2, B, 1, BETA, C, 1 );
391 chkxer();
392 cblas_info = 11; RowMajorStrg = FALSE;
393 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
394 ALPHA, A, 1, B, 1, BETA, C, 1 );
395 chkxer();
396 cblas_info = 11; RowMajorStrg = FALSE;
397 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0,
398 ALPHA, A, 1, B, 1, BETA, C, 1 );
399 chkxer();
400 cblas_info = 14; RowMajorStrg = FALSE;
401 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
402 ALPHA, A, 2, B, 1, BETA, C, 1 );
403 chkxer();
404 cblas_info = 14; RowMajorStrg = FALSE;
405 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
406 ALPHA, A, 2, B, 1, BETA, C, 1 );
407 chkxer();
408 cblas_info = 14; RowMajorStrg = FALSE;
409 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
410 ALPHA, A, 1, B, 1, BETA, C, 1 );
411 chkxer();
412 cblas_info = 14; RowMajorStrg = FALSE;
413 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0,
414 ALPHA, A, 1, B, 1, BETA, C, 1 );
415 chkxer();
416
417 cblas_info = 4; RowMajorStrg = TRUE;
418 cblas_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( 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_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
511 ALPHA, A, 1, B, 1, BETA, C, 1 );
512 chkxer();
513
514 } else if (strncmp( sf,"cblas_ssymm" ,11)==0) {
515 cblas_rout = "cblas_ssymm" ;
516
517 cblas_info = 1;
518 cblas_ssymm( INVALID, CblasRight, CblasLower, 0, 0,
519 ALPHA, A, 1, B, 1, BETA, C, 1 );
520 chkxer();
521 cblas_info = 2; RowMajorStrg = FALSE;
522 cblas_ssymm( CblasColMajor, INVALID, CblasUpper, 0, 0,
523 ALPHA, A, 1, B, 1, BETA, C, 1 );
524 chkxer();
525 cblas_info = 3; RowMajorStrg = FALSE;
526 cblas_ssymm( CblasColMajor, CblasLeft, INVALID, 0, 0,
527 ALPHA, A, 1, B, 1, BETA, C, 1 );
528 chkxer();
529 cblas_info = 4; RowMajorStrg = FALSE;
530 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0,
531 ALPHA, A, 1, B, 1, BETA, C, 1 );
532 chkxer();
533 cblas_info = 4; RowMajorStrg = FALSE;
534 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0,
535 ALPHA, A, 1, B, 1, BETA, C, 1 );
536 chkxer();
537 cblas_info = 4; RowMajorStrg = FALSE;
538 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0,
539 ALPHA, A, 1, B, 1, BETA, C, 1 );
540 chkxer();
541 cblas_info = 4; RowMajorStrg = FALSE;
542 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0,
543 ALPHA, A, 1, B, 1, BETA, C, 1 );
544 chkxer();
545 cblas_info = 5; RowMajorStrg = FALSE;
546 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID,
547 ALPHA, A, 1, B, 1, BETA, C, 1 );
548 chkxer();
549 cblas_info = 5; RowMajorStrg = FALSE;
550 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID,
551 ALPHA, A, 1, B, 1, BETA, C, 1 );
552 chkxer();
553 cblas_info = 5; RowMajorStrg = FALSE;
554 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID,
555 ALPHA, A, 1, B, 1, BETA, C, 1 );
556 chkxer();
557 cblas_info = 5; RowMajorStrg = FALSE;
558 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID,
559 ALPHA, A, 1, B, 1, BETA, C, 1 );
560 chkxer();
561 cblas_info = 8; RowMajorStrg = FALSE;
562 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
563 ALPHA, A, 1, B, 2, BETA, C, 2 );
564 chkxer();
565 cblas_info = 8; RowMajorStrg = FALSE;
566 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 0, 2,
567 ALPHA, A, 1, B, 1, BETA, C, 1 );
568 chkxer();
569 cblas_info = 8; RowMajorStrg = FALSE;
570 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
571 ALPHA, A, 1, B, 2, BETA, C, 2 );
572 chkxer();
573 cblas_info = 8; RowMajorStrg = FALSE;
574 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 0, 2,
575 ALPHA, A, 1, B, 1, BETA, C, 1 );
576 chkxer();
577 cblas_info = 10; RowMajorStrg = FALSE;
578 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
579 ALPHA, A, 2, B, 1, BETA, C, 1 );
580 chkxer();
581 cblas_info = 10; RowMajorStrg = FALSE;
582 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
583 ALPHA, A, 1, B, 1, BETA, C, 1 );
584 chkxer();
585 cblas_info = 10; RowMajorStrg = FALSE;
586 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
587 ALPHA, A, 2, B, 1, BETA, C, 1 );
588 chkxer();
589 cblas_info = 10; RowMajorStrg = FALSE;
590 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
591 ALPHA, A, 1, B, 1, BETA, C, 1 );
592 chkxer();
593 cblas_info = 13; RowMajorStrg = FALSE;
594 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
595 ALPHA, A, 2, B, 2, BETA, C, 1 );
596 chkxer();
597 cblas_info = 13; RowMajorStrg = FALSE;
598 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
599 ALPHA, A, 1, B, 2, BETA, C, 1 );
600 chkxer();
601 cblas_info = 13; RowMajorStrg = FALSE;
602 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
603 ALPHA, A, 2, B, 2, BETA, C, 1 );
604 chkxer();
605 cblas_info = 13; RowMajorStrg = FALSE;
606 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
607 ALPHA, A, 1, B, 2, BETA, C, 1 );
608 chkxer();
609
610 cblas_info = 4; RowMajorStrg = TRUE;
611 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
612 ALPHA, A, 1, B, 1, BETA, C, 1 );
613 chkxer();
614 cblas_info = 4; RowMajorStrg = TRUE;
615 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0,
616 ALPHA, A, 1, B, 1, BETA, C, 1 );
617 chkxer();
618 cblas_info = 4; RowMajorStrg = TRUE;
619 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0,
620 ALPHA, A, 1, B, 1, BETA, C, 1 );
621 chkxer();
622 cblas_info = 4; RowMajorStrg = TRUE;
623 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0,
624 ALPHA, A, 1, B, 1, BETA, C, 1 );
625 chkxer();
626 cblas_info = 5; RowMajorStrg = TRUE;
627 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID,
628 ALPHA, A, 1, B, 1, BETA, C, 1 );
629 chkxer();
630 cblas_info = 5; RowMajorStrg = TRUE;
631 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID,
632 ALPHA, A, 1, B, 1, BETA, C, 1 );
633 chkxer();
634 cblas_info = 5; RowMajorStrg = TRUE;
635 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID,
636 ALPHA, A, 1, B, 1, BETA, C, 1 );
637 chkxer();
638 cblas_info = 5; RowMajorStrg = TRUE;
639 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID,
640 ALPHA, A, 1, B, 1, BETA, C, 1 );
641 chkxer();
642 cblas_info = 8; RowMajorStrg = TRUE;
643 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0,
644 ALPHA, A, 1, B, 2, BETA, C, 2 );
645 chkxer();
646 cblas_info = 8; RowMajorStrg = TRUE;
647 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
648 ALPHA, A, 1, B, 1, BETA, C, 1 );
649 chkxer();
650 cblas_info = 8; RowMajorStrg = TRUE;
651 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0,
652 ALPHA, A, 1, B, 2, BETA, C, 2 );
653 chkxer();
654 cblas_info = 8; RowMajorStrg = TRUE;
655 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
656 ALPHA, A, 1, B, 1, BETA, C, 1 );
657 chkxer();
658 cblas_info = 10; RowMajorStrg = TRUE;
659 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
660 ALPHA, A, 2, B, 1, BETA, C, 1 );
661 chkxer();
662 cblas_info = 10; RowMajorStrg = TRUE;
663 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
664 ALPHA, A, 2, B, 1, BETA, C, 1 );
665 chkxer();
666 cblas_info = 10; RowMajorStrg = TRUE;
667 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
668 ALPHA, A, 2, B, 1, BETA, C, 1 );
669 chkxer();
670 cblas_info = 10; RowMajorStrg = TRUE;
671 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
672 ALPHA, A, 2, B, 1, BETA, C, 1 );
673 chkxer();
674 cblas_info = 13; RowMajorStrg = TRUE;
675 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
676 ALPHA, A, 1, B, 2, BETA, C, 1 );
677 chkxer();
678 cblas_info = 13; RowMajorStrg = TRUE;
679 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
680 ALPHA, A, 2, B, 2, BETA, C, 1 );
681 chkxer();
682 cblas_info = 13; RowMajorStrg = TRUE;
683 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
684 ALPHA, A, 1, B, 2, BETA, C, 1 );
685 chkxer();
686 cblas_info = 13; RowMajorStrg = TRUE;
687 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
688 ALPHA, A, 2, B, 2, BETA, C, 1 );
689 chkxer();
690
691 } else if (strncmp( sf,"cblas_strmm" ,11)==0) {
692 cblas_rout = "cblas_strmm" ;
693
694 cblas_info = 1;
695 cblas_strmm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
696 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
697 chkxer();
698 cblas_info = 2; RowMajorStrg = FALSE;
699 cblas_strmm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
700 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
701 chkxer();
702 cblas_info = 3; RowMajorStrg = FALSE;
703 cblas_strmm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
704 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
705 chkxer();
706 cblas_info = 4; RowMajorStrg = FALSE;
707 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
708 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
709 chkxer();
710 cblas_info = 5; RowMajorStrg = FALSE;
711 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
712 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
713 chkxer();
714 cblas_info = 6; RowMajorStrg = FALSE;
715 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
716 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
717 chkxer();
718 cblas_info = 6; RowMajorStrg = FALSE;
719 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
720 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
721 chkxer();
722 cblas_info = 6; RowMajorStrg = FALSE;
723 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
724 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
725 chkxer();
726 cblas_info = 6; RowMajorStrg = FALSE;
727 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
728 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
729 chkxer();
730 cblas_info = 6; RowMajorStrg = FALSE;
731 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
732 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
733 chkxer();
734 cblas_info = 6; RowMajorStrg = FALSE;
735 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
736 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
737 chkxer();
738 cblas_info = 6; RowMajorStrg = FALSE;
739 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
740 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
741 chkxer();
742 cblas_info = 6; RowMajorStrg = FALSE;
743 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
744 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
745 chkxer();
746 cblas_info = 7; RowMajorStrg = FALSE;
747 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
748 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
749 chkxer();
750 cblas_info = 7; RowMajorStrg = FALSE;
751 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
752 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
753 chkxer();
754 cblas_info = 7; RowMajorStrg = FALSE;
755 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
756 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
757 chkxer();
758 cblas_info = 7; RowMajorStrg = FALSE;
759 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
760 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
761 chkxer();
762 cblas_info = 7; RowMajorStrg = FALSE;
763 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
764 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
765 chkxer();
766 cblas_info = 7; RowMajorStrg = FALSE;
767 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
768 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
769 chkxer();
770 cblas_info = 7; RowMajorStrg = FALSE;
771 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
772 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
773 chkxer();
774 cblas_info = 7; RowMajorStrg = FALSE;
775 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
776 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
777 chkxer();
778 cblas_info = 10; RowMajorStrg = FALSE;
779 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
780 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
781 chkxer();
782 cblas_info = 10; RowMajorStrg = FALSE;
783 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
784 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
785 chkxer();
786 cblas_info = 10; RowMajorStrg = FALSE;
787 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
788 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
789 chkxer();
790 cblas_info = 10; RowMajorStrg = FALSE;
791 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
792 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
793 chkxer();
794 cblas_info = 10; RowMajorStrg = FALSE;
795 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
796 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
797 chkxer();
798 cblas_info = 10; RowMajorStrg = FALSE;
799 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
800 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
801 chkxer();
802 cblas_info = 10; RowMajorStrg = FALSE;
803 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
804 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
805 chkxer();
806 cblas_info = 10; RowMajorStrg = FALSE;
807 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
808 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
809 chkxer();
810 cblas_info = 12; RowMajorStrg = FALSE;
811 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
812 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
813 chkxer();
814 cblas_info = 12; RowMajorStrg = FALSE;
815 cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
816 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
817 chkxer();
818 cblas_info = 12; RowMajorStrg = FALSE;
819 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
820 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
821 chkxer();
822 cblas_info = 12; RowMajorStrg = FALSE;
823 cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
824 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
825 chkxer();
826 cblas_info = 12; RowMajorStrg = FALSE;
827 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
828 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
829 chkxer();
830 cblas_info = 12; RowMajorStrg = FALSE;
831 cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
832 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
833 chkxer();
834 cblas_info = 12; RowMajorStrg = FALSE;
835 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
836 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
837 chkxer();
838 cblas_info = 12; RowMajorStrg = FALSE;
839 cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
840 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
841 chkxer();
842
843 cblas_info = 6; RowMajorStrg = TRUE;
844 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
845 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
846 chkxer();
847 cblas_info = 6; RowMajorStrg = TRUE;
848 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
849 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
850 chkxer();
851 cblas_info = 6; RowMajorStrg = TRUE;
852 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
853 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
854 chkxer();
855 cblas_info = 6; RowMajorStrg = TRUE;
856 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
857 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
858 chkxer();
859 cblas_info = 6; RowMajorStrg = TRUE;
860 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
861 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
862 chkxer();
863 cblas_info = 6; RowMajorStrg = TRUE;
864 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
865 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
866 chkxer();
867 cblas_info = 6; RowMajorStrg = TRUE;
868 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
869 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
870 chkxer();
871 cblas_info = 6; RowMajorStrg = TRUE;
872 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
873 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
874 chkxer();
875 cblas_info = 7; RowMajorStrg = TRUE;
876 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
877 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
878 chkxer();
879 cblas_info = 7; RowMajorStrg = TRUE;
880 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
881 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
882 chkxer();
883 cblas_info = 7; RowMajorStrg = TRUE;
884 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
885 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
886 chkxer();
887 cblas_info = 7; RowMajorStrg = TRUE;
888 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
889 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
890 chkxer();
891 cblas_info = 7; RowMajorStrg = TRUE;
892 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
893 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
894 chkxer();
895 cblas_info = 7; RowMajorStrg = TRUE;
896 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
897 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
898 chkxer();
899 cblas_info = 7; RowMajorStrg = TRUE;
900 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
901 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
902 chkxer();
903 cblas_info = 7; RowMajorStrg = TRUE;
904 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
905 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
906 chkxer();
907 cblas_info = 10; RowMajorStrg = TRUE;
908 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
909 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
910 chkxer();
911 cblas_info = 10; RowMajorStrg = TRUE;
912 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
913 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
914 chkxer();
915 cblas_info = 10; RowMajorStrg = TRUE;
916 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
917 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
918 chkxer();
919 cblas_info = 10; RowMajorStrg = TRUE;
920 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
921 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
922 chkxer();
923 cblas_info = 10; RowMajorStrg = TRUE;
924 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
925 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
926 chkxer();
927 cblas_info = 10; RowMajorStrg = TRUE;
928 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
929 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
930 chkxer();
931 cblas_info = 10; RowMajorStrg = TRUE;
932 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
933 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
934 chkxer();
935 cblas_info = 10; RowMajorStrg = TRUE;
936 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
937 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
938 chkxer();
939 cblas_info = 12; RowMajorStrg = TRUE;
940 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
941 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
942 chkxer();
943 cblas_info = 12; RowMajorStrg = TRUE;
944 cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
945 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
946 chkxer();
947 cblas_info = 12; RowMajorStrg = TRUE;
948 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
949 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
950 chkxer();
951 cblas_info = 12; RowMajorStrg = TRUE;
952 cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
953 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
954 chkxer();
955 cblas_info = 12; RowMajorStrg = TRUE;
956 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
957 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
958 chkxer();
959 cblas_info = 12; RowMajorStrg = TRUE;
960 cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
961 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
962 chkxer();
963 cblas_info = 12; RowMajorStrg = TRUE;
964 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
965 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
966 chkxer();
967 cblas_info = 12; RowMajorStrg = TRUE;
968 cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
969 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
970 chkxer();
971
972 } else if (strncmp( sf,"cblas_strsm" ,11)==0) {
973 cblas_rout = "cblas_strsm" ;
974
975 cblas_info = 1;
976 cblas_strsm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
977 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
978 chkxer();
979 cblas_info = 2; RowMajorStrg = FALSE;
980 cblas_strsm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
981 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
982 chkxer();
983 cblas_info = 3; RowMajorStrg = FALSE;
984 cblas_strsm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
985 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
986 chkxer();
987 cblas_info = 4; RowMajorStrg = FALSE;
988 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
989 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
990 chkxer();
991 cblas_info = 5; RowMajorStrg = FALSE;
992 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
993 INVALID, 0, 0, ALPHA, A, 1, B, 1 );
994 chkxer();
995 cblas_info = 6; RowMajorStrg = FALSE;
996 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
997 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
998 chkxer();
999 cblas_info = 6; RowMajorStrg = FALSE;
1000 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
1001 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1002 chkxer();
1003 cblas_info = 6; RowMajorStrg = FALSE;
1004 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
1005 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1006 chkxer();
1007 cblas_info = 6; RowMajorStrg = FALSE;
1008 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
1009 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1010 chkxer();
1011 cblas_info = 6; RowMajorStrg = FALSE;
1012 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
1013 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1014 chkxer();
1015 cblas_info = 6; RowMajorStrg = FALSE;
1016 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
1017 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1018 chkxer();
1019 cblas_info = 6; RowMajorStrg = FALSE;
1020 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
1021 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1022 chkxer();
1023 cblas_info = 6; RowMajorStrg = FALSE;
1024 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
1025 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1026 chkxer();
1027 cblas_info = 7; RowMajorStrg = FALSE;
1028 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
1029 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1030 chkxer();
1031 cblas_info = 7; RowMajorStrg = FALSE;
1032 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
1033 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1034 chkxer();
1035 cblas_info = 7; RowMajorStrg = FALSE;
1036 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
1037 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1038 chkxer();
1039 cblas_info = 7; RowMajorStrg = FALSE;
1040 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
1041 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1042 chkxer();
1043 cblas_info = 7; RowMajorStrg = FALSE;
1044 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
1045 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1046 chkxer();
1047 cblas_info = 7; RowMajorStrg = FALSE;
1048 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
1049 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1050 chkxer();
1051 cblas_info = 7; RowMajorStrg = FALSE;
1052 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
1053 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1054 chkxer();
1055 cblas_info = 7; RowMajorStrg = FALSE;
1056 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
1057 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1058 chkxer();
1059 cblas_info = 10; RowMajorStrg = FALSE;
1060 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
1061 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1062 chkxer();
1063 cblas_info = 10; RowMajorStrg = FALSE;
1064 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
1065 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1066 chkxer();
1067 cblas_info = 10; RowMajorStrg = FALSE;
1068 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
1069 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1070 chkxer();
1071 cblas_info = 10; RowMajorStrg = FALSE;
1072 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
1073 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1074 chkxer();
1075 cblas_info = 10; RowMajorStrg = FALSE;
1076 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
1077 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1078 chkxer();
1079 cblas_info = 10; RowMajorStrg = FALSE;
1080 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
1081 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
1082 chkxer();
1083 cblas_info = 10; RowMajorStrg = FALSE;
1084 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
1085 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1086 chkxer();
1087 cblas_info = 10; RowMajorStrg = FALSE;
1088 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
1089 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1090 chkxer();
1091 cblas_info = 12; RowMajorStrg = FALSE;
1092 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
1093 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1094 chkxer();
1095 cblas_info = 12; RowMajorStrg = FALSE;
1096 cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
1097 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1098 chkxer();
1099 cblas_info = 12; RowMajorStrg = FALSE;
1100 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
1101 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1102 chkxer();
1103 cblas_info = 12; RowMajorStrg = FALSE;
1104 cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
1105 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1106 chkxer();
1107 cblas_info = 12; RowMajorStrg = FALSE;
1108 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
1109 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1110 chkxer();
1111 cblas_info = 12; RowMajorStrg = FALSE;
1112 cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
1113 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
1114 chkxer();
1115 cblas_info = 12; RowMajorStrg = FALSE;
1116 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
1117 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1118 chkxer();
1119 cblas_info = 12; RowMajorStrg = FALSE;
1120 cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
1121 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1122 chkxer();
1123
1124 cblas_info = 6; RowMajorStrg = TRUE;
1125 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
1126 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1127 chkxer();
1128 cblas_info = 6; RowMajorStrg = TRUE;
1129 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
1130 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1131 chkxer();
1132 cblas_info = 6; RowMajorStrg = TRUE;
1133 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
1134 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1135 chkxer();
1136 cblas_info = 6; RowMajorStrg = TRUE;
1137 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
1138 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1139 chkxer();
1140 cblas_info = 6; RowMajorStrg = TRUE;
1141 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
1142 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1143 chkxer();
1144 cblas_info = 6; RowMajorStrg = TRUE;
1145 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
1146 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1147 chkxer();
1148 cblas_info = 6; RowMajorStrg = TRUE;
1149 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
1150 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1151 chkxer();
1152 cblas_info = 6; RowMajorStrg = TRUE;
1153 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
1154 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
1155 chkxer();
1156 cblas_info = 7; RowMajorStrg = TRUE;
1157 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
1158 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1159 chkxer();
1160 cblas_info = 7; RowMajorStrg = TRUE;
1161 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
1162 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1163 chkxer();
1164 cblas_info = 7; RowMajorStrg = TRUE;
1165 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
1166 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1167 chkxer();
1168 cblas_info = 7; RowMajorStrg = TRUE;
1169 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
1170 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1171 chkxer();
1172 cblas_info = 7; RowMajorStrg = TRUE;
1173 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
1174 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1175 chkxer();
1176 cblas_info = 7; RowMajorStrg = TRUE;
1177 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
1178 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1179 chkxer();
1180 cblas_info = 7; RowMajorStrg = TRUE;
1181 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
1182 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1183 chkxer();
1184 cblas_info = 7; RowMajorStrg = TRUE;
1185 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
1186 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
1187 chkxer();
1188 cblas_info = 10; RowMajorStrg = TRUE;
1189 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
1190 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1191 chkxer();
1192 cblas_info = 10; RowMajorStrg = TRUE;
1193 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
1194 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1195 chkxer();
1196 cblas_info = 10; RowMajorStrg = TRUE;
1197 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
1198 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1199 chkxer();
1200 cblas_info = 10; RowMajorStrg = TRUE;
1201 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
1202 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1203 chkxer();
1204 cblas_info = 10; RowMajorStrg = TRUE;
1205 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
1206 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1207 chkxer();
1208 cblas_info = 10; RowMajorStrg = TRUE;
1209 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
1210 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
1211 chkxer();
1212 cblas_info = 10; RowMajorStrg = TRUE;
1213 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
1214 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1215 chkxer();
1216 cblas_info = 10; RowMajorStrg = TRUE;
1217 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
1218 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
1219 chkxer();
1220 cblas_info = 12; RowMajorStrg = TRUE;
1221 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
1222 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1223 chkxer();
1224 cblas_info = 12; RowMajorStrg = TRUE;
1225 cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
1226 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1227 chkxer();
1228 cblas_info = 12; RowMajorStrg = TRUE;
1229 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
1230 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1231 chkxer();
1232 cblas_info = 12; RowMajorStrg = TRUE;
1233 cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
1234 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1235 chkxer();
1236 cblas_info = 12; RowMajorStrg = TRUE;
1237 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
1238 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1239 chkxer();
1240 cblas_info = 12; RowMajorStrg = TRUE;
1241 cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
1242 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
1243 chkxer();
1244 cblas_info = 12; RowMajorStrg = TRUE;
1245 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
1246 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1247 chkxer();
1248 cblas_info = 12; RowMajorStrg = TRUE;
1249 cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
1250 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
1251 chkxer();
1252
1253 } else if (strncmp( sf,"cblas_ssyrk" ,11)==0) {
1254 cblas_rout = "cblas_ssyrk" ;
1255
1256 cblas_info = 1;
1257 cblas_ssyrk( INVALID, CblasUpper, CblasNoTrans,
1258 0, 0, ALPHA, A, 1, BETA, C, 1 );
1259 chkxer();
1260 cblas_info = 2; RowMajorStrg = FALSE;
1261 cblas_ssyrk( CblasColMajor, INVALID, CblasNoTrans,
1262 0, 0, ALPHA, A, 1, BETA, C, 1 );
1263 chkxer();
1264 cblas_info = 3; RowMajorStrg = FALSE;
1265 cblas_ssyrk( CblasColMajor, CblasUpper, INVALID,
1266 0, 0, ALPHA, A, 1, BETA, C, 1 );
1267 chkxer();
1268 cblas_info = 4; RowMajorStrg = FALSE;
1269 cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1270 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1271 chkxer();
1272 cblas_info = 4; RowMajorStrg = FALSE;
1273 cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans,
1274 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1275 chkxer();
1276 cblas_info = 4; RowMajorStrg = FALSE;
1277 cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans,
1278 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1279 chkxer();
1280 cblas_info = 4; RowMajorStrg = FALSE;
1281 cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans,
1282 INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
1283 chkxer();
1284 cblas_info = 5; RowMajorStrg = FALSE;
1285 cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1286 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1287 chkxer();
1288 cblas_info = 5; RowMajorStrg = FALSE;
1289 cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans,
1290 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1291 chkxer();
1292 cblas_info = 5; RowMajorStrg = FALSE;
1293 cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans,
1294 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1295 chkxer();
1296 cblas_info = 5; RowMajorStrg = FALSE;
1297 cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans,
1298 0, INVALID, ALPHA, A, 1, BETA, C, 1 );
1299 chkxer();
1300 cblas_info = 8; RowMajorStrg = TRUE;
1301 cblas_ssyrk( CblasRowMajor, CblasUpper, CblasNoTrans,
1302 0, 2, ALPHA, A, 1, BETA, C, 2 );
1303 chkxer();
1304 cblas_info = 8; RowMajorStrg = TRUE;
1305 cblas_ssyrk( CblasRowMajor, CblasUpper, CblasTrans,
1306 2, 0, ALPHA, A, 1, BETA, C, 1 );
1307 chkxer();
1308 cblas_info = 8; RowMajorStrg = TRUE;
1309 cblas_ssyrk( CblasRowMajor, CblasLower, CblasNoTrans,
1310 0, 2, ALPHA, A, 1, BETA, C, 2 );
1311 chkxer();
1312 cblas_info = 8; RowMajorStrg = TRUE;
1313 cblas_ssyrk( CblasRowMajor, CblasLower, CblasTrans,
1314 2, 0, ALPHA, A, 1, BETA, C, 1 );
1315 chkxer();
1316 cblas_info = 8; RowMajorStrg = FALSE;
1317 cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1318 2, 0, ALPHA, A, 1, BETA, C, 2 );
1319 chkxer();
1320 cblas_info = 8; RowMajorStrg = FALSE;
1321 cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans,
1322 0, 2, ALPHA, A, 1, BETA, C, 1 );
1323 chkxer();
1324 cblas_info = 8; RowMajorStrg = FALSE;
1325 cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans,
1326 2, 0, ALPHA, A, 1, BETA, C, 2 );
1327 chkxer();
1328 cblas_info = 8; RowMajorStrg = FALSE;
1329 cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans,
1330 0, 2, ALPHA, A, 1, BETA, C, 1 );
1331 chkxer();
1332 cblas_info = 11; RowMajorStrg = TRUE;
1333 cblas_ssyrk( CblasRowMajor, CblasUpper, CblasNoTrans,
1334 2, 0, ALPHA, A, 1, BETA, C, 1 );
1335 chkxer();
1336 cblas_info = 11; RowMajorStrg = TRUE;
1337 cblas_ssyrk( CblasRowMajor, CblasUpper, CblasTrans,
1338 2, 0, ALPHA, A, 2, BETA, C, 1 );
1339 chkxer();
1340 cblas_info = 11; RowMajorStrg = TRUE;
1341 cblas_ssyrk( CblasRowMajor, CblasLower, CblasNoTrans,
1342 2, 0, ALPHA, A, 1, BETA, C, 1 );
1343 chkxer();
1344 cblas_info = 11; RowMajorStrg = TRUE;
1345 cblas_ssyrk( CblasRowMajor, CblasLower, CblasTrans,
1346 2, 0, ALPHA, A, 2, BETA, C, 1 );
1347 chkxer();
1348 cblas_info = 11; RowMajorStrg = FALSE;
1349 cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans,
1350 2, 0, ALPHA, A, 2, BETA, C, 1 );
1351 chkxer();
1352 cblas_info = 11; RowMajorStrg = FALSE;
1353 cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans,
1354 2, 0, ALPHA, A, 1, BETA, C, 1 );
1355 chkxer();
1356 cblas_info = 11; RowMajorStrg = FALSE;
1357 cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans,
1358 2, 0, ALPHA, A, 2, BETA, C, 1 );
1359 chkxer();
1360 cblas_info = 11; RowMajorStrg = FALSE;
1361 cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans,
1362 2, 0, ALPHA, A, 1, BETA, C, 1 );
1363 chkxer();
1364
1365 } else if (strncmp( sf,"cblas_ssyr2k" ,12)==0) {
1366 cblas_rout = "cblas_ssyr2k" ;
1367
1368 cblas_info = 1;
1369 cblas_ssyr2k( INVALID, CblasUpper, CblasNoTrans,
1370 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1371 chkxer();
1372 cblas_info = 2; RowMajorStrg = FALSE;
1373 cblas_ssyr2k( CblasColMajor, INVALID, CblasNoTrans,
1374 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1375 chkxer();
1376 cblas_info = 3; RowMajorStrg = FALSE;
1377 cblas_ssyr2k( CblasColMajor, CblasUpper, INVALID,
1378 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1379 chkxer();
1380 cblas_info = 4; RowMajorStrg = FALSE;
1381 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1382 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1383 chkxer();
1384 cblas_info = 4; RowMajorStrg = FALSE;
1385 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1386 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1387 chkxer();
1388 cblas_info = 4; RowMajorStrg = FALSE;
1389 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1390 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1391 chkxer();
1392 cblas_info = 4; RowMajorStrg = FALSE;
1393 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1394 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1395 chkxer();
1396 cblas_info = 5; RowMajorStrg = FALSE;
1397 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1398 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1399 chkxer();
1400 cblas_info = 5; RowMajorStrg = FALSE;
1401 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1402 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1403 chkxer();
1404 cblas_info = 5; RowMajorStrg = FALSE;
1405 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1406 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1407 chkxer();
1408 cblas_info = 5; RowMajorStrg = FALSE;
1409 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1410 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
1411 chkxer();
1412 cblas_info = 8; RowMajorStrg = TRUE;
1413 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
1414 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1415 chkxer();
1416 cblas_info = 8; RowMajorStrg = TRUE;
1417 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasTrans,
1418 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1419 chkxer();
1420 cblas_info = 8; RowMajorStrg = TRUE;
1421 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
1422 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
1423 chkxer();
1424 cblas_info = 8; RowMajorStrg = TRUE;
1425 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasTrans,
1426 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
1427 chkxer();
1428 cblas_info = 8; RowMajorStrg = FALSE;
1429 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1430 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1431 chkxer();
1432 cblas_info = 8; RowMajorStrg = FALSE;
1433 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1434 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1435 chkxer();
1436 cblas_info = 8; RowMajorStrg = FALSE;
1437 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1438 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
1439 chkxer();
1440 cblas_info = 8; RowMajorStrg = FALSE;
1441 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1442 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
1443 chkxer();
1444 cblas_info = 10; RowMajorStrg = TRUE;
1445 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
1446 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1447 chkxer();
1448 cblas_info = 10; RowMajorStrg = TRUE;
1449 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasTrans,
1450 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1451 chkxer();
1452 cblas_info = 10; RowMajorStrg = TRUE;
1453 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
1454 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
1455 chkxer();
1456 cblas_info = 10; RowMajorStrg = TRUE;
1457 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasTrans,
1458 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
1459 chkxer();
1460 cblas_info = 10; RowMajorStrg = FALSE;
1461 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1462 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1463 chkxer();
1464 cblas_info = 10; RowMajorStrg = FALSE;
1465 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1466 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1467 chkxer();
1468 cblas_info = 10; RowMajorStrg = FALSE;
1469 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1470 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
1471 chkxer();
1472 cblas_info = 10; RowMajorStrg = FALSE;
1473 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1474 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
1475 chkxer();
1476 cblas_info = 13; RowMajorStrg = TRUE;
1477 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasNoTrans,
1478 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1479 chkxer();
1480 cblas_info = 13; RowMajorStrg = TRUE;
1481 cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasTrans,
1482 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1483 chkxer();
1484 cblas_info = 13; RowMajorStrg = TRUE;
1485 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasNoTrans,
1486 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1487 chkxer();
1488 cblas_info = 13; RowMajorStrg = TRUE;
1489 cblas_ssyr2k( CblasRowMajor, CblasLower, CblasTrans,
1490 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1491 chkxer();
1492 cblas_info = 13; RowMajorStrg = FALSE;
1493 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans,
1494 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1495 chkxer();
1496 cblas_info = 13; RowMajorStrg = FALSE;
1497 cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans,
1498 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1499 chkxer();
1500 cblas_info = 13; RowMajorStrg = FALSE;
1501 cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans,
1502 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
1503 chkxer();
1504 cblas_info = 13; RowMajorStrg = FALSE;
1505 cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans,
1506 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
1507 chkxer();
1508 }
1509 if (cblas_ok == TRUE )
1510 printf(" %-13s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1511 else
1512 printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
1513}
cblas_lerr
CBLAS_INT cblas_lerr
Definition c_s3chke.c:6
chkxer
void chkxer(void)
Definition c_s3chke.c:20
cblas_ok
CBLAS_INT cblas_ok
Definition c_s3chke.c:6
cblas_info
CBLAS_INT cblas_info
Definition c_s3chke.c:6
cblas_rout
char * cblas_rout
Definition c_s3chke.c:8
link_xerbla
CBLAS_INT link_xerbla
Definition c_s3chke.c:7
cblas_ssyrk
void cblas_ssyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float beta, float *C, const CBLAS_INT ldc)
Definition cblas_ssyrk.c:12
cblas_sgemm
void cblas_sgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
Definition cblas_sgemm.c:12
cblas_strsm
void cblas_strsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, float *B, const CBLAS_INT ldb)
Definition cblas_strsm.c:12
CblasLower
@ CblasLower
Definition cblas.h:41
CblasUpper
@ CblasUpper
Definition cblas.h:41
cblas_xerbla
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
Definition cblas_xerbla.c:12
cblas_sgemmtr
void cblas_sgemmtr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_TRANSPOSE TransB, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
Definition cblas_sgemmtr.c:13
CblasNoTrans
@ CblasNoTrans
Definition cblas.h:40
CblasTrans
@ CblasTrans
Definition cblas.h:40
CblasRight
@ CblasRight
Definition cblas.h:43
CblasLeft
@ CblasLeft
Definition cblas.h:43
cblas_ssymm
void cblas_ssymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
Definition cblas_ssymm.c:12
CblasColMajor
@ CblasColMajor
Definition cblas.h:39
CblasRowMajor
@ CblasRowMajor
Definition cblas.h:39
cblas_strmm
void cblas_strmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, float *B, const CBLAS_INT ldb)
Definition cblas_strmm.c:12
CblasNonUnit
@ CblasNonUnit
Definition cblas.h:42
cblas_ssyr2k
void cblas_ssyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, const float beta, float *C, const CBLAS_INT ldc)
Definition cblas_ssyr2k.c:12
CBLAS_INT
#define CBLAS_INT
Definition cblas.h:24
INVALID
#define INVALID
Definition cblas_example2.c:8
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_s3chke
#define F77_s3chke
Definition cblas_test.h:159
PASSED
#define PASSED
Definition cblas_test.h:20
cblas_test.h