c_c3chke.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_c3chke(char *  rout) {
00028    char *sf = ( rout ) ;
00029    float   A[4]     = {0.0,0.0,0.0,0.0},
00030            B[4]     = {0.0,0.0,0.0,0.0},
00031            C[4]     = {0.0,0.0,0.0,0.0},
00032            ALPHA[2] = {0.0,0.0},
00033            BETA[2]  = {0.0,0.0}, 
00034            RALPHA   = 0.0, RBETA = 0.0;
00035    extern int cblas_info, cblas_lerr, cblas_ok;
00036    extern int RowMajorStrg;
00037    extern char *cblas_rout;
00038 
00039    cblas_ok = TRUE ;
00040    cblas_lerr = PASSED ;
00041 
00042    if (link_xerbla) /* call these first to link */
00043    {
00044       cblas_xerbla(cblas_info,cblas_rout,"");
00045       F77_xerbla(cblas_rout,&cblas_info);
00046    }
00047 
00048    if (strncmp( sf,"cblas_cgemm"   ,11)==0) {
00049       cblas_rout = "cblas_cgemm"   ;
00050 
00051       cblas_info = 1;
00052       cblas_cgemm( INVALID,  CblasNoTrans, CblasNoTrans, 0, 0, 0, 
00053                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00054       chkxer();
00055       cblas_info = 1;
00056       cblas_cgemm( INVALID,  CblasNoTrans, CblasTrans, 0, 0, 0, 
00057                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00058       chkxer();
00059       cblas_info = 1;
00060       cblas_cgemm( INVALID,  CblasTrans, CblasNoTrans, 0, 0, 0, 
00061                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00062       chkxer();
00063       cblas_info = 1;
00064       cblas_cgemm( INVALID,  CblasTrans, CblasTrans, 0, 0, 0,
00065                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00066       chkxer();
00067       cblas_info = 2; RowMajorStrg = FALSE;
00068       cblas_cgemm( CblasColMajor,  INVALID, CblasNoTrans, 0, 0, 0,
00069                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00070       chkxer();
00071       cblas_info = 2; RowMajorStrg = FALSE;
00072       cblas_cgemm( CblasColMajor,  INVALID, CblasTrans, 0, 0, 0,
00073                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00074       chkxer();
00075       cblas_info = 3; RowMajorStrg = FALSE;
00076       cblas_cgemm( CblasColMajor,  CblasNoTrans, INVALID, 0, 0, 0,
00077                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00078       chkxer();
00079       cblas_info = 3; RowMajorStrg = FALSE;
00080       cblas_cgemm( CblasColMajor,  CblasTrans, INVALID, 0, 0, 0,
00081                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00082       chkxer();
00083       cblas_info = 4; RowMajorStrg = FALSE;
00084       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
00085                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00086       chkxer();
00087       cblas_info = 4; RowMajorStrg = FALSE;
00088       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, INVALID, 0, 0,
00089                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00090       chkxer();
00091       cblas_info = 4; RowMajorStrg = FALSE;
00092       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, INVALID, 0, 0,
00093                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00094       chkxer();
00095       cblas_info = 4; RowMajorStrg = FALSE;
00096       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, INVALID, 0, 0,
00097                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00098       chkxer();
00099       cblas_info = 5; RowMajorStrg = FALSE;
00100       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
00101                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00102       chkxer();
00103       cblas_info = 5; RowMajorStrg = FALSE;
00104       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, INVALID, 0,
00105                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00106       chkxer();
00107       cblas_info = 5; RowMajorStrg = FALSE;
00108       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, INVALID, 0,
00109                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00110       chkxer();
00111       cblas_info = 5; RowMajorStrg = FALSE;
00112       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, INVALID, 0,
00113                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00114       chkxer();
00115       cblas_info = 6; RowMajorStrg = FALSE;
00116       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
00117                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00118       chkxer();
00119       cblas_info = 6; RowMajorStrg = FALSE;
00120       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, 0, INVALID,
00121                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00122       chkxer();
00123       cblas_info = 6; RowMajorStrg = FALSE;
00124       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, INVALID,
00125                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00126       chkxer();
00127       cblas_info = 6; RowMajorStrg = FALSE;
00128       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 0, INVALID,
00129                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00130       chkxer();
00131       cblas_info = 9; RowMajorStrg = FALSE;
00132       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 2, 0, 0,
00133                    ALPHA, A, 1, B, 1, BETA, C, 2 );
00134       chkxer();
00135       cblas_info = 9; RowMajorStrg = FALSE;
00136       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 2, 0, 0,
00137                    ALPHA, A, 1, B, 1, BETA, C, 2 );
00138       chkxer();
00139       cblas_info = 9; RowMajorStrg = FALSE;
00140       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, 2,
00141                    ALPHA, A, 1, B, 2, BETA, C, 1 );
00142       chkxer();
00143       cblas_info = 9; RowMajorStrg = FALSE;
00144       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 0, 2,
00145                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00146       chkxer();
00147       cblas_info = 11; RowMajorStrg = FALSE;
00148       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, 0, 2,
00149                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00150       chkxer();
00151       cblas_info = 11; RowMajorStrg = FALSE;
00152       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, 2,
00153                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00154       chkxer();
00155       cblas_info = 11; RowMajorStrg = FALSE;
00156       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, 2, 0,
00157                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00158       chkxer();
00159       cblas_info = 11; RowMajorStrg = FALSE;
00160       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 2, 0,
00161                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00162       chkxer();
00163       cblas_info = 14; RowMajorStrg = FALSE;
00164       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 2, 0, 0,
00165                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00166       chkxer();
00167       cblas_info = 14; RowMajorStrg = FALSE;
00168       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 2, 0, 0,
00169                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00170       chkxer();
00171       cblas_info = 14; RowMajorStrg = FALSE;
00172       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 2, 0, 0,
00173                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00174       chkxer();
00175       cblas_info = 14; RowMajorStrg = FALSE;
00176       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 2, 0, 0,
00177                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00178       chkxer();
00179       cblas_info = 4; RowMajorStrg = TRUE;
00180       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
00181                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00182       chkxer();
00183       cblas_info = 4; RowMajorStrg = TRUE;
00184       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, INVALID, 0, 0,
00185                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00186       chkxer();
00187       cblas_info = 4; RowMajorStrg = TRUE;
00188       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, INVALID, 0, 0,
00189                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00190       chkxer();
00191       cblas_info = 4; RowMajorStrg = TRUE;
00192       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, INVALID, 0, 0,
00193                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00194       chkxer();
00195       cblas_info = 5; RowMajorStrg = TRUE;
00196       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
00197                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00198       chkxer();
00199       cblas_info = 5; RowMajorStrg = TRUE;
00200       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, INVALID, 0,
00201                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00202       chkxer();
00203       cblas_info = 5; RowMajorStrg = TRUE;
00204       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, INVALID, 0,
00205                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00206       chkxer();
00207       cblas_info = 5; RowMajorStrg = TRUE;
00208       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, INVALID, 0,
00209                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00210       chkxer();
00211       cblas_info = 6; RowMajorStrg = TRUE;
00212       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
00213                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00214       chkxer();
00215       cblas_info = 6; RowMajorStrg = TRUE;
00216       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 0, INVALID,
00217                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00218       chkxer();
00219       cblas_info = 6; RowMajorStrg = TRUE;
00220       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, 0, INVALID,
00221                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00222       chkxer();
00223       cblas_info = 6; RowMajorStrg = TRUE;
00224       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 0, INVALID,
00225                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00226       chkxer();
00227       cblas_info = 9;  RowMajorStrg = TRUE;
00228       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 0, 2,
00229                    ALPHA, A, 1, B, 1, BETA, C, 2 );
00230       chkxer();
00231       cblas_info = 9; RowMajorStrg = TRUE;
00232       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 0, 2,
00233                    ALPHA, A, 1, B, 2, BETA, C, 2 );
00234       chkxer();
00235       cblas_info = 9; RowMajorStrg = TRUE;
00236       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 2, 0, 0,
00237                    ALPHA, A, 1, B, 2, BETA, C, 1 );
00238       chkxer();
00239       cblas_info = 9; RowMajorStrg = TRUE;
00240       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 2, 0, 0,
00241                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00242       chkxer();
00243       cblas_info = 11; RowMajorStrg = TRUE;
00244       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 2, 0,
00245                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00246       chkxer();
00247       cblas_info = 11; RowMajorStrg = TRUE;
00248       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, 2, 0,
00249                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00250       chkxer();
00251       cblas_info = 11; RowMajorStrg = TRUE;
00252       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 0, 2,
00253                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00254       chkxer();
00255       cblas_info = 11; RowMajorStrg = TRUE;
00256       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 0, 2,
00257                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00258       chkxer();
00259       cblas_info = 14; RowMajorStrg = TRUE;
00260       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 2, 0,
00261                    ALPHA, A, 1, B, 2, BETA, C, 1 );
00262       chkxer();
00263       cblas_info = 14; RowMajorStrg = TRUE;
00264       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 2, 0,
00265                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00266       chkxer();
00267       cblas_info = 14; RowMajorStrg = TRUE;
00268       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, 2, 0,
00269                    ALPHA, A, 1, B, 2, BETA, C, 1 );
00270       chkxer();
00271       cblas_info = 14; RowMajorStrg = TRUE;
00272       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 2, 0,
00273                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00274       chkxer();
00275               
00276    } else if (strncmp( sf,"cblas_chemm"   ,11)==0) {
00277             cblas_rout = "cblas_chemm"   ;
00278 
00279       cblas_info = 1;
00280       cblas_chemm( INVALID,  CblasRight, CblasLower, 0, 0,
00281                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00282       chkxer();
00283       cblas_info = 2; RowMajorStrg = FALSE;
00284       cblas_chemm( CblasColMajor,  INVALID, CblasUpper, 0, 0,
00285                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00286       chkxer();
00287       cblas_info = 3; RowMajorStrg = FALSE;
00288       cblas_chemm( CblasColMajor,  CblasLeft, INVALID, 0, 0,
00289                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00290       chkxer();
00291       cblas_info = 4; RowMajorStrg = FALSE;
00292       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, INVALID, 0,
00293                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00294       chkxer();
00295       cblas_info = 4; RowMajorStrg = FALSE;
00296       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, INVALID, 0,
00297                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00298       chkxer();
00299       cblas_info = 4; RowMajorStrg = FALSE;
00300       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, INVALID, 0,
00301                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00302       chkxer();
00303       cblas_info = 4; RowMajorStrg = FALSE;
00304       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, INVALID, 0,
00305                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00306       chkxer();
00307       cblas_info = 5; RowMajorStrg = FALSE;
00308       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 0, INVALID,
00309                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00310       chkxer();
00311       cblas_info = 5; RowMajorStrg = FALSE;
00312       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 0, INVALID,
00313                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00314       chkxer();
00315       cblas_info = 5; RowMajorStrg = FALSE;
00316       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 0, INVALID,
00317                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00318       chkxer();
00319       cblas_info = 5; RowMajorStrg = FALSE;
00320       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 0, INVALID,
00321                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00322       chkxer();
00323       cblas_info = 8; RowMajorStrg = FALSE;
00324       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
00325                    ALPHA, A, 1, B, 2, BETA, C, 2 );
00326       chkxer();
00327       cblas_info = 8; RowMajorStrg = FALSE;
00328       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 0, 2,
00329                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00330       chkxer();
00331       cblas_info = 8; RowMajorStrg = FALSE;
00332       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
00333                    ALPHA, A, 1, B, 2, BETA, C, 2 );
00334       chkxer();
00335       cblas_info = 8; RowMajorStrg = FALSE;
00336       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 0, 2,
00337                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00338       chkxer();
00339       cblas_info = 10; RowMajorStrg = FALSE;
00340       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
00341                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00342       chkxer();
00343       cblas_info = 10; RowMajorStrg = FALSE;
00344       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
00345                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00346       chkxer();
00347       cblas_info = 10; RowMajorStrg = FALSE;
00348       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
00349                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00350       chkxer();
00351       cblas_info = 10; RowMajorStrg = FALSE;
00352       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
00353                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00354       chkxer();
00355       cblas_info = 13; RowMajorStrg = FALSE;
00356       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
00357                    ALPHA, A, 2, B, 2, BETA, C, 1 );
00358       chkxer();
00359       cblas_info = 13; RowMajorStrg = FALSE;
00360       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
00361                    ALPHA, A, 1, B, 2, BETA, C, 1 );
00362       chkxer();
00363       cblas_info = 13; RowMajorStrg = FALSE;
00364       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
00365                    ALPHA, A, 2, B, 2, BETA, C, 1 );
00366       chkxer();
00367       cblas_info = 13; RowMajorStrg = FALSE;
00368       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
00369                    ALPHA, A, 1, B, 2, BETA, C, 1 );
00370       chkxer();
00371       cblas_info = 4; RowMajorStrg = TRUE;
00372       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, INVALID, 0,
00373                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00374       chkxer();
00375       cblas_info = 4; RowMajorStrg = TRUE;
00376       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, INVALID, 0,
00377                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00378       chkxer();
00379       cblas_info = 4; RowMajorStrg = TRUE;
00380       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, INVALID, 0,
00381                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00382       chkxer();
00383       cblas_info = 4; RowMajorStrg = TRUE;
00384       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, INVALID, 0,
00385                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00386       chkxer();
00387       cblas_info = 5; RowMajorStrg = TRUE;
00388       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, INVALID,
00389                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00390       chkxer();
00391       cblas_info = 5; RowMajorStrg = TRUE;
00392       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, INVALID,
00393                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00394       chkxer();
00395       cblas_info = 5; RowMajorStrg = TRUE;
00396       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 0, INVALID,
00397                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00398       chkxer();
00399       cblas_info = 5; RowMajorStrg = TRUE;
00400       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, INVALID,
00401                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00402       chkxer();
00403       cblas_info = 8; RowMajorStrg = TRUE;
00404       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 2, 0,
00405                    ALPHA, A, 1, B, 2, BETA, C, 2 );
00406       chkxer();
00407       cblas_info = 8; RowMajorStrg = TRUE;
00408       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
00409                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00410       chkxer();
00411       cblas_info = 8; RowMajorStrg = TRUE;
00412       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 2, 0,
00413                    ALPHA, A, 1, B, 2, BETA, C, 2 );
00414       chkxer();
00415       cblas_info = 8; RowMajorStrg = TRUE;
00416       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
00417                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00418       chkxer();
00419       cblas_info = 10; RowMajorStrg = TRUE;
00420       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
00421                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00422       chkxer();
00423       cblas_info = 10; RowMajorStrg = TRUE;
00424       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
00425                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00426       chkxer();
00427       cblas_info = 10; RowMajorStrg = TRUE;
00428       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
00429                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00430       chkxer();
00431       cblas_info = 10; RowMajorStrg = TRUE;
00432       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
00433                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00434       chkxer();
00435       cblas_info = 13; RowMajorStrg = TRUE;
00436       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
00437                    ALPHA, A, 1, B, 2, BETA, C, 1 );
00438       chkxer();
00439       cblas_info = 13; RowMajorStrg = TRUE;
00440       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
00441                    ALPHA, A, 2, B, 2, BETA, C, 1 );
00442       chkxer();
00443       cblas_info = 13; RowMajorStrg = TRUE;
00444       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
00445                    ALPHA, A, 1, B, 2, BETA, C, 1 );
00446       chkxer();
00447       cblas_info = 13; RowMajorStrg = TRUE;
00448       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
00449                    ALPHA, A, 2, B, 2, BETA, C, 1 );
00450       chkxer();
00451 
00452    } else if (strncmp( sf,"cblas_csymm"   ,11)==0) {
00453             cblas_rout = "cblas_csymm"   ;
00454 
00455       cblas_info = 1;
00456       cblas_csymm( INVALID,  CblasRight, CblasLower, 0, 0,
00457                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00458       chkxer();
00459       cblas_info = 2; RowMajorStrg = FALSE;
00460       cblas_csymm( CblasColMajor,  INVALID, CblasUpper, 0, 0,
00461                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00462       chkxer();
00463       cblas_info = 3; RowMajorStrg = FALSE;
00464       cblas_csymm( CblasColMajor,  CblasLeft, INVALID, 0, 0,
00465                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00466       chkxer();
00467       cblas_info = 4; RowMajorStrg = FALSE;
00468       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, INVALID, 0,
00469                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00470       chkxer();
00471       cblas_info = 4; RowMajorStrg = FALSE;
00472       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, INVALID, 0,
00473                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00474       chkxer();
00475       cblas_info = 4; RowMajorStrg = FALSE;
00476       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, INVALID, 0,
00477                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00478       chkxer();
00479       cblas_info = 4; RowMajorStrg = FALSE;
00480       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, INVALID, 0,
00481                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00482       chkxer();
00483       cblas_info = 5; RowMajorStrg = FALSE;
00484       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 0, INVALID,
00485                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00486       chkxer();
00487       cblas_info = 5; RowMajorStrg = FALSE;
00488       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 0, INVALID,
00489                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00490       chkxer();
00491       cblas_info = 5; RowMajorStrg = FALSE;
00492       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 0, INVALID,
00493                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00494       chkxer();
00495       cblas_info = 5; RowMajorStrg = FALSE;
00496       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 0, INVALID,
00497                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00498       chkxer();
00499       cblas_info = 8; RowMajorStrg = FALSE;
00500       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
00501                    ALPHA, A, 1, B, 2, BETA, C, 2 );
00502       chkxer();
00503       cblas_info = 8; RowMajorStrg = FALSE;
00504       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 0, 2,
00505                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00506       chkxer();
00507       cblas_info = 8; RowMajorStrg = FALSE;
00508       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
00509                    ALPHA, A, 1, B, 2, BETA, C, 2 );
00510       chkxer();
00511       cblas_info = 8; RowMajorStrg = FALSE;
00512       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 0, 2,
00513                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00514       chkxer();
00515       cblas_info = 10; RowMajorStrg = FALSE;
00516       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
00517                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00518       chkxer();
00519       cblas_info = 10; RowMajorStrg = FALSE;
00520       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
00521                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00522       chkxer();
00523       cblas_info = 10; RowMajorStrg = FALSE;
00524       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
00525                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00526       chkxer();
00527       cblas_info = 10; RowMajorStrg = FALSE;
00528       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
00529                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00530       chkxer();
00531       cblas_info = 13; RowMajorStrg = FALSE;
00532       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
00533                    ALPHA, A, 2, B, 2, BETA, C, 1 );
00534       chkxer();
00535       cblas_info = 13; RowMajorStrg = FALSE;
00536       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
00537                    ALPHA, A, 1, B, 2, BETA, C, 1 );
00538       chkxer();
00539       cblas_info = 13; RowMajorStrg = FALSE;
00540       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
00541                    ALPHA, A, 2, B, 2, BETA, C, 1 );
00542       chkxer();
00543       cblas_info = 13; RowMajorStrg = FALSE;
00544       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
00545                    ALPHA, A, 1, B, 2, BETA, C, 1 );
00546       chkxer();
00547       cblas_info = 4; RowMajorStrg = TRUE;
00548       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, INVALID, 0,
00549                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00550       chkxer();
00551       cblas_info = 4; RowMajorStrg = TRUE;
00552       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, INVALID, 0,
00553                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00554       chkxer();
00555       cblas_info = 4; RowMajorStrg = TRUE;
00556       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, INVALID, 0,
00557                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00558       chkxer();
00559       cblas_info = 4; RowMajorStrg = TRUE;
00560       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, INVALID, 0,
00561                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00562       chkxer();
00563       cblas_info = 5; RowMajorStrg = TRUE;
00564       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, INVALID,
00565                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00566       chkxer();
00567       cblas_info = 5; RowMajorStrg = TRUE;
00568       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, INVALID,
00569                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00570       chkxer();
00571       cblas_info = 5; RowMajorStrg = TRUE;
00572       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 0, INVALID,
00573                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00574       chkxer();
00575       cblas_info = 5; RowMajorStrg = TRUE;
00576       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, INVALID,
00577                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00578       chkxer();
00579       cblas_info = 8; RowMajorStrg = TRUE;
00580       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 2, 0,
00581                    ALPHA, A, 1, B, 2, BETA, C, 2 );
00582       chkxer();
00583       cblas_info = 8; RowMajorStrg = TRUE;
00584       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
00585                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00586       chkxer();
00587       cblas_info = 8; RowMajorStrg = TRUE;
00588       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 2, 0,
00589                    ALPHA, A, 1, B, 2, BETA, C, 2 );
00590       chkxer();
00591       cblas_info = 8; RowMajorStrg = TRUE;
00592       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
00593                    ALPHA, A, 1, B, 1, BETA, C, 1 );
00594       chkxer();
00595       cblas_info = 10; RowMajorStrg = TRUE;
00596       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
00597                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00598       chkxer();
00599       cblas_info = 10; RowMajorStrg = TRUE;
00600       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
00601                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00602       chkxer();
00603       cblas_info = 10; RowMajorStrg = TRUE;
00604       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
00605                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00606       chkxer();
00607       cblas_info = 10; RowMajorStrg = TRUE;
00608       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
00609                    ALPHA, A, 2, B, 1, BETA, C, 1 );
00610       chkxer();
00611       cblas_info = 13; RowMajorStrg = TRUE;
00612       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
00613                    ALPHA, A, 1, B, 2, BETA, C, 1 );
00614       chkxer();
00615       cblas_info = 13; RowMajorStrg = TRUE;
00616       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
00617                    ALPHA, A, 2, B, 2, BETA, C, 1 );
00618       chkxer();
00619       cblas_info = 13; RowMajorStrg = TRUE;
00620       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
00621                    ALPHA, A, 1, B, 2, BETA, C, 1 );
00622       chkxer();
00623       cblas_info = 13; RowMajorStrg = TRUE;
00624       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
00625                    ALPHA, A, 2, B, 2, BETA, C, 1 );
00626       chkxer();
00627 
00628    } else if (strncmp( sf,"cblas_ctrmm"   ,11)==0) {
00629             cblas_rout = "cblas_ctrmm"   ;
00630 
00631       cblas_info = 1;
00632       cblas_ctrmm( INVALID,  CblasLeft, CblasUpper, CblasNoTrans,
00633                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00634       chkxer();
00635       cblas_info = 2; RowMajorStrg = FALSE;
00636       cblas_ctrmm( CblasColMajor,  INVALID, CblasUpper, CblasNoTrans,
00637                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00638       chkxer();
00639       cblas_info = 3; RowMajorStrg = FALSE;
00640       cblas_ctrmm( CblasColMajor,  CblasLeft, INVALID, CblasNoTrans,
00641                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00642       chkxer();
00643       cblas_info = 4; RowMajorStrg = FALSE;
00644       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, INVALID,
00645                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00646       chkxer();
00647       cblas_info = 5; RowMajorStrg = FALSE;
00648       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00649                    INVALID, 0, 0, ALPHA, A, 1, B, 1 );
00650       chkxer();
00651       cblas_info = 6; RowMajorStrg = FALSE;
00652       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00653                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00654       chkxer();
00655       cblas_info = 6; RowMajorStrg = FALSE;
00656       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
00657                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00658       chkxer();
00659       cblas_info = 6; RowMajorStrg = FALSE;
00660       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
00661                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00662       chkxer();
00663       cblas_info = 6; RowMajorStrg = FALSE;
00664       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
00665                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00666       chkxer();
00667       cblas_info = 6; RowMajorStrg = FALSE;
00668       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
00669                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00670       chkxer();
00671       cblas_info = 6; RowMajorStrg = FALSE;
00672       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
00673                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00674       chkxer();
00675       cblas_info = 6; RowMajorStrg = FALSE;
00676       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
00677                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00678       chkxer();
00679       cblas_info = 6; RowMajorStrg = FALSE;
00680       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
00681                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00682       chkxer();
00683       cblas_info = 7; RowMajorStrg = FALSE;
00684       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00685                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00686       chkxer();
00687       cblas_info = 7; RowMajorStrg = FALSE;
00688       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
00689                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00690       chkxer();
00691       cblas_info = 7; RowMajorStrg = FALSE;
00692       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
00693                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00694       chkxer();
00695       cblas_info = 7; RowMajorStrg = FALSE;
00696       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
00697                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00698       chkxer();
00699       cblas_info = 7; RowMajorStrg = FALSE;
00700       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
00701                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00702       chkxer();
00703       cblas_info = 7; RowMajorStrg = FALSE;
00704       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
00705                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00706       chkxer();
00707       cblas_info = 7; RowMajorStrg = FALSE;
00708       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
00709                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00710       chkxer();
00711       cblas_info = 7; RowMajorStrg = FALSE;
00712       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
00713                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00714       chkxer();
00715       cblas_info = 10; RowMajorStrg = FALSE;
00716       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00717                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00718       chkxer();
00719       cblas_info = 10; RowMajorStrg = FALSE;
00720       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
00721                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00722       chkxer();
00723       cblas_info = 10; RowMajorStrg = FALSE;
00724       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
00725                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00726       chkxer();
00727       cblas_info = 10; RowMajorStrg = FALSE;
00728       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
00729                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00730       chkxer();
00731       cblas_info = 10; RowMajorStrg = FALSE;
00732       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
00733                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00734       chkxer();
00735       cblas_info = 10; RowMajorStrg = FALSE;
00736       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
00737                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00738       chkxer();
00739       cblas_info = 10; RowMajorStrg = FALSE;
00740       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
00741                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00742       chkxer();
00743       cblas_info = 10; RowMajorStrg = FALSE;
00744       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
00745                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00746       chkxer();
00747       cblas_info = 12; RowMajorStrg = FALSE;
00748       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00749                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00750       chkxer();
00751       cblas_info = 12; RowMajorStrg = FALSE;
00752       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
00753                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00754       chkxer();
00755       cblas_info = 12; RowMajorStrg = FALSE;
00756       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
00757                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00758       chkxer();
00759       cblas_info = 12; RowMajorStrg = FALSE;
00760       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
00761                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00762       chkxer();
00763       cblas_info = 12; RowMajorStrg = FALSE;
00764       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
00765                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00766       chkxer();
00767       cblas_info = 12; RowMajorStrg = FALSE;
00768       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
00769                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
00770       chkxer();
00771       cblas_info = 12; RowMajorStrg = FALSE;
00772       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
00773                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00774       chkxer();
00775       cblas_info = 12; RowMajorStrg = FALSE;
00776       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
00777                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00778       chkxer();
00779       cblas_info = 6; RowMajorStrg = TRUE;
00780       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00781                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00782       chkxer();
00783       cblas_info = 6; RowMajorStrg = TRUE;
00784       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
00785                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00786       chkxer();
00787       cblas_info = 6; RowMajorStrg = TRUE;
00788       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
00789                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00790       chkxer();
00791       cblas_info = 6; RowMajorStrg = TRUE;
00792       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
00793                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00794       chkxer();
00795       cblas_info = 6; RowMajorStrg = TRUE;
00796       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
00797                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00798       chkxer();
00799       cblas_info = 6; RowMajorStrg = TRUE;
00800       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
00801                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00802       chkxer();
00803       cblas_info = 6; RowMajorStrg = TRUE;
00804       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
00805                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00806       chkxer();
00807       cblas_info = 6; RowMajorStrg = TRUE;
00808       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
00809                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00810       chkxer();
00811       cblas_info = 7; RowMajorStrg = TRUE;
00812       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00813                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00814       chkxer();
00815       cblas_info = 7; RowMajorStrg = TRUE;
00816       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
00817                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00818       chkxer();
00819       cblas_info = 7; RowMajorStrg = TRUE;
00820       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
00821                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00822       chkxer();
00823       cblas_info = 7; RowMajorStrg = TRUE;
00824       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
00825                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00826       chkxer();
00827       cblas_info = 7; RowMajorStrg = TRUE;
00828       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
00829                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00830       chkxer();
00831       cblas_info = 7; RowMajorStrg = TRUE;
00832       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
00833                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00834       chkxer();
00835       cblas_info = 7; RowMajorStrg = TRUE;
00836       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
00837                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00838       chkxer();
00839       cblas_info = 7; RowMajorStrg = TRUE;
00840       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
00841                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00842       chkxer();
00843       cblas_info = 10; RowMajorStrg = TRUE;
00844       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00845                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00846       chkxer();
00847       cblas_info = 10; RowMajorStrg = TRUE;
00848       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
00849                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00850       chkxer();
00851       cblas_info = 10; RowMajorStrg = TRUE;
00852       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
00853                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00854       chkxer();
00855       cblas_info = 10; RowMajorStrg = TRUE;
00856       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
00857                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00858       chkxer();
00859       cblas_info = 10; RowMajorStrg = TRUE;
00860       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
00861                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00862       chkxer();
00863       cblas_info = 10; RowMajorStrg = TRUE;
00864       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
00865                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
00866       chkxer();
00867       cblas_info = 10; RowMajorStrg = TRUE;
00868       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
00869                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00870       chkxer();
00871       cblas_info = 10; RowMajorStrg = TRUE;
00872       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
00873                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
00874       chkxer();
00875       cblas_info = 12; RowMajorStrg = TRUE;
00876       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00877                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00878       chkxer();
00879       cblas_info = 12; RowMajorStrg = TRUE;
00880       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
00881                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00882       chkxer();
00883       cblas_info = 12; RowMajorStrg = TRUE;
00884       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
00885                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00886       chkxer();
00887       cblas_info = 12; RowMajorStrg = TRUE;
00888       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
00889                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00890       chkxer();
00891       cblas_info = 12; RowMajorStrg = TRUE;
00892       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
00893                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00894       chkxer();
00895       cblas_info = 12; RowMajorStrg = TRUE;
00896       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
00897                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
00898       chkxer();
00899       cblas_info = 12; RowMajorStrg = TRUE;
00900       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
00901                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00902       chkxer();
00903       cblas_info = 12; RowMajorStrg = TRUE;
00904       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
00905                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
00906       chkxer();
00907 
00908    } else if (strncmp( sf,"cblas_ctrsm"   ,11)==0) {
00909             cblas_rout = "cblas_ctrsm"   ;
00910 
00911       cblas_info = 1;
00912       cblas_ctrsm( INVALID,  CblasLeft, CblasUpper, CblasNoTrans,
00913                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00914       chkxer();
00915       cblas_info = 2; RowMajorStrg = FALSE;
00916       cblas_ctrsm( CblasColMajor,  INVALID, CblasUpper, CblasNoTrans,
00917                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00918       chkxer();
00919       cblas_info = 3; RowMajorStrg = FALSE;
00920       cblas_ctrsm( CblasColMajor,  CblasLeft, INVALID, CblasNoTrans,
00921                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00922       chkxer();
00923       cblas_info = 4; RowMajorStrg = FALSE;
00924       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, INVALID,
00925                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
00926       chkxer();
00927       cblas_info = 5; RowMajorStrg = FALSE;
00928       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00929                    INVALID, 0, 0, ALPHA, A, 1, B, 1 );
00930       chkxer();
00931       cblas_info = 6; RowMajorStrg = FALSE;
00932       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00933                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00934       chkxer();
00935       cblas_info = 6; RowMajorStrg = FALSE;
00936       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
00937                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00938       chkxer();
00939       cblas_info = 6; RowMajorStrg = FALSE;
00940       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
00941                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00942       chkxer();
00943       cblas_info = 6; RowMajorStrg = FALSE;
00944       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
00945                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00946       chkxer();
00947       cblas_info = 6; RowMajorStrg = FALSE;
00948       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
00949                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00950       chkxer();
00951       cblas_info = 6; RowMajorStrg = FALSE;
00952       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
00953                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00954       chkxer();
00955       cblas_info = 6; RowMajorStrg = FALSE;
00956       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
00957                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00958       chkxer();
00959       cblas_info = 6; RowMajorStrg = FALSE;
00960       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
00961                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
00962       chkxer();
00963       cblas_info = 7; RowMajorStrg = FALSE;
00964       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00965                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00966       chkxer();
00967       cblas_info = 7; RowMajorStrg = FALSE;
00968       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
00969                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00970       chkxer();
00971       cblas_info = 7; RowMajorStrg = FALSE;
00972       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
00973                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00974       chkxer();
00975       cblas_info = 7; RowMajorStrg = FALSE;
00976       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
00977                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00978       chkxer();
00979       cblas_info = 7; RowMajorStrg = FALSE;
00980       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
00981                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00982       chkxer();
00983       cblas_info = 7; RowMajorStrg = FALSE;
00984       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
00985                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00986       chkxer();
00987       cblas_info = 7; RowMajorStrg = FALSE;
00988       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
00989                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00990       chkxer();
00991       cblas_info = 7; RowMajorStrg = FALSE;
00992       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
00993                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
00994       chkxer();
00995       cblas_info = 10; RowMajorStrg = FALSE;
00996       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
00997                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
00998       chkxer();
00999       cblas_info = 10; RowMajorStrg = FALSE;
01000       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
01001                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
01002       chkxer();
01003       cblas_info = 10; RowMajorStrg = FALSE;
01004       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
01005                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01006       chkxer();
01007       cblas_info = 10; RowMajorStrg = FALSE;
01008       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
01009                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01010       chkxer();
01011       cblas_info = 10; RowMajorStrg = FALSE;
01012       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
01013                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
01014       chkxer();
01015       cblas_info = 10; RowMajorStrg = FALSE;
01016       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
01017                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
01018       chkxer();
01019       cblas_info = 10; RowMajorStrg = FALSE;
01020       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
01021                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01022       chkxer();
01023       cblas_info = 10; RowMajorStrg = FALSE;
01024       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
01025                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01026       chkxer();
01027       cblas_info = 12; RowMajorStrg = FALSE;
01028       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
01029                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
01030       chkxer();
01031       cblas_info = 12; RowMajorStrg = FALSE;
01032       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
01033                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
01034       chkxer();
01035       cblas_info = 12; RowMajorStrg = FALSE;
01036       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
01037                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01038       chkxer();
01039       cblas_info = 12; RowMajorStrg = FALSE;
01040       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
01041                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01042       chkxer();
01043       cblas_info = 12; RowMajorStrg = FALSE;
01044       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
01045                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
01046       chkxer();
01047       cblas_info = 12; RowMajorStrg = FALSE;
01048       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
01049                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
01050       chkxer();
01051       cblas_info = 12; RowMajorStrg = FALSE;
01052       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
01053                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01054       chkxer();
01055       cblas_info = 12; RowMajorStrg = FALSE;
01056       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
01057                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01058       chkxer();
01059       cblas_info = 6; RowMajorStrg = TRUE;
01060       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
01061                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01062       chkxer();
01063       cblas_info = 6; RowMajorStrg = TRUE;
01064       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
01065                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01066       chkxer();
01067       cblas_info = 6; RowMajorStrg = TRUE;
01068       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
01069                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01070       chkxer();
01071       cblas_info = 6; RowMajorStrg = TRUE;
01072       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
01073                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01074       chkxer();
01075       cblas_info = 6; RowMajorStrg = TRUE;
01076       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
01077                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01078       chkxer();
01079       cblas_info = 6; RowMajorStrg = TRUE;
01080       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
01081                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01082       chkxer();
01083       cblas_info = 6; RowMajorStrg = TRUE;
01084       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
01085                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01086       chkxer();
01087       cblas_info = 6; RowMajorStrg = TRUE;
01088       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
01089                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
01090       chkxer();
01091       cblas_info = 7; RowMajorStrg = TRUE;
01092       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
01093                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01094       chkxer();
01095       cblas_info = 7; RowMajorStrg = TRUE;
01096       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
01097                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01098       chkxer();
01099       cblas_info = 7; RowMajorStrg = TRUE;
01100       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
01101                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01102       chkxer();
01103       cblas_info = 7; RowMajorStrg = TRUE;
01104       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
01105                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01106       chkxer();
01107       cblas_info = 7; RowMajorStrg = TRUE;
01108       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
01109                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01110       chkxer();
01111       cblas_info = 7; RowMajorStrg = TRUE;
01112       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
01113                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01114       chkxer();
01115       cblas_info = 7; RowMajorStrg = TRUE;
01116       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
01117                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01118       chkxer();
01119       cblas_info = 7; RowMajorStrg = TRUE;
01120       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
01121                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
01122       chkxer();
01123       cblas_info = 10; RowMajorStrg = TRUE;
01124       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
01125                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01126       chkxer();
01127       cblas_info = 10; RowMajorStrg = TRUE;
01128       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
01129                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01130       chkxer();
01131       cblas_info = 10; RowMajorStrg = TRUE;
01132       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
01133                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
01134       chkxer();
01135       cblas_info = 10; RowMajorStrg = TRUE;
01136       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
01137                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
01138       chkxer();
01139       cblas_info = 10; RowMajorStrg = TRUE;
01140       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
01141                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01142       chkxer();
01143       cblas_info = 10; RowMajorStrg = TRUE;
01144       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
01145                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
01146       chkxer();
01147       cblas_info = 10; RowMajorStrg = TRUE;
01148       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
01149                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
01150       chkxer();
01151       cblas_info = 10; RowMajorStrg = TRUE;
01152       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
01153                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
01154       chkxer();
01155       cblas_info = 12; RowMajorStrg = TRUE;
01156       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
01157                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01158       chkxer();
01159       cblas_info = 12; RowMajorStrg = TRUE;
01160       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
01161                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01162       chkxer();
01163       cblas_info = 12; RowMajorStrg = TRUE;
01164       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
01165                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
01166       chkxer();
01167       cblas_info = 12; RowMajorStrg = TRUE;
01168       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
01169                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
01170       chkxer();
01171       cblas_info = 12; RowMajorStrg = TRUE;
01172       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
01173                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01174       chkxer();
01175       cblas_info = 12; RowMajorStrg = TRUE;
01176       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
01177                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
01178       chkxer();
01179       cblas_info = 12; RowMajorStrg = TRUE;
01180       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
01181                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
01182       chkxer();
01183       cblas_info = 12; RowMajorStrg = TRUE;
01184       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
01185                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
01186       chkxer();
01187 
01188    } else if (strncmp( sf,"cblas_cherk"   ,11)==0) {
01189             cblas_rout = "cblas_cherk"   ;
01190 
01191       cblas_info = 1;
01192       cblas_cherk(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
01193                   RALPHA, A, 1, RBETA, C, 1 );
01194       chkxer();
01195       cblas_info = 2; RowMajorStrg = FALSE;
01196       cblas_cherk(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
01197                   RALPHA, A, 1, RBETA, C, 1 );
01198       chkxer();
01199       cblas_info = 3; RowMajorStrg = FALSE;
01200       cblas_cherk(CblasColMajor,  CblasUpper, CblasTrans, 0, 0,
01201                   RALPHA, A, 1, RBETA, C, 1 );
01202       chkxer();
01203       cblas_info = 4; RowMajorStrg = FALSE;
01204       cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
01205                   RALPHA, A, 1, RBETA, C, 1 );
01206       chkxer();
01207       cblas_info = 4; RowMajorStrg = FALSE;
01208       cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, INVALID, 0,
01209                   RALPHA, A, 1, RBETA, C, 1 );
01210       chkxer();
01211       cblas_info = 4; RowMajorStrg = FALSE;
01212       cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
01213                   RALPHA, A, 1, RBETA, C, 1 );
01214       chkxer();
01215       cblas_info = 4; RowMajorStrg = FALSE;
01216       cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, INVALID, 0,
01217                   RALPHA, A, 1, RBETA, C, 1 );
01218       chkxer();
01219       cblas_info = 5; RowMajorStrg = FALSE;
01220       cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
01221                   RALPHA, A, 1, RBETA, C, 1 );
01222       chkxer();
01223       cblas_info = 5; RowMajorStrg = FALSE;
01224       cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, 0, INVALID,
01225                   RALPHA, A, 1, RBETA, C, 1 );
01226       chkxer();
01227       cblas_info = 5; RowMajorStrg = FALSE;
01228       cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
01229                   RALPHA, A, 1, RBETA, C, 1 );
01230       chkxer();
01231       cblas_info = 5; RowMajorStrg = FALSE;
01232       cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, 0, INVALID,
01233                   RALPHA, A, 1, RBETA, C, 1 );
01234       chkxer();
01235       cblas_info = 8; RowMajorStrg = TRUE;
01236       cblas_cherk(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
01237                   RALPHA, A, 1, RBETA, C, 2 );
01238       chkxer();
01239       cblas_info = 8; RowMajorStrg = TRUE;
01240       cblas_cherk(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
01241                   RALPHA, A, 1, RBETA, C, 1 );
01242       chkxer();
01243       cblas_info = 8; RowMajorStrg = TRUE;
01244       cblas_cherk(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
01245                   RALPHA, A, 1, RBETA, C, 2 );
01246       chkxer();
01247       cblas_info = 8; RowMajorStrg = TRUE;
01248       cblas_cherk(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
01249                   RALPHA, A, 1, RBETA, C, 1 );
01250       chkxer();
01251       cblas_info = 8; RowMajorStrg = FALSE;
01252       cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
01253                   RALPHA, A, 1, RBETA, C, 2 );
01254       chkxer();
01255       cblas_info = 8; RowMajorStrg = FALSE;
01256       cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 2,
01257                   RALPHA, A, 1, RBETA, C, 1 );
01258       chkxer();
01259       cblas_info = 8; RowMajorStrg = FALSE;
01260       cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
01261                   RALPHA, A, 1, RBETA, C, 2 );
01262       chkxer();
01263       cblas_info = 8; RowMajorStrg = FALSE;
01264       cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, 0, 2,
01265                   RALPHA, A, 1, RBETA, C, 1 );
01266       chkxer();
01267       cblas_info = 11; RowMajorStrg = TRUE;
01268       cblas_cherk(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
01269                   RALPHA, A, 1, RBETA, C, 1 );
01270       chkxer();
01271       cblas_info = 11; RowMajorStrg = TRUE;
01272       cblas_cherk(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
01273                   RALPHA, A, 2, RBETA, C, 1 );
01274       chkxer();
01275       cblas_info = 11; RowMajorStrg = TRUE;
01276       cblas_cherk(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
01277                   RALPHA, A, 1, RBETA, C, 1 );
01278       chkxer();
01279       cblas_info = 11; RowMajorStrg = TRUE;
01280       cblas_cherk(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
01281                   RALPHA, A, 2, RBETA, C, 1 );
01282       chkxer();
01283       cblas_info = 11; RowMajorStrg = FALSE;
01284       cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
01285                   RALPHA, A, 2, RBETA, C, 1 );
01286       chkxer();
01287       cblas_info = 11; RowMajorStrg = FALSE;
01288       cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, 2, 0,
01289                   RALPHA, A, 1, RBETA, C, 1 );
01290       chkxer();
01291       cblas_info = 11; RowMajorStrg = FALSE;
01292       cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
01293                   RALPHA, A, 2, RBETA, C, 1 );
01294       chkxer();
01295       cblas_info = 11; RowMajorStrg = FALSE;
01296       cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, 2, 0,
01297                   RALPHA, A, 1, RBETA, C, 1 );
01298       chkxer();
01299 
01300    } else if (strncmp( sf,"cblas_csyrk"   ,11)==0) {
01301             cblas_rout = "cblas_csyrk"   ;
01302 
01303       cblas_info = 1;
01304       cblas_csyrk(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
01305                   ALPHA, A, 1, BETA, C, 1 );
01306       chkxer();
01307       cblas_info = 2; RowMajorStrg = FALSE;
01308       cblas_csyrk(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
01309                   ALPHA, A, 1, BETA, C, 1 );
01310       chkxer();
01311       cblas_info = 3; RowMajorStrg = FALSE;
01312       cblas_csyrk(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 0,
01313                   ALPHA, A, 1, BETA, C, 1 );
01314       chkxer();
01315       cblas_info = 4; RowMajorStrg = FALSE;
01316       cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
01317                   ALPHA, A, 1, BETA, C, 1 );
01318       chkxer();
01319       cblas_info = 4; RowMajorStrg = FALSE;
01320       cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, INVALID, 0,
01321                   ALPHA, A, 1, BETA, C, 1 );
01322       chkxer();
01323       cblas_info = 4; RowMajorStrg = FALSE;
01324       cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
01325                   ALPHA, A, 1, BETA, C, 1 );
01326       chkxer();
01327       cblas_info = 4; RowMajorStrg = FALSE;
01328       cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, INVALID, 0,
01329                   ALPHA, A, 1, BETA, C, 1 );
01330       chkxer();
01331       cblas_info = 5; RowMajorStrg = FALSE;
01332       cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
01333                   ALPHA, A, 1, BETA, C, 1 );
01334       chkxer();
01335       cblas_info = 5; RowMajorStrg = FALSE;
01336       cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, 0, INVALID,
01337                   ALPHA, A, 1, BETA, C, 1 );
01338       chkxer();
01339       cblas_info = 5; RowMajorStrg = FALSE;
01340       cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
01341                   ALPHA, A, 1, BETA, C, 1 );
01342       chkxer();
01343       cblas_info = 5; RowMajorStrg = FALSE;
01344       cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, 0, INVALID,
01345                   ALPHA, A, 1, BETA, C, 1 );
01346       chkxer();
01347       cblas_info = 8; RowMajorStrg = TRUE;
01348       cblas_csyrk(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
01349                   ALPHA, A, 1, BETA, C, 2 );
01350       chkxer();
01351       cblas_info = 8; RowMajorStrg = TRUE;
01352       cblas_csyrk(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
01353                   ALPHA, A, 1, BETA, C, 1 );
01354       chkxer();
01355       cblas_info = 8; RowMajorStrg = TRUE;
01356       cblas_csyrk(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
01357                   ALPHA, A, 1, BETA, C, 2 );
01358       chkxer();
01359       cblas_info = 8; RowMajorStrg = TRUE;
01360       cblas_csyrk(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
01361                   ALPHA, A, 1, BETA, C, 1 );
01362       chkxer();
01363       cblas_info = 8; RowMajorStrg = FALSE;
01364       cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
01365                   ALPHA, A, 1, BETA, C, 2 );
01366       chkxer();
01367       cblas_info = 8; RowMajorStrg = FALSE;
01368       cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, 0, 2,
01369                   ALPHA, A, 1, BETA, C, 1 );
01370       chkxer();
01371       cblas_info = 8; RowMajorStrg = FALSE;
01372       cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
01373                   ALPHA, A, 1, BETA, C, 2 );
01374       chkxer();
01375       cblas_info = 8; RowMajorStrg = FALSE;
01376       cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, 0, 2,
01377                   ALPHA, A, 1, BETA, C, 1 );
01378       chkxer();
01379       cblas_info = 11; RowMajorStrg = TRUE;
01380       cblas_csyrk(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
01381                   ALPHA, A, 1, BETA, C, 1 );
01382       chkxer();
01383       cblas_info = 11; RowMajorStrg = TRUE;
01384       cblas_csyrk(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
01385                   ALPHA, A, 2, BETA, C, 1 );
01386       chkxer();
01387       cblas_info = 11; RowMajorStrg = TRUE;
01388       cblas_csyrk(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
01389                   ALPHA, A, 1, BETA, C, 1 );
01390       chkxer();
01391       cblas_info = 11; RowMajorStrg = TRUE;
01392       cblas_csyrk(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
01393                   ALPHA, A, 2, BETA, C, 1 );
01394       chkxer();
01395       cblas_info = 11; RowMajorStrg = FALSE;
01396       cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
01397                   ALPHA, A, 2, BETA, C, 1 );
01398       chkxer();
01399       cblas_info = 11; RowMajorStrg = FALSE;
01400       cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, 2, 0,
01401                   ALPHA, A, 1, BETA, C, 1 );
01402       chkxer();
01403       cblas_info = 11; RowMajorStrg = FALSE;
01404       cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
01405                   ALPHA, A, 2, BETA, C, 1 );
01406       chkxer();
01407       cblas_info = 11; RowMajorStrg = FALSE;
01408       cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, 2, 0,
01409                   ALPHA, A, 1, BETA, C, 1 );
01410       chkxer();
01411 
01412    } else if (strncmp( sf,"cblas_cher2k"   ,12)==0) {
01413             cblas_rout = "cblas_cher2k"   ;
01414 
01415       cblas_info = 1;
01416       cblas_cher2k(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
01417                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01418       chkxer();
01419       cblas_info = 2; RowMajorStrg = FALSE;
01420       cblas_cher2k(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
01421                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01422       chkxer();
01423       cblas_info = 3; RowMajorStrg = FALSE;
01424       cblas_cher2k(CblasColMajor,  CblasUpper, CblasTrans, 0, 0,
01425                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01426       chkxer();
01427       cblas_info = 4; RowMajorStrg = FALSE;
01428       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
01429                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01430       chkxer();
01431       cblas_info = 4; RowMajorStrg = FALSE;
01432       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, INVALID, 0,
01433                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01434       chkxer();
01435       cblas_info = 4; RowMajorStrg = FALSE;
01436       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
01437                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01438       chkxer();
01439       cblas_info = 4; RowMajorStrg = FALSE;
01440       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, INVALID, 0,
01441                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01442       chkxer();
01443       cblas_info = 5; RowMajorStrg = FALSE;
01444       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
01445                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01446       chkxer();
01447       cblas_info = 5; RowMajorStrg = FALSE;
01448       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, INVALID,
01449                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01450       chkxer();
01451       cblas_info = 5; RowMajorStrg = FALSE;
01452       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
01453                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01454       chkxer();
01455       cblas_info = 5; RowMajorStrg = FALSE;
01456       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 0, INVALID,
01457                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01458       chkxer();
01459       cblas_info = 8; RowMajorStrg = TRUE;
01460       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
01461                    ALPHA, A, 1, B, 2, RBETA, C, 2 );
01462       chkxer();
01463       cblas_info = 8; RowMajorStrg = TRUE;
01464       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
01465                    ALPHA, A, 1, B, 2, RBETA, C, 1 );
01466       chkxer();
01467       cblas_info = 8; RowMajorStrg = TRUE;
01468       cblas_cher2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
01469                    ALPHA, A, 1, B, 2, RBETA, C, 2 );
01470       chkxer();
01471       cblas_info = 8; RowMajorStrg = TRUE;
01472       cblas_cher2k(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
01473                    ALPHA, A, 1, B, 2, RBETA, C, 1 );
01474       chkxer();
01475       cblas_info = 8; RowMajorStrg = FALSE;
01476       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
01477                    ALPHA, A, 1, B, 1, RBETA, C, 2 );
01478       chkxer();
01479       cblas_info = 8; RowMajorStrg = FALSE;
01480       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 2,
01481                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01482       chkxer();
01483       cblas_info = 8; RowMajorStrg = FALSE;
01484       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
01485                    ALPHA, A, 1, B, 1, RBETA, C, 2 );
01486       chkxer();
01487       cblas_info = 8; RowMajorStrg = FALSE;
01488       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 0, 2,
01489                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01490       chkxer();
01491       cblas_info = 10; RowMajorStrg = TRUE;
01492       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
01493                    ALPHA, A, 2, B, 1, RBETA, C, 2 );
01494       chkxer();
01495       cblas_info = 10; RowMajorStrg = TRUE;
01496       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
01497                    ALPHA, A, 2, B, 1, RBETA, C, 1 );
01498       chkxer();
01499       cblas_info = 10; RowMajorStrg = TRUE;
01500       cblas_cher2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
01501                    ALPHA, A, 2, B, 1, RBETA, C, 2 );
01502       chkxer();
01503       cblas_info = 10; RowMajorStrg = TRUE;
01504       cblas_cher2k(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
01505                    ALPHA, A, 2, B, 1, RBETA, C, 1 );
01506       chkxer();
01507       cblas_info = 10; RowMajorStrg = FALSE;
01508       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
01509                    ALPHA, A, 2, B, 1, RBETA, C, 2 );
01510       chkxer();
01511       cblas_info = 10; RowMajorStrg = FALSE;
01512       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 2,
01513                    ALPHA, A, 2, B, 1, RBETA, C, 1 );
01514       chkxer();
01515       cblas_info = 10; RowMajorStrg = FALSE;
01516       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
01517                    ALPHA, A, 2, B, 1, RBETA, C, 2 );
01518       chkxer();
01519       cblas_info = 10; RowMajorStrg = FALSE;
01520       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 0, 2,
01521                    ALPHA, A, 2, B, 1, RBETA, C, 1 );
01522       chkxer();
01523       cblas_info = 13; RowMajorStrg = TRUE;
01524       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
01525                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01526       chkxer();
01527       cblas_info = 13; RowMajorStrg = TRUE;
01528       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
01529                    ALPHA, A, 2, B, 2, RBETA, C, 1 );
01530       chkxer();
01531       cblas_info = 13; RowMajorStrg = TRUE;
01532       cblas_cher2k(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
01533                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01534       chkxer();
01535       cblas_info = 13; RowMajorStrg = TRUE;
01536       cblas_cher2k(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
01537                    ALPHA, A, 2, B, 2, RBETA, C, 1 );
01538       chkxer();
01539       cblas_info = 13; RowMajorStrg = FALSE;
01540       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
01541                    ALPHA, A, 2, B, 2, RBETA, C, 1 );
01542       chkxer();
01543       cblas_info = 13; RowMajorStrg = FALSE;
01544       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 2, 0,
01545                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01546       chkxer();
01547       cblas_info = 13; RowMajorStrg = FALSE;
01548       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
01549                    ALPHA, A, 2, B, 2, RBETA, C, 1 );
01550       chkxer();
01551       cblas_info = 13; RowMajorStrg = FALSE;
01552       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 2, 0,
01553                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
01554       chkxer();
01555 
01556    } else if (strncmp( sf,"cblas_csyr2k"   ,12)==0) {
01557             cblas_rout = "cblas_csyr2k"   ;
01558 
01559       cblas_info = 1;
01560       cblas_csyr2k(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
01561                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01562       chkxer();
01563       cblas_info = 2; RowMajorStrg = FALSE;
01564       cblas_csyr2k(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
01565                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01566       chkxer();
01567       cblas_info = 3; RowMajorStrg = FALSE;
01568       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 0,
01569                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01570       chkxer();
01571       cblas_info = 4; RowMajorStrg = FALSE;
01572       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
01573                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01574       chkxer();
01575       cblas_info = 4; RowMajorStrg = FALSE;
01576       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, INVALID, 0,
01577                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01578       chkxer();
01579       cblas_info = 4; RowMajorStrg = FALSE;
01580       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
01581                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01582       chkxer();
01583       cblas_info = 4; RowMajorStrg = FALSE;
01584       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, INVALID, 0,
01585                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01586       chkxer();
01587       cblas_info = 5; RowMajorStrg = FALSE;
01588       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
01589                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01590       chkxer();
01591       cblas_info = 5; RowMajorStrg = FALSE;
01592       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 0, INVALID,
01593                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01594       chkxer();
01595       cblas_info = 5; RowMajorStrg = FALSE;
01596       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
01597                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01598       chkxer();
01599       cblas_info = 5; RowMajorStrg = FALSE;
01600       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 0, INVALID,
01601                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01602       chkxer();
01603       cblas_info = 8; RowMajorStrg = TRUE;
01604       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
01605                    ALPHA, A, 1, B, 2, BETA, C, 2 );
01606       chkxer();
01607       cblas_info = 8; RowMajorStrg = TRUE;
01608       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
01609                    ALPHA, A, 1, B, 2, BETA, C, 1 );
01610       chkxer();
01611       cblas_info = 8; RowMajorStrg = TRUE;
01612       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
01613                    ALPHA, A, 1, B, 2, BETA, C, 2 );
01614       chkxer();
01615       cblas_info = 8; RowMajorStrg = TRUE;
01616       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
01617                    ALPHA, A, 1, B, 2, BETA, C, 1 );
01618       chkxer();
01619       cblas_info = 8; RowMajorStrg = FALSE;
01620       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
01621                    ALPHA, A, 1, B, 1, BETA, C, 2 );
01622       chkxer();
01623       cblas_info = 8; RowMajorStrg = FALSE;
01624       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 0, 2,
01625                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01626       chkxer();
01627       cblas_info = 8; RowMajorStrg = FALSE;
01628       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
01629                    ALPHA, A, 1, B, 1, BETA, C, 2 );
01630       chkxer();
01631       cblas_info = 8; RowMajorStrg = FALSE;
01632       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 0, 2,
01633                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01634       chkxer();
01635       cblas_info = 10; RowMajorStrg = TRUE;
01636       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
01637                    ALPHA, A, 2, B, 1, BETA, C, 2 );
01638       chkxer();
01639       cblas_info = 10; RowMajorStrg = TRUE;
01640       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
01641                    ALPHA, A, 2, B, 1, BETA, C, 1 );
01642       chkxer();
01643       cblas_info = 10; RowMajorStrg = TRUE;
01644       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
01645                    ALPHA, A, 2, B, 1, BETA, C, 2 );
01646       chkxer();
01647       cblas_info = 10; RowMajorStrg = TRUE;
01648       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
01649                    ALPHA, A, 2, B, 1, BETA, C, 1 );
01650       chkxer();
01651       cblas_info = 10; RowMajorStrg = FALSE;
01652       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
01653                    ALPHA, A, 2, B, 1, BETA, C, 2 );
01654       chkxer();
01655       cblas_info = 10; RowMajorStrg = FALSE;
01656       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 0, 2,
01657                    ALPHA, A, 2, B, 1, BETA, C, 1 );
01658       chkxer();
01659       cblas_info = 10; RowMajorStrg = FALSE;
01660       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
01661                    ALPHA, A, 2, B, 1, BETA, C, 2 );
01662       chkxer();
01663       cblas_info = 10; RowMajorStrg = FALSE;
01664       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 0, 2,
01665                    ALPHA, A, 2, B, 1, BETA, C, 1 );
01666       chkxer();
01667       cblas_info = 13; RowMajorStrg = TRUE;
01668       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
01669                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01670       chkxer();
01671       cblas_info = 13; RowMajorStrg = TRUE;
01672       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
01673                    ALPHA, A, 2, B, 2, BETA, C, 1 );
01674       chkxer();
01675       cblas_info = 13; RowMajorStrg = TRUE;
01676       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
01677                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01678       chkxer();
01679       cblas_info = 13; RowMajorStrg = TRUE;
01680       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
01681                    ALPHA, A, 2, B, 2, BETA, C, 1 );
01682       chkxer();
01683       cblas_info = 13; RowMajorStrg = FALSE;
01684       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
01685                    ALPHA, A, 2, B, 2, BETA, C, 1 );
01686       chkxer();
01687       cblas_info = 13; RowMajorStrg = FALSE;
01688       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 2, 0,
01689                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01690       chkxer();
01691       cblas_info = 13; RowMajorStrg = FALSE;
01692       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
01693                    ALPHA, A, 2, B, 2, BETA, C, 1 );
01694       chkxer();
01695       cblas_info = 13; RowMajorStrg = FALSE;
01696       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 2, 0,
01697                    ALPHA, A, 1, B, 1, BETA, C, 1 );
01698       chkxer();
01699  
01700    }
01701 
01702    if (cblas_ok == 1 )
01703        printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
01704    else
01705        printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
01706 }


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