FLA_Apply_Q_UT_internal.c File Reference

(r)

Functions
FLA_Error	FLA_Apply_Q_UT_internal (FLA_Side side, FLA_Trans trans, FLA_Direct direct, FLA_Store storev, FLA_Obj A, FLA_Obj T, FLA_Obj W, FLA_Obj B, fla_apqut_t *cntl)

Variables
fla_apqut_t *	flash_apqut_cntl
fla_apqut_t *	flash_apqut_cntl_leaf
fla_apqut_t *	fla_apqut_cntl_leaf

Function Documentation

FLA_Apply_Q_UT_internal()

FLA_Error FLA_Apply_Q_UT_internal	(	FLA_Side	side,
		FLA_Trans	trans,
		FLA_Direct	direct,
		FLA_Store	storev,
		FLA_Obj	A,
		FLA_Obj	T,
		FLA_Obj	W,
		FLA_Obj	B,
		fla_apqut_t *	cntl
	)

{
    FLA_Error r_val = FLA_SUCCESS;
 
    if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
        FLA_Apply_Q_UT_internal_check( side, trans, direct, storev, A, T, W, B, cntl );
 
    if      ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
              FLA_Obj_elemtype( A ) == FLA_MATRIX &&
              FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
    {
        // Recurse
        r_val = FLA_Apply_Q_UT_internal( side,
                                         trans,
                                         direct,
                                         storev,
                                         *FLASH_OBJ_PTR_AT( A ),
                                         *FLASH_OBJ_PTR_AT( T ),
                                         *FLASH_OBJ_PTR_AT( W ),
                                         *FLASH_OBJ_PTR_AT( B ),
                                         flash_apqut_cntl );
    }
    else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
              FLA_Obj_elemtype( A ) == FLA_SCALAR &&
              FLASH_Queue_get_enabled( ) )
    {
        // Enqueue
        ENQUEUE_FLASH_Apply_Q_UT( side, trans, direct, storev, A, T, W, B, cntl );
    }
    else
    {
        if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
             FLA_Obj_elemtype( A ) == FLA_SCALAR &&
             !FLASH_Queue_get_enabled( ) )
        {
            // Execute leaf.
            cntl = fla_apqut_cntl_leaf;
        }
 
        if      ( side == FLA_LEFT )
        {
            if      ( trans == FLA_NO_TRANSPOSE )
            {
                if      ( direct == FLA_FORWARD )
                {
                    if      ( storev == FLA_COLUMNWISE )
                        r_val = FLA_Apply_Q_UT_lnfc( A, T, W, B, cntl );
                    else if ( storev == FLA_ROWWISE )
                        r_val = FLA_Apply_Q_UT_lnfr( A, T, W, B, cntl );
                }
                else if ( direct == FLA_BACKWARD )
                {
                    if      ( storev == FLA_COLUMNWISE )
                        r_val = FLA_Apply_Q_UT_lnbc( A, T, W, B, cntl );
                    else if ( storev == FLA_ROWWISE )
                        r_val = FLA_Apply_Q_UT_lnbr( A, T, W, B, cntl );
                }
            }
            else if ( trans == FLA_TRANSPOSE || trans == FLA_CONJ_TRANSPOSE )
            {
                if      ( direct == FLA_FORWARD )
                {
                    if      ( storev == FLA_COLUMNWISE )
                        r_val = FLA_Apply_Q_UT_lhfc( A, T, W, B, cntl );
                    else if ( storev == FLA_ROWWISE )
                        r_val = FLA_Apply_Q_UT_lhfr( A, T, W, B, cntl );
                }
                else if ( direct == FLA_BACKWARD )
                {
                    if      ( storev == FLA_COLUMNWISE )
                        r_val = FLA_Apply_Q_UT_lhbc( A, T, W, B, cntl );
                    else if ( storev == FLA_ROWWISE )
                        r_val = FLA_Apply_Q_UT_lhbr( A, T, W, B, cntl );
                }
            }
        }
        else if ( side == FLA_RIGHT )
        {
            if      ( trans == FLA_NO_TRANSPOSE )
            {
                if      ( direct == FLA_FORWARD )
                {
                    if      ( storev == FLA_COLUMNWISE )
                        r_val = FLA_Apply_Q_UT_rnfc( A, T, W, B, cntl );
                    else if ( storev == FLA_ROWWISE )
                        r_val = FLA_Apply_Q_UT_rnfr( A, T, W, B, cntl );
                }
                else if ( direct == FLA_BACKWARD )
                {
                    if      ( storev == FLA_COLUMNWISE )
                        r_val = FLA_Apply_Q_UT_rnbc( A, T, W, B, cntl );
                    else if ( storev == FLA_ROWWISE )
                        r_val = FLA_Apply_Q_UT_rnbr( A, T, W, B, cntl );
                }
            }
            else if ( trans == FLA_TRANSPOSE || trans == FLA_CONJ_TRANSPOSE )
            {
                if      ( direct == FLA_FORWARD )
                {
                    if      ( storev == FLA_COLUMNWISE )
                        r_val = FLA_Apply_Q_UT_rhfc( A, T, W, B, cntl );
                    else if ( storev == FLA_ROWWISE )
                        r_val = FLA_Apply_Q_UT_rhfr( A, T, W, B, cntl );
                }
                else if ( direct == FLA_BACKWARD )
                {
                    if      ( storev == FLA_COLUMNWISE )
                        r_val = FLA_Apply_Q_UT_rhbc( A, T, W, B, cntl );
                    else if ( storev == FLA_ROWWISE )
                        r_val = FLA_Apply_Q_UT_rhbr( A, T, W, B, cntl );
                }
            }
        }
    }
 
    return r_val;
}

References FLA_Apply_Q_UT_internal(), FLA_Apply_Q_UT_internal_check(), FLA_Apply_Q_UT_lhbc(), FLA_Apply_Q_UT_lhbr(), FLA_Apply_Q_UT_lhfc(), FLA_Apply_Q_UT_lhfr(), FLA_Apply_Q_UT_lnbc(), FLA_Apply_Q_UT_lnbr(), FLA_Apply_Q_UT_lnfc(), FLA_Apply_Q_UT_lnfr(), FLA_Apply_Q_UT_rhbc(), FLA_Apply_Q_UT_rhbr(), FLA_Apply_Q_UT_rhfc(), FLA_Apply_Q_UT_rhfr(), FLA_Apply_Q_UT_rnbc(), FLA_Apply_Q_UT_rnbr(), FLA_Apply_Q_UT_rnfc(), FLA_Apply_Q_UT_rnfr(), fla_apqut_cntl_leaf, FLA_Check_error_level(), FLA_Obj_elemtype(), flash_apqut_cntl, FLASH_Queue_get_enabled(), and i.

Referenced by FLA_Apply_Q_UT(), FLA_Apply_Q_UT_inc_lhfc_blk_var1(), FLA_Apply_Q_UT_inc_lnfc_blk_var1(), FLA_Apply_Q_UT_internal(), FLA_Apply_Q_UT_lhbc_blk_var2(), FLA_Apply_Q_UT_lhbc_task(), FLA_Apply_Q_UT_lhbr_blk_var2(), FLA_Apply_Q_UT_lhbr_task(), FLA_Apply_Q_UT_lhfc_blk_var2(), FLA_Apply_Q_UT_lhfc_task(), FLA_Apply_Q_UT_lhfr_blk_var2(), FLA_Apply_Q_UT_lhfr_task(), FLA_Apply_Q_UT_lnbc_blk_var2(), FLA_Apply_Q_UT_lnbc_task(), FLA_Apply_Q_UT_lnbr_blk_var2(), FLA_Apply_Q_UT_lnbr_task(), FLA_Apply_Q_UT_lnfc_blk_var2(), FLA_Apply_Q_UT_lnfc_task(), FLA_Apply_Q_UT_lnfr_blk_var2(), FLA_Apply_Q_UT_lnfr_task(), FLA_Apply_Q_UT_rhbc_blk_var2(), FLA_Apply_Q_UT_rhbc_task(), FLA_Apply_Q_UT_rhbr_blk_var2(), FLA_Apply_Q_UT_rhbr_task(), FLA_Apply_Q_UT_rhfc_blk_var2(), FLA_Apply_Q_UT_rhfc_task(), FLA_Apply_Q_UT_rhfr_blk_var2(), FLA_Apply_Q_UT_rhfr_task(), FLA_Apply_Q_UT_rnbc_blk_var2(), FLA_Apply_Q_UT_rnbc_task(), FLA_Apply_Q_UT_rnbr_blk_var2(), FLA_Apply_Q_UT_rnbr_task(), FLA_Apply_Q_UT_rnfc_blk_var2(), FLA_Apply_Q_UT_rnfc_task(), FLA_Apply_Q_UT_rnfr_blk_var2(), FLA_Apply_Q_UT_rnfr_task(), FLA_Apply_Q_UT_task(), FLA_LQ_UT_blk_var1(), FLA_LQ_UT_blk_var2(), FLA_LQ_UT_blk_var3(), FLA_QR_UT_blk_var1(), FLA_QR_UT_blk_var2(), FLA_QR_UT_blk_var3(), FLA_QR_UT_inc_blk_var1(), FLA_QR_UT_inc_blk_var2(), and FLASH_Apply_Q_UT().

Variable Documentation

fla_apqut_cntl_leaf

fla_apqut_t* fla_apqut_cntl_leaf

extern

Referenced by FLA_Apply_Q_UT_internal().

flash_apqut_cntl

fla_apqut_t* flash_apqut_cntl

extern

Referenced by FLA_Apply_Q_UT_internal(), FLASH_Apply_Q_UT_cntl_finalize(), and FLASH_Apply_Q_UT_cntl_init().

flash_apqut_cntl_leaf

fla_apqut_t* flash_apqut_cntl_leaf

extern

Referenced by FLASH_Apply_Q_UT_cntl_finalize(), and FLASH_Apply_Q_UT_cntl_init().