libflame  revision_anchor
Functions | Variables
FLA_Apply_QUD_UT_internal.c File Reference

(r)

Functions

FLA_Error FLA_Apply_QUD_UT_internal (FLA_Side side, FLA_Trans trans, FLA_Direct direct, FLA_Store storev, FLA_Obj T, FLA_Obj W, FLA_Obj R, FLA_Obj U, FLA_Obj C, FLA_Obj V, FLA_Obj D, fla_apqudut_t *cntl)
 

Variables

fla_apqudut_tflash_apqudut_cntl
 
fla_apqudut_tflash_apqudut_cntl_leaf
 
fla_apqudut_tfla_apqudut_cntl_leaf
 

Function Documentation

◆ FLA_Apply_QUD_UT_internal()

FLA_Error FLA_Apply_QUD_UT_internal ( FLA_Side  side,
FLA_Trans  trans,
FLA_Direct  direct,
FLA_Store  storev,
FLA_Obj  T,
FLA_Obj  W,
FLA_Obj  R,
FLA_Obj  U,
FLA_Obj  C,
FLA_Obj  V,
FLA_Obj  D,
fla_apqudut_t cntl 
)

References FLA_Apply_QUD_UT_internal_check(), FLA_Apply_QUD_UT_lhfc(), fla_apqudut_cntl_leaf, FLA_Check_error_level(), FLA_Obj_elemtype(), and FLASH_Queue_get_enabled().

Referenced by FLA_Apply_QUD_UT(), FLA_Apply_QUD_UT_inc_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var2(), FLA_Apply_QUD_UT_lhfc_blk_var3(), FLA_Apply_QUD_UT_lhfc_task(), FLA_Apply_QUD_UT_task(), FLA_UDdate_UT_blk_var1(), and FLA_UDdate_UT_inc_blk_var1().

22 {
23  FLA_Error r_val = FLA_SUCCESS;
24 
25  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
26  FLA_Apply_QUD_UT_internal_check( side, trans, direct, storev,
27  T, W, R, U, C, V, D, cntl );
28 
29  if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
30  FLA_Obj_elemtype( R ) == FLA_MATRIX &&
31  FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
32  {
33  // Recurse
34  r_val = FLA_Apply_QUD_UT_internal( side,
35  trans,
36  direct,
37  storev,
38  *FLASH_OBJ_PTR_AT( T ),
39  *FLASH_OBJ_PTR_AT( W ),
40  *FLASH_OBJ_PTR_AT( R ),
41  *FLASH_OBJ_PTR_AT( U ),
42  *FLASH_OBJ_PTR_AT( C ),
43  *FLASH_OBJ_PTR_AT( V ),
44  *FLASH_OBJ_PTR_AT( D ),
46  }
47  else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
48  FLA_Obj_elemtype( R ) == FLA_SCALAR &&
50  {
51  // Enqueue
52  ENQUEUE_FLASH_Apply_QUD_UT( side, trans, direct, storev,
53  T, W, R, U, C, V, D, cntl );
54  }
55  else
56  {
57  if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
58  FLA_Obj_elemtype( R ) == FLA_SCALAR &&
60  {
61  // Execute leaf.
62  cntl = fla_apqudut_cntl_leaf;
63  }
64 
65  if ( side == FLA_LEFT )
66  {
67  if ( trans == FLA_NO_TRANSPOSE )
68  {
69  if ( direct == FLA_FORWARD )
70  {
71  if ( storev == FLA_COLUMNWISE )
72  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
73  else if ( storev == FLA_ROWWISE )
74  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
75  }
76  else if ( direct == FLA_BACKWARD )
77  {
78  if ( storev == FLA_COLUMNWISE )
79  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
80  else if ( storev == FLA_ROWWISE )
81  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
82  }
83  }
84  else if ( trans == FLA_TRANSPOSE || trans == FLA_CONJ_TRANSPOSE )
85  {
86  if ( direct == FLA_FORWARD )
87  {
88  if ( storev == FLA_COLUMNWISE )
89  r_val = FLA_Apply_QUD_UT_lhfc( T, W, R, U, C, V, D, cntl );
90  else if ( storev == FLA_ROWWISE )
91  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
92  }
93  else if ( direct == FLA_BACKWARD )
94  {
95  if ( storev == FLA_COLUMNWISE )
96  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
97  else if ( storev == FLA_ROWWISE )
98  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
99  }
100  }
101  }
102  else if ( side == FLA_RIGHT )
103  {
104  if ( trans == FLA_NO_TRANSPOSE )
105  {
106  if ( direct == FLA_FORWARD )
107  {
108  if ( storev == FLA_COLUMNWISE )
109  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
110  else if ( storev == FLA_ROWWISE )
111  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
112  }
113  else if ( direct == FLA_BACKWARD )
114  {
115  if ( storev == FLA_COLUMNWISE )
116  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
117  else if ( storev == FLA_ROWWISE )
118  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
119  }
120  }
121  else if ( trans == FLA_TRANSPOSE || trans == FLA_CONJ_TRANSPOSE )
122  {
123  if ( direct == FLA_FORWARD )
124  {
125  if ( storev == FLA_COLUMNWISE )
126  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
127  else if ( storev == FLA_ROWWISE )
128  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
129  }
130  else if ( direct == FLA_BACKWARD )
131  {
132  if ( storev == FLA_COLUMNWISE )
133  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
134  else if ( storev == FLA_ROWWISE )
135  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
136  }
137  }
138  }
139  }
140 
141  return r_val;
142 }
fla_apqudut_t * flash_apqudut_cntl
Definition: FLASH_Apply_QUD_UT_cntl_init.c:15
fla_apqudut_t * fla_apqudut_cntl_leaf
Definition: FLA_Apply_QUD_UT_cntl_init.c:18
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_Apply_QUD_UT_internal_check(FLA_Side side, FLA_Trans trans, FLA_Direct direct, FLA_Store storev, FLA_Obj T, FLA_Obj W, FLA_Obj R, FLA_Obj U, FLA_Obj C, FLA_Obj V, FLA_Obj D, fla_apqudut_t *cntl)
Definition: FLA_Apply_QUD_UT_internal_check.c:13
FLA_Error FLA_Apply_QUD_UT_internal(FLA_Side side, FLA_Trans trans, FLA_Direct direct, FLA_Store storev, FLA_Obj T, FLA_Obj W, FLA_Obj R, FLA_Obj U, FLA_Obj C, FLA_Obj V, FLA_Obj D, fla_apqudut_t *cntl)
Definition: FLA_Apply_QUD_UT_internal.c:17
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
FLA_Error FLA_Apply_QUD_UT_lhfc(FLA_Obj T, FLA_Obj W, FLA_Obj R, FLA_Obj U, FLA_Obj C, FLA_Obj V, FLA_Obj D, fla_apqudut_t *cntl)
Definition: FLA_Apply_QUD_UT_lhfc.c:15
FLA_Elemtype FLA_Obj_elemtype(FLA_Obj obj)
Definition: FLA_Query.c:51

Variable Documentation

◆ fla_apqudut_cntl_leaf

fla_apqudut_t* fla_apqudut_cntl_leaf

◆ flash_apqudut_cntl

fla_apqudut_t* flash_apqudut_cntl

◆ flash_apqudut_cntl_leaf

fla_apqudut_t* flash_apqudut_cntl_leaf