Functions | |
FLA_Error | FLA_Accum_T_UT_internal (FLA_Direct direct, FLA_Store storev, FLA_Obj A, FLA_Obj tau, FLA_Obj T) |
FLA_Error FLA_Accum_T_UT_internal | ( | FLA_Direct | direct, | |
FLA_Store | storev, | |||
FLA_Obj | A, | |||
FLA_Obj | tau, | |||
FLA_Obj | T | |||
) |
References FLA_Accum_T_UT_fc_opt_var1().
Referenced by FLA_Accum_T_UT().
00036 { 00037 FLA_Error r_val = FLA_SUCCESS; 00038 00039 if ( direct == FLA_FORWARD ) 00040 { 00041 if ( storev == FLA_COLUMNWISE ) 00042 //r_val = FLA_Accum_T_UT_fc_unb_var1( A, tau, T ); 00043 r_val = FLA_Accum_T_UT_fc_opt_var1( A, tau, T ); 00044 else if ( storev == FLA_ROWWISE ) 00045 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 00046 } 00047 else if ( direct == FLA_BACKWARD ) 00048 { 00049 if ( storev == FLA_COLUMNWISE ) 00050 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 00051 else if ( storev == FLA_ROWWISE ) 00052 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 00053 } 00054 00055 return r_val; 00056 }