OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
c_s2chke.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
6int cblas_ok, cblas_lerr, cblas_info;
7int link_xerbla=TRUE;
8char *cblas_rout;
9
10#ifdef F77_Char
11void F77_xerbla(F77_Char F77_srname, void *vinfo);
12#else
13void F77_xerbla(char *srname, void *vinfo);
14#endif
15
16void chkxer(void) {
17 extern int cblas_ok, cblas_lerr, cblas_info;
18 extern int link_xerbla;
19 extern char *cblas_rout;
20 if (cblas_lerr == 1 ) {
21 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);
22 cblas_ok = 0 ;
23 }
24 cblas_lerr = 1 ;
25}
26
27void F77_s2chke(char *rout) {
28 char *sf = ( rout ) ;
29 float A[2] = {0.0,0.0},
30 X[2] = {0.0,0.0},
31 Y[2] = {0.0,0.0},
32 ALPHA=0.0, BETA=0.0;
33 extern int cblas_info, cblas_lerr, cblas_ok;
34 extern int RowMajorStrg;
35 extern char *cblas_rout;
36
37#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
38 if (link_xerbla) /* call these first to link */
39 {
40 cblas_xerbla(cblas_info,cblas_rout,"");
41 F77_xerbla(cblas_rout,&cblas_info);
42 }
43#endif
44
45 cblas_ok = TRUE ;
46 cblas_lerr = PASSED ;
47
48 if (strncmp( sf,"cblas_sgemv",11)==0) {
49 cblas_rout = "cblas_sgemv";
50 cblas_info = 1;
51 cblas_sgemv(INVALID, CblasNoTrans, 0, 0,
52 ALPHA, A, 1, X, 1, BETA, Y, 1 );
53 chkxer();
54 cblas_info = 2; RowMajorStrg = FALSE;
55 cblas_sgemv(CblasColMajor, INVALID, 0, 0,
56 ALPHA, A, 1, X, 1, BETA, Y, 1 );
57 chkxer();
58 cblas_info = 3; RowMajorStrg = FALSE;
59 cblas_sgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
60 ALPHA, A, 1, X, 1, BETA, Y, 1 );
61 chkxer();
62 cblas_info = 4; RowMajorStrg = FALSE;
63 cblas_sgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
64 ALPHA, A, 1, X, 1, BETA, Y, 1 );
65 chkxer();
66 cblas_info = 7; RowMajorStrg = FALSE;
67 cblas_sgemv(CblasColMajor, CblasNoTrans, 2, 0,
68 ALPHA, A, 1, X, 1, BETA, Y, 1 );
69 chkxer();
70 cblas_info = 9; RowMajorStrg = FALSE;
71 cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0,
72 ALPHA, A, 1, X, 0, BETA, Y, 1 );
73 chkxer();
74 cblas_info = 12; RowMajorStrg = FALSE;
75 cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0,
76 ALPHA, A, 1, X, 1, BETA, Y, 0 );
77 chkxer();
78
79 cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
80 cblas_sgemv(CblasRowMajor, INVALID, 0, 0,
81 ALPHA, A, 1, X, 1, BETA, Y, 1 );
82 chkxer();
83 cblas_info = 3; RowMajorStrg = TRUE;
84 cblas_sgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
85 ALPHA, A, 1, X, 1, BETA, Y, 1 );
86 chkxer();
87 cblas_info = 4; RowMajorStrg = TRUE;
88 cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
89 ALPHA, A, 1, X, 1, BETA, Y, 1 );
90 chkxer();
91 cblas_info = 7; RowMajorStrg = TRUE;
92 cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 2,
93 ALPHA, A, 1, X, 1, BETA, Y, 1 );
94 chkxer();
95 cblas_info = 9; RowMajorStrg = TRUE;
96 cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0,
97 ALPHA, A, 1, X, 0, BETA, Y, 1 );
98 chkxer();
99 cblas_info = 12; RowMajorStrg = TRUE;
100 cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0,
101 ALPHA, A, 1, X, 1, BETA, Y, 0 );
102 chkxer();
103 } else if (strncmp( sf,"cblas_sgbmv",11)==0) {
104 cblas_rout = "cblas_sgbmv";
105 cblas_info = 1; RowMajorStrg = FALSE;
106 cblas_sgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
107 ALPHA, A, 1, X, 1, BETA, Y, 1 );
108 chkxer();
109 cblas_info = 2; RowMajorStrg = FALSE;
110 cblas_sgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
111 ALPHA, A, 1, X, 1, BETA, Y, 1 );
112 chkxer();
113 cblas_info = 3; RowMajorStrg = FALSE;
114 cblas_sgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
115 ALPHA, A, 1, X, 1, BETA, Y, 1 );
116 chkxer();
117 cblas_info = 4; RowMajorStrg = FALSE;
118 cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
119 ALPHA, A, 1, X, 1, BETA, Y, 1 );
120 chkxer();
121 cblas_info = 5; RowMajorStrg = FALSE;
122 cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
123 ALPHA, A, 1, X, 1, BETA, Y, 1 );
124 chkxer();
125 cblas_info = 6; RowMajorStrg = FALSE;
126 cblas_sgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
127 ALPHA, A, 1, X, 1, BETA, Y, 1 );
128 chkxer();
129 cblas_info = 9; RowMajorStrg = FALSE;
130 cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
131 ALPHA, A, 1, X, 1, BETA, Y, 1 );
132 chkxer();
133 cblas_info = 11; RowMajorStrg = FALSE;
134 cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
135 ALPHA, A, 1, X, 0, BETA, Y, 1 );
136 chkxer();
137 cblas_info = 14; RowMajorStrg = FALSE;
138 cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
139 ALPHA, A, 1, X, 1, BETA, Y, 0 );
140 chkxer();
141 cblas_info = 2; RowMajorStrg = TRUE;
142 cblas_sgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
143 ALPHA, A, 1, X, 1, BETA, Y, 1 );
144 chkxer();
145 cblas_info = 3; RowMajorStrg = TRUE;
146 cblas_sgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
147 ALPHA, A, 1, X, 1, BETA, Y, 1 );
148 chkxer();
149 cblas_info = 4; RowMajorStrg = TRUE;
150 cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
151 ALPHA, A, 1, X, 1, BETA, Y, 1 );
152 chkxer();
153 cblas_info = 5; RowMajorStrg = TRUE;
154 cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
155 ALPHA, A, 1, X, 1, BETA, Y, 1 );
156 chkxer();
157 cblas_info = 6; RowMajorStrg = TRUE;
158 cblas_sgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
159 ALPHA, A, 1, X, 1, BETA, Y, 1 );
160 chkxer();
161 cblas_info = 9; RowMajorStrg = TRUE;
162 cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
163 ALPHA, A, 1, X, 1, BETA, Y, 1 );
164 chkxer();
165 cblas_info = 11; RowMajorStrg = TRUE;
166 cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
167 ALPHA, A, 1, X, 0, BETA, Y, 1 );
168 chkxer();
169 cblas_info = 14; RowMajorStrg = TRUE;
170 cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
171 ALPHA, A, 1, X, 1, BETA, Y, 0 );
172 chkxer();
173 } else if (strncmp( sf,"cblas_ssymv",11)==0) {
174 cblas_rout = "cblas_ssymv";
175 cblas_info = 1; RowMajorStrg = FALSE;
176 cblas_ssymv(INVALID, CblasUpper, 0,
177 ALPHA, A, 1, X, 1, BETA, Y, 1 );
178 chkxer();
179 cblas_info = 2; RowMajorStrg = FALSE;
180 cblas_ssymv(CblasColMajor, INVALID, 0,
181 ALPHA, A, 1, X, 1, BETA, Y, 1 );
182 chkxer();
183 cblas_info = 3; RowMajorStrg = FALSE;
184 cblas_ssymv(CblasColMajor, CblasUpper, INVALID,
185 ALPHA, A, 1, X, 1, BETA, Y, 1 );
186 chkxer();
187 cblas_info = 6; RowMajorStrg = FALSE;
188 cblas_ssymv(CblasColMajor, CblasUpper, 2,
189 ALPHA, A, 1, X, 1, BETA, Y, 1 );
190 chkxer();
191 cblas_info = 8; RowMajorStrg = FALSE;
192 cblas_ssymv(CblasColMajor, CblasUpper, 0,
193 ALPHA, A, 1, X, 0, BETA, Y, 1 );
194 chkxer();
195 cblas_info = 11; RowMajorStrg = FALSE;
196 cblas_ssymv(CblasColMajor, CblasUpper, 0,
197 ALPHA, A, 1, X, 1, BETA, Y, 0 );
198 chkxer();
199 cblas_info = 2; RowMajorStrg = TRUE;
200 cblas_ssymv(CblasRowMajor, INVALID, 0,
201 ALPHA, A, 1, X, 1, BETA, Y, 1 );
202 chkxer();
203 cblas_info = 3; RowMajorStrg = TRUE;
204 cblas_ssymv(CblasRowMajor, CblasUpper, INVALID,
205 ALPHA, A, 1, X, 1, BETA, Y, 1 );
206 chkxer();
207 cblas_info = 6; RowMajorStrg = TRUE;
208 cblas_ssymv(CblasRowMajor, CblasUpper, 2,
209 ALPHA, A, 1, X, 1, BETA, Y, 1 );
210 chkxer();
211 cblas_info = 8; RowMajorStrg = TRUE;
212 cblas_ssymv(CblasRowMajor, CblasUpper, 0,
213 ALPHA, A, 1, X, 0, BETA, Y, 1 );
214 chkxer();
215 cblas_info = 11; RowMajorStrg = TRUE;
216 cblas_ssymv(CblasRowMajor, CblasUpper, 0,
217 ALPHA, A, 1, X, 1, BETA, Y, 0 );
218 chkxer();
219 } else if (strncmp( sf,"cblas_ssbmv",11)==0) {
220 cblas_rout = "cblas_ssbmv";
221 cblas_info = 1; RowMajorStrg = FALSE;
222 cblas_ssbmv(INVALID, CblasUpper, 0, 0,
223 ALPHA, A, 1, X, 1, BETA, Y, 1 );
224 chkxer();
225 cblas_info = 2; RowMajorStrg = FALSE;
226 cblas_ssbmv(CblasColMajor, INVALID, 0, 0,
227 ALPHA, A, 1, X, 1, BETA, Y, 1 );
228 chkxer();
229 cblas_info = 3; RowMajorStrg = FALSE;
230 cblas_ssbmv(CblasColMajor, CblasUpper, INVALID, 0,
231 ALPHA, A, 1, X, 1, BETA, Y, 1 );
232 chkxer();
233 cblas_info = 4; RowMajorStrg = FALSE;
234 cblas_ssbmv(CblasColMajor, CblasUpper, 0, INVALID,
235 ALPHA, A, 1, X, 1, BETA, Y, 1 );
236 chkxer();
237 cblas_info = 7; RowMajorStrg = FALSE;
238 cblas_ssbmv(CblasColMajor, CblasUpper, 0, 1,
239 ALPHA, A, 1, X, 1, BETA, Y, 1 );
240 chkxer();
241 cblas_info = 9; RowMajorStrg = FALSE;
242 cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0,
243 ALPHA, A, 1, X, 0, BETA, Y, 1 );
244 chkxer();
245 cblas_info = 12; RowMajorStrg = FALSE;
246 cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0,
247 ALPHA, A, 1, X, 1, BETA, Y, 0 );
248 chkxer();
249 cblas_info = 2; RowMajorStrg = TRUE;
250 cblas_ssbmv(CblasRowMajor, INVALID, 0, 0,
251 ALPHA, A, 1, X, 1, BETA, Y, 1 );
252 chkxer();
253 cblas_info = 3; RowMajorStrg = TRUE;
254 cblas_ssbmv(CblasRowMajor, CblasUpper, INVALID, 0,
255 ALPHA, A, 1, X, 1, BETA, Y, 1 );
256 chkxer();
257 cblas_info = 4; RowMajorStrg = TRUE;
258 cblas_ssbmv(CblasRowMajor, CblasUpper, 0, INVALID,
259 ALPHA, A, 1, X, 1, BETA, Y, 1 );
260 chkxer();
261 cblas_info = 7; RowMajorStrg = TRUE;
262 cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 1,
263 ALPHA, A, 1, X, 1, BETA, Y, 1 );
264 chkxer();
265 cblas_info = 9; RowMajorStrg = TRUE;
266 cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0,
267 ALPHA, A, 1, X, 0, BETA, Y, 1 );
268 chkxer();
269 cblas_info = 12; RowMajorStrg = TRUE;
270 cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0,
271 ALPHA, A, 1, X, 1, BETA, Y, 0 );
272 chkxer();
273 } else if (strncmp( sf,"cblas_sspmv",11)==0) {
274 cblas_rout = "cblas_sspmv";
275 cblas_info = 1; RowMajorStrg = FALSE;
276 cblas_sspmv(INVALID, CblasUpper, 0,
277 ALPHA, A, X, 1, BETA, Y, 1 );
278 chkxer();
279 cblas_info = 2; RowMajorStrg = FALSE;
280 cblas_sspmv(CblasColMajor, INVALID, 0,
281 ALPHA, A, X, 1, BETA, Y, 1 );
282 chkxer();
283 cblas_info = 3; RowMajorStrg = FALSE;
284 cblas_sspmv(CblasColMajor, CblasUpper, INVALID,
285 ALPHA, A, X, 1, BETA, Y, 1 );
286 chkxer();
287 cblas_info = 7; RowMajorStrg = FALSE;
288 cblas_sspmv(CblasColMajor, CblasUpper, 0,
289 ALPHA, A, X, 0, BETA, Y, 1 );
290 chkxer();
291 cblas_info = 10; RowMajorStrg = FALSE;
292 cblas_sspmv(CblasColMajor, CblasUpper, 0,
293 ALPHA, A, X, 1, BETA, Y, 0 );
294 chkxer();
295 cblas_info = 2; RowMajorStrg = TRUE;
296 cblas_sspmv(CblasRowMajor, INVALID, 0,
297 ALPHA, A, X, 1, BETA, Y, 1 );
298 chkxer();
299 cblas_info = 3; RowMajorStrg = TRUE;
300 cblas_sspmv(CblasRowMajor, CblasUpper, INVALID,
301 ALPHA, A, X, 1, BETA, Y, 1 );
302 chkxer();
303 cblas_info = 7; RowMajorStrg = TRUE;
304 cblas_sspmv(CblasRowMajor, CblasUpper, 0,
305 ALPHA, A, X, 0, BETA, Y, 1 );
306 chkxer();
307 cblas_info = 10; RowMajorStrg = TRUE;
308 cblas_sspmv(CblasRowMajor, CblasUpper, 0,
309 ALPHA, A, X, 1, BETA, Y, 0 );
310 chkxer();
311 } else if (strncmp( sf,"cblas_strmv",11)==0) {
312 cblas_rout = "cblas_strmv";
313 cblas_info = 1; RowMajorStrg = FALSE;
314 cblas_strmv(INVALID, CblasUpper, CblasNoTrans,
315 CblasNonUnit, 0, A, 1, X, 1 );
316 chkxer();
317 cblas_info = 2; RowMajorStrg = FALSE;
318 cblas_strmv(CblasColMajor, INVALID, CblasNoTrans,
319 CblasNonUnit, 0, A, 1, X, 1 );
320 chkxer();
321 cblas_info = 3; RowMajorStrg = FALSE;
322 cblas_strmv(CblasColMajor, CblasUpper, INVALID,
323 CblasNonUnit, 0, A, 1, X, 1 );
324 chkxer();
325 cblas_info = 4; RowMajorStrg = FALSE;
326 cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
327 INVALID, 0, A, 1, X, 1 );
328 chkxer();
329 cblas_info = 5; RowMajorStrg = FALSE;
330 cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
331 CblasNonUnit, INVALID, A, 1, X, 1 );
332 chkxer();
333 cblas_info = 7; RowMajorStrg = FALSE;
334 cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
335 CblasNonUnit, 2, A, 1, X, 1 );
336 chkxer();
337 cblas_info = 9; RowMajorStrg = FALSE;
338 cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
339 CblasNonUnit, 0, A, 1, X, 0 );
340 chkxer();
341 cblas_info = 2; RowMajorStrg = TRUE;
342 cblas_strmv(CblasRowMajor, INVALID, CblasNoTrans,
343 CblasNonUnit, 0, A, 1, X, 1 );
344 chkxer();
345 cblas_info = 3; RowMajorStrg = TRUE;
346 cblas_strmv(CblasRowMajor, CblasUpper, INVALID,
347 CblasNonUnit, 0, A, 1, X, 1 );
348 chkxer();
349 cblas_info = 4; RowMajorStrg = TRUE;
350 cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
351 INVALID, 0, A, 1, X, 1 );
352 chkxer();
353 cblas_info = 5; RowMajorStrg = TRUE;
354 cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
355 CblasNonUnit, INVALID, A, 1, X, 1 );
356 chkxer();
357 cblas_info = 7; RowMajorStrg = TRUE;
358 cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
359 CblasNonUnit, 2, A, 1, X, 1 );
360 chkxer();
361 cblas_info = 9; RowMajorStrg = TRUE;
362 cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
363 CblasNonUnit, 0, A, 1, X, 0 );
364 chkxer();
365 } else if (strncmp( sf,"cblas_stbmv",11)==0) {
366 cblas_rout = "cblas_stbmv";
367 cblas_info = 1; RowMajorStrg = FALSE;
368 cblas_stbmv(INVALID, CblasUpper, CblasNoTrans,
369 CblasNonUnit, 0, 0, A, 1, X, 1 );
370 chkxer();
371 cblas_info = 2; RowMajorStrg = FALSE;
372 cblas_stbmv(CblasColMajor, INVALID, CblasNoTrans,
373 CblasNonUnit, 0, 0, A, 1, X, 1 );
374 chkxer();
375 cblas_info = 3; RowMajorStrg = FALSE;
376 cblas_stbmv(CblasColMajor, CblasUpper, INVALID,
377 CblasNonUnit, 0, 0, A, 1, X, 1 );
378 chkxer();
379 cblas_info = 4; RowMajorStrg = FALSE;
380 cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
381 INVALID, 0, 0, A, 1, X, 1 );
382 chkxer();
383 cblas_info = 5; RowMajorStrg = FALSE;
384 cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
385 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
386 chkxer();
387 cblas_info = 6; RowMajorStrg = FALSE;
388 cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
389 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
390 chkxer();
391 cblas_info = 8; RowMajorStrg = FALSE;
392 cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
393 CblasNonUnit, 0, 1, A, 1, X, 1 );
394 chkxer();
395 cblas_info = 10; RowMajorStrg = FALSE;
396 cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
397 CblasNonUnit, 0, 0, A, 1, X, 0 );
398 chkxer();
399 cblas_info = 2; RowMajorStrg = TRUE;
400 cblas_stbmv(CblasRowMajor, INVALID, CblasNoTrans,
401 CblasNonUnit, 0, 0, A, 1, X, 1 );
402 chkxer();
403 cblas_info = 3; RowMajorStrg = TRUE;
404 cblas_stbmv(CblasRowMajor, CblasUpper, INVALID,
405 CblasNonUnit, 0, 0, A, 1, X, 1 );
406 chkxer();
407 cblas_info = 4; RowMajorStrg = TRUE;
408 cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
409 INVALID, 0, 0, A, 1, X, 1 );
410 chkxer();
411 cblas_info = 5; RowMajorStrg = TRUE;
412 cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
413 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
414 chkxer();
415 cblas_info = 6; RowMajorStrg = TRUE;
416 cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
417 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
418 chkxer();
419 cblas_info = 8; RowMajorStrg = TRUE;
420 cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
421 CblasNonUnit, 0, 1, A, 1, X, 1 );
422 chkxer();
423 cblas_info = 10; RowMajorStrg = TRUE;
424 cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
425 CblasNonUnit, 0, 0, A, 1, X, 0 );
426 chkxer();
427 } else if (strncmp( sf,"cblas_stpmv",11)==0) {
428 cblas_rout = "cblas_stpmv";
429 cblas_info = 1; RowMajorStrg = FALSE;
430 cblas_stpmv(INVALID, CblasUpper, CblasNoTrans,
431 CblasNonUnit, 0, A, X, 1 );
432 chkxer();
433 cblas_info = 2; RowMajorStrg = FALSE;
434 cblas_stpmv(CblasColMajor, INVALID, CblasNoTrans,
435 CblasNonUnit, 0, A, X, 1 );
436 chkxer();
437 cblas_info = 3; RowMajorStrg = FALSE;
438 cblas_stpmv(CblasColMajor, CblasUpper, INVALID,
439 CblasNonUnit, 0, A, X, 1 );
440 chkxer();
441 cblas_info = 4; RowMajorStrg = FALSE;
442 cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
443 INVALID, 0, A, X, 1 );
444 chkxer();
445 cblas_info = 5; RowMajorStrg = FALSE;
446 cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
447 CblasNonUnit, INVALID, A, X, 1 );
448 chkxer();
449 cblas_info = 8; RowMajorStrg = FALSE;
450 cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
451 CblasNonUnit, 0, A, X, 0 );
452 chkxer();
453 cblas_info = 2; RowMajorStrg = TRUE;
454 cblas_stpmv(CblasRowMajor, INVALID, CblasNoTrans,
455 CblasNonUnit, 0, A, X, 1 );
456 chkxer();
457 cblas_info = 3; RowMajorStrg = TRUE;
458 cblas_stpmv(CblasRowMajor, CblasUpper, INVALID,
459 CblasNonUnit, 0, A, X, 1 );
460 chkxer();
461 cblas_info = 4; RowMajorStrg = TRUE;
462 cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
463 INVALID, 0, A, X, 1 );
464 chkxer();
465 cblas_info = 5; RowMajorStrg = TRUE;
466 cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
467 CblasNonUnit, INVALID, A, X, 1 );
468 chkxer();
469 cblas_info = 8; RowMajorStrg = TRUE;
470 cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
471 CblasNonUnit, 0, A, X, 0 );
472 chkxer();
473 } else if (strncmp( sf,"cblas_strsv",11)==0) {
474 cblas_rout = "cblas_strsv";
475 cblas_info = 1; RowMajorStrg = FALSE;
476 cblas_strsv(INVALID, CblasUpper, CblasNoTrans,
477 CblasNonUnit, 0, A, 1, X, 1 );
478 chkxer();
479 cblas_info = 2; RowMajorStrg = FALSE;
480 cblas_strsv(CblasColMajor, INVALID, CblasNoTrans,
481 CblasNonUnit, 0, A, 1, X, 1 );
482 chkxer();
483 cblas_info = 3; RowMajorStrg = FALSE;
484 cblas_strsv(CblasColMajor, CblasUpper, INVALID,
485 CblasNonUnit, 0, A, 1, X, 1 );
486 chkxer();
487 cblas_info = 4; RowMajorStrg = FALSE;
488 cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
489 INVALID, 0, A, 1, X, 1 );
490 chkxer();
491 cblas_info = 5; RowMajorStrg = FALSE;
492 cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
493 CblasNonUnit, INVALID, A, 1, X, 1 );
494 chkxer();
495 cblas_info = 7; RowMajorStrg = FALSE;
496 cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
497 CblasNonUnit, 2, A, 1, X, 1 );
498 chkxer();
499 cblas_info = 9; RowMajorStrg = FALSE;
500 cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
501 CblasNonUnit, 0, A, 1, X, 0 );
502 chkxer();
503 cblas_info = 2; RowMajorStrg = TRUE;
504 cblas_strsv(CblasRowMajor, INVALID, CblasNoTrans,
505 CblasNonUnit, 0, A, 1, X, 1 );
506 chkxer();
507 cblas_info = 3; RowMajorStrg = TRUE;
508 cblas_strsv(CblasRowMajor, CblasUpper, INVALID,
509 CblasNonUnit, 0, A, 1, X, 1 );
510 chkxer();
511 cblas_info = 4; RowMajorStrg = TRUE;
512 cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
513 INVALID, 0, A, 1, X, 1 );
514 chkxer();
515 cblas_info = 5; RowMajorStrg = TRUE;
516 cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
517 CblasNonUnit, INVALID, A, 1, X, 1 );
518 chkxer();
519 cblas_info = 7; RowMajorStrg = TRUE;
520 cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
521 CblasNonUnit, 2, A, 1, X, 1 );
522 chkxer();
523 cblas_info = 9; RowMajorStrg = TRUE;
524 cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
525 CblasNonUnit, 0, A, 1, X, 0 );
526 chkxer();
527 } else if (strncmp( sf,"cblas_stbsv",11)==0) {
528 cblas_rout = "cblas_stbsv";
529 cblas_info = 1; RowMajorStrg = FALSE;
530 cblas_stbsv(INVALID, CblasUpper, CblasNoTrans,
531 CblasNonUnit, 0, 0, A, 1, X, 1 );
532 chkxer();
533 cblas_info = 2; RowMajorStrg = FALSE;
534 cblas_stbsv(CblasColMajor, INVALID, CblasNoTrans,
535 CblasNonUnit, 0, 0, A, 1, X, 1 );
536 chkxer();
537 cblas_info = 3; RowMajorStrg = FALSE;
538 cblas_stbsv(CblasColMajor, CblasUpper, INVALID,
539 CblasNonUnit, 0, 0, A, 1, X, 1 );
540 chkxer();
541 cblas_info = 4; RowMajorStrg = FALSE;
542 cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
543 INVALID, 0, 0, A, 1, X, 1 );
544 chkxer();
545 cblas_info = 5; RowMajorStrg = FALSE;
546 cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
547 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
548 chkxer();
549 cblas_info = 6; RowMajorStrg = FALSE;
550 cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
551 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
552 chkxer();
553 cblas_info = 8; RowMajorStrg = FALSE;
554 cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
555 CblasNonUnit, 0, 1, A, 1, X, 1 );
556 chkxer();
557 cblas_info = 10; RowMajorStrg = FALSE;
558 cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
559 CblasNonUnit, 0, 0, A, 1, X, 0 );
560 chkxer();
561 cblas_info = 2; RowMajorStrg = TRUE;
562 cblas_stbsv(CblasRowMajor, INVALID, CblasNoTrans,
563 CblasNonUnit, 0, 0, A, 1, X, 1 );
564 chkxer();
565 cblas_info = 3; RowMajorStrg = TRUE;
566 cblas_stbsv(CblasRowMajor, CblasUpper, INVALID,
567 CblasNonUnit, 0, 0, A, 1, X, 1 );
568 chkxer();
569 cblas_info = 4; RowMajorStrg = TRUE;
570 cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
571 INVALID, 0, 0, A, 1, X, 1 );
572 chkxer();
573 cblas_info = 5; RowMajorStrg = TRUE;
574 cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
575 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
576 chkxer();
577 cblas_info = 6; RowMajorStrg = TRUE;
578 cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
579 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
580 chkxer();
581 cblas_info = 8; RowMajorStrg = TRUE;
582 cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
583 CblasNonUnit, 0, 1, A, 1, X, 1 );
584 chkxer();
585 cblas_info = 10; RowMajorStrg = TRUE;
586 cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
587 CblasNonUnit, 0, 0, A, 1, X, 0 );
588 chkxer();
589 } else if (strncmp( sf,"cblas_stpsv",11)==0) {
590 cblas_rout = "cblas_stpsv";
591 cblas_info = 1; RowMajorStrg = FALSE;
592 cblas_stpsv(INVALID, CblasUpper, CblasNoTrans,
593 CblasNonUnit, 0, A, X, 1 );
594 chkxer();
595 cblas_info = 2; RowMajorStrg = FALSE;
596 cblas_stpsv(CblasColMajor, INVALID, CblasNoTrans,
597 CblasNonUnit, 0, A, X, 1 );
598 chkxer();
599 cblas_info = 3; RowMajorStrg = FALSE;
600 cblas_stpsv(CblasColMajor, CblasUpper, INVALID,
601 CblasNonUnit, 0, A, X, 1 );
602 chkxer();
603 cblas_info = 4; RowMajorStrg = FALSE;
604 cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
605 INVALID, 0, A, X, 1 );
606 chkxer();
607 cblas_info = 5; RowMajorStrg = FALSE;
608 cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
609 CblasNonUnit, INVALID, A, X, 1 );
610 chkxer();
611 cblas_info = 8; RowMajorStrg = FALSE;
612 cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
613 CblasNonUnit, 0, A, X, 0 );
614 chkxer();
615 cblas_info = 2; RowMajorStrg = TRUE;
616 cblas_stpsv(CblasRowMajor, INVALID, CblasNoTrans,
617 CblasNonUnit, 0, A, X, 1 );
618 chkxer();
619 cblas_info = 3; RowMajorStrg = TRUE;
620 cblas_stpsv(CblasRowMajor, CblasUpper, INVALID,
621 CblasNonUnit, 0, A, X, 1 );
622 chkxer();
623 cblas_info = 4; RowMajorStrg = TRUE;
624 cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
625 INVALID, 0, A, X, 1 );
626 chkxer();
627 cblas_info = 5; RowMajorStrg = TRUE;
628 cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
629 CblasNonUnit, INVALID, A, X, 1 );
630 chkxer();
631 cblas_info = 8; RowMajorStrg = TRUE;
632 cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
633 CblasNonUnit, 0, A, X, 0 );
634 chkxer();
635 } else if (strncmp( sf,"cblas_sger",10)==0) {
636 cblas_rout = "cblas_sger";
637 cblas_info = 1; RowMajorStrg = FALSE;
638 cblas_sger(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
639 chkxer();
640 cblas_info = 2; RowMajorStrg = FALSE;
641 cblas_sger(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
642 chkxer();
643 cblas_info = 3; RowMajorStrg = FALSE;
644 cblas_sger(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
645 chkxer();
646 cblas_info = 6; RowMajorStrg = FALSE;
647 cblas_sger(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
648 chkxer();
649 cblas_info = 8; RowMajorStrg = FALSE;
650 cblas_sger(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
651 chkxer();
652 cblas_info = 10; RowMajorStrg = FALSE;
653 cblas_sger(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
654 chkxer();
655 cblas_info = 2; RowMajorStrg = TRUE;
656 cblas_sger(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
657 chkxer();
658 cblas_info = 3; RowMajorStrg = TRUE;
659 cblas_sger(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
660 chkxer();
661 cblas_info = 6; RowMajorStrg = TRUE;
662 cblas_sger(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
663 chkxer();
664 cblas_info = 8; RowMajorStrg = TRUE;
665 cblas_sger(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
666 chkxer();
667 cblas_info = 10; RowMajorStrg = TRUE;
668 cblas_sger(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
669 chkxer();
670 } else if (strncmp( sf,"cblas_ssyr2",11)==0) {
671 cblas_rout = "cblas_ssyr2";
672 cblas_info = 1; RowMajorStrg = FALSE;
673 cblas_ssyr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
674 chkxer();
675 cblas_info = 2; RowMajorStrg = FALSE;
676 cblas_ssyr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
677 chkxer();
678 cblas_info = 3; RowMajorStrg = FALSE;
679 cblas_ssyr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
680 chkxer();
681 cblas_info = 6; RowMajorStrg = FALSE;
682 cblas_ssyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
683 chkxer();
684 cblas_info = 8; RowMajorStrg = FALSE;
685 cblas_ssyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
686 chkxer();
687 cblas_info = 10; RowMajorStrg = FALSE;
688 cblas_ssyr2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
689 chkxer();
690 cblas_info = 2; RowMajorStrg = TRUE;
691 cblas_ssyr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
692 chkxer();
693 cblas_info = 3; RowMajorStrg = TRUE;
694 cblas_ssyr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
695 chkxer();
696 cblas_info = 6; RowMajorStrg = TRUE;
697 cblas_ssyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
698 chkxer();
699 cblas_info = 8; RowMajorStrg = TRUE;
700 cblas_ssyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
701 chkxer();
702 cblas_info = 10; RowMajorStrg = TRUE;
703 cblas_ssyr2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
704 chkxer();
705 } else if (strncmp( sf,"cblas_sspr2",11)==0) {
706 cblas_rout = "cblas_sspr2";
707 cblas_info = 1; RowMajorStrg = FALSE;
708 cblas_sspr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
709 chkxer();
710 cblas_info = 2; RowMajorStrg = FALSE;
711 cblas_sspr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
712 chkxer();
713 cblas_info = 3; RowMajorStrg = FALSE;
714 cblas_sspr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
715 chkxer();
716 cblas_info = 6; RowMajorStrg = FALSE;
717 cblas_sspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
718 chkxer();
719 cblas_info = 8; RowMajorStrg = FALSE;
720 cblas_sspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
721 chkxer();
722 cblas_info = 2; RowMajorStrg = TRUE;
723 cblas_sspr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
724 chkxer();
725 cblas_info = 3; RowMajorStrg = TRUE;
726 cblas_sspr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
727 chkxer();
728 cblas_info = 6; RowMajorStrg = TRUE;
729 cblas_sspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
730 chkxer();
731 cblas_info = 8; RowMajorStrg = TRUE;
732 cblas_sspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
733 chkxer();
734 } else if (strncmp( sf,"cblas_ssyr",10)==0) {
735 cblas_rout = "cblas_ssyr";
736 cblas_info = 1; RowMajorStrg = FALSE;
737 cblas_ssyr(INVALID, CblasUpper, 0, ALPHA, X, 1, A, 1 );
738 chkxer();
739 cblas_info = 2; RowMajorStrg = FALSE;
740 cblas_ssyr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
741 chkxer();
742 cblas_info = 3; RowMajorStrg = FALSE;
743 cblas_ssyr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
744 chkxer();
745 cblas_info = 6; RowMajorStrg = FALSE;
746 cblas_ssyr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
747 chkxer();
748 cblas_info = 8; RowMajorStrg = FALSE;
749 cblas_ssyr(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
750 chkxer();
751 cblas_info = 2; RowMajorStrg = TRUE;
752 cblas_ssyr(CblasRowMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
753 chkxer();
754 cblas_info = 3; RowMajorStrg = TRUE;
755 cblas_ssyr(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
756 chkxer();
757 cblas_info = 6; RowMajorStrg = TRUE;
758 cblas_ssyr(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
759 chkxer();
760 cblas_info = 8; RowMajorStrg = TRUE;
761 cblas_ssyr(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
762 chkxer();
763 } else if (strncmp( sf,"cblas_sspr",10)==0) {
764 cblas_rout = "cblas_sspr";
765 cblas_info = 1; RowMajorStrg = FALSE;
766 cblas_sspr(INVALID, CblasUpper, 0, ALPHA, X, 1, A );
767 chkxer();
768 cblas_info = 2; RowMajorStrg = FALSE;
769 cblas_sspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
770 chkxer();
771 cblas_info = 3; RowMajorStrg = FALSE;
772 cblas_sspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
773 chkxer();
774 cblas_info = 6; RowMajorStrg = FALSE;
775 cblas_sspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
776 chkxer();
777 cblas_info = 2; RowMajorStrg = FALSE;
778 cblas_sspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
779 chkxer();
780 cblas_info = 3; RowMajorStrg = FALSE;
781 cblas_sspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
782 chkxer();
783 cblas_info = 6; RowMajorStrg = FALSE;
784 cblas_sspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
785 chkxer();
786 }
787 if (cblas_ok == TRUE)
788 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
789 else
790 printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
791}
link_xerbla
int link_xerbla
Definition c_c2chke.c:7
cblas_lerr
int cblas_lerr
Definition c_c2chke.c:6
cblas_info
int cblas_info
Definition c_c2chke.c:6
cblas_ok
int cblas_ok
Definition c_c2chke.c:6
cblas_rout
char * cblas_rout
Definition c_c2chke.c:8
chkxer
void chkxer(void)
Definition c_s2chke.c:16
cblas_sspmv
void cblas_sspmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *Ap, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
Definition cblas_sspmv.c:11
cblas_ssymv
void cblas_ssymv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
Definition cblas_ssymv.c:12
cblas_sgemv
void cblas_sgemv(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
Definition cblas_sgemv.c:11
CblasUpper
@ CblasUpper
Definition cblas.h:29
cblas_xerbla
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
Definition cblas_xerbla.c:12
cblas_strsv
void cblas_strsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
Definition cblas_strsv.c:10
CblasNoTrans
@ CblasNoTrans
Definition cblas.h:28
cblas_sspr
void cblas_sspr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *Ap)
Definition cblas_sspr.c:12
cblas_sgbmv
void cblas_sgbmv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
Definition cblas_sgbmv.c:12
cblas_strmv
void cblas_strmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
Definition cblas_strmv.c:11
cblas_ssyr2
void cblas_ssyr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda)
Definition cblas_ssyr2.c:12
CblasColMajor
@ CblasColMajor
Definition cblas.h:27
CblasRowMajor
@ CblasRowMajor
Definition cblas.h:27
cblas_stbmv
void cblas_stbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
Definition cblas_stbmv.c:10
cblas_sger
void cblas_sger(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda)
Definition cblas_sger.c:12
CblasNonUnit
@ CblasNonUnit
Definition cblas.h:30
cblas_stpsv
void cblas_stpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX)
Definition cblas_stpsv.c:10
cblas_ssbmv
void cblas_ssbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, const CBLAS_INT lda, const float *X, const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY)
Definition cblas_ssbmv.c:11
cblas_stbsv
void cblas_stbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, float *X, const CBLAS_INT incX)
Definition cblas_stbsv.c:10
cblas_ssyr
void cblas_ssyr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, float *A, const CBLAS_INT lda)
Definition cblas_ssyr.c:11
cblas_stpmv
void cblas_stpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX)
Definition cblas_stpmv.c:11
cblas_sspr2
void cblas_sspr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A)
Definition cblas_sspr2.c:12
INVALID
#define INVALID
Definition cblas_example2.c:8
F77_xerbla
#define F77_xerbla(...)
Definition cblas_f77.h:534
RowMajorStrg
int RowMajorStrg
Definition cblas_globals.c:2
cblas_test.h
F77_s2chke
#define F77_s2chke
Definition cblas_test.h:77
TRUE
#define TRUE
Definition cblas_test.h:10
FALSE
#define FALSE
Definition cblas_test.h:14
PASSED
#define PASSED
Definition cblas_test.h:11