libflame revision_anchor
FLA_Eig_gest.c File Reference

(r)

Functions

FLA_Error FLA_Eig_gest (FLA_Inv inv, FLA_Uplo uplo, FLA_Obj A, FLA_Obj B)
 

Variables

fla_eig_gest_t * fla_eig_gest_ix_cntl
 
fla_eig_gest_t * fla_eig_gest_nx_cntl
 

Function Documentation

◆ FLA_Eig_gest()

FLA_Error FLA_Eig_gest ( FLA_Inv inv,
FLA_Uplo uplo,
FLA_Obj A,
FLA_Obj B )
17{
18 FLA_Obj Y;
19 FLA_Error r_val;
20
21 // Check parameters.
22 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
23 FLA_Eig_gest_check( inv, uplo, A, B );
24
25 FLA_Obj_create_conf_to( FLA_NO_TRANSPOSE, A, &Y );
26
27 // Invoke FLA_Eig_gest_internal() with the appropriate control tree.
28 if ( inv == FLA_INVERSE )
29 r_val = FLA_Eig_gest_internal( inv, uplo, A, Y, B, fla_eig_gest_ix_cntl );
30 else
31 r_val = FLA_Eig_gest_internal( inv, uplo, A, Y, B, fla_eig_gest_nx_cntl );
32
33 FLA_Obj_free( &Y );
34
35 return r_val;
36}
fla_eig_gest_t * fla_eig_gest_nx_cntl
Definition FLA_Eig_gest_cntl_init.c:21
fla_eig_gest_t * fla_eig_gest_ix_cntl
Definition FLA_Eig_gest_cntl_init.c:20
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_check(FLA_Inv inv, FLA_Uplo uplo, FLA_Obj A, FLA_Obj B)
Definition FLA_Eig_gest_check.c:13
unsigned int FLA_Check_error_level(void)
Definition FLA_Check.c:18
FLA_Error FLA_Obj_create_conf_to(FLA_Trans trans, FLA_Obj old, FLA_Obj *obj)
Definition FLA_Obj.c:286
FLA_Error FLA_Obj_free(FLA_Obj *obj)
Definition FLA_Obj.c:588
int FLA_Error
Definition FLA_type_defs.h:47
Definition FLA_type_defs.h:159

References FLA_Check_error_level(), FLA_Eig_gest_check(), FLA_Eig_gest_internal(), fla_eig_gest_ix_cntl, fla_eig_gest_nx_cntl, FLA_Obj_create_conf_to(), and FLA_Obj_free().

Variable Documentation

◆ fla_eig_gest_ix_cntl

fla_eig_gest_t* fla_eig_gest_ix_cntl
extern

◆ fla_eig_gest_nx_cntl

fla_eig_gest_t* fla_eig_gest_nx_cntl
extern