libflame  revision_anchor
Functions
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 
)

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

18 {
19  FLA_Error r_val = FLA_SUCCESS;
20 
21  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
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 }
int FLA_Error
Definition: FLA_type_defs.h:47
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
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
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