libflame  revision_anchor
Functions
FLA_Apply_Q_UT_create_workspace.c File Reference

(r)

Functions

FLA_Error FLA_Apply_Q_UT_create_workspace (FLA_Obj T, FLA_Obj B, FLA_Obj *W)
FLA_Error FLA_Apply_Q_UT_create_workspace_side (FLA_Side side, FLA_Obj T, FLA_Obj B, FLA_Obj *W)

Function Documentation

References FLA_Obj_create(), FLA_Obj_datatype(), FLA_Obj_length(), and FLA_Obj_max_dim().

Referenced by FLA_LQ_UT_solve(), and FLA_QR_UT_solve().

{
    FLA_Datatype datatype;
    dim_t        m_W, n_W;

    datatype = FLA_Obj_datatype( T );
    m_W      = FLA_Obj_length( T );
    n_W      = FLA_Obj_max_dim( B );

        FLA_Obj_create( datatype, m_W, n_W, 0, 0, W );

    return FLA_SUCCESS;
}

References FLA_Obj_create(), FLA_Obj_datatype(), FLA_Obj_length(), FLA_Obj_max_dim(), and FLA_Obj_width().

Referenced by FLA_QR_UT_form_Q().

{
    FLA_Datatype datatype;
    dim_t        m_W, n_W;

    datatype = FLA_Obj_datatype( T );
    m_W      = FLA_Obj_length( T );

        if      ( side == FLA_LEFT  ) n_W = FLA_Obj_width( B );
        else if ( side == FLA_RIGHT ) n_W = FLA_Obj_length( B );
        else                          n_W = FLA_Obj_max_dim( B );

        FLA_Obj_create( datatype, m_W, n_W, 0, 0, W );

    return FLA_SUCCESS;
}