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