void FLA_Apply_Q_UT_cntl_finalize | ( | void | ) |
References FLA_Blocksize_free(), and FLA_Cntl_obj_free().
Referenced by FLA_Cntl_finalize_flamec().
00083 { 00084 FLA_Cntl_obj_free( fla_apqut_cntl_leaf ); 00085 FLA_Cntl_obj_free( fla_apqut_cntl ); 00086 00087 FLA_Blocksize_free( fla_apqut_var1_bsize ); 00088 FLA_Blocksize_free( fla_apqut_var2_bsize ); 00089 }
void FLA_Apply_Q_UT_cntl_init | ( | void | ) |
References FLA_Blocksize_scale(), FLA_Cntl_apqut_obj_create(), and FLA_Query_blocksizes().
Referenced by FLA_Cntl_init_flamec().
00047 { 00048 // Set the outer blocksize to the default value for conventional storage, 00049 // and the inner blocksize to the same value but scaled down. 00050 fla_apqut_var2_bsize = FLA_Query_blocksizes( FLA_DIMENSION_MIN ); 00051 fla_apqut_var1_bsize = FLA_Query_blocksizes( FLA_DIMENSION_MIN ); 00052 FLA_Blocksize_scale( fla_apqut_var1_bsize, FLA_QR_INNER_TO_OUTER_B_RATIO ); 00053 00054 // Create a control tree to invoke variant 1. 00055 fla_apqut_cntl_leaf = FLA_Cntl_apqut_obj_create( FLA_FLAT, 00056 FLA_BLOCKED_VARIANT1, 00057 fla_apqut_var1_bsize, 00058 NULL, 00059 fla_trmm_cntl_blas, 00060 fla_trmm_cntl_blas, 00061 fla_gemm_cntl_blas, 00062 fla_gemm_cntl_blas, 00063 fla_trsm_cntl_blas, 00064 fla_copy_cntl_blas, 00065 fla_axpy_cntl_blas ); 00066 /* 00067 // Create a control tree to invoke variant 2. 00068 fla_apqut_cntl = FLA_Cntl_apqut_obj_create( FLA_FLAT, 00069 FLA_BLOCKED_VARIANT2, 00070 fla_apqut_var2_bsize, 00071 fla_apqut_cntl_leaf, 00072 NULL, 00073 NULL, 00074 NULL, 00075 NULL, 00076 NULL, 00077 NULL, 00078 NULL ); 00079 */ 00080 }