bl1_setv.c File Reference

(r)

Functions
void	bl1_isetv (int n, int *sigma, int *x, int incx)
void	bl1_ssetv (int n, float *sigma, float *x, int incx)
void	bl1_dsetv (int n, double *sigma, double *x, int incx)
void	bl1_csetv (int n, scomplex *sigma, scomplex *x, int incx)
void	bl1_zsetv (int n, dcomplex *sigma, dcomplex *x, int incx)

Function Documentation

bl1_csetv()

void bl1_csetv	(	int	n,
		scomplex *	sigma,
		scomplex *	x,
		int	incx
	)

{
    scomplex* chi;
    int       i;
 
    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;
 
        chi->real = sigma->real;
        chi->imag = sigma->imag;
    }
}

References i, scomplex::imag, and scomplex::real.

Referenced by bl1_crandmr(), bl1_csetmr(), FLA_Bidiag_UT_u_step_ofc_var4(), FLA_Bidiag_UT_u_step_opc_var4(), FLA_Fused_Ahx_Ax_opc_var1(), FLA_Fused_Ahx_Axpy_Ax_opc_var1(), FLA_Fused_Gerc2_Ahx_Ax_opc_var1(), FLA_Fused_Gerc2_Ahx_Axpy_Ax_opc_var1(), FLA_Fused_Her2_Ax_l_opc_var1(), FLA_Tridiag_UT_l_realify_opt(), FLA_Tridiag_UT_realify_subdiagonal_opt(), FLA_Tridiag_UT_shift_U_l_opc(), and FLA_Tridiag_UT_u_realify_opt().

bl1_dsetv()

void bl1_dsetv	(	int	n,
		double *	sigma,
		double *	x,
		int	incx
	)

{
    double* chi;
    int     i;
 
    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;
 
        *chi = *sigma;
    }
}

References i.

Referenced by bl1_drandmr(), bl1_dsetmr(), FLA_Bidiag_UT_l_realify_opt(), FLA_Bidiag_UT_realify_diagonals_opt(), FLA_Bidiag_UT_u_realify_opt(), FLA_Bidiag_UT_u_step_ofd_var4(), FLA_Bidiag_UT_u_step_opd_var4(), FLA_Fused_Ahx_Ax_opd_var1(), FLA_Fused_Ahx_Axpy_Ax_opd_var1(), FLA_Fused_Gerc2_Ahx_Ax_opd_var1(), FLA_Fused_Gerc2_Ahx_Axpy_Ax_opd_var1(), FLA_Fused_Her2_Ax_l_opd_var1(), FLA_Obj_extract_imag_part(), FLA_Tridiag_UT_l_realify_opt(), FLA_Tridiag_UT_realify_subdiagonal_opt(), FLA_Tridiag_UT_shift_U_l_opd(), and FLA_Tridiag_UT_u_realify_opt().

bl1_isetv()

void bl1_isetv	(	int	n,
		int *	sigma,
		int *	x,
		int	incx
	)

{
    int*   chi;
    int    i;
 
    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;
 
        *chi = *sigma;
    }
}

References i.

bl1_ssetv()

void bl1_ssetv	(	int	n,
		float *	sigma,
		float *	x,
		int	incx
	)

{
    float* chi;
    int    i;
 
    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;
 
        *chi = *sigma;
    }
}

References i.

Referenced by bl1_srandmr(), bl1_ssetmr(), FLA_Bidiag_UT_l_realify_opt(), FLA_Bidiag_UT_realify_diagonals_opt(), FLA_Bidiag_UT_u_realify_opt(), FLA_Bidiag_UT_u_step_ofs_var4(), FLA_Bidiag_UT_u_step_ops_var4(), FLA_Fused_Ahx_Ax_ops_var1(), FLA_Fused_Ahx_Axpy_Ax_ops_var1(), FLA_Fused_Gerc2_Ahx_Ax_ops_var1(), FLA_Fused_Gerc2_Ahx_Axpy_Ax_ops_var1(), FLA_Fused_Her2_Ax_l_ops_var1(), FLA_Obj_extract_imag_part(), FLA_Tridiag_UT_l_realify_opt(), FLA_Tridiag_UT_realify_subdiagonal_opt(), FLA_Tridiag_UT_shift_U_l_ops(), and FLA_Tridiag_UT_u_realify_opt().

bl1_zsetv()

void bl1_zsetv	(	int	n,
		dcomplex *	sigma,
		dcomplex *	x,
		int	incx
	)

{
    dcomplex* chi;
    int       i;
 
    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;
 
        chi->real = sigma->real;
        chi->imag = sigma->imag;
    }
}

References i, dcomplex::imag, and dcomplex::real.

Referenced by bl1_zrandmr(), bl1_zsetmr(), FLA_Bidiag_UT_u_step_ofz_var4(), FLA_Bidiag_UT_u_step_opz_var4(), FLA_Fused_Ahx_Ax_opz_var1(), FLA_Fused_Ahx_Axpy_Ax_opz_var1(), FLA_Fused_Gerc2_Ahx_Ax_opz_var1(), FLA_Fused_Gerc2_Ahx_Axpy_Ax_opz_var1(), FLA_Fused_Her2_Ax_l_opz_var1(), FLA_Tridiag_UT_l_realify_opt(), FLA_Tridiag_UT_realify_subdiagonal_opt(), FLA_Tridiag_UT_shift_U_l_opz(), and FLA_Tridiag_UT_u_realify_opt().