FLA_Ttmm_internal.c File Reference

(r)


Functions

FLA_Error FLA_Ttmm_internal (FLA_Uplo uplo, FLA_Obj A, fla_ttmm_t *cntl)

Variables

fla_ttmm_tflash_ttmm_cntl_lapack
fla_ttmm_tflash_ttmm_cntl

Function Documentation

FLA_Error FLA_Ttmm_internal ( FLA_Uplo  uplo,
FLA_Obj  A,
fla_ttmm_t cntl 
)

References FLA_Check_error_level(), FLA_Obj_elemtype(), FLA_Ttmm_internal(), FLA_Ttmm_internal_check(), FLA_Ttmm_l(), FLA_Ttmm_u(), and FLASH_Queue_get_enabled().

Referenced by FLA_SPDinv_internal(), FLA_Ttmm(), FLA_Ttmm_internal(), FLA_Ttmm_l_blk_var1(), FLA_Ttmm_l_blk_var2(), FLA_Ttmm_l_blk_var3(), FLA_Ttmm_u_blk_var1(), FLA_Ttmm_u_blk_var2(), FLA_Ttmm_u_blk_var3(), and FLASH_Ttmm().

00039 {
00040         FLA_Error r_val = FLA_SUCCESS;
00041 
00042     if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
00043         FLA_Ttmm_internal_check( uplo, A, cntl );
00044 
00045     if      ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
00046               FLA_Obj_elemtype( A ) == FLA_MATRIX &&
00047               FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
00048     {
00049         // Recurse
00050         r_val = FLA_Ttmm_internal( uplo,
00051                                    *FLASH_OBJ_PTR_AT( A ),
00052                                    flash_ttmm_cntl );
00053     }
00054     else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
00055               FLA_Obj_elemtype( A ) == FLA_SCALAR &&
00056               FLASH_Queue_get_enabled( ) )
00057     {
00058         // Enqueue
00059         ENQUEUE_FLASH_Ttmm( uplo, A, cntl );
00060     }
00061     else
00062     {
00063         if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
00064              FLA_Obj_elemtype( A ) == FLA_SCALAR &&
00065              !FLASH_Queue_get_enabled( ) )
00066         {
00067             // Execute leaf
00068             cntl = flash_ttmm_cntl_lapack;
00069         }
00070 
00071         // Parameter combinations
00072         if      ( uplo == FLA_LOWER_TRIANGULAR )
00073         {
00074             r_val = FLA_Ttmm_l( A, cntl );
00075         }
00076         else if ( uplo == FLA_UPPER_TRIANGULAR )
00077         {
00078             r_val = FLA_Ttmm_u( A, cntl );
00079         }
00080     }
00081 
00082     return r_val;
00083 }


Variable Documentation


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