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

FLA_Apply_Q_UT_create_workspace()

FLA_Error FLA_Apply_Q_UT_create_workspace	(	FLA_Obj	T,
		FLA_Obj	B,
		FLA_Obj *	W
	)

{
    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 i.

Referenced by FLA_LQ_UT_solve(), and FLA_QR_UT_solve().

FLA_Apply_Q_UT_create_workspace_side()

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

{
    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;
}

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

Referenced by FLA_QR_UT_form_Q().