libflame revision_anchor
Functions
bli_axpyv.c File Reference

(r)

Functions

void bli_saxpyv (char conj, int n, float *alpha, float *x, int incx, float *y, int incy)
void bli_daxpyv (char conj, int n, double *alpha, double *x, int incx, double *y, int incy)
void bli_caxpyv (char conj, int n, scomplex *alpha, scomplex *x, int incx, scomplex *y, int incy)
void bli_zaxpyv (char conj, int n, dcomplex *alpha, dcomplex *x, int incx, dcomplex *y, int incy)

Function Documentation

void bli_caxpyv ( char  conj,
int  n,
scomplex alpha,
scomplex x,
int  incx,
scomplex y,
int  incy 
)

References bli_callocv(), bli_caxpy(), bli_ccopyv(), bli_cfree(), bli_is_conj(), and bli_zero_dim1().

Referenced by bli_caxpymrt(), bli_cgemv(), bli_chemv(), bli_ctrmvsx(), bli_ctrsvsx(), FLA_Apply_H2_UT_l_opc_var1(), FLA_Apply_H2_UT_r_opc_var1(), FLA_Apply_HUD_UT_l_opc_var1(), FLA_Bidiag_UT_u_step_ofc_var2(), FLA_Bidiag_UT_u_step_ofc_var3(), FLA_Bidiag_UT_u_step_ofc_var4(), FLA_Bidiag_UT_u_step_opc_var2(), FLA_Bidiag_UT_u_step_opc_var3(), FLA_Bidiag_UT_u_step_opc_var4(), FLA_Bidiag_UT_u_step_opc_var5(), FLA_Eig_gest_il_opc_var1(), FLA_Eig_gest_il_opc_var2(), FLA_Eig_gest_il_opc_var3(), FLA_Eig_gest_il_opc_var4(), FLA_Eig_gest_il_opc_var5(), FLA_Eig_gest_iu_opc_var1(), FLA_Eig_gest_iu_opc_var2(), FLA_Eig_gest_iu_opc_var3(), FLA_Eig_gest_iu_opc_var4(), FLA_Eig_gest_iu_opc_var5(), FLA_Eig_gest_nl_opc_var1(), FLA_Eig_gest_nl_opc_var2(), FLA_Eig_gest_nl_opc_var4(), FLA_Eig_gest_nl_opc_var5(), FLA_Eig_gest_nu_opc_var1(), FLA_Eig_gest_nu_opc_var2(), FLA_Eig_gest_nu_opc_var4(), FLA_Eig_gest_nu_opc_var5(), FLA_Hess_UT_step_ofc_var2(), FLA_Hess_UT_step_ofc_var3(), FLA_Hess_UT_step_ofc_var4(), FLA_Hess_UT_step_opc_var2(), FLA_Hess_UT_step_opc_var3(), FLA_Hess_UT_step_opc_var4(), FLA_Hess_UT_step_opc_var5(), FLA_Tridiag_UT_l_step_ofc_var2(), FLA_Tridiag_UT_l_step_ofc_var3(), FLA_Tridiag_UT_l_step_opc_var1(), FLA_Tridiag_UT_l_step_opc_var2(), and FLA_Tridiag_UT_l_step_opc_var3().

{
    scomplex* x_copy;
    int       incx_copy;

    // Return early if possible.
    if ( bli_zero_dim1( n ) ) return;

    x_copy    = x;
    incx_copy = incx;
    
    if ( bli_is_conj( conj ) )
    {
        x_copy    = bli_callocv( n );
        incx_copy = 1;
    
        bli_ccopyv( conj,
                    n,
                    x,      incx,
                    x_copy, incx_copy );
    }

    bli_caxpy( n,
               alpha,
               x_copy, incx_copy,
               y,      incy );

    if ( bli_is_conj( conj ) )
        bli_cfree( x_copy );
}
void bli_daxpyv ( char  conj,
int  n,
double *  alpha,
double *  x,
int  incx,
double *  y,
int  incy 
)
void bli_saxpyv ( char  conj,
int  n,
float *  alpha,
float *  x,
int  incx,
float *  y,
int  incy 
)
void bli_zaxpyv ( char  conj,
int  n,
dcomplex alpha,
dcomplex x,
int  incx,
dcomplex y,
int  incy 
)

References bli_is_conj(), bli_zallocv(), bli_zaxpy(), bli_zcopyv(), bli_zero_dim1(), and bli_zfree().

Referenced by bli_zaxpymrt(), bli_zgemv(), bli_zhemv(), bli_ztrmvsx(), bli_ztrsvsx(), FLA_Apply_H2_UT_l_opz_var1(), FLA_Apply_H2_UT_r_opz_var1(), FLA_Apply_HUD_UT_l_opz_var1(), FLA_Bidiag_UT_u_step_ofz_var2(), FLA_Bidiag_UT_u_step_ofz_var3(), FLA_Bidiag_UT_u_step_ofz_var4(), FLA_Bidiag_UT_u_step_opz_var2(), FLA_Bidiag_UT_u_step_opz_var3(), FLA_Bidiag_UT_u_step_opz_var4(), FLA_Bidiag_UT_u_step_opz_var5(), FLA_Eig_gest_il_opz_var1(), FLA_Eig_gest_il_opz_var2(), FLA_Eig_gest_il_opz_var3(), FLA_Eig_gest_il_opz_var4(), FLA_Eig_gest_il_opz_var5(), FLA_Eig_gest_iu_opz_var1(), FLA_Eig_gest_iu_opz_var2(), FLA_Eig_gest_iu_opz_var3(), FLA_Eig_gest_iu_opz_var4(), FLA_Eig_gest_iu_opz_var5(), FLA_Eig_gest_nl_opz_var1(), FLA_Eig_gest_nl_opz_var2(), FLA_Eig_gest_nl_opz_var4(), FLA_Eig_gest_nl_opz_var5(), FLA_Eig_gest_nu_opz_var1(), FLA_Eig_gest_nu_opz_var2(), FLA_Eig_gest_nu_opz_var4(), FLA_Eig_gest_nu_opz_var5(), FLA_Hess_UT_step_ofz_var2(), FLA_Hess_UT_step_ofz_var3(), FLA_Hess_UT_step_ofz_var4(), FLA_Hess_UT_step_opz_var2(), FLA_Hess_UT_step_opz_var3(), FLA_Hess_UT_step_opz_var4(), FLA_Hess_UT_step_opz_var5(), FLA_Tridiag_UT_l_step_ofz_var2(), FLA_Tridiag_UT_l_step_ofz_var3(), FLA_Tridiag_UT_l_step_opz_var1(), FLA_Tridiag_UT_l_step_opz_var2(), and FLA_Tridiag_UT_l_step_opz_var3().

{
    dcomplex* x_copy;
    int       incx_copy;

    // Return early if possible.
    if ( bli_zero_dim1( n ) ) return;

    x_copy    = x;
    incx_copy = incx;
    
    if ( bli_is_conj( conj ) )
    {
        x_copy    = bli_zallocv( n );
        incx_copy = 1;
    
        bli_zcopyv( conj,
                    n,
                    x,      incx,
                    x_copy, incx_copy );
    }

    bli_zaxpy( n,
               alpha,
               x_copy, incx_copy,
               y,      incy );

    if ( bli_is_conj( conj ) )
        bli_zfree( x_copy );
}