Functions | |
void | FLA_Sylv_cntl_init () |
void | FLA_Sylv_cntl_finalize () |
Variables | |
fla_gemm_t * | fla_gemm_cntl_blas |
fla_sylv_t * | fla_sylv_cntl_lapack |
fla_sylv_t * | fla_sylv_cntl_mb |
fla_sylv_t * | fla_sylv_cntl |
fla_blocksize_t * | fla_sylv_bsize |
void FLA_Sylv_cntl_finalize | ( | void | ) |
References FLA_Blocksize_free(), and FLA_Cntl_obj_free().
Referenced by FLA_Cntl_finalize_flamec().
00097 { 00098 FLA_Cntl_obj_free( fla_sylv_cntl_lapack ); 00099 FLA_Cntl_obj_free( fla_sylv_cntl_mb ); 00100 FLA_Cntl_obj_free( fla_sylv_cntl ); 00101 00102 FLA_Blocksize_free( fla_sylv_bsize ); 00103 }
void FLA_Sylv_cntl_init | ( | void | ) |
References FLA_Cntl_sylv_obj_create(), and FLA_Query_blocksizes().
Referenced by FLA_Cntl_init_flamec().
00043 { 00044 // Set blocksize with default value for conventional storage. 00045 fla_sylv_bsize = FLA_Query_blocksizes( FLA_DIMENSION_MIN ); 00046 00047 // Create a control tree to invoke LAPACK. 00048 fla_sylv_cntl_lapack = FLA_Cntl_sylv_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 NULL, 00060 NULL, 00061 NULL ); 00062 00063 // Create a control tree to invoke variant 15. 00064 fla_sylv_cntl_mb = FLA_Cntl_sylv_obj_create( FLA_FLAT, 00065 FLA_BLOCKED_VARIANT15, 00066 fla_sylv_bsize, 00067 fla_sylv_cntl_lapack, 00068 NULL, 00069 NULL, 00070 fla_gemm_cntl_blas, 00071 NULL, 00072 NULL, 00073 NULL, 00074 NULL, 00075 NULL, 00076 NULL, 00077 NULL ); 00078 00079 // Create a control tree to invoke variant 17. 00080 fla_sylv_cntl = FLA_Cntl_sylv_obj_create( FLA_FLAT, 00081 FLA_BLOCKED_VARIANT17, 00082 fla_sylv_bsize, 00083 fla_sylv_cntl_mb, 00084 NULL, 00085 NULL, 00086 fla_gemm_cntl_blas, 00087 NULL, 00088 NULL, 00089 NULL, 00090 NULL, 00091 NULL, 00092 NULL, 00093 NULL ); 00094 }