libflame  revision_anchor
Functions
FLA_Eig_gest.h File Reference

(r)

Go to the source code of this file.

Functions

FLA_Error FLA_Eig_gest_internal (FLA_Inv inv, FLA_Uplo uplo, FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
 
FLA_Error FLA_Eig_gest_il (FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
 
FLA_Error FLA_Eig_gest_iu (FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
 
FLA_Error FLA_Eig_gest_nl (FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
 
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_il()

FLA_Error FLA_Eig_gest_il ( FLA_Obj  A,
FLA_Obj  Y,
FLA_Obj  B,
fla_eig_gest_t cntl 
)
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_il_blk_ext( A, B );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_EXTERN )
22  {
23  r_val = FLA_Eig_gest_il_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_il_unb_var1( A, Y, B );
29  }
30  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
31  {
32  r_val = FLA_Eig_gest_il_unb_var2( A, Y, B );
33  }
34  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 )
35  {
36  r_val = FLA_Eig_gest_il_unb_var3( A, Y, B );
37  }
38  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
39  {
40  r_val = FLA_Eig_gest_il_unb_var4( A, Y, B );
41  }
42  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
43  {
44  r_val = FLA_Eig_gest_il_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_il_opt_var1( A, Y, B );
51  }
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT2 )
53  {
54  r_val = FLA_Eig_gest_il_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_il_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_il_opt_var4( A, Y, B );
65  }
66  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT5 )
67  {
68  r_val = FLA_Eig_gest_il_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_il_blk_var1( A, Y, B, cntl );
75  }
76  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
77  {
78  r_val = FLA_Eig_gest_il_blk_var2( A, Y, B, cntl );
79  }
80  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
81  {
82  r_val = FLA_Eig_gest_il_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_il_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_il_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_il_unb_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_il_unb_var2.c:13
FLA_Error FLA_Eig_gest_il_opt_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_il_opt_var5.c:13
FLA_Error FLA_Eig_gest_il_unb_var3(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_il_unb_var3.c:13
FLA_Error FLA_Eig_gest_il_opt_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_il_opt_var2.c:13
FLA_Error FLA_Eig_gest_il_blk_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_il_blk_var5.c:15
FLA_Error FLA_Eig_gest_il_blk_var1(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_il_blk_var1.c:15
FLA_Error FLA_Eig_gest_il_blk_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_il_blk_var2.c:15
FLA_Error FLA_Eig_gest_il_unb_var4(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_il_unb_var4.c:13
FLA_Error FLA_Eig_gest_il_blk_var4(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_il_blk_var4.c:13
FLA_Error FLA_Eig_gest_il_opt_var4(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_il_opt_var4.c:13
FLA_Error FLA_Eig_gest_il_opt_var1(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_il_opt_var1.c:13
FLA_Error FLA_Eig_gest_il_opt_var3(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_il_opt_var3.c:13
FLA_Error FLA_Eig_gest_il_unb_var1(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_il_unb_var1.c:13
FLA_Error FLA_Eig_gest_il_unb_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_il_unb_var5.c:13
FLA_Error FLA_Eig_gest_il_blk_var3(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_il_blk_var3.c:15
FLA_Error FLA_Eig_gest_il_unb_ext(FLA_Obj A, FLA_Obj B)
Definition: FLA_Eig_gest_unb_external.c:114
FLA_Error FLA_Eig_gest_il_blk_ext(FLA_Obj A, FLA_Obj B)
Definition: FLA_Eig_gest_blk_external.c:114
int FLA_Error
Definition: FLA_type_defs.h:47

References FLA_Eig_gest_il_blk_ext(), FLA_Eig_gest_il_blk_var1(), FLA_Eig_gest_il_blk_var2(), FLA_Eig_gest_il_blk_var3(), FLA_Eig_gest_il_blk_var4(), FLA_Eig_gest_il_blk_var5(), FLA_Eig_gest_il_opt_var1(), FLA_Eig_gest_il_opt_var2(), FLA_Eig_gest_il_opt_var3(), FLA_Eig_gest_il_opt_var4(), FLA_Eig_gest_il_opt_var5(), FLA_Eig_gest_il_unb_ext(), FLA_Eig_gest_il_unb_var1(), FLA_Eig_gest_il_unb_var2(), FLA_Eig_gest_il_unb_var3(), FLA_Eig_gest_il_unb_var4(), and FLA_Eig_gest_il_unb_var5().

Referenced by FLA_Eig_gest_internal().

◆ FLA_Eig_gest_internal()

FLA_Error FLA_Eig_gest_internal ( FLA_Inv  inv,
FLA_Uplo  uplo,
FLA_Obj  A,
FLA_Obj  Y,
FLA_Obj  B,
fla_eig_gest_t cntl 
)
18 {
19  FLA_Error r_val = FLA_SUCCESS;
20 
21  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
22  FLA_Eig_gest_internal_check( inv, uplo, A, Y, B, cntl );
23 
24  if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
25  FLA_Obj_elemtype( A ) == FLA_MATRIX &&
26  FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
27  {
28  // Recurse
29  r_val = FLA_Eig_gest_internal( inv,
30  uplo,
31  *FLASH_OBJ_PTR_AT( A ),
32  *FLASH_OBJ_PTR_AT( Y ),
33  *FLASH_OBJ_PTR_AT( B ),
35  }
36  else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
37  FLA_Obj_elemtype( A ) == FLA_SCALAR &&
39  {
40  // Enqueue
41  ENQUEUE_FLASH_Eig_gest( inv, uplo, A, Y, B, cntl );
42  }
43  else
44  {
45  if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
46  FLA_Obj_elemtype( A ) == FLA_SCALAR &&
48  {
49  // Execute leaf
50  if ( inv == FLA_INVERSE )
52  else
54  }
55 
56  // Parameter combinations
57  if ( inv == FLA_INVERSE )
58  {
59  if ( uplo == FLA_LOWER_TRIANGULAR )
60  {
61  r_val = FLA_Eig_gest_il( A, Y, B, cntl );
62  }
63  else if ( uplo == FLA_UPPER_TRIANGULAR )
64  {
65  r_val = FLA_Eig_gest_iu( A, Y, B, cntl );
66  }
67  }
68  else if ( inv == FLA_NO_INVERSE )
69  {
70  if ( uplo == FLA_LOWER_TRIANGULAR )
71  {
72  r_val = FLA_Eig_gest_nl( A, Y, B, cntl );
73  }
74  else if ( uplo == FLA_UPPER_TRIANGULAR )
75  {
76  r_val = FLA_Eig_gest_nu( A, Y, B, cntl );
77  }
78  }
79  }
80 
81  return r_val;
82 }
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_Eig_gest_il(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_il.c:13
FLA_Error FLA_Eig_gest_nu(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_nu.c:13
FLA_Error FLA_Eig_gest_iu(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_iu.c:13
FLA_Error FLA_Eig_gest_nl(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_nl.c:13
fla_eig_gest_t * fla_eig_gest_nx_cntl_leaf
Definition: FLA_Eig_gest_cntl_init.c:23
fla_eig_gest_t * flash_eig_gest_cntl
Definition: FLASH_Eig_gest_cntl_init.c:21
fla_eig_gest_t * fla_eig_gest_ix_cntl_leaf
Definition: FLA_Eig_gest_cntl_init.c:22
FLA_Error FLA_Eig_gest_internal(FLA_Inv inv, FLA_Uplo uplo, FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_internal.c:17
FLA_Error FLA_Eig_gest_internal_check(FLA_Inv inv, FLA_Uplo uplo, FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_internal_check.c:13
FLA_Elemtype FLA_Obj_elemtype(FLA_Obj obj)
Definition: FLA_Query.c:51
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18

References FLA_Check_error_level(), FLA_Eig_gest_il(), FLA_Eig_gest_internal(), FLA_Eig_gest_internal_check(), FLA_Eig_gest_iu(), fla_eig_gest_ix_cntl_leaf, FLA_Eig_gest_nl(), FLA_Eig_gest_nu(), fla_eig_gest_nx_cntl_leaf, FLA_Obj_elemtype(), flash_eig_gest_cntl, and FLASH_Queue_get_enabled().

Referenced by FLA_Eig_gest(), FLA_Eig_gest_il_blk_var1(), FLA_Eig_gest_il_blk_var2(), FLA_Eig_gest_il_blk_var3(), FLA_Eig_gest_il_blk_var4(), FLA_Eig_gest_il_blk_var5(), FLA_Eig_gest_il_task(), FLA_Eig_gest_internal(), 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_task(), FLA_Eig_gest_nl_blk_var1(), FLA_Eig_gest_nl_blk_var2(), FLA_Eig_gest_nl_blk_var4(), FLA_Eig_gest_nl_blk_var5(), FLA_Eig_gest_nl_task(), 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_task(), FLA_Eig_gest_task(), and FLASH_Eig_gest().

◆ FLA_Eig_gest_iu()

FLA_Error FLA_Eig_gest_iu ( FLA_Obj  A,
FLA_Obj  Y,
FLA_Obj  B,
fla_eig_gest_t cntl 
)
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_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_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_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_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_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_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_iu_unb_var5.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_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_iu_blk_var2.c:15
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_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_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_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_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_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_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_blk_ext(FLA_Obj A, FLA_Obj B)
Definition: FLA_Eig_gest_blk_external.c:119
FLA_Error FLA_Eig_gest_iu_unb_ext(FLA_Obj A, FLA_Obj B)
Definition: FLA_Eig_gest_unb_external.c:119

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

◆ FLA_Eig_gest_nl()

FLA_Error FLA_Eig_gest_nl ( FLA_Obj  A,
FLA_Obj  Y,
FLA_Obj  B,
fla_eig_gest_t cntl 
)
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_nl_blk_ext( A, B );
20  }
21  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_EXTERN )
22  {
23  r_val = FLA_Eig_gest_nl_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_nl_unb_var1( A, Y, B );
29  }
30  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 )
31  {
32  r_val = FLA_Eig_gest_nl_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_nl_unb_var3( A, Y, B );
38  }
39  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 )
40  {
41  r_val = FLA_Eig_gest_nl_unb_var4( A, Y, B );
42  }
43  else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT5 )
44  {
45  r_val = FLA_Eig_gest_nl_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_nl_opt_var1( A, Y, B );
51  }
52  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT2 )
53  {
54  r_val = FLA_Eig_gest_nl_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_nl_opt_var3( A, Y, B );
60  }
61  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT4 )
62  {
63  r_val = FLA_Eig_gest_nl_opt_var4( A, Y, B );
64  }
65  else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT5 )
66  {
67  r_val = FLA_Eig_gest_nl_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_nl_blk_var1( A, Y, B, cntl );
73  }
74  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
75  {
76  r_val = FLA_Eig_gest_nl_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_nl_blk_var3( A, Y, B, cntl );
82  }
83  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
84  {
85  r_val = FLA_Eig_gest_nl_blk_var4( A, Y, B, cntl );
86  }
87  else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
88  {
89  r_val = FLA_Eig_gest_nl_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_nl_opt_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nl_opt_var2.c:13
FLA_Error FLA_Eig_gest_nl_blk_var4(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_nl_blk_var4.c:15
FLA_Error FLA_Eig_gest_nl_opt_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nl_opt_var5.c:13
FLA_Error FLA_Eig_gest_nl_unb_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nl_unb_var5.c:15
FLA_Error FLA_Eig_gest_nl_unb_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nl_unb_var2.c:13
FLA_Error FLA_Eig_gest_nl_blk_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_nl_blk_var2.c:13
FLA_Error FLA_Eig_gest_nl_unb_var1(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nl_unb_var1.c:13
FLA_Error FLA_Eig_gest_nl_blk_var5(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_nl_blk_var5.c:15
FLA_Error FLA_Eig_gest_nl_blk_var1(FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
Definition: FLA_Eig_gest_nl_blk_var1.c:13
FLA_Error FLA_Eig_gest_nl_unb_var4(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nl_unb_var4.c:15
FLA_Error FLA_Eig_gest_nl_opt_var4(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nl_opt_var4.c:13
FLA_Error FLA_Eig_gest_nl_opt_var1(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nl_opt_var1.c:13
FLA_Error FLA_Eig_gest_nl_blk_ext(FLA_Obj A, FLA_Obj B)
Definition: FLA_Eig_gest_blk_external.c:124
FLA_Error FLA_Eig_gest_nl_unb_ext(FLA_Obj A, FLA_Obj B)
Definition: FLA_Eig_gest_unb_external.c:124

References FLA_Eig_gest_nl_blk_ext(), FLA_Eig_gest_nl_blk_var1(), FLA_Eig_gest_nl_blk_var2(), FLA_Eig_gest_nl_blk_var4(), FLA_Eig_gest_nl_blk_var5(), FLA_Eig_gest_nl_opt_var1(), FLA_Eig_gest_nl_opt_var2(), FLA_Eig_gest_nl_opt_var4(), FLA_Eig_gest_nl_opt_var5(), FLA_Eig_gest_nl_unb_ext(), FLA_Eig_gest_nl_unb_var1(), FLA_Eig_gest_nl_unb_var2(), FLA_Eig_gest_nl_unb_var4(), and FLA_Eig_gest_nl_unb_var5().

Referenced by FLA_Eig_gest_internal().

◆ FLA_Eig_gest_nu()

FLA_Error FLA_Eig_gest_nu ( FLA_Obj  A,
FLA_Obj  Y,
FLA_Obj  B,
fla_eig_gest_t cntl 
)
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_var2(FLA_Obj A, FLA_Obj Y, FLA_Obj B)
Definition: FLA_Eig_gest_nu_opt_var2.c:13
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_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_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_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_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_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_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_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
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_unb_ext(FLA_Obj A, FLA_Obj B)
Definition: FLA_Eig_gest_unb_external.c:129

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