Functions | |
void | FLA_Apply_Q_UT_UD_cntl_init () |
void | FLA_Apply_Q_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_apqutud_t * | fla_apqutud_cntl_leaf |
fla_blocksize_t * | fla_apqutud_var1_bsize |
void FLA_Apply_Q_UT_UD_cntl_finalize | ( | void | ) |
References FLA_Blocksize_free(), and FLA_Cntl_obj_free().
Referenced by FLA_Cntl_finalize_flamec().
00063 { 00064 FLA_Cntl_obj_free( fla_apqutud_cntl_leaf ); 00065 00066 FLA_Blocksize_free( fla_apqutud_var1_bsize ); 00067 }
void FLA_Apply_Q_UT_UD_cntl_init | ( | void | ) |
References FLA_Blocksize_scale(), FLA_Cntl_apqutud_obj_create(), and FLA_Query_blocksizes().
Referenced by FLA_Cntl_init_flamec().
00044 { 00045 // Set the blocksize to the default value for conventional storage, 00046 // but scaled down. 00047 fla_apqutud_var1_bsize = FLA_Query_blocksizes( FLA_DIMENSION_MIN ); 00048 FLA_Blocksize_scale( fla_apqutud_var1_bsize, FLA_QR_INNER_TO_OUTER_B_RATIO ); 00049 00050 // Create a control tree to invoke variant 1. 00051 fla_apqutud_cntl_leaf = FLA_Cntl_apqutud_obj_create( FLA_FLAT, 00052 FLA_BLOCKED_VARIANT1, 00053 fla_apqutud_var1_bsize, 00054 NULL, 00055 fla_gemm_cntl_blas, 00056 fla_gemm_cntl_blas, 00057 fla_trsm_cntl_blas, 00058 fla_copy_cntl_blas, 00059 fla_axpy_cntl_blas ); 00060 }