Functions | |
void | FLA_Trinv_cntl_init () |
void | FLA_Trinv_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_trinv_t * | fla_trinv_cntl_lapack |
fla_trinv_t * | fla_trinv_cntl |
fla_blocksize_t * | fla_trinv_var3_bsize |
void FLA_Trinv_cntl_finalize | ( | void | ) |
References FLA_Blocksize_free(), and FLA_Cntl_obj_free().
Referenced by FLA_Cntl_finalize_flamec().
00070 { 00071 FLA_Cntl_obj_free( fla_trinv_cntl_lapack ); 00072 FLA_Cntl_obj_free( fla_trinv_cntl ); 00073 00074 FLA_Blocksize_free( fla_trinv_var3_bsize ); 00075 }
void FLA_Trinv_cntl_init | ( | void | ) |
References FLA_Cntl_trinv_obj_create(), and FLA_Query_blocksizes().
Referenced by FLA_Cntl_init_flamec().
00044 { 00045 // Set blocksize with default value for conventional storage. 00046 fla_trinv_var3_bsize = FLA_Query_blocksizes( FLA_DIMENSION_MIN ); 00047 00048 // Create a control tree to invoke LAPACK. 00049 fla_trinv_cntl_lapack = FLA_Cntl_trinv_obj_create( FLA_FLAT, 00050 FLA_SUBPROBLEM, 00051 NULL, 00052 NULL, 00053 NULL, 00054 NULL, 00055 NULL, 00056 NULL ); 00057 00058 // Create a control tree to invoke variant 3. 00059 fla_trinv_cntl = FLA_Cntl_trinv_obj_create( FLA_FLAT, 00060 FLA_BLOCKED_VARIANT3, 00061 fla_trinv_var3_bsize, 00062 fla_trinv_cntl_lapack, 00063 fla_trmm_cntl_blas, 00064 fla_trsm_cntl_blas, 00065 fla_trsm_cntl_blas, 00066 fla_gemm_cntl_blas ); 00067 }