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_Trinv_ln(FLA_Obj A,fla_trinv_t * cntl)13FLA_Error FLA_Trinv_ln( FLA_Obj A, fla_trinv_t* cntl ) 14 { 15 FLA_Error r_val = FLA_SUCCESS; 16 17 if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_EXTERN ) 18 { 19 r_val = FLA_Trinv_ln_blk_ext( A ); 20 } 21 else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_EXTERN ) 22 { 23 r_val = FLA_Trinv_ln_unb_ext( A ); 24 } 25 #ifdef FLA_ENABLE_NON_CRITICAL_CODE 26 else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT1 ) 27 { 28 r_val = FLA_Trinv_ln_unb_var1( A ); 29 } 30 else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT2 ) 31 { 32 r_val = FLA_Trinv_ln_unb_var2( A ); 33 } 34 #endif 35 else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT3 ) 36 { 37 r_val = FLA_Trinv_ln_unb_var3( A ); 38 } 39 #ifdef FLA_ENABLE_NON_CRITICAL_CODE 40 else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_VARIANT4 ) 41 { 42 r_val = FLA_Trinv_ln_unb_var4( A ); 43 } 44 #endif 45 #ifdef FLA_ENABLE_NON_CRITICAL_CODE 46 else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT1 ) 47 { 48 r_val = FLA_Trinv_ln_opt_var1( A ); 49 } 50 else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT2 ) 51 { 52 r_val = FLA_Trinv_ln_opt_var2( A ); 53 } 54 #endif 55 else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT3 ) 56 { 57 r_val = FLA_Trinv_ln_opt_var3( A ); 58 } 59 #ifdef FLA_ENABLE_NON_CRITICAL_CODE 60 else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT4 ) 61 { 62 r_val = FLA_Trinv_ln_opt_var4( A ); 63 } 64 #endif 65 #ifdef FLA_ENABLE_NON_CRITICAL_CODE 66 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 ) 67 { 68 r_val = FLA_Trinv_ln_blk_var1( A, cntl ); 69 } 70 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 ) 71 { 72 r_val = FLA_Trinv_ln_blk_var2( A, cntl ); 73 } 74 #endif 75 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 ) 76 { 77 r_val = FLA_Trinv_ln_blk_var3( A, cntl ); 78 } 79 #ifdef FLA_ENABLE_NON_CRITICAL_CODE 80 else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 ) 81 { 82 r_val = FLA_Trinv_ln_blk_var4( A, cntl ); 83 } 84 #endif 85 else 86 { 87 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 88 } 89 90 return r_val; 91 } 92 93