Functions | |
void | FLASH_Trinv_cntl_init () |
void | FLASH_Trinv_cntl_finalize () |
Variables | |
fla_gemm_t * | flash_gemm_cntl_op_bp |
fla_trsm_t * | flash_trsm_cntl_bp |
fla_trinv_t * | flash_trinv_cntl_lapack |
fla_trinv_t * | flash_trinv_cntl |
fla_blocksize_t * | flash_trinv_bsize |
void FLASH_Trinv_cntl_finalize | ( | void | ) |
References FLA_Blocksize_free(), and FLA_Cntl_obj_free().
Referenced by FLA_Cntl_finalize_flash().
00069 { 00070 FLA_Cntl_obj_free( flash_trinv_cntl_lapack ); 00071 FLA_Cntl_obj_free( flash_trinv_cntl ); 00072 00073 FLA_Blocksize_free( flash_trinv_bsize ); 00074 }
void FLASH_Trinv_cntl_init | ( | void | ) |
References FLA_Blocksize_create(), and FLA_Cntl_trinv_obj_create().
Referenced by FLA_Cntl_init_flash().
00043 { 00044 // Set blocksize for hierarchical storage. 00045 flash_trinv_bsize = FLA_Blocksize_create( 1, 1, 1, 1 ); 00046 00047 // Create a control tree that assumes A is a b x b block. 00048 flash_trinv_cntl_lapack = FLA_Cntl_trinv_obj_create( FLA_HIER, 00049 FLA_SUBPROBLEM, 00050 NULL, 00051 NULL, 00052 NULL, 00053 NULL, 00054 NULL, 00055 NULL ); 00056 00057 // Create a control tree that assumes A is large. 00058 flash_trinv_cntl = FLA_Cntl_trinv_obj_create( FLA_HIER, 00059 FLA_BLOCKED_VARIANT3, 00060 flash_trinv_bsize, 00061 flash_trinv_cntl_lapack, 00062 NULL, 00063 flash_trsm_cntl_bp, 00064 flash_trsm_cntl_bp, 00065 flash_gemm_cntl_op_bp ); 00066 }