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