LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ F77_s2chke()

void F77_s2chke ( char * rout)

Definition at line 31 of file c_s2chke.c.

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