Functions | |
void | FLA_Hess_cntl_init () |
void | FLA_Hess_cntl_finalize () |
Variables | |
fla_gemm_t * | fla_gemm_cntl_blas |
fla_trmm_t * | fla_trmm_cntl_blas |
fla_hess_t * | fla_hess_cntl_lapack |
fla_hess_t * | fla_hess_cntl |
fla_blocksize_t * | fla_hess_bsize |
void FLA_Hess_cntl_finalize | ( | void | ) |
References FLA_Blocksize_free(), and FLA_Cntl_obj_free().
Referenced by FLA_Cntl_finalize_flamec().
00075 { 00076 FLA_Cntl_obj_free( fla_hess_cntl_lapack ); 00077 FLA_Cntl_obj_free( fla_hess_cntl ); 00078 00079 FLA_Blocksize_free( fla_hess_bsize ); 00080 }
void FLA_Hess_cntl_init | ( | void | ) |
References FLA_Cntl_hess_obj_create(), and FLA_Query_blocksizes().
Referenced by FLA_Cntl_init_flamec().
00043 { 00044 // Set blocksize with default value for conventional storage. 00045 fla_hess_bsize = FLA_Query_blocksizes( FLA_DIMENSION_MIN ); 00046 00047 // Create a control tree to invoke LAPACK. 00048 fla_hess_cntl_lapack = FLA_Cntl_hess_obj_create( FLA_FLAT, 00049 FLA_SUBPROBLEM, 00050 NULL, 00051 NULL, 00052 NULL, 00053 NULL, 00054 NULL, 00055 NULL, 00056 NULL, 00057 NULL, 00058 NULL ); 00059 00060 // Create a control tree to invoke variant 2. 00061 fla_hess_cntl = FLA_Cntl_hess_obj_create( FLA_FLAT, 00062 FLA_BLOCKED_VARIANT2, 00063 fla_hess_bsize, 00064 fla_hess_cntl_lapack, 00065 fla_trmm_cntl_blas, 00066 fla_trmm_cntl_blas, 00067 fla_trmm_cntl_blas, 00068 fla_trmm_cntl_blas, 00069 fla_gemm_cntl_blas, 00070 fla_gemm_cntl_blas, 00071 fla_gemm_cntl_blas ); 00072 }