1 /*
2
3 Copyright (C) 2014, The University of Texas at Austin
4
5 This file is part of libflame and is available under the 3-Clause
6 BSD license, which can be found in the LICENSE file at the top-level
7 directory, or at http://opensource.org/licenses/BSD-3-Clause
8
9 */
10
11 #include "FLAME.h"
12
FLA_Trsv_ut(FLA_Diag diag,FLA_Obj A,FLA_Obj x,fla_trsv_t * cntl)13 FLA_Error FLA_Trsv_ut( FLA_Diag diag, FLA_Obj A, FLA_Obj x, fla_trsv_t* cntl )
14 {
15 FLA_Error r_val = FLA_SUCCESS;
16
17 if ( FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
18 {
19 r_val = FLA_Trsv_ut_task( diag, A, x, cntl );
20 }
21 #ifdef FLA_ENABLE_NON_CRITICAL_CODE
22 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
23 {
24 r_val = FLA_Trsv_ut_blk_var1( diag, A, x, cntl );
25 }
26 #endif
27 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
28 {
29 r_val = FLA_Trsv_ut_blk_var2( diag, A, x, cntl );
30 }
31 else
32 {
33 r_val = FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
34 }
35
36 return r_val;
37 }
38
39