Home | History | Annotate | Download | only in testing
      1 #include <stdio.h>
      2 #include <string.h>
      3 #include "cblas.h"
      4 #include "cblas_test.h"
      5 
      6 int cblas_ok, cblas_lerr, cblas_info;
      7 int link_xerbla=TRUE;
      8 char *cblas_rout;
      9 
     10 #ifdef F77_Char
     11 void F77_xerbla(F77_Char F77_srname, void *vinfo);
     12 #else
     13 void F77_xerbla(char *srname, void *vinfo);
     14 #endif
     15 
     16 void chkxer(void) {
     17    extern int cblas_ok, cblas_lerr, cblas_info;
     18    extern int link_xerbla;
     19    extern char *cblas_rout;
     20    if (cblas_lerr == 1 ) {
     21       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);
     22       cblas_ok = 0 ;
     23    }
     24    cblas_lerr = 1 ;
     25 }
     26 
     27 void  F77_c3chke(char *  rout) {
     28    char *sf = ( rout ) ;
     29    float   A[4]     = {0.0,0.0,0.0,0.0},
     30            B[4]     = {0.0,0.0,0.0,0.0},
     31            C[4]     = {0.0,0.0,0.0,0.0},
     32            ALPHA[2] = {0.0,0.0},
     33            BETA[2]  = {0.0,0.0},
     34            RALPHA   = 0.0, RBETA = 0.0;
     35    extern int cblas_info, cblas_lerr, cblas_ok;
     36    extern int RowMajorStrg;
     37    extern char *cblas_rout;
     38 
     39    cblas_ok = TRUE ;
     40    cblas_lerr = PASSED ;
     41 
     42    if (link_xerbla) /* call these first to link */
     43    {
     44       cblas_xerbla(cblas_info,cblas_rout,"");
     45       F77_xerbla(cblas_rout,&cblas_info);
     46    }
     47 
     48    if (strncmp( sf,"cblas_cgemm"   ,11)==0) {
     49       cblas_rout = "cblas_cgemm"   ;
     50 
     51       cblas_info = 1;
     52       cblas_cgemm( INVALID,  CblasNoTrans, CblasNoTrans, 0, 0, 0,
     53                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     54       chkxer();
     55       cblas_info = 1;
     56       cblas_cgemm( INVALID,  CblasNoTrans, CblasTrans, 0, 0, 0,
     57                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     58       chkxer();
     59       cblas_info = 1;
     60       cblas_cgemm( INVALID,  CblasTrans, CblasNoTrans, 0, 0, 0,
     61                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     62       chkxer();
     63       cblas_info = 1;
     64       cblas_cgemm( INVALID,  CblasTrans, CblasTrans, 0, 0, 0,
     65                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     66       chkxer();
     67       cblas_info = 2; RowMajorStrg = FALSE;
     68       cblas_cgemm( CblasColMajor,  INVALID, CblasNoTrans, 0, 0, 0,
     69                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     70       chkxer();
     71       cblas_info = 2; RowMajorStrg = FALSE;
     72       cblas_cgemm( CblasColMajor,  INVALID, CblasTrans, 0, 0, 0,
     73                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     74       chkxer();
     75       cblas_info = 3; RowMajorStrg = FALSE;
     76       cblas_cgemm( CblasColMajor,  CblasNoTrans, INVALID, 0, 0, 0,
     77                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     78       chkxer();
     79       cblas_info = 3; RowMajorStrg = FALSE;
     80       cblas_cgemm( CblasColMajor,  CblasTrans, INVALID, 0, 0, 0,
     81                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     82       chkxer();
     83       cblas_info = 4; RowMajorStrg = FALSE;
     84       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
     85                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     86       chkxer();
     87       cblas_info = 4; RowMajorStrg = FALSE;
     88       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, INVALID, 0, 0,
     89                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     90       chkxer();
     91       cblas_info = 4; RowMajorStrg = FALSE;
     92       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, INVALID, 0, 0,
     93                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     94       chkxer();
     95       cblas_info = 4; RowMajorStrg = FALSE;
     96       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, INVALID, 0, 0,
     97                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     98       chkxer();
     99       cblas_info = 5; RowMajorStrg = FALSE;
    100       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
    101                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    102       chkxer();
    103       cblas_info = 5; RowMajorStrg = FALSE;
    104       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, INVALID, 0,
    105                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    106       chkxer();
    107       cblas_info = 5; RowMajorStrg = FALSE;
    108       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, INVALID, 0,
    109                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    110       chkxer();
    111       cblas_info = 5; RowMajorStrg = FALSE;
    112       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, INVALID, 0,
    113                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    114       chkxer();
    115       cblas_info = 6; RowMajorStrg = FALSE;
    116       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
    117                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    118       chkxer();
    119       cblas_info = 6; RowMajorStrg = FALSE;
    120       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, 0, INVALID,
    121                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    122       chkxer();
    123       cblas_info = 6; RowMajorStrg = FALSE;
    124       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, INVALID,
    125                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    126       chkxer();
    127       cblas_info = 6; RowMajorStrg = FALSE;
    128       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 0, INVALID,
    129                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    130       chkxer();
    131       cblas_info = 9; RowMajorStrg = FALSE;
    132       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 2, 0, 0,
    133                    ALPHA, A, 1, B, 1, BETA, C, 2 );
    134       chkxer();
    135       cblas_info = 9; RowMajorStrg = FALSE;
    136       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 2, 0, 0,
    137                    ALPHA, A, 1, B, 1, BETA, C, 2 );
    138       chkxer();
    139       cblas_info = 9; RowMajorStrg = FALSE;
    140       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, 2,
    141                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    142       chkxer();
    143       cblas_info = 9; RowMajorStrg = FALSE;
    144       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 0, 2,
    145                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    146       chkxer();
    147       cblas_info = 11; RowMajorStrg = FALSE;
    148       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, 0, 2,
    149                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    150       chkxer();
    151       cblas_info = 11; RowMajorStrg = FALSE;
    152       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, 2,
    153                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    154       chkxer();
    155       cblas_info = 11; RowMajorStrg = FALSE;
    156       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, 2, 0,
    157                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    158       chkxer();
    159       cblas_info = 11; RowMajorStrg = FALSE;
    160       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 2, 0,
    161                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    162       chkxer();
    163       cblas_info = 14; RowMajorStrg = FALSE;
    164       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 2, 0, 0,
    165                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    166       chkxer();
    167       cblas_info = 14; RowMajorStrg = FALSE;
    168       cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 2, 0, 0,
    169                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    170       chkxer();
    171       cblas_info = 14; RowMajorStrg = FALSE;
    172       cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 2, 0, 0,
    173                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    174       chkxer();
    175       cblas_info = 14; RowMajorStrg = FALSE;
    176       cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 2, 0, 0,
    177                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    178       chkxer();
    179       cblas_info = 4; RowMajorStrg = TRUE;
    180       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
    181                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    182       chkxer();
    183       cblas_info = 4; RowMajorStrg = TRUE;
    184       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, INVALID, 0, 0,
    185                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    186       chkxer();
    187       cblas_info = 4; RowMajorStrg = TRUE;
    188       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, INVALID, 0, 0,
    189                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    190       chkxer();
    191       cblas_info = 4; RowMajorStrg = TRUE;
    192       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, INVALID, 0, 0,
    193                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    194       chkxer();
    195       cblas_info = 5; RowMajorStrg = TRUE;
    196       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
    197                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    198       chkxer();
    199       cblas_info = 5; RowMajorStrg = TRUE;
    200       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, INVALID, 0,
    201                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    202       chkxer();
    203       cblas_info = 5; RowMajorStrg = TRUE;
    204       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, INVALID, 0,
    205                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    206       chkxer();
    207       cblas_info = 5; RowMajorStrg = TRUE;
    208       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, INVALID, 0,
    209                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    210       chkxer();
    211       cblas_info = 6; RowMajorStrg = TRUE;
    212       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
    213                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    214       chkxer();
    215       cblas_info = 6; RowMajorStrg = TRUE;
    216       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 0, INVALID,
    217                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    218       chkxer();
    219       cblas_info = 6; RowMajorStrg = TRUE;
    220       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, 0, INVALID,
    221                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    222       chkxer();
    223       cblas_info = 6; RowMajorStrg = TRUE;
    224       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 0, INVALID,
    225                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    226       chkxer();
    227       cblas_info = 9;  RowMajorStrg = TRUE;
    228       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 0, 2,
    229                    ALPHA, A, 1, B, 1, BETA, C, 2 );
    230       chkxer();
    231       cblas_info = 9; RowMajorStrg = TRUE;
    232       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 0, 2,
    233                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    234       chkxer();
    235       cblas_info = 9; RowMajorStrg = TRUE;
    236       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 2, 0, 0,
    237                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    238       chkxer();
    239       cblas_info = 9; RowMajorStrg = TRUE;
    240       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 2, 0, 0,
    241                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    242       chkxer();
    243       cblas_info = 11; RowMajorStrg = TRUE;
    244       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 2, 0,
    245                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    246       chkxer();
    247       cblas_info = 11; RowMajorStrg = TRUE;
    248       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, 2, 0,
    249                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    250       chkxer();
    251       cblas_info = 11; RowMajorStrg = TRUE;
    252       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 0, 2,
    253                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    254       chkxer();
    255       cblas_info = 11; RowMajorStrg = TRUE;
    256       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 0, 2,
    257                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    258       chkxer();
    259       cblas_info = 14; RowMajorStrg = TRUE;
    260       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 2, 0,
    261                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    262       chkxer();
    263       cblas_info = 14; RowMajorStrg = TRUE;
    264       cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 2, 0,
    265                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    266       chkxer();
    267       cblas_info = 14; RowMajorStrg = TRUE;
    268       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, 2, 0,
    269                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    270       chkxer();
    271       cblas_info = 14; RowMajorStrg = TRUE;
    272       cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 2, 0,
    273                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    274       chkxer();
    275 
    276    } else if (strncmp( sf,"cblas_chemm"   ,11)==0) {
    277             cblas_rout = "cblas_chemm"   ;
    278 
    279       cblas_info = 1;
    280       cblas_chemm( INVALID,  CblasRight, CblasLower, 0, 0,
    281                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    282       chkxer();
    283       cblas_info = 2; RowMajorStrg = FALSE;
    284       cblas_chemm( CblasColMajor,  INVALID, CblasUpper, 0, 0,
    285                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    286       chkxer();
    287       cblas_info = 3; RowMajorStrg = FALSE;
    288       cblas_chemm( CblasColMajor,  CblasLeft, INVALID, 0, 0,
    289                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    290       chkxer();
    291       cblas_info = 4; RowMajorStrg = FALSE;
    292       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, INVALID, 0,
    293                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    294       chkxer();
    295       cblas_info = 4; RowMajorStrg = FALSE;
    296       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, INVALID, 0,
    297                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    298       chkxer();
    299       cblas_info = 4; RowMajorStrg = FALSE;
    300       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, INVALID, 0,
    301                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    302       chkxer();
    303       cblas_info = 4; RowMajorStrg = FALSE;
    304       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, INVALID, 0,
    305                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    306       chkxer();
    307       cblas_info = 5; RowMajorStrg = FALSE;
    308       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 0, INVALID,
    309                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    310       chkxer();
    311       cblas_info = 5; RowMajorStrg = FALSE;
    312       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 0, INVALID,
    313                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    314       chkxer();
    315       cblas_info = 5; RowMajorStrg = FALSE;
    316       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 0, INVALID,
    317                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    318       chkxer();
    319       cblas_info = 5; RowMajorStrg = FALSE;
    320       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 0, INVALID,
    321                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    322       chkxer();
    323       cblas_info = 8; RowMajorStrg = FALSE;
    324       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
    325                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    326       chkxer();
    327       cblas_info = 8; RowMajorStrg = FALSE;
    328       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 0, 2,
    329                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    330       chkxer();
    331       cblas_info = 8; RowMajorStrg = FALSE;
    332       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
    333                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    334       chkxer();
    335       cblas_info = 8; RowMajorStrg = FALSE;
    336       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 0, 2,
    337                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    338       chkxer();
    339       cblas_info = 10; RowMajorStrg = FALSE;
    340       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
    341                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    342       chkxer();
    343       cblas_info = 10; RowMajorStrg = FALSE;
    344       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
    345                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    346       chkxer();
    347       cblas_info = 10; RowMajorStrg = FALSE;
    348       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
    349                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    350       chkxer();
    351       cblas_info = 10; RowMajorStrg = FALSE;
    352       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
    353                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    354       chkxer();
    355       cblas_info = 13; RowMajorStrg = FALSE;
    356       cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
    357                    ALPHA, A, 2, B, 2, BETA, C, 1 );
    358       chkxer();
    359       cblas_info = 13; RowMajorStrg = FALSE;
    360       cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
    361                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    362       chkxer();
    363       cblas_info = 13; RowMajorStrg = FALSE;
    364       cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
    365                    ALPHA, A, 2, B, 2, BETA, C, 1 );
    366       chkxer();
    367       cblas_info = 13; RowMajorStrg = FALSE;
    368       cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
    369                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    370       chkxer();
    371       cblas_info = 4; RowMajorStrg = TRUE;
    372       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, INVALID, 0,
    373                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    374       chkxer();
    375       cblas_info = 4; RowMajorStrg = TRUE;
    376       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, INVALID, 0,
    377                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    378       chkxer();
    379       cblas_info = 4; RowMajorStrg = TRUE;
    380       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, INVALID, 0,
    381                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    382       chkxer();
    383       cblas_info = 4; RowMajorStrg = TRUE;
    384       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, INVALID, 0,
    385                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    386       chkxer();
    387       cblas_info = 5; RowMajorStrg = TRUE;
    388       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, INVALID,
    389                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    390       chkxer();
    391       cblas_info = 5; RowMajorStrg = TRUE;
    392       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, INVALID,
    393                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    394       chkxer();
    395       cblas_info = 5; RowMajorStrg = TRUE;
    396       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 0, INVALID,
    397                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    398       chkxer();
    399       cblas_info = 5; RowMajorStrg = TRUE;
    400       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, INVALID,
    401                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    402       chkxer();
    403       cblas_info = 8; RowMajorStrg = TRUE;
    404       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 2, 0,
    405                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    406       chkxer();
    407       cblas_info = 8; RowMajorStrg = TRUE;
    408       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
    409                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    410       chkxer();
    411       cblas_info = 8; RowMajorStrg = TRUE;
    412       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 2, 0,
    413                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    414       chkxer();
    415       cblas_info = 8; RowMajorStrg = TRUE;
    416       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
    417                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    418       chkxer();
    419       cblas_info = 10; RowMajorStrg = TRUE;
    420       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
    421                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    422       chkxer();
    423       cblas_info = 10; RowMajorStrg = TRUE;
    424       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
    425                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    426       chkxer();
    427       cblas_info = 10; RowMajorStrg = TRUE;
    428       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
    429                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    430       chkxer();
    431       cblas_info = 10; RowMajorStrg = TRUE;
    432       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
    433                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    434       chkxer();
    435       cblas_info = 13; RowMajorStrg = TRUE;
    436       cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
    437                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    438       chkxer();
    439       cblas_info = 13; RowMajorStrg = TRUE;
    440       cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
    441                    ALPHA, A, 2, B, 2, BETA, C, 1 );
    442       chkxer();
    443       cblas_info = 13; RowMajorStrg = TRUE;
    444       cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
    445                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    446       chkxer();
    447       cblas_info = 13; RowMajorStrg = TRUE;
    448       cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
    449                    ALPHA, A, 2, B, 2, BETA, C, 1 );
    450       chkxer();
    451 
    452    } else if (strncmp( sf,"cblas_csymm"   ,11)==0) {
    453             cblas_rout = "cblas_csymm"   ;
    454 
    455       cblas_info = 1;
    456       cblas_csymm( INVALID,  CblasRight, CblasLower, 0, 0,
    457                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    458       chkxer();
    459       cblas_info = 2; RowMajorStrg = FALSE;
    460       cblas_csymm( CblasColMajor,  INVALID, CblasUpper, 0, 0,
    461                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    462       chkxer();
    463       cblas_info = 3; RowMajorStrg = FALSE;
    464       cblas_csymm( CblasColMajor,  CblasLeft, INVALID, 0, 0,
    465                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    466       chkxer();
    467       cblas_info = 4; RowMajorStrg = FALSE;
    468       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, INVALID, 0,
    469                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    470       chkxer();
    471       cblas_info = 4; RowMajorStrg = FALSE;
    472       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, INVALID, 0,
    473                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    474       chkxer();
    475       cblas_info = 4; RowMajorStrg = FALSE;
    476       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, INVALID, 0,
    477                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    478       chkxer();
    479       cblas_info = 4; RowMajorStrg = FALSE;
    480       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, INVALID, 0,
    481                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    482       chkxer();
    483       cblas_info = 5; RowMajorStrg = FALSE;
    484       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 0, INVALID,
    485                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    486       chkxer();
    487       cblas_info = 5; RowMajorStrg = FALSE;
    488       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 0, INVALID,
    489                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    490       chkxer();
    491       cblas_info = 5; RowMajorStrg = FALSE;
    492       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 0, INVALID,
    493                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    494       chkxer();
    495       cblas_info = 5; RowMajorStrg = FALSE;
    496       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 0, INVALID,
    497                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    498       chkxer();
    499       cblas_info = 8; RowMajorStrg = FALSE;
    500       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
    501                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    502       chkxer();
    503       cblas_info = 8; RowMajorStrg = FALSE;
    504       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 0, 2,
    505                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    506       chkxer();
    507       cblas_info = 8; RowMajorStrg = FALSE;
    508       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
    509                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    510       chkxer();
    511       cblas_info = 8; RowMajorStrg = FALSE;
    512       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 0, 2,
    513                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    514       chkxer();
    515       cblas_info = 10; RowMajorStrg = FALSE;
    516       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
    517                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    518       chkxer();
    519       cblas_info = 10; RowMajorStrg = FALSE;
    520       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
    521                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    522       chkxer();
    523       cblas_info = 10; RowMajorStrg = FALSE;
    524       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
    525                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    526       chkxer();
    527       cblas_info = 10; RowMajorStrg = FALSE;
    528       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
    529                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    530       chkxer();
    531       cblas_info = 13; RowMajorStrg = FALSE;
    532       cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
    533                    ALPHA, A, 2, B, 2, BETA, C, 1 );
    534       chkxer();
    535       cblas_info = 13; RowMajorStrg = FALSE;
    536       cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
    537                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    538       chkxer();
    539       cblas_info = 13; RowMajorStrg = FALSE;
    540       cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
    541                    ALPHA, A, 2, B, 2, BETA, C, 1 );
    542       chkxer();
    543       cblas_info = 13; RowMajorStrg = FALSE;
    544       cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
    545                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    546       chkxer();
    547       cblas_info = 4; RowMajorStrg = TRUE;
    548       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, INVALID, 0,
    549                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    550       chkxer();
    551       cblas_info = 4; RowMajorStrg = TRUE;
    552       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, INVALID, 0,
    553                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    554       chkxer();
    555       cblas_info = 4; RowMajorStrg = TRUE;
    556       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, INVALID, 0,
    557                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    558       chkxer();
    559       cblas_info = 4; RowMajorStrg = TRUE;
    560       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, INVALID, 0,
    561                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    562       chkxer();
    563       cblas_info = 5; RowMajorStrg = TRUE;
    564       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, INVALID,
    565                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    566       chkxer();
    567       cblas_info = 5; RowMajorStrg = TRUE;
    568       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, INVALID,
    569                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    570       chkxer();
    571       cblas_info = 5; RowMajorStrg = TRUE;
    572       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 0, INVALID,
    573                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    574       chkxer();
    575       cblas_info = 5; RowMajorStrg = TRUE;
    576       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, INVALID,
    577                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    578       chkxer();
    579       cblas_info = 8; RowMajorStrg = TRUE;
    580       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 2, 0,
    581                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    582       chkxer();
    583       cblas_info = 8; RowMajorStrg = TRUE;
    584       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
    585                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    586       chkxer();
    587       cblas_info = 8; RowMajorStrg = TRUE;
    588       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 2, 0,
    589                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    590       chkxer();
    591       cblas_info = 8; RowMajorStrg = TRUE;
    592       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
    593                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    594       chkxer();
    595       cblas_info = 10; RowMajorStrg = TRUE;
    596       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
    597                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    598       chkxer();
    599       cblas_info = 10; RowMajorStrg = TRUE;
    600       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
    601                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    602       chkxer();
    603       cblas_info = 10; RowMajorStrg = TRUE;
    604       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
    605                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    606       chkxer();
    607       cblas_info = 10; RowMajorStrg = TRUE;
    608       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
    609                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    610       chkxer();
    611       cblas_info = 13; RowMajorStrg = TRUE;
    612       cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
    613                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    614       chkxer();
    615       cblas_info = 13; RowMajorStrg = TRUE;
    616       cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
    617                    ALPHA, A, 2, B, 2, BETA, C, 1 );
    618       chkxer();
    619       cblas_info = 13; RowMajorStrg = TRUE;
    620       cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
    621                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    622       chkxer();
    623       cblas_info = 13; RowMajorStrg = TRUE;
    624       cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
    625                    ALPHA, A, 2, B, 2, BETA, C, 1 );
    626       chkxer();
    627 
    628    } else if (strncmp( sf,"cblas_ctrmm"   ,11)==0) {
    629             cblas_rout = "cblas_ctrmm"   ;
    630 
    631       cblas_info = 1;
    632       cblas_ctrmm( INVALID,  CblasLeft, CblasUpper, CblasNoTrans,
    633                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    634       chkxer();
    635       cblas_info = 2; RowMajorStrg = FALSE;
    636       cblas_ctrmm( CblasColMajor,  INVALID, CblasUpper, CblasNoTrans,
    637                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    638       chkxer();
    639       cblas_info = 3; RowMajorStrg = FALSE;
    640       cblas_ctrmm( CblasColMajor,  CblasLeft, INVALID, CblasNoTrans,
    641                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    642       chkxer();
    643       cblas_info = 4; RowMajorStrg = FALSE;
    644       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, INVALID,
    645                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    646       chkxer();
    647       cblas_info = 5; RowMajorStrg = FALSE;
    648       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    649                    INVALID, 0, 0, ALPHA, A, 1, B, 1 );
    650       chkxer();
    651       cblas_info = 6; RowMajorStrg = FALSE;
    652       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    653                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    654       chkxer();
    655       cblas_info = 6; RowMajorStrg = FALSE;
    656       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    657                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    658       chkxer();
    659       cblas_info = 6; RowMajorStrg = FALSE;
    660       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    661                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    662       chkxer();
    663       cblas_info = 6; RowMajorStrg = FALSE;
    664       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    665                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    666       chkxer();
    667       cblas_info = 6; RowMajorStrg = FALSE;
    668       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    669                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    670       chkxer();
    671       cblas_info = 6; RowMajorStrg = FALSE;
    672       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    673                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    674       chkxer();
    675       cblas_info = 6; RowMajorStrg = FALSE;
    676       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    677                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    678       chkxer();
    679       cblas_info = 6; RowMajorStrg = FALSE;
    680       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    681                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    682       chkxer();
    683       cblas_info = 7; RowMajorStrg = FALSE;
    684       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    685                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    686       chkxer();
    687       cblas_info = 7; RowMajorStrg = FALSE;
    688       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    689                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    690       chkxer();
    691       cblas_info = 7; RowMajorStrg = FALSE;
    692       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    693                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    694       chkxer();
    695       cblas_info = 7; RowMajorStrg = FALSE;
    696       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    697                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    698       chkxer();
    699       cblas_info = 7; RowMajorStrg = FALSE;
    700       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    701                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    702       chkxer();
    703       cblas_info = 7; RowMajorStrg = FALSE;
    704       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    705                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    706       chkxer();
    707       cblas_info = 7; RowMajorStrg = FALSE;
    708       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    709                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    710       chkxer();
    711       cblas_info = 7; RowMajorStrg = FALSE;
    712       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    713                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    714       chkxer();
    715       cblas_info = 10; RowMajorStrg = FALSE;
    716       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    717                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    718       chkxer();
    719       cblas_info = 10; RowMajorStrg = FALSE;
    720       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    721                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    722       chkxer();
    723       cblas_info = 10; RowMajorStrg = FALSE;
    724       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    725                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    726       chkxer();
    727       cblas_info = 10; RowMajorStrg = FALSE;
    728       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    729                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    730       chkxer();
    731       cblas_info = 10; RowMajorStrg = FALSE;
    732       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    733                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    734       chkxer();
    735       cblas_info = 10; RowMajorStrg = FALSE;
    736       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    737                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    738       chkxer();
    739       cblas_info = 10; RowMajorStrg = FALSE;
    740       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    741                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    742       chkxer();
    743       cblas_info = 10; RowMajorStrg = FALSE;
    744       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    745                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    746       chkxer();
    747       cblas_info = 12; RowMajorStrg = FALSE;
    748       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    749                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
    750       chkxer();
    751       cblas_info = 12; RowMajorStrg = FALSE;
    752       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    753                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
    754       chkxer();
    755       cblas_info = 12; RowMajorStrg = FALSE;
    756       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    757                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    758       chkxer();
    759       cblas_info = 12; RowMajorStrg = FALSE;
    760       cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    761                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    762       chkxer();
    763       cblas_info = 12; RowMajorStrg = FALSE;
    764       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    765                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
    766       chkxer();
    767       cblas_info = 12; RowMajorStrg = FALSE;
    768       cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    769                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
    770       chkxer();
    771       cblas_info = 12; RowMajorStrg = FALSE;
    772       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    773                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    774       chkxer();
    775       cblas_info = 12; RowMajorStrg = FALSE;
    776       cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    777                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    778       chkxer();
    779       cblas_info = 6; RowMajorStrg = TRUE;
    780       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    781                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    782       chkxer();
    783       cblas_info = 6; RowMajorStrg = TRUE;
    784       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
    785                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    786       chkxer();
    787       cblas_info = 6; RowMajorStrg = TRUE;
    788       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
    789                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    790       chkxer();
    791       cblas_info = 6; RowMajorStrg = TRUE;
    792       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
    793                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    794       chkxer();
    795       cblas_info = 6; RowMajorStrg = TRUE;
    796       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
    797                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    798       chkxer();
    799       cblas_info = 6; RowMajorStrg = TRUE;
    800       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
    801                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    802       chkxer();
    803       cblas_info = 6; RowMajorStrg = TRUE;
    804       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
    805                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    806       chkxer();
    807       cblas_info = 6; RowMajorStrg = TRUE;
    808       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
    809                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    810       chkxer();
    811       cblas_info = 7; RowMajorStrg = TRUE;
    812       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    813                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    814       chkxer();
    815       cblas_info = 7; RowMajorStrg = TRUE;
    816       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
    817                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    818       chkxer();
    819       cblas_info = 7; RowMajorStrg = TRUE;
    820       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
    821                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    822       chkxer();
    823       cblas_info = 7; RowMajorStrg = TRUE;
    824       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
    825                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    826       chkxer();
    827       cblas_info = 7; RowMajorStrg = TRUE;
    828       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
    829                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    830       chkxer();
    831       cblas_info = 7; RowMajorStrg = TRUE;
    832       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
    833                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    834       chkxer();
    835       cblas_info = 7; RowMajorStrg = TRUE;
    836       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
    837                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    838       chkxer();
    839       cblas_info = 7; RowMajorStrg = TRUE;
    840       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
    841                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    842       chkxer();
    843       cblas_info = 10; RowMajorStrg = TRUE;
    844       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    845                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    846       chkxer();
    847       cblas_info = 10; RowMajorStrg = TRUE;
    848       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
    849                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    850       chkxer();
    851       cblas_info = 10; RowMajorStrg = TRUE;
    852       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
    853                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
    854       chkxer();
    855       cblas_info = 10; RowMajorStrg = TRUE;
    856       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
    857                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
    858       chkxer();
    859       cblas_info = 10; RowMajorStrg = TRUE;
    860       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
    861                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    862       chkxer();
    863       cblas_info = 10; RowMajorStrg = TRUE;
    864       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
    865                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    866       chkxer();
    867       cblas_info = 10; RowMajorStrg = TRUE;
    868       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
    869                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
    870       chkxer();
    871       cblas_info = 10; RowMajorStrg = TRUE;
    872       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
    873                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
    874       chkxer();
    875       cblas_info = 12; RowMajorStrg = TRUE;
    876       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    877                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    878       chkxer();
    879       cblas_info = 12; RowMajorStrg = TRUE;
    880       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
    881                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    882       chkxer();
    883       cblas_info = 12; RowMajorStrg = TRUE;
    884       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
    885                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
    886       chkxer();
    887       cblas_info = 12; RowMajorStrg = TRUE;
    888       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
    889                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
    890       chkxer();
    891       cblas_info = 12; RowMajorStrg = TRUE;
    892       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
    893                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    894       chkxer();
    895       cblas_info = 12; RowMajorStrg = TRUE;
    896       cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
    897                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    898       chkxer();
    899       cblas_info = 12; RowMajorStrg = TRUE;
    900       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
    901                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
    902       chkxer();
    903       cblas_info = 12; RowMajorStrg = TRUE;
    904       cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
    905                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
    906       chkxer();
    907 
    908    } else if (strncmp( sf,"cblas_ctrsm"   ,11)==0) {
    909             cblas_rout = "cblas_ctrsm"   ;
    910 
    911       cblas_info = 1;
    912       cblas_ctrsm( INVALID,  CblasLeft, CblasUpper, CblasNoTrans,
    913                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    914       chkxer();
    915       cblas_info = 2; RowMajorStrg = FALSE;
    916       cblas_ctrsm( CblasColMajor,  INVALID, CblasUpper, CblasNoTrans,
    917                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    918       chkxer();
    919       cblas_info = 3; RowMajorStrg = FALSE;
    920       cblas_ctrsm( CblasColMajor,  CblasLeft, INVALID, CblasNoTrans,
    921                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    922       chkxer();
    923       cblas_info = 4; RowMajorStrg = FALSE;
    924       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, INVALID,
    925                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    926       chkxer();
    927       cblas_info = 5; RowMajorStrg = FALSE;
    928       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    929                    INVALID, 0, 0, ALPHA, A, 1, B, 1 );
    930       chkxer();
    931       cblas_info = 6; RowMajorStrg = FALSE;
    932       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    933                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    934       chkxer();
    935       cblas_info = 6; RowMajorStrg = FALSE;
    936       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    937                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    938       chkxer();
    939       cblas_info = 6; RowMajorStrg = FALSE;
    940       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    941                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    942       chkxer();
    943       cblas_info = 6; RowMajorStrg = FALSE;
    944       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    945                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    946       chkxer();
    947       cblas_info = 6; RowMajorStrg = FALSE;
    948       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    949                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    950       chkxer();
    951       cblas_info = 6; RowMajorStrg = FALSE;
    952       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    953                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    954       chkxer();
    955       cblas_info = 6; RowMajorStrg = FALSE;
    956       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    957                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    958       chkxer();
    959       cblas_info = 6; RowMajorStrg = FALSE;
    960       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    961                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    962       chkxer();
    963       cblas_info = 7; RowMajorStrg = FALSE;
    964       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    965                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    966       chkxer();
    967       cblas_info = 7; RowMajorStrg = FALSE;
    968       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    969                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    970       chkxer();
    971       cblas_info = 7; RowMajorStrg = FALSE;
    972       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    973                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    974       chkxer();
    975       cblas_info = 7; RowMajorStrg = FALSE;
    976       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    977                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    978       chkxer();
    979       cblas_info = 7; RowMajorStrg = FALSE;
    980       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    981                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    982       chkxer();
    983       cblas_info = 7; RowMajorStrg = FALSE;
    984       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    985                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    986       chkxer();
    987       cblas_info = 7; RowMajorStrg = FALSE;
    988       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    989                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    990       chkxer();
    991       cblas_info = 7; RowMajorStrg = FALSE;
    992       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    993                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    994       chkxer();
    995       cblas_info = 10; RowMajorStrg = FALSE;
    996       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    997                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    998       chkxer();
    999       cblas_info = 10; RowMajorStrg = FALSE;
   1000       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
   1001                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
   1002       chkxer();
   1003       cblas_info = 10; RowMajorStrg = FALSE;
   1004       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
   1005                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
   1006       chkxer();
   1007       cblas_info = 10; RowMajorStrg = FALSE;
   1008       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
   1009                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
   1010       chkxer();
   1011       cblas_info = 10; RowMajorStrg = FALSE;
   1012       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
   1013                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
   1014       chkxer();
   1015       cblas_info = 10; RowMajorStrg = FALSE;
   1016       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
   1017                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
   1018       chkxer();
   1019       cblas_info = 10; RowMajorStrg = FALSE;
   1020       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
   1021                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
   1022       chkxer();
   1023       cblas_info = 10; RowMajorStrg = FALSE;
   1024       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
   1025                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
   1026       chkxer();
   1027       cblas_info = 12; RowMajorStrg = FALSE;
   1028       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
   1029                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
   1030       chkxer();
   1031       cblas_info = 12; RowMajorStrg = FALSE;
   1032       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
   1033                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
   1034       chkxer();
   1035       cblas_info = 12; RowMajorStrg = FALSE;
   1036       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
   1037                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
   1038       chkxer();
   1039       cblas_info = 12; RowMajorStrg = FALSE;
   1040       cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
   1041                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
   1042       chkxer();
   1043       cblas_info = 12; RowMajorStrg = FALSE;
   1044       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
   1045                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
   1046       chkxer();
   1047       cblas_info = 12; RowMajorStrg = FALSE;
   1048       cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
   1049                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
   1050       chkxer();
   1051       cblas_info = 12; RowMajorStrg = FALSE;
   1052       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
   1053                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
   1054       chkxer();
   1055       cblas_info = 12; RowMajorStrg = FALSE;
   1056       cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
   1057                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
   1058       chkxer();
   1059       cblas_info = 6; RowMajorStrg = TRUE;
   1060       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
   1061                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
   1062       chkxer();
   1063       cblas_info = 6; RowMajorStrg = TRUE;
   1064       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
   1065                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
   1066       chkxer();
   1067       cblas_info = 6; RowMajorStrg = TRUE;
   1068       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
   1069                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
   1070       chkxer();
   1071       cblas_info = 6; RowMajorStrg = TRUE;
   1072       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
   1073                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
   1074       chkxer();
   1075       cblas_info = 6; RowMajorStrg = TRUE;
   1076       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
   1077                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
   1078       chkxer();
   1079       cblas_info = 6; RowMajorStrg = TRUE;
   1080       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
   1081                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
   1082       chkxer();
   1083       cblas_info = 6; RowMajorStrg = TRUE;
   1084       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
   1085                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
   1086       chkxer();
   1087       cblas_info = 6; RowMajorStrg = TRUE;
   1088       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
   1089                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
   1090       chkxer();
   1091       cblas_info = 7; RowMajorStrg = TRUE;
   1092       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
   1093                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
   1094       chkxer();
   1095       cblas_info = 7; RowMajorStrg = TRUE;
   1096       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
   1097                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
   1098       chkxer();
   1099       cblas_info = 7; RowMajorStrg = TRUE;
   1100       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
   1101                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
   1102       chkxer();
   1103       cblas_info = 7; RowMajorStrg = TRUE;
   1104       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
   1105                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
   1106       chkxer();
   1107       cblas_info = 7; RowMajorStrg = TRUE;
   1108       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
   1109                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
   1110       chkxer();
   1111       cblas_info = 7; RowMajorStrg = TRUE;
   1112       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
   1113                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
   1114       chkxer();
   1115       cblas_info = 7; RowMajorStrg = TRUE;
   1116       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
   1117                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
   1118       chkxer();
   1119       cblas_info = 7; RowMajorStrg = TRUE;
   1120       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
   1121                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
   1122       chkxer();
   1123       cblas_info = 10; RowMajorStrg = TRUE;
   1124       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
   1125                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
   1126       chkxer();
   1127       cblas_info = 10; RowMajorStrg = TRUE;
   1128       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
   1129                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
   1130       chkxer();
   1131       cblas_info = 10; RowMajorStrg = TRUE;
   1132       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
   1133                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
   1134       chkxer();
   1135       cblas_info = 10; RowMajorStrg = TRUE;
   1136       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
   1137                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
   1138       chkxer();
   1139       cblas_info = 10; RowMajorStrg = TRUE;
   1140       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
   1141                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
   1142       chkxer();
   1143       cblas_info = 10; RowMajorStrg = TRUE;
   1144       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
   1145                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
   1146       chkxer();
   1147       cblas_info = 10; RowMajorStrg = TRUE;
   1148       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
   1149                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
   1150       chkxer();
   1151       cblas_info = 10; RowMajorStrg = TRUE;
   1152       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
   1153                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
   1154       chkxer();
   1155       cblas_info = 12; RowMajorStrg = TRUE;
   1156       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
   1157                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
   1158       chkxer();
   1159       cblas_info = 12; RowMajorStrg = TRUE;
   1160       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
   1161                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
   1162       chkxer();
   1163       cblas_info = 12; RowMajorStrg = TRUE;
   1164       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
   1165                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
   1166       chkxer();
   1167       cblas_info = 12; RowMajorStrg = TRUE;
   1168       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
   1169                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
   1170       chkxer();
   1171       cblas_info = 12; RowMajorStrg = TRUE;
   1172       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
   1173                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
   1174       chkxer();
   1175       cblas_info = 12; RowMajorStrg = TRUE;
   1176       cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
   1177                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
   1178       chkxer();
   1179       cblas_info = 12; RowMajorStrg = TRUE;
   1180       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
   1181                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
   1182       chkxer();
   1183       cblas_info = 12; RowMajorStrg = TRUE;
   1184       cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
   1185                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
   1186       chkxer();
   1187 
   1188    } else if (strncmp( sf,"cblas_cherk"   ,11)==0) {
   1189             cblas_rout = "cblas_cherk"   ;
   1190 
   1191       cblas_info = 1;
   1192       cblas_cherk(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
   1193                   RALPHA, A, 1, RBETA, C, 1 );
   1194       chkxer();
   1195       cblas_info = 2; RowMajorStrg = FALSE;
   1196       cblas_cherk(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
   1197                   RALPHA, A, 1, RBETA, C, 1 );
   1198       chkxer();
   1199       cblas_info = 3; RowMajorStrg = FALSE;
   1200       cblas_cherk(CblasColMajor,  CblasUpper, CblasTrans, 0, 0,
   1201                   RALPHA, A, 1, RBETA, C, 1 );
   1202       chkxer();
   1203       cblas_info = 4; RowMajorStrg = FALSE;
   1204       cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
   1205                   RALPHA, A, 1, RBETA, C, 1 );
   1206       chkxer();
   1207       cblas_info = 4; RowMajorStrg = FALSE;
   1208       cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, INVALID, 0,
   1209                   RALPHA, A, 1, RBETA, C, 1 );
   1210       chkxer();
   1211       cblas_info = 4; RowMajorStrg = FALSE;
   1212       cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
   1213                   RALPHA, A, 1, RBETA, C, 1 );
   1214       chkxer();
   1215       cblas_info = 4; RowMajorStrg = FALSE;
   1216       cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, INVALID, 0,
   1217                   RALPHA, A, 1, RBETA, C, 1 );
   1218       chkxer();
   1219       cblas_info = 5; RowMajorStrg = FALSE;
   1220       cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
   1221                   RALPHA, A, 1, RBETA, C, 1 );
   1222       chkxer();
   1223       cblas_info = 5; RowMajorStrg = FALSE;
   1224       cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, 0, INVALID,
   1225                   RALPHA, A, 1, RBETA, C, 1 );
   1226       chkxer();
   1227       cblas_info = 5; RowMajorStrg = FALSE;
   1228       cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
   1229                   RALPHA, A, 1, RBETA, C, 1 );
   1230       chkxer();
   1231       cblas_info = 5; RowMajorStrg = FALSE;
   1232       cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, 0, INVALID,
   1233                   RALPHA, A, 1, RBETA, C, 1 );
   1234       chkxer();
   1235       cblas_info = 8; RowMajorStrg = TRUE;
   1236       cblas_cherk(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
   1237                   RALPHA, A, 1, RBETA, C, 2 );
   1238       chkxer();
   1239       cblas_info = 8; RowMajorStrg = TRUE;
   1240       cblas_cherk(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
   1241                   RALPHA, A, 1, RBETA, C, 1 );
   1242       chkxer();
   1243       cblas_info = 8; RowMajorStrg = TRUE;
   1244       cblas_cherk(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
   1245                   RALPHA, A, 1, RBETA, C, 2 );
   1246       chkxer();
   1247       cblas_info = 8; RowMajorStrg = TRUE;
   1248       cblas_cherk(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
   1249                   RALPHA, A, 1, RBETA, C, 1 );
   1250       chkxer();
   1251       cblas_info = 8; RowMajorStrg = FALSE;
   1252       cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1253                   RALPHA, A, 1, RBETA, C, 2 );
   1254       chkxer();
   1255       cblas_info = 8; RowMajorStrg = FALSE;
   1256       cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 2,
   1257                   RALPHA, A, 1, RBETA, C, 1 );
   1258       chkxer();
   1259       cblas_info = 8; RowMajorStrg = FALSE;
   1260       cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
   1261                   RALPHA, A, 1, RBETA, C, 2 );
   1262       chkxer();
   1263       cblas_info = 8; RowMajorStrg = FALSE;
   1264       cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, 0, 2,
   1265                   RALPHA, A, 1, RBETA, C, 1 );
   1266       chkxer();
   1267       cblas_info = 11; RowMajorStrg = TRUE;
   1268       cblas_cherk(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1269                   RALPHA, A, 1, RBETA, C, 1 );
   1270       chkxer();
   1271       cblas_info = 11; RowMajorStrg = TRUE;
   1272       cblas_cherk(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
   1273                   RALPHA, A, 2, RBETA, C, 1 );
   1274       chkxer();
   1275       cblas_info = 11; RowMajorStrg = TRUE;
   1276       cblas_cherk(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
   1277                   RALPHA, A, 1, RBETA, C, 1 );
   1278       chkxer();
   1279       cblas_info = 11; RowMajorStrg = TRUE;
   1280       cblas_cherk(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
   1281                   RALPHA, A, 2, RBETA, C, 1 );
   1282       chkxer();
   1283       cblas_info = 11; RowMajorStrg = FALSE;
   1284       cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1285                   RALPHA, A, 2, RBETA, C, 1 );
   1286       chkxer();
   1287       cblas_info = 11; RowMajorStrg = FALSE;
   1288       cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, 2, 0,
   1289                   RALPHA, A, 1, RBETA, C, 1 );
   1290       chkxer();
   1291       cblas_info = 11; RowMajorStrg = FALSE;
   1292       cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
   1293                   RALPHA, A, 2, RBETA, C, 1 );
   1294       chkxer();
   1295       cblas_info = 11; RowMajorStrg = FALSE;
   1296       cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, 2, 0,
   1297                   RALPHA, A, 1, RBETA, C, 1 );
   1298       chkxer();
   1299 
   1300    } else if (strncmp( sf,"cblas_csyrk"   ,11)==0) {
   1301             cblas_rout = "cblas_csyrk"   ;
   1302 
   1303       cblas_info = 1;
   1304       cblas_csyrk(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
   1305                   ALPHA, A, 1, BETA, C, 1 );
   1306       chkxer();
   1307       cblas_info = 2; RowMajorStrg = FALSE;
   1308       cblas_csyrk(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
   1309                   ALPHA, A, 1, BETA, C, 1 );
   1310       chkxer();
   1311       cblas_info = 3; RowMajorStrg = FALSE;
   1312       cblas_csyrk(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 0,
   1313                   ALPHA, A, 1, BETA, C, 1 );
   1314       chkxer();
   1315       cblas_info = 4; RowMajorStrg = FALSE;
   1316       cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
   1317                   ALPHA, A, 1, BETA, C, 1 );
   1318       chkxer();
   1319       cblas_info = 4; RowMajorStrg = FALSE;
   1320       cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, INVALID, 0,
   1321                   ALPHA, A, 1, BETA, C, 1 );
   1322       chkxer();
   1323       cblas_info = 4; RowMajorStrg = FALSE;
   1324       cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
   1325                   ALPHA, A, 1, BETA, C, 1 );
   1326       chkxer();
   1327       cblas_info = 4; RowMajorStrg = FALSE;
   1328       cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, INVALID, 0,
   1329                   ALPHA, A, 1, BETA, C, 1 );
   1330       chkxer();
   1331       cblas_info = 5; RowMajorStrg = FALSE;
   1332       cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
   1333                   ALPHA, A, 1, BETA, C, 1 );
   1334       chkxer();
   1335       cblas_info = 5; RowMajorStrg = FALSE;
   1336       cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, 0, INVALID,
   1337                   ALPHA, A, 1, BETA, C, 1 );
   1338       chkxer();
   1339       cblas_info = 5; RowMajorStrg = FALSE;
   1340       cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
   1341                   ALPHA, A, 1, BETA, C, 1 );
   1342       chkxer();
   1343       cblas_info = 5; RowMajorStrg = FALSE;
   1344       cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, 0, INVALID,
   1345                   ALPHA, A, 1, BETA, C, 1 );
   1346       chkxer();
   1347       cblas_info = 8; RowMajorStrg = TRUE;
   1348       cblas_csyrk(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
   1349                   ALPHA, A, 1, BETA, C, 2 );
   1350       chkxer();
   1351       cblas_info = 8; RowMajorStrg = TRUE;
   1352       cblas_csyrk(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
   1353                   ALPHA, A, 1, BETA, C, 1 );
   1354       chkxer();
   1355       cblas_info = 8; RowMajorStrg = TRUE;
   1356       cblas_csyrk(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
   1357                   ALPHA, A, 1, BETA, C, 2 );
   1358       chkxer();
   1359       cblas_info = 8; RowMajorStrg = TRUE;
   1360       cblas_csyrk(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
   1361                   ALPHA, A, 1, BETA, C, 1 );
   1362       chkxer();
   1363       cblas_info = 8; RowMajorStrg = FALSE;
   1364       cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1365                   ALPHA, A, 1, BETA, C, 2 );
   1366       chkxer();
   1367       cblas_info = 8; RowMajorStrg = FALSE;
   1368       cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, 0, 2,
   1369                   ALPHA, A, 1, BETA, C, 1 );
   1370       chkxer();
   1371       cblas_info = 8; RowMajorStrg = FALSE;
   1372       cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
   1373                   ALPHA, A, 1, BETA, C, 2 );
   1374       chkxer();
   1375       cblas_info = 8; RowMajorStrg = FALSE;
   1376       cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, 0, 2,
   1377                   ALPHA, A, 1, BETA, C, 1 );
   1378       chkxer();
   1379       cblas_info = 11; RowMajorStrg = TRUE;
   1380       cblas_csyrk(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1381                   ALPHA, A, 1, BETA, C, 1 );
   1382       chkxer();
   1383       cblas_info = 11; RowMajorStrg = TRUE;
   1384       cblas_csyrk(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
   1385                   ALPHA, A, 2, BETA, C, 1 );
   1386       chkxer();
   1387       cblas_info = 11; RowMajorStrg = TRUE;
   1388       cblas_csyrk(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
   1389                   ALPHA, A, 1, BETA, C, 1 );
   1390       chkxer();
   1391       cblas_info = 11; RowMajorStrg = TRUE;
   1392       cblas_csyrk(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
   1393                   ALPHA, A, 2, BETA, C, 1 );
   1394       chkxer();
   1395       cblas_info = 11; RowMajorStrg = FALSE;
   1396       cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1397                   ALPHA, A, 2, BETA, C, 1 );
   1398       chkxer();
   1399       cblas_info = 11; RowMajorStrg = FALSE;
   1400       cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, 2, 0,
   1401                   ALPHA, A, 1, BETA, C, 1 );
   1402       chkxer();
   1403       cblas_info = 11; RowMajorStrg = FALSE;
   1404       cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
   1405                   ALPHA, A, 2, BETA, C, 1 );
   1406       chkxer();
   1407       cblas_info = 11; RowMajorStrg = FALSE;
   1408       cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, 2, 0,
   1409                   ALPHA, A, 1, BETA, C, 1 );
   1410       chkxer();
   1411 
   1412    } else if (strncmp( sf,"cblas_cher2k"   ,12)==0) {
   1413             cblas_rout = "cblas_cher2k"   ;
   1414 
   1415       cblas_info = 1;
   1416       cblas_cher2k(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
   1417                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1418       chkxer();
   1419       cblas_info = 2; RowMajorStrg = FALSE;
   1420       cblas_cher2k(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
   1421                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1422       chkxer();
   1423       cblas_info = 3; RowMajorStrg = FALSE;
   1424       cblas_cher2k(CblasColMajor,  CblasUpper, CblasTrans, 0, 0,
   1425                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1426       chkxer();
   1427       cblas_info = 4; RowMajorStrg = FALSE;
   1428       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
   1429                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1430       chkxer();
   1431       cblas_info = 4; RowMajorStrg = FALSE;
   1432       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, INVALID, 0,
   1433                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1434       chkxer();
   1435       cblas_info = 4; RowMajorStrg = FALSE;
   1436       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
   1437                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1438       chkxer();
   1439       cblas_info = 4; RowMajorStrg = FALSE;
   1440       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, INVALID, 0,
   1441                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1442       chkxer();
   1443       cblas_info = 5; RowMajorStrg = FALSE;
   1444       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
   1445                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1446       chkxer();
   1447       cblas_info = 5; RowMajorStrg = FALSE;
   1448       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, INVALID,
   1449                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1450       chkxer();
   1451       cblas_info = 5; RowMajorStrg = FALSE;
   1452       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
   1453                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1454       chkxer();
   1455       cblas_info = 5; RowMajorStrg = FALSE;
   1456       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 0, INVALID,
   1457                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1458       chkxer();
   1459       cblas_info = 8; RowMajorStrg = TRUE;
   1460       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
   1461                    ALPHA, A, 1, B, 2, RBETA, C, 2 );
   1462       chkxer();
   1463       cblas_info = 8; RowMajorStrg = TRUE;
   1464       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
   1465                    ALPHA, A, 1, B, 2, RBETA, C, 1 );
   1466       chkxer();
   1467       cblas_info = 8; RowMajorStrg = TRUE;
   1468       cblas_cher2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
   1469                    ALPHA, A, 1, B, 2, RBETA, C, 2 );
   1470       chkxer();
   1471       cblas_info = 8; RowMajorStrg = TRUE;
   1472       cblas_cher2k(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
   1473                    ALPHA, A, 1, B, 2, RBETA, C, 1 );
   1474       chkxer();
   1475       cblas_info = 8; RowMajorStrg = FALSE;
   1476       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1477                    ALPHA, A, 1, B, 1, RBETA, C, 2 );
   1478       chkxer();
   1479       cblas_info = 8; RowMajorStrg = FALSE;
   1480       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 2,
   1481                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1482       chkxer();
   1483       cblas_info = 8; RowMajorStrg = FALSE;
   1484       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
   1485                    ALPHA, A, 1, B, 1, RBETA, C, 2 );
   1486       chkxer();
   1487       cblas_info = 8; RowMajorStrg = FALSE;
   1488       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 0, 2,
   1489                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1490       chkxer();
   1491       cblas_info = 10; RowMajorStrg = TRUE;
   1492       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
   1493                    ALPHA, A, 2, B, 1, RBETA, C, 2 );
   1494       chkxer();
   1495       cblas_info = 10; RowMajorStrg = TRUE;
   1496       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
   1497                    ALPHA, A, 2, B, 1, RBETA, C, 1 );
   1498       chkxer();
   1499       cblas_info = 10; RowMajorStrg = TRUE;
   1500       cblas_cher2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
   1501                    ALPHA, A, 2, B, 1, RBETA, C, 2 );
   1502       chkxer();
   1503       cblas_info = 10; RowMajorStrg = TRUE;
   1504       cblas_cher2k(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
   1505                    ALPHA, A, 2, B, 1, RBETA, C, 1 );
   1506       chkxer();
   1507       cblas_info = 10; RowMajorStrg = FALSE;
   1508       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1509                    ALPHA, A, 2, B, 1, RBETA, C, 2 );
   1510       chkxer();
   1511       cblas_info = 10; RowMajorStrg = FALSE;
   1512       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 2,
   1513                    ALPHA, A, 2, B, 1, RBETA, C, 1 );
   1514       chkxer();
   1515       cblas_info = 10; RowMajorStrg = FALSE;
   1516       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
   1517                    ALPHA, A, 2, B, 1, RBETA, C, 2 );
   1518       chkxer();
   1519       cblas_info = 10; RowMajorStrg = FALSE;
   1520       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 0, 2,
   1521                    ALPHA, A, 2, B, 1, RBETA, C, 1 );
   1522       chkxer();
   1523       cblas_info = 13; RowMajorStrg = TRUE;
   1524       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1525                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1526       chkxer();
   1527       cblas_info = 13; RowMajorStrg = TRUE;
   1528       cblas_cher2k(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
   1529                    ALPHA, A, 2, B, 2, RBETA, C, 1 );
   1530       chkxer();
   1531       cblas_info = 13; RowMajorStrg = TRUE;
   1532       cblas_cher2k(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
   1533                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1534       chkxer();
   1535       cblas_info = 13; RowMajorStrg = TRUE;
   1536       cblas_cher2k(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
   1537                    ALPHA, A, 2, B, 2, RBETA, C, 1 );
   1538       chkxer();
   1539       cblas_info = 13; RowMajorStrg = FALSE;
   1540       cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1541                    ALPHA, A, 2, B, 2, RBETA, C, 1 );
   1542       chkxer();
   1543       cblas_info = 13; RowMajorStrg = FALSE;
   1544       cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 2, 0,
   1545                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1546       chkxer();
   1547       cblas_info = 13; RowMajorStrg = FALSE;
   1548       cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
   1549                    ALPHA, A, 2, B, 2, RBETA, C, 1 );
   1550       chkxer();
   1551       cblas_info = 13; RowMajorStrg = FALSE;
   1552       cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 2, 0,
   1553                    ALPHA, A, 1, B, 1, RBETA, C, 1 );
   1554       chkxer();
   1555 
   1556    } else if (strncmp( sf,"cblas_csyr2k"   ,12)==0) {
   1557             cblas_rout = "cblas_csyr2k"   ;
   1558 
   1559       cblas_info = 1;
   1560       cblas_csyr2k(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
   1561                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1562       chkxer();
   1563       cblas_info = 2; RowMajorStrg = FALSE;
   1564       cblas_csyr2k(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
   1565                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1566       chkxer();
   1567       cblas_info = 3; RowMajorStrg = FALSE;
   1568       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 0,
   1569                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1570       chkxer();
   1571       cblas_info = 4; RowMajorStrg = FALSE;
   1572       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
   1573                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1574       chkxer();
   1575       cblas_info = 4; RowMajorStrg = FALSE;
   1576       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, INVALID, 0,
   1577                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1578       chkxer();
   1579       cblas_info = 4; RowMajorStrg = FALSE;
   1580       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
   1581                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1582       chkxer();
   1583       cblas_info = 4; RowMajorStrg = FALSE;
   1584       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, INVALID, 0,
   1585                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1586       chkxer();
   1587       cblas_info = 5; RowMajorStrg = FALSE;
   1588       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
   1589                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1590       chkxer();
   1591       cblas_info = 5; RowMajorStrg = FALSE;
   1592       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 0, INVALID,
   1593                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1594       chkxer();
   1595       cblas_info = 5; RowMajorStrg = FALSE;
   1596       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
   1597                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1598       chkxer();
   1599       cblas_info = 5; RowMajorStrg = FALSE;
   1600       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 0, INVALID,
   1601                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1602       chkxer();
   1603       cblas_info = 8; RowMajorStrg = TRUE;
   1604       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
   1605                    ALPHA, A, 1, B, 2, BETA, C, 2 );
   1606       chkxer();
   1607       cblas_info = 8; RowMajorStrg = TRUE;
   1608       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
   1609                    ALPHA, A, 1, B, 2, BETA, C, 1 );
   1610       chkxer();
   1611       cblas_info = 8; RowMajorStrg = TRUE;
   1612       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
   1613                    ALPHA, A, 1, B, 2, BETA, C, 2 );
   1614       chkxer();
   1615       cblas_info = 8; RowMajorStrg = TRUE;
   1616       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
   1617                    ALPHA, A, 1, B, 2, BETA, C, 1 );
   1618       chkxer();
   1619       cblas_info = 8; RowMajorStrg = FALSE;
   1620       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1621                    ALPHA, A, 1, B, 1, BETA, C, 2 );
   1622       chkxer();
   1623       cblas_info = 8; RowMajorStrg = FALSE;
   1624       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 0, 2,
   1625                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1626       chkxer();
   1627       cblas_info = 8; RowMajorStrg = FALSE;
   1628       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
   1629                    ALPHA, A, 1, B, 1, BETA, C, 2 );
   1630       chkxer();
   1631       cblas_info = 8; RowMajorStrg = FALSE;
   1632       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 0, 2,
   1633                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1634       chkxer();
   1635       cblas_info = 10; RowMajorStrg = TRUE;
   1636       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
   1637                    ALPHA, A, 2, B, 1, BETA, C, 2 );
   1638       chkxer();
   1639       cblas_info = 10; RowMajorStrg = TRUE;
   1640       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
   1641                    ALPHA, A, 2, B, 1, BETA, C, 1 );
   1642       chkxer();
   1643       cblas_info = 10; RowMajorStrg = TRUE;
   1644       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
   1645                    ALPHA, A, 2, B, 1, BETA, C, 2 );
   1646       chkxer();
   1647       cblas_info = 10; RowMajorStrg = TRUE;
   1648       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
   1649                    ALPHA, A, 2, B, 1, BETA, C, 1 );
   1650       chkxer();
   1651       cblas_info = 10; RowMajorStrg = FALSE;
   1652       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1653                    ALPHA, A, 2, B, 1, BETA, C, 2 );
   1654       chkxer();
   1655       cblas_info = 10; RowMajorStrg = FALSE;
   1656       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 0, 2,
   1657                    ALPHA, A, 2, B, 1, BETA, C, 1 );
   1658       chkxer();
   1659       cblas_info = 10; RowMajorStrg = FALSE;
   1660       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
   1661                    ALPHA, A, 2, B, 1, BETA, C, 2 );
   1662       chkxer();
   1663       cblas_info = 10; RowMajorStrg = FALSE;
   1664       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 0, 2,
   1665                    ALPHA, A, 2, B, 1, BETA, C, 1 );
   1666       chkxer();
   1667       cblas_info = 13; RowMajorStrg = TRUE;
   1668       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1669                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1670       chkxer();
   1671       cblas_info = 13; RowMajorStrg = TRUE;
   1672       cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
   1673                    ALPHA, A, 2, B, 2, BETA, C, 1 );
   1674       chkxer();
   1675       cblas_info = 13; RowMajorStrg = TRUE;
   1676       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
   1677                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1678       chkxer();
   1679       cblas_info = 13; RowMajorStrg = TRUE;
   1680       cblas_csyr2k(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
   1681                    ALPHA, A, 2, B, 2, BETA, C, 1 );
   1682       chkxer();
   1683       cblas_info = 13; RowMajorStrg = FALSE;
   1684       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
   1685                    ALPHA, A, 2, B, 2, BETA, C, 1 );
   1686       chkxer();
   1687       cblas_info = 13; RowMajorStrg = FALSE;
   1688       cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 2, 0,
   1689                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1690       chkxer();
   1691       cblas_info = 13; RowMajorStrg = FALSE;
   1692       cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
   1693                    ALPHA, A, 2, B, 2, BETA, C, 1 );
   1694       chkxer();
   1695       cblas_info = 13; RowMajorStrg = FALSE;
   1696       cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 2, 0,
   1697                    ALPHA, A, 1, B, 1, BETA, C, 1 );
   1698       chkxer();
   1699 
   1700    }
   1701 
   1702    if (cblas_ok == 1 )
   1703        printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
   1704    else
   1705        printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
   1706 }
   1707