libflame  revision_anchor
Functions
FLA_Eig_gest_nu.c File Reference

(r)

Functions

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

Function Documentation

◆ FLA_Eig_gest_nu()

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

References FLA_Eig_gest_nu_blk_ext(), FLA_Eig_gest_nu_blk_var1(), FLA_Eig_gest_nu_blk_var2(), FLA_Eig_gest_nu_blk_var4(), FLA_Eig_gest_nu_blk_var5(), FLA_Eig_gest_nu_opt_var1(), FLA_Eig_gest_nu_opt_var2(), FLA_Eig_gest_nu_opt_var4(), FLA_Eig_gest_nu_opt_var5(), FLA_Eig_gest_nu_unb_ext(), FLA_Eig_gest_nu_unb_var1(), FLA_Eig_gest_nu_unb_var2(), FLA_Eig_gest_nu_unb_var4(), and FLA_Eig_gest_nu_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_nu_blk_ext( A, B );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_EXTERN )
22  {
23  r_val = FLA_Eig_gest_nu_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_nu_unb_var1( A, Y, B );
29  }
30  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
31  {
32  r_val = FLA_Eig_gest_nu_unb_var2( A, Y, B );
33  }
34 #endif
35  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
36  {
37  //r_val = FLA_Eig_gest_nu_unb_var3( A, Y, B );
38  }
39  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
40  {
41  r_val = FLA_Eig_gest_nu_unb_var4( A, Y, B );
42  }
43  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
44  {
45  r_val = FLA_Eig_gest_nu_unb_var5( A, Y, B );
46  }
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_nu_opt_var1( A, Y, B );
51  }
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT2 )
53  {
54  r_val = FLA_Eig_gest_nu_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_nu_opt_var3( A, Y, B );
60  }
61  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT4 )
62  {
63  r_val = FLA_Eig_gest_nu_opt_var4( A, Y, B );
64  }
65  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT5 )
66  {
67  r_val = FLA_Eig_gest_nu_opt_var5( A, Y, B );
68  }
69 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
70  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
71  {
72  r_val = FLA_Eig_gest_nu_blk_var1( A, Y, B, cntl );
73  }
74  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
75  {
76  r_val = FLA_Eig_gest_nu_blk_var2( A, Y, B, cntl );
77  }
78 #endif
79  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
80  {
81  //r_val = FLA_Eig_gest_nu_blk_var3( A, Y, B, cntl );
82  }
83  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
84  {
85  r_val = FLA_Eig_gest_nu_blk_var4( A, Y, B, cntl );
86  }
87  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
88  {
89  r_val = FLA_Eig_gest_nu_blk_var5( A, Y, B, cntl );
90  }
91  else
92  {
93  FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
94  }
95 
96  return r_val;
97 }
FLA_Error FLA_Eig_gest_nu_blk_var4(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_nu_blk_var4.c:13
FLA_Error FLA_Eig_gest_nu_opt_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nu_opt_var5.c:15
FLA_Error FLA_Eig_gest_nu_opt_var4(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nu_opt_var4.c:15
FLA_Error FLA_Eig_gest_nu_unb_var4(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nu_unb_var4.c:15
FLA_Error FLA_Eig_gest_nu_blk_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_nu_blk_var2.c:15
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Eig_gest_nu_unb_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nu_unb_var5.c:15
FLA_Error FLA_Eig_gest_nu_unb_ext(FLA_Obj A, FLA_Obj B)
Definition: FLA_Eig_gest_unb_external.c:129
FLA_Error FLA_Eig_gest_nu_unb_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nu_unb_var2.c:13
FLA_Error FLA_Eig_gest_nu_unb_var1(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nu_unb_var1.c:13
FLA_Error FLA_Eig_gest_nu_blk_var1(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_nu_blk_var1.c:15
FLA_Error FLA_Eig_gest_nu_opt_var1(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nu_opt_var1.c:13
FLA_Error FLA_Eig_gest_nu_blk_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_nu_blk_var5.c:15
FLA_Error FLA_Eig_gest_nu_blk_ext(FLA_Obj A, FLA_Obj B)
Definition: FLA_Eig_gest_blk_external.c:129
FLA_Error FLA_Eig_gest_nu_opt_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nu_opt_var2.c:13