libflame  revision_anchor
FLASH_Queue_macro_defs.h
Go to the documentation of this file.
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