Functions | |
void | FLA_QR_UT_cntl_init () |
void | FLA_QR_UT_cntl_finalize () |
Variables | |
fla_gemm_t * | fla_gemm_cntl_blas |
fla_trmm_t * | fla_trmm_cntl_blas |
fla_trsm_t * | fla_trsm_cntl_blas |
fla_copy_t * | fla_copy_cntl_blas |
fla_axpy_t * | fla_axpy_cntl_blas |
fla_qrut_t * | fla_qrut_cntl_unb |
fla_qrut_t * | fla_qrut_cntl_leaf |
fla_blocksize_t * | fla_qrut_var2_bsize_leaf |
void FLA_QR_UT_cntl_finalize | ( | void | ) |
References FLA_Blocksize_free(), and FLA_Cntl_obj_free().
Referenced by FLA_Cntl_finalize_flamec().
00082 { 00083 FLA_Cntl_obj_free( fla_qrut_cntl_unb ); 00084 FLA_Cntl_obj_free( fla_qrut_cntl_leaf ); 00085 00086 FLA_Blocksize_free( fla_qrut_var2_bsize_leaf ); 00087 }
void FLA_QR_UT_cntl_init | ( | void | ) |
References FLA_Blocksize_scale(), FLA_Cntl_qrut_obj_create(), and FLA_Query_blocksizes().
Referenced by FLA_Cntl_init_flamec().
00047 { 00048 // Set blocksizes with default values for conventional storage. 00049 fla_qrut_var2_bsize_leaf = FLA_Query_blocksizes( FLA_DIMENSION_MIN ); 00050 FLA_Blocksize_scale( fla_qrut_var2_bsize_leaf, FLA_QR_INNER_TO_OUTER_B_RATIO ); 00051 00052 // Create a control tree to invoke unblocked variant 1. 00053 fla_qrut_cntl_unb = FLA_Cntl_qrut_obj_create( FLA_FLAT, 00054 //FLA_UNBLOCKED_VARIANT1, 00055 FLA_UNB_OPT_VARIANT1, 00056 NULL, 00057 NULL, 00058 NULL, 00059 NULL, 00060 NULL, 00061 NULL, 00062 NULL, 00063 NULL, 00064 NULL ); 00065 00066 // Create a control tree for small-to-medium sequential problems and 00067 // as the means to compute on FLASH blocks. 00068 fla_qrut_cntl_leaf = FLA_Cntl_qrut_obj_create( FLA_FLAT, 00069 FLA_BLOCKED_VARIANT2, 00070 fla_qrut_var2_bsize_leaf, 00071 fla_qrut_cntl_unb, 00072 fla_trmm_cntl_blas, 00073 fla_trmm_cntl_blas, 00074 fla_gemm_cntl_blas, 00075 fla_gemm_cntl_blas, 00076 fla_trsm_cntl_blas, 00077 fla_copy_cntl_blas, 00078 fla_axpy_cntl_blas ); 00079 }