libflame  revision_anchor
Functions | Variables
FLA_Eig_gest_task.c File Reference

(r)

Functions

FLA_Error FLA_Eig_gest_task (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_task (FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
 
FLA_Error FLA_Eig_gest_iu_task (FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
 
FLA_Error FLA_Eig_gest_nl_task (FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
 
FLA_Error FLA_Eig_gest_nu_task (FLA_Obj A, FLA_Obj Y, FLA_Obj B, fla_eig_gest_t *cntl)
 

Variables

fla_eig_gest_tfla_eig_gest_ix_cntl_leaf
 
fla_eig_gest_tfla_eig_gest_nx_cntl_leaf
 

Function Documentation

◆ FLA_Eig_gest_il_task()

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

References FLA_Eig_gest_internal().

30 {
31  //return FLA_Eig_gest_unb_external( FLA_INVERSE, FLA_LOWER_TRIANGULAR, A, B );
32  return FLA_Eig_gest_internal( FLA_INVERSE, FLA_LOWER_TRIANGULAR, A, Y, B,
34 }
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_eig_gest_t * fla_eig_gest_ix_cntl_leaf
Definition: FLA_Eig_gest_cntl_init.c:22

◆ FLA_Eig_gest_iu_task()

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

References FLA_Eig_gest_internal().

37 {
38  //return FLA_Eig_gest_unb_external( FLA_INVERSE, FLA_UPPER_TRIANGULAR, A, B );
39  return FLA_Eig_gest_internal( FLA_INVERSE, FLA_UPPER_TRIANGULAR, A, Y, B,
41 }
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_eig_gest_t * fla_eig_gest_ix_cntl_leaf
Definition: FLA_Eig_gest_cntl_init.c:22

◆ FLA_Eig_gest_nl_task()

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

References FLA_Eig_gest_internal().

44 {
45  //return FLA_Eig_gest_unb_external( FLA_NO_INVERSE, FLA_LOWER_TRIANGULAR, A, B );
46  return FLA_Eig_gest_internal( FLA_NO_INVERSE, FLA_LOWER_TRIANGULAR, A, Y, B,
48 }
fla_eig_gest_t * fla_eig_gest_nx_cntl_leaf
Definition: FLA_Eig_gest_cntl_init.c:23
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_Eig_gest_nu_task()

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

References FLA_Eig_gest_internal().

51 {
52  //return FLA_Eig_gest_unb_external( FLA_NO_INVERSE, FLA_UPPER_TRIANGULAR, A, B );
53  return FLA_Eig_gest_internal( FLA_NO_INVERSE, FLA_UPPER_TRIANGULAR, A, Y, B,
55 }
fla_eig_gest_t * fla_eig_gest_nx_cntl_leaf
Definition: FLA_Eig_gest_cntl_init.c:23
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_Eig_gest_task()

FLA_Error FLA_Eig_gest_task ( FLA_Inv  inv,
FLA_Uplo  uplo,
FLA_Obj  A,
FLA_Obj  Y,
FLA_Obj  B,
fla_eig_gest_t cntl 
)

References FLA_Eig_gest_internal(), fla_eig_gest_ix_cntl_leaf, and fla_eig_gest_nx_cntl_leaf.

Referenced by FLASH_Queue_exec_task().

17 {
18  fla_eig_gest_t* cntl_leaf;
19 
20  if ( inv == FLA_INVERSE )
21  cntl_leaf = fla_eig_gest_ix_cntl_leaf;
22  else
23  cntl_leaf = fla_eig_gest_nx_cntl_leaf;
24 
25  return FLA_Eig_gest_internal( inv, uplo, A, Y, B,
26  cntl_leaf );
27 }
fla_eig_gest_t * fla_eig_gest_nx_cntl_leaf
Definition: FLA_Eig_gest_cntl_init.c:23
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_eig_gest_t * fla_eig_gest_ix_cntl_leaf
Definition: FLA_Eig_gest_cntl_init.c:22
Definition: FLA_Cntl_lapack.h:355

Variable Documentation

◆ fla_eig_gest_ix_cntl_leaf

fla_eig_gest_t* fla_eig_gest_ix_cntl_leaf

Referenced by FLA_Eig_gest_task().

◆ fla_eig_gest_nx_cntl_leaf

fla_eig_gest_t* fla_eig_gest_nx_cntl_leaf

Referenced by FLA_Eig_gest_task().