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
13 extern fla_apqut_t* fla_apqut_cntl_leaf;
14
FLA_Apply_Q_UT_rhfr(FLA_Obj A,FLA_Obj T,FLA_Obj W,FLA_Obj B,fla_apqut_t * cntl)15 FLA_Error FLA_Apply_Q_UT_rhfr( FLA_Obj A, FLA_Obj T, FLA_Obj W, FLA_Obj B, fla_apqut_t* cntl )
16 {
17 FLA_Error r_val = FLA_SUCCESS;
18
19 if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
20 {
21 r_val = FLA_Apply_Q_UT_rhfr_blk_var1( A, T, W, B, cntl );
22 }
23 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
24 {
25 r_val = FLA_Apply_Q_UT_rhfr_blk_var2( A, T, W, B, cntl );
26 }
27 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
28 {
29 r_val = FLA_Apply_Q_UT_rhfr_blk_var3( A, T, W, B, cntl );
30 }
31 else
32 {
33 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
34 }
35
36 return r_val;
37 }
38
39