libflame  revision_anchor
Functions
FLA_Bidiag_UT_u.c File Reference

(r)

Functions

FLA_Error FLA_Bidiag_UT_u (FLA_Obj A, FLA_Obj TU, FLA_Obj TV, fla_bidiagut_t *cntl)
 

Function Documentation

◆ FLA_Bidiag_UT_u()

FLA_Error FLA_Bidiag_UT_u ( FLA_Obj  A,
FLA_Obj  TU,
FLA_Obj  TV,
fla_bidiagut_t cntl 
)

References FLA_Bidiag_UT_u_blf_var2(), FLA_Bidiag_UT_u_blf_var3(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var1(), FLA_Bidiag_UT_u_blk_var2(), FLA_Bidiag_UT_u_blk_var3(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_opt_var1(), FLA_Bidiag_UT_u_opt_var2(), FLA_Bidiag_UT_u_opt_var3(), FLA_Bidiag_UT_u_opt_var4(), FLA_Bidiag_UT_u_opt_var5(), FLA_Bidiag_UT_u_unb_var1(), FLA_Bidiag_UT_u_unb_var2(), FLA_Bidiag_UT_u_unb_var3(), FLA_Bidiag_UT_u_unb_var4(), and FLA_Bidiag_UT_u_unb_var5().

Referenced by FLA_Bidiag_UT_internal().

14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
18  {
19  r_val = FLA_Bidiag_UT_u_unb_var1( A, TU, TV );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
22  {
23  r_val = FLA_Bidiag_UT_u_unb_var2( A, TU, TV );
24  }
25  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
26  {
27  r_val = FLA_Bidiag_UT_u_unb_var3( A, TU, TV );
28  }
29  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
30  {
31  r_val = FLA_Bidiag_UT_u_unb_var4( A, TU, TV );
32  }
33  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
34  {
35  r_val = FLA_Bidiag_UT_u_unb_var5( A, TU, TV );
36  }
37  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT1 )
38  {
39  r_val = FLA_Bidiag_UT_u_opt_var1( A, TU, TV );
40  }
41  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT2 )
42  {
43  r_val = FLA_Bidiag_UT_u_opt_var2( A, TU, TV );
44  }
45  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT3 )
46  {
47  r_val = FLA_Bidiag_UT_u_opt_var3( A, TU, TV );
48  }
49  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT4 )
50  {
51  r_val = FLA_Bidiag_UT_u_opt_var4( A, TU, TV );
52  }
53  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT5 )
54  {
55  r_val = FLA_Bidiag_UT_u_opt_var5( A, TU, TV );
56  }
57  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
58  {
59  r_val = FLA_Bidiag_UT_u_blk_var1( A, TU, TV );
60  }
61  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
62  {
63  r_val = FLA_Bidiag_UT_u_blk_var2( A, TU, TV );
64  }
65  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
66  {
67  r_val = FLA_Bidiag_UT_u_blk_var3( A, TU, TV );
68  }
69  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
70  {
71  r_val = FLA_Bidiag_UT_u_blk_var4( A, TU, TV );
72  }
73  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
74  {
75  r_val = FLA_Bidiag_UT_u_blk_var5( A, TU, TV );
76  }
77  else if ( FLA_Cntl_variant( cntl ) == FLA_BLK_FUS_VARIANT2 )
78  {
79  r_val = FLA_Bidiag_UT_u_blf_var2( A, TU, TV );
80  }
81  else if ( FLA_Cntl_variant( cntl ) == FLA_BLK_FUS_VARIANT3 )
82  {
83  r_val = FLA_Bidiag_UT_u_blf_var3( A, TU, TV );
84  }
85  else if ( FLA_Cntl_variant( cntl ) == FLA_BLK_FUS_VARIANT4 )
86  {
87  r_val = FLA_Bidiag_UT_u_blf_var4( A, TU, TV );
88  }
89  else
90  {
91  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
92  }
93 
94  return r_val;
95 }
FLA_Error FLA_Bidiag_UT_u_unb_var1(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_unb_var1.c:13
FLA_Error FLA_Bidiag_UT_u_blk_var3(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_blk_var3.c:13
FLA_Error FLA_Bidiag_UT_u_blk_var4(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_blk_var4.c:13
FLA_Error FLA_Bidiag_UT_u_opt_var1(FLA_Obj A, FLA_Obj T, FLA_Obj S)
Definition: FLA_Bidiag_UT_u_opt_var1.c:13
FLA_Error FLA_Bidiag_UT_u_unb_var4(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_unb_var4.c:13
FLA_Error FLA_Bidiag_UT_u_blk_var5(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_blk_var5.c:13
FLA_Error FLA_Bidiag_UT_u_blk_var1(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_blk_var1.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Bidiag_UT_u_blf_var2(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_blf_var2.c:13
FLA_Error FLA_Bidiag_UT_u_unb_var3(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_unb_var3.c:13
FLA_Error FLA_Bidiag_UT_u_opt_var3(FLA_Obj A, FLA_Obj T, FLA_Obj S)
Definition: FLA_Bidiag_UT_u_opt_var3.c:13
FLA_Error FLA_Bidiag_UT_u_opt_var2(FLA_Obj A, FLA_Obj T, FLA_Obj S)
Definition: FLA_Bidiag_UT_u_opt_var2.c:13
FLA_Error FLA_Bidiag_UT_u_opt_var5(FLA_Obj A, FLA_Obj T, FLA_Obj S)
Definition: FLA_Bidiag_UT_u_opt_var5.c:13
FLA_Error FLA_Bidiag_UT_u_blk_var2(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_blk_var2.c:13
FLA_Error FLA_Bidiag_UT_u_blf_var3(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_blf_var3.c:13
FLA_Error FLA_Bidiag_UT_u_unb_var2(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_unb_var2.c:13
FLA_Error FLA_Bidiag_UT_u_opt_var4(FLA_Obj A, FLA_Obj T, FLA_Obj S)
Definition: FLA_Bidiag_UT_u_opt_var4.c:13
FLA_Error FLA_Bidiag_UT_u_unb_var5(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_unb_var5.c:13
FLA_Error FLA_Bidiag_UT_u_blf_var4(FLA_Obj A, FLA_Obj TU, FLA_Obj TV)
Definition: FLA_Bidiag_UT_u_blf_var4.c:13