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_s3chke(char *rout) {
     28    char *sf = ( rout ) ;
     29    float  A[2] = {0.0,0.0},
     30           B[2] = {0.0,0.0},
     31           C[2] = {0.0,0.0},
     32           ALPHA=0.0, BETA=0.0;
     33    extern int cblas_info, cblas_lerr, cblas_ok;
     34    extern int RowMajorStrg;
     35    extern char *cblas_rout;
     36 
     37    if (link_xerbla) /* call these first to link */
     38    {
     39       cblas_xerbla(cblas_info,cblas_rout,"");
     40       F77_xerbla(cblas_rout,&cblas_info);
     41    }
     42 
     43    cblas_ok = TRUE ;
     44    cblas_lerr = PASSED ;
     45 
     46    if (strncmp( sf,"cblas_sgemm"   ,11)==0) {
     47       cblas_rout = "cblas_sgemm"   ;
     48       cblas_info = 1;
     49       cblas_sgemm( INVALID,  CblasNoTrans, CblasNoTrans, 0, 0, 0,
     50                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     51       chkxer();
     52       cblas_info = 1;
     53       cblas_sgemm( INVALID,  CblasNoTrans, CblasTrans, 0, 0, 0,
     54                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     55       chkxer();
     56       cblas_info = 1;
     57       cblas_sgemm( INVALID,  CblasTrans, CblasNoTrans, 0, 0, 0,
     58                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     59       chkxer();
     60       cblas_info = 1;
     61       cblas_sgemm( INVALID,  CblasTrans, CblasTrans, 0, 0, 0,
     62                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     63       chkxer();
     64       cblas_info = 2; RowMajorStrg = FALSE;
     65       cblas_sgemm( CblasColMajor,  INVALID, CblasNoTrans, 0, 0, 0,
     66                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     67       chkxer();
     68       cblas_info = 2; RowMajorStrg = FALSE;
     69       cblas_sgemm( CblasColMajor,  INVALID, CblasTrans, 0, 0, 0,
     70                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     71       chkxer();
     72       cblas_info = 3; RowMajorStrg = FALSE;
     73       cblas_sgemm( CblasColMajor,  CblasNoTrans, INVALID, 0, 0, 0,
     74                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     75       chkxer();
     76       cblas_info = 3; RowMajorStrg = FALSE;
     77       cblas_sgemm( CblasColMajor,  CblasTrans, INVALID, 0, 0, 0,
     78                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     79       chkxer();
     80       cblas_info = 4; RowMajorStrg = FALSE;
     81       cblas_sgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
     82                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     83       chkxer();
     84       cblas_info = 4; RowMajorStrg = FALSE;
     85       cblas_sgemm( CblasColMajor,  CblasNoTrans, CblasTrans, INVALID, 0, 0,
     86                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     87       chkxer();
     88       cblas_info = 4; RowMajorStrg = FALSE;
     89       cblas_sgemm( CblasColMajor,  CblasTrans, CblasNoTrans, INVALID, 0, 0,
     90                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     91       chkxer();
     92       cblas_info = 4; RowMajorStrg = FALSE;
     93       cblas_sgemm( CblasColMajor,  CblasTrans, CblasTrans, INVALID, 0, 0,
     94                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     95       chkxer();
     96       cblas_info = 5; RowMajorStrg = FALSE;
     97       cblas_sgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
     98                    ALPHA, A, 1, B, 1, BETA, C, 1 );
     99       chkxer();
    100       cblas_info = 5; RowMajorStrg = FALSE;
    101       cblas_sgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, INVALID, 0,
    102                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    103       chkxer();
    104       cblas_info = 5; RowMajorStrg = FALSE;
    105       cblas_sgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, INVALID, 0,
    106                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    107       chkxer();
    108       cblas_info = 5; RowMajorStrg = FALSE;
    109       cblas_sgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, INVALID, 0,
    110                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    111       chkxer();
    112       cblas_info = 6; RowMajorStrg = FALSE;
    113       cblas_sgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
    114                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    115       chkxer();
    116       cblas_info = 6; RowMajorStrg = FALSE;
    117       cblas_sgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, 0, INVALID,
    118                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    119       chkxer();
    120       cblas_info = 6; RowMajorStrg = FALSE;
    121       cblas_sgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, INVALID,
    122                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    123       chkxer();
    124       cblas_info = 6; RowMajorStrg = FALSE;
    125       cblas_sgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 0, INVALID,
    126                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    127       chkxer();
    128       cblas_info = 9; RowMajorStrg = FALSE;
    129       cblas_sgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 2, 0, 0,
    130                    ALPHA, A, 1, B, 1, BETA, C, 2 );
    131       chkxer();
    132       cblas_info = 9; RowMajorStrg = FALSE;
    133       cblas_sgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 2, 0, 0,
    134                    ALPHA, A, 1, B, 1, BETA, C, 2 );
    135       chkxer();
    136       cblas_info = 9; RowMajorStrg = FALSE;
    137       cblas_sgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, 2,
    138                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    139       chkxer();
    140       cblas_info = 9; RowMajorStrg = FALSE;
    141       cblas_sgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 0, 2,
    142                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    143       chkxer();
    144       cblas_info = 11; RowMajorStrg = FALSE;
    145       cblas_sgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, 0, 2,
    146                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    147       chkxer();
    148       cblas_info = 11; RowMajorStrg = FALSE;
    149       cblas_sgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, 2,
    150                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    151       chkxer();
    152       cblas_info = 11; RowMajorStrg = FALSE;
    153       cblas_sgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, 2, 0,
    154                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    155       chkxer();
    156       cblas_info = 11; RowMajorStrg = FALSE;
    157       cblas_sgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 2, 0,
    158                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    159       chkxer();
    160       cblas_info = 14; RowMajorStrg = FALSE;
    161       cblas_sgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 2, 0, 0,
    162                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    163       chkxer();
    164       cblas_info = 14; RowMajorStrg = FALSE;
    165       cblas_sgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 2, 0, 0,
    166                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    167       chkxer();
    168       cblas_info = 14; RowMajorStrg = FALSE;
    169       cblas_sgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 2, 0, 0,
    170                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    171       chkxer();
    172       cblas_info = 14; RowMajorStrg = FALSE;
    173       cblas_sgemm( CblasColMajor,  CblasTrans, CblasTrans, 2, 0, 0,
    174                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    175       chkxer();
    176 
    177       cblas_info = 4; RowMajorStrg = TRUE;
    178       cblas_sgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
    179                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    180       chkxer();
    181       cblas_info = 4; RowMajorStrg = TRUE;
    182       cblas_sgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, INVALID, 0, 0,
    183                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    184       chkxer();
    185       cblas_info = 4; RowMajorStrg = TRUE;
    186       cblas_sgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, INVALID, 0, 0,
    187                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    188       chkxer();
    189       cblas_info = 4; RowMajorStrg = TRUE;
    190       cblas_sgemm( CblasRowMajor,  CblasTrans, CblasTrans, INVALID, 0, 0,
    191                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    192       chkxer();
    193       cblas_info = 5; RowMajorStrg = TRUE;
    194       cblas_sgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
    195                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    196       chkxer();
    197       cblas_info = 5; RowMajorStrg = TRUE;
    198       cblas_sgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, INVALID, 0,
    199                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    200       chkxer();
    201       cblas_info = 5; RowMajorStrg = TRUE;
    202       cblas_sgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, INVALID, 0,
    203                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    204       chkxer();
    205       cblas_info = 5; RowMajorStrg = TRUE;
    206       cblas_sgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, INVALID, 0,
    207                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    208       chkxer();
    209       cblas_info = 6; RowMajorStrg = TRUE;
    210       cblas_sgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
    211                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    212       chkxer();
    213       cblas_info = 6; RowMajorStrg = TRUE;
    214       cblas_sgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 0, INVALID,
    215                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    216       chkxer();
    217       cblas_info = 6; RowMajorStrg = TRUE;
    218       cblas_sgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, 0, INVALID,
    219                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    220       chkxer();
    221       cblas_info = 6; RowMajorStrg = TRUE;
    222       cblas_sgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 0, INVALID,
    223                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    224       chkxer();
    225       cblas_info = 9;  RowMajorStrg = TRUE;
    226       cblas_sgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 0, 2,
    227                    ALPHA, A, 1, B, 1, BETA, C, 2 );
    228       chkxer();
    229       cblas_info = 9; RowMajorStrg = TRUE;
    230       cblas_sgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 0, 2,
    231                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    232       chkxer();
    233       cblas_info = 9; RowMajorStrg = TRUE;
    234       cblas_sgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 2, 0, 0,
    235                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    236       chkxer();
    237       cblas_info = 9; RowMajorStrg = TRUE;
    238       cblas_sgemm( CblasRowMajor,  CblasTrans, CblasTrans, 2, 0, 0,
    239                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    240       chkxer();
    241       cblas_info = 11; RowMajorStrg = TRUE;
    242       cblas_sgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 2, 0,
    243                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    244       chkxer();
    245       cblas_info = 11; RowMajorStrg = TRUE;
    246       cblas_sgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, 2, 0,
    247                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    248       chkxer();
    249       cblas_info = 11; RowMajorStrg = TRUE;
    250       cblas_sgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 0, 2,
    251                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    252       chkxer();
    253       cblas_info = 11; RowMajorStrg = TRUE;
    254       cblas_sgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 0, 2,
    255                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    256       chkxer();
    257       cblas_info = 14; RowMajorStrg = TRUE;
    258       cblas_sgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 2, 0,
    259                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    260       chkxer();
    261       cblas_info = 14; RowMajorStrg = TRUE;
    262       cblas_sgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 2, 0,
    263                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    264       chkxer();
    265       cblas_info = 14; RowMajorStrg = TRUE;
    266       cblas_sgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, 2, 0,
    267                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    268       chkxer();
    269       cblas_info = 14; RowMajorStrg = TRUE;
    270       cblas_sgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 2, 0,
    271                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    272       chkxer();
    273 
    274    } else if (strncmp( sf,"cblas_ssymm"   ,11)==0) {
    275       cblas_rout = "cblas_ssymm"   ;
    276 
    277       cblas_info = 1;
    278       cblas_ssymm( INVALID,  CblasRight, CblasLower, 0, 0,
    279                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    280       chkxer();
    281       cblas_info = 2; RowMajorStrg = FALSE;
    282       cblas_ssymm( CblasColMajor,  INVALID, CblasUpper, 0, 0,
    283                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    284       chkxer();
    285       cblas_info = 3; RowMajorStrg = FALSE;
    286       cblas_ssymm( CblasColMajor,  CblasLeft, INVALID, 0, 0,
    287                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    288       chkxer();
    289       cblas_info = 4; RowMajorStrg = FALSE;
    290       cblas_ssymm( CblasColMajor,  CblasLeft, CblasUpper, INVALID, 0,
    291                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    292       chkxer();
    293       cblas_info = 4; RowMajorStrg = FALSE;
    294       cblas_ssymm( CblasColMajor,  CblasRight, CblasUpper, INVALID, 0,
    295                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    296       chkxer();
    297       cblas_info = 4; RowMajorStrg = FALSE;
    298       cblas_ssymm( CblasColMajor,  CblasLeft, CblasLower, INVALID, 0,
    299                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    300       chkxer();
    301       cblas_info = 4; RowMajorStrg = FALSE;
    302       cblas_ssymm( CblasColMajor,  CblasRight, CblasLower, INVALID, 0,
    303                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    304       chkxer();
    305       cblas_info = 5; RowMajorStrg = FALSE;
    306       cblas_ssymm( CblasColMajor,  CblasLeft, CblasUpper, 0, INVALID,
    307                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    308       chkxer();
    309       cblas_info = 5; RowMajorStrg = FALSE;
    310       cblas_ssymm( CblasColMajor,  CblasRight, CblasUpper, 0, INVALID,
    311                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    312       chkxer();
    313       cblas_info = 5; RowMajorStrg = FALSE;
    314       cblas_ssymm( CblasColMajor,  CblasLeft, CblasLower, 0, INVALID,
    315                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    316       chkxer();
    317       cblas_info = 5; RowMajorStrg = FALSE;
    318       cblas_ssymm( CblasColMajor,  CblasRight, CblasLower, 0, INVALID,
    319                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    320       chkxer();
    321       cblas_info = 8; RowMajorStrg = FALSE;
    322       cblas_ssymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
    323                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    324       chkxer();
    325       cblas_info = 8; RowMajorStrg = FALSE;
    326       cblas_ssymm( CblasColMajor,  CblasRight, CblasUpper, 0, 2,
    327                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    328       chkxer();
    329       cblas_info = 8; RowMajorStrg = FALSE;
    330       cblas_ssymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
    331                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    332       chkxer();
    333       cblas_info = 8; RowMajorStrg = FALSE;
    334       cblas_ssymm( CblasColMajor,  CblasRight, CblasLower, 0, 2,
    335                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    336       chkxer();
    337       cblas_info = 10; RowMajorStrg = FALSE;
    338       cblas_ssymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
    339                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    340       chkxer();
    341       cblas_info = 10; RowMajorStrg = FALSE;
    342       cblas_ssymm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
    343                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    344       chkxer();
    345       cblas_info = 10; RowMajorStrg = FALSE;
    346       cblas_ssymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
    347                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    348       chkxer();
    349       cblas_info = 10; RowMajorStrg = FALSE;
    350       cblas_ssymm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
    351                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    352       chkxer();
    353       cblas_info = 13; RowMajorStrg = FALSE;
    354       cblas_ssymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
    355                    ALPHA, A, 2, B, 2, BETA, C, 1 );
    356       chkxer();
    357       cblas_info = 13; RowMajorStrg = FALSE;
    358       cblas_ssymm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
    359                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    360       chkxer();
    361       cblas_info = 13; RowMajorStrg = FALSE;
    362       cblas_ssymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
    363                    ALPHA, A, 2, B, 2, BETA, C, 1 );
    364       chkxer();
    365       cblas_info = 13; RowMajorStrg = FALSE;
    366       cblas_ssymm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
    367                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    368       chkxer();
    369 
    370       cblas_info = 4; RowMajorStrg = TRUE;
    371       cblas_ssymm( CblasRowMajor,  CblasLeft, CblasUpper, INVALID, 0,
    372                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    373       chkxer();
    374       cblas_info = 4; RowMajorStrg = TRUE;
    375       cblas_ssymm( CblasRowMajor,  CblasRight, CblasUpper, INVALID, 0,
    376                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    377       chkxer();
    378       cblas_info = 4; RowMajorStrg = TRUE;
    379       cblas_ssymm( CblasRowMajor,  CblasLeft, CblasLower, INVALID, 0,
    380                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    381       chkxer();
    382       cblas_info = 4; RowMajorStrg = TRUE;
    383       cblas_ssymm( CblasRowMajor,  CblasRight, CblasLower, INVALID, 0,
    384                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    385       chkxer();
    386       cblas_info = 5; RowMajorStrg = TRUE;
    387       cblas_ssymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, INVALID,
    388                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    389       chkxer();
    390       cblas_info = 5; RowMajorStrg = TRUE;
    391       cblas_ssymm( CblasRowMajor,  CblasRight, CblasUpper, 0, INVALID,
    392                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    393       chkxer();
    394       cblas_info = 5; RowMajorStrg = TRUE;
    395       cblas_ssymm( CblasRowMajor,  CblasLeft, CblasLower, 0, INVALID,
    396                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    397       chkxer();
    398       cblas_info = 5; RowMajorStrg = TRUE;
    399       cblas_ssymm( CblasRowMajor,  CblasRight, CblasLower, 0, INVALID,
    400                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    401       chkxer();
    402       cblas_info = 8; RowMajorStrg = TRUE;
    403       cblas_ssymm( CblasRowMajor,  CblasLeft, CblasUpper, 2, 0,
    404                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    405       chkxer();
    406       cblas_info = 8; RowMajorStrg = TRUE;
    407       cblas_ssymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
    408                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    409       chkxer();
    410       cblas_info = 8; RowMajorStrg = TRUE;
    411       cblas_ssymm( CblasRowMajor,  CblasLeft, CblasLower, 2, 0,
    412                    ALPHA, A, 1, B, 2, BETA, C, 2 );
    413       chkxer();
    414       cblas_info = 8; RowMajorStrg = TRUE;
    415       cblas_ssymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
    416                    ALPHA, A, 1, B, 1, BETA, C, 1 );
    417       chkxer();
    418       cblas_info = 10; RowMajorStrg = TRUE;
    419       cblas_ssymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
    420                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    421       chkxer();
    422       cblas_info = 10; RowMajorStrg = TRUE;
    423       cblas_ssymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
    424                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    425       chkxer();
    426       cblas_info = 10; RowMajorStrg = TRUE;
    427       cblas_ssymm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
    428                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    429       chkxer();
    430       cblas_info = 10; RowMajorStrg = TRUE;
    431       cblas_ssymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
    432                    ALPHA, A, 2, B, 1, BETA, C, 1 );
    433       chkxer();
    434       cblas_info = 13; RowMajorStrg = TRUE;
    435       cblas_ssymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
    436                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    437       chkxer();
    438       cblas_info = 13; RowMajorStrg = TRUE;
    439       cblas_ssymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
    440                    ALPHA, A, 2, B, 2, BETA, C, 1 );
    441       chkxer();
    442       cblas_info = 13; RowMajorStrg = TRUE;
    443       cblas_ssymm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
    444                    ALPHA, A, 1, B, 2, BETA, C, 1 );
    445       chkxer();
    446       cblas_info = 13; RowMajorStrg = TRUE;
    447       cblas_ssymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
    448                    ALPHA, A, 2, B, 2, BETA, C, 1 );
    449       chkxer();
    450 
    451    } else if (strncmp( sf,"cblas_strmm"   ,11)==0) {
    452       cblas_rout = "cblas_strmm"   ;
    453 
    454       cblas_info = 1;
    455       cblas_strmm( INVALID,  CblasLeft, CblasUpper, CblasNoTrans,
    456                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    457       chkxer();
    458       cblas_info = 2; RowMajorStrg = FALSE;
    459       cblas_strmm( CblasColMajor,  INVALID, CblasUpper, CblasNoTrans,
    460                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    461       chkxer();
    462       cblas_info = 3; RowMajorStrg = FALSE;
    463       cblas_strmm( CblasColMajor,  CblasLeft, INVALID, CblasNoTrans,
    464                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    465       chkxer();
    466       cblas_info = 4; RowMajorStrg = FALSE;
    467       cblas_strmm( CblasColMajor,  CblasLeft, CblasUpper, INVALID,
    468                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    469       chkxer();
    470       cblas_info = 5; RowMajorStrg = FALSE;
    471       cblas_strmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    472                    INVALID, 0, 0, ALPHA, A, 1, B, 1 );
    473       chkxer();
    474       cblas_info = 6; RowMajorStrg = FALSE;
    475       cblas_strmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    476                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    477       chkxer();
    478       cblas_info = 6; RowMajorStrg = FALSE;
    479       cblas_strmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    480                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    481       chkxer();
    482       cblas_info = 6; RowMajorStrg = FALSE;
    483       cblas_strmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    484                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    485       chkxer();
    486       cblas_info = 6; RowMajorStrg = FALSE;
    487       cblas_strmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    488                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    489       chkxer();
    490       cblas_info = 6; RowMajorStrg = FALSE;
    491       cblas_strmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    492                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    493       chkxer();
    494       cblas_info = 6; RowMajorStrg = FALSE;
    495       cblas_strmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    496                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    497       chkxer();
    498       cblas_info = 6; RowMajorStrg = FALSE;
    499       cblas_strmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    500                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    501       chkxer();
    502       cblas_info = 6; RowMajorStrg = FALSE;
    503       cblas_strmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    504                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    505       chkxer();
    506       cblas_info = 7; RowMajorStrg = FALSE;
    507       cblas_strmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    508                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    509       chkxer();
    510       cblas_info = 7; RowMajorStrg = FALSE;
    511       cblas_strmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    512                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    513       chkxer();
    514       cblas_info = 7; RowMajorStrg = FALSE;
    515       cblas_strmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    516                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    517       chkxer();
    518       cblas_info = 7; RowMajorStrg = FALSE;
    519       cblas_strmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    520                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    521       chkxer();
    522       cblas_info = 7; RowMajorStrg = FALSE;
    523       cblas_strmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    524                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    525       chkxer();
    526       cblas_info = 7; RowMajorStrg = FALSE;
    527       cblas_strmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    528                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    529       chkxer();
    530       cblas_info = 7; RowMajorStrg = FALSE;
    531       cblas_strmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    532                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    533       chkxer();
    534       cblas_info = 7; RowMajorStrg = FALSE;
    535       cblas_strmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    536                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    537       chkxer();
    538       cblas_info = 10; RowMajorStrg = FALSE;
    539       cblas_strmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    540                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    541       chkxer();
    542       cblas_info = 10; RowMajorStrg = FALSE;
    543       cblas_strmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    544                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    545       chkxer();
    546       cblas_info = 10; RowMajorStrg = FALSE;
    547       cblas_strmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    548                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    549       chkxer();
    550       cblas_info = 10; RowMajorStrg = FALSE;
    551       cblas_strmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    552                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    553       chkxer();
    554       cblas_info = 10; RowMajorStrg = FALSE;
    555       cblas_strmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    556                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    557       chkxer();
    558       cblas_info = 10; RowMajorStrg = FALSE;
    559       cblas_strmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    560                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    561       chkxer();
    562       cblas_info = 10; RowMajorStrg = FALSE;
    563       cblas_strmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    564                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    565       chkxer();
    566       cblas_info = 10; RowMajorStrg = FALSE;
    567       cblas_strmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    568                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    569       chkxer();
    570       cblas_info = 12; RowMajorStrg = FALSE;
    571       cblas_strmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    572                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
    573       chkxer();
    574       cblas_info = 12; RowMajorStrg = FALSE;
    575       cblas_strmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    576                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
    577       chkxer();
    578       cblas_info = 12; RowMajorStrg = FALSE;
    579       cblas_strmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    580                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    581       chkxer();
    582       cblas_info = 12; RowMajorStrg = FALSE;
    583       cblas_strmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    584                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    585       chkxer();
    586       cblas_info = 12; RowMajorStrg = FALSE;
    587       cblas_strmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    588                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
    589       chkxer();
    590       cblas_info = 12; RowMajorStrg = FALSE;
    591       cblas_strmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    592                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
    593       chkxer();
    594       cblas_info = 12; RowMajorStrg = FALSE;
    595       cblas_strmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    596                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    597       chkxer();
    598       cblas_info = 12; RowMajorStrg = FALSE;
    599       cblas_strmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    600                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    601       chkxer();
    602 
    603       cblas_info = 6; RowMajorStrg = TRUE;
    604       cblas_strmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    605                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    606       chkxer();
    607       cblas_info = 6; RowMajorStrg = TRUE;
    608       cblas_strmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
    609                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    610       chkxer();
    611       cblas_info = 6; RowMajorStrg = TRUE;
    612       cblas_strmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
    613                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    614       chkxer();
    615       cblas_info = 6; RowMajorStrg = TRUE;
    616       cblas_strmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
    617                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    618       chkxer();
    619       cblas_info = 6; RowMajorStrg = TRUE;
    620       cblas_strmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
    621                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    622       chkxer();
    623       cblas_info = 6; RowMajorStrg = TRUE;
    624       cblas_strmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
    625                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    626       chkxer();
    627       cblas_info = 6; RowMajorStrg = TRUE;
    628       cblas_strmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
    629                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    630       chkxer();
    631       cblas_info = 6; RowMajorStrg = TRUE;
    632       cblas_strmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
    633                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    634       chkxer();
    635       cblas_info = 7; RowMajorStrg = TRUE;
    636       cblas_strmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    637                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    638       chkxer();
    639       cblas_info = 7; RowMajorStrg = TRUE;
    640       cblas_strmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
    641                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    642       chkxer();
    643       cblas_info = 7; RowMajorStrg = TRUE;
    644       cblas_strmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
    645                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    646       chkxer();
    647       cblas_info = 7; RowMajorStrg = TRUE;
    648       cblas_strmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
    649                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    650       chkxer();
    651       cblas_info = 7; RowMajorStrg = TRUE;
    652       cblas_strmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
    653                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    654       chkxer();
    655       cblas_info = 7; RowMajorStrg = TRUE;
    656       cblas_strmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
    657                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    658       chkxer();
    659       cblas_info = 7; RowMajorStrg = TRUE;
    660       cblas_strmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
    661                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    662       chkxer();
    663       cblas_info = 7; RowMajorStrg = TRUE;
    664       cblas_strmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
    665                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    666       chkxer();
    667       cblas_info = 10; RowMajorStrg = TRUE;
    668       cblas_strmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    669                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    670       chkxer();
    671       cblas_info = 10; RowMajorStrg = TRUE;
    672       cblas_strmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
    673                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    674       chkxer();
    675       cblas_info = 10; RowMajorStrg = TRUE;
    676       cblas_strmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
    677                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
    678       chkxer();
    679       cblas_info = 10; RowMajorStrg = TRUE;
    680       cblas_strmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
    681                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
    682       chkxer();
    683       cblas_info = 10; RowMajorStrg = TRUE;
    684       cblas_strmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
    685                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    686       chkxer();
    687       cblas_info = 10; RowMajorStrg = TRUE;
    688       cblas_strmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
    689                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    690       chkxer();
    691       cblas_info = 10; RowMajorStrg = TRUE;
    692       cblas_strmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
    693                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
    694       chkxer();
    695       cblas_info = 10; RowMajorStrg = TRUE;
    696       cblas_strmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
    697                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
    698       chkxer();
    699       cblas_info = 12; RowMajorStrg = TRUE;
    700       cblas_strmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    701                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    702       chkxer();
    703       cblas_info = 12; RowMajorStrg = TRUE;
    704       cblas_strmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
    705                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    706       chkxer();
    707       cblas_info = 12; RowMajorStrg = TRUE;
    708       cblas_strmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
    709                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
    710       chkxer();
    711       cblas_info = 12; RowMajorStrg = TRUE;
    712       cblas_strmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
    713                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
    714       chkxer();
    715       cblas_info = 12; RowMajorStrg = TRUE;
    716       cblas_strmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
    717                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    718       chkxer();
    719       cblas_info = 12; RowMajorStrg = TRUE;
    720       cblas_strmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
    721                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    722       chkxer();
    723       cblas_info = 12; RowMajorStrg = TRUE;
    724       cblas_strmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
    725                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
    726       chkxer();
    727       cblas_info = 12; RowMajorStrg = TRUE;
    728       cblas_strmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
    729                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
    730       chkxer();
    731 
    732    } else if (strncmp( sf,"cblas_strsm"   ,11)==0) {
    733       cblas_rout = "cblas_strsm"   ;
    734 
    735       cblas_info = 1;
    736       cblas_strsm( INVALID,  CblasLeft, CblasUpper, CblasNoTrans,
    737                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    738       chkxer();
    739       cblas_info = 2; RowMajorStrg = FALSE;
    740       cblas_strsm( CblasColMajor,  INVALID, CblasUpper, CblasNoTrans,
    741                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    742       chkxer();
    743       cblas_info = 3; RowMajorStrg = FALSE;
    744       cblas_strsm( CblasColMajor,  CblasLeft, INVALID, CblasNoTrans,
    745                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    746       chkxer();
    747       cblas_info = 4; RowMajorStrg = FALSE;
    748       cblas_strsm( CblasColMajor,  CblasLeft, CblasUpper, INVALID,
    749                    CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
    750       chkxer();
    751       cblas_info = 5; RowMajorStrg = FALSE;
    752       cblas_strsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    753                    INVALID, 0, 0, ALPHA, A, 1, B, 1 );
    754       chkxer();
    755       cblas_info = 6; RowMajorStrg = FALSE;
    756       cblas_strsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    757                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    758       chkxer();
    759       cblas_info = 6; RowMajorStrg = FALSE;
    760       cblas_strsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    761                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    762       chkxer();
    763       cblas_info = 6; RowMajorStrg = FALSE;
    764       cblas_strsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    765                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    766       chkxer();
    767       cblas_info = 6; RowMajorStrg = FALSE;
    768       cblas_strsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    769                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    770       chkxer();
    771       cblas_info = 6; RowMajorStrg = FALSE;
    772       cblas_strsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    773                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    774       chkxer();
    775       cblas_info = 6; RowMajorStrg = FALSE;
    776       cblas_strsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    777                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    778       chkxer();
    779       cblas_info = 6; RowMajorStrg = FALSE;
    780       cblas_strsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    781                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    782       chkxer();
    783       cblas_info = 6; RowMajorStrg = FALSE;
    784       cblas_strsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    785                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    786       chkxer();
    787       cblas_info = 7; RowMajorStrg = FALSE;
    788       cblas_strsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    789                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    790       chkxer();
    791       cblas_info = 7; RowMajorStrg = FALSE;
    792       cblas_strsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    793                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    794       chkxer();
    795       cblas_info = 7; RowMajorStrg = FALSE;
    796       cblas_strsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    797                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    798       chkxer();
    799       cblas_info = 7; RowMajorStrg = FALSE;
    800       cblas_strsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    801                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    802       chkxer();
    803       cblas_info = 7; RowMajorStrg = FALSE;
    804       cblas_strsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    805                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    806       chkxer();
    807       cblas_info = 7; RowMajorStrg = FALSE;
    808       cblas_strsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    809                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    810       chkxer();
    811       cblas_info = 7; RowMajorStrg = FALSE;
    812       cblas_strsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    813                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    814       chkxer();
    815       cblas_info = 7; RowMajorStrg = FALSE;
    816       cblas_strsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    817                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    818       chkxer();
    819       cblas_info = 10; RowMajorStrg = FALSE;
    820       cblas_strsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    821                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    822       chkxer();
    823       cblas_info = 10; RowMajorStrg = FALSE;
    824       cblas_strsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    825                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    826       chkxer();
    827       cblas_info = 10; RowMajorStrg = FALSE;
    828       cblas_strsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    829                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    830       chkxer();
    831       cblas_info = 10; RowMajorStrg = FALSE;
    832       cblas_strsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    833                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    834       chkxer();
    835       cblas_info = 10; RowMajorStrg = FALSE;
    836       cblas_strsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    837                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    838       chkxer();
    839       cblas_info = 10; RowMajorStrg = FALSE;
    840       cblas_strsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    841                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
    842       chkxer();
    843       cblas_info = 10; RowMajorStrg = FALSE;
    844       cblas_strsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    845                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    846       chkxer();
    847       cblas_info = 10; RowMajorStrg = FALSE;
    848       cblas_strsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    849                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    850       chkxer();
    851       cblas_info = 12; RowMajorStrg = FALSE;
    852       cblas_strsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    853                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
    854       chkxer();
    855       cblas_info = 12; RowMajorStrg = FALSE;
    856       cblas_strsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
    857                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
    858       chkxer();
    859       cblas_info = 12; RowMajorStrg = FALSE;
    860       cblas_strsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
    861                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    862       chkxer();
    863       cblas_info = 12; RowMajorStrg = FALSE;
    864       cblas_strsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
    865                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    866       chkxer();
    867       cblas_info = 12; RowMajorStrg = FALSE;
    868       cblas_strsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
    869                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
    870       chkxer();
    871       cblas_info = 12; RowMajorStrg = FALSE;
    872       cblas_strsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
    873                    CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
    874       chkxer();
    875       cblas_info = 12; RowMajorStrg = FALSE;
    876       cblas_strsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
    877                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    878       chkxer();
    879       cblas_info = 12; RowMajorStrg = FALSE;
    880       cblas_strsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
    881                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    882       chkxer();
    883 
    884       cblas_info = 6; RowMajorStrg = TRUE;
    885       cblas_strsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    886                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    887       chkxer();
    888       cblas_info = 6; RowMajorStrg = TRUE;
    889       cblas_strsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
    890                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    891       chkxer();
    892       cblas_info = 6; RowMajorStrg = TRUE;
    893       cblas_strsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
    894                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    895       chkxer();
    896       cblas_info = 6; RowMajorStrg = TRUE;
    897       cblas_strsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
    898                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    899       chkxer();
    900       cblas_info = 6; RowMajorStrg = TRUE;
    901       cblas_strsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
    902                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    903       chkxer();
    904       cblas_info = 6; RowMajorStrg = TRUE;
    905       cblas_strsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
    906                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    907       chkxer();
    908       cblas_info = 6; RowMajorStrg = TRUE;
    909       cblas_strsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
    910                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    911       chkxer();
    912       cblas_info = 6; RowMajorStrg = TRUE;
    913       cblas_strsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
    914                    CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
    915       chkxer();
    916       cblas_info = 7; RowMajorStrg = TRUE;
    917       cblas_strsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    918                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    919       chkxer();
    920       cblas_info = 7; RowMajorStrg = TRUE;
    921       cblas_strsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
    922                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    923       chkxer();
    924       cblas_info = 7; RowMajorStrg = TRUE;
    925       cblas_strsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
    926                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    927       chkxer();
    928       cblas_info = 7; RowMajorStrg = TRUE;
    929       cblas_strsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
    930                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    931       chkxer();
    932       cblas_info = 7; RowMajorStrg = TRUE;
    933       cblas_strsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
    934                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    935       chkxer();
    936       cblas_info = 7; RowMajorStrg = TRUE;
    937       cblas_strsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
    938                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    939       chkxer();
    940       cblas_info = 7; RowMajorStrg = TRUE;
    941       cblas_strsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
    942                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    943       chkxer();
    944       cblas_info = 7; RowMajorStrg = TRUE;
    945       cblas_strsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
    946                    CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
    947       chkxer();
    948       cblas_info = 10; RowMajorStrg = TRUE;
    949       cblas_strsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    950                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    951       chkxer();
    952       cblas_info = 10; RowMajorStrg = TRUE;
    953       cblas_strsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
    954                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    955       chkxer();
    956       cblas_info = 10; RowMajorStrg = TRUE;
    957       cblas_strsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
    958                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
    959       chkxer();
    960       cblas_info = 10; RowMajorStrg = TRUE;
    961       cblas_strsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
    962                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
    963       chkxer();
    964       cblas_info = 10; RowMajorStrg = TRUE;
    965       cblas_strsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
    966                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    967       chkxer();
    968       cblas_info = 10; RowMajorStrg = TRUE;
    969       cblas_strsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
    970                    CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
    971       chkxer();
    972       cblas_info = 10; RowMajorStrg = TRUE;
    973       cblas_strsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
    974                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
    975       chkxer();
    976       cblas_info = 10; RowMajorStrg = TRUE;
    977       cblas_strsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
    978                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
    979       chkxer();
    980       cblas_info = 12; RowMajorStrg = TRUE;
    981       cblas_strsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
    982                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    983       chkxer();
    984       cblas_info = 12; RowMajorStrg = TRUE;
    985       cblas_strsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
    986                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    987       chkxer();
    988       cblas_info = 12; RowMajorStrg = TRUE;
    989       cblas_strsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
    990                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
    991       chkxer();
    992       cblas_info = 12; RowMajorStrg = TRUE;
    993       cblas_strsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
    994                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
    995       chkxer();
    996       cblas_info = 12; RowMajorStrg = TRUE;
    997       cblas_strsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
    998                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
    999       chkxer();
   1000       cblas_info = 12; RowMajorStrg = TRUE;
   1001       cblas_strsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
   1002                    CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
   1003       chkxer();
   1004       cblas_info = 12; RowMajorStrg = TRUE;
   1005       cblas_strsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
   1006                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
   1007       chkxer();
   1008       cblas_info = 12; RowMajorStrg = TRUE;
   1009       cblas_strsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
   1010                    CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
   1011       chkxer();
   1012 
   1013    } else if (strncmp( sf,"cblas_ssyrk"   ,11)==0) {
   1014       cblas_rout = "cblas_ssyrk"   ;
   1015 
   1016       cblas_info = 1;
   1017       cblas_ssyrk( INVALID,  CblasUpper, CblasNoTrans,
   1018                    0, 0, ALPHA, A, 1, BETA, C, 1 );
   1019       chkxer();
   1020       cblas_info = 2; RowMajorStrg = FALSE;
   1021       cblas_ssyrk( CblasColMajor,  INVALID, CblasNoTrans,
   1022                    0, 0, ALPHA, A, 1, BETA, C, 1 );
   1023       chkxer();
   1024       cblas_info = 3; RowMajorStrg = FALSE;
   1025       cblas_ssyrk( CblasColMajor,  CblasUpper, INVALID,
   1026                    0, 0, ALPHA, A, 1, BETA, C, 1 );
   1027       chkxer();
   1028       cblas_info = 4; RowMajorStrg = FALSE;
   1029       cblas_ssyrk( CblasColMajor,  CblasUpper, CblasNoTrans,
   1030                    INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
   1031       chkxer();
   1032       cblas_info = 4; RowMajorStrg = FALSE;
   1033       cblas_ssyrk( CblasColMajor,  CblasUpper, CblasTrans,
   1034                    INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
   1035       chkxer();
   1036       cblas_info = 4; RowMajorStrg = FALSE;
   1037       cblas_ssyrk( CblasColMajor,  CblasLower, CblasNoTrans,
   1038                    INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
   1039       chkxer();
   1040       cblas_info = 4; RowMajorStrg = FALSE;
   1041       cblas_ssyrk( CblasColMajor,  CblasLower, CblasTrans,
   1042                    INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
   1043       chkxer();
   1044       cblas_info = 5; RowMajorStrg = FALSE;
   1045       cblas_ssyrk( CblasColMajor,  CblasUpper, CblasNoTrans,
   1046                    0, INVALID, ALPHA, A, 1, BETA, C, 1 );
   1047       chkxer();
   1048       cblas_info = 5; RowMajorStrg = FALSE;
   1049       cblas_ssyrk( CblasColMajor,  CblasUpper, CblasTrans,
   1050                    0, INVALID, ALPHA, A, 1, BETA, C, 1 );
   1051       chkxer();
   1052       cblas_info = 5; RowMajorStrg = FALSE;
   1053       cblas_ssyrk( CblasColMajor,  CblasLower, CblasNoTrans,
   1054                    0, INVALID, ALPHA, A, 1, BETA, C, 1 );
   1055       chkxer();
   1056       cblas_info = 5; RowMajorStrg = FALSE;
   1057       cblas_ssyrk( CblasColMajor,  CblasLower, CblasTrans,
   1058                    0, INVALID, ALPHA, A, 1, BETA, C, 1 );
   1059       chkxer();
   1060       cblas_info = 8; RowMajorStrg = TRUE;
   1061       cblas_ssyrk( CblasRowMajor,  CblasUpper, CblasNoTrans,
   1062                    0, 2, ALPHA, A, 1, BETA, C, 2 );
   1063       chkxer();
   1064       cblas_info = 8; RowMajorStrg = TRUE;
   1065       cblas_ssyrk( CblasRowMajor,  CblasUpper, CblasTrans,
   1066                    2, 0, ALPHA, A, 1, BETA, C, 1 );
   1067       chkxer();
   1068       cblas_info = 8; RowMajorStrg = TRUE;
   1069       cblas_ssyrk( CblasRowMajor,  CblasLower, CblasNoTrans,
   1070                    0, 2, ALPHA, A, 1, BETA, C, 2 );
   1071       chkxer();
   1072       cblas_info = 8; RowMajorStrg = TRUE;
   1073       cblas_ssyrk( CblasRowMajor,  CblasLower, CblasTrans,
   1074                    2, 0, ALPHA, A, 1, BETA, C, 1 );
   1075       chkxer();
   1076       cblas_info = 8; RowMajorStrg = FALSE;
   1077       cblas_ssyrk( CblasColMajor,  CblasUpper, CblasNoTrans,
   1078                    2, 0, ALPHA, A, 1, BETA, C, 2 );
   1079       chkxer();
   1080       cblas_info = 8; RowMajorStrg = FALSE;
   1081       cblas_ssyrk( CblasColMajor,  CblasUpper, CblasTrans,
   1082                    0, 2, ALPHA, A, 1, BETA, C, 1 );
   1083       chkxer();
   1084       cblas_info = 8; RowMajorStrg = FALSE;
   1085       cblas_ssyrk( CblasColMajor,  CblasLower, CblasNoTrans,
   1086                    2, 0, ALPHA, A, 1, BETA, C, 2 );
   1087       chkxer();
   1088       cblas_info = 8; RowMajorStrg = FALSE;
   1089       cblas_ssyrk( CblasColMajor,  CblasLower, CblasTrans,
   1090                    0, 2, ALPHA, A, 1, BETA, C, 1 );
   1091       chkxer();
   1092       cblas_info = 11; RowMajorStrg = TRUE;
   1093       cblas_ssyrk( CblasRowMajor,  CblasUpper, CblasNoTrans,
   1094                    2, 0, ALPHA, A, 1, BETA, C, 1 );
   1095       chkxer();
   1096       cblas_info = 11; RowMajorStrg = TRUE;
   1097       cblas_ssyrk( CblasRowMajor,  CblasUpper, CblasTrans,
   1098                    2, 0, ALPHA, A, 2, BETA, C, 1 );
   1099       chkxer();
   1100       cblas_info = 11; RowMajorStrg = TRUE;
   1101       cblas_ssyrk( CblasRowMajor,  CblasLower, CblasNoTrans,
   1102                    2, 0, ALPHA, A, 1, BETA, C, 1 );
   1103       chkxer();
   1104       cblas_info = 11; RowMajorStrg = TRUE;
   1105       cblas_ssyrk( CblasRowMajor,  CblasLower, CblasTrans,
   1106                    2, 0, ALPHA, A, 2, BETA, C, 1 );
   1107       chkxer();
   1108       cblas_info = 11; RowMajorStrg = FALSE;
   1109       cblas_ssyrk( CblasColMajor,  CblasUpper, CblasNoTrans,
   1110                    2, 0, ALPHA, A, 2, BETA, C, 1 );
   1111       chkxer();
   1112       cblas_info = 11; RowMajorStrg = FALSE;
   1113       cblas_ssyrk( CblasColMajor,  CblasUpper, CblasTrans,
   1114                    2, 0, ALPHA, A, 1, BETA, C, 1 );
   1115       chkxer();
   1116       cblas_info = 11; RowMajorStrg = FALSE;
   1117       cblas_ssyrk( CblasColMajor,  CblasLower, CblasNoTrans,
   1118                    2, 0, ALPHA, A, 2, BETA, C, 1 );
   1119       chkxer();
   1120       cblas_info = 11; RowMajorStrg = FALSE;
   1121       cblas_ssyrk( CblasColMajor,  CblasLower, CblasTrans,
   1122                    2, 0, ALPHA, A, 1, BETA, C, 1 );
   1123       chkxer();
   1124 
   1125    } else if (strncmp( sf,"cblas_ssyr2k"   ,12)==0) {
   1126       cblas_rout = "cblas_ssyr2k"   ;
   1127 
   1128       cblas_info = 1;
   1129       cblas_ssyr2k( INVALID,  CblasUpper, CblasNoTrans,
   1130                     0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1131       chkxer();
   1132       cblas_info = 2; RowMajorStrg = FALSE;
   1133       cblas_ssyr2k( CblasColMajor,  INVALID, CblasNoTrans,
   1134                     0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1135       chkxer();
   1136       cblas_info = 3; RowMajorStrg = FALSE;
   1137       cblas_ssyr2k( CblasColMajor,  CblasUpper, INVALID,
   1138                     0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1139       chkxer();
   1140       cblas_info = 4; RowMajorStrg = FALSE;
   1141       cblas_ssyr2k( CblasColMajor,  CblasUpper, CblasNoTrans,
   1142                     INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1143       chkxer();
   1144       cblas_info = 4; RowMajorStrg = FALSE;
   1145       cblas_ssyr2k( CblasColMajor,  CblasUpper, CblasTrans,
   1146                     INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1147       chkxer();
   1148       cblas_info = 4; RowMajorStrg = FALSE;
   1149       cblas_ssyr2k( CblasColMajor,  CblasLower, CblasNoTrans,
   1150                     INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1151       chkxer();
   1152       cblas_info = 4; RowMajorStrg = FALSE;
   1153       cblas_ssyr2k( CblasColMajor,  CblasLower, CblasTrans,
   1154                     INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1155       chkxer();
   1156       cblas_info = 5; RowMajorStrg = FALSE;
   1157       cblas_ssyr2k( CblasColMajor,  CblasUpper, CblasNoTrans,
   1158                     0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1159       chkxer();
   1160       cblas_info = 5; RowMajorStrg = FALSE;
   1161       cblas_ssyr2k( CblasColMajor,  CblasUpper, CblasTrans,
   1162                     0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1163       chkxer();
   1164       cblas_info = 5; RowMajorStrg = FALSE;
   1165       cblas_ssyr2k( CblasColMajor,  CblasLower, CblasNoTrans,
   1166                     0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1167       chkxer();
   1168       cblas_info = 5; RowMajorStrg = FALSE;
   1169       cblas_ssyr2k( CblasColMajor,  CblasLower, CblasTrans,
   1170                     0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1171       chkxer();
   1172       cblas_info = 8; RowMajorStrg = TRUE;
   1173       cblas_ssyr2k( CblasRowMajor,  CblasUpper, CblasNoTrans,
   1174                     0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
   1175       chkxer();
   1176       cblas_info = 8; RowMajorStrg = TRUE;
   1177       cblas_ssyr2k( CblasRowMajor,  CblasUpper, CblasTrans,
   1178                     2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
   1179       chkxer();
   1180       cblas_info = 8; RowMajorStrg = TRUE;
   1181       cblas_ssyr2k( CblasRowMajor,  CblasLower, CblasNoTrans,
   1182                     0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
   1183       chkxer();
   1184       cblas_info = 8; RowMajorStrg = TRUE;
   1185       cblas_ssyr2k( CblasRowMajor,  CblasLower, CblasTrans,
   1186                     2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 );
   1187       chkxer();
   1188       cblas_info = 8; RowMajorStrg = FALSE;
   1189       cblas_ssyr2k( CblasColMajor,  CblasUpper, CblasNoTrans,
   1190                     2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
   1191       chkxer();
   1192       cblas_info = 8; RowMajorStrg = FALSE;
   1193       cblas_ssyr2k( CblasColMajor,  CblasUpper, CblasTrans,
   1194                     0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1195       chkxer();
   1196       cblas_info = 8; RowMajorStrg = FALSE;
   1197       cblas_ssyr2k( CblasColMajor,  CblasLower, CblasNoTrans,
   1198                     2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 );
   1199       chkxer();
   1200       cblas_info = 8; RowMajorStrg = FALSE;
   1201       cblas_ssyr2k( CblasColMajor,  CblasLower, CblasTrans,
   1202                     0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1203       chkxer();
   1204       cblas_info = 10; RowMajorStrg = TRUE;
   1205       cblas_ssyr2k( CblasRowMajor,  CblasUpper, CblasNoTrans,
   1206                     0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
   1207       chkxer();
   1208       cblas_info = 10; RowMajorStrg = TRUE;
   1209       cblas_ssyr2k( CblasRowMajor,  CblasUpper, CblasTrans,
   1210                     2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
   1211       chkxer();
   1212       cblas_info = 10; RowMajorStrg = TRUE;
   1213       cblas_ssyr2k( CblasRowMajor,  CblasLower, CblasNoTrans,
   1214                     0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 );
   1215       chkxer();
   1216       cblas_info = 10; RowMajorStrg = TRUE;
   1217       cblas_ssyr2k( CblasRowMajor,  CblasLower, CblasTrans,
   1218                     2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 );
   1219       chkxer();
   1220       cblas_info = 10; RowMajorStrg = FALSE;
   1221       cblas_ssyr2k( CblasColMajor,  CblasUpper, CblasNoTrans,
   1222                     2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
   1223       chkxer();
   1224       cblas_info = 10; RowMajorStrg = FALSE;
   1225       cblas_ssyr2k( CblasColMajor,  CblasUpper, CblasTrans,
   1226                     0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
   1227       chkxer();
   1228       cblas_info = 10; RowMajorStrg = FALSE;
   1229       cblas_ssyr2k( CblasColMajor,  CblasLower, CblasNoTrans,
   1230                     2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 );
   1231       chkxer();
   1232       cblas_info = 10; RowMajorStrg = FALSE;
   1233       cblas_ssyr2k( CblasColMajor,  CblasLower, CblasTrans,
   1234                     0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 );
   1235       chkxer();
   1236       cblas_info = 13; RowMajorStrg = TRUE;
   1237       cblas_ssyr2k( CblasRowMajor,  CblasUpper, CblasNoTrans,
   1238                     2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1239       chkxer();
   1240       cblas_info = 13; RowMajorStrg = TRUE;
   1241       cblas_ssyr2k( CblasRowMajor,  CblasUpper, CblasTrans,
   1242                     2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
   1243       chkxer();
   1244       cblas_info = 13; RowMajorStrg = TRUE;
   1245       cblas_ssyr2k( CblasRowMajor,  CblasLower, CblasNoTrans,
   1246                     2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1247       chkxer();
   1248       cblas_info = 13; RowMajorStrg = TRUE;
   1249       cblas_ssyr2k( CblasRowMajor,  CblasLower, CblasTrans,
   1250                     2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
   1251       chkxer();
   1252       cblas_info = 13; RowMajorStrg = FALSE;
   1253       cblas_ssyr2k( CblasColMajor,  CblasUpper, CblasNoTrans,
   1254                     2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
   1255       chkxer();
   1256       cblas_info = 13; RowMajorStrg = FALSE;
   1257       cblas_ssyr2k( CblasColMajor,  CblasUpper, CblasTrans,
   1258                     2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1259       chkxer();
   1260       cblas_info = 13; RowMajorStrg = FALSE;
   1261       cblas_ssyr2k( CblasColMajor,  CblasLower, CblasNoTrans,
   1262                     2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );
   1263       chkxer();
   1264       cblas_info = 13; RowMajorStrg = FALSE;
   1265       cblas_ssyr2k( CblasColMajor,  CblasLower, CblasTrans,
   1266                     2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
   1267       chkxer();
   1268    }
   1269    if (cblas_ok == TRUE )
   1270        printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
   1271    else
   1272        printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
   1273 }
   1274