libflame  revision_anchor
Functions
FLA_Eig_gest_iu.c File Reference

(r)

Functions

FLA_Error FLA_Eig_gest_iu (FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
 

Function Documentation

◆ FLA_Eig_gest_iu()

FLA_Error FLA_Eig_gest_iu ( FLA_Obj  A,
FLA_Obj  Y,
FLA_Obj  B,
fla_eig_gest_t cntl 
)

References FLA_Eig_gest_iu_blk_ext(), FLA_Eig_gest_iu_blk_var1(), FLA_Eig_gest_iu_blk_var2(), FLA_Eig_gest_iu_blk_var3(), FLA_Eig_gest_iu_blk_var4(), FLA_Eig_gest_iu_blk_var5(), FLA_Eig_gest_iu_opt_var1(), FLA_Eig_gest_iu_opt_var2(), FLA_Eig_gest_iu_opt_var3(), FLA_Eig_gest_iu_opt_var4(), FLA_Eig_gest_iu_opt_var5(), FLA_Eig_gest_iu_unb_ext(), FLA_Eig_gest_iu_unb_var1(), FLA_Eig_gest_iu_unb_var2(), FLA_Eig_gest_iu_unb_var3(), FLA_Eig_gest_iu_unb_var4(), and FLA_Eig_gest_iu_unb_var5().

Referenced by FLA_Eig_gest_internal().

14 {
15  FLA_Error r_val = FLA_SUCCESS;
16 
17  if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_EXTERN )
18  {
19  r_val = FLA_Eig_gest_iu_blk_ext( A, B );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_EXTERN )
22  {
23  r_val = FLA_Eig_gest_iu_unb_ext( A, B );
24  }
25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
26  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 )
27  {
28  r_val = FLA_Eig_gest_iu_unb_var1( A, Y, B );
29  }
30  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
31  {
32  r_val = FLA_Eig_gest_iu_unb_var2( A, Y, B );
33  }
34  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
35  {
36  r_val = FLA_Eig_gest_iu_unb_var3( A, Y, B );
37  }
38  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
39  {
40  r_val = FLA_Eig_gest_iu_unb_var4( A, Y, B );
41  }
42  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
43  {
44  r_val = FLA_Eig_gest_iu_unb_var5( A, Y, B );
45  }
46 #endif
47 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
48  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT1 )
49  {
50  r_val = FLA_Eig_gest_iu_opt_var1( A, Y, B );
51  }
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT2 )
53  {
54  r_val = FLA_Eig_gest_iu_opt_var2( A, Y, B );
55  }
56 #endif
57  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT3 )
58  {
59  r_val = FLA_Eig_gest_iu_opt_var3( A, Y, B );
60  }
61 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
62  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT4 )
63  {
64  r_val = FLA_Eig_gest_iu_opt_var4( A, Y, B );
65  }
66  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT5 )
67  {
68  r_val = FLA_Eig_gest_iu_opt_var5( A, Y, B );
69  }
70 #endif
71 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
72  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
73  {
74  r_val = FLA_Eig_gest_iu_blk_var1( A, Y, B, cntl );
75  }
76  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
77  {
78  r_val = FLA_Eig_gest_iu_blk_var2( A, Y, B, cntl );
79  }
80  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
81  {
82  r_val = FLA_Eig_gest_iu_blk_var3( A, Y, B, cntl );
83  }
84 #endif
85  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
86  {
87  r_val = FLA_Eig_gest_iu_blk_var4( A, Y, B, cntl );
88  }
89 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
90  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
91  {
92  r_val = FLA_Eig_gest_iu_blk_var5( A, Y, B, cntl );
93  }
94 #endif
95  else
96  {
97  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
98  }
99 
100  return r_val;
101 }
FLA_Error FLA_Eig_gest_iu_opt_var1(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_iu_opt_var1.c:13
FLA_Error FLA_Eig_gest_iu_opt_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_iu_opt_var2.c:13
FLA_Error FLA_Eig_gest_iu_opt_var3(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_iu_opt_var3.c:13
FLA_Error FLA_Eig_gest_iu_unb_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_iu_unb_var2.c:13
FLA_Error FLA_Eig_gest_iu_unb_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_iu_unb_var5.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Eig_gest_iu_unb_ext(FLA_Obj A, FLA_Obj B)
Definition: FLA_Eig_gest_unb_external.c:119
FLA_Error FLA_Eig_gest_iu_blk_var3(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_iu_blk_var3.c:15
FLA_Error FLA_Eig_gest_iu_unb_var4(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_iu_unb_var4.c:13
FLA_Error FLA_Eig_gest_iu_blk_var1(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_iu_blk_var1.c:15
FLA_Error FLA_Eig_gest_iu_blk_ext(FLA_Obj A, FLA_Obj B)
Definition: FLA_Eig_gest_blk_external.c:119
FLA_Error FLA_Eig_gest_iu_opt_var4(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_iu_opt_var4.c:13
FLA_Error FLA_Eig_gest_iu_opt_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_iu_opt_var5.c:13
FLA_Error FLA_Eig_gest_iu_unb_var3(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_iu_unb_var3.c:13
FLA_Error FLA_Eig_gest_iu_unb_var1(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_iu_unb_var1.c:13
FLA_Error FLA_Eig_gest_iu_blk_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_iu_blk_var5.c:15
FLA_Error FLA_Eig_gest_iu_blk_var4(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_iu_blk_var4.c:13
FLA_Error FLA_Eig_gest_iu_blk_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_iu_blk_var2.c:15