1 #include <stdio.h> 2 #include <string.h> 3 #include "cblas.h" 4 #include "cblas_test.h" 5 6 int cblas_ok, cblas_lerr, cblas_info; 7 int link_xerbla=TRUE; 8 char *cblas_rout; 9 10 #ifdef F77_Char 11 void F77_xerbla(F77_Char F77_srname, void *vinfo); 12 #else 13 void F77_xerbla(char *srname, void *vinfo); 14 #endif 15 16 void chkxer(void) { 17 extern int cblas_ok, cblas_lerr, cblas_info; 18 extern int link_xerbla; 19 extern char *cblas_rout; 20 if (cblas_lerr == 1 ) { 21 printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout); 22 cblas_ok = 0 ; 23 } 24 cblas_lerr = 1 ; 25 } 26 27 void F77_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 } 790
