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_Apply_pivots_rt(FLA_Obj p,FLA_Obj A,fla_appiv_t * cntl)13FLA_Error FLA_Apply_pivots_rt( FLA_Obj p, FLA_Obj A, fla_appiv_t* cntl ) 14 { 15 FLA_Error r_val = FLA_SUCCESS; 16 17 if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_EXTERN ) 18 { 19 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 20 } 21 else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT1 ) 22 { 23 r_val = FLA_Apply_pivots_rt_opt_var1( p, A ); 24 } 25 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 ) 26 { 27 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 28 } 29 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 ) 30 { 31 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 32 } 33 else 34 { 35 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 36 } 37 38 return r_val; 39 } 40 41