LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
•All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Modules Pages
c_d2chke.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_d2chke(char *rout
32#ifdef BLAS_FORTRAN_STRLEN_END
33 , FORTRAN_STRLEN rout_len
34#endif
35) {
36 char *sf = ( rout ) ;
37 double A[2] = {0.0,0.0},
38 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_dgemv",11)==0) {
57 cblas_rout = "cblas_dgemv";
58 cblas_info = 1;
59 cblas_dgemv(INVALID, CblasNoTrans, 0, 0,
60 ALPHA, A, 1, X, 1, BETA, Y, 1 );
61 chkxer();
62 cblas_info = 2; RowMajorStrg = FALSE;
63 cblas_dgemv(CblasColMajor, INVALID, 0, 0,
64 ALPHA, A, 1, X, 1, BETA, Y, 1 );
65 chkxer();
66 cblas_info = 3; RowMajorStrg = FALSE;
67 cblas_dgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
68 ALPHA, A, 1, X, 1, BETA, Y, 1 );
69 chkxer();
70 cblas_info = 4; RowMajorStrg = FALSE;
71 cblas_dgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
72 ALPHA, A, 1, X, 1, BETA, Y, 1 );
73 chkxer();
74 cblas_info = 7; RowMajorStrg = FALSE;
75 cblas_dgemv(CblasColMajor, CblasNoTrans, 2, 0,
76 ALPHA, A, 1, X, 1, BETA, Y, 1 );
77 chkxer();
78 cblas_info = 9; RowMajorStrg = FALSE;
79 cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0,
80 ALPHA, A, 1, X, 0, BETA, Y, 1 );
81 chkxer();
82 cblas_info = 12; RowMajorStrg = FALSE;
83 cblas_dgemv(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_dgemv(CblasRowMajor, INVALID, 0, 0,
89 ALPHA, A, 1, X, 1, BETA, Y, 1 );
90 chkxer();
91 cblas_info = 3; RowMajorStrg = TRUE;
92 cblas_dgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
93 ALPHA, A, 1, X, 1, BETA, Y, 1 );
94 chkxer();
95 cblas_info = 4; RowMajorStrg = TRUE;
96 cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
97 ALPHA, A, 1, X, 1, BETA, Y, 1 );
98 chkxer();
99 cblas_info = 7; RowMajorStrg = TRUE;
100 cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 2,
101 ALPHA, A, 1, X, 1, BETA, Y, 1 );
102 chkxer();
103 cblas_info = 9; RowMajorStrg = TRUE;
104 cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0,
105 ALPHA, A, 1, X, 0, BETA, Y, 1 );
106 chkxer();
107 cblas_info = 12; RowMajorStrg = TRUE;
108 cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0,
109 ALPHA, A, 1, X, 1, BETA, Y, 0 );
110 chkxer();
111 } else if (strncmp( sf,"cblas_dgbmv",11)==0) {
112 cblas_rout = "cblas_dgbmv";
113 cblas_info = 1; RowMajorStrg = FALSE;
114 cblas_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(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_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
179 ALPHA, A, 1, X, 1, BETA, Y, 0 );
180 chkxer();
181 } else if (strncmp( sf,"cblas_dsymv",11)==0) {
182 cblas_rout = "cblas_dsymv";
183 cblas_info = 1; RowMajorStrg = FALSE;
184 cblas_dsymv(INVALID, CblasUpper, 0,
185 ALPHA, A, 1, X, 1, BETA, Y, 1 );
186 chkxer();
187 cblas_info = 2; RowMajorStrg = FALSE;
188 cblas_dsymv(CblasColMajor, INVALID, 0,
189 ALPHA, A, 1, X, 1, BETA, Y, 1 );
190 chkxer();
191 cblas_info = 3; RowMajorStrg = FALSE;
192 cblas_dsymv(CblasColMajor, CblasUpper, INVALID,
193 ALPHA, A, 1, X, 1, BETA, Y, 1 );
194 chkxer();
195 cblas_info = 6; RowMajorStrg = FALSE;
196 cblas_dsymv(CblasColMajor, CblasUpper, 2,
197 ALPHA, A, 1, X, 1, BETA, Y, 1 );
198 chkxer();
199 cblas_info = 8; RowMajorStrg = FALSE;
200 cblas_dsymv(CblasColMajor, CblasUpper, 0,
201 ALPHA, A, 1, X, 0, BETA, Y, 1 );
202 chkxer();
203 cblas_info = 11; RowMajorStrg = FALSE;
204 cblas_dsymv(CblasColMajor, CblasUpper, 0,
205 ALPHA, A, 1, X, 1, BETA, Y, 0 );
206 chkxer();
207 cblas_info = 2; RowMajorStrg = TRUE;
208 cblas_dsymv(CblasRowMajor, INVALID, 0,
209 ALPHA, A, 1, X, 1, BETA, Y, 1 );
210 chkxer();
211 cblas_info = 3; RowMajorStrg = TRUE;
212 cblas_dsymv(CblasRowMajor, CblasUpper, INVALID,
213 ALPHA, A, 1, X, 1, BETA, Y, 1 );
214 chkxer();
215 cblas_info = 6; RowMajorStrg = TRUE;
216 cblas_dsymv(CblasRowMajor, CblasUpper, 2,
217 ALPHA, A, 1, X, 1, BETA, Y, 1 );
218 chkxer();
219 cblas_info = 8; RowMajorStrg = TRUE;
220 cblas_dsymv(CblasRowMajor, CblasUpper, 0,
221 ALPHA, A, 1, X, 0, BETA, Y, 1 );
222 chkxer();
223 cblas_info = 11; RowMajorStrg = TRUE;
224 cblas_dsymv(CblasRowMajor, CblasUpper, 0,
225 ALPHA, A, 1, X, 1, BETA, Y, 0 );
226 chkxer();
227 } else if (strncmp( sf,"cblas_dsbmv",11)==0) {
228 cblas_rout = "cblas_dsbmv";
229 cblas_info = 1; RowMajorStrg = FALSE;
230 cblas_dsbmv(INVALID, CblasUpper, 0, 0,
231 ALPHA, A, 1, X, 1, BETA, Y, 1 );
232 chkxer();
233 cblas_info = 2; RowMajorStrg = FALSE;
234 cblas_dsbmv(CblasColMajor, INVALID, 0, 0,
235 ALPHA, A, 1, X, 1, BETA, Y, 1 );
236 chkxer();
237 cblas_info = 3; RowMajorStrg = FALSE;
238 cblas_dsbmv(CblasColMajor, CblasUpper, INVALID, 0,
239 ALPHA, A, 1, X, 1, BETA, Y, 1 );
240 chkxer();
241 cblas_info = 4; RowMajorStrg = FALSE;
242 cblas_dsbmv(CblasColMajor, CblasUpper, 0, INVALID,
243 ALPHA, A, 1, X, 1, BETA, Y, 1 );
244 chkxer();
245 cblas_info = 7; RowMajorStrg = FALSE;
246 cblas_dsbmv(CblasColMajor, CblasUpper, 0, 1,
247 ALPHA, A, 1, X, 1, BETA, Y, 1 );
248 chkxer();
249 cblas_info = 9; RowMajorStrg = FALSE;
250 cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0,
251 ALPHA, A, 1, X, 0, BETA, Y, 1 );
252 chkxer();
253 cblas_info = 12; RowMajorStrg = FALSE;
254 cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0,
255 ALPHA, A, 1, X, 1, BETA, Y, 0 );
256 chkxer();
257 cblas_info = 2; RowMajorStrg = TRUE;
258 cblas_dsbmv(CblasRowMajor, INVALID, 0, 0,
259 ALPHA, A, 1, X, 1, BETA, Y, 1 );
260 chkxer();
261 cblas_info = 3; RowMajorStrg = TRUE;
262 cblas_dsbmv(CblasRowMajor, CblasUpper, INVALID, 0,
263 ALPHA, A, 1, X, 1, BETA, Y, 1 );
264 chkxer();
265 cblas_info = 4; RowMajorStrg = TRUE;
266 cblas_dsbmv(CblasRowMajor, CblasUpper, 0, INVALID,
267 ALPHA, A, 1, X, 1, BETA, Y, 1 );
268 chkxer();
269 cblas_info = 7; RowMajorStrg = TRUE;
270 cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 1,
271 ALPHA, A, 1, X, 1, BETA, Y, 1 );
272 chkxer();
273 cblas_info = 9; RowMajorStrg = TRUE;
274 cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0,
275 ALPHA, A, 1, X, 0, BETA, Y, 1 );
276 chkxer();
277 cblas_info = 12; RowMajorStrg = TRUE;
278 cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0,
279 ALPHA, A, 1, X, 1, BETA, Y, 0 );
280 chkxer();
281 } else if (strncmp( sf,"cblas_dspmv",11)==0) {
282 cblas_rout = "cblas_dspmv";
283 cblas_info = 1; RowMajorStrg = FALSE;
284 cblas_dspmv(INVALID, CblasUpper, 0,
285 ALPHA, A, X, 1, BETA, Y, 1 );
286 chkxer();
287 cblas_info = 2; RowMajorStrg = FALSE;
288 cblas_dspmv(CblasColMajor, INVALID, 0,
289 ALPHA, A, X, 1, BETA, Y, 1 );
290 chkxer();
291 cblas_info = 3; RowMajorStrg = FALSE;
292 cblas_dspmv(CblasColMajor, CblasUpper, INVALID,
293 ALPHA, A, X, 1, BETA, Y, 1 );
294 chkxer();
295 cblas_info = 7; RowMajorStrg = FALSE;
296 cblas_dspmv(CblasColMajor, CblasUpper, 0,
297 ALPHA, A, X, 0, BETA, Y, 1 );
298 chkxer();
299 cblas_info = 10; RowMajorStrg = FALSE;
300 cblas_dspmv(CblasColMajor, CblasUpper, 0,
301 ALPHA, A, X, 1, BETA, Y, 0 );
302 chkxer();
303 cblas_info = 2; RowMajorStrg = TRUE;
304 cblas_dspmv(CblasRowMajor, INVALID, 0,
305 ALPHA, A, X, 1, BETA, Y, 1 );
306 chkxer();
307 cblas_info = 3; RowMajorStrg = TRUE;
308 cblas_dspmv(CblasRowMajor, CblasUpper, INVALID,
309 ALPHA, A, X, 1, BETA, Y, 1 );
310 chkxer();
311 cblas_info = 7; RowMajorStrg = TRUE;
312 cblas_dspmv(CblasRowMajor, CblasUpper, 0,
313 ALPHA, A, X, 0, BETA, Y, 1 );
314 chkxer();
315 cblas_info = 10; RowMajorStrg = TRUE;
316 cblas_dspmv(CblasRowMajor, CblasUpper, 0,
317 ALPHA, A, X, 1, BETA, Y, 0 );
318 chkxer();
319 } else if (strncmp( sf,"cblas_dtrmv",11)==0) {
320 cblas_rout = "cblas_dtrmv";
321 cblas_info = 1; RowMajorStrg = FALSE;
322 cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans,
323 CblasNonUnit, 0, A, 1, X, 1 );
324 chkxer();
325 cblas_info = 2; RowMajorStrg = FALSE;
326 cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans,
327 CblasNonUnit, 0, A, 1, X, 1 );
328 chkxer();
329 cblas_info = 3; RowMajorStrg = FALSE;
330 cblas_dtrmv(CblasColMajor, CblasUpper, INVALID,
331 CblasNonUnit, 0, A, 1, X, 1 );
332 chkxer();
333 cblas_info = 4; RowMajorStrg = FALSE;
334 cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
335 INVALID, 0, A, 1, X, 1 );
336 chkxer();
337 cblas_info = 5; RowMajorStrg = FALSE;
338 cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
339 CblasNonUnit, INVALID, A, 1, X, 1 );
340 chkxer();
341 cblas_info = 7; RowMajorStrg = FALSE;
342 cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
343 CblasNonUnit, 2, A, 1, X, 1 );
344 chkxer();
345 cblas_info = 9; RowMajorStrg = FALSE;
346 cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
347 CblasNonUnit, 0, A, 1, X, 0 );
348 chkxer();
349 cblas_info = 2; RowMajorStrg = TRUE;
350 cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans,
351 CblasNonUnit, 0, A, 1, X, 1 );
352 chkxer();
353 cblas_info = 3; RowMajorStrg = TRUE;
354 cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID,
355 CblasNonUnit, 0, A, 1, X, 1 );
356 chkxer();
357 cblas_info = 4; RowMajorStrg = TRUE;
358 cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
359 INVALID, 0, A, 1, X, 1 );
360 chkxer();
361 cblas_info = 5; RowMajorStrg = TRUE;
362 cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
363 CblasNonUnit, INVALID, A, 1, X, 1 );
364 chkxer();
365 cblas_info = 7; RowMajorStrg = TRUE;
366 cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
367 CblasNonUnit, 2, A, 1, X, 1 );
368 chkxer();
369 cblas_info = 9; RowMajorStrg = TRUE;
370 cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
371 CblasNonUnit, 0, A, 1, X, 0 );
372 chkxer();
373 } else if (strncmp( sf,"cblas_dtbmv",11)==0) {
374 cblas_rout = "cblas_dtbmv";
375 cblas_info = 1; RowMajorStrg = FALSE;
376 cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans,
377 CblasNonUnit, 0, 0, A, 1, X, 1 );
378 chkxer();
379 cblas_info = 2; RowMajorStrg = FALSE;
380 cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans,
381 CblasNonUnit, 0, 0, A, 1, X, 1 );
382 chkxer();
383 cblas_info = 3; RowMajorStrg = FALSE;
384 cblas_dtbmv(CblasColMajor, CblasUpper, INVALID,
385 CblasNonUnit, 0, 0, A, 1, X, 1 );
386 chkxer();
387 cblas_info = 4; RowMajorStrg = FALSE;
388 cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
389 INVALID, 0, 0, A, 1, X, 1 );
390 chkxer();
391 cblas_info = 5; RowMajorStrg = FALSE;
392 cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
393 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
394 chkxer();
395 cblas_info = 6; RowMajorStrg = FALSE;
396 cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
397 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
398 chkxer();
399 cblas_info = 8; RowMajorStrg = FALSE;
400 cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
401 CblasNonUnit, 0, 1, A, 1, X, 1 );
402 chkxer();
403 cblas_info = 10; RowMajorStrg = FALSE;
404 cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
405 CblasNonUnit, 0, 0, A, 1, X, 0 );
406 chkxer();
407 cblas_info = 2; RowMajorStrg = TRUE;
408 cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans,
409 CblasNonUnit, 0, 0, A, 1, X, 1 );
410 chkxer();
411 cblas_info = 3; RowMajorStrg = TRUE;
412 cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID,
413 CblasNonUnit, 0, 0, A, 1, X, 1 );
414 chkxer();
415 cblas_info = 4; RowMajorStrg = TRUE;
416 cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
417 INVALID, 0, 0, A, 1, X, 1 );
418 chkxer();
419 cblas_info = 5; RowMajorStrg = TRUE;
420 cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
421 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
422 chkxer();
423 cblas_info = 6; RowMajorStrg = TRUE;
424 cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
425 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
426 chkxer();
427 cblas_info = 8; RowMajorStrg = TRUE;
428 cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
429 CblasNonUnit, 0, 1, A, 1, X, 1 );
430 chkxer();
431 cblas_info = 10; RowMajorStrg = TRUE;
432 cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
433 CblasNonUnit, 0, 0, A, 1, X, 0 );
434 chkxer();
435 } else if (strncmp( sf,"cblas_dtpmv",11)==0) {
436 cblas_rout = "cblas_dtpmv";
437 cblas_info = 1; RowMajorStrg = FALSE;
438 cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans,
439 CblasNonUnit, 0, A, X, 1 );
440 chkxer();
441 cblas_info = 2; RowMajorStrg = FALSE;
442 cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans,
443 CblasNonUnit, 0, A, X, 1 );
444 chkxer();
445 cblas_info = 3; RowMajorStrg = FALSE;
446 cblas_dtpmv(CblasColMajor, CblasUpper, INVALID,
447 CblasNonUnit, 0, A, X, 1 );
448 chkxer();
449 cblas_info = 4; RowMajorStrg = FALSE;
450 cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
451 INVALID, 0, A, X, 1 );
452 chkxer();
453 cblas_info = 5; RowMajorStrg = FALSE;
454 cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
455 CblasNonUnit, INVALID, A, X, 1 );
456 chkxer();
457 cblas_info = 8; RowMajorStrg = FALSE;
458 cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
459 CblasNonUnit, 0, A, X, 0 );
460 chkxer();
461 cblas_info = 2; RowMajorStrg = TRUE;
462 cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans,
463 CblasNonUnit, 0, A, X, 1 );
464 chkxer();
465 cblas_info = 3; RowMajorStrg = TRUE;
466 cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID,
467 CblasNonUnit, 0, A, X, 1 );
468 chkxer();
469 cblas_info = 4; RowMajorStrg = TRUE;
470 cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
471 INVALID, 0, A, X, 1 );
472 chkxer();
473 cblas_info = 5; RowMajorStrg = TRUE;
474 cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
475 CblasNonUnit, INVALID, A, X, 1 );
476 chkxer();
477 cblas_info = 8; RowMajorStrg = TRUE;
478 cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
479 CblasNonUnit, 0, A, X, 0 );
480 chkxer();
481 } else if (strncmp( sf,"cblas_dtrsv",11)==0) {
482 cblas_rout = "cblas_dtrsv";
483 cblas_info = 1; RowMajorStrg = FALSE;
484 cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans,
485 CblasNonUnit, 0, A, 1, X, 1 );
486 chkxer();
487 cblas_info = 2; RowMajorStrg = FALSE;
488 cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans,
489 CblasNonUnit, 0, A, 1, X, 1 );
490 chkxer();
491 cblas_info = 3; RowMajorStrg = FALSE;
492 cblas_dtrsv(CblasColMajor, CblasUpper, INVALID,
493 CblasNonUnit, 0, A, 1, X, 1 );
494 chkxer();
495 cblas_info = 4; RowMajorStrg = FALSE;
496 cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
497 INVALID, 0, A, 1, X, 1 );
498 chkxer();
499 cblas_info = 5; RowMajorStrg = FALSE;
500 cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
501 CblasNonUnit, INVALID, A, 1, X, 1 );
502 chkxer();
503 cblas_info = 7; RowMajorStrg = FALSE;
504 cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
505 CblasNonUnit, 2, A, 1, X, 1 );
506 chkxer();
507 cblas_info = 9; RowMajorStrg = FALSE;
508 cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
509 CblasNonUnit, 0, A, 1, X, 0 );
510 chkxer();
511 cblas_info = 2; RowMajorStrg = TRUE;
512 cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans,
513 CblasNonUnit, 0, A, 1, X, 1 );
514 chkxer();
515 cblas_info = 3; RowMajorStrg = TRUE;
516 cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID,
517 CblasNonUnit, 0, A, 1, X, 1 );
518 chkxer();
519 cblas_info = 4; RowMajorStrg = TRUE;
520 cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
521 INVALID, 0, A, 1, X, 1 );
522 chkxer();
523 cblas_info = 5; RowMajorStrg = TRUE;
524 cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
525 CblasNonUnit, INVALID, A, 1, X, 1 );
526 chkxer();
527 cblas_info = 7; RowMajorStrg = TRUE;
528 cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
529 CblasNonUnit, 2, A, 1, X, 1 );
530 chkxer();
531 cblas_info = 9; RowMajorStrg = TRUE;
532 cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
533 CblasNonUnit, 0, A, 1, X, 0 );
534 chkxer();
535 } else if (strncmp( sf,"cblas_dtbsv",11)==0) {
536 cblas_rout = "cblas_dtbsv";
537 cblas_info = 1; RowMajorStrg = FALSE;
538 cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans,
539 CblasNonUnit, 0, 0, A, 1, X, 1 );
540 chkxer();
541 cblas_info = 2; RowMajorStrg = FALSE;
542 cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans,
543 CblasNonUnit, 0, 0, A, 1, X, 1 );
544 chkxer();
545 cblas_info = 3; RowMajorStrg = FALSE;
546 cblas_dtbsv(CblasColMajor, CblasUpper, INVALID,
547 CblasNonUnit, 0, 0, A, 1, X, 1 );
548 chkxer();
549 cblas_info = 4; RowMajorStrg = FALSE;
550 cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
551 INVALID, 0, 0, A, 1, X, 1 );
552 chkxer();
553 cblas_info = 5; RowMajorStrg = FALSE;
554 cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
555 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
556 chkxer();
557 cblas_info = 6; RowMajorStrg = FALSE;
558 cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
559 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
560 chkxer();
561 cblas_info = 8; RowMajorStrg = FALSE;
562 cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
563 CblasNonUnit, 0, 1, A, 1, X, 1 );
564 chkxer();
565 cblas_info = 10; RowMajorStrg = FALSE;
566 cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
567 CblasNonUnit, 0, 0, A, 1, X, 0 );
568 chkxer();
569 cblas_info = 2; RowMajorStrg = TRUE;
570 cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans,
571 CblasNonUnit, 0, 0, A, 1, X, 1 );
572 chkxer();
573 cblas_info = 3; RowMajorStrg = TRUE;
574 cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID,
575 CblasNonUnit, 0, 0, A, 1, X, 1 );
576 chkxer();
577 cblas_info = 4; RowMajorStrg = TRUE;
578 cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
579 INVALID, 0, 0, A, 1, X, 1 );
580 chkxer();
581 cblas_info = 5; RowMajorStrg = TRUE;
582 cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
583 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
584 chkxer();
585 cblas_info = 6; RowMajorStrg = TRUE;
586 cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
587 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
588 chkxer();
589 cblas_info = 8; RowMajorStrg = TRUE;
590 cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
591 CblasNonUnit, 0, 1, A, 1, X, 1 );
592 chkxer();
593 cblas_info = 10; RowMajorStrg = TRUE;
594 cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
595 CblasNonUnit, 0, 0, A, 1, X, 0 );
596 chkxer();
597 } else if (strncmp( sf,"cblas_dtpsv",11)==0) {
598 cblas_rout = "cblas_dtpsv";
599 cblas_info = 1; RowMajorStrg = FALSE;
600 cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans,
601 CblasNonUnit, 0, A, X, 1 );
602 chkxer();
603 cblas_info = 2; RowMajorStrg = FALSE;
604 cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans,
605 CblasNonUnit, 0, A, X, 1 );
606 chkxer();
607 cblas_info = 3; RowMajorStrg = FALSE;
608 cblas_dtpsv(CblasColMajor, CblasUpper, INVALID,
609 CblasNonUnit, 0, A, X, 1 );
610 chkxer();
611 cblas_info = 4; RowMajorStrg = FALSE;
612 cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
613 INVALID, 0, A, X, 1 );
614 chkxer();
615 cblas_info = 5; RowMajorStrg = FALSE;
616 cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
617 CblasNonUnit, INVALID, A, X, 1 );
618 chkxer();
619 cblas_info = 8; RowMajorStrg = FALSE;
620 cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
621 CblasNonUnit, 0, A, X, 0 );
622 chkxer();
623 cblas_info = 2; RowMajorStrg = TRUE;
624 cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans,
625 CblasNonUnit, 0, A, X, 1 );
626 chkxer();
627 cblas_info = 3; RowMajorStrg = TRUE;
628 cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID,
629 CblasNonUnit, 0, A, X, 1 );
630 chkxer();
631 cblas_info = 4; RowMajorStrg = TRUE;
632 cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
633 INVALID, 0, A, X, 1 );
634 chkxer();
635 cblas_info = 5; RowMajorStrg = TRUE;
636 cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
637 CblasNonUnit, INVALID, A, X, 1 );
638 chkxer();
639 cblas_info = 8; RowMajorStrg = TRUE;
640 cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
641 CblasNonUnit, 0, A, X, 0 );
642 chkxer();
643 } else if (strncmp( sf,"cblas_dger",10)==0) {
644 cblas_rout = "cblas_dger";
645 cblas_info = 1; RowMajorStrg = FALSE;
646 cblas_dger(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
647 chkxer();
648 cblas_info = 2; RowMajorStrg = FALSE;
649 cblas_dger(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
650 chkxer();
651 cblas_info = 3; RowMajorStrg = FALSE;
652 cblas_dger(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
653 chkxer();
654 cblas_info = 6; RowMajorStrg = FALSE;
655 cblas_dger(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
656 chkxer();
657 cblas_info = 8; RowMajorStrg = FALSE;
658 cblas_dger(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
659 chkxer();
660 cblas_info = 10; RowMajorStrg = FALSE;
661 cblas_dger(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
662 chkxer();
663 cblas_info = 2; RowMajorStrg = TRUE;
664 cblas_dger(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
665 chkxer();
666 cblas_info = 3; RowMajorStrg = TRUE;
667 cblas_dger(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
668 chkxer();
669 cblas_info = 6; RowMajorStrg = TRUE;
670 cblas_dger(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
671 chkxer();
672 cblas_info = 8; RowMajorStrg = TRUE;
673 cblas_dger(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
674 chkxer();
675 cblas_info = 10; RowMajorStrg = TRUE;
676 cblas_dger(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
677 chkxer();
678 } else if (strncmp( sf,"cblas_dsyr2",11)==0) {
679 cblas_rout = "cblas_dsyr2";
680 cblas_info = 1; RowMajorStrg = FALSE;
681 cblas_dsyr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
682 chkxer();
683 cblas_info = 2; RowMajorStrg = FALSE;
684 cblas_dsyr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
685 chkxer();
686 cblas_info = 3; RowMajorStrg = FALSE;
687 cblas_dsyr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
688 chkxer();
689 cblas_info = 6; RowMajorStrg = FALSE;
690 cblas_dsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
691 chkxer();
692 cblas_info = 8; RowMajorStrg = FALSE;
693 cblas_dsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
694 chkxer();
695 cblas_info = 10; RowMajorStrg = FALSE;
696 cblas_dsyr2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
697 chkxer();
698 cblas_info = 2; RowMajorStrg = TRUE;
699 cblas_dsyr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
700 chkxer();
701 cblas_info = 3; RowMajorStrg = TRUE;
702 cblas_dsyr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
703 chkxer();
704 cblas_info = 6; RowMajorStrg = TRUE;
705 cblas_dsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
706 chkxer();
707 cblas_info = 8; RowMajorStrg = TRUE;
708 cblas_dsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
709 chkxer();
710 cblas_info = 10; RowMajorStrg = TRUE;
711 cblas_dsyr2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
712 chkxer();
713 } else if (strncmp( sf,"cblas_dspr2",11)==0) {
714 cblas_rout = "cblas_dspr2";
715 cblas_info = 1; RowMajorStrg = FALSE;
716 cblas_dspr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
717 chkxer();
718 cblas_info = 2; RowMajorStrg = FALSE;
719 cblas_dspr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
720 chkxer();
721 cblas_info = 3; RowMajorStrg = FALSE;
722 cblas_dspr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
723 chkxer();
724 cblas_info = 6; RowMajorStrg = FALSE;
725 cblas_dspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
726 chkxer();
727 cblas_info = 8; RowMajorStrg = FALSE;
728 cblas_dspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
729 chkxer();
730 cblas_info = 2; RowMajorStrg = TRUE;
731 cblas_dspr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
732 chkxer();
733 cblas_info = 3; RowMajorStrg = TRUE;
734 cblas_dspr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
735 chkxer();
736 cblas_info = 6; RowMajorStrg = TRUE;
737 cblas_dspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
738 chkxer();
739 cblas_info = 8; RowMajorStrg = TRUE;
740 cblas_dspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
741 chkxer();
742 } else if (strncmp( sf,"cblas_dsyr",10)==0) {
743 cblas_rout = "cblas_dsyr";
744 cblas_info = 1; RowMajorStrg = FALSE;
745 cblas_dsyr(INVALID, CblasUpper, 0, ALPHA, X, 1, A, 1 );
746 chkxer();
747 cblas_info = 2; RowMajorStrg = FALSE;
748 cblas_dsyr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
749 chkxer();
750 cblas_info = 3; RowMajorStrg = FALSE;
751 cblas_dsyr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
752 chkxer();
753 cblas_info = 6; RowMajorStrg = FALSE;
754 cblas_dsyr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
755 chkxer();
756 cblas_info = 8; RowMajorStrg = FALSE;
757 cblas_dsyr(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
758 chkxer();
759 cblas_info = 2; RowMajorStrg = TRUE;
760 cblas_dsyr(CblasRowMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
761 chkxer();
762 cblas_info = 3; RowMajorStrg = TRUE;
763 cblas_dsyr(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
764 chkxer();
765 cblas_info = 6; RowMajorStrg = TRUE;
766 cblas_dsyr(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
767 chkxer();
768 cblas_info = 8; RowMajorStrg = TRUE;
769 cblas_dsyr(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
770 chkxer();
771 } else if (strncmp( sf,"cblas_dspr",10)==0) {
772 cblas_rout = "cblas_dspr";
773 cblas_info = 1; RowMajorStrg = FALSE;
774 cblas_dspr(INVALID, CblasUpper, 0, ALPHA, X, 1, A );
775 chkxer();
776 cblas_info = 2; RowMajorStrg = FALSE;
777 cblas_dspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
778 chkxer();
779 cblas_info = 3; RowMajorStrg = FALSE;
780 cblas_dspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
781 chkxer();
782 cblas_info = 6; RowMajorStrg = FALSE;
783 cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
784 chkxer();
785 cblas_info = 2; RowMajorStrg = FALSE;
786 cblas_dspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
787 chkxer();
788 cblas_info = 3; RowMajorStrg = FALSE;
789 cblas_dspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
790 chkxer();
791 cblas_info = 6; RowMajorStrg = FALSE;
792 cblas_dspr(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_d2chke.c:6
chkxer
void chkxer(void)
Definition c_d2chke.c:20
cblas_ok
CBLAS_INT cblas_ok
Definition c_d2chke.c:6
cblas_info
CBLAS_INT cblas_info
Definition c_d2chke.c:6
cblas_rout
char * cblas_rout
Definition c_d2chke.c:8
link_xerbla
CBLAS_INT link_xerbla
Definition c_d2chke.c:7
cblas_dgemv
void cblas_dgemv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
Definition cblas_dgemv.c:11
CblasUpper
@ CblasUpper
Definition cblas.h:41
cblas_dtbmv
void cblas_dtbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX)
Definition cblas_dtbmv.c:10
cblas_xerbla
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
Definition cblas_xerbla.c:12
cblas_dsyr
void cblas_dsyr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, double *A, const CBLAS_INT lda)
Definition cblas_dsyr.c:12
cblas_dspr2
void cblas_dspr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A)
Definition cblas_dspr2.c:10
cblas_dspr
void cblas_dspr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, double *Ap)
Definition cblas_dspr.c:12
CblasNoTrans
@ CblasNoTrans
Definition cblas.h:40
cblas_dtbsv
void cblas_dtbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX)
Definition cblas_dtbsv.c:10
cblas_dsbmv
void cblas_dsbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
Definition cblas_dsbmv.c:12
cblas_dtrsv
void cblas_dtrsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX)
Definition cblas_dtrsv.c:10
cblas_dger
void cblas_dger(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A, const CBLAS_INT lda)
Definition cblas_dger.c:12
CblasColMajor
@ CblasColMajor
Definition cblas.h:39
CblasRowMajor
@ CblasRowMajor
Definition cblas.h:39
cblas_dspmv
void cblas_dspmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *Ap, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
Definition cblas_dspmv.c:13
cblas_dgbmv
void cblas_dgbmv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
Definition cblas_dgbmv.c:11
CblasNonUnit
@ CblasNonUnit
Definition cblas.h:42
cblas_dtrmv
void cblas_dtrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const double *A, const CBLAS_INT lda, double *X, const CBLAS_INT incX)
Definition cblas_dtrmv.c:12
CBLAS_INT
#define CBLAS_INT
Definition cblas.h:24
cblas_dsymv
void cblas_dsymv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *A, const CBLAS_INT lda, const double *X, const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY)
Definition cblas_dsymv.c:12
cblas_dsyr2
void cblas_dsyr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A, const CBLAS_INT lda)
Definition cblas_dsyr2.c:12
cblas_dtpsv
void cblas_dtpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const double *Ap, double *X, const CBLAS_INT incX)
Definition cblas_dtpsv.c:10
cblas_dtpmv
void cblas_dtpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const double *Ap, double *X, const CBLAS_INT incX)
Definition cblas_dtpmv.c:10
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
F77_d2chke
#define F77_d2chke
Definition cblas_test.h:87
TRUE
#define TRUE
Definition cblas_test.h:19
FALSE
#define FALSE
Definition cblas_test.h:23
PASSED
#define PASSED
Definition cblas_test.h:20
cblas_test.h