libflame  revision_anchor
Functions
FLA_Apply_Q_UT_inc_internal.c File Reference

(r)

Functions

FLA_Error FLA_Apply_Q_UT_inc_internal (FLA_Side side, FLA_Trans trans, FLA_Direct direct, FLA_Store storev, FLA_Obj A, FLA_Obj TW, FLA_Obj W1, FLA_Obj B, fla_apqutinc_t *cntl)
 

Function Documentation

◆ FLA_Apply_Q_UT_inc_internal()

FLA_Error FLA_Apply_Q_UT_inc_internal ( FLA_Side  side,
FLA_Trans  trans,
FLA_Direct  direct,
FLA_Store  storev,
FLA_Obj  A,
FLA_Obj  TW,
FLA_Obj  W1,
FLA_Obj  B,
fla_apqutinc_t cntl 
)
16 {
17  FLA_Error r_val = FLA_SUCCESS;
18 
19  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
20  FLA_Apply_Q_UT_inc_internal_check( side, trans, direct, storev, A, TW, W1, B, cntl );
21 
22  if ( side == FLA_LEFT )
23  {
24  if ( trans == FLA_NO_TRANSPOSE )
25  {
26  if ( direct == FLA_FORWARD )
27  {
28  if ( storev == FLA_COLUMNWISE )
29  r_val = FLA_Apply_Q_UT_inc_lnfc( A, TW, W1, B, cntl );
30  else if ( storev == FLA_ROWWISE )
31  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
32  }
33  else if ( direct == FLA_BACKWARD )
34  {
35  if ( storev == FLA_COLUMNWISE )
36  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
37  else if ( storev == FLA_ROWWISE )
38  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
39  }
40  }
41  else if ( trans == FLA_TRANSPOSE || trans == FLA_CONJ_TRANSPOSE )
42  {
43  if ( direct == FLA_FORWARD )
44  {
45  if ( storev == FLA_COLUMNWISE )
46  r_val = FLA_Apply_Q_UT_inc_lhfc( A, TW, W1, B, cntl );
47  else if ( storev == FLA_ROWWISE )
48  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
49  }
50  else if ( direct == FLA_BACKWARD )
51  {
52  if ( storev == FLA_COLUMNWISE )
53  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
54  else if ( storev == FLA_ROWWISE )
55  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
56  }
57  }
58  }
59  else if ( side == FLA_RIGHT )
60  {
61  if ( trans == FLA_NO_TRANSPOSE )
62  {
63  if ( direct == FLA_FORWARD )
64  {
65  if ( storev == FLA_COLUMNWISE )
66  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
67  else if ( storev == FLA_ROWWISE )
68  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
69  }
70  else if ( direct == FLA_BACKWARD )
71  {
72  if ( storev == FLA_COLUMNWISE )
73  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
74  else if ( storev == FLA_ROWWISE )
75  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
76  }
77  }
78  else if ( trans == FLA_TRANSPOSE || trans == FLA_CONJ_TRANSPOSE )
79  {
80  if ( direct == FLA_FORWARD )
81  {
82  if ( storev == FLA_COLUMNWISE )
83  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
84  else if ( storev == FLA_ROWWISE )
85  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
86  }
87  else if ( direct == FLA_BACKWARD )
88  {
89  if ( storev == FLA_COLUMNWISE )
90  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
91  else if ( storev == FLA_ROWWISE )
92  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
93  }
94  }
95  }
96 
97  return r_val;
98 }
FLA_Error FLA_Apply_Q_UT_inc_lhfc(FLA_Obj A, FLA_Obj TW, FLA_Obj W1, FLA_Obj B, fla_apqutinc_t *cntl)
Definition: FLA_Apply_Q_UT_inc_lhfc.c:13
FLA_Error FLA_Apply_Q_UT_inc_lnfc(FLA_Obj A, FLA_Obj TW, FLA_Obj W1, FLA_Obj B, fla_apqutinc_t *cntl)
Definition: FLA_Apply_Q_UT_inc_lnfc.c:13
FLA_Error FLA_Apply_Q_UT_inc_internal_check(FLA_Side side, FLA_Trans trans, FLA_Direct direct, FLA_Store storev, FLA_Obj A, FLA_Obj TW, FLA_Obj W1, FLA_Obj B, fla_apqutinc_t *cntl)
Definition: FLA_Apply_Q_UT_inc_internal_check.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
int FLA_Error
Definition: FLA_type_defs.h:47

References FLA_Apply_Q_UT_inc_internal_check(), FLA_Apply_Q_UT_inc_lhfc(), FLA_Apply_Q_UT_inc_lnfc(), and FLA_Check_error_level().

Referenced by FLASH_Apply_Q_UT_inc().