FLASH_Eig_gest_cntl_init.c File Reference

(r12600)

Functions
void	FLASH_Eig_gest_cntl_init ()
void	FLASH_Eig_gest_cntl_finalize ()
Variables
fla_axpy_t *	flash_axpy_cntl
fla_gemm_t *	flash_gemm_cntl_mm
fla_hemm_t *	flash_hemm_cntl_mm
fla_her2k_t *	flash_her2k_cntl_mm
fla_trmm_t *	flash_trmm_cntl_mm
fla_trsm_t *	flash_trsm_cntl_mm
fla_eig_gest_t *	flash_eig_gest_cntl_leaf
fla_eig_gest_t *	flash_eig_gest_cntl
fla_blocksize_t *	flash_eig_gest_bsize

---

Function Documentation

void FLASH_Eig_gest_cntl_finalize

(

void

)

References FLA_Blocksize_free(), and FLA_Cntl_obj_free().

Referenced by FLA_Cntl_finalize_flash().

{
    FLA_Cntl_obj_free( flash_eig_gest_cntl_leaf );
    FLA_Cntl_obj_free( flash_eig_gest_cntl );

    FLA_Blocksize_free( flash_eig_gest_bsize );
}

void FLASH_Eig_gest_cntl_init

(

void

)

References FLA_Blocksize_create(), and FLA_Cntl_eig_gest_obj_create().

Referenced by FLA_Cntl_init_flash().

{
    // Set blocksize for hierarchical storage.
    flash_eig_gest_bsize       = FLA_Blocksize_create( 1, 1, 1, 1 );

    // Create a control tree that assumes A is a b x b block.
    flash_eig_gest_cntl_leaf   = FLA_Cntl_eig_gest_obj_create( FLA_HIER,
                                                               FLA_SUBPROBLEM,
                                                               NULL,
                                                               NULL,
                                                               NULL,
                                                               NULL,
                                                               NULL,
                                                               NULL,
                                                               NULL,
                                                               NULL,
                                                               NULL,
                                                               NULL,
                                                               NULL,
                                                               NULL,
                                                               NULL );

    // Create a control tree that assumes A is large.
    flash_eig_gest_cntl        = FLA_Cntl_eig_gest_obj_create( FLA_HIER,
                                                               FLA_BLOCKED_VARIANT1, 
                                                               flash_eig_gest_bsize,
                                                               flash_eig_gest_cntl_leaf,
                                                               flash_axpy_cntl,
                                                               flash_axpy_cntl,
                                                               NULL,
                                                               NULL,
                                                               NULL,
                                                               flash_hemm_cntl_mm,
                                                               flash_her2k_cntl_mm,
                                                               flash_trmm_cntl_mm,
                                                               flash_trmm_cntl_mm,
                                                               flash_trsm_cntl_mm,
                                                               flash_trsm_cntl_mm );
}

---

Variable Documentation

fla_axpy_t* flash_axpy_cntl

fla_blocksize_t* flash_eig_gest_bsize

fla_eig_gest_t* flash_eig_gest_cntl

fla_eig_gest_t* flash_eig_gest_cntl_leaf

fla_gemm_t* flash_gemm_cntl_mm

fla_hemm_t* flash_hemm_cntl_mm

fla_her2k_t* flash_her2k_cntl_mm

fla_trmm_t* flash_trmm_cntl_mm

fla_trsm_t* flash_trsm_cntl_mm