Functions | |
FLA_Error | FLA_Trsvsx_external (FLA_Uplo uplo, FLA_Trans transa, FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj x, FLA_Obj beta, FLA_Obj y) |
void FLA_F2C() | fla_trsvsx_external_f (F_INT *uplo, F_INT *transa, F_INT *diag, F_INT *alpha, F_INT *A, F_INT *x, F_INT *beta, F_INT *y, F_INT *IERROR) |
FLA_Error FLA_Trsvsx_external | ( | FLA_Uplo | uplo, | |
FLA_Trans | transa, | |||
FLA_Diag | diag, | |||
FLA_Obj | alpha, | |||
FLA_Obj | A, | |||
FLA_Obj | x, | |||
FLA_Obj | beta, | |||
FLA_Obj | y | |||
) |
References FLA_Axpy_external(), FLA_Check_error_level(), FLA_Copy_external(), FLA_Obj_create_conf_to(), FLA_Obj_free(), FLA_Scal_external(), FLA_Trsv_external(), and FLA_Trsvsx_check().
Referenced by FLA_Trsvsx(), and fla_trsvsx_external_f().
00036 { 00037 FLA_Obj x_copy; 00038 00039 if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING ) 00040 FLA_Trsvsx_check( uplo, transa, diag, alpha, A, x, beta, y ); 00041 00042 FLA_Obj_create_conf_to( FLA_NO_TRANSPOSE, x, &x_copy ); 00043 00044 FLA_Copy_external( x, x_copy ); 00045 00046 FLA_Trsv_external( uplo, transa, diag, A, x_copy ); 00047 00048 FLA_Scal_external( beta, y ); 00049 00050 FLA_Axpy_external( alpha, x_copy, y ); 00051 00052 FLA_Obj_free( &x_copy ); 00053 00054 return FLA_SUCCESS; 00055 }
void FLA_F2C() fla_trsvsx_external_f | ( | F_INT * | uplo, | |
F_INT * | transa, | |||
F_INT * | diag, | |||
F_INT * | alpha, | |||
F_INT * | A, | |||
F_INT * | x, | |||
F_INT * | beta, | |||
F_INT * | y, | |||
F_INT * | IERROR | |||
) |
References FLA_Trsvsx_external().
00059 { 00060 *IERROR = FLA_Trsvsx_external( *( ( FLA_Uplo * ) uplo ), 00061 *( ( FLA_Trans * ) transa ), 00062 *( ( FLA_Diag * ) diag ), 00063 *( ( FLA_Obj * ) alpha ), 00064 *( ( FLA_Obj * ) A ), 00065 *( ( FLA_Obj * ) x ), 00066 *( ( FLA_Obj * ) beta ), 00067 *( ( FLA_Obj * ) y ) ); 00068 }