ctest/c_d2chke.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_d2chke(char *rout) {
  28    char *sf = ( rout ) ;
  29    double A[2] = {0.0,0.0},
  30           X[2] = {0.0,0.0},
  31           Y[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_dgemv",11)==0) {
  47       cblas_rout = "cblas_dgemv";
  48       cblas_info = 1;
  49       cblas_dgemv(INVALID, CblasNoTrans, 0, 0,
  50                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
  51       chkxer();
  52       cblas_info = 2; RowMajorStrg = FALSE;
  53       cblas_dgemv(CblasColMajor, INVALID, 0, 0,
  54                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
  55       chkxer();
  56       cblas_info = 3; RowMajorStrg = FALSE;
  57       cblas_dgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
  58                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
  59       chkxer();
  60       cblas_info = 4; RowMajorStrg = FALSE;
  61       cblas_dgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
  62                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
  63       chkxer();
  64       cblas_info = 7; RowMajorStrg = FALSE;
  65       cblas_dgemv(CblasColMajor, CblasNoTrans, 2, 0,
  66                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
  67       chkxer();
  68       cblas_info = 9; RowMajorStrg = FALSE;
  69       cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0,
  70                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
  71       chkxer();
  72       cblas_info = 12; RowMajorStrg = FALSE;
  73       cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0,
  74                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
  75       chkxer();
  76
  77       cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
  78       cblas_dgemv(CblasRowMajor, INVALID, 0, 0,
  79                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
  80       chkxer();
  81       cblas_info = 3; RowMajorStrg = TRUE;
  82       cblas_dgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
  83                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
  84       chkxer();
  85       cblas_info = 4; RowMajorStrg = TRUE;
  86       cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
  87                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
  88       chkxer();
  89       cblas_info = 7; RowMajorStrg = TRUE;
  90       cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 2,
  91                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
  92       chkxer();
  93       cblas_info = 9; RowMajorStrg = TRUE;
  94       cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0,
  95                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
  96       chkxer();
  97       cblas_info = 12; RowMajorStrg = TRUE;
  98       cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0,
  99                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
 100       chkxer();
 101    } else if (strncmp( sf,"cblas_dgbmv",11)==0) {
 102       cblas_rout = "cblas_dgbmv";
 103       cblas_info = 1; RowMajorStrg = FALSE;
 104       cblas_dgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
 105                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 106       chkxer();
 107       cblas_info = 2; RowMajorStrg = FALSE;
 108       cblas_dgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
 109                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 110       chkxer();
 111       cblas_info = 3; RowMajorStrg = FALSE;
 112       cblas_dgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
 113                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 114       chkxer();
 115       cblas_info = 4; RowMajorStrg = FALSE;
 116       cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
 117                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 118       chkxer();
 119       cblas_info = 5; RowMajorStrg = FALSE;
 120       cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
 121                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 122       chkxer();
 123       cblas_info = 6; RowMajorStrg = FALSE;
 124       cblas_dgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
 125                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 126       chkxer();
 127       cblas_info = 9; RowMajorStrg = FALSE;
 128       cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
 129                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 130       chkxer();
 131       cblas_info = 11; RowMajorStrg = FALSE;
 132       cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
 133                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
 134       chkxer();
 135       cblas_info = 14; RowMajorStrg = FALSE;
 136       cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
 137                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
 138       chkxer();
 139       cblas_info = 2; RowMajorStrg = TRUE;
 140       cblas_dgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
 141                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 142       chkxer();
 143       cblas_info = 3; RowMajorStrg = TRUE;
 144       cblas_dgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
 145                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 146       chkxer();
 147       cblas_info = 4; RowMajorStrg = TRUE;
 148       cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
 149                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 150       chkxer();
 151       cblas_info = 5; RowMajorStrg = TRUE;
 152       cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
 153                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 154       chkxer();
 155       cblas_info = 6; RowMajorStrg = TRUE;
 156       cblas_dgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
 157                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 158       chkxer();
 159       cblas_info = 9; RowMajorStrg = TRUE;
 160       cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
 161                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 162       chkxer();
 163       cblas_info = 11; RowMajorStrg = TRUE;
 164       cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
 165                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
 166       chkxer();
 167       cblas_info = 14; RowMajorStrg = TRUE;
 168       cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
 169                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
 170       chkxer();
 171    } else if (strncmp( sf,"cblas_dsymv",11)==0) {
 172       cblas_rout = "cblas_dsymv";
 173       cblas_info = 1; RowMajorStrg = FALSE;
 174       cblas_dsymv(INVALID, CblasUpper, 0,
 175                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 176       chkxer();
 177       cblas_info = 2; RowMajorStrg = FALSE;
 178       cblas_dsymv(CblasColMajor, INVALID, 0,
 179                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 180       chkxer();
 181       cblas_info = 3; RowMajorStrg = FALSE;
 182       cblas_dsymv(CblasColMajor, CblasUpper, INVALID,
 183                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 184       chkxer();
 185       cblas_info = 6; RowMajorStrg = FALSE;
 186       cblas_dsymv(CblasColMajor, CblasUpper, 2,
 187                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 188       chkxer();
 189       cblas_info = 8; RowMajorStrg = FALSE;
 190       cblas_dsymv(CblasColMajor, CblasUpper, 0,
 191                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
 192       chkxer();
 193       cblas_info = 11; RowMajorStrg = FALSE;
 194       cblas_dsymv(CblasColMajor, CblasUpper, 0,
 195                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
 196       chkxer();
 197       cblas_info = 2; RowMajorStrg = TRUE;
 198       cblas_dsymv(CblasRowMajor, INVALID, 0,
 199                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 200       chkxer();
 201       cblas_info = 3; RowMajorStrg = TRUE;
 202       cblas_dsymv(CblasRowMajor, CblasUpper, INVALID,
 203                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 204       chkxer();
 205       cblas_info = 6; RowMajorStrg = TRUE;
 206       cblas_dsymv(CblasRowMajor, CblasUpper, 2,
 207                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 208       chkxer();
 209       cblas_info = 8; RowMajorStrg = TRUE;
 210       cblas_dsymv(CblasRowMajor, CblasUpper, 0,
 211                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
 212       chkxer();
 213       cblas_info = 11; RowMajorStrg = TRUE;
 214       cblas_dsymv(CblasRowMajor, CblasUpper, 0,
 215                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
 216       chkxer();
 217    } else if (strncmp( sf,"cblas_dsbmv",11)==0) {
 218       cblas_rout = "cblas_dsbmv";
 219       cblas_info = 1; RowMajorStrg = FALSE;
 220       cblas_dsbmv(INVALID, CblasUpper, 0, 0,
 221                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 222       chkxer();
 223       cblas_info = 2; RowMajorStrg = FALSE;
 224       cblas_dsbmv(CblasColMajor, INVALID, 0, 0,
 225                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 226       chkxer();
 227       cblas_info = 3; RowMajorStrg = FALSE;
 228       cblas_dsbmv(CblasColMajor, CblasUpper, INVALID, 0,
 229                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 230       chkxer();
 231       cblas_info = 4; RowMajorStrg = FALSE;
 232       cblas_dsbmv(CblasColMajor, CblasUpper, 0, INVALID,
 233                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 234       chkxer();
 235       cblas_info = 7; RowMajorStrg = FALSE;
 236       cblas_dsbmv(CblasColMajor, CblasUpper, 0, 1,
 237                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 238       chkxer();
 239       cblas_info = 9; RowMajorStrg = FALSE;
 240       cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0,
 241                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
 242       chkxer();
 243       cblas_info = 12; RowMajorStrg = FALSE;
 244       cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0,
 245                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
 246       chkxer();
 247       cblas_info = 2; RowMajorStrg = TRUE;
 248       cblas_dsbmv(CblasRowMajor, INVALID, 0, 0,
 249                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 250       chkxer();
 251       cblas_info = 3; RowMajorStrg = TRUE;
 252       cblas_dsbmv(CblasRowMajor, CblasUpper, INVALID, 0,
 253                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 254       chkxer();
 255       cblas_info = 4; RowMajorStrg = TRUE;
 256       cblas_dsbmv(CblasRowMajor, CblasUpper, 0, INVALID,
 257                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 258       chkxer();
 259       cblas_info = 7; RowMajorStrg = TRUE;
 260       cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 1,
 261                   ALPHA, A, 1, X, 1, BETA, Y, 1 );
 262       chkxer();
 263       cblas_info = 9; RowMajorStrg = TRUE;
 264       cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0,
 265                   ALPHA, A, 1, X, 0, BETA, Y, 1 );
 266       chkxer();
 267       cblas_info = 12; RowMajorStrg = TRUE;
 268       cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0,
 269                   ALPHA, A, 1, X, 1, BETA, Y, 0 );
 270       chkxer();
 271    } else if (strncmp( sf,"cblas_dspmv",11)==0) {
 272       cblas_rout = "cblas_dspmv";
 273       cblas_info = 1; RowMajorStrg = FALSE;
 274       cblas_dspmv(INVALID, CblasUpper, 0,
 275                   ALPHA, A, X, 1, BETA, Y, 1 );
 276       chkxer();
 277       cblas_info = 2; RowMajorStrg = FALSE;
 278       cblas_dspmv(CblasColMajor, INVALID, 0,
 279                   ALPHA, A, X, 1, BETA, Y, 1 );
 280       chkxer();
 281       cblas_info = 3; RowMajorStrg = FALSE;
 282       cblas_dspmv(CblasColMajor, CblasUpper, INVALID,
 283                   ALPHA, A, X, 1, BETA, Y, 1 );
 284       chkxer();
 285       cblas_info = 7; RowMajorStrg = FALSE;
 286       cblas_dspmv(CblasColMajor, CblasUpper, 0,
 287                   ALPHA, A, X, 0, BETA, Y, 1 );
 288       chkxer();
 289       cblas_info = 10; RowMajorStrg = FALSE;
 290       cblas_dspmv(CblasColMajor, CblasUpper, 0,
 291                   ALPHA, A, X, 1, BETA, Y, 0 );
 292       chkxer();
 293       cblas_info = 2; RowMajorStrg = TRUE;
 294       cblas_dspmv(CblasRowMajor, INVALID, 0,
 295                   ALPHA, A, X, 1, BETA, Y, 1 );
 296       chkxer();
 297       cblas_info = 3; RowMajorStrg = TRUE;
 298       cblas_dspmv(CblasRowMajor, CblasUpper, INVALID,
 299                   ALPHA, A, X, 1, BETA, Y, 1 );
 300       chkxer();
 301       cblas_info = 7; RowMajorStrg = TRUE;
 302       cblas_dspmv(CblasRowMajor, CblasUpper, 0,
 303                   ALPHA, A, X, 0, BETA, Y, 1 );
 304       chkxer();
 305       cblas_info = 10; RowMajorStrg = TRUE;
 306       cblas_dspmv(CblasRowMajor, CblasUpper, 0,
 307                   ALPHA, A, X, 1, BETA, Y, 0 );
 308       chkxer();
 309    } else if (strncmp( sf,"cblas_dtrmv",11)==0) {
 310       cblas_rout = "cblas_dtrmv";
 311       cblas_info = 1; RowMajorStrg = FALSE;
 312       cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans,
 313                   CblasNonUnit, 0, A, 1, X, 1 );
 314       chkxer();
 315       cblas_info = 2; RowMajorStrg = FALSE;
 316       cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans,
 317                   CblasNonUnit, 0, A, 1, X, 1 );
 318       chkxer();
 319       cblas_info = 3; RowMajorStrg = FALSE;
 320       cblas_dtrmv(CblasColMajor, CblasUpper, INVALID,
 321                   CblasNonUnit, 0, A, 1, X, 1 );
 322       chkxer();
 323       cblas_info = 4; RowMajorStrg = FALSE;
 324       cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
 325                   INVALID, 0, A, 1, X, 1 );
 326       chkxer();
 327       cblas_info = 5; RowMajorStrg = FALSE;
 328       cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
 329                   CblasNonUnit, INVALID, A, 1, X, 1 );
 330       chkxer();
 331       cblas_info = 7; RowMajorStrg = FALSE;
 332       cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
 333                   CblasNonUnit, 2, A, 1, X, 1 );
 334       chkxer();
 335       cblas_info = 9; RowMajorStrg = FALSE;
 336       cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
 337                   CblasNonUnit, 0, A, 1, X, 0 );
 338       chkxer();
 339       cblas_info = 2; RowMajorStrg = TRUE;
 340       cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans,
 341                   CblasNonUnit, 0, A, 1, X, 1 );
 342       chkxer();
 343       cblas_info = 3; RowMajorStrg = TRUE;
 344       cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID,
 345                   CblasNonUnit, 0, A, 1, X, 1 );
 346       chkxer();
 347       cblas_info = 4; RowMajorStrg = TRUE;
 348       cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
 349                   INVALID, 0, A, 1, X, 1 );
 350       chkxer();
 351       cblas_info = 5; RowMajorStrg = TRUE;
 352       cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
 353                   CblasNonUnit, INVALID, A, 1, X, 1 );
 354       chkxer();
 355       cblas_info = 7; RowMajorStrg = TRUE;
 356       cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
 357                   CblasNonUnit, 2, A, 1, X, 1 );
 358       chkxer();
 359       cblas_info = 9; RowMajorStrg = TRUE;
 360       cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
 361                   CblasNonUnit, 0, A, 1, X, 0 );
 362       chkxer();
 363    } else if (strncmp( sf,"cblas_dtbmv",11)==0) {
 364       cblas_rout = "cblas_dtbmv";
 365       cblas_info = 1; RowMajorStrg = FALSE;
 366       cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans,
 367                   CblasNonUnit, 0, 0, A, 1, X, 1 );
 368       chkxer();
 369       cblas_info = 2; RowMajorStrg = FALSE;
 370       cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans,
 371                   CblasNonUnit, 0, 0, A, 1, X, 1 );
 372       chkxer();
 373       cblas_info = 3; RowMajorStrg = FALSE;
 374       cblas_dtbmv(CblasColMajor, CblasUpper, INVALID,
 375                   CblasNonUnit, 0, 0, A, 1, X, 1 );
 376       chkxer();
 377       cblas_info = 4; RowMajorStrg = FALSE;
 378       cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
 379                   INVALID, 0, 0, A, 1, X, 1 );
 380       chkxer();
 381       cblas_info = 5; RowMajorStrg = FALSE;
 382       cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
 383                   CblasNonUnit, INVALID, 0, A, 1, X, 1 );
 384       chkxer();
 385       cblas_info = 6; RowMajorStrg = FALSE;
 386       cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
 387                   CblasNonUnit, 0, INVALID, A, 1, X, 1 );
 388       chkxer();
 389       cblas_info = 8; RowMajorStrg = FALSE;
 390       cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
 391                   CblasNonUnit, 0, 1, A, 1, X, 1 );
 392       chkxer();
 393       cblas_info = 10; RowMajorStrg = FALSE;
 394       cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
 395                   CblasNonUnit, 0, 0, A, 1, X, 0 );
 396       chkxer();
 397       cblas_info = 2; RowMajorStrg = TRUE;
 398       cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans,
 399                   CblasNonUnit, 0, 0, A, 1, X, 1 );
 400       chkxer();
 401       cblas_info = 3; RowMajorStrg = TRUE;
 402       cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID,
 403                   CblasNonUnit, 0, 0, A, 1, X, 1 );
 404       chkxer();
 405       cblas_info = 4; RowMajorStrg = TRUE;
 406       cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
 407                   INVALID, 0, 0, A, 1, X, 1 );
 408       chkxer();
 409       cblas_info = 5; RowMajorStrg = TRUE;
 410       cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
 411                   CblasNonUnit, INVALID, 0, A, 1, X, 1 );
 412       chkxer();
 413       cblas_info = 6; RowMajorStrg = TRUE;
 414       cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
 415                   CblasNonUnit, 0, INVALID, A, 1, X, 1 );
 416       chkxer();
 417       cblas_info = 8; RowMajorStrg = TRUE;
 418       cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
 419                   CblasNonUnit, 0, 1, A, 1, X, 1 );
 420       chkxer();
 421       cblas_info = 10; RowMajorStrg = TRUE;
 422       cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
 423                   CblasNonUnit, 0, 0, A, 1, X, 0 );
 424       chkxer();
 425    } else if (strncmp( sf,"cblas_dtpmv",11)==0) {
 426       cblas_rout = "cblas_dtpmv";
 427       cblas_info = 1; RowMajorStrg = FALSE;
 428       cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans,
 429                   CblasNonUnit, 0, A, X, 1 );
 430       chkxer();
 431       cblas_info = 2; RowMajorStrg = FALSE;
 432       cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans,
 433                   CblasNonUnit, 0, A, X, 1 );
 434       chkxer();
 435       cblas_info = 3; RowMajorStrg = FALSE;
 436       cblas_dtpmv(CblasColMajor, CblasUpper, INVALID,
 437                   CblasNonUnit, 0, A, X, 1 );
 438       chkxer();
 439       cblas_info = 4; RowMajorStrg = FALSE;
 440       cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
 441                   INVALID, 0, A, X, 1 );
 442       chkxer();
 443       cblas_info = 5; RowMajorStrg = FALSE;
 444       cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
 445                   CblasNonUnit, INVALID, A, X, 1 );
 446       chkxer();
 447       cblas_info = 8; RowMajorStrg = FALSE;
 448       cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
 449                   CblasNonUnit, 0, A, X, 0 );
 450       chkxer();
 451       cblas_info = 2; RowMajorStrg = TRUE;
 452       cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans,
 453                   CblasNonUnit, 0, A, X, 1 );
 454       chkxer();
 455       cblas_info = 3; RowMajorStrg = TRUE;
 456       cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID,
 457                   CblasNonUnit, 0, A, X, 1 );
 458       chkxer();
 459       cblas_info = 4; RowMajorStrg = TRUE;
 460       cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
 461                   INVALID, 0, A, X, 1 );
 462       chkxer();
 463       cblas_info = 5; RowMajorStrg = TRUE;
 464       cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
 465                   CblasNonUnit, INVALID, A, X, 1 );
 466       chkxer();
 467       cblas_info = 8; RowMajorStrg = TRUE;
 468       cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
 469                   CblasNonUnit, 0, A, X, 0 );
 470       chkxer();
 471    } else if (strncmp( sf,"cblas_dtrsv",11)==0) {
 472       cblas_rout = "cblas_dtrsv";
 473       cblas_info = 1; RowMajorStrg = FALSE;
 474       cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans,
 475                   CblasNonUnit, 0, A, 1, X, 1 );
 476       chkxer();
 477       cblas_info = 2; RowMajorStrg = FALSE;
 478       cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans,
 479                   CblasNonUnit, 0, A, 1, X, 1 );
 480       chkxer();
 481       cblas_info = 3; RowMajorStrg = FALSE;
 482       cblas_dtrsv(CblasColMajor, CblasUpper, INVALID,
 483                   CblasNonUnit, 0, A, 1, X, 1 );
 484       chkxer();
 485       cblas_info = 4; RowMajorStrg = FALSE;
 486       cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
 487                   INVALID, 0, A, 1, X, 1 );
 488       chkxer();
 489       cblas_info = 5; RowMajorStrg = FALSE;
 490       cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
 491                   CblasNonUnit, INVALID, A, 1, X, 1 );
 492       chkxer();
 493       cblas_info = 7; RowMajorStrg = FALSE;
 494       cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
 495                   CblasNonUnit, 2, A, 1, X, 1 );
 496       chkxer();
 497       cblas_info = 9; RowMajorStrg = FALSE;
 498       cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
 499                   CblasNonUnit, 0, A, 1, X, 0 );
 500       chkxer();
 501       cblas_info = 2; RowMajorStrg = TRUE;
 502       cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans,
 503                   CblasNonUnit, 0, A, 1, X, 1 );
 504       chkxer();
 505       cblas_info = 3; RowMajorStrg = TRUE;
 506       cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID,
 507                   CblasNonUnit, 0, A, 1, X, 1 );
 508       chkxer();
 509       cblas_info = 4; RowMajorStrg = TRUE;
 510       cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
 511                   INVALID, 0, A, 1, X, 1 );
 512       chkxer();
 513       cblas_info = 5; RowMajorStrg = TRUE;
 514       cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
 515                   CblasNonUnit, INVALID, A, 1, X, 1 );
 516       chkxer();
 517       cblas_info = 7; RowMajorStrg = TRUE;
 518       cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
 519                   CblasNonUnit, 2, A, 1, X, 1 );
 520       chkxer();
 521       cblas_info = 9; RowMajorStrg = TRUE;
 522       cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
 523                   CblasNonUnit, 0, A, 1, X, 0 );
 524       chkxer();
 525    } else if (strncmp( sf,"cblas_dtbsv",11)==0) {
 526       cblas_rout = "cblas_dtbsv";
 527       cblas_info = 1; RowMajorStrg = FALSE;
 528       cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans,
 529                   CblasNonUnit, 0, 0, A, 1, X, 1 );
 530       chkxer();
 531       cblas_info = 2; RowMajorStrg = FALSE;
 532       cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans,
 533                   CblasNonUnit, 0, 0, A, 1, X, 1 );
 534       chkxer();
 535       cblas_info = 3; RowMajorStrg = FALSE;
 536       cblas_dtbsv(CblasColMajor, CblasUpper, INVALID,
 537                   CblasNonUnit, 0, 0, A, 1, X, 1 );
 538       chkxer();
 539       cblas_info = 4; RowMajorStrg = FALSE;
 540       cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
 541                   INVALID, 0, 0, A, 1, X, 1 );
 542       chkxer();
 543       cblas_info = 5; RowMajorStrg = FALSE;
 544       cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
 545                   CblasNonUnit, INVALID, 0, A, 1, X, 1 );
 546       chkxer();
 547       cblas_info = 6; RowMajorStrg = FALSE;
 548       cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
 549                   CblasNonUnit, 0, INVALID, A, 1, X, 1 );
 550       chkxer();
 551       cblas_info = 8; RowMajorStrg = FALSE;
 552       cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
 553                   CblasNonUnit, 0, 1, A, 1, X, 1 );
 554       chkxer();
 555       cblas_info = 10; RowMajorStrg = FALSE;
 556       cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
 557                   CblasNonUnit, 0, 0, A, 1, X, 0 );
 558       chkxer();
 559       cblas_info = 2; RowMajorStrg = TRUE;
 560       cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans,
 561                   CblasNonUnit, 0, 0, A, 1, X, 1 );
 562       chkxer();
 563       cblas_info = 3; RowMajorStrg = TRUE;
 564       cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID,
 565                   CblasNonUnit, 0, 0, A, 1, X, 1 );
 566       chkxer();
 567       cblas_info = 4; RowMajorStrg = TRUE;
 568       cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
 569                   INVALID, 0, 0, A, 1, X, 1 );
 570       chkxer();
 571       cblas_info = 5; RowMajorStrg = TRUE;
 572       cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
 573                   CblasNonUnit, INVALID, 0, A, 1, X, 1 );
 574       chkxer();
 575       cblas_info = 6; RowMajorStrg = TRUE;
 576       cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
 577                   CblasNonUnit, 0, INVALID, A, 1, X, 1 );
 578       chkxer();
 579       cblas_info = 8; RowMajorStrg = TRUE;
 580       cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
 581                   CblasNonUnit, 0, 1, A, 1, X, 1 );
 582       chkxer();
 583       cblas_info = 10; RowMajorStrg = TRUE;
 584       cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
 585                   CblasNonUnit, 0, 0, A, 1, X, 0 );
 586       chkxer();
 587    } else if (strncmp( sf,"cblas_dtpsv",11)==0) {
 588       cblas_rout = "cblas_dtpsv";
 589       cblas_info = 1; RowMajorStrg = FALSE;
 590       cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans,
 591                   CblasNonUnit, 0, A, X, 1 );
 592       chkxer();
 593       cblas_info = 2; RowMajorStrg = FALSE;
 594       cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans,
 595                   CblasNonUnit, 0, A, X, 1 );
 596       chkxer();
 597       cblas_info = 3; RowMajorStrg = FALSE;
 598       cblas_dtpsv(CblasColMajor, CblasUpper, INVALID,
 599                   CblasNonUnit, 0, A, X, 1 );
 600       chkxer();
 601       cblas_info = 4; RowMajorStrg = FALSE;
 602       cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
 603                   INVALID, 0, A, X, 1 );
 604       chkxer();
 605       cblas_info = 5; RowMajorStrg = FALSE;
 606       cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
 607                   CblasNonUnit, INVALID, A, X, 1 );
 608       chkxer();
 609       cblas_info = 8; RowMajorStrg = FALSE;
 610       cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
 611                   CblasNonUnit, 0, A, X, 0 );
 612       chkxer();
 613       cblas_info = 2; RowMajorStrg = TRUE;
 614       cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans,
 615                   CblasNonUnit, 0, A, X, 1 );
 616       chkxer();
 617       cblas_info = 3; RowMajorStrg = TRUE;
 618       cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID,
 619                   CblasNonUnit, 0, A, X, 1 );
 620       chkxer();
 621       cblas_info = 4; RowMajorStrg = TRUE;
 622       cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
 623                   INVALID, 0, A, X, 1 );
 624       chkxer();
 625       cblas_info = 5; RowMajorStrg = TRUE;
 626       cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
 627                   CblasNonUnit, INVALID, A, X, 1 );
 628       chkxer();
 629       cblas_info = 8; RowMajorStrg = TRUE;
 630       cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
 631                   CblasNonUnit, 0, A, X, 0 );
 632       chkxer();
 633    } else if (strncmp( sf,"cblas_dger",10)==0) {
 634       cblas_rout = "cblas_dger";
 635       cblas_info = 1; RowMajorStrg = FALSE;
 636       cblas_dger(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
 637       chkxer();
 638       cblas_info = 2; RowMajorStrg = FALSE;
 639       cblas_dger(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
 640       chkxer();
 641       cblas_info = 3; RowMajorStrg = FALSE;
 642       cblas_dger(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
 643       chkxer();
 644       cblas_info = 6; RowMajorStrg = FALSE;
 645       cblas_dger(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
 646       chkxer();
 647       cblas_info = 8; RowMajorStrg = FALSE;
 648       cblas_dger(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
 649       chkxer();
 650       cblas_info = 10; RowMajorStrg = FALSE;
 651       cblas_dger(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
 652       chkxer();
 653       cblas_info = 2; RowMajorStrg = TRUE;
 654       cblas_dger(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
 655       chkxer();
 656       cblas_info = 3; RowMajorStrg = TRUE;
 657       cblas_dger(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
 658       chkxer();
 659       cblas_info = 6; RowMajorStrg = TRUE;
 660       cblas_dger(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
 661       chkxer();
 662       cblas_info = 8; RowMajorStrg = TRUE;
 663       cblas_dger(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
 664       chkxer();
 665       cblas_info = 10; RowMajorStrg = TRUE;
 666       cblas_dger(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
 667       chkxer();
 668    } else if (strncmp( sf,"cblas_dsyr2",11)==0) {
 669       cblas_rout = "cblas_dsyr2";
 670       cblas_info = 1; RowMajorStrg = FALSE;
 671       cblas_dsyr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
 672       chkxer();
 673       cblas_info = 2; RowMajorStrg = FALSE;
 674       cblas_dsyr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
 675       chkxer();
 676       cblas_info = 3; RowMajorStrg = FALSE;
 677       cblas_dsyr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
 678       chkxer();
 679       cblas_info = 6; RowMajorStrg = FALSE;
 680       cblas_dsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
 681       chkxer();
 682       cblas_info = 8; RowMajorStrg = FALSE;
 683       cblas_dsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
 684       chkxer();
 685       cblas_info = 10; RowMajorStrg = FALSE;
 686       cblas_dsyr2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
 687       chkxer();
 688       cblas_info = 2; RowMajorStrg = TRUE;
 689       cblas_dsyr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
 690       chkxer();
 691       cblas_info = 3; RowMajorStrg = TRUE;
 692       cblas_dsyr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
 693       chkxer();
 694       cblas_info = 6; RowMajorStrg = TRUE;
 695       cblas_dsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
 696       chkxer();
 697       cblas_info = 8; RowMajorStrg = TRUE;
 698       cblas_dsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
 699       chkxer();
 700       cblas_info = 10; RowMajorStrg = TRUE;
 701       cblas_dsyr2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
 702       chkxer();
 703    } else if (strncmp( sf,"cblas_dspr2",11)==0) {
 704       cblas_rout = "cblas_dspr2";
 705       cblas_info = 1; RowMajorStrg = FALSE;
 706       cblas_dspr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
 707       chkxer();
 708       cblas_info = 2; RowMajorStrg = FALSE;
 709       cblas_dspr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
 710       chkxer();
 711       cblas_info = 3; RowMajorStrg = FALSE;
 712       cblas_dspr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
 713       chkxer();
 714       cblas_info = 6; RowMajorStrg = FALSE;
 715       cblas_dspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
 716       chkxer();
 717       cblas_info = 8; RowMajorStrg = FALSE;
 718       cblas_dspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
 719       chkxer();
 720       cblas_info = 2; RowMajorStrg = TRUE;
 721       cblas_dspr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
 722       chkxer();
 723       cblas_info = 3; RowMajorStrg = TRUE;
 724       cblas_dspr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
 725       chkxer();
 726       cblas_info = 6; RowMajorStrg = TRUE;
 727       cblas_dspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
 728       chkxer();
 729       cblas_info = 8; RowMajorStrg = TRUE;
 730       cblas_dspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
 731       chkxer();
 732    } else if (strncmp( sf,"cblas_dsyr",10)==0) {
 733       cblas_rout = "cblas_dsyr";
 734       cblas_info = 1; RowMajorStrg = FALSE;
 735       cblas_dsyr(INVALID, CblasUpper, 0, ALPHA, X, 1, A, 1 );
 736       chkxer();
 737       cblas_info = 2; RowMajorStrg = FALSE;
 738       cblas_dsyr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
 739       chkxer();
 740       cblas_info = 3; RowMajorStrg = FALSE;
 741       cblas_dsyr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
 742       chkxer();
 743       cblas_info = 6; RowMajorStrg = FALSE;
 744       cblas_dsyr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
 745       chkxer();
 746       cblas_info = 8; RowMajorStrg = FALSE;
 747       cblas_dsyr(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
 748       chkxer();
 749       cblas_info = 2; RowMajorStrg = TRUE;
 750       cblas_dsyr(CblasRowMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
 751       chkxer();
 752       cblas_info = 3; RowMajorStrg = TRUE;
 753       cblas_dsyr(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
 754       chkxer();
 755       cblas_info = 6; RowMajorStrg = TRUE;
 756       cblas_dsyr(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
 757       chkxer();
 758       cblas_info = 8; RowMajorStrg = TRUE;
 759       cblas_dsyr(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
 760       chkxer();
 761    } else if (strncmp( sf,"cblas_dspr",10)==0) {
 762       cblas_rout = "cblas_dspr";
 763       cblas_info = 1; RowMajorStrg = FALSE;
 764       cblas_dspr(INVALID, CblasUpper, 0, ALPHA, X, 1, A );
 765       chkxer();
 766       cblas_info = 2; RowMajorStrg = FALSE;
 767       cblas_dspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
 768       chkxer();
 769       cblas_info = 3; RowMajorStrg = FALSE;
 770       cblas_dspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
 771       chkxer();
 772       cblas_info = 6; RowMajorStrg = FALSE;
 773       cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
 774       chkxer();
 775       cblas_info = 2; RowMajorStrg = FALSE;
 776       cblas_dspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
 777       chkxer();
 778       cblas_info = 3; RowMajorStrg = FALSE;
 779       cblas_dspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
 780       chkxer();
 781       cblas_info = 6; RowMajorStrg = FALSE;
 782       cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
 783       chkxer();
 784    }
 785    if (cblas_ok == TRUE)
 786        printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
 787    else
 788        printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
 789 }