LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ F77_c2chke()

void F77_c2chke ( char *  rout)

Definition at line 27 of file c_c2chke.c.

27  {
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[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_cgemv",11)==0) {
49  cblas_rout = "cblas_cgemv";
50  cblas_info = 1;
52  ALPHA, A, 1, X, 1, BETA, Y, 1 );
53  chkxer();
54  cblas_info = 2; RowMajorStrg = FALSE;
56  ALPHA, A, 1, X, 1, BETA, Y, 1 );
57  chkxer();
58  cblas_info = 3; RowMajorStrg = FALSE;
60  ALPHA, A, 1, X, 1, BETA, Y, 1 );
61  chkxer();
62  cblas_info = 4; RowMajorStrg = FALSE;
64  ALPHA, A, 1, X, 1, BETA, Y, 1 );
65  chkxer();
66  cblas_info = 7; RowMajorStrg = FALSE;
68  ALPHA, A, 1, X, 1, BETA, Y, 1 );
69  chkxer();
70  cblas_info = 9; RowMajorStrg = FALSE;
72  ALPHA, A, 1, X, 0, BETA, Y, 1 );
73  chkxer();
74  cblas_info = 12; RowMajorStrg = FALSE;
76  ALPHA, A, 1, X, 1, BETA, Y, 0 );
77  chkxer();
78 
79  cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
81  ALPHA, A, 1, X, 1, BETA, Y, 1 );
82  chkxer();
83  cblas_info = 3; RowMajorStrg = TRUE;
85  ALPHA, A, 1, X, 1, BETA, Y, 1 );
86  chkxer();
87  cblas_info = 4; RowMajorStrg = TRUE;
89  ALPHA, A, 1, X, 1, BETA, Y, 1 );
90  chkxer();
91  cblas_info = 7; RowMajorStrg = TRUE;
93  ALPHA, A, 1, X, 1, BETA, Y, 1 );
94  chkxer();
95  cblas_info = 9; RowMajorStrg = TRUE;
97  ALPHA, A, 1, X, 0, BETA, Y, 1 );
98  chkxer();
99  cblas_info = 12; RowMajorStrg = TRUE;
101  ALPHA, A, 1, X, 1, BETA, Y, 0 );
102  chkxer();
103  } else if (strncmp( sf,"cblas_cgbmv",11)==0) {
104  cblas_rout = "cblas_cgbmv";
105  cblas_info = 1; RowMajorStrg = FALSE;
106  cblas_cgbmv(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_cgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
111  ALPHA, A, 1, X, 1, BETA, Y, 1 );
112  chkxer();
113  cblas_info = 3; RowMajorStrg = FALSE;
115  ALPHA, A, 1, X, 1, BETA, Y, 1 );
116  chkxer();
117  cblas_info = 4; RowMajorStrg = FALSE;
119  ALPHA, A, 1, X, 1, BETA, Y, 1 );
120  chkxer();
121  cblas_info = 5; RowMajorStrg = FALSE;
123  ALPHA, A, 1, X, 1, BETA, Y, 1 );
124  chkxer();
125  cblas_info = 6; RowMajorStrg = FALSE;
127  ALPHA, A, 1, X, 1, BETA, Y, 1 );
128  chkxer();
129  cblas_info = 9; RowMajorStrg = FALSE;
131  ALPHA, A, 1, X, 1, BETA, Y, 1 );
132  chkxer();
133  cblas_info = 11; RowMajorStrg = FALSE;
135  ALPHA, A, 1, X, 0, BETA, Y, 1 );
136  chkxer();
137  cblas_info = 14; RowMajorStrg = FALSE;
139  ALPHA, A, 1, X, 1, BETA, Y, 0 );
140  chkxer();
141  cblas_info = 2; RowMajorStrg = TRUE;
142  cblas_cgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
143  ALPHA, A, 1, X, 1, BETA, Y, 1 );
144  chkxer();
145  cblas_info = 3; RowMajorStrg = TRUE;
147  ALPHA, A, 1, X, 1, BETA, Y, 1 );
148  chkxer();
149  cblas_info = 4; RowMajorStrg = TRUE;
151  ALPHA, A, 1, X, 1, BETA, Y, 1 );
152  chkxer();
153  cblas_info = 5; RowMajorStrg = TRUE;
155  ALPHA, A, 1, X, 1, BETA, Y, 1 );
156  chkxer();
157  cblas_info = 6; RowMajorStrg = TRUE;
159  ALPHA, A, 1, X, 1, BETA, Y, 1 );
160  chkxer();
161  cblas_info = 9; RowMajorStrg = TRUE;
163  ALPHA, A, 1, X, 1, BETA, Y, 1 );
164  chkxer();
165  cblas_info = 11; RowMajorStrg = TRUE;
167  ALPHA, A, 1, X, 0, BETA, Y, 1 );
168  chkxer();
169  cblas_info = 14; RowMajorStrg = TRUE;
171  ALPHA, A, 1, X, 1, BETA, Y, 0 );
172  chkxer();
173  } else if (strncmp( sf,"cblas_chemv",11)==0) {
174  cblas_rout = "cblas_chemv";
175  cblas_info = 1; RowMajorStrg = FALSE;
177  ALPHA, A, 1, X, 1, BETA, Y, 1 );
178  chkxer();
179  cblas_info = 2; RowMajorStrg = FALSE;
181  ALPHA, A, 1, X, 1, BETA, Y, 1 );
182  chkxer();
183  cblas_info = 3; RowMajorStrg = FALSE;
185  ALPHA, A, 1, X, 1, BETA, Y, 1 );
186  chkxer();
187  cblas_info = 6; RowMajorStrg = FALSE;
189  ALPHA, A, 1, X, 1, BETA, Y, 1 );
190  chkxer();
191  cblas_info = 8; RowMajorStrg = FALSE;
193  ALPHA, A, 1, X, 0, BETA, Y, 1 );
194  chkxer();
195  cblas_info = 11; RowMajorStrg = FALSE;
197  ALPHA, A, 1, X, 1, BETA, Y, 0 );
198  chkxer();
199  cblas_info = 2; RowMajorStrg = TRUE;
201  ALPHA, A, 1, X, 1, BETA, Y, 1 );
202  chkxer();
203  cblas_info = 3; RowMajorStrg = TRUE;
205  ALPHA, A, 1, X, 1, BETA, Y, 1 );
206  chkxer();
207  cblas_info = 6; RowMajorStrg = TRUE;
209  ALPHA, A, 1, X, 1, BETA, Y, 1 );
210  chkxer();
211  cblas_info = 8; RowMajorStrg = TRUE;
213  ALPHA, A, 1, X, 0, BETA, Y, 1 );
214  chkxer();
215  cblas_info = 11; RowMajorStrg = TRUE;
217  ALPHA, A, 1, X, 1, BETA, Y, 0 );
218  chkxer();
219  } else if (strncmp( sf,"cblas_chbmv",11)==0) {
220  cblas_rout = "cblas_chbmv";
221  cblas_info = 1; RowMajorStrg = FALSE;
223  ALPHA, A, 1, X, 1, BETA, Y, 1 );
224  chkxer();
225  cblas_info = 2; RowMajorStrg = FALSE;
227  ALPHA, A, 1, X, 1, BETA, Y, 1 );
228  chkxer();
229  cblas_info = 3; RowMajorStrg = FALSE;
231  ALPHA, A, 1, X, 1, BETA, Y, 1 );
232  chkxer();
233  cblas_info = 4; RowMajorStrg = FALSE;
235  ALPHA, A, 1, X, 1, BETA, Y, 1 );
236  chkxer();
237  cblas_info = 7; RowMajorStrg = FALSE;
239  ALPHA, A, 1, X, 1, BETA, Y, 1 );
240  chkxer();
241  cblas_info = 9; RowMajorStrg = FALSE;
243  ALPHA, A, 1, X, 0, BETA, Y, 1 );
244  chkxer();
245  cblas_info = 12; RowMajorStrg = FALSE;
247  ALPHA, A, 1, X, 1, BETA, Y, 0 );
248  chkxer();
249  cblas_info = 2; RowMajorStrg = TRUE;
251  ALPHA, A, 1, X, 1, BETA, Y, 1 );
252  chkxer();
253  cblas_info = 3; RowMajorStrg = TRUE;
255  ALPHA, A, 1, X, 1, BETA, Y, 1 );
256  chkxer();
257  cblas_info = 4; RowMajorStrg = TRUE;
259  ALPHA, A, 1, X, 1, BETA, Y, 1 );
260  chkxer();
261  cblas_info = 7; RowMajorStrg = TRUE;
263  ALPHA, A, 1, X, 1, BETA, Y, 1 );
264  chkxer();
265  cblas_info = 9; RowMajorStrg = TRUE;
267  ALPHA, A, 1, X, 0, BETA, Y, 1 );
268  chkxer();
269  cblas_info = 12; RowMajorStrg = TRUE;
271  ALPHA, A, 1, X, 1, BETA, Y, 0 );
272  chkxer();
273  } else if (strncmp( sf,"cblas_chpmv",11)==0) {
274  cblas_rout = "cblas_chpmv";
275  cblas_info = 1; RowMajorStrg = FALSE;
277  ALPHA, A, X, 1, BETA, Y, 1 );
278  chkxer();
279  cblas_info = 2; RowMajorStrg = FALSE;
281  ALPHA, A, X, 1, BETA, Y, 1 );
282  chkxer();
283  cblas_info = 3; RowMajorStrg = FALSE;
285  ALPHA, A, X, 1, BETA, Y, 1 );
286  chkxer();
287  cblas_info = 7; RowMajorStrg = FALSE;
289  ALPHA, A, X, 0, BETA, Y, 1 );
290  chkxer();
291  cblas_info = 10; RowMajorStrg = FALSE;
293  ALPHA, A, X, 1, BETA, Y, 0 );
294  chkxer();
295  cblas_info = 2; RowMajorStrg = TRUE;
297  ALPHA, A, X, 1, BETA, Y, 1 );
298  chkxer();
299  cblas_info = 3; RowMajorStrg = TRUE;
301  ALPHA, A, X, 1, BETA, Y, 1 );
302  chkxer();
303  cblas_info = 7; RowMajorStrg = TRUE;
305  ALPHA, A, X, 0, BETA, Y, 1 );
306  chkxer();
307  cblas_info = 10; RowMajorStrg = TRUE;
309  ALPHA, A, X, 1, BETA, Y, 0 );
310  chkxer();
311  } else if (strncmp( sf,"cblas_ctrmv",11)==0) {
312  cblas_rout = "cblas_ctrmv";
313  cblas_info = 1; RowMajorStrg = FALSE;
315  CblasNonUnit, 0, A, 1, X, 1 );
316  chkxer();
317  cblas_info = 2; RowMajorStrg = FALSE;
319  CblasNonUnit, 0, A, 1, X, 1 );
320  chkxer();
321  cblas_info = 3; RowMajorStrg = FALSE;
323  CblasNonUnit, 0, A, 1, X, 1 );
324  chkxer();
325  cblas_info = 4; RowMajorStrg = FALSE;
327  INVALID, 0, A, 1, X, 1 );
328  chkxer();
329  cblas_info = 5; RowMajorStrg = FALSE;
331  CblasNonUnit, INVALID, A, 1, X, 1 );
332  chkxer();
333  cblas_info = 7; RowMajorStrg = FALSE;
335  CblasNonUnit, 2, A, 1, X, 1 );
336  chkxer();
337  cblas_info = 9; RowMajorStrg = FALSE;
339  CblasNonUnit, 0, A, 1, X, 0 );
340  chkxer();
341  cblas_info = 2; RowMajorStrg = TRUE;
343  CblasNonUnit, 0, A, 1, X, 1 );
344  chkxer();
345  cblas_info = 3; RowMajorStrg = TRUE;
347  CblasNonUnit, 0, A, 1, X, 1 );
348  chkxer();
349  cblas_info = 4; RowMajorStrg = TRUE;
351  INVALID, 0, A, 1, X, 1 );
352  chkxer();
353  cblas_info = 5; RowMajorStrg = TRUE;
355  CblasNonUnit, INVALID, A, 1, X, 1 );
356  chkxer();
357  cblas_info = 7; RowMajorStrg = TRUE;
359  CblasNonUnit, 2, A, 1, X, 1 );
360  chkxer();
361  cblas_info = 9; RowMajorStrg = TRUE;
363  CblasNonUnit, 0, A, 1, X, 0 );
364  chkxer();
365  } else if (strncmp( sf,"cblas_ctbmv",11)==0) {
366  cblas_rout = "cblas_ctbmv";
367  cblas_info = 1; RowMajorStrg = FALSE;
369  CblasNonUnit, 0, 0, A, 1, X, 1 );
370  chkxer();
371  cblas_info = 2; RowMajorStrg = FALSE;
373  CblasNonUnit, 0, 0, A, 1, X, 1 );
374  chkxer();
375  cblas_info = 3; RowMajorStrg = FALSE;
377  CblasNonUnit, 0, 0, A, 1, X, 1 );
378  chkxer();
379  cblas_info = 4; RowMajorStrg = FALSE;
381  INVALID, 0, 0, A, 1, X, 1 );
382  chkxer();
383  cblas_info = 5; RowMajorStrg = FALSE;
385  CblasNonUnit, INVALID, 0, A, 1, X, 1 );
386  chkxer();
387  cblas_info = 6; RowMajorStrg = FALSE;
389  CblasNonUnit, 0, INVALID, A, 1, X, 1 );
390  chkxer();
391  cblas_info = 8; RowMajorStrg = FALSE;
393  CblasNonUnit, 0, 1, A, 1, X, 1 );
394  chkxer();
395  cblas_info = 10; RowMajorStrg = FALSE;
397  CblasNonUnit, 0, 0, A, 1, X, 0 );
398  chkxer();
399  cblas_info = 2; RowMajorStrg = TRUE;
401  CblasNonUnit, 0, 0, A, 1, X, 1 );
402  chkxer();
403  cblas_info = 3; RowMajorStrg = TRUE;
405  CblasNonUnit, 0, 0, A, 1, X, 1 );
406  chkxer();
407  cblas_info = 4; RowMajorStrg = TRUE;
409  INVALID, 0, 0, A, 1, X, 1 );
410  chkxer();
411  cblas_info = 5; RowMajorStrg = TRUE;
413  CblasNonUnit, INVALID, 0, A, 1, X, 1 );
414  chkxer();
415  cblas_info = 6; RowMajorStrg = TRUE;
417  CblasNonUnit, 0, INVALID, A, 1, X, 1 );
418  chkxer();
419  cblas_info = 8; RowMajorStrg = TRUE;
421  CblasNonUnit, 0, 1, A, 1, X, 1 );
422  chkxer();
423  cblas_info = 10; RowMajorStrg = TRUE;
425  CblasNonUnit, 0, 0, A, 1, X, 0 );
426  chkxer();
427  } else if (strncmp( sf,"cblas_ctpmv",11)==0) {
428  cblas_rout = "cblas_ctpmv";
429  cblas_info = 1; RowMajorStrg = FALSE;
431  CblasNonUnit, 0, A, X, 1 );
432  chkxer();
433  cblas_info = 2; RowMajorStrg = FALSE;
435  CblasNonUnit, 0, A, X, 1 );
436  chkxer();
437  cblas_info = 3; RowMajorStrg = FALSE;
439  CblasNonUnit, 0, A, X, 1 );
440  chkxer();
441  cblas_info = 4; RowMajorStrg = FALSE;
443  INVALID, 0, A, X, 1 );
444  chkxer();
445  cblas_info = 5; RowMajorStrg = FALSE;
447  CblasNonUnit, INVALID, A, X, 1 );
448  chkxer();
449  cblas_info = 8; RowMajorStrg = FALSE;
451  CblasNonUnit, 0, A, X, 0 );
452  chkxer();
453  cblas_info = 2; RowMajorStrg = TRUE;
455  CblasNonUnit, 0, A, X, 1 );
456  chkxer();
457  cblas_info = 3; RowMajorStrg = TRUE;
459  CblasNonUnit, 0, A, X, 1 );
460  chkxer();
461  cblas_info = 4; RowMajorStrg = TRUE;
463  INVALID, 0, A, X, 1 );
464  chkxer();
465  cblas_info = 5; RowMajorStrg = TRUE;
467  CblasNonUnit, INVALID, A, X, 1 );
468  chkxer();
469  cblas_info = 8; RowMajorStrg = TRUE;
471  CblasNonUnit, 0, A, X, 0 );
472  chkxer();
473  } else if (strncmp( sf,"cblas_ctrsv",11)==0) {
474  cblas_rout = "cblas_ctrsv";
475  cblas_info = 1; RowMajorStrg = FALSE;
477  CblasNonUnit, 0, A, 1, X, 1 );
478  chkxer();
479  cblas_info = 2; RowMajorStrg = FALSE;
481  CblasNonUnit, 0, A, 1, X, 1 );
482  chkxer();
483  cblas_info = 3; RowMajorStrg = FALSE;
485  CblasNonUnit, 0, A, 1, X, 1 );
486  chkxer();
487  cblas_info = 4; RowMajorStrg = FALSE;
489  INVALID, 0, A, 1, X, 1 );
490  chkxer();
491  cblas_info = 5; RowMajorStrg = FALSE;
493  CblasNonUnit, INVALID, A, 1, X, 1 );
494  chkxer();
495  cblas_info = 7; RowMajorStrg = FALSE;
497  CblasNonUnit, 2, A, 1, X, 1 );
498  chkxer();
499  cblas_info = 9; RowMajorStrg = FALSE;
501  CblasNonUnit, 0, A, 1, X, 0 );
502  chkxer();
503  cblas_info = 2; RowMajorStrg = TRUE;
505  CblasNonUnit, 0, A, 1, X, 1 );
506  chkxer();
507  cblas_info = 3; RowMajorStrg = TRUE;
509  CblasNonUnit, 0, A, 1, X, 1 );
510  chkxer();
511  cblas_info = 4; RowMajorStrg = TRUE;
513  INVALID, 0, A, 1, X, 1 );
514  chkxer();
515  cblas_info = 5; RowMajorStrg = TRUE;
517  CblasNonUnit, INVALID, A, 1, X, 1 );
518  chkxer();
519  cblas_info = 7; RowMajorStrg = TRUE;
521  CblasNonUnit, 2, A, 1, X, 1 );
522  chkxer();
523  cblas_info = 9; RowMajorStrg = TRUE;
525  CblasNonUnit, 0, A, 1, X, 0 );
526  chkxer();
527  } else if (strncmp( sf,"cblas_ctbsv",11)==0) {
528  cblas_rout = "cblas_ctbsv";
529  cblas_info = 1; RowMajorStrg = FALSE;
531  CblasNonUnit, 0, 0, A, 1, X, 1 );
532  chkxer();
533  cblas_info = 2; RowMajorStrg = FALSE;
535  CblasNonUnit, 0, 0, A, 1, X, 1 );
536  chkxer();
537  cblas_info = 3; RowMajorStrg = FALSE;
539  CblasNonUnit, 0, 0, A, 1, X, 1 );
540  chkxer();
541  cblas_info = 4; RowMajorStrg = FALSE;
543  INVALID, 0, 0, A, 1, X, 1 );
544  chkxer();
545  cblas_info = 5; RowMajorStrg = FALSE;
547  CblasNonUnit, INVALID, 0, A, 1, X, 1 );
548  chkxer();
549  cblas_info = 6; RowMajorStrg = FALSE;
551  CblasNonUnit, 0, INVALID, A, 1, X, 1 );
552  chkxer();
553  cblas_info = 8; RowMajorStrg = FALSE;
555  CblasNonUnit, 0, 1, A, 1, X, 1 );
556  chkxer();
557  cblas_info = 10; RowMajorStrg = FALSE;
559  CblasNonUnit, 0, 0, A, 1, X, 0 );
560  chkxer();
561  cblas_info = 2; RowMajorStrg = TRUE;
563  CblasNonUnit, 0, 0, A, 1, X, 1 );
564  chkxer();
565  cblas_info = 3; RowMajorStrg = TRUE;
567  CblasNonUnit, 0, 0, A, 1, X, 1 );
568  chkxer();
569  cblas_info = 4; RowMajorStrg = TRUE;
571  INVALID, 0, 0, A, 1, X, 1 );
572  chkxer();
573  cblas_info = 5; RowMajorStrg = TRUE;
575  CblasNonUnit, INVALID, 0, A, 1, X, 1 );
576  chkxer();
577  cblas_info = 6; RowMajorStrg = TRUE;
579  CblasNonUnit, 0, INVALID, A, 1, X, 1 );
580  chkxer();
581  cblas_info = 8; RowMajorStrg = TRUE;
583  CblasNonUnit, 0, 1, A, 1, X, 1 );
584  chkxer();
585  cblas_info = 10; RowMajorStrg = TRUE;
587  CblasNonUnit, 0, 0, A, 1, X, 0 );
588  chkxer();
589  } else if (strncmp( sf,"cblas_ctpsv",11)==0) {
590  cblas_rout = "cblas_ctpsv";
591  cblas_info = 1; RowMajorStrg = FALSE;
593  CblasNonUnit, 0, A, X, 1 );
594  chkxer();
595  cblas_info = 2; RowMajorStrg = FALSE;
597  CblasNonUnit, 0, A, X, 1 );
598  chkxer();
599  cblas_info = 3; RowMajorStrg = FALSE;
601  CblasNonUnit, 0, A, X, 1 );
602  chkxer();
603  cblas_info = 4; RowMajorStrg = FALSE;
605  INVALID, 0, A, X, 1 );
606  chkxer();
607  cblas_info = 5; RowMajorStrg = FALSE;
609  CblasNonUnit, INVALID, A, X, 1 );
610  chkxer();
611  cblas_info = 8; RowMajorStrg = FALSE;
613  CblasNonUnit, 0, A, X, 0 );
614  chkxer();
615  cblas_info = 2; RowMajorStrg = TRUE;
617  CblasNonUnit, 0, A, X, 1 );
618  chkxer();
619  cblas_info = 3; RowMajorStrg = TRUE;
621  CblasNonUnit, 0, A, X, 1 );
622  chkxer();
623  cblas_info = 4; RowMajorStrg = TRUE;
625  INVALID, 0, A, X, 1 );
626  chkxer();
627  cblas_info = 5; RowMajorStrg = TRUE;
629  CblasNonUnit, INVALID, A, X, 1 );
630  chkxer();
631  cblas_info = 8; RowMajorStrg = TRUE;
633  CblasNonUnit, 0, A, X, 0 );
634  chkxer();
635  } else if (strncmp( sf,"cblas_cgeru",10)==0) {
636  cblas_rout = "cblas_cgeru";
637  cblas_info = 1; RowMajorStrg = FALSE;
638  cblas_cgeru(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
639  chkxer();
640  cblas_info = 2; RowMajorStrg = FALSE;
641  cblas_cgeru(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
642  chkxer();
643  cblas_info = 3; RowMajorStrg = FALSE;
644  cblas_cgeru(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
645  chkxer();
646  cblas_info = 6; RowMajorStrg = FALSE;
647  cblas_cgeru(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
648  chkxer();
649  cblas_info = 8; RowMajorStrg = FALSE;
650  cblas_cgeru(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
651  chkxer();
652  cblas_info = 10; RowMajorStrg = FALSE;
653  cblas_cgeru(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
654  chkxer();
655  cblas_info = 2; RowMajorStrg = TRUE;
656  cblas_cgeru(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
657  chkxer();
658  cblas_info = 3; RowMajorStrg = TRUE;
659  cblas_cgeru(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
660  chkxer();
661  cblas_info = 6; RowMajorStrg = TRUE;
662  cblas_cgeru(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
663  chkxer();
664  cblas_info = 8; RowMajorStrg = TRUE;
665  cblas_cgeru(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
666  chkxer();
667  cblas_info = 10; RowMajorStrg = TRUE;
668  cblas_cgeru(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
669  chkxer();
670  } else if (strncmp( sf,"cblas_cgerc",10)==0) {
671  cblas_rout = "cblas_cgerc";
672  cblas_info = 1; RowMajorStrg = FALSE;
673  cblas_cgerc(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
674  chkxer();
675  cblas_info = 2; RowMajorStrg = FALSE;
676  cblas_cgerc(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
677  chkxer();
678  cblas_info = 3; RowMajorStrg = FALSE;
679  cblas_cgerc(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
680  chkxer();
681  cblas_info = 6; RowMajorStrg = FALSE;
682  cblas_cgerc(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
683  chkxer();
684  cblas_info = 8; RowMajorStrg = FALSE;
685  cblas_cgerc(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
686  chkxer();
687  cblas_info = 10; RowMajorStrg = FALSE;
688  cblas_cgerc(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
689  chkxer();
690  cblas_info = 2; RowMajorStrg = TRUE;
691  cblas_cgerc(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
692  chkxer();
693  cblas_info = 3; RowMajorStrg = TRUE;
694  cblas_cgerc(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
695  chkxer();
696  cblas_info = 6; RowMajorStrg = TRUE;
697  cblas_cgerc(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
698  chkxer();
699  cblas_info = 8; RowMajorStrg = TRUE;
700  cblas_cgerc(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
701  chkxer();
702  cblas_info = 10; RowMajorStrg = TRUE;
703  cblas_cgerc(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
704  chkxer();
705  } else if (strncmp( sf,"cblas_cher2",11)==0) {
706  cblas_rout = "cblas_cher2";
707  cblas_info = 1; RowMajorStrg = FALSE;
708  cblas_cher2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
709  chkxer();
710  cblas_info = 2; RowMajorStrg = FALSE;
711  cblas_cher2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
712  chkxer();
713  cblas_info = 3; RowMajorStrg = FALSE;
714  cblas_cher2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
715  chkxer();
716  cblas_info = 6; RowMajorStrg = FALSE;
717  cblas_cher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
718  chkxer();
719  cblas_info = 8; RowMajorStrg = FALSE;
720  cblas_cher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
721  chkxer();
722  cblas_info = 10; RowMajorStrg = FALSE;
723  cblas_cher2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
724  chkxer();
725  cblas_info = 2; RowMajorStrg = TRUE;
726  cblas_cher2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
727  chkxer();
728  cblas_info = 3; RowMajorStrg = TRUE;
729  cblas_cher2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
730  chkxer();
731  cblas_info = 6; RowMajorStrg = TRUE;
732  cblas_cher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
733  chkxer();
734  cblas_info = 8; RowMajorStrg = TRUE;
735  cblas_cher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
736  chkxer();
737  cblas_info = 10; RowMajorStrg = TRUE;
738  cblas_cher2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
739  chkxer();
740  } else if (strncmp( sf,"cblas_chpr2",11)==0) {
741  cblas_rout = "cblas_chpr2";
742  cblas_info = 1; RowMajorStrg = FALSE;
743  cblas_chpr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
744  chkxer();
745  cblas_info = 2; RowMajorStrg = FALSE;
746  cblas_chpr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
747  chkxer();
748  cblas_info = 3; RowMajorStrg = FALSE;
749  cblas_chpr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
750  chkxer();
751  cblas_info = 6; RowMajorStrg = FALSE;
752  cblas_chpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
753  chkxer();
754  cblas_info = 8; RowMajorStrg = FALSE;
755  cblas_chpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
756  chkxer();
757  cblas_info = 2; RowMajorStrg = TRUE;
758  cblas_chpr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
759  chkxer();
760  cblas_info = 3; RowMajorStrg = TRUE;
761  cblas_chpr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
762  chkxer();
763  cblas_info = 6; RowMajorStrg = TRUE;
764  cblas_chpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
765  chkxer();
766  cblas_info = 8; RowMajorStrg = TRUE;
767  cblas_chpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
768  chkxer();
769  } else if (strncmp( sf,"cblas_cher",10)==0) {
770  cblas_rout = "cblas_cher";
771  cblas_info = 1; RowMajorStrg = FALSE;
772  cblas_cher(INVALID, CblasUpper, 0, RALPHA, X, 1, A, 1 );
773  chkxer();
774  cblas_info = 2; RowMajorStrg = FALSE;
775  cblas_cher(CblasColMajor, INVALID, 0, RALPHA, X, 1, A, 1 );
776  chkxer();
777  cblas_info = 3; RowMajorStrg = FALSE;
778  cblas_cher(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );
779  chkxer();
780  cblas_info = 6; RowMajorStrg = FALSE;
781  cblas_cher(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );
782  chkxer();
783  cblas_info = 8; RowMajorStrg = FALSE;
784  cblas_cher(CblasColMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );
785  chkxer();
786  cblas_info = 2; RowMajorStrg = TRUE;
787  cblas_cher(CblasRowMajor, INVALID, 0, RALPHA, X, 1, A, 1 );
788  chkxer();
789  cblas_info = 3; RowMajorStrg = TRUE;
790  cblas_cher(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );
791  chkxer();
792  cblas_info = 6; RowMajorStrg = TRUE;
793  cblas_cher(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );
794  chkxer();
795  cblas_info = 8; RowMajorStrg = TRUE;
796  cblas_cher(CblasRowMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );
797  chkxer();
798  } else if (strncmp( sf,"cblas_chpr",10)==0) {
799  cblas_rout = "cblas_chpr";
800  cblas_info = 1; RowMajorStrg = FALSE;
801  cblas_chpr(INVALID, CblasUpper, 0, RALPHA, X, 1, A );
802  chkxer();
803  cblas_info = 2; RowMajorStrg = FALSE;
804  cblas_chpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );
805  chkxer();
806  cblas_info = 3; RowMajorStrg = FALSE;
807  cblas_chpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
808  chkxer();
809  cblas_info = 6; RowMajorStrg = FALSE;
810  cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
811  chkxer();
812  cblas_info = 2; RowMajorStrg = FALSE;
813  cblas_chpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );
814  chkxer();
815  cblas_info = 3; RowMajorStrg = FALSE;
816  cblas_chpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
817  chkxer();
818  cblas_info = 6; RowMajorStrg = FALSE;
819  cblas_chpr(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 }
int cblas_ok
Definition: c_c2chke.c:6
void cblas_cgeru(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_cgeru.c:10
void cblas_chpr2(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_chpr2.c:12
void cblas_cgbmv(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_cgbmv.c:12
void cblas_ctpsv(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_ctpsv.c:10
void cblas_ctpmv(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_ctpmv.c:10
void F77_xerbla(char *srname, void *vinfo)
Definition: xerbla.c:12
void cblas_ctrmv(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_ctrmv.c:10
#define PASSED
Definition: cblas_test.h:11
void cblas_ctbsv(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_ctbsv.c:10
#define INVALID
Definition: cblas_example2.c:8
int cblas_info
Definition: c_c2chke.c:6
int cblas_lerr
Definition: c_c2chke.c:6
void cblas_chpmv(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_chpmv.c:12
void cblas_cher(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const int N, const float alpha, const void *X, const int incX, void *A, const int lda)
Definition: cblas_cher.c:12
void cblas_chemv(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_chemv.c:12
void cblas_cgemv(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_cgemv.c:12
#define TRUE
Definition: cblas_test.h:10
void cblas_chbmv(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_chbmv.c:12
int link_xerbla
Definition: c_c2chke.c:7
void chkxer(void)
Definition: c_c2chke.c:16
void cblas_xerbla(int p, const char *rout, const char *form,...)
Definition: cblas_xerbla.c:8
void cblas_cher2(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_cher2.c:12
void cblas_ctbmv(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_ctbmv.c:10
int RowMajorStrg
Definition: cblas_globals.c:2
void cblas_ctrsv(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_ctrsv.c:10
void cblas_cgerc(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_cgerc.c:12
#define FALSE
Definition: cblas_test.h:14
char * cblas_rout
Definition: c_c2chke.c:8
void cblas_chpr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const int N, const float alpha, const void *X, const int incX, void *A)
Definition: cblas_chpr.c:12
Here is the call graph for this function: