c_c2chke.c
Go to the documentation of this file.
00001 #include <stdio.h>
00002 #include <string.h>
00003 #include "cblas.h"
00004 #include "cblas_test.h"
00005 
00006 int cblas_ok, cblas_lerr, cblas_info;
00007 int link_xerbla=TRUE;
00008 char *cblas_rout;
00009 
00010 #ifdef F77_Char
00011 void F77_xerbla(F77_Char F77_srname, void *vinfo);
00012 #else
00013 void F77_xerbla(char *srname, void *vinfo);
00014 #endif
00015 
00016 void chkxer(void) {
00017    extern int cblas_ok, cblas_lerr, cblas_info;
00018    extern int link_xerbla;
00019    extern char *cblas_rout;
00020    if (cblas_lerr == 1 ) {
00021       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);
00022       cblas_ok = 0 ;
00023    }
00024    cblas_lerr = 1 ;
00025 }
00026 
00027 void F77_c2chke(char *rout) {
00028    char *sf = ( rout ) ;
00029    float  A[2] = {0.0,0.0}, 
00030           X[2] = {0.0,0.0}, 
00031           Y[2] = {0.0,0.0}, 
00032           ALPHA[2] = {0.0,0.0},
00033           BETA[2]  = {0.0,0.0}, 
00034           RALPHA = 0.0;
00035    extern int cblas_info, cblas_lerr, cblas_ok;
00036    extern int RowMajorStrg;
00037    extern char *cblas_rout;
00038 
00039    if (link_xerbla) /* call these first to link */
00040    {
00041       cblas_xerbla(cblas_info,cblas_rout,"");
00042       F77_xerbla(cblas_rout,&cblas_info);
00043    }
00044 
00045    cblas_ok = TRUE ;
00046    cblas_lerr = PASSED ;
00047 
00048    if (strncmp( sf,"cblas_cgemv",11)==0) {
00049       cblas_rout = "cblas_cgemv";
00050       cblas_info = 1;
00051       cblas_cgemv(INVALID, CblasNoTrans, 0, 0, 
00052                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00053       chkxer();
00054       cblas_info = 2; RowMajorStrg = FALSE;
00055       cblas_cgemv(CblasColMajor, INVALID, 0, 0, 
00056                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00057       chkxer();
00058       cblas_info = 3; RowMajorStrg = FALSE;
00059       cblas_cgemv(CblasColMajor, CblasNoTrans, INVALID, 0, 
00060                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00061       chkxer();
00062       cblas_info = 4; RowMajorStrg = FALSE;
00063       cblas_cgemv(CblasColMajor, CblasNoTrans, 0, INVALID, 
00064                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00065       chkxer();
00066       cblas_info = 7; RowMajorStrg = FALSE;
00067       cblas_cgemv(CblasColMajor, CblasNoTrans, 2, 0, 
00068                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00069       chkxer();
00070       cblas_info = 9; RowMajorStrg = FALSE;
00071       cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0, 
00072                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
00073       chkxer();
00074       cblas_info = 12; RowMajorStrg = FALSE;
00075       cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0, 
00076                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
00077       chkxer();
00078 
00079       cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
00080       cblas_cgemv(CblasRowMajor, INVALID, 0, 0, 
00081                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00082       chkxer();
00083       cblas_info = 3; RowMajorStrg = TRUE;
00084       cblas_cgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, 
00085                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00086       chkxer();
00087       cblas_info = 4; RowMajorStrg = TRUE;
00088       cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, 
00089                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00090       chkxer();
00091       cblas_info = 7; RowMajorStrg = TRUE;
00092       cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 2, 
00093                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00094       chkxer();
00095       cblas_info = 9; RowMajorStrg = TRUE;
00096       cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0, 
00097                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
00098       chkxer();
00099       cblas_info = 12; RowMajorStrg = TRUE;
00100       cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0, 
00101                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
00102       chkxer();
00103    } else if (strncmp( sf,"cblas_cgbmv",11)==0) {
00104       cblas_rout = "cblas_cgbmv";
00105       cblas_info = 1; RowMajorStrg = FALSE;
00106       cblas_cgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, 
00107                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00108       chkxer();
00109       cblas_info = 2; RowMajorStrg = FALSE;
00110       cblas_cgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, 
00111                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00112       chkxer();
00113       cblas_info = 3; RowMajorStrg = FALSE;
00114       cblas_cgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, 
00115                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00116       chkxer();
00117       cblas_info = 4; RowMajorStrg = FALSE;
00118       cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, 
00119                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00120       chkxer();
00121       cblas_info = 5; RowMajorStrg = FALSE;
00122       cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, 
00123                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00124       chkxer();
00125       cblas_info = 6; RowMajorStrg = FALSE;
00126       cblas_cgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, 
00127                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00128       chkxer();
00129       cblas_info = 9; RowMajorStrg = FALSE;
00130       cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, 
00131                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00132       chkxer();
00133       cblas_info = 11; RowMajorStrg = FALSE;
00134       cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, 
00135                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
00136       chkxer();
00137       cblas_info = 14; RowMajorStrg = FALSE;
00138       cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, 
00139                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
00140       chkxer();
00141       cblas_info = 2; RowMajorStrg = TRUE;
00142       cblas_cgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, 
00143                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00144       chkxer();
00145       cblas_info = 3; RowMajorStrg = TRUE;
00146       cblas_cgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, 
00147                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00148       chkxer();
00149       cblas_info = 4; RowMajorStrg = TRUE;
00150       cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, 
00151                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00152       chkxer();
00153       cblas_info = 5; RowMajorStrg = TRUE;
00154       cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, 
00155                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00156       chkxer();
00157       cblas_info = 6; RowMajorStrg = TRUE;
00158       cblas_cgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, 
00159                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00160       chkxer();
00161       cblas_info = 9; RowMajorStrg = TRUE;
00162       cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, 
00163                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00164       chkxer();
00165       cblas_info = 11; RowMajorStrg = TRUE;
00166       cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, 
00167                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
00168       chkxer();
00169       cblas_info = 14; RowMajorStrg = TRUE;
00170       cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, 
00171                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
00172       chkxer();
00173    } else if (strncmp( sf,"cblas_chemv",11)==0) {
00174       cblas_rout = "cblas_chemv";
00175       cblas_info = 1; RowMajorStrg = FALSE;
00176       cblas_chemv(INVALID, CblasUpper, 0, 
00177                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00178       chkxer();
00179       cblas_info = 2; RowMajorStrg = FALSE;
00180       cblas_chemv(CblasColMajor, INVALID, 0, 
00181                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00182       chkxer();
00183       cblas_info = 3; RowMajorStrg = FALSE;
00184       cblas_chemv(CblasColMajor, CblasUpper, INVALID, 
00185                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00186       chkxer();
00187       cblas_info = 6; RowMajorStrg = FALSE;
00188       cblas_chemv(CblasColMajor, CblasUpper, 2, 
00189                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00190       chkxer();
00191       cblas_info = 8; RowMajorStrg = FALSE;
00192       cblas_chemv(CblasColMajor, CblasUpper, 0, 
00193                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
00194       chkxer();
00195       cblas_info = 11; RowMajorStrg = FALSE;
00196       cblas_chemv(CblasColMajor, CblasUpper, 0, 
00197                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
00198       chkxer();
00199       cblas_info = 2; RowMajorStrg = TRUE;
00200       cblas_chemv(CblasRowMajor, INVALID, 0, 
00201                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00202       chkxer();
00203       cblas_info = 3; RowMajorStrg = TRUE;
00204       cblas_chemv(CblasRowMajor, CblasUpper, INVALID, 
00205                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00206       chkxer();
00207       cblas_info = 6; RowMajorStrg = TRUE;
00208       cblas_chemv(CblasRowMajor, CblasUpper, 2, 
00209                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00210       chkxer();
00211       cblas_info = 8; RowMajorStrg = TRUE;
00212       cblas_chemv(CblasRowMajor, CblasUpper, 0, 
00213                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
00214       chkxer();
00215       cblas_info = 11; RowMajorStrg = TRUE;
00216       cblas_chemv(CblasRowMajor, CblasUpper, 0, 
00217                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
00218       chkxer();
00219    } else if (strncmp( sf,"cblas_chbmv",11)==0) {
00220       cblas_rout = "cblas_chbmv";
00221       cblas_info = 1; RowMajorStrg = FALSE;
00222       cblas_chbmv(INVALID, CblasUpper, 0, 0, 
00223                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00224       chkxer();
00225       cblas_info = 2; RowMajorStrg = FALSE;
00226       cblas_chbmv(CblasColMajor, INVALID, 0, 0, 
00227                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00228       chkxer();
00229       cblas_info = 3; RowMajorStrg = FALSE;
00230       cblas_chbmv(CblasColMajor, CblasUpper, INVALID, 0, 
00231                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00232       chkxer();
00233       cblas_info = 4; RowMajorStrg = FALSE;
00234       cblas_chbmv(CblasColMajor, CblasUpper, 0, INVALID, 
00235                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00236       chkxer();
00237       cblas_info = 7; RowMajorStrg = FALSE;
00238       cblas_chbmv(CblasColMajor, CblasUpper, 0, 1, 
00239                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00240       chkxer();
00241       cblas_info = 9; RowMajorStrg = FALSE;
00242       cblas_chbmv(CblasColMajor, CblasUpper, 0, 0, 
00243                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
00244       chkxer();
00245       cblas_info = 12; RowMajorStrg = FALSE;
00246       cblas_chbmv(CblasColMajor, CblasUpper, 0, 0, 
00247                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
00248       chkxer();
00249       cblas_info = 2; RowMajorStrg = TRUE;
00250       cblas_chbmv(CblasRowMajor, INVALID, 0, 0, 
00251                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00252       chkxer();
00253       cblas_info = 3; RowMajorStrg = TRUE;
00254       cblas_chbmv(CblasRowMajor, CblasUpper, INVALID, 0, 
00255                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00256       chkxer();
00257       cblas_info = 4; RowMajorStrg = TRUE;
00258       cblas_chbmv(CblasRowMajor, CblasUpper, 0, INVALID, 
00259                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00260       chkxer();
00261       cblas_info = 7; RowMajorStrg = TRUE;
00262       cblas_chbmv(CblasRowMajor, CblasUpper, 0, 1, 
00263                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
00264       chkxer();
00265       cblas_info = 9; RowMajorStrg = TRUE;
00266       cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0, 
00267                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
00268       chkxer();
00269       cblas_info = 12; RowMajorStrg = TRUE;
00270       cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0, 
00271                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
00272       chkxer();
00273    } else if (strncmp( sf,"cblas_chpmv",11)==0) {
00274       cblas_rout = "cblas_chpmv";
00275       cblas_info = 1; RowMajorStrg = FALSE;
00276       cblas_chpmv(INVALID, CblasUpper, 0, 
00277                   ALPHA, A, X, 1, BETA, Y, 1 );
00278       chkxer();
00279       cblas_info = 2; RowMajorStrg = FALSE;
00280       cblas_chpmv(CblasColMajor, INVALID, 0, 
00281                   ALPHA, A, X, 1, BETA, Y, 1 );
00282       chkxer();
00283       cblas_info = 3; RowMajorStrg = FALSE;
00284       cblas_chpmv(CblasColMajor, CblasUpper, INVALID, 
00285                   ALPHA, A, X, 1, BETA, Y, 1 );
00286       chkxer();
00287       cblas_info = 7; RowMajorStrg = FALSE;
00288       cblas_chpmv(CblasColMajor, CblasUpper, 0, 
00289                   ALPHA, A, X, 0, BETA, Y, 1 );
00290       chkxer();
00291       cblas_info = 10; RowMajorStrg = FALSE;
00292       cblas_chpmv(CblasColMajor, CblasUpper, 0, 
00293                   ALPHA, A, X, 1, BETA, Y, 0 );
00294       chkxer();
00295       cblas_info = 2; RowMajorStrg = TRUE;
00296       cblas_chpmv(CblasRowMajor, INVALID, 0, 
00297                   ALPHA, A, X, 1, BETA, Y, 1 );
00298       chkxer();
00299       cblas_info = 3; RowMajorStrg = TRUE;
00300       cblas_chpmv(CblasRowMajor, CblasUpper, INVALID, 
00301                   ALPHA, A, X, 1, BETA, Y, 1 );
00302       chkxer();
00303       cblas_info = 7; RowMajorStrg = TRUE;
00304       cblas_chpmv(CblasRowMajor, CblasUpper, 0, 
00305                   ALPHA, A, X, 0, BETA, Y, 1 );
00306       chkxer();
00307       cblas_info = 10; RowMajorStrg = TRUE;
00308       cblas_chpmv(CblasRowMajor, CblasUpper, 0, 
00309                   ALPHA, A, X, 1, BETA, Y, 0 );
00310       chkxer();
00311    } else if (strncmp( sf,"cblas_ctrmv",11)==0) {
00312       cblas_rout = "cblas_ctrmv";
00313       cblas_info = 1; RowMajorStrg = FALSE;
00314       cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans, 
00315                   CblasNonUnit, 0, A, 1, X, 1 );
00316       chkxer();
00317       cblas_info = 2; RowMajorStrg = FALSE;
00318       cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans, 
00319                   CblasNonUnit, 0, A, 1, X, 1 );
00320       chkxer();
00321       cblas_info = 3; RowMajorStrg = FALSE;
00322       cblas_ctrmv(CblasColMajor, CblasUpper, INVALID, 
00323                   CblasNonUnit, 0, A, 1, X, 1 );
00324       chkxer();
00325       cblas_info = 4; RowMajorStrg = FALSE;
00326       cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, 
00327                   INVALID, 0, A, 1, X, 1 );
00328       chkxer();
00329       cblas_info = 5; RowMajorStrg = FALSE;
00330       cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, 
00331                   CblasNonUnit, INVALID, A, 1, X, 1 );
00332       chkxer();
00333       cblas_info = 7; RowMajorStrg = FALSE;
00334       cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, 
00335                   CblasNonUnit, 2, A, 1, X, 1 );
00336       chkxer();
00337       cblas_info = 9; RowMajorStrg = FALSE;
00338       cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, 
00339                   CblasNonUnit, 0, A, 1, X, 0 );
00340       chkxer();
00341       cblas_info = 2; RowMajorStrg = TRUE;
00342       cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans, 
00343                   CblasNonUnit, 0, A, 1, X, 1 );
00344       chkxer();
00345       cblas_info = 3; RowMajorStrg = TRUE;
00346       cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID, 
00347                   CblasNonUnit, 0, A, 1, X, 1 );
00348       chkxer();
00349       cblas_info = 4; RowMajorStrg = TRUE;
00350       cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00351                   INVALID, 0, A, 1, X, 1 );
00352       chkxer();
00353       cblas_info = 5; RowMajorStrg = TRUE;
00354       cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00355                   CblasNonUnit, INVALID, A, 1, X, 1 );
00356       chkxer();
00357       cblas_info = 7; RowMajorStrg = TRUE;
00358       cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00359                   CblasNonUnit, 2, A, 1, X, 1 );
00360       chkxer();
00361       cblas_info = 9; RowMajorStrg = TRUE;
00362       cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00363                   CblasNonUnit, 0, A, 1, X, 0 );
00364       chkxer();
00365    } else if (strncmp( sf,"cblas_ctbmv",11)==0) {
00366       cblas_rout = "cblas_ctbmv";
00367       cblas_info = 1; RowMajorStrg = FALSE;
00368       cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans, 
00369                   CblasNonUnit, 0, 0, A, 1, X, 1 );
00370       chkxer();
00371       cblas_info = 2; RowMajorStrg = FALSE;
00372       cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans, 
00373                   CblasNonUnit, 0, 0, A, 1, X, 1 );
00374       chkxer();
00375       cblas_info = 3; RowMajorStrg = FALSE;
00376       cblas_ctbmv(CblasColMajor, CblasUpper, INVALID, 
00377                   CblasNonUnit, 0, 0, A, 1, X, 1 );
00378       chkxer();
00379       cblas_info = 4; RowMajorStrg = FALSE;
00380       cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, 
00381                   INVALID, 0, 0, A, 1, X, 1 );
00382       chkxer();
00383       cblas_info = 5; RowMajorStrg = FALSE;
00384       cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, 
00385                   CblasNonUnit, INVALID, 0, A, 1, X, 1 );
00386       chkxer();
00387       cblas_info = 6; RowMajorStrg = FALSE;
00388       cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, 
00389                   CblasNonUnit, 0, INVALID, A, 1, X, 1 );
00390       chkxer();
00391       cblas_info = 8; RowMajorStrg = FALSE;
00392       cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, 
00393                   CblasNonUnit, 0, 1, A, 1, X, 1 );
00394       chkxer();
00395       cblas_info = 10; RowMajorStrg = FALSE;
00396       cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, 
00397                   CblasNonUnit, 0, 0, A, 1, X, 0 );
00398       chkxer();
00399       cblas_info = 2; RowMajorStrg = TRUE;
00400       cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans, 
00401                   CblasNonUnit, 0, 0, A, 1, X, 1 );
00402       chkxer();
00403       cblas_info = 3; RowMajorStrg = TRUE;
00404       cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID, 
00405                   CblasNonUnit, 0, 0, A, 1, X, 1 );
00406       chkxer();
00407       cblas_info = 4; RowMajorStrg = TRUE;
00408       cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00409                   INVALID, 0, 0, A, 1, X, 1 );
00410       chkxer();
00411       cblas_info = 5; RowMajorStrg = TRUE;
00412       cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00413                   CblasNonUnit, INVALID, 0, A, 1, X, 1 );
00414       chkxer();
00415       cblas_info = 6; RowMajorStrg = TRUE;
00416       cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00417                   CblasNonUnit, 0, INVALID, A, 1, X, 1 );
00418       chkxer();
00419       cblas_info = 8; RowMajorStrg = TRUE;
00420       cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00421                   CblasNonUnit, 0, 1, A, 1, X, 1 );
00422       chkxer();
00423       cblas_info = 10; RowMajorStrg = TRUE;
00424       cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00425                   CblasNonUnit, 0, 0, A, 1, X, 0 );
00426       chkxer();
00427    } else if (strncmp( sf,"cblas_ctpmv",11)==0) {
00428       cblas_rout = "cblas_ctpmv";
00429       cblas_info = 1; RowMajorStrg = FALSE;
00430       cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans, 
00431                   CblasNonUnit, 0, A, X, 1 );
00432       chkxer();
00433       cblas_info = 2; RowMajorStrg = FALSE;
00434       cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans, 
00435                   CblasNonUnit, 0, A, X, 1 );
00436       chkxer();
00437       cblas_info = 3; RowMajorStrg = FALSE;
00438       cblas_ctpmv(CblasColMajor, CblasUpper, INVALID, 
00439                   CblasNonUnit, 0, A, X, 1 );
00440       chkxer();
00441       cblas_info = 4; RowMajorStrg = FALSE;
00442       cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, 
00443                   INVALID, 0, A, X, 1 );
00444       chkxer();
00445       cblas_info = 5; RowMajorStrg = FALSE;
00446       cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, 
00447                   CblasNonUnit, INVALID, A, X, 1 );
00448       chkxer();
00449       cblas_info = 8; RowMajorStrg = FALSE;
00450       cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, 
00451                   CblasNonUnit, 0, A, X, 0 );
00452       chkxer();
00453       cblas_info = 2; RowMajorStrg = TRUE;
00454       cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans, 
00455                   CblasNonUnit, 0, A, X, 1 );
00456       chkxer();
00457       cblas_info = 3; RowMajorStrg = TRUE;
00458       cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID, 
00459                   CblasNonUnit, 0, A, X, 1 );
00460       chkxer();
00461       cblas_info = 4; RowMajorStrg = TRUE;
00462       cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00463                   INVALID, 0, A, X, 1 );
00464       chkxer();
00465       cblas_info = 5; RowMajorStrg = TRUE;
00466       cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00467                   CblasNonUnit, INVALID, A, X, 1 );
00468       chkxer();
00469       cblas_info = 8; RowMajorStrg = TRUE;
00470       cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00471                   CblasNonUnit, 0, A, X, 0 );
00472       chkxer();
00473    } else if (strncmp( sf,"cblas_ctrsv",11)==0) {
00474       cblas_rout = "cblas_ctrsv";
00475       cblas_info = 1; RowMajorStrg = FALSE;
00476       cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans, 
00477                   CblasNonUnit, 0, A, 1, X, 1 );
00478       chkxer();
00479       cblas_info = 2; RowMajorStrg = FALSE;
00480       cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans, 
00481                   CblasNonUnit, 0, A, 1, X, 1 );
00482       chkxer();
00483       cblas_info = 3; RowMajorStrg = FALSE;
00484       cblas_ctrsv(CblasColMajor, CblasUpper, INVALID, 
00485                   CblasNonUnit, 0, A, 1, X, 1 );
00486       chkxer();
00487       cblas_info = 4; RowMajorStrg = FALSE;
00488       cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, 
00489                   INVALID, 0, A, 1, X, 1 );
00490       chkxer();
00491       cblas_info = 5; RowMajorStrg = FALSE;
00492       cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, 
00493                   CblasNonUnit, INVALID, A, 1, X, 1 );
00494       chkxer();
00495       cblas_info = 7; RowMajorStrg = FALSE;
00496       cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, 
00497                   CblasNonUnit, 2, A, 1, X, 1 );
00498       chkxer();
00499       cblas_info = 9; RowMajorStrg = FALSE;
00500       cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, 
00501                   CblasNonUnit, 0, A, 1, X, 0 );
00502       chkxer();
00503       cblas_info = 2; RowMajorStrg = TRUE;
00504       cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans, 
00505                   CblasNonUnit, 0, A, 1, X, 1 );
00506       chkxer();
00507       cblas_info = 3; RowMajorStrg = TRUE;
00508       cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID, 
00509                   CblasNonUnit, 0, A, 1, X, 1 );
00510       chkxer();
00511       cblas_info = 4; RowMajorStrg = TRUE;
00512       cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00513                   INVALID, 0, A, 1, X, 1 );
00514       chkxer();
00515       cblas_info = 5; RowMajorStrg = TRUE;
00516       cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00517                   CblasNonUnit, INVALID, A, 1, X, 1 );
00518       chkxer();
00519       cblas_info = 7; RowMajorStrg = TRUE;
00520       cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00521                   CblasNonUnit, 2, A, 1, X, 1 );
00522       chkxer();
00523       cblas_info = 9; RowMajorStrg = TRUE;
00524       cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00525                   CblasNonUnit, 0, A, 1, X, 0 );
00526       chkxer();
00527    } else if (strncmp( sf,"cblas_ctbsv",11)==0) {
00528       cblas_rout = "cblas_ctbsv";
00529       cblas_info = 1; RowMajorStrg = FALSE;
00530       cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans, 
00531                   CblasNonUnit, 0, 0, A, 1, X, 1 );
00532       chkxer();
00533       cblas_info = 2; RowMajorStrg = FALSE;
00534       cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans, 
00535                   CblasNonUnit, 0, 0, A, 1, X, 1 );
00536       chkxer();
00537       cblas_info = 3; RowMajorStrg = FALSE;
00538       cblas_ctbsv(CblasColMajor, CblasUpper, INVALID, 
00539                   CblasNonUnit, 0, 0, A, 1, X, 1 );
00540       chkxer();
00541       cblas_info = 4; RowMajorStrg = FALSE;
00542       cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, 
00543                   INVALID, 0, 0, A, 1, X, 1 );
00544       chkxer();
00545       cblas_info = 5; RowMajorStrg = FALSE;
00546       cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, 
00547                   CblasNonUnit, INVALID, 0, A, 1, X, 1 );
00548       chkxer();
00549       cblas_info = 6; RowMajorStrg = FALSE;
00550       cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, 
00551                   CblasNonUnit, 0, INVALID, A, 1, X, 1 );
00552       chkxer();
00553       cblas_info = 8; RowMajorStrg = FALSE;
00554       cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, 
00555                   CblasNonUnit, 0, 1, A, 1, X, 1 );
00556       chkxer();
00557       cblas_info = 10; RowMajorStrg = FALSE;
00558       cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, 
00559                   CblasNonUnit, 0, 0, A, 1, X, 0 );
00560       chkxer();
00561       cblas_info = 2; RowMajorStrg = TRUE;
00562       cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans, 
00563                   CblasNonUnit, 0, 0, A, 1, X, 1 );
00564       chkxer();
00565       cblas_info = 3; RowMajorStrg = TRUE;
00566       cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID, 
00567                   CblasNonUnit, 0, 0, A, 1, X, 1 );
00568       chkxer();
00569       cblas_info = 4; RowMajorStrg = TRUE;
00570       cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00571                   INVALID, 0, 0, A, 1, X, 1 );
00572       chkxer();
00573       cblas_info = 5; RowMajorStrg = TRUE;
00574       cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00575                   CblasNonUnit, INVALID, 0, A, 1, X, 1 );
00576       chkxer();
00577       cblas_info = 6; RowMajorStrg = TRUE;
00578       cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00579                   CblasNonUnit, 0, INVALID, A, 1, X, 1 );
00580       chkxer();
00581       cblas_info = 8; RowMajorStrg = TRUE;
00582       cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00583                   CblasNonUnit, 0, 1, A, 1, X, 1 );
00584       chkxer();
00585       cblas_info = 10; RowMajorStrg = TRUE;
00586       cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00587                   CblasNonUnit, 0, 0, A, 1, X, 0 );
00588       chkxer();
00589    } else if (strncmp( sf,"cblas_ctpsv",11)==0) {
00590       cblas_rout = "cblas_ctpsv";
00591       cblas_info = 1; RowMajorStrg = FALSE;
00592       cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans, 
00593                   CblasNonUnit, 0, A, X, 1 );
00594       chkxer();
00595       cblas_info = 2; RowMajorStrg = FALSE;
00596       cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans, 
00597                   CblasNonUnit, 0, A, X, 1 );
00598       chkxer();
00599       cblas_info = 3; RowMajorStrg = FALSE;
00600       cblas_ctpsv(CblasColMajor, CblasUpper, INVALID, 
00601                   CblasNonUnit, 0, A, X, 1 );
00602       chkxer();
00603       cblas_info = 4; RowMajorStrg = FALSE;
00604       cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, 
00605                   INVALID, 0, A, X, 1 );
00606       chkxer();
00607       cblas_info = 5; RowMajorStrg = FALSE;
00608       cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, 
00609                   CblasNonUnit, INVALID, A, X, 1 );
00610       chkxer();
00611       cblas_info = 8; RowMajorStrg = FALSE;
00612       cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, 
00613                   CblasNonUnit, 0, A, X, 0 );
00614       chkxer();
00615       cblas_info = 2; RowMajorStrg = TRUE;
00616       cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans, 
00617                   CblasNonUnit, 0, A, X, 1 );
00618       chkxer();
00619       cblas_info = 3; RowMajorStrg = TRUE;
00620       cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID, 
00621                   CblasNonUnit, 0, A, X, 1 );
00622       chkxer();
00623       cblas_info = 4; RowMajorStrg = TRUE;
00624       cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00625                   INVALID, 0, A, X, 1 );
00626       chkxer();
00627       cblas_info = 5; RowMajorStrg = TRUE;
00628       cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00629                   CblasNonUnit, INVALID, A, X, 1 );
00630       chkxer();
00631       cblas_info = 8; RowMajorStrg = TRUE;
00632       cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
00633                   CblasNonUnit, 0, A, X, 0 );
00634       chkxer();
00635    } else if (strncmp( sf,"cblas_cgeru",10)==0) {
00636       cblas_rout = "cblas_cgeru";
00637       cblas_info = 1; RowMajorStrg = FALSE;
00638       cblas_cgeru(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
00639       chkxer();
00640       cblas_info = 2; RowMajorStrg = FALSE;
00641       cblas_cgeru(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
00642       chkxer();
00643       cblas_info = 3; RowMajorStrg = FALSE;
00644       cblas_cgeru(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
00645       chkxer();
00646       cblas_info = 6; RowMajorStrg = FALSE;
00647       cblas_cgeru(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
00648       chkxer();
00649       cblas_info = 8; RowMajorStrg = FALSE;
00650       cblas_cgeru(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
00651       chkxer();
00652       cblas_info = 10; RowMajorStrg = FALSE;
00653       cblas_cgeru(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
00654       chkxer();
00655       cblas_info = 2; RowMajorStrg = TRUE;
00656       cblas_cgeru(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
00657       chkxer();
00658       cblas_info = 3; RowMajorStrg = TRUE;
00659       cblas_cgeru(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
00660       chkxer();
00661       cblas_info = 6; RowMajorStrg = TRUE;
00662       cblas_cgeru(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
00663       chkxer();
00664       cblas_info = 8; RowMajorStrg = TRUE;
00665       cblas_cgeru(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
00666       chkxer();
00667       cblas_info = 10; RowMajorStrg = TRUE;
00668       cblas_cgeru(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
00669       chkxer();
00670    } else if (strncmp( sf,"cblas_cgerc",10)==0) {
00671       cblas_rout = "cblas_cgerc";
00672       cblas_info = 1; RowMajorStrg = FALSE;
00673       cblas_cgerc(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
00674       chkxer();
00675       cblas_info = 2; RowMajorStrg = FALSE;
00676       cblas_cgerc(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
00677       chkxer();
00678       cblas_info = 3; RowMajorStrg = FALSE;
00679       cblas_cgerc(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
00680       chkxer();
00681       cblas_info = 6; RowMajorStrg = FALSE;
00682       cblas_cgerc(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
00683       chkxer();
00684       cblas_info = 8; RowMajorStrg = FALSE;
00685       cblas_cgerc(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
00686       chkxer();
00687       cblas_info = 10; RowMajorStrg = FALSE;
00688       cblas_cgerc(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
00689       chkxer();
00690       cblas_info = 2; RowMajorStrg = TRUE;
00691       cblas_cgerc(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
00692       chkxer();
00693       cblas_info = 3; RowMajorStrg = TRUE;
00694       cblas_cgerc(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
00695       chkxer();
00696       cblas_info = 6; RowMajorStrg = TRUE;
00697       cblas_cgerc(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
00698       chkxer();
00699       cblas_info = 8; RowMajorStrg = TRUE;
00700       cblas_cgerc(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
00701       chkxer();
00702       cblas_info = 10; RowMajorStrg = TRUE;
00703       cblas_cgerc(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
00704       chkxer();
00705    } else if (strncmp( sf,"cblas_cher2",11)==0) {
00706       cblas_rout = "cblas_cher2";
00707       cblas_info = 1; RowMajorStrg = FALSE;
00708       cblas_cher2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
00709       chkxer();
00710       cblas_info = 2; RowMajorStrg = FALSE;
00711       cblas_cher2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
00712       chkxer();
00713       cblas_info = 3; RowMajorStrg = FALSE;
00714       cblas_cher2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
00715       chkxer();
00716       cblas_info = 6; RowMajorStrg = FALSE;
00717       cblas_cher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
00718       chkxer();
00719       cblas_info = 8; RowMajorStrg = FALSE;
00720       cblas_cher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
00721       chkxer();
00722       cblas_info = 10; RowMajorStrg = FALSE;
00723       cblas_cher2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
00724       chkxer();
00725       cblas_info = 2; RowMajorStrg = TRUE;
00726       cblas_cher2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
00727       chkxer();
00728       cblas_info = 3; RowMajorStrg = TRUE;
00729       cblas_cher2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
00730       chkxer();
00731       cblas_info = 6; RowMajorStrg = TRUE;
00732       cblas_cher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
00733       chkxer();
00734       cblas_info = 8; RowMajorStrg = TRUE;
00735       cblas_cher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
00736       chkxer();
00737       cblas_info = 10; RowMajorStrg = TRUE;
00738       cblas_cher2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
00739       chkxer();
00740    } else if (strncmp( sf,"cblas_chpr2",11)==0) {
00741       cblas_rout = "cblas_chpr2";
00742       cblas_info = 1; RowMajorStrg = FALSE;
00743       cblas_chpr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
00744       chkxer();
00745       cblas_info = 2; RowMajorStrg = FALSE;
00746       cblas_chpr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
00747       chkxer();
00748       cblas_info = 3; RowMajorStrg = FALSE;
00749       cblas_chpr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
00750       chkxer();
00751       cblas_info = 6; RowMajorStrg = FALSE;
00752       cblas_chpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
00753       chkxer();
00754       cblas_info = 8; RowMajorStrg = FALSE;
00755       cblas_chpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
00756       chkxer();
00757       cblas_info = 2; RowMajorStrg = TRUE;
00758       cblas_chpr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
00759       chkxer();
00760       cblas_info = 3; RowMajorStrg = TRUE;
00761       cblas_chpr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
00762       chkxer();
00763       cblas_info = 6; RowMajorStrg = TRUE;
00764       cblas_chpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
00765       chkxer();
00766       cblas_info = 8; RowMajorStrg = TRUE;
00767       cblas_chpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
00768       chkxer();
00769    } else if (strncmp( sf,"cblas_cher",10)==0) {
00770       cblas_rout = "cblas_cher";
00771       cblas_info = 1; RowMajorStrg = FALSE;
00772       cblas_cher(INVALID, CblasUpper, 0, RALPHA, X, 1, A, 1 );
00773       chkxer();
00774       cblas_info = 2; RowMajorStrg = FALSE;
00775       cblas_cher(CblasColMajor, INVALID, 0, RALPHA, X, 1, A, 1 );
00776       chkxer();
00777       cblas_info = 3; RowMajorStrg = FALSE;
00778       cblas_cher(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );
00779       chkxer();
00780       cblas_info = 6; RowMajorStrg = FALSE;
00781       cblas_cher(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );
00782       chkxer();
00783       cblas_info = 8; RowMajorStrg = FALSE;
00784       cblas_cher(CblasColMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );
00785       chkxer();
00786       cblas_info = 2; RowMajorStrg = TRUE;
00787       cblas_cher(CblasRowMajor, INVALID, 0, RALPHA, X, 1, A, 1 );
00788       chkxer();
00789       cblas_info = 3; RowMajorStrg = TRUE;
00790       cblas_cher(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );
00791       chkxer();
00792       cblas_info = 6; RowMajorStrg = TRUE;
00793       cblas_cher(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );
00794       chkxer();
00795       cblas_info = 8; RowMajorStrg = TRUE;
00796       cblas_cher(CblasRowMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );
00797       chkxer();
00798    } else if (strncmp( sf,"cblas_chpr",10)==0) {
00799       cblas_rout = "cblas_chpr";
00800       cblas_info = 1; RowMajorStrg = FALSE;
00801       cblas_chpr(INVALID, CblasUpper, 0, RALPHA, X, 1, A );
00802       chkxer();
00803       cblas_info = 2; RowMajorStrg = FALSE;
00804       cblas_chpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );
00805       chkxer();
00806       cblas_info = 3; RowMajorStrg = FALSE;
00807       cblas_chpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
00808       chkxer();
00809       cblas_info = 6; RowMajorStrg = FALSE;
00810       cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
00811       chkxer();
00812       cblas_info = 2; RowMajorStrg = FALSE;
00813       cblas_chpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );
00814       chkxer();
00815       cblas_info = 3; RowMajorStrg = FALSE;
00816       cblas_chpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
00817       chkxer();
00818       cblas_info = 6; RowMajorStrg = FALSE;
00819       cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
00820       chkxer();
00821    } 
00822    if (cblas_ok == TRUE)
00823        printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
00824    else
00825        printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
00826 }


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:15