libflame
revision_anchor
|
00001 /* 00002 00003 Copyright (C) 2014, The University of Texas at Austin 00004 00005 This file is part of libflame and is available under the 3-Clause 00006 BSD license, which can be found in the LICENSE file at the top-level 00007 directory, or at http://opensource.org/licenses/BSD-3-Clause 00008 00009 */ 00010 00011 #ifndef FLASH_QUEUE_MACRO_DEFS_H 00012 #define FLASH_QUEUE_MACRO_DEFS_H 00013 00014 00015 #ifdef FLA_ENABLE_SUPERMATRIX 00016 00017 00018 #define FLASH_OBJ_PTR_ID( A ) ( A ).base->id 00019 00020 // FLASH_Verbose 00021 #define FLASH_QUEUE_VERBOSE_NONE 0 00022 #define FLASH_QUEUE_VERBOSE_READABLE 1 00023 #define FLASH_QUEUE_VERBOSE_GRAPHVIZ 2 00024 00025 // FLASH_Data_aff 00026 #define FLASH_QUEUE_AFFINITY_NONE 0 00027 #define FLASH_QUEUE_AFFINITY_2D_BLOCK_CYCLIC 1 00028 #define FLASH_QUEUE_AFFINITY_1D_ROW_BLOCK_CYCLIC 2 00029 #define FLASH_QUEUE_AFFINITY_1D_COLUMN_BLOCK_CYCLIC 3 00030 #define FLASH_QUEUE_AFFINITY_ROUND_ROBIN 4 00031 00032 /* 00033 Reminder to create a macro to enqueue when SuperMatrix is configured, and 00034 also to create a macro for when it is not below to return an error code. 00035 */ 00036 00037 // LAPACK-level 00038 00039 #define ENQUEUE_FLASH_LU_piv_macro( A, p, cntl ) \ 00040 FLASH_Queue_push( (void *) FLA_LU_piv_macro_task, \ 00041 (void *) cntl, \ 00042 "LU ", \ 00043 FALSE, \ 00044 0, 0, 0, 2, \ 00045 A, p ) 00046 00047 #define ENQUEUE_FLASH_Apply_pivots_macro( side, trans, p, A, cntl ) \ 00048 FLASH_Queue_push( (void *) FLA_Apply_pivots_macro_task, \ 00049 (void *) cntl, \ 00050 "Pivot", \ 00051 FALSE, \ 00052 2, 0, 1, 1, \ 00053 side, trans, \ 00054 p, A ) 00055 00056 #define ENQUEUE_FLASH_LU_piv( A, p, cntl ) \ 00057 FLASH_Queue_push( (void *) FLA_LU_piv_task, \ 00058 (void *) cntl, \ 00059 "LU ", \ 00060 FALSE, \ 00061 0, 1, 0, 1, \ 00062 p, A ) 00063 00064 #define ENQUEUE_FLASH_LU_piv_copy( A, p, U, cntl ) \ 00065 FLASH_Queue_push( (void *) FLA_LU_piv_copy_task, \ 00066 (void *) cntl, \ 00067 "LU ", \ 00068 FALSE, \ 00069 0, 1, 0, 2, \ 00070 p, A, U ) 00071 00072 #define ENQUEUE_FLASH_Trsm_piv( A, C, p, cntl ) \ 00073 FLASH_Queue_push( (void *) FLA_Trsm_piv_task, \ 00074 (void *) cntl, \ 00075 "Trsm ", \ 00076 FALSE, \ 00077 0, 1, 1, 1, \ 00078 p, A, C ) 00079 00080 #define ENQUEUE_FLASH_SA_LU( U, D, p, L, nb_alg, cntl ) \ 00081 FLASH_Queue_push( (void *) FLA_SA_LU_task, \ 00082 (void *) cntl, \ 00083 "SA_LU", \ 00084 FALSE, \ 00085 1, 2, 0, 2, \ 00086 nb_alg, \ 00087 p, L, D, U ) 00088 00089 #define ENQUEUE_FLASH_SA_FS( L, D, p, C, E, nb_alg, cntl ) \ 00090 FLASH_Queue_push( (void *) FLA_SA_FS_task, \ 00091 (void *) cntl, \ 00092 "SA_FS", \ 00093 FALSE, \ 00094 1, 2, 1, 2, \ 00095 nb_alg, \ 00096 L, p, D, E, C ) 00097 00098 #define ENQUEUE_FLASH_LU_nopiv( A, cntl ) \ 00099 FLASH_Queue_push( (void *) FLA_LU_nopiv_task, \ 00100 (void *) cntl, \ 00101 "LU ", \ 00102 FALSE, \ 00103 0, 0, 0, 1, \ 00104 A ) 00105 00106 #define ENQUEUE_FLASH_Trinv( uplo, diag, A, cntl ) \ 00107 FLASH_Queue_push( (void *) FLA_Trinv_task, \ 00108 (void *) cntl, \ 00109 "Trinv", \ 00110 FALSE, \ 00111 2, 0, 0, 1, \ 00112 uplo, diag, \ 00113 A ) 00114 00115 #define ENQUEUE_FLASH_Ttmm( uplo, A, cntl ) \ 00116 FLASH_Queue_push( (void *) FLA_Ttmm_task, \ 00117 (void *) cntl, \ 00118 "Ttmm ", \ 00119 FALSE, \ 00120 1, 0, 0, 1, \ 00121 uplo, \ 00122 A ) 00123 00124 #define ENQUEUE_FLASH_Chol( uplo, A, cntl ) \ 00125 FLASH_Queue_push( (void *) FLA_Chol_task, \ 00126 (void *) cntl, \ 00127 "Chol ", \ 00128 FALSE, \ 00129 1, 0, 0, 1, \ 00130 uplo, \ 00131 A ) 00132 00133 #define ENQUEUE_FLASH_Sylv( transA, transB, isgn, A, B, C, scale, cntl ) \ 00134 FLASH_Queue_push( (void *) FLA_Sylv_task, \ 00135 (void *) cntl, \ 00136 "Sylv ", \ 00137 FALSE, \ 00138 2, 2, 2, 1, \ 00139 transA, transB, \ 00140 isgn, scale, \ 00141 A, B, C ) 00142 00143 #define ENQUEUE_FLASH_Lyap( trans, isgn, A, C, scale, cntl ) \ 00144 FLASH_Queue_push( (void *) FLA_Lyap_task, \ 00145 (void *) cntl, \ 00146 "Lyap ", \ 00147 FALSE, \ 00148 1, 2, 1, 1, \ 00149 trans, \ 00150 isgn, scale, \ 00151 A, C ) 00152 00153 #define ENQUEUE_FLASH_QR_UT_macro( A, T, cntl ) \ 00154 FLASH_Queue_push( (void *) FLA_QR_UT_macro_task, \ 00155 (void *) cntl, \ 00156 "QR ", \ 00157 FALSE, \ 00158 0, 0, 0, 2, \ 00159 A, T ) 00160 00161 #define ENQUEUE_FLASH_QR_UT( A, T, cntl ) \ 00162 FLASH_Queue_push( (void *) FLA_QR_UT_task, \ 00163 (void *) cntl, \ 00164 "QR ", \ 00165 FALSE, \ 00166 0, 1, 0, 1, \ 00167 T, A ) 00168 00169 #define ENQUEUE_FLASH_QR_UT_copy( A, T, U, cntl ) \ 00170 FLASH_Queue_push( (void *) FLA_QR_UT_copy_task, \ 00171 (void *) cntl, \ 00172 "QR ", \ 00173 FALSE, \ 00174 0, 1, 0, 2, \ 00175 T, A, U ) 00176 00177 #define ENQUEUE_FLASH_QR2_UT( B, D, T, cntl ) \ 00178 FLASH_Queue_push( (void *) FLA_QR2_UT_task, \ 00179 (void *) cntl, \ 00180 "QR2 ", \ 00181 FALSE, \ 00182 0, 1, 0, 2, \ 00183 T, D, B ) 00184 00185 #define ENQUEUE_FLASH_LQ_UT_macro( A, T, cntl ) \ 00186 FLASH_Queue_push( (void *) FLA_LQ_UT_macro_task, \ 00187 (void *) cntl, \ 00188 "LQ ", \ 00189 FALSE, \ 00190 0, 0, 0, 2, \ 00191 A, T ) 00192 00193 #define ENQUEUE_FLASH_CAQR2_UT( B, D, T, cntl ) \ 00194 FLASH_Queue_push( (void *) FLA_CAQR2_UT_task, \ 00195 (void *) cntl, \ 00196 "CAQR2", \ 00197 FALSE, \ 00198 0, 1, 0, 2, \ 00199 T, D, B ) 00200 00201 #define ENQUEUE_FLASH_Apply_Q_UT( side, trans, direct, storev, A, T, W, B, cntl ) \ 00202 FLASH_Queue_push( (void *) FLA_Apply_Q_UT_task, \ 00203 (void *) cntl, \ 00204 "ApQ ", \ 00205 FALSE, \ 00206 4, 1, 1, 2, \ 00207 side, trans, direct, storev, \ 00208 T, A, B, W ) 00209 00210 #define ENQUEUE_FLASH_Apply_Q2_UT( side, trans, direct, storev, D, T, W, C, E, cntl ) \ 00211 FLASH_Queue_push( (void *) FLA_Apply_Q2_UT_task, \ 00212 (void *) cntl, \ 00213 "ApQ2 ", \ 00214 FALSE, \ 00215 4, 1, 1, 3, \ 00216 side, trans, direct, storev, \ 00217 T, D, E, C, W ) 00218 00219 #define ENQUEUE_FLASH_Apply_CAQ2_UT( side, trans, direct, storev, D, T, W, C, E, cntl ) \ 00220 FLASH_Queue_push( (void *) FLA_Apply_CAQ2_UT_task, \ 00221 (void *) cntl, \ 00222 "ApCQ2", \ 00223 FALSE, \ 00224 4, 1, 1, 3, \ 00225 side, trans, direct, storev, \ 00226 T, D, E, C, W ) 00227 00228 #define ENQUEUE_FLASH_UDdate_UT( R, C, D, T, cntl ) \ 00229 FLASH_Queue_push( (void *) FLA_UDdate_UT_task, \ 00230 (void *) cntl, \ 00231 "UD ", \ 00232 FALSE, \ 00233 0, 0, 0, 4, \ 00234 R, C, D, T ) 00235 00236 #define ENQUEUE_FLASH_Apply_QUD_UT( side, trans, direct, storev, T, W, R, U, C, V, D, cntl ) \ 00237 FLASH_Queue_push( (void *) FLA_Apply_QUD_UT_task, \ 00238 (void *) cntl, \ 00239 "ApQUD", \ 00240 FALSE, \ 00241 4, 0, 3, 4, \ 00242 side, trans, direct, storev, \ 00243 T, U, V, W, R, C, D ) 00244 00245 #define ENQUEUE_FLASH_Eig_gest( inv, uplo, A, Y, B, cntl ) \ 00246 FLASH_Queue_push( (void *) FLA_Eig_gest_task, \ 00247 (void *) cntl, \ 00248 "Eig ", \ 00249 FALSE, \ 00250 2, 0, 1, 2, \ 00251 inv, uplo, \ 00252 B, Y, A ) 00253 00254 // Level-3 BLAS 00255 00256 #define ENQUEUE_FLASH_Gemm( transA, transB, alpha, A, B, beta, C, cntl ) \ 00257 FLASH_Queue_push( (void *) FLA_Gemm_task, \ 00258 (void *) cntl, \ 00259 "Gemm ", \ 00260 TRUE, \ 00261 2, 2, 2, 1, \ 00262 transA, transB, \ 00263 alpha, beta, \ 00264 A, B, C ) 00265 00266 #define ENQUEUE_FLASH_Hemm( side, uplo, alpha, A, B, beta, C, cntl ) \ 00267 FLASH_Queue_push( (void *) FLA_Hemm_task, \ 00268 (void *) cntl, \ 00269 "Hemm ", \ 00270 TRUE, \ 00271 2, 2, 2, 1, \ 00272 side, uplo, \ 00273 alpha, beta, \ 00274 A, B, C ) 00275 00276 #define ENQUEUE_FLASH_Herk( uplo, transA, alpha, A, beta, C, cntl ) \ 00277 FLASH_Queue_push( (void *) FLA_Herk_task, \ 00278 (void *) cntl, \ 00279 "Herk ", \ 00280 TRUE, \ 00281 2, 2, 1, 1, \ 00282 uplo, transA, \ 00283 alpha, beta, \ 00284 A, C ) 00285 00286 #define ENQUEUE_FLASH_Her2k( uplo, transA, alpha, A, B, beta, C, cntl ) \ 00287 FLASH_Queue_push( (void *) FLA_Her2k_task, \ 00288 (void *) cntl, \ 00289 "Her2k", \ 00290 TRUE, \ 00291 2, 2, 2, 1, \ 00292 uplo, transA, \ 00293 alpha, beta, \ 00294 A, B, C ) 00295 00296 #define ENQUEUE_FLASH_Symm( side, uplo, alpha, A, B, beta, C, cntl ) \ 00297 FLASH_Queue_push( (void *) FLA_Symm_task, \ 00298 (void *) cntl, \ 00299 "Symm ", \ 00300 TRUE, \ 00301 2, 2, 2, 1, \ 00302 side, uplo, \ 00303 alpha, beta, \ 00304 A, B, C ) 00305 00306 #define ENQUEUE_FLASH_Syrk( uplo, transA, alpha, A, beta, C, cntl ) \ 00307 FLASH_Queue_push( (void *) FLA_Syrk_task, \ 00308 (void *) cntl, \ 00309 "Syrk ", \ 00310 TRUE, \ 00311 2, 2, 1, 1, \ 00312 uplo, transA, \ 00313 alpha, beta, \ 00314 A, C ) 00315 00316 #define ENQUEUE_FLASH_Syr2k( uplo, transA, alpha, A, B, beta, C, cntl ) \ 00317 FLASH_Queue_push( (void *) FLA_Syr2k_task, \ 00318 (void *) cntl, \ 00319 "Syr2k", \ 00320 TRUE, \ 00321 2, 2, 2, 1, \ 00322 uplo, transA, \ 00323 alpha, beta, \ 00324 A, B, C ) 00325 00326 #define ENQUEUE_FLASH_Trmm( side, uplo, trans, diag, alpha, A, C, cntl ) \ 00327 FLASH_Queue_push( (void *) FLA_Trmm_task, \ 00328 (void *) cntl, \ 00329 "Trmm ", \ 00330 TRUE, \ 00331 4, 1, 1, 1, \ 00332 side, uplo, trans, diag, \ 00333 alpha, \ 00334 A, C ) 00335 00336 #define ENQUEUE_FLASH_Trsm( side, uplo, trans, diag, alpha, A, C, cntl ) \ 00337 FLASH_Queue_push( (void *) FLA_Trsm_task, \ 00338 (void *) cntl, \ 00339 "Trsm ", \ 00340 TRUE, \ 00341 4, 1, 1, 1, \ 00342 side, uplo, trans, diag, \ 00343 alpha, \ 00344 A, C ) 00345 00346 // Level-2 BLAS 00347 00348 #define ENQUEUE_FLASH_Gemv( trans, alpha, A, x, beta, y, cntl ) \ 00349 FLASH_Queue_push( (void *) FLA_Gemv_task, \ 00350 (void *) cntl, \ 00351 "Gemv ", \ 00352 TRUE, \ 00353 1, 2, 2, 1, \ 00354 trans, \ 00355 alpha, beta, \ 00356 A, x, y ) 00357 00358 #define ENQUEUE_FLASH_Trsv( uplo, trans, diag, A, x, cntl ) \ 00359 FLASH_Queue_push( (void *) FLA_Trsv_task, \ 00360 (void *) cntl, \ 00361 "Trsv ", \ 00362 TRUE, \ 00363 3, 0, 1, 1, \ 00364 uplo, trans, diag, \ 00365 A, x ) 00366 00367 // Level-1 BLAS 00368 00369 #define ENQUEUE_FLASH_Axpy( alpha, A, B, cntl ) \ 00370 FLASH_Queue_push( (void *) FLA_Axpy_task, \ 00371 (void *) cntl, \ 00372 "Axpy ", \ 00373 TRUE, \ 00374 0, 1, 1, 1, \ 00375 alpha, \ 00376 A, B ) 00377 00378 #define ENQUEUE_FLASH_Axpyt( trans, alpha, A, B, cntl ) \ 00379 FLASH_Queue_push( (void *) FLA_Axpyt_task, \ 00380 (void *) cntl, \ 00381 "Axpyt", \ 00382 FALSE, \ 00383 1, 1, 1, 1, \ 00384 trans, \ 00385 alpha, \ 00386 A, B ) 00387 00388 #define ENQUEUE_FLASH_Copy( A, B, cntl ) \ 00389 FLASH_Queue_push( (void *) FLA_Copy_task, \ 00390 (void *) cntl, \ 00391 "Copy ", \ 00392 TRUE, \ 00393 0, 0, 1, 1, \ 00394 A, B ) 00395 00396 #define ENQUEUE_FLASH_Copyt( trans, A, B, cntl ) \ 00397 FLASH_Queue_push( (void *) FLA_Copyt_task, \ 00398 (void *) cntl, \ 00399 "Copyt", \ 00400 FALSE, \ 00401 1, 0, 1, 1, \ 00402 trans, \ 00403 A, B ) 00404 00405 #define ENQUEUE_FLASH_Copyr( uplo, A, B, cntl ) \ 00406 FLASH_Queue_push( (void *) FLA_Copyr_task, \ 00407 (void *) cntl, \ 00408 "Copyt", \ 00409 FALSE, \ 00410 1, 0, 1, 1, \ 00411 uplo, \ 00412 A, B ) 00413 00414 #define ENQUEUE_FLASH_Scal( alpha, A, cntl ) \ 00415 FLASH_Queue_push( (void *) FLA_Scal_task, \ 00416 (void *) cntl, \ 00417 "Scal ", \ 00418 TRUE, \ 00419 0, 1, 0, 1, \ 00420 alpha, \ 00421 A ) 00422 00423 #define ENQUEUE_FLASH_Scalr( uplo, alpha, A, cntl ) \ 00424 FLASH_Queue_push( (void *) FLA_Scalr_task, \ 00425 (void *) cntl, \ 00426 "Scalr", \ 00427 TRUE, \ 00428 1, 1, 0, 1, \ 00429 uplo, \ 00430 alpha, \ 00431 A ) 00432 00433 // Base 00434 00435 #define ENQUEUE_FLASH_Obj_create_buffer( rs, cs, A, cntl ) \ 00436 FLASH_Queue_push( (void *) FLA_Obj_create_buffer_task, \ 00437 (void *) cntl, \ 00438 "Buff ", \ 00439 FALSE, \ 00440 2, 0, 0, 1, \ 00441 rs, cs, \ 00442 A ) 00443 00444 #define ENQUEUE_FLASH_Obj_free_buffer( A, cntl ) \ 00445 FLASH_Queue_push( (void *) FLA_Obj_free_buffer_task, \ 00446 (void *) cntl, \ 00447 "Free ", \ 00448 FALSE, \ 00449 0, 0, 0, 1, \ 00450 A ) 00451 00452 #else 00453 00454 // LAPACK-level 00455 00456 #define ENQUEUE_FLASH_LU_piv_macro( A, p, cntl ) \ 00457 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00458 00459 #define ENQUEUE_FLASH_Apply_pivots_macro( side, trans, p, A, cntl ) \ 00460 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00461 00462 #define ENQUEUE_FLASH_LU_piv( A, p, cntl ) \ 00463 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00464 00465 #define ENQUEUE_FLASH_LU_piv_copy( A, p, U, cntl ) \ 00466 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00467 00468 #define ENQUEUE_FLASH_Trsm_piv( A, C, p, cntl ) \ 00469 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00470 00471 #define ENQUEUE_FLASH_SA_LU( U, D, p, L, nb_alg, cntl ) \ 00472 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00473 00474 #define ENQUEUE_FLASH_SA_FS( L, D, p, C, E, nb_alg, cntl ) \ 00475 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00476 00477 #define ENQUEUE_FLASH_LU_nopiv( A, cntl ) \ 00478 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00479 00480 #define ENQUEUE_FLASH_Trinv( uplo, diag, A, cntl ) \ 00481 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00482 00483 #define ENQUEUE_FLASH_Ttmm( uplo, A, cntl ) \ 00484 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00485 00486 #define ENQUEUE_FLASH_Chol( uplo, A, cntl ) \ 00487 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00488 00489 #define ENQUEUE_FLASH_Sylv( transA, transB, isgn, A, B, C, scale, cntl ) \ 00490 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00491 00492 #define ENQUEUE_FLASH_Lyap( trans, isgn, A, C, scale, cntl ) \ 00493 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00494 00495 #define ENQUEUE_FLASH_QR_UT_macro( A, T, cntl ) \ 00496 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00497 00498 #define ENQUEUE_FLASH_QR_UT( A, T, cntl ) \ 00499 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00500 00501 #define ENQUEUE_FLASH_QR_UT_copy( A, T, U, cntl ) \ 00502 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00503 00504 #define ENQUEUE_FLASH_QR2_UT( B, D, T, cntl ) \ 00505 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00506 00507 #define ENQUEUE_FLASH_LQ_UT_macro( A, T, cntl ) \ 00508 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00509 00510 #define ENQUEUE_FLASH_CAQR2_UT( B, D, T, cntl ) \ 00511 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00512 00513 #define ENQUEUE_FLASH_UDdate_UT( R, C, D, T, cntl ) \ 00514 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00515 00516 #define ENQUEUE_FLASH_Apply_Q_UT( side, trans, direct, storev, A, T, W, B, cntl ) \ 00517 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00518 00519 #define ENQUEUE_FLASH_Apply_Q2_UT( side, trans, direct, storev, D, T, W, C, E, cntl ) \ 00520 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00521 00522 #define ENQUEUE_FLASH_Apply_CAQ2_UT( side, trans, direct, storev, D, T, W, C, E, cntl ) \ 00523 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00524 00525 #define ENQUEUE_FLASH_Apply_QUD_UT( side, trans, direct, storev, T, W, R, U, C, V, D, cntl ) \ 00526 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00527 00528 #define ENQUEUE_FLASH_Eig_gest( inv, uplo, A, Y, B, cntl ) \ 00529 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00530 00531 // Level-3 BLAS 00532 00533 #define ENQUEUE_FLASH_Gemm( transA, transB, alpha, A, B, beta, C, cntl ) \ 00534 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00535 00536 #define ENQUEUE_FLASH_Hemm( side, uplo, alpha, A, B, beta, C, cntl ) \ 00537 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00538 00539 #define ENQUEUE_FLASH_Herk( uplo, transA, alpha, A, beta, C, cntl ) \ 00540 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00541 00542 #define ENQUEUE_FLASH_Her2k( uplo, transA, alpha, A, B, beta, C, cntl ) \ 00543 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00544 00545 #define ENQUEUE_FLASH_Symm( side, uplo, alpha, A, B, beta, C, cntl ) \ 00546 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00547 00548 #define ENQUEUE_FLASH_Syrk( uplo, transA, alpha, A, beta, C, cntl ) \ 00549 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00550 00551 #define ENQUEUE_FLASH_Syr2k( uplo, transA, alpha, A, B, beta, C, cntl ) \ 00552 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00553 00554 #define ENQUEUE_FLASH_Trmm( side, uplo, trans, diag, alpha, A, C, cntl ) \ 00555 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00556 00557 #define ENQUEUE_FLASH_Trsm( side, uplo, trans, diag, alpha, A, C, cntl ) \ 00558 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00559 00560 // Level-2 BLAS 00561 00562 #define ENQUEUE_FLASH_Gemv( transA, alpha, A, x, beta, y, cntl ) \ 00563 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00564 00565 #define ENQUEUE_FLASH_Trsv( uplo, trans, diag, A, x, cntl ) \ 00566 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00567 00568 // Level-1 BLAS 00569 00570 #define ENQUEUE_FLASH_Axpy( alpha, A, B, cntl ) \ 00571 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00572 00573 #define ENQUEUE_FLASH_Axpyt( trans, alpha, A, B, cntl ) \ 00574 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00575 00576 #define ENQUEUE_FLASH_Copy( A, B, cntl ) \ 00577 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00578 00579 #define ENQUEUE_FLASH_Copyt( trans, A, B, cntl ) \ 00580 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00581 00582 #define ENQUEUE_FLASH_Copyr( uplo, A, B, cntl ) \ 00583 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00584 00585 #define ENQUEUE_FLASH_Scal( alpha, A, cntl ) \ 00586 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00587 00588 #define ENQUEUE_FLASH_Scalr( uplo, alpha, A, cntl ) \ 00589 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00590 00591 // Base 00592 00593 #define ENQUEUE_FLASH_Obj_create_buffer( rs, cs, A, cntl ) \ 00594 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00595 00596 #define ENQUEUE_FLASH_Obj_free_buffer( A, cntl ) \ 00597 FLA_Check_error_code( FLA_SUPERMATRIX_NOT_ENABLED ) 00598 00599 #endif // FLA_ENABLE_SUPERMATRIX 00600 00601 00602 #endif // FLASH_QUEUE_MACRO_DEFS_H