FLA_QR_UT.c File Reference

(r)


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_tfla_qrut_cntl_leaf

Function Documentation

FLA_Error FLA_QR_UT ( FLA_Obj  A,
FLA_Obj  T 
)

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 
)

References FLA_QR_UT().

00070 {
00071   *IERROR = FLA_QR_UT( *( ( FLA_Obj * ) A ),
00072                        *( ( FLA_Obj * ) T ) );
00073 }


Variable Documentation


Generated on Mon Jul 6 05:45:56 2009 for libflame by  doxygen 1.5.9