1 /* 2 3 Copyright (C) 2014, The University of Texas at Austin 4 5 This file is part of libflame and is available under the 3-Clause 6 BSD license, which can be found in the LICENSE file at the top-level 7 directory, or at http://opensource.org/licenses/BSD-3-Clause 8 9 */ 10 11 #ifndef FLASH_QUEUE_MACRO_DEFS_H 12 #define FLASH_QUEUE_MACRO_DEFS_H 13 14 15 #ifdef FLA_ENABLE_SUPERMATRIX 16 17 18 #define FLASH_OBJ_PTR_ID( A ) ( A ).base->id 19 20 // FLASH_Verbose 21 #define FLASH_QUEUE_VERBOSE_NONE 0 22 #define FLASH_QUEUE_VERBOSE_READABLE 1 23 #define FLASH_QUEUE_VERBOSE_GRAPHVIZ 2 24 25 // FLASH_Data_aff 26 #define FLASH_QUEUE_AFFINITY_NONE 0 27 #define FLASH_QUEUE_AFFINITY_2D_BLOCK_CYCLIC 1 28 #define FLASH_QUEUE_AFFINITY_1D_ROW_BLOCK_CYCLIC 2 29 #define FLASH_QUEUE_AFFINITY_1D_COLUMN_BLOCK_CYCLIC 3 30 #define FLASH_QUEUE_AFFINITY_ROUND_ROBIN 4 31 32 /* 33 Reminder to create a macro to enqueue when SuperMatrix is configured, and 34 also to create a macro for when it is not below to return an error code. 35 */ 36 37 // LAPACK-level 38 39 #define ENQUEUE_FLASH_LU_piv_macro( A, p, cntl ) \ 40 FLASH_Queue_push( (void *) FLA_LU_piv_macro_task, \ 41 (void *) cntl, \ 42 "LU ", \ 43 FALSE, \ 44 0, 0, 0, 2, \ 45 A, p ) 46 47 #define ENQUEUE_FLASH_Apply_pivots_macro( side, trans, p, A, cntl ) \ 48 FLASH_Queue_push( (void *) FLA_Apply_pivots_macro_task, \ 49 (void *) cntl, \ 50 "Pivot", \ 51 FALSE, \ 52 2, 0, 1, 1, \ 53 side, trans, \ 54 p, A ) 55 56 #define ENQUEUE_FLASH_LU_piv( A, p, cntl ) \ 57 FLASH_Queue_push( (void *) FLA_LU_piv_task, \ 58 (void *) cntl, \ 59 "LU ", \ 60 FALSE, \ 61 0, 1, 0, 1, \ 62 p, A ) 63 64 #define ENQUEUE_FLASH_LU_piv_copy( A, p, U, cntl ) \ 65 FLASH_Queue_push( (void *) FLA_LU_piv_copy_task, \ 66 (void *) cntl, \ 67 "LU ", \ 68 FALSE, \ 69 0, 1, 0, 2, \ 70 p, A, U ) 71 72 #define ENQUEUE_FLASH_Trsm_piv( A, C, p, cntl ) \ 73 FLASH_Queue_push( (void *) FLA_Trsm_piv_task, \ 74 (void *) cntl, \ 75 "Trsm ", \ 76 FALSE, \ 77 0, 1, 1, 1, \ 78 p, A, C ) 79 80 #define ENQUEUE_FLASH_SA_LU( U, D, p, L, nb_alg, cntl ) \ 81 FLASH_Queue_push( (void *) FLA_SA_LU_task, \ 82 (void *) cntl, \ 83 "SA_LU", \ 84 FALSE, \ 85 1, 2, 0, 2, \ 86 nb_alg, \ 87 p, L, D, U ) 88 89 #define ENQUEUE_FLASH_SA_FS( L, D, p, C, E, nb_alg, cntl ) \ 90 FLASH_Queue_push( (void *) FLA_SA_FS_task, \ 91 (void *) cntl, \ 92 "SA_FS", \ 93 FALSE, \ 94 1, 2, 1, 2, \ 95 nb_alg, \ 96 L, p, D, E, C ) 97 98 #define ENQUEUE_FLASH_LU_nopiv( A, cntl ) \ 99 FLASH_Queue_push( (void *) FLA_LU_nopiv_task, \ 100 (void *) cntl, \ 101 "LU ", \ 102 FALSE, \ 103 0, 0, 0, 1, \ 104 A ) 105 106 #define ENQUEUE_FLASH_Trinv( uplo, diag, A, cntl ) \ 107 FLASH_Queue_push( (void *) FLA_Trinv_task, \ 108 (void *) cntl, \ 109 "Trinv", \ 110 FALSE, \ 111 2, 0, 0, 1, \ 112 uplo, diag, \ 113 A ) 114 115 #define ENQUEUE_FLASH_Ttmm( uplo, A, cntl ) \ 116 FLASH_Queue_push( (void *) FLA_Ttmm_task, \ 117 (void *) cntl, \ 118 "Ttmm ", \ 119 FALSE, \ 120 1, 0, 0, 1, \ 121 uplo, \ 122 A ) 123 124 #define ENQUEUE_FLASH_Chol( uplo, A, cntl ) \ 125 FLASH_Queue_push( (void *) FLA_Chol_task, \ 126 (void *) cntl, \ 127 "Chol ", \ 128 FALSE, \ 129 1, 0, 0, 1, \ 130 uplo, \ 131 A ) 132 133 #define ENQUEUE_FLASH_Sylv( transA, transB, isgn, A, B, C, scale, cntl ) \ 134 FLASH_Queue_push( (void *) FLA_Sylv_task, \ 135 (void *) cntl, \ 136 "Sylv ", \ 137 FALSE, \ 138 2, 2, 2, 1, \ 139 transA, transB, \ 140 isgn, scale, \ 141 A, B, C ) 142 143 #define ENQUEUE_FLASH_Lyap( trans, isgn, A, C, scale, cntl ) \ 144 FLASH_Queue_push( (void *) FLA_Lyap_task, \ 145 (void *) cntl, \ 146 "Lyap ", \ 147 FALSE, \ 148 1, 2, 1, 1, \ 149 trans, \ 150 isgn, scale, \ 151 A, C ) 152 153 #define ENQUEUE_FLASH_QR_UT_macro( A, T, cntl ) \ 154 FLASH_Queue_push( (void *) FLA_QR_UT_macro_task, \ 155 (void *) cntl, \ 156 "QR ", \ 157 FALSE, \ 158 0, 0, 0, 2, \ 159 A, T ) 160 161 #define ENQUEUE_FLASH_QR_UT( A, T, cntl ) \ 162 FLASH_Queue_push( (void *) FLA_QR_UT_task, \ 163 (void *) cntl, \ 164 "QR ", \ 165 FALSE, \ 166 0, 1, 0, 1, \ 167 T, A ) 168 169 #define ENQUEUE_FLASH_QR_UT_copy( A, T, U, cntl ) \ 170 FLASH_Queue_push( (void *) FLA_QR_UT_copy_task, \ 171 (void *) cntl, \ 172 "QR ", \ 173 FALSE, \ 174 0, 1, 0, 2, \ 175 T, A, U ) 176 177 #define ENQUEUE_FLASH_QR2_UT( B, D, T, cntl ) \ 178 FLASH_Queue_push( (void *) FLA_QR2_UT_task, \ 179 (void *) cntl, \ 180 "QR2 ", \ 181 FALSE, \ 182 0, 1, 0, 2, \ 183 T, D, B ) 184 185 #define ENQUEUE_FLASH_LQ_UT_macro( A, T, cntl ) \ 186 FLASH_Queue_push( (void *) FLA_LQ_UT_macro_task, \ 187 (void *) cntl, \ 188 "LQ ", \ 189 FALSE, \ 190 0, 0, 0, 2, \ 191 A, T ) 192 193 #define ENQUEUE_FLASH_CAQR2_UT( B, D, T, cntl ) \ 194 FLASH_Queue_push( (void *) FLA_CAQR2_UT_task, \ 195 (void *) cntl, \ 196 "CAQR2", \ 197 FALSE, \ 198 0, 1, 0, 2, \ 199 T, D, B ) 200 201 #define ENQUEUE_FLASH_Apply_Q_UT( side, trans, direct, storev, A, T, W, B, cntl ) \ 202 FLASH_Queue_push( (void *) FLA_Apply_Q_UT_task, \ 203 (void *) cntl, \ 204 "ApQ ", \ 205 FALSE, \ 206 4, 1, 1, 2, \ 207 side, trans, direct, storev, \ 208 T, A, B, W ) 209 210 #define ENQUEUE_FLASH_Apply_Q2_UT( side, trans, direct, storev, D, T, W, C, E, cntl ) \ 211 FLASH_Queue_push( (void *) FLA_Apply_Q2_UT_task, \ 212 (void *) cntl, \ 213 "ApQ2 ", \ 214 FALSE, \ 215 4, 1, 1, 3, \ 216 side, trans, direct, storev, \ 217 T, D, E, C, W ) 218 219 #define ENQUEUE_FLASH_Apply_CAQ2_UT( side, trans, direct, storev, D, T, W, C, E, cntl ) \ 220 FLASH_Queue_push( (void *) FLA_Apply_CAQ2_UT_task, \ 221 (void *) cntl, \ 222 "ApCQ2", \ 223 FALSE, \ 224 4, 1, 1, 3, \ 225 side, trans, direct, storev, \ 226 T, D, E, C, W ) 227 228 #define ENQUEUE_FLASH_UDdate_UT( R, C, D, T, cntl ) \ 229 FLASH_Queue_push( (void *) FLA_UDdate_UT_task, \ 230 (void *) cntl, \ 231 "UD ", \ 232 FALSE, \ 233 0, 0, 0, 4, \ 234 R, C, D, T ) 235 236 #define ENQUEUE_FLASH_Apply_QUD_UT( side, trans, direct, storev, T, W, R, U, C, V, D, cntl ) \ 237 FLASH_Queue_push( (void *) FLA_Apply_QUD_UT_task, \ 238 (void *) cntl, \ 239 "ApQUD", \ 240 FALSE, \ 241 4, 0, 3, 4, \ 242 side, trans, direct, storev, \ 243 T, U, V, W, R, C, D ) 244 245 #define ENQUEUE_FLASH_Eig_gest( inv, uplo, A, Y, B, cntl ) \ 246 FLASH_Queue_push( (void *) FLA_Eig_gest_task, \ 247 (void *) cntl, \ 248 "Eig ", \ 249 FALSE, \ 250 2, 0, 1, 2, \ 251 inv, uplo, \ 252 B, Y, A ) 253 254 // Level-3 BLAS 255 256 #define ENQUEUE_FLASH_Gemm( transA, transB, alpha, A, B, beta, C, cntl ) \ 257 FLASH_Queue_push( (void *) FLA_Gemm_task, \ 258 (void *) cntl, \ 259 "Gemm ", \ 260 TRUE, \ 261 2, 2, 2, 1, \ 262 transA, transB, \ 263 alpha, beta, \ 264 A, B, C ) 265 266 #define ENQUEUE_FLASH_Hemm( side, uplo, alpha, A, B, beta, C, cntl ) \ 267 FLASH_Queue_push( (void *) FLA_Hemm_task, \ 268 (void *) cntl, \ 269 "Hemm ", \ 270 TRUE, \ 271 2, 2, 2, 1, \ 272 side, uplo, \ 273 alpha, beta, \ 274 A, B, C ) 275 276 #define ENQUEUE_FLASH_Herk( uplo, transA, alpha, A, beta, C, cntl ) \ 277 FLASH_Queue_push( (void *) FLA_Herk_task, \ 278 (void *) cntl, \ 279 "Herk ", \ 280 TRUE, \ 281 2, 2, 1, 1, \ 282 uplo, transA, \ 283 alpha, beta, \ 284 A, C ) 285 286 #define ENQUEUE_FLASH_Her2k( uplo, transA, alpha, A, B, beta, C, cntl ) \ 287 FLASH_Queue_push( (void *) FLA_Her2k_task, \ 288 (void *) cntl, \ 289 "Her2k", \ 290 TRUE, \ 291 2, 2, 2, 1, \ 292 uplo, transA, \ 293 alpha, beta, \ 294 A, B, C ) 295 296 #define ENQUEUE_FLASH_Symm( side, uplo, alpha, A, B, beta, C, cntl ) \ 297 FLASH_Queue_push( (void *) FLA_Symm_task, \ 298 (void *) cntl, \ 299 "Symm ", \ 300 TRUE, \ 301 2, 2, 2, 1, \ 302 side, uplo, \ 303 alpha, beta, \ 304 A, B, C ) 305 306 #define ENQUEUE_FLASH_Syrk( uplo, transA, alpha, A, beta, C, cntl ) \ 307 FLASH_Queue_push( (void *) FLA_Syrk_task, \ 308 (void *) cntl, \ 309 "Syrk ", \ 310 TRUE, \ 311 2, 2, 1, 1, \ 312 uplo, transA, \ 313 alpha, beta, \ 314 A, C ) 315 316 #define ENQUEUE_FLASH_Syr2k( uplo, transA, alpha, A, B, beta, C, cntl ) \ 317 FLASH_Queue_push( (void *) FLA_Syr2k_task, \ 318 (void *) cntl, \ 319 "Syr2k", \ 320 TRUE, \ 321 2, 2, 2, 1, \ 322 uplo, transA, \ 323 alpha, beta, \ 324 A, B, C ) 325 326 #define ENQUEUE_FLASH_Trmm( side, uplo, trans, diag, alpha, A, C, cntl ) \ 327 FLASH_Queue_push( (void *) FLA_Trmm_task, \ 328 (void *) cntl, \ 329 "Trmm ", \ 330 TRUE, \ 331 4, 1, 1, 1, \ 332 side, uplo, trans, diag, \ 333 alpha, \ 334 A, C ) 335 336 #define ENQUEUE_FLASH_Trsm( side, uplo, trans, diag, alpha, A, C, cntl ) \ 337 FLASH_Queue_push( (void *) FLA_Trsm_task, \ 338 (void *) cntl, \ 339 "Trsm ", \ 340 TRUE, \ 341 4, 1, 1, 1, \ 342 side, uplo, trans, diag, \ 343 alpha, \ 344 A, C ) 345 346 // Level-2 BLAS 347 348 #define ENQUEUE_FLASH_Gemv( trans, alpha, A, x, beta, y, cntl ) \ 349 FLASH_Queue_push( (void *) FLA_Gemv_task, \ 350 (void *) cntl, \ 351 "Gemv ", \ 352 TRUE, \ 353 1, 2, 2, 1, \ 354 trans, \ 355 alpha, beta, \ 356 A, x, y ) 357 358 #define ENQUEUE_FLASH_Trsv( uplo, trans, diag, A, x, cntl ) \ 359 FLASH_Queue_push( (void *) FLA_Trsv_task, \ 360 (void *) cntl, \ 361 "Trsv ", \ 362 TRUE, \ 363 3, 0, 1, 1, \ 364 uplo, trans, diag, \ 365 A, x ) 366 367 // Level-1 BLAS 368 369 #define ENQUEUE_FLASH_Axpy( alpha, A, B, cntl ) \ 370 FLASH_Queue_push( (void *) FLA_Axpy_task, \ 371 (void *) cntl, \ 372 "Axpy ", \ 373 TRUE, \ 374 0, 1, 1, 1, \ 375 alpha, \ 376 A, B ) 377 378 #define ENQUEUE_FLASH_Axpyt( trans, alpha, A, B, cntl ) \ 379 FLASH_Queue_push( (void *) FLA_Axpyt_task, \ 380 (void *) cntl, \ 381 "Axpyt", \ 382 FALSE, \ 383 1, 1, 1, 1, \ 384 trans, \ 385 alpha, \ 386 A, B ) 387 388 #define ENQUEUE_FLASH_Copy( A, B, cntl ) \ 389 FLASH_Queue_push( (void *) FLA_Copy_task, \ 390 (void *) cntl, \ 391 "Copy ", \ 392 TRUE, \ 393 0, 0, 1, 1, \ 394 A, B ) 395 396 #define ENQUEUE_FLASH_Copyt( trans, A, B, cntl ) \ 397 FLASH_Queue_push( (void *) FLA_Copyt_task, \ 398 (void *) cntl, \ 399 "Copyt", \ 400 FALSE, \ 401 1, 0, 1, 1, \ 402 trans, \ 403 A, B ) 404 405 #define ENQUEUE_FLASH_Copyr( uplo, A, B, cntl ) \ 406 FLASH_Queue_push( (void *) FLA_Copyr_task, \ 407 (void *) cntl, \ 408 "Copyt", \ 409 FALSE, \ 410 1, 0, 1, 1, \ 411 uplo, \ 412 A, B ) 413 414 #define ENQUEUE_FLASH_Scal( alpha, A, cntl ) \ 415 FLASH_Queue_push( (void *) FLA_Scal_task, \ 416 (void *) cntl, \ 417 "Scal ", \ 418 TRUE, \ 419 0, 1, 0, 1, \ 420 alpha, \ 421 A ) 422 423 #define ENQUEUE_FLASH_Scalr( uplo, alpha, A, cntl ) \ 424 FLASH_Queue_push( (void *) FLA_Scalr_task, \ 425 (void *) cntl, \ 426 "Scalr", \ 427 TRUE, \ 428 1, 1, 0, 1, \ 429 uplo, \ 430 alpha, \ 431 A ) 432 433 // Base 434 435 #define ENQUEUE_FLASH_Obj_create_buffer( rs, cs, A, cntl ) \ 436 FLASH_Queue_push( (void *) FLA_Obj_create_buffer_task, \ 437 (void *) cntl, \ 438 "Buff ", \ 439 FALSE, \ 440 2, 0, 0, 1, \ 441 rs, cs, \ 442 A ) 443 444 #define ENQUEUE_FLASH_Obj_free_buffer( A, cntl ) \ 445 FLASH_Queue_push( (void *) FLA_Obj_free_buffer_task, \ 446 (void *) cntl, \ 447 "Free ", \ 448 FALSE, \ 449 0, 0, 0, 1, \ 450 A ) 451 452 #else 453 454 // LAPACK-level 455 456 #define ENQUEUE_FLASH_LU_piv_macro( A, p, cntl ) \ 457 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 458 459 #define ENQUEUE_FLASH_Apply_pivots_macro( side, trans, p, A, cntl ) \ 460 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 461 462 #define ENQUEUE_FLASH_LU_piv( A, p, cntl ) \ 463 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 464 465 #define ENQUEUE_FLASH_LU_piv_copy( A, p, U, cntl ) \ 466 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 467 468 #define ENQUEUE_FLASH_Trsm_piv( A, C, p, cntl ) \ 469 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 470 471 #define ENQUEUE_FLASH_SA_LU( U, D, p, L, nb_alg, cntl ) \ 472 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 473 474 #define ENQUEUE_FLASH_SA_FS( L, D, p, C, E, nb_alg, cntl ) \ 475 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 476 477 #define ENQUEUE_FLASH_LU_nopiv( A, cntl ) \ 478 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 479 480 #define ENQUEUE_FLASH_Trinv( uplo, diag, A, cntl ) \ 481 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 482 483 #define ENQUEUE_FLASH_Ttmm( uplo, A, cntl ) \ 484 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 485 486 #define ENQUEUE_FLASH_Chol( uplo, A, cntl ) \ 487 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 488 489 #define ENQUEUE_FLASH_Sylv( transA, transB, isgn, A, B, C, scale, cntl ) \ 490 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 491 492 #define ENQUEUE_FLASH_Lyap( trans, isgn, A, C, scale, cntl ) \ 493 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 494 495 #define ENQUEUE_FLASH_QR_UT_macro( A, T, cntl ) \ 496 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 497 498 #define ENQUEUE_FLASH_QR_UT( A, T, cntl ) \ 499 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 500 501 #define ENQUEUE_FLASH_QR_UT_copy( A, T, U, cntl ) \ 502 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 503 504 #define ENQUEUE_FLASH_QR2_UT( B, D, T, cntl ) \ 505 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 506 507 #define ENQUEUE_FLASH_LQ_UT_macro( A, T, cntl ) \ 508 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 509 510 #define ENQUEUE_FLASH_CAQR2_UT( B, D, T, cntl ) \ 511 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 512 513 #define ENQUEUE_FLASH_UDdate_UT( R, C, D, T, cntl ) \ 514 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 515 516 #define ENQUEUE_FLASH_Apply_Q_UT( side, trans, direct, storev, A, T, W, B, cntl ) \ 517 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 518 519 #define ENQUEUE_FLASH_Apply_Q2_UT( side, trans, direct, storev, D, T, W, C, E, cntl ) \ 520 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 521 522 #define ENQUEUE_FLASH_Apply_CAQ2_UT( side, trans, direct, storev, D, T, W, C, E, cntl ) \ 523 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 524 525 #define ENQUEUE_FLASH_Apply_QUD_UT( side, trans, direct, storev, T, W, R, U, C, V, D, cntl ) \ 526 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 527 528 #define ENQUEUE_FLASH_Eig_gest( inv, uplo, A, Y, B, cntl ) \ 529 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 530 531 // Level-3 BLAS 532 533 #define ENQUEUE_FLASH_Gemm( transA, transB, alpha, A, B, beta, C, cntl ) \ 534 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 535 536 #define ENQUEUE_FLASH_Hemm( side, uplo, alpha, A, B, beta, C, cntl ) \ 537 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 538 539 #define ENQUEUE_FLASH_Herk( uplo, transA, alpha, A, beta, C, cntl ) \ 540 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 541 542 #define ENQUEUE_FLASH_Her2k( uplo, transA, alpha, A, B, beta, C, cntl ) \ 543 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 544 545 #define ENQUEUE_FLASH_Symm( side, uplo, alpha, A, B, beta, C, cntl ) \ 546 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 547 548 #define ENQUEUE_FLASH_Syrk( uplo, transA, alpha, A, beta, C, cntl ) \ 549 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 550 551 #define ENQUEUE_FLASH_Syr2k( uplo, transA, alpha, A, B, beta, C, cntl ) \ 552 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 553 554 #define ENQUEUE_FLASH_Trmm( side, uplo, trans, diag, alpha, A, C, cntl ) \ 555 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 556 557 #define ENQUEUE_FLASH_Trsm( side, uplo, trans, diag, alpha, A, C, cntl ) \ 558 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 559 560 // Level-2 BLAS 561 562 #define ENQUEUE_FLASH_Gemv( transA, alpha, A, x, beta, y, cntl ) \ 563 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 564 565 #define ENQUEUE_FLASH_Trsv( uplo, trans, diag, A, x, cntl ) \ 566 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 567 568 // Level-1 BLAS 569 570 #define ENQUEUE_FLASH_Axpy( alpha, A, B, cntl ) \ 571 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 572 573 #define ENQUEUE_FLASH_Axpyt( trans, alpha, A, B, cntl ) \ 574 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 575 576 #define ENQUEUE_FLASH_Copy( A, B, cntl ) \ 577 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 578 579 #define ENQUEUE_FLASH_Copyt( trans, A, B, cntl ) \ 580 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 581 582 #define ENQUEUE_FLASH_Copyr( uplo, A, B, cntl ) \ 583 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 584 585 #define ENQUEUE_FLASH_Scal( alpha, A, cntl ) \ 586 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 587 588 #define ENQUEUE_FLASH_Scalr( uplo, alpha, A, cntl ) \ 589 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 590 591 // Base 592 593 #define ENQUEUE_FLASH_Obj_create_buffer( rs, cs, A, cntl ) \ 594 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 595 596 #define ENQUEUE_FLASH_Obj_free_buffer( A, cntl ) \ 597 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 598 599 #endif // FLA_ENABLE_SUPERMATRIX 600 601 602 #endif // FLASH_QUEUE_MACRO_DEFS_H 603