FLA_Trsvsx_external.c File Reference

(r)


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)

Function Documentation

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 }


Generated on Mon Jul 6 05:45:53 2009 for libflame by  doxygen 1.5.9