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