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

◆ FLA_Apply_Q_UT_create_workspace()

FLA_Error FLA_Apply_Q_UT_create_workspace ( FLA_Obj  T,
FLA_Obj  B,
FLA_Obj W 
)
14 {
15  FLA_Datatype datatype;
16  dim_t m_W, n_W;
17 
18  datatype = FLA_Obj_datatype( T );
19  m_W = FLA_Obj_length( T );
20  n_W = FLA_Obj_max_dim( B );
21 
22  FLA_Obj_create( datatype, m_W, n_W, 0, 0, W );
23 
24  return FLA_SUCCESS;
25 }
FLA_Error FLA_Obj_create(FLA_Datatype datatype, dim_t m, dim_t n, dim_t rs, dim_t cs, FLA_Obj *obj)
Definition: FLA_Obj.c:55
dim_t FLA_Obj_max_dim(FLA_Obj obj)
Definition: FLA_Query.c:160
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int FLA_Datatype
Definition: FLA_type_defs.h:49
unsigned long dim_t
Definition: FLA_type_defs.h:71

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_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 
)
29 {
30  FLA_Datatype datatype;
31  dim_t m_W, n_W;
32 
33  datatype = FLA_Obj_datatype( T );
34  m_W = FLA_Obj_length( T );
35 
36  if ( side == FLA_LEFT ) n_W = FLA_Obj_width( B );
37  else if ( side == FLA_RIGHT ) n_W = FLA_Obj_length( B );
38  else n_W = FLA_Obj_max_dim( B );
39 
40  FLA_Obj_create( datatype, m_W, n_W, 0, 0, W );
41 
42  return FLA_SUCCESS;
43 }
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123

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().