Functions | |
FLA_Error | FLA_Apply_Q_UT_inc_internal (FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj TW, FLA_Obj W1, FLA_Obj B, fla_apqutinc_t *cntl) |
FLA_Error FLA_Apply_Q_UT_inc_internal | ( | FLA_Side | side, | |
FLA_Trans | trans, | |||
FLA_Store | storev, | |||
FLA_Obj | A, | |||
FLA_Obj | TW, | |||
FLA_Obj | W1, | |||
FLA_Obj | B, | |||
fla_apqutinc_t * | cntl | |||
) |
References FLA_Apply_Q_UT_inc_internal_check(), FLA_Apply_Q_UT_inc_lhc(), and FLA_Check_error_level().
Referenced by FLASH_Apply_Q_UT_inc().
00038 { 00039 FLA_Error r_val = FLA_SUCCESS; 00040 00041 if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING ) 00042 FLA_Apply_Q_UT_inc_internal_check( side, trans, storev, A, TW, W1, B, cntl ); 00043 00044 if ( side == FLA_LEFT ) 00045 { 00046 if ( trans == FLA_NO_TRANSPOSE ) 00047 { 00048 if ( storev == FLA_COLUMNWISE ) 00049 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 00050 else if ( storev == FLA_ROWWISE ) 00051 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 00052 } 00053 else if ( trans == FLA_TRANSPOSE || trans == FLA_CONJ_TRANSPOSE ) 00054 { 00055 if ( storev == FLA_COLUMNWISE ) 00056 r_val = FLA_Apply_Q_UT_inc_lhc( A, TW, W1, B, cntl ); 00057 else if ( storev == FLA_ROWWISE ) 00058 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 00059 } 00060 } 00061 else if ( side == FLA_RIGHT ) 00062 { 00063 if ( trans == FLA_NO_TRANSPOSE ) 00064 { 00065 if ( storev == FLA_COLUMNWISE ) 00066 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 00067 else if ( storev == FLA_ROWWISE ) 00068 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 00069 } 00070 else if ( trans == FLA_TRANSPOSE || trans == FLA_CONJ_TRANSPOSE ) 00071 { 00072 if ( storev == FLA_COLUMNWISE ) 00073 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 00074 else if ( storev == FLA_ROWWISE ) 00075 FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED ); 00076 } 00077 } 00078 00079 return r_val; 00080 }