References FLA_Abort(), FLA_Check_error_level(), FLA_Print_message(), FLA_QR_UT_check(), FLA_QR_UT_internal(), FLASH_Obj_depth(), FLASH_Obj_scalar_length_tl(), FLASH_Obj_scalar_min_dim(), FLASH_Obj_scalar_width_tl(), FLASH_Queue_begin(), and FLASH_Queue_end().
{
FLA_Error r_val;
dim_t b_alg, b_flash;
if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
FLA_QR_UT_check( A, TW );
if ( FLASH_Obj_depth( A ) != 1 )
{
FLA_Print_message( "FLASH_QR_UT() currently only supports matrices of depth 1",
__FILE__, __LINE__ );
FLA_Abort();
}
b_alg = FLASH_Obj_scalar_length_tl( TW );
b_flash = FLASH_Obj_scalar_width_tl( TW );
if ( b_alg != b_flash )
{
FLA_Print_message( "FLASH_QR_UT() requires that b_alg == b_store",
__FILE__, __LINE__ );
FLA_Abort();
}
if ( FLASH_Obj_scalar_min_dim( A ) % b_flash != 0 )
{
FLA_Print_message( "FLASH_QR_UT() requires that min_dim( A ) %% b_store == 0",
__FILE__, __LINE__ );
FLA_Abort();
}
FLASH_Queue_begin();
r_val = FLA_QR_UT_internal( A, TW, flash_qrut_cntl );
FLASH_Queue_end();
return r_val;
}