FLA_Apply_QUD_UT_inc_internal.c File Reference
(r)
Functions | |
| FLA_Error | FLA_Apply_QUD_UT_inc_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_apqudutinc_t *cntl) |
Function Documentation
◆ FLA_Apply_QUD_UT_inc_internal()
| FLA_Error FLA_Apply_QUD_UT_inc_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_apqudutinc_t * | cntl ) |
18{
19 FLA_Error r_val = FLA_SUCCESS;
20
22 FLA_Apply_QUD_UT_inc_internal_check( side, trans, direct, storev, T, W, R, U, C, V, D, cntl );
23
24 if ( side == FLA_LEFT )
25 {
26 if ( trans == FLA_NO_TRANSPOSE )
27 {
28 if ( direct == FLA_FORWARD )
29 {
30 if ( storev == FLA_COLUMNWISE )
31 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
32 else if ( storev == FLA_ROWWISE )
33 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
34 }
35 else if ( direct == FLA_BACKWARD )
36 {
37 if ( storev == FLA_COLUMNWISE )
38 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
39 else if ( storev == FLA_ROWWISE )
40 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
41 }
42 }
43 else if ( trans == FLA_TRANSPOSE || trans == FLA_CONJ_TRANSPOSE )
44 {
45 if ( direct == FLA_FORWARD )
46 {
47 if ( storev == FLA_COLUMNWISE )
48 r_val = FLA_Apply_QUD_UT_inc_lhfc( T, W, R, U, C, V, D, cntl );
49 else if ( storev == FLA_ROWWISE )
50 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
51 }
52 else if ( direct == FLA_BACKWARD )
53 {
54 if ( storev == FLA_COLUMNWISE )
55 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
56 else if ( storev == FLA_ROWWISE )
57 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
58 }
59 }
60 }
61 else if ( side == FLA_RIGHT )
62 {
63 if ( trans == FLA_NO_TRANSPOSE )
64 {
65 if ( direct == FLA_FORWARD )
66 {
67 if ( storev == FLA_COLUMNWISE )
68 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
69 else if ( storev == FLA_ROWWISE )
70 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
71 }
72 else if ( direct == FLA_BACKWARD )
73 {
74 if ( storev == FLA_COLUMNWISE )
75 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
76 else if ( storev == FLA_ROWWISE )
77 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
78 }
79 }
80 else if ( trans == FLA_TRANSPOSE || trans == FLA_CONJ_TRANSPOSE )
81 {
82 if ( direct == FLA_FORWARD )
83 {
84 if ( storev == FLA_COLUMNWISE )
85 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
86 else if ( storev == FLA_ROWWISE )
87 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
88 }
89 else if ( direct == FLA_BACKWARD )
90 {
91 if ( storev == FLA_COLUMNWISE )
92 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
93 else if ( storev == FLA_ROWWISE )
94 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
95 }
96 }
97 }
98
99 return r_val;
100}
FLA_Error FLA_Apply_QUD_UT_inc_lhfc(FLA_Obj T, FLA_Obj W, FLA_Obj R, FLA_Obj U, FLA_Obj C, FLA_Obj V, FLA_Obj D, fla_apqudutinc_t *cntl)
Definition FLA_Apply_QUD_UT_inc_lhfc.c:13
FLA_Error FLA_Apply_QUD_UT_inc_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_apqudutinc_t *cntl)
Definition FLA_Apply_QUD_UT_inc_internal_check.c:13
References FLA_Apply_QUD_UT_inc_internal_check(), FLA_Apply_QUD_UT_inc_lhfc(), and FLA_Check_error_level().
Referenced by FLASH_Apply_QUD_UT_inc().
Generated on Thu Sep 23 2021 17:46:17 for libflame by
1.12.0