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_c3chke(char * rout) { 28 char *sf = ( rout ) ; 29 float A[4] = {0.0,0.0,0.0,0.0}, 30 B[4] = {0.0,0.0,0.0,0.0}, 31 C[4] = {0.0,0.0,0.0,0.0}, 32 ALPHA[2] = {0.0,0.0}, 33 BETA[2] = {0.0,0.0}, 34 RALPHA = 0.0, RBETA = 0.0; 35 extern int cblas_info, cblas_lerr, cblas_ok; 36 extern int RowMajorStrg; 37 extern char *cblas_rout; 38 39 cblas_ok = TRUE ; 40 cblas_lerr = PASSED ; 41 42 if (link_xerbla) /* call these first to link */ 43 { 44 cblas_xerbla(cblas_info,cblas_rout,""); 45 F77_xerbla(cblas_rout,&cblas_info); 46 } 47 48 if (strncmp( sf,"cblas_cgemm" ,11)==0) { 49 cblas_rout = "cblas_cgemm" ; 50 51 cblas_info = 1; 52 cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, 53 ALPHA, A, 1, B, 1, BETA, C, 1 ); 54 chkxer(); 55 cblas_info = 1; 56 cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, 57 ALPHA, A, 1, B, 1, BETA, C, 1 ); 58 chkxer(); 59 cblas_info = 1; 60 cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, 61 ALPHA, A, 1, B, 1, BETA, C, 1 ); 62 chkxer(); 63 cblas_info = 1; 64 cblas_cgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0, 65 ALPHA, A, 1, B, 1, BETA, C, 1 ); 66 chkxer(); 67 cblas_info = 2; RowMajorStrg = FALSE; 68 cblas_cgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0, 69 ALPHA, A, 1, B, 1, BETA, C, 1 ); 70 chkxer(); 71 cblas_info = 2; RowMajorStrg = FALSE; 72 cblas_cgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0, 73 ALPHA, A, 1, B, 1, BETA, C, 1 ); 74 chkxer(); 75 cblas_info = 3; RowMajorStrg = FALSE; 76 cblas_cgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, 77 ALPHA, A, 1, B, 1, BETA, C, 1 ); 78 chkxer(); 79 cblas_info = 3; RowMajorStrg = FALSE; 80 cblas_cgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0, 81 ALPHA, A, 1, B, 1, BETA, C, 1 ); 82 chkxer(); 83 cblas_info = 4; RowMajorStrg = FALSE; 84 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, 85 ALPHA, A, 1, B, 1, BETA, C, 1 ); 86 chkxer(); 87 cblas_info = 4; RowMajorStrg = FALSE; 88 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, 89 ALPHA, A, 1, B, 1, BETA, C, 1 ); 90 chkxer(); 91 cblas_info = 4; RowMajorStrg = FALSE; 92 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, 93 ALPHA, A, 1, B, 1, BETA, C, 1 ); 94 chkxer(); 95 cblas_info = 4; RowMajorStrg = FALSE; 96 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0, 97 ALPHA, A, 1, B, 1, BETA, C, 1 ); 98 chkxer(); 99 cblas_info = 5; RowMajorStrg = FALSE; 100 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, 101 ALPHA, A, 1, B, 1, BETA, C, 1 ); 102 chkxer(); 103 cblas_info = 5; RowMajorStrg = FALSE; 104 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, 105 ALPHA, A, 1, B, 1, BETA, C, 1 ); 106 chkxer(); 107 cblas_info = 5; RowMajorStrg = FALSE; 108 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, 109 ALPHA, A, 1, B, 1, BETA, C, 1 ); 110 chkxer(); 111 cblas_info = 5; RowMajorStrg = FALSE; 112 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0, 113 ALPHA, A, 1, B, 1, BETA, C, 1 ); 114 chkxer(); 115 cblas_info = 6; RowMajorStrg = FALSE; 116 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, 117 ALPHA, A, 1, B, 1, BETA, C, 1 ); 118 chkxer(); 119 cblas_info = 6; RowMajorStrg = FALSE; 120 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, 121 ALPHA, A, 1, B, 1, BETA, C, 1 ); 122 chkxer(); 123 cblas_info = 6; RowMajorStrg = FALSE; 124 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, 125 ALPHA, A, 1, B, 1, BETA, C, 1 ); 126 chkxer(); 127 cblas_info = 6; RowMajorStrg = FALSE; 128 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID, 129 ALPHA, A, 1, B, 1, BETA, C, 1 ); 130 chkxer(); 131 cblas_info = 9; RowMajorStrg = FALSE; 132 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, 133 ALPHA, A, 1, B, 1, BETA, C, 2 ); 134 chkxer(); 135 cblas_info = 9; RowMajorStrg = FALSE; 136 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, 137 ALPHA, A, 1, B, 1, BETA, C, 2 ); 138 chkxer(); 139 cblas_info = 9; RowMajorStrg = FALSE; 140 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, 141 ALPHA, A, 1, B, 2, BETA, C, 1 ); 142 chkxer(); 143 cblas_info = 9; RowMajorStrg = FALSE; 144 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2, 145 ALPHA, A, 1, B, 1, BETA, C, 1 ); 146 chkxer(); 147 cblas_info = 11; RowMajorStrg = FALSE; 148 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, 149 ALPHA, A, 1, B, 1, BETA, C, 1 ); 150 chkxer(); 151 cblas_info = 11; RowMajorStrg = FALSE; 152 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, 153 ALPHA, A, 2, B, 1, BETA, C, 1 ); 154 chkxer(); 155 cblas_info = 11; RowMajorStrg = FALSE; 156 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0, 157 ALPHA, A, 1, B, 1, BETA, C, 1 ); 158 chkxer(); 159 cblas_info = 11; RowMajorStrg = FALSE; 160 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0, 161 ALPHA, A, 1, B, 1, BETA, C, 1 ); 162 chkxer(); 163 cblas_info = 14; RowMajorStrg = FALSE; 164 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, 165 ALPHA, A, 2, B, 1, BETA, C, 1 ); 166 chkxer(); 167 cblas_info = 14; RowMajorStrg = FALSE; 168 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, 169 ALPHA, A, 2, B, 1, BETA, C, 1 ); 170 chkxer(); 171 cblas_info = 14; RowMajorStrg = FALSE; 172 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0, 173 ALPHA, A, 1, B, 1, BETA, C, 1 ); 174 chkxer(); 175 cblas_info = 14; RowMajorStrg = FALSE; 176 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0, 177 ALPHA, A, 1, B, 1, BETA, C, 1 ); 178 chkxer(); 179 cblas_info = 4; RowMajorStrg = TRUE; 180 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, 181 ALPHA, A, 1, B, 1, BETA, C, 1 ); 182 chkxer(); 183 cblas_info = 4; RowMajorStrg = TRUE; 184 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, 185 ALPHA, A, 1, B, 1, BETA, C, 1 ); 186 chkxer(); 187 cblas_info = 4; RowMajorStrg = TRUE; 188 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, 189 ALPHA, A, 1, B, 1, BETA, C, 1 ); 190 chkxer(); 191 cblas_info = 4; RowMajorStrg = TRUE; 192 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0, 193 ALPHA, A, 1, B, 1, BETA, C, 1 ); 194 chkxer(); 195 cblas_info = 5; RowMajorStrg = TRUE; 196 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, 197 ALPHA, A, 1, B, 1, BETA, C, 1 ); 198 chkxer(); 199 cblas_info = 5; RowMajorStrg = TRUE; 200 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, 201 ALPHA, A, 1, B, 1, BETA, C, 1 ); 202 chkxer(); 203 cblas_info = 5; RowMajorStrg = TRUE; 204 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, 205 ALPHA, A, 1, B, 1, BETA, C, 1 ); 206 chkxer(); 207 cblas_info = 5; RowMajorStrg = TRUE; 208 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0, 209 ALPHA, A, 1, B, 1, BETA, C, 1 ); 210 chkxer(); 211 cblas_info = 6; RowMajorStrg = TRUE; 212 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, 213 ALPHA, A, 1, B, 1, BETA, C, 1 ); 214 chkxer(); 215 cblas_info = 6; RowMajorStrg = TRUE; 216 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, 217 ALPHA, A, 1, B, 1, BETA, C, 1 ); 218 chkxer(); 219 cblas_info = 6; RowMajorStrg = TRUE; 220 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, 221 ALPHA, A, 1, B, 1, BETA, C, 1 ); 222 chkxer(); 223 cblas_info = 6; RowMajorStrg = TRUE; 224 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID, 225 ALPHA, A, 1, B, 1, BETA, C, 1 ); 226 chkxer(); 227 cblas_info = 9; RowMajorStrg = TRUE; 228 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, 229 ALPHA, A, 1, B, 1, BETA, C, 2 ); 230 chkxer(); 231 cblas_info = 9; RowMajorStrg = TRUE; 232 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, 233 ALPHA, A, 1, B, 2, BETA, C, 2 ); 234 chkxer(); 235 cblas_info = 9; RowMajorStrg = TRUE; 236 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0, 237 ALPHA, A, 1, B, 2, BETA, C, 1 ); 238 chkxer(); 239 cblas_info = 9; RowMajorStrg = TRUE; 240 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0, 241 ALPHA, A, 1, B, 1, BETA, C, 1 ); 242 chkxer(); 243 cblas_info = 11; RowMajorStrg = TRUE; 244 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, 245 ALPHA, A, 1, B, 1, BETA, C, 1 ); 246 chkxer(); 247 cblas_info = 11; RowMajorStrg = TRUE; 248 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, 249 ALPHA, A, 2, B, 1, BETA, C, 1 ); 250 chkxer(); 251 cblas_info = 11; RowMajorStrg = TRUE; 252 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, 253 ALPHA, A, 2, B, 1, BETA, C, 1 ); 254 chkxer(); 255 cblas_info = 11; RowMajorStrg = TRUE; 256 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2, 257 ALPHA, A, 1, B, 1, BETA, C, 1 ); 258 chkxer(); 259 cblas_info = 14; RowMajorStrg = TRUE; 260 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, 261 ALPHA, A, 1, B, 2, BETA, C, 1 ); 262 chkxer(); 263 cblas_info = 14; RowMajorStrg = TRUE; 264 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0, 265 ALPHA, A, 1, B, 1, BETA, C, 1 ); 266 chkxer(); 267 cblas_info = 14; RowMajorStrg = TRUE; 268 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, 269 ALPHA, A, 1, B, 2, BETA, C, 1 ); 270 chkxer(); 271 cblas_info = 14; RowMajorStrg = TRUE; 272 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, 273 ALPHA, A, 1, B, 1, BETA, C, 1 ); 274 chkxer(); 275 276 } else if (strncmp( sf,"cblas_chemm" ,11)==0) { 277 cblas_rout = "cblas_chemm" ; 278 279 cblas_info = 1; 280 cblas_chemm( INVALID, CblasRight, CblasLower, 0, 0, 281 ALPHA, A, 1, B, 1, BETA, C, 1 ); 282 chkxer(); 283 cblas_info = 2; RowMajorStrg = FALSE; 284 cblas_chemm( CblasColMajor, INVALID, CblasUpper, 0, 0, 285 ALPHA, A, 1, B, 1, BETA, C, 1 ); 286 chkxer(); 287 cblas_info = 3; RowMajorStrg = FALSE; 288 cblas_chemm( CblasColMajor, CblasLeft, INVALID, 0, 0, 289 ALPHA, A, 1, B, 1, BETA, C, 1 ); 290 chkxer(); 291 cblas_info = 4; RowMajorStrg = FALSE; 292 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, 293 ALPHA, A, 1, B, 1, BETA, C, 1 ); 294 chkxer(); 295 cblas_info = 4; RowMajorStrg = FALSE; 296 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, 297 ALPHA, A, 1, B, 1, BETA, C, 1 ); 298 chkxer(); 299 cblas_info = 4; RowMajorStrg = FALSE; 300 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, 301 ALPHA, A, 1, B, 1, BETA, C, 1 ); 302 chkxer(); 303 cblas_info = 4; RowMajorStrg = FALSE; 304 cblas_chemm( CblasColMajor, CblasRight, CblasLower, INVALID, 0, 305 ALPHA, A, 1, B, 1, BETA, C, 1 ); 306 chkxer(); 307 cblas_info = 5; RowMajorStrg = FALSE; 308 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, 309 ALPHA, A, 1, B, 1, BETA, C, 1 ); 310 chkxer(); 311 cblas_info = 5; RowMajorStrg = FALSE; 312 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, 313 ALPHA, A, 1, B, 1, BETA, C, 1 ); 314 chkxer(); 315 cblas_info = 5; RowMajorStrg = FALSE; 316 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, 317 ALPHA, A, 1, B, 1, BETA, C, 1 ); 318 chkxer(); 319 cblas_info = 5; RowMajorStrg = FALSE; 320 cblas_chemm( CblasColMajor, CblasRight, CblasLower, 0, INVALID, 321 ALPHA, A, 1, B, 1, BETA, C, 1 ); 322 chkxer(); 323 cblas_info = 8; RowMajorStrg = FALSE; 324 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, 325 ALPHA, A, 1, B, 2, BETA, C, 2 ); 326 chkxer(); 327 cblas_info = 8; RowMajorStrg = FALSE; 328 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 0, 2, 329 ALPHA, A, 1, B, 1, BETA, C, 1 ); 330 chkxer(); 331 cblas_info = 8; RowMajorStrg = FALSE; 332 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 2, 0, 333 ALPHA, A, 1, B, 2, BETA, C, 2 ); 334 chkxer(); 335 cblas_info = 8; RowMajorStrg = FALSE; 336 cblas_chemm( CblasColMajor, CblasRight, CblasLower, 0, 2, 337 ALPHA, A, 1, B, 1, BETA, C, 1 ); 338 chkxer(); 339 cblas_info = 10; RowMajorStrg = FALSE; 340 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, 341 ALPHA, A, 2, B, 1, BETA, C, 1 ); 342 chkxer(); 343 cblas_info = 10; RowMajorStrg = FALSE; 344 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 2, 0, 345 ALPHA, A, 1, B, 1, BETA, C, 1 ); 346 chkxer(); 347 cblas_info = 10; RowMajorStrg = FALSE; 348 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 2, 0, 349 ALPHA, A, 2, B, 1, BETA, C, 1 ); 350 chkxer(); 351 cblas_info = 10; RowMajorStrg = FALSE; 352 cblas_chemm( CblasColMajor, CblasRight, CblasLower, 2, 0, 353 ALPHA, A, 1, B, 1, BETA, C, 1 ); 354 chkxer(); 355 cblas_info = 13; RowMajorStrg = FALSE; 356 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, 357 ALPHA, A, 2, B, 2, BETA, C, 1 ); 358 chkxer(); 359 cblas_info = 13; RowMajorStrg = FALSE; 360 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 2, 0, 361 ALPHA, A, 1, B, 2, BETA, C, 1 ); 362 chkxer(); 363 cblas_info = 13; RowMajorStrg = FALSE; 364 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 2, 0, 365 ALPHA, A, 2, B, 2, BETA, C, 1 ); 366 chkxer(); 367 cblas_info = 13; RowMajorStrg = FALSE; 368 cblas_chemm( CblasColMajor, CblasRight, CblasLower, 2, 0, 369 ALPHA, A, 1, B, 2, BETA, C, 1 ); 370 chkxer(); 371 cblas_info = 4; RowMajorStrg = TRUE; 372 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, 373 ALPHA, A, 1, B, 1, BETA, C, 1 ); 374 chkxer(); 375 cblas_info = 4; RowMajorStrg = TRUE; 376 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, 377 ALPHA, A, 1, B, 1, BETA, C, 1 ); 378 chkxer(); 379 cblas_info = 4; RowMajorStrg = TRUE; 380 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, 381 ALPHA, A, 1, B, 1, BETA, C, 1 ); 382 chkxer(); 383 cblas_info = 4; RowMajorStrg = TRUE; 384 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, 385 ALPHA, A, 1, B, 1, BETA, C, 1 ); 386 chkxer(); 387 cblas_info = 5; RowMajorStrg = TRUE; 388 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, 389 ALPHA, A, 1, B, 1, BETA, C, 1 ); 390 chkxer(); 391 cblas_info = 5; RowMajorStrg = TRUE; 392 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, 393 ALPHA, A, 1, B, 1, BETA, C, 1 ); 394 chkxer(); 395 cblas_info = 5; RowMajorStrg = TRUE; 396 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, 397 ALPHA, A, 1, B, 1, BETA, C, 1 ); 398 chkxer(); 399 cblas_info = 5; RowMajorStrg = TRUE; 400 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, 401 ALPHA, A, 1, B, 1, BETA, C, 1 ); 402 chkxer(); 403 cblas_info = 8; RowMajorStrg = TRUE; 404 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, 405 ALPHA, A, 1, B, 2, BETA, C, 2 ); 406 chkxer(); 407 cblas_info = 8; RowMajorStrg = TRUE; 408 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, 409 ALPHA, A, 1, B, 1, BETA, C, 1 ); 410 chkxer(); 411 cblas_info = 8; RowMajorStrg = TRUE; 412 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 2, 0, 413 ALPHA, A, 1, B, 2, BETA, C, 2 ); 414 chkxer(); 415 cblas_info = 8; RowMajorStrg = TRUE; 416 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, 2, 417 ALPHA, A, 1, B, 1, BETA, C, 1 ); 418 chkxer(); 419 cblas_info = 10; RowMajorStrg = TRUE; 420 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, 421 ALPHA, A, 2, B, 1, BETA, C, 1 ); 422 chkxer(); 423 cblas_info = 10; RowMajorStrg = TRUE; 424 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, 425 ALPHA, A, 2, B, 1, BETA, C, 1 ); 426 chkxer(); 427 cblas_info = 10; RowMajorStrg = TRUE; 428 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, 429 ALPHA, A, 2, B, 1, BETA, C, 1 ); 430 chkxer(); 431 cblas_info = 10; RowMajorStrg = TRUE; 432 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, 2, 433 ALPHA, A, 2, B, 1, BETA, C, 1 ); 434 chkxer(); 435 cblas_info = 13; RowMajorStrg = TRUE; 436 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, 437 ALPHA, A, 1, B, 2, BETA, C, 1 ); 438 chkxer(); 439 cblas_info = 13; RowMajorStrg = TRUE; 440 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, 441 ALPHA, A, 2, B, 2, BETA, C, 1 ); 442 chkxer(); 443 cblas_info = 13; RowMajorStrg = TRUE; 444 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, 445 ALPHA, A, 1, B, 2, BETA, C, 1 ); 446 chkxer(); 447 cblas_info = 13; RowMajorStrg = TRUE; 448 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, 2, 449 ALPHA, A, 2, B, 2, BETA, C, 1 ); 450 chkxer(); 451 452 } else if (strncmp( sf,"cblas_csymm" ,11)==0) { 453 cblas_rout = "cblas_csymm" ; 454 455 cblas_info = 1; 456 cblas_csymm( INVALID, CblasRight, CblasLower, 0, 0, 457 ALPHA, A, 1, B, 1, BETA, C, 1 ); 458 chkxer(); 459 cblas_info = 2; RowMajorStrg = FALSE; 460 cblas_csymm( CblasColMajor, INVALID, CblasUpper, 0, 0, 461 ALPHA, A, 1, B, 1, BETA, C, 1 ); 462 chkxer(); 463 cblas_info = 3; RowMajorStrg = FALSE; 464 cblas_csymm( CblasColMajor, CblasLeft, INVALID, 0, 0, 465 ALPHA, A, 1, B, 1, BETA, C, 1 ); 466 chkxer(); 467 cblas_info = 4; RowMajorStrg = FALSE; 468 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, 469 ALPHA, A, 1, B, 1, BETA, C, 1 ); 470 chkxer(); 471 cblas_info = 4; RowMajorStrg = FALSE; 472 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, 473 ALPHA, A, 1, B, 1, BETA, C, 1 ); 474 chkxer(); 475 cblas_info = 4; RowMajorStrg = FALSE; 476 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, 477 ALPHA, A, 1, B, 1, BETA, C, 1 ); 478 chkxer(); 479 cblas_info = 4; RowMajorStrg = FALSE; 480 cblas_csymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0, 481 ALPHA, A, 1, B, 1, BETA, C, 1 ); 482 chkxer(); 483 cblas_info = 5; RowMajorStrg = FALSE; 484 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, 485 ALPHA, A, 1, B, 1, BETA, C, 1 ); 486 chkxer(); 487 cblas_info = 5; RowMajorStrg = FALSE; 488 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, 489 ALPHA, A, 1, B, 1, BETA, C, 1 ); 490 chkxer(); 491 cblas_info = 5; RowMajorStrg = FALSE; 492 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, 493 ALPHA, A, 1, B, 1, BETA, C, 1 ); 494 chkxer(); 495 cblas_info = 5; RowMajorStrg = FALSE; 496 cblas_csymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID, 497 ALPHA, A, 1, B, 1, BETA, C, 1 ); 498 chkxer(); 499 cblas_info = 8; RowMajorStrg = FALSE; 500 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, 501 ALPHA, A, 1, B, 2, BETA, C, 2 ); 502 chkxer(); 503 cblas_info = 8; RowMajorStrg = FALSE; 504 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 0, 2, 505 ALPHA, A, 1, B, 1, BETA, C, 1 ); 506 chkxer(); 507 cblas_info = 8; RowMajorStrg = FALSE; 508 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, 509 ALPHA, A, 1, B, 2, BETA, C, 2 ); 510 chkxer(); 511 cblas_info = 8; RowMajorStrg = FALSE; 512 cblas_csymm( CblasColMajor, CblasRight, CblasLower, 0, 2, 513 ALPHA, A, 1, B, 1, BETA, C, 1 ); 514 chkxer(); 515 cblas_info = 10; RowMajorStrg = FALSE; 516 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, 517 ALPHA, A, 2, B, 1, BETA, C, 1 ); 518 chkxer(); 519 cblas_info = 10; RowMajorStrg = FALSE; 520 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, 521 ALPHA, A, 1, B, 1, BETA, C, 1 ); 522 chkxer(); 523 cblas_info = 10; RowMajorStrg = FALSE; 524 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, 525 ALPHA, A, 2, B, 1, BETA, C, 1 ); 526 chkxer(); 527 cblas_info = 10; RowMajorStrg = FALSE; 528 cblas_csymm( CblasColMajor, CblasRight, CblasLower, 2, 0, 529 ALPHA, A, 1, B, 1, BETA, C, 1 ); 530 chkxer(); 531 cblas_info = 13; RowMajorStrg = FALSE; 532 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, 533 ALPHA, A, 2, B, 2, BETA, C, 1 ); 534 chkxer(); 535 cblas_info = 13; RowMajorStrg = FALSE; 536 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, 537 ALPHA, A, 1, B, 2, BETA, C, 1 ); 538 chkxer(); 539 cblas_info = 13; RowMajorStrg = FALSE; 540 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, 541 ALPHA, A, 2, B, 2, BETA, C, 1 ); 542 chkxer(); 543 cblas_info = 13; RowMajorStrg = FALSE; 544 cblas_csymm( CblasColMajor, CblasRight, CblasLower, 2, 0, 545 ALPHA, A, 1, B, 2, BETA, C, 1 ); 546 chkxer(); 547 cblas_info = 4; RowMajorStrg = TRUE; 548 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, 549 ALPHA, A, 1, B, 1, BETA, C, 1 ); 550 chkxer(); 551 cblas_info = 4; RowMajorStrg = TRUE; 552 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, 553 ALPHA, A, 1, B, 1, BETA, C, 1 ); 554 chkxer(); 555 cblas_info = 4; RowMajorStrg = TRUE; 556 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, 557 ALPHA, A, 1, B, 1, BETA, C, 1 ); 558 chkxer(); 559 cblas_info = 4; RowMajorStrg = TRUE; 560 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, 561 ALPHA, A, 1, B, 1, BETA, C, 1 ); 562 chkxer(); 563 cblas_info = 5; RowMajorStrg = TRUE; 564 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, 565 ALPHA, A, 1, B, 1, BETA, C, 1 ); 566 chkxer(); 567 cblas_info = 5; RowMajorStrg = TRUE; 568 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, 569 ALPHA, A, 1, B, 1, BETA, C, 1 ); 570 chkxer(); 571 cblas_info = 5; RowMajorStrg = TRUE; 572 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, 573 ALPHA, A, 1, B, 1, BETA, C, 1 ); 574 chkxer(); 575 cblas_info = 5; RowMajorStrg = TRUE; 576 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, 577 ALPHA, A, 1, B, 1, BETA, C, 1 ); 578 chkxer(); 579 cblas_info = 8; RowMajorStrg = TRUE; 580 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, 581 ALPHA, A, 1, B, 2, BETA, C, 2 ); 582 chkxer(); 583 cblas_info = 8; RowMajorStrg = TRUE; 584 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, 585 ALPHA, A, 1, B, 1, BETA, C, 1 ); 586 chkxer(); 587 cblas_info = 8; RowMajorStrg = TRUE; 588 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0, 589 ALPHA, A, 1, B, 2, BETA, C, 2 ); 590 chkxer(); 591 cblas_info = 8; RowMajorStrg = TRUE; 592 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, 593 ALPHA, A, 1, B, 1, BETA, C, 1 ); 594 chkxer(); 595 cblas_info = 10; RowMajorStrg = TRUE; 596 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, 597 ALPHA, A, 2, B, 1, BETA, C, 1 ); 598 chkxer(); 599 cblas_info = 10; RowMajorStrg = TRUE; 600 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, 601 ALPHA, A, 2, B, 1, BETA, C, 1 ); 602 chkxer(); 603 cblas_info = 10; RowMajorStrg = TRUE; 604 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, 605 ALPHA, A, 2, B, 1, BETA, C, 1 ); 606 chkxer(); 607 cblas_info = 10; RowMajorStrg = TRUE; 608 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, 609 ALPHA, A, 2, B, 1, BETA, C, 1 ); 610 chkxer(); 611 cblas_info = 13; RowMajorStrg = TRUE; 612 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, 613 ALPHA, A, 1, B, 2, BETA, C, 1 ); 614 chkxer(); 615 cblas_info = 13; RowMajorStrg = TRUE; 616 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, 617 ALPHA, A, 2, B, 2, BETA, C, 1 ); 618 chkxer(); 619 cblas_info = 13; RowMajorStrg = TRUE; 620 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, 621 ALPHA, A, 1, B, 2, BETA, C, 1 ); 622 chkxer(); 623 cblas_info = 13; RowMajorStrg = TRUE; 624 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, 625 ALPHA, A, 2, B, 2, BETA, C, 1 ); 626 chkxer(); 627 628 } else if (strncmp( sf,"cblas_ctrmm" ,11)==0) { 629 cblas_rout = "cblas_ctrmm" ; 630 631 cblas_info = 1; 632 cblas_ctrmm( INVALID, CblasLeft, CblasUpper, CblasNoTrans, 633 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 634 chkxer(); 635 cblas_info = 2; RowMajorStrg = FALSE; 636 cblas_ctrmm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, 637 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 638 chkxer(); 639 cblas_info = 3; RowMajorStrg = FALSE; 640 cblas_ctrmm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, 641 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 642 chkxer(); 643 cblas_info = 4; RowMajorStrg = FALSE; 644 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 645 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 646 chkxer(); 647 cblas_info = 5; RowMajorStrg = FALSE; 648 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 649 INVALID, 0, 0, ALPHA, A, 1, B, 1 ); 650 chkxer(); 651 cblas_info = 6; RowMajorStrg = FALSE; 652 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 653 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 654 chkxer(); 655 cblas_info = 6; RowMajorStrg = FALSE; 656 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 657 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 658 chkxer(); 659 cblas_info = 6; RowMajorStrg = FALSE; 660 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 661 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 662 chkxer(); 663 cblas_info = 6; RowMajorStrg = FALSE; 664 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 665 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 666 chkxer(); 667 cblas_info = 6; RowMajorStrg = FALSE; 668 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 669 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 670 chkxer(); 671 cblas_info = 6; RowMajorStrg = FALSE; 672 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 673 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 674 chkxer(); 675 cblas_info = 6; RowMajorStrg = FALSE; 676 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 677 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 678 chkxer(); 679 cblas_info = 6; RowMajorStrg = FALSE; 680 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 681 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 682 chkxer(); 683 cblas_info = 7; RowMajorStrg = FALSE; 684 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 685 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 686 chkxer(); 687 cblas_info = 7; RowMajorStrg = FALSE; 688 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 689 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 690 chkxer(); 691 cblas_info = 7; RowMajorStrg = FALSE; 692 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 693 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 694 chkxer(); 695 cblas_info = 7; RowMajorStrg = FALSE; 696 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 697 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 698 chkxer(); 699 cblas_info = 7; RowMajorStrg = FALSE; 700 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 701 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 702 chkxer(); 703 cblas_info = 7; RowMajorStrg = FALSE; 704 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 705 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 706 chkxer(); 707 cblas_info = 7; RowMajorStrg = FALSE; 708 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 709 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 710 chkxer(); 711 cblas_info = 7; RowMajorStrg = FALSE; 712 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 713 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 714 chkxer(); 715 cblas_info = 10; RowMajorStrg = FALSE; 716 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 717 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 718 chkxer(); 719 cblas_info = 10; RowMajorStrg = FALSE; 720 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 721 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 722 chkxer(); 723 cblas_info = 10; RowMajorStrg = FALSE; 724 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 725 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 726 chkxer(); 727 cblas_info = 10; RowMajorStrg = FALSE; 728 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 729 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 730 chkxer(); 731 cblas_info = 10; RowMajorStrg = FALSE; 732 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 733 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 734 chkxer(); 735 cblas_info = 10; RowMajorStrg = FALSE; 736 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 737 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 738 chkxer(); 739 cblas_info = 10; RowMajorStrg = FALSE; 740 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 741 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 742 chkxer(); 743 cblas_info = 10; RowMajorStrg = FALSE; 744 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 745 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 746 chkxer(); 747 cblas_info = 12; RowMajorStrg = FALSE; 748 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 749 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 750 chkxer(); 751 cblas_info = 12; RowMajorStrg = FALSE; 752 cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 753 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 754 chkxer(); 755 cblas_info = 12; RowMajorStrg = FALSE; 756 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 757 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 758 chkxer(); 759 cblas_info = 12; RowMajorStrg = FALSE; 760 cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 761 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 762 chkxer(); 763 cblas_info = 12; RowMajorStrg = FALSE; 764 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 765 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 766 chkxer(); 767 cblas_info = 12; RowMajorStrg = FALSE; 768 cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 769 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 770 chkxer(); 771 cblas_info = 12; RowMajorStrg = FALSE; 772 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 773 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 774 chkxer(); 775 cblas_info = 12; RowMajorStrg = FALSE; 776 cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 777 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 778 chkxer(); 779 cblas_info = 6; RowMajorStrg = TRUE; 780 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 781 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 782 chkxer(); 783 cblas_info = 6; RowMajorStrg = TRUE; 784 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 785 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 786 chkxer(); 787 cblas_info = 6; RowMajorStrg = TRUE; 788 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 789 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 790 chkxer(); 791 cblas_info = 6; RowMajorStrg = TRUE; 792 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 793 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 794 chkxer(); 795 cblas_info = 6; RowMajorStrg = TRUE; 796 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 797 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 798 chkxer(); 799 cblas_info = 6; RowMajorStrg = TRUE; 800 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 801 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 802 chkxer(); 803 cblas_info = 6; RowMajorStrg = TRUE; 804 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 805 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 806 chkxer(); 807 cblas_info = 6; RowMajorStrg = TRUE; 808 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 809 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 810 chkxer(); 811 cblas_info = 7; RowMajorStrg = TRUE; 812 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 813 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 814 chkxer(); 815 cblas_info = 7; RowMajorStrg = TRUE; 816 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 817 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 818 chkxer(); 819 cblas_info = 7; RowMajorStrg = TRUE; 820 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 821 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 822 chkxer(); 823 cblas_info = 7; RowMajorStrg = TRUE; 824 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 825 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 826 chkxer(); 827 cblas_info = 7; RowMajorStrg = TRUE; 828 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 829 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 830 chkxer(); 831 cblas_info = 7; RowMajorStrg = TRUE; 832 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 833 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 834 chkxer(); 835 cblas_info = 7; RowMajorStrg = TRUE; 836 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 837 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 838 chkxer(); 839 cblas_info = 7; RowMajorStrg = TRUE; 840 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 841 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 842 chkxer(); 843 cblas_info = 10; RowMajorStrg = TRUE; 844 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 845 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 846 chkxer(); 847 cblas_info = 10; RowMajorStrg = TRUE; 848 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 849 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 850 chkxer(); 851 cblas_info = 10; RowMajorStrg = TRUE; 852 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 853 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 854 chkxer(); 855 cblas_info = 10; RowMajorStrg = TRUE; 856 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 857 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 858 chkxer(); 859 cblas_info = 10; RowMajorStrg = TRUE; 860 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 861 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 862 chkxer(); 863 cblas_info = 10; RowMajorStrg = TRUE; 864 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 865 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 866 chkxer(); 867 cblas_info = 10; RowMajorStrg = TRUE; 868 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 869 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 870 chkxer(); 871 cblas_info = 10; RowMajorStrg = TRUE; 872 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 873 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 874 chkxer(); 875 cblas_info = 12; RowMajorStrg = TRUE; 876 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 877 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 878 chkxer(); 879 cblas_info = 12; RowMajorStrg = TRUE; 880 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 881 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 882 chkxer(); 883 cblas_info = 12; RowMajorStrg = TRUE; 884 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 885 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 886 chkxer(); 887 cblas_info = 12; RowMajorStrg = TRUE; 888 cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 889 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 890 chkxer(); 891 cblas_info = 12; RowMajorStrg = TRUE; 892 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 893 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 894 chkxer(); 895 cblas_info = 12; RowMajorStrg = TRUE; 896 cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 897 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 898 chkxer(); 899 cblas_info = 12; RowMajorStrg = TRUE; 900 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 901 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 902 chkxer(); 903 cblas_info = 12; RowMajorStrg = TRUE; 904 cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 905 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 906 chkxer(); 907 908 } else if (strncmp( sf,"cblas_ctrsm" ,11)==0) { 909 cblas_rout = "cblas_ctrsm" ; 910 911 cblas_info = 1; 912 cblas_ctrsm( INVALID, CblasLeft, CblasUpper, CblasNoTrans, 913 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 914 chkxer(); 915 cblas_info = 2; RowMajorStrg = FALSE; 916 cblas_ctrsm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, 917 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 918 chkxer(); 919 cblas_info = 3; RowMajorStrg = FALSE; 920 cblas_ctrsm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, 921 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 922 chkxer(); 923 cblas_info = 4; RowMajorStrg = FALSE; 924 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 925 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 926 chkxer(); 927 cblas_info = 5; RowMajorStrg = FALSE; 928 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 929 INVALID, 0, 0, ALPHA, A, 1, B, 1 ); 930 chkxer(); 931 cblas_info = 6; RowMajorStrg = FALSE; 932 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 933 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 934 chkxer(); 935 cblas_info = 6; RowMajorStrg = FALSE; 936 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 937 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 938 chkxer(); 939 cblas_info = 6; RowMajorStrg = FALSE; 940 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 941 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 942 chkxer(); 943 cblas_info = 6; RowMajorStrg = FALSE; 944 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 945 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 946 chkxer(); 947 cblas_info = 6; RowMajorStrg = FALSE; 948 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 949 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 950 chkxer(); 951 cblas_info = 6; RowMajorStrg = FALSE; 952 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 953 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 954 chkxer(); 955 cblas_info = 6; RowMajorStrg = FALSE; 956 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 957 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 958 chkxer(); 959 cblas_info = 6; RowMajorStrg = FALSE; 960 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 961 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 962 chkxer(); 963 cblas_info = 7; RowMajorStrg = FALSE; 964 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 965 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 966 chkxer(); 967 cblas_info = 7; RowMajorStrg = FALSE; 968 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 969 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 970 chkxer(); 971 cblas_info = 7; RowMajorStrg = FALSE; 972 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 973 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 974 chkxer(); 975 cblas_info = 7; RowMajorStrg = FALSE; 976 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 977 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 978 chkxer(); 979 cblas_info = 7; RowMajorStrg = FALSE; 980 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 981 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 982 chkxer(); 983 cblas_info = 7; RowMajorStrg = FALSE; 984 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 985 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 986 chkxer(); 987 cblas_info = 7; RowMajorStrg = FALSE; 988 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 989 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 990 chkxer(); 991 cblas_info = 7; RowMajorStrg = FALSE; 992 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 993 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 994 chkxer(); 995 cblas_info = 10; RowMajorStrg = FALSE; 996 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 997 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 998 chkxer(); 999 cblas_info = 10; RowMajorStrg = FALSE; 1000 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 1001 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 1002 chkxer(); 1003 cblas_info = 10; RowMajorStrg = FALSE; 1004 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 1005 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 1006 chkxer(); 1007 cblas_info = 10; RowMajorStrg = FALSE; 1008 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 1009 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 1010 chkxer(); 1011 cblas_info = 10; RowMajorStrg = FALSE; 1012 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 1013 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 1014 chkxer(); 1015 cblas_info = 10; RowMajorStrg = FALSE; 1016 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 1017 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 1018 chkxer(); 1019 cblas_info = 10; RowMajorStrg = FALSE; 1020 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 1021 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 1022 chkxer(); 1023 cblas_info = 10; RowMajorStrg = FALSE; 1024 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 1025 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 1026 chkxer(); 1027 cblas_info = 12; RowMajorStrg = FALSE; 1028 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 1029 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 1030 chkxer(); 1031 cblas_info = 12; RowMajorStrg = FALSE; 1032 cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 1033 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 1034 chkxer(); 1035 cblas_info = 12; RowMajorStrg = FALSE; 1036 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 1037 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 1038 chkxer(); 1039 cblas_info = 12; RowMajorStrg = FALSE; 1040 cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 1041 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 1042 chkxer(); 1043 cblas_info = 12; RowMajorStrg = FALSE; 1044 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 1045 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 1046 chkxer(); 1047 cblas_info = 12; RowMajorStrg = FALSE; 1048 cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 1049 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 1050 chkxer(); 1051 cblas_info = 12; RowMajorStrg = FALSE; 1052 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 1053 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 1054 chkxer(); 1055 cblas_info = 12; RowMajorStrg = FALSE; 1056 cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 1057 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 1058 chkxer(); 1059 cblas_info = 6; RowMajorStrg = TRUE; 1060 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 1061 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 1062 chkxer(); 1063 cblas_info = 6; RowMajorStrg = TRUE; 1064 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 1065 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 1066 chkxer(); 1067 cblas_info = 6; RowMajorStrg = TRUE; 1068 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 1069 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 1070 chkxer(); 1071 cblas_info = 6; RowMajorStrg = TRUE; 1072 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 1073 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 1074 chkxer(); 1075 cblas_info = 6; RowMajorStrg = TRUE; 1076 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 1077 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 1078 chkxer(); 1079 cblas_info = 6; RowMajorStrg = TRUE; 1080 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 1081 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 1082 chkxer(); 1083 cblas_info = 6; RowMajorStrg = TRUE; 1084 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 1085 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 1086 chkxer(); 1087 cblas_info = 6; RowMajorStrg = TRUE; 1088 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 1089 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 1090 chkxer(); 1091 cblas_info = 7; RowMajorStrg = TRUE; 1092 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 1093 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 1094 chkxer(); 1095 cblas_info = 7; RowMajorStrg = TRUE; 1096 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 1097 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 1098 chkxer(); 1099 cblas_info = 7; RowMajorStrg = TRUE; 1100 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 1101 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 1102 chkxer(); 1103 cblas_info = 7; RowMajorStrg = TRUE; 1104 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 1105 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 1106 chkxer(); 1107 cblas_info = 7; RowMajorStrg = TRUE; 1108 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 1109 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 1110 chkxer(); 1111 cblas_info = 7; RowMajorStrg = TRUE; 1112 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 1113 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 1114 chkxer(); 1115 cblas_info = 7; RowMajorStrg = TRUE; 1116 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 1117 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 1118 chkxer(); 1119 cblas_info = 7; RowMajorStrg = TRUE; 1120 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 1121 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 1122 chkxer(); 1123 cblas_info = 10; RowMajorStrg = TRUE; 1124 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 1125 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 1126 chkxer(); 1127 cblas_info = 10; RowMajorStrg = TRUE; 1128 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 1129 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 1130 chkxer(); 1131 cblas_info = 10; RowMajorStrg = TRUE; 1132 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 1133 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 1134 chkxer(); 1135 cblas_info = 10; RowMajorStrg = TRUE; 1136 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 1137 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 1138 chkxer(); 1139 cblas_info = 10; RowMajorStrg = TRUE; 1140 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 1141 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 1142 chkxer(); 1143 cblas_info = 10; RowMajorStrg = TRUE; 1144 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 1145 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 1146 chkxer(); 1147 cblas_info = 10; RowMajorStrg = TRUE; 1148 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 1149 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 1150 chkxer(); 1151 cblas_info = 10; RowMajorStrg = TRUE; 1152 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 1153 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 1154 chkxer(); 1155 cblas_info = 12; RowMajorStrg = TRUE; 1156 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 1157 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 1158 chkxer(); 1159 cblas_info = 12; RowMajorStrg = TRUE; 1160 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 1161 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 1162 chkxer(); 1163 cblas_info = 12; RowMajorStrg = TRUE; 1164 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 1165 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 1166 chkxer(); 1167 cblas_info = 12; RowMajorStrg = TRUE; 1168 cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 1169 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 1170 chkxer(); 1171 cblas_info = 12; RowMajorStrg = TRUE; 1172 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 1173 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 1174 chkxer(); 1175 cblas_info = 12; RowMajorStrg = TRUE; 1176 cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 1177 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 1178 chkxer(); 1179 cblas_info = 12; RowMajorStrg = TRUE; 1180 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 1181 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 1182 chkxer(); 1183 cblas_info = 12; RowMajorStrg = TRUE; 1184 cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 1185 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 1186 chkxer(); 1187 1188 } else if (strncmp( sf,"cblas_cherk" ,11)==0) { 1189 cblas_rout = "cblas_cherk" ; 1190 1191 cblas_info = 1; 1192 cblas_cherk(INVALID, CblasUpper, CblasNoTrans, 0, 0, 1193 RALPHA, A, 1, RBETA, C, 1 ); 1194 chkxer(); 1195 cblas_info = 2; RowMajorStrg = FALSE; 1196 cblas_cherk(CblasColMajor, INVALID, CblasNoTrans, 0, 0, 1197 RALPHA, A, 1, RBETA, C, 1 ); 1198 chkxer(); 1199 cblas_info = 3; RowMajorStrg = FALSE; 1200 cblas_cherk(CblasColMajor, CblasUpper, CblasTrans, 0, 0, 1201 RALPHA, A, 1, RBETA, C, 1 ); 1202 chkxer(); 1203 cblas_info = 4; RowMajorStrg = FALSE; 1204 cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 1205 RALPHA, A, 1, RBETA, C, 1 ); 1206 chkxer(); 1207 cblas_info = 4; RowMajorStrg = FALSE; 1208 cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, INVALID, 0, 1209 RALPHA, A, 1, RBETA, C, 1 ); 1210 chkxer(); 1211 cblas_info = 4; RowMajorStrg = FALSE; 1212 cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, 1213 RALPHA, A, 1, RBETA, C, 1 ); 1214 chkxer(); 1215 cblas_info = 4; RowMajorStrg = FALSE; 1216 cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, INVALID, 0, 1217 RALPHA, A, 1, RBETA, C, 1 ); 1218 chkxer(); 1219 cblas_info = 5; RowMajorStrg = FALSE; 1220 cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, 1221 RALPHA, A, 1, RBETA, C, 1 ); 1222 chkxer(); 1223 cblas_info = 5; RowMajorStrg = FALSE; 1224 cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, 0, INVALID, 1225 RALPHA, A, 1, RBETA, C, 1 ); 1226 chkxer(); 1227 cblas_info = 5; RowMajorStrg = FALSE; 1228 cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, 1229 RALPHA, A, 1, RBETA, C, 1 ); 1230 chkxer(); 1231 cblas_info = 5; RowMajorStrg = FALSE; 1232 cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID, 1233 RALPHA, A, 1, RBETA, C, 1 ); 1234 chkxer(); 1235 cblas_info = 8; RowMajorStrg = TRUE; 1236 cblas_cherk(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, 1237 RALPHA, A, 1, RBETA, C, 2 ); 1238 chkxer(); 1239 cblas_info = 8; RowMajorStrg = TRUE; 1240 cblas_cherk(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, 1241 RALPHA, A, 1, RBETA, C, 1 ); 1242 chkxer(); 1243 cblas_info = 8; RowMajorStrg = TRUE; 1244 cblas_cherk(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, 1245 RALPHA, A, 1, RBETA, C, 2 ); 1246 chkxer(); 1247 cblas_info = 8; RowMajorStrg = TRUE; 1248 cblas_cherk(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, 1249 RALPHA, A, 1, RBETA, C, 1 ); 1250 chkxer(); 1251 cblas_info = 8; RowMajorStrg = FALSE; 1252 cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, 1253 RALPHA, A, 1, RBETA, C, 2 ); 1254 chkxer(); 1255 cblas_info = 8; RowMajorStrg = FALSE; 1256 cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2, 1257 RALPHA, A, 1, RBETA, C, 1 ); 1258 chkxer(); 1259 cblas_info = 8; RowMajorStrg = FALSE; 1260 cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, 1261 RALPHA, A, 1, RBETA, C, 2 ); 1262 chkxer(); 1263 cblas_info = 8; RowMajorStrg = FALSE; 1264 cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, 0, 2, 1265 RALPHA, A, 1, RBETA, C, 1 ); 1266 chkxer(); 1267 cblas_info = 11; RowMajorStrg = TRUE; 1268 cblas_cherk(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, 1269 RALPHA, A, 1, RBETA, C, 1 ); 1270 chkxer(); 1271 cblas_info = 11; RowMajorStrg = TRUE; 1272 cblas_cherk(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, 1273 RALPHA, A, 2, RBETA, C, 1 ); 1274 chkxer(); 1275 cblas_info = 11; RowMajorStrg = TRUE; 1276 cblas_cherk(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, 1277 RALPHA, A, 1, RBETA, C, 1 ); 1278 chkxer(); 1279 cblas_info = 11; RowMajorStrg = TRUE; 1280 cblas_cherk(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, 1281 RALPHA, A, 2, RBETA, C, 1 ); 1282 chkxer(); 1283 cblas_info = 11; RowMajorStrg = FALSE; 1284 cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, 1285 RALPHA, A, 2, RBETA, C, 1 ); 1286 chkxer(); 1287 cblas_info = 11; RowMajorStrg = FALSE; 1288 cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, 2, 0, 1289 RALPHA, A, 1, RBETA, C, 1 ); 1290 chkxer(); 1291 cblas_info = 11; RowMajorStrg = FALSE; 1292 cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, 1293 RALPHA, A, 2, RBETA, C, 1 ); 1294 chkxer(); 1295 cblas_info = 11; RowMajorStrg = FALSE; 1296 cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, 2, 0, 1297 RALPHA, A, 1, RBETA, C, 1 ); 1298 chkxer(); 1299 1300 } else if (strncmp( sf,"cblas_csyrk" ,11)==0) { 1301 cblas_rout = "cblas_csyrk" ; 1302 1303 cblas_info = 1; 1304 cblas_csyrk(INVALID, CblasUpper, CblasNoTrans, 0, 0, 1305 ALPHA, A, 1, BETA, C, 1 ); 1306 chkxer(); 1307 cblas_info = 2; RowMajorStrg = FALSE; 1308 cblas_csyrk(CblasColMajor, INVALID, CblasNoTrans, 0, 0, 1309 ALPHA, A, 1, BETA, C, 1 ); 1310 chkxer(); 1311 cblas_info = 3; RowMajorStrg = FALSE; 1312 cblas_csyrk(CblasColMajor, CblasUpper, CblasConjTrans, 0, 0, 1313 ALPHA, A, 1, BETA, C, 1 ); 1314 chkxer(); 1315 cblas_info = 4; RowMajorStrg = FALSE; 1316 cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 1317 ALPHA, A, 1, BETA, C, 1 ); 1318 chkxer(); 1319 cblas_info = 4; RowMajorStrg = FALSE; 1320 cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, 1321 ALPHA, A, 1, BETA, C, 1 ); 1322 chkxer(); 1323 cblas_info = 4; RowMajorStrg = FALSE; 1324 cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, 1325 ALPHA, A, 1, BETA, C, 1 ); 1326 chkxer(); 1327 cblas_info = 4; RowMajorStrg = FALSE; 1328 cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, INVALID, 0, 1329 ALPHA, A, 1, BETA, C, 1 ); 1330 chkxer(); 1331 cblas_info = 5; RowMajorStrg = FALSE; 1332 cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, 1333 ALPHA, A, 1, BETA, C, 1 ); 1334 chkxer(); 1335 cblas_info = 5; RowMajorStrg = FALSE; 1336 cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, 0, INVALID, 1337 ALPHA, A, 1, BETA, C, 1 ); 1338 chkxer(); 1339 cblas_info = 5; RowMajorStrg = FALSE; 1340 cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, 1341 ALPHA, A, 1, BETA, C, 1 ); 1342 chkxer(); 1343 cblas_info = 5; RowMajorStrg = FALSE; 1344 cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, 0, INVALID, 1345 ALPHA, A, 1, BETA, C, 1 ); 1346 chkxer(); 1347 cblas_info = 8; RowMajorStrg = TRUE; 1348 cblas_csyrk(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, 1349 ALPHA, A, 1, BETA, C, 2 ); 1350 chkxer(); 1351 cblas_info = 8; RowMajorStrg = TRUE; 1352 cblas_csyrk(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, 1353 ALPHA, A, 1, BETA, C, 1 ); 1354 chkxer(); 1355 cblas_info = 8; RowMajorStrg = TRUE; 1356 cblas_csyrk(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, 1357 ALPHA, A, 1, BETA, C, 2 ); 1358 chkxer(); 1359 cblas_info = 8; RowMajorStrg = TRUE; 1360 cblas_csyrk(CblasRowMajor, CblasLower, CblasTrans, 2, 0, 1361 ALPHA, A, 1, BETA, C, 1 ); 1362 chkxer(); 1363 cblas_info = 8; RowMajorStrg = FALSE; 1364 cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, 1365 ALPHA, A, 1, BETA, C, 2 ); 1366 chkxer(); 1367 cblas_info = 8; RowMajorStrg = FALSE; 1368 cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, 0, 2, 1369 ALPHA, A, 1, BETA, C, 1 ); 1370 chkxer(); 1371 cblas_info = 8; RowMajorStrg = FALSE; 1372 cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, 1373 ALPHA, A, 1, BETA, C, 2 ); 1374 chkxer(); 1375 cblas_info = 8; RowMajorStrg = FALSE; 1376 cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, 0, 2, 1377 ALPHA, A, 1, BETA, C, 1 ); 1378 chkxer(); 1379 cblas_info = 11; RowMajorStrg = TRUE; 1380 cblas_csyrk(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, 1381 ALPHA, A, 1, BETA, C, 1 ); 1382 chkxer(); 1383 cblas_info = 11; RowMajorStrg = TRUE; 1384 cblas_csyrk(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, 1385 ALPHA, A, 2, BETA, C, 1 ); 1386 chkxer(); 1387 cblas_info = 11; RowMajorStrg = TRUE; 1388 cblas_csyrk(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, 1389 ALPHA, A, 1, BETA, C, 1 ); 1390 chkxer(); 1391 cblas_info = 11; RowMajorStrg = TRUE; 1392 cblas_csyrk(CblasRowMajor, CblasLower, CblasTrans, 2, 0, 1393 ALPHA, A, 2, BETA, C, 1 ); 1394 chkxer(); 1395 cblas_info = 11; RowMajorStrg = FALSE; 1396 cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, 1397 ALPHA, A, 2, BETA, C, 1 ); 1398 chkxer(); 1399 cblas_info = 11; RowMajorStrg = FALSE; 1400 cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, 2, 0, 1401 ALPHA, A, 1, BETA, C, 1 ); 1402 chkxer(); 1403 cblas_info = 11; RowMajorStrg = FALSE; 1404 cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, 1405 ALPHA, A, 2, BETA, C, 1 ); 1406 chkxer(); 1407 cblas_info = 11; RowMajorStrg = FALSE; 1408 cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, 2, 0, 1409 ALPHA, A, 1, BETA, C, 1 ); 1410 chkxer(); 1411 1412 } else if (strncmp( sf,"cblas_cher2k" ,12)==0) { 1413 cblas_rout = "cblas_cher2k" ; 1414 1415 cblas_info = 1; 1416 cblas_cher2k(INVALID, CblasUpper, CblasNoTrans, 0, 0, 1417 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1418 chkxer(); 1419 cblas_info = 2; RowMajorStrg = FALSE; 1420 cblas_cher2k(CblasColMajor, INVALID, CblasNoTrans, 0, 0, 1421 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1422 chkxer(); 1423 cblas_info = 3; RowMajorStrg = FALSE; 1424 cblas_cher2k(CblasColMajor, CblasUpper, CblasTrans, 0, 0, 1425 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1426 chkxer(); 1427 cblas_info = 4; RowMajorStrg = FALSE; 1428 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 1429 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1430 chkxer(); 1431 cblas_info = 4; RowMajorStrg = FALSE; 1432 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, INVALID, 0, 1433 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1434 chkxer(); 1435 cblas_info = 4; RowMajorStrg = FALSE; 1436 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, 1437 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1438 chkxer(); 1439 cblas_info = 4; RowMajorStrg = FALSE; 1440 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, INVALID, 0, 1441 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1442 chkxer(); 1443 cblas_info = 5; RowMajorStrg = FALSE; 1444 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, 1445 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1446 chkxer(); 1447 cblas_info = 5; RowMajorStrg = FALSE; 1448 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, INVALID, 1449 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1450 chkxer(); 1451 cblas_info = 5; RowMajorStrg = FALSE; 1452 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, 1453 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1454 chkxer(); 1455 cblas_info = 5; RowMajorStrg = FALSE; 1456 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID, 1457 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1458 chkxer(); 1459 cblas_info = 8; RowMajorStrg = TRUE; 1460 cblas_cher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, 1461 ALPHA, A, 1, B, 2, RBETA, C, 2 ); 1462 chkxer(); 1463 cblas_info = 8; RowMajorStrg = TRUE; 1464 cblas_cher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, 1465 ALPHA, A, 1, B, 2, RBETA, C, 1 ); 1466 chkxer(); 1467 cblas_info = 8; RowMajorStrg = TRUE; 1468 cblas_cher2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, 1469 ALPHA, A, 1, B, 2, RBETA, C, 2 ); 1470 chkxer(); 1471 cblas_info = 8; RowMajorStrg = TRUE; 1472 cblas_cher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, 1473 ALPHA, A, 1, B, 2, RBETA, C, 1 ); 1474 chkxer(); 1475 cblas_info = 8; RowMajorStrg = FALSE; 1476 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, 1477 ALPHA, A, 1, B, 1, RBETA, C, 2 ); 1478 chkxer(); 1479 cblas_info = 8; RowMajorStrg = FALSE; 1480 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2, 1481 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1482 chkxer(); 1483 cblas_info = 8; RowMajorStrg = FALSE; 1484 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, 1485 ALPHA, A, 1, B, 1, RBETA, C, 2 ); 1486 chkxer(); 1487 cblas_info = 8; RowMajorStrg = FALSE; 1488 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, 2, 1489 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1490 chkxer(); 1491 cblas_info = 10; RowMajorStrg = TRUE; 1492 cblas_cher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, 1493 ALPHA, A, 2, B, 1, RBETA, C, 2 ); 1494 chkxer(); 1495 cblas_info = 10; RowMajorStrg = TRUE; 1496 cblas_cher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, 1497 ALPHA, A, 2, B, 1, RBETA, C, 1 ); 1498 chkxer(); 1499 cblas_info = 10; RowMajorStrg = TRUE; 1500 cblas_cher2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, 1501 ALPHA, A, 2, B, 1, RBETA, C, 2 ); 1502 chkxer(); 1503 cblas_info = 10; RowMajorStrg = TRUE; 1504 cblas_cher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, 1505 ALPHA, A, 2, B, 1, RBETA, C, 1 ); 1506 chkxer(); 1507 cblas_info = 10; RowMajorStrg = FALSE; 1508 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, 1509 ALPHA, A, 2, B, 1, RBETA, C, 2 ); 1510 chkxer(); 1511 cblas_info = 10; RowMajorStrg = FALSE; 1512 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2, 1513 ALPHA, A, 2, B, 1, RBETA, C, 1 ); 1514 chkxer(); 1515 cblas_info = 10; RowMajorStrg = FALSE; 1516 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, 1517 ALPHA, A, 2, B, 1, RBETA, C, 2 ); 1518 chkxer(); 1519 cblas_info = 10; RowMajorStrg = FALSE; 1520 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, 2, 1521 ALPHA, A, 2, B, 1, RBETA, C, 1 ); 1522 chkxer(); 1523 cblas_info = 13; RowMajorStrg = TRUE; 1524 cblas_cher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, 1525 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1526 chkxer(); 1527 cblas_info = 13; RowMajorStrg = TRUE; 1528 cblas_cher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, 1529 ALPHA, A, 2, B, 2, RBETA, C, 1 ); 1530 chkxer(); 1531 cblas_info = 13; RowMajorStrg = TRUE; 1532 cblas_cher2k(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, 1533 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1534 chkxer(); 1535 cblas_info = 13; RowMajorStrg = TRUE; 1536 cblas_cher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, 1537 ALPHA, A, 2, B, 2, RBETA, C, 1 ); 1538 chkxer(); 1539 cblas_info = 13; RowMajorStrg = FALSE; 1540 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, 1541 ALPHA, A, 2, B, 2, RBETA, C, 1 ); 1542 chkxer(); 1543 cblas_info = 13; RowMajorStrg = FALSE; 1544 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 2, 0, 1545 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1546 chkxer(); 1547 cblas_info = 13; RowMajorStrg = FALSE; 1548 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, 1549 ALPHA, A, 2, B, 2, RBETA, C, 1 ); 1550 chkxer(); 1551 cblas_info = 13; RowMajorStrg = FALSE; 1552 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 2, 0, 1553 ALPHA, A, 1, B, 1, RBETA, C, 1 ); 1554 chkxer(); 1555 1556 } else if (strncmp( sf,"cblas_csyr2k" ,12)==0) { 1557 cblas_rout = "cblas_csyr2k" ; 1558 1559 cblas_info = 1; 1560 cblas_csyr2k(INVALID, CblasUpper, CblasNoTrans, 0, 0, 1561 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1562 chkxer(); 1563 cblas_info = 2; RowMajorStrg = FALSE; 1564 cblas_csyr2k(CblasColMajor, INVALID, CblasNoTrans, 0, 0, 1565 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1566 chkxer(); 1567 cblas_info = 3; RowMajorStrg = FALSE; 1568 cblas_csyr2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 0, 1569 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1570 chkxer(); 1571 cblas_info = 4; RowMajorStrg = FALSE; 1572 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 1573 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1574 chkxer(); 1575 cblas_info = 4; RowMajorStrg = FALSE; 1576 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, 1577 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1578 chkxer(); 1579 cblas_info = 4; RowMajorStrg = FALSE; 1580 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, 1581 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1582 chkxer(); 1583 cblas_info = 4; RowMajorStrg = FALSE; 1584 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, INVALID, 0, 1585 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1586 chkxer(); 1587 cblas_info = 5; RowMajorStrg = FALSE; 1588 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, 1589 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1590 chkxer(); 1591 cblas_info = 5; RowMajorStrg = FALSE; 1592 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, INVALID, 1593 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1594 chkxer(); 1595 cblas_info = 5; RowMajorStrg = FALSE; 1596 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, 1597 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1598 chkxer(); 1599 cblas_info = 5; RowMajorStrg = FALSE; 1600 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 0, INVALID, 1601 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1602 chkxer(); 1603 cblas_info = 8; RowMajorStrg = TRUE; 1604 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, 1605 ALPHA, A, 1, B, 2, BETA, C, 2 ); 1606 chkxer(); 1607 cblas_info = 8; RowMajorStrg = TRUE; 1608 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, 1609 ALPHA, A, 1, B, 2, BETA, C, 1 ); 1610 chkxer(); 1611 cblas_info = 8; RowMajorStrg = TRUE; 1612 cblas_csyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, 1613 ALPHA, A, 1, B, 2, BETA, C, 2 ); 1614 chkxer(); 1615 cblas_info = 8; RowMajorStrg = TRUE; 1616 cblas_csyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0, 1617 ALPHA, A, 1, B, 2, BETA, C, 1 ); 1618 chkxer(); 1619 cblas_info = 8; RowMajorStrg = FALSE; 1620 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, 1621 ALPHA, A, 1, B, 1, BETA, C, 2 ); 1622 chkxer(); 1623 cblas_info = 8; RowMajorStrg = FALSE; 1624 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, 2, 1625 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1626 chkxer(); 1627 cblas_info = 8; RowMajorStrg = FALSE; 1628 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, 1629 ALPHA, A, 1, B, 1, BETA, C, 2 ); 1630 chkxer(); 1631 cblas_info = 8; RowMajorStrg = FALSE; 1632 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 0, 2, 1633 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1634 chkxer(); 1635 cblas_info = 10; RowMajorStrg = TRUE; 1636 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, 1637 ALPHA, A, 2, B, 1, BETA, C, 2 ); 1638 chkxer(); 1639 cblas_info = 10; RowMajorStrg = TRUE; 1640 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, 1641 ALPHA, A, 2, B, 1, BETA, C, 1 ); 1642 chkxer(); 1643 cblas_info = 10; RowMajorStrg = TRUE; 1644 cblas_csyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, 1645 ALPHA, A, 2, B, 1, BETA, C, 2 ); 1646 chkxer(); 1647 cblas_info = 10; RowMajorStrg = TRUE; 1648 cblas_csyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0, 1649 ALPHA, A, 2, B, 1, BETA, C, 1 ); 1650 chkxer(); 1651 cblas_info = 10; RowMajorStrg = FALSE; 1652 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, 1653 ALPHA, A, 2, B, 1, BETA, C, 2 ); 1654 chkxer(); 1655 cblas_info = 10; RowMajorStrg = FALSE; 1656 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, 2, 1657 ALPHA, A, 2, B, 1, BETA, C, 1 ); 1658 chkxer(); 1659 cblas_info = 10; RowMajorStrg = FALSE; 1660 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, 1661 ALPHA, A, 2, B, 1, BETA, C, 2 ); 1662 chkxer(); 1663 cblas_info = 10; RowMajorStrg = FALSE; 1664 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 0, 2, 1665 ALPHA, A, 2, B, 1, BETA, C, 1 ); 1666 chkxer(); 1667 cblas_info = 13; RowMajorStrg = TRUE; 1668 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, 1669 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1670 chkxer(); 1671 cblas_info = 13; RowMajorStrg = TRUE; 1672 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, 1673 ALPHA, A, 2, B, 2, BETA, C, 1 ); 1674 chkxer(); 1675 cblas_info = 13; RowMajorStrg = TRUE; 1676 cblas_csyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, 1677 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1678 chkxer(); 1679 cblas_info = 13; RowMajorStrg = TRUE; 1680 cblas_csyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0, 1681 ALPHA, A, 2, B, 2, BETA, C, 1 ); 1682 chkxer(); 1683 cblas_info = 13; RowMajorStrg = FALSE; 1684 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, 1685 ALPHA, A, 2, B, 2, BETA, C, 1 ); 1686 chkxer(); 1687 cblas_info = 13; RowMajorStrg = FALSE; 1688 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 2, 0, 1689 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1690 chkxer(); 1691 cblas_info = 13; RowMajorStrg = FALSE; 1692 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, 1693 ALPHA, A, 2, B, 2, BETA, C, 1 ); 1694 chkxer(); 1695 cblas_info = 13; RowMajorStrg = FALSE; 1696 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, 1697 ALPHA, A, 1, B, 1, BETA, C, 1 ); 1698 chkxer(); 1699 1700 } 1701 1702 if (cblas_ok == 1 ) 1703 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); 1704 else 1705 printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout); 1706 } 1707
