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_t * flash_apqudut_cntl
 
fla_apqudut_t * flash_apqudut_cntl_leaf
 
fla_apqudut_t * fla_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 )
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 ),
45 flash_apqudut_cntl );
46 }
47 else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
48 FLA_Obj_elemtype( R ) == FLA_SCALAR &&
49 FLASH_Queue_get_enabled( ) )
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 &&
59 !FLASH_Queue_get_enabled( ) )
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}
FLASH_Queue_get_enabled
FLA_Bool FLASH_Queue_get_enabled(void)
Definition FLASH_Queue.c:171
FLA_Apply_QUD_UT_lhfc
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_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)
Definition FLA_Apply_QUD_UT_internal.c:17
fla_apqudut_cntl_leaf
fla_apqudut_t * fla_apqudut_cntl_leaf
Definition FLA_Apply_QUD_UT_cntl_init.c:18
flash_apqudut_cntl
fla_apqudut_t * flash_apqudut_cntl
Definition FLASH_Apply_QUD_UT_cntl_init.c:15
FLA_Apply_QUD_UT_internal_check
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_Obj_elemtype
FLA_Elemtype FLA_Obj_elemtype(FLA_Obj obj)
Definition FLA_Query.c:51
FLA_Check_error_level
unsigned int FLA_Check_error_level(void)
Definition FLA_Check.c:18
FLA_Error
int FLA_Error
Definition FLA_type_defs.h:47

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

Referenced by FLA_Apply_QUD_UT(), FLA_Apply_QUD_UT_inc_lhfc_blk_var1(), FLA_Apply_QUD_UT_internal(), 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().

Variable Documentation

◆ fla_apqudut_cntl_leaf

fla_apqudut_t* fla_apqudut_cntl_leaf
extern

Referenced by FLA_Apply_QUD_UT_internal().

◆ flash_apqudut_cntl

fla_apqudut_t* flash_apqudut_cntl
extern

Referenced by FLA_Apply_QUD_UT_internal(), FLASH_Apply_QUD_UT_cntl_finalize(), and FLASH_Apply_QUD_UT_cntl_init().

◆ flash_apqudut_cntl_leaf

fla_apqudut_t* flash_apqudut_cntl_leaf
extern

Referenced by FLASH_Apply_QUD_UT_cntl_finalize(), and FLASH_Apply_QUD_UT_cntl_init().

Generated on Thu Sep 23 2021 17:46:17 for libflame by doxygen 1.12.0