Functions | |
void | FLA_Ttmm_cntl_init () |
void | FLA_Ttmm_cntl_finalize () |
Variables | |
fla_gemm_t * | fla_gemm_cntl_blas |
fla_syrk_t * | fla_syrk_cntl_blas |
fla_herk_t * | fla_herk_cntl_blas |
fla_trmm_t * | fla_trmm_cntl_blas |
fla_ttmm_t * | fla_ttmm_cntl_lapack |
fla_ttmm_t * | fla_ttmm_cntl |
fla_blocksize_t * | fla_ttmm_var1_bsize |
void FLA_Ttmm_cntl_finalize | ( | void | ) |
References FLA_Blocksize_free(), and FLA_Cntl_obj_free().
Referenced by FLA_Cntl_finalize_flamec().
00071 { 00072 FLA_Cntl_obj_free( fla_ttmm_cntl_lapack ); 00073 FLA_Cntl_obj_free( fla_ttmm_cntl ); 00074 00075 FLA_Blocksize_free( fla_ttmm_var1_bsize ); 00076 }
void FLA_Ttmm_cntl_init | ( | void | ) |
References FLA_Cntl_ttmm_obj_create(), and FLA_Query_blocksizes().
Referenced by FLA_Cntl_init_flamec().
00045 { 00046 // Set blocksize with default value for conventional storage. 00047 fla_ttmm_var1_bsize = FLA_Query_blocksizes( FLA_DIMENSION_MIN ); 00048 00049 // Create a control tree to invoke LAPACK. 00050 fla_ttmm_cntl_lapack = FLA_Cntl_ttmm_obj_create( FLA_FLAT, 00051 FLA_SUBPROBLEM, 00052 NULL, 00053 NULL, 00054 NULL, 00055 NULL, 00056 NULL, 00057 NULL ); 00058 00059 // Create a control tree to invoke variant 1. 00060 fla_ttmm_cntl = FLA_Cntl_ttmm_obj_create( FLA_FLAT, 00061 FLA_BLOCKED_VARIANT1, 00062 fla_ttmm_var1_bsize, 00063 fla_ttmm_cntl_lapack, 00064 fla_syrk_cntl_blas, 00065 fla_herk_cntl_blas, 00066 fla_trmm_cntl_blas, 00067 fla_gemm_cntl_blas ); 00068 }