FLASH_QR_UT_inc_noopt.c File Reference

(r)


Functions

FLA_Error FLASH_QR_UT_inc_noopt (FLA_Obj A, FLA_Obj TW)

Variables

fla_qrut_tfla_qrut_cntl_leaf
fla_apqut_tfla_apqut_cntl_leaf
fla_qrutud_tfla_qrutud_cntl_leaf
fla_apqutud_tfla_apqutud_cntl_leaf
fla_qrutinc_tflash_qrutinc_cntl

Function Documentation

FLA_Error FLASH_QR_UT_inc_noopt ( FLA_Obj  A,
FLA_Obj  TW 
)

References FLA_Blocksize_set(), FLA_Check_error_level(), FLA_Part_2x2(), FLA_QR_UT_inc_blk_var1(), FLA_QR_UT_inc_check(), FLASH_Obj_scalar_length(), FLASH_Queue_begin(), and FLASH_Queue_end().

00043 {
00044   FLA_Error r_val;
00045   int       nb_alg;
00046   FLA_Obj   TWTL, WTR,
00047             TBL, TWBR;
00048 
00049   // Check parameters.
00050   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00051     FLA_QR_UT_inc_check( A, TW );
00052 
00053   // Inspect the length of a the top-left element of T to get the algorithmic
00054   // blocksize we'll use throughout the QR_UT_inc algorithm.
00055   FLA_Part_2x2( TW,   &TWTL, &WTR,
00056                       &TBL, &TWBR,     1, 1, FLA_TL );
00057   nb_alg = FLASH_Obj_scalar_length( TWTL );
00058 
00059   // Adjust the blocksizes of the leaf control tree nodes, which are invoked
00060   // by the individual QR_UT_inc tasks.
00061   FLA_Blocksize_set( FLA_Cntl_blocksize( fla_qrut_cntl_leaf ),
00062                      nb_alg, nb_alg, nb_alg, nb_alg );
00063   FLA_Blocksize_set( FLA_Cntl_blocksize( fla_apqut_cntl_leaf ),
00064                      nb_alg, nb_alg, nb_alg, nb_alg );
00065   FLA_Blocksize_set( FLA_Cntl_blocksize( fla_qrutud_cntl_leaf ),
00066                      nb_alg, nb_alg, nb_alg, nb_alg );
00067   FLA_Blocksize_set( FLA_Cntl_blocksize( fla_apqutud_cntl_leaf ),
00068                      nb_alg, nb_alg, nb_alg, nb_alg );
00069 
00070   // Begin a parallel region.
00071   FLASH_Queue_begin();
00072 
00073   // Invoke FLA_QR_UT_inc_blk_var1() with the standard control tree.
00074   r_val = FLA_QR_UT_inc_blk_var1( A, TW, flash_qrutinc_cntl );
00075 
00076   // End the parallel region.
00077   FLASH_Queue_end();
00078 
00079   return r_val;
00080 }


Variable Documentation


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