Functions | |
FLA_Error | FLA_QR_UT (FLA_Obj A, FLA_Obj T) |
void FLA_F2C() | fla_qr_ut_f (F_INT *A, F_INT *T, F_INT *IERROR) |
Variables | |
fla_qrut_t * | fla_qrut_cntl_leaf |
References FLA_Blocksize_set(), FLA_Check_error_level(), FLA_Obj_length(), FLA_QR_UT_check(), and FLA_QR_UT_internal().
Referenced by fla_qr_ut_f().
00038 { 00039 FLA_Error r_val; 00040 dim_t nb_alg; 00041 //dim_t nb_alg_mid; 00042 00043 // Check parameters. 00044 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00045 FLA_QR_UT_check( A, T ); 00046 00047 // Inspect the length of T to get the implied outer blocksize. 00048 nb_alg = FLA_Obj_length( T ); 00049 00050 // Scale the outer blocksize to get the inner blocksize. 00051 //nb_alg_mid = max( nb_alg * FLA_QR_INNER_TO_OUTER_B_RATIO, 1 ); 00052 00053 // Adjust the blocksizes in the control trees. 00054 FLA_Blocksize_set( FLA_Cntl_blocksize( fla_qrut_cntl_leaf ), 00055 nb_alg, nb_alg, nb_alg, nb_alg ); 00056 //FLA_Blocksize_set( FLA_Cntl_blocksize( fla_qrut_cntl2 ), 00057 // nb_alg, nb_alg, nb_alg, nb_alg ); 00058 //FLA_Blocksize_set( FLA_Cntl_blocksize( fla_qrut_cntl2_mid ), 00059 // nb_alg_mid, nb_alg_mid, nb_alg_mid, nb_alg_mid ); 00060 00061 // Invoke FLA_QR_UT_internal() with the standard control tree. 00062 //r_val = FLA_QR_UT_internal( A, T, fla_qrut_cntl2 ); 00063 r_val = FLA_QR_UT_internal( A, T, fla_qrut_cntl_leaf ); 00064 00065 return r_val; 00066 }
void FLA_F2C() fla_qr_ut_f | ( | F_INT * | A, | |
F_INT * | T, | |||
F_INT * | IERROR | |||
) |