Functions | |
void | FLA_QR_UT_UD_cntl_init () |
void | FLA_QR_UT_UD_cntl_finalize () |
Variables | |
fla_gemm_t * | fla_gemm_cntl_blas |
fla_trsm_t * | fla_trsm_cntl_blas |
fla_copy_t * | fla_copy_cntl_blas |
fla_axpy_t * | fla_axpy_cntl_blas |
fla_qrutud_t * | fla_qrutud_cntl_unb |
fla_qrutud_t * | fla_qrutud_cntl_leaf |
fla_blocksize_t * | fla_qrutud_var1_bsize |
void FLA_QR_UT_UD_cntl_finalize | ( | void | ) |
References FLA_Blocksize_free(), and FLA_Cntl_obj_free().
Referenced by FLA_Cntl_finalize_flamec().
00078 { 00079 FLA_Cntl_obj_free( fla_qrutud_cntl_unb ); 00080 FLA_Cntl_obj_free( fla_qrutud_cntl_leaf ); 00081 00082 FLA_Blocksize_free( fla_qrutud_var1_bsize ); 00083 }
void FLA_QR_UT_UD_cntl_init | ( | void | ) |
References FLA_Blocksize_scale(), FLA_Cntl_qrutud_obj_create(), and FLA_Query_blocksizes().
Referenced by FLA_Cntl_init_flamec().
00045 { 00046 // Set the blocksize to the default value for conventional storage, 00047 // but scaled down. 00048 fla_qrutud_var1_bsize = FLA_Query_blocksizes( FLA_DIMENSION_MIN ); 00049 FLA_Blocksize_scale( fla_qrutud_var1_bsize, FLA_QR_INNER_TO_OUTER_B_RATIO ); 00050 00051 // Create a control tree to invoke unblocked variant 1. 00052 fla_qrutud_cntl_unb = FLA_Cntl_qrutud_obj_create( FLA_FLAT, 00053 //FLA_UNBLOCKED_VARIANT1, 00054 FLA_UNB_OPT_VARIANT1, 00055 NULL, 00056 NULL, 00057 NULL, 00058 NULL, 00059 NULL, 00060 NULL, 00061 NULL ); 00062 00063 // Create a control tree for small-to-medium sequential problems and 00064 // as the means to compute on FLASH blocks. 00065 fla_qrutud_cntl_leaf = FLA_Cntl_qrutud_obj_create( FLA_FLAT, 00066 FLA_BLOCKED_VARIANT1, 00067 fla_qrutud_var1_bsize, 00068 fla_qrutud_cntl_unb, 00069 fla_gemm_cntl_blas, 00070 fla_gemm_cntl_blas, 00071 fla_trsm_cntl_blas, 00072 fla_copy_cntl_blas, 00073 fla_axpy_cntl_blas ); 00074 00075 }