Functions | |
void | FLA_Her2k_cntl_init () |
void | FLA_Her2k_cntl_finalize () |
Variables | |
fla_gemm_t * | fla_gemm_cntl_blas |
fla_her2k_t * | fla_her2k_cntl_blas |
fla_her2k_t * | fla_her2k_cntl_ip |
fla_her2k_t * | fla_her2k_cntl_op |
fla_her2k_t * | fla_her2k_cntl_sq |
fla_blocksize_t * | fla_her2k_var3_bsize |
fla_blocksize_t * | fla_her2k_var9_bsize |
void FLA_Her2k_cntl_finalize | ( | void | ) |
References FLA_Blocksize_free(), and FLA_Cntl_obj_free().
Referenced by FLA_Cntl_finalize_flamec().
00084 { 00085 FLA_Cntl_obj_free( fla_her2k_cntl_blas ); 00086 00087 FLA_Cntl_obj_free( fla_her2k_cntl_ip ); 00088 FLA_Cntl_obj_free( fla_her2k_cntl_op ); 00089 FLA_Cntl_obj_free( fla_her2k_cntl_sq ); 00090 00091 FLA_Blocksize_free( fla_her2k_var3_bsize ); 00092 FLA_Blocksize_free( fla_her2k_var9_bsize ); 00093 }
void FLA_Her2k_cntl_init | ( | void | ) |
References FLA_Cntl_her2k_obj_create(), and FLA_Query_blocksizes().
Referenced by FLA_Cntl_init_flamec().
00045 { 00046 // Set blocksizes with default values for conventional storage. 00047 fla_her2k_var3_bsize = FLA_Query_blocksizes( FLA_DIMENSION_MIN ); 00048 fla_her2k_var9_bsize = FLA_Query_blocksizes( FLA_DIMENSION_MIN ); 00049 00050 // Create a control tree that assumes A and B are b x b blocks. 00051 fla_her2k_cntl_blas = FLA_Cntl_her2k_obj_create( FLA_FLAT, 00052 FLA_SUBPROBLEM, 00053 NULL, 00054 NULL, 00055 NULL, 00056 NULL ); 00057 00058 // Create a control tree that assumes A and B form an inner panel product. 00059 fla_her2k_cntl_ip = FLA_Cntl_her2k_obj_create( FLA_FLAT, 00060 FLA_BLOCKED_VARIANT9, 00061 fla_her2k_var9_bsize, 00062 fla_her2k_cntl_blas, 00063 NULL, 00064 NULL ); 00065 00066 // Create a control tree that assumes A and B form an outer panel product. 00067 fla_her2k_cntl_op = FLA_Cntl_her2k_obj_create( FLA_FLAT, 00068 FLA_BLOCKED_VARIANT3, 00069 fla_her2k_var3_bsize, 00070 fla_her2k_cntl_blas, 00071 fla_gemm_cntl_blas, 00072 fla_gemm_cntl_blas ); 00073 00074 // Create a control tree that assumes A and B are both large. 00075 fla_her2k_cntl_sq = FLA_Cntl_her2k_obj_create( FLA_FLAT, 00076 FLA_BLOCKED_VARIANT9, 00077 fla_her2k_var9_bsize, 00078 fla_her2k_cntl_op, 00079 NULL, 00080 NULL ); 00081 }