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_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 } 1272
