libflame  revision_anchor
Functions
FLA_Trmvsx_external.c File Reference

(r)

Functions

FLA_Error FLA_Trmvsx_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)
 

Function Documentation

◆ FLA_Trmvsx_external()

FLA_Error FLA_Trmvsx_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_Obj_has_zero_dim(), FLA_Scal_external(), FLA_Trmv_external(), and FLA_Trmvsx_check().

Referenced by FLA_Trmvsx().

14 {
15  FLA_Obj x_copy;
16 
17  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
18  FLA_Trmvsx_check( uplo, transa, diag, alpha, A, x, beta, y );
19 
20  if ( FLA_Obj_has_zero_dim( A ) ) return FLA_SUCCESS;
21 
22  FLA_Obj_create_conf_to( FLA_NO_TRANSPOSE, x, &x_copy );
23 
24  FLA_Copy_external( x, x_copy );
25 
26  FLA_Trmv_external( uplo, transa, diag, A, x_copy );
27 
28  FLA_Scal_external( beta, y );
29 
30  FLA_Axpy_external( alpha, x_copy, y );
31 
32  FLA_Obj_free( &x_copy );
33 
34  return FLA_SUCCESS;
35 }
FLA_Error FLA_Obj_free(FLA_Obj *obj)
Definition: FLA_Obj.c:588
FLA_Error FLA_Axpy_external(FLA_Obj alpha, FLA_Obj A, FLA_Obj B)
Definition: FLA_Axpy_external.c:13
FLA_Error FLA_Scal_external(FLA_Obj alpha, FLA_Obj A)
Definition: FLA_Scal_external.c:13
FLA_Error FLA_Trmvsx_check(FLA_Uplo uplo, FLA_Trans transa, FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj x, FLA_Obj beta, FLA_Obj y)
Definition: FLA_Trmvsx_check.c:13
FLA_Error FLA_Copy_external(FLA_Obj A, FLA_Obj B)
Definition: FLA_Copy_external.c:13
Definition: FLA_type_defs.h:158
FLA_Bool FLA_Obj_has_zero_dim(FLA_Obj A)
Definition: FLA_Query.c:400
FLA_Error FLA_Obj_create_conf_to(FLA_Trans trans, FLA_Obj old, FLA_Obj *obj)
Definition: FLA_Obj.c:286
FLA_Error FLA_Trmv_external(FLA_Uplo uplo, FLA_Trans transa, FLA_Diag diag, FLA_Obj A, FLA_Obj x)
Definition: FLA_Trmv_external.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18