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