FLA_Chol_u.c File Reference

(r)


Functions

FLA_Error FLA_Chol_u (FLA_Obj A, fla_chol_t *cntl)

Function Documentation

FLA_Error FLA_Chol_u ( FLA_Obj  A,
fla_chol_t cntl 
)

References FLA_Chol_u_blk_var1(), FLA_Chol_u_blk_var2(), FLA_Chol_u_blk_var3(), and FLA_Chol_u_task().

Referenced by FLA_Chol_internal().

00036 {
00037     FLA_Error r_val = FLA_SUCCESS;
00038     
00039     if      ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
00040     {
00041         r_val = FLA_Chol_u_task( A, cntl );
00042     }
00043 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
00044     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
00045     {
00046         r_val = FLA_Chol_u_blk_var1( A, cntl );
00047     }
00048     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
00049     {
00050         r_val = FLA_Chol_u_blk_var2( A, cntl );
00051     }
00052 #endif
00053     else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
00054     {
00055         r_val = FLA_Chol_u_blk_var3( A, cntl );
00056     }
00057 
00058     return r_val;
00059 }


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