Go to the source code of this file.
Functions | |
FLA_Error | FLA_LU_piv_internal (FLA_Obj A, FLA_Obj p, fla_lu_t *cntl) |
References FLA_Check_error_level(), FLA_Check_null_pointer(), FLA_LU_piv_blk_var3(), FLA_LU_piv_blk_var4(), FLA_LU_piv_blk_var5(), and FLA_LU_piv_task().
00036 { 00037 FLA_Error r_val = FLA_SUCCESS; 00038 00039 if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING ) 00040 { 00041 FLA_Error e_val = FLA_Check_null_pointer( ( void* ) cntl ); 00042 FLA_Check_error_code( e_val ); 00043 } 00044 00045 if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM ) 00046 { 00047 r_val = FLA_LU_piv_task( A, p, cntl ); 00048 } 00049 #ifdef FLA_ENABLE_NON_CRITICAL_CODE 00050 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 ) 00051 { 00052 r_val = FLA_LU_piv_blk_var3( A, p, cntl ); 00053 } 00054 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 ) 00055 { 00056 r_val = FLA_LU_piv_blk_var4( A, p, cntl ); 00057 } 00058 #endif 00059 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 ) 00060 { 00061 r_val = FLA_LU_piv_blk_var5( A, p, cntl ); 00062 } 00063 00064 return r_val; 00065 }