ctest/c_d3chke.c

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