Functions | |
void | FLA_Chol_cntl_init () |
void | FLA_Chol_cntl_finalize () |
Variables | |
fla_herk_t * | fla_herk_cntl_blas |
fla_syrk_t * | fla_syrk_cntl_blas |
fla_trsm_t * | fla_trsm_cntl_blas |
fla_chol_t * | fla_chol_cntl |
fla_chol_t * | fla_chol_cntl2 |
fla_chol_t * | fla_chol_cntl_in |
fla_chol_t * | fla_chol_cntl_lapack |
fla_blocksize_t * | fla_chol_var3_bsize |
fla_blocksize_t * | fla_chol_var3_bsize_in |
double | fla_chol_var3_in_to_ou_bsize_ratio = 0.25 |
void FLA_Chol_cntl_finalize | ( | void | ) |
References FLA_Blocksize_free(), and FLA_Cntl_obj_free().
Referenced by FLA_Cntl_finalize_flamec().
00090 { 00091 FLA_Cntl_obj_free( fla_chol_cntl ); 00092 FLA_Cntl_obj_free( fla_chol_cntl2 ); 00093 FLA_Cntl_obj_free( fla_chol_cntl_lapack ); 00094 FLA_Cntl_obj_free( fla_chol_cntl_in ); 00095 00096 FLA_Blocksize_free( fla_chol_var3_bsize ); 00097 FLA_Blocksize_free( fla_chol_var3_bsize_in ); 00098 }
void FLA_Chol_cntl_init | ( | void | ) |
References FLA_Blocksize_create_copy(), FLA_Blocksize_scale(), fla_chol_var3_in_to_ou_bsize_ratio, FLA_Cntl_chol_obj_create(), and FLA_Query_blocksizes().
Referenced by FLA_Cntl_init_flamec().
00049 { 00050 // Set blocksize with default values for conventional storage. 00051 fla_chol_var3_bsize = FLA_Query_blocksizes( FLA_DIMENSION_MIN ); 00052 fla_chol_var3_bsize_in = FLA_Blocksize_create_copy( fla_chol_var3_bsize ); 00053 FLA_Blocksize_scale( fla_chol_var3_bsize_in, fla_chol_var3_in_to_ou_bsize_ratio ); 00054 00055 // Create a control tree to invoke LAPACK. 00056 fla_chol_cntl_lapack = FLA_Cntl_chol_obj_create( FLA_FLAT, FLA_SUBPROBLEM, NULL, NULL, NULL, NULL, NULL, NULL ); 00057 00058 // Create a control tree for small subproblems. 00059 fla_chol_cntl_in = FLA_Cntl_chol_obj_create( FLA_FLAT, 00060 FLA_BLOCKED_VARIANT3, 00061 fla_chol_var3_bsize_in, 00062 fla_chol_cntl_lapack, 00063 fla_syrk_cntl_blas, 00064 fla_herk_cntl_blas, 00065 fla_trsm_cntl_blas, 00066 NULL ); 00067 00068 // Create a control tree for larger problems with one level of recursion. 00069 fla_chol_cntl2 = FLA_Cntl_chol_obj_create( FLA_FLAT, 00070 FLA_BLOCKED_VARIANT3, 00071 fla_chol_var3_bsize, 00072 fla_chol_cntl_in, 00073 fla_syrk_cntl_blas, 00074 fla_herk_cntl_blas, 00075 fla_trsm_cntl_blas, 00076 NULL ); 00077 00078 // Create a control tree for large problems with no extra recursion. 00079 fla_chol_cntl = FLA_Cntl_chol_obj_create( FLA_FLAT, 00080 FLA_BLOCKED_VARIANT3, 00081 fla_chol_var3_bsize, 00082 fla_chol_cntl_lapack, 00083 fla_syrk_cntl_blas, 00084 fla_herk_cntl_blas, 00085 fla_trsm_cntl_blas, 00086 NULL ); 00087 }
double fla_chol_var3_in_to_ou_bsize_ratio = 0.25 |
Referenced by FLA_Chol_cntl_init().