FLA_Eig_gest_task.c File Reference

(r12600)

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_t *	fla_eig_gest_ix_cntl_leaf
fla_eig_gest_t *	fla_eig_gest_nx_cntl_leaf

---

Function Documentation

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

{
  //return FLA_Eig_gest_unb_external( FLA_INVERSE, FLA_LOWER_TRIANGULAR, A, B );
  return FLA_Eig_gest_internal( FLA_INVERSE, FLA_LOWER_TRIANGULAR, A, Y, B,
                                fla_eig_gest_ix_cntl_leaf );
}

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

{
  //return FLA_Eig_gest_unb_external( FLA_INVERSE, FLA_UPPER_TRIANGULAR, A, B );
  return FLA_Eig_gest_internal( FLA_INVERSE, FLA_UPPER_TRIANGULAR, A, Y, B,
                                fla_eig_gest_ix_cntl_leaf );
}

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

{
  //return FLA_Eig_gest_unb_external( FLA_NO_INVERSE, FLA_LOWER_TRIANGULAR, A, B );
  return FLA_Eig_gest_internal( FLA_NO_INVERSE, FLA_LOWER_TRIANGULAR, A, Y, B,
                                fla_eig_gest_nx_cntl_leaf );
}

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

{
  //return FLA_Eig_gest_unb_external( FLA_NO_INVERSE, FLA_UPPER_TRIANGULAR, A, B );
  return FLA_Eig_gest_internal( FLA_NO_INVERSE, FLA_UPPER_TRIANGULAR, A, Y, B,
                                fla_eig_gest_nx_cntl_leaf );
}

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

{
  fla_eig_gest_t* cntl_leaf;

  if ( inv == FLA_INVERSE )
    cntl_leaf = fla_eig_gest_ix_cntl_leaf;
  else
    cntl_leaf = fla_eig_gest_nx_cntl_leaf;

  return FLA_Eig_gest_internal( inv, uplo, A, Y, B,
                                cntl_leaf );
}

---

Variable Documentation

fla_eig_gest_t* fla_eig_gest_ix_cntl_leaf

fla_eig_gest_t* fla_eig_gest_nx_cntl_leaf