bli_copyv.c File Reference

(r)

Functions
void	bli_icopyv (conj_t conj, int m, int *x, int incx, int *y, int incy)
void	bli_scopyv (conj_t conj, int m, float *x, int incx, float *y, int incy)
void	bli_dcopyv (conj_t conj, int m, double *x, int incx, double *y, int incy)
void	bli_ccopyv (conj_t conj, int m, scomplex *x, int incx, scomplex *y, int incy)
void	bli_zcopyv (conj_t conj, int m, dcomplex *x, int incx, dcomplex *y, int incy)
void	bli_sdcopyv (conj_t conj, int m, float *x, int incx, double *y, int incy)
void	bli_dscopyv (conj_t conj, int m, double *x, int incx, float *y, int incy)
void	bli_sccopyv (conj_t conj, int m, float *x, int incx, scomplex *y, int incy)
void	bli_cscopyv (conj_t conj, int m, scomplex *x, int incx, float *y, int incy)
void	bli_szcopyv (conj_t conj, int m, float *x, int incx, dcomplex *y, int incy)
void	bli_zscopyv (conj_t conj, int m, dcomplex *x, int incx, float *y, int incy)
void	bli_dccopyv (conj_t conj, int m, double *x, int incx, scomplex *y, int incy)
void	bli_cdcopyv (conj_t conj, int m, scomplex *x, int incx, double *y, int incy)
void	bli_dzcopyv (conj_t conj, int m, double *x, int incx, dcomplex *y, int incy)
void	bli_zdcopyv (conj_t conj, int m, dcomplex *x, int incx, double *y, int incy)
void	bli_czcopyv (conj_t conj, int m, scomplex *x, int incx, dcomplex *y, int incy)
void	bli_zccopyv (conj_t conj, int m, dcomplex *x, int incx, scomplex *y, int incy)

---

Function Documentation

void bli_ccopyv	(	conj_t	conj,
		int	m,
		scomplex *	x,
		int	incx,
		scomplex *	y,
		int	incy
	)

References bli_cconjv(), bli_ccopy(), bli_is_conj(), and bli_zero_dim1().

Referenced by bli_caxpymt(), bli_caxpysmt(), bli_caxpyv(), bli_cccopymr(), bli_cccopymrt(), bli_cccopymt(), bli_ccopymrt(), bli_cgemv(), bli_cger(), bli_chemv(), bli_cher(), bli_cher2(), bli_csymmize(), bli_csymv_blas(), bli_csyr2_blas(), bli_csyr_blas(), bli_ctrmv(), bli_ctrmvsx(), bli_ctrsv(), bli_ctrsvsx(), FLA_Accum_T_UT_fc_opc_var1(), FLA_Accum_T_UT_fr_opc_var1(), 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_var1(), 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_CAQR2_UT_opc_var1(), FLA_Eig_gest_il_opc_var3(), FLA_Eig_gest_iu_opc_var3(), FLA_Fused_UYx_ZVx_opc_var1(), FLA_Hess_UT_step_ofc_var3(), FLA_Hess_UT_step_opc_var3(), FLA_Hess_UT_step_opc_var4(), FLA_Hess_UT_step_opc_var5(), FLA_LQ_UT_opc_var2(), FLA_QR_UT_opc_var2(), FLA_Tridiag_UT_l_step_ofc_var2(), FLA_Tridiag_UT_l_step_opc_var2(), FLA_Tridiag_UT_l_step_opc_var3(), and FLA_Tridiag_UT_shift_U_l_opc().

{
    // Return early if possible.
    if ( bli_zero_dim1( m ) ) return;

    bli_ccopy( m,
               x, incx, 
               y, incy );

    if ( bli_is_conj( conj ) )
        bli_cconjv( m,
                    y, incy );
}

void bli_cdcopyv	(	conj_t	conj,
		int	m,
		scomplex *	x,
		int	incx,
		double *	y,
		int	incy
	)

References bli_zero_dim1(), and scomplex::real.

Referenced by bli_cdcopymr(), bli_cdcopymrt(), and bli_cdcopymt().

{
    scomplex* chi;
    double*   psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        *psi = chi->real;

        chi += incx;
        psi += incy;
    }
}

void bli_cscopyv	(	conj_t	conj,
		int	m,
		scomplex *	x,
		int	incx,
		float *	y,
		int	incy
	)

References bli_zero_dim1(), and scomplex::real.

Referenced by bli_cscopymr(), bli_cscopymrt(), and bli_cscopymt().

{
    scomplex* chi;
    float*    psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        *psi = chi->real;

        chi += incx;
        psi += incy;
    }
}

void bli_czcopyv	(	conj_t	conj,
		int	m,
		scomplex *	x,
		int	incx,
		dcomplex *	y,
		int	incy
	)

References bli_is_conj(), bli_zconjv(), bli_zero_dim1(), scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

Referenced by bli_czcopymr(), bli_czcopymrt(), and bli_czcopymt().

{
    scomplex* chi;
    dcomplex* psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        psi->real = chi->real;
        psi->imag = chi->imag;

        chi += incx;
        psi += incy;
    }

    if ( bli_is_conj( conj ) )
        bli_zconjv( m,
                    y, incy );
}

void bli_dccopyv	(	conj_t	conj,
		int	m,
		double *	x,
		int	incx,
		scomplex *	y,
		int	incy
	)

References bli_zero_dim1(), scomplex::imag, and scomplex::real.

Referenced by bli_dccopymr(), bli_dccopymrt(), and bli_dccopymt().

{
    double*   chi;
    scomplex* psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        psi->real = *chi;
        psi->imag = 0.0F;

        chi += incx;
        psi += incy;
    }
}

void bli_dcopyv	(	conj_t	conj,
		int	m,
		double *	x,
		int	incx,
		double *	y,
		int	incy
	)

References bli_dcopy().

Referenced by bli_dcopymrt(), bli_ddcopymr(), bli_ddcopymrt(), bli_ddcopymt(), bli_dsymmize(), bli_dtrmvsx(), bli_dtrsvsx(), FLA_Accum_T_UT_fc_opd_var1(), FLA_Accum_T_UT_fr_opd_var1(), FLA_Apply_H2_UT_l_opd_var1(), FLA_Apply_H2_UT_r_opd_var1(), FLA_Apply_HUD_UT_l_opd_var1(), FLA_Bidiag_UT_u_step_ofd_var2(), FLA_Bidiag_UT_u_step_ofd_var3(), FLA_Bidiag_UT_u_step_ofd_var4(), FLA_Bidiag_UT_u_step_opd_var1(), FLA_Bidiag_UT_u_step_opd_var2(), FLA_Bidiag_UT_u_step_opd_var3(), FLA_Bidiag_UT_u_step_opd_var4(), FLA_Bidiag_UT_u_step_opd_var5(), FLA_CAQR2_UT_opd_var1(), FLA_Eig_gest_il_opd_var3(), FLA_Eig_gest_iu_opd_var3(), FLA_Fused_UYx_ZVx_opd_var1(), FLA_Hess_UT_step_ofd_var3(), FLA_Hess_UT_step_opd_var3(), FLA_Hess_UT_step_opd_var4(), FLA_Hess_UT_step_opd_var5(), FLA_LQ_UT_opd_var2(), FLA_QR_UT_opd_var2(), FLA_Tridiag_UT_l_step_ofd_var2(), FLA_Tridiag_UT_l_step_opd_var2(), FLA_Tridiag_UT_l_step_opd_var3(), and FLA_Tridiag_UT_shift_U_l_opd().

{
    bli_dcopy( m,
               x, incx, 
               y, incy );
}

void bli_dscopyv	(	conj_t	conj,
		int	m,
		double *	x,
		int	incx,
		float *	y,
		int	incy
	)

References bli_zero_dim1().

Referenced by bli_dscopymr(), bli_dscopymrt(), and bli_dscopymt().

{
    double*   chi;
    float*    psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        *psi = *chi;

        chi += incx;
        psi += incy;
    }
}

void bli_dzcopyv	(	conj_t	conj,
		int	m,
		double *	x,
		int	incx,
		dcomplex *	y,
		int	incy
	)

References bli_zero_dim1(), dcomplex::imag, and dcomplex::real.

Referenced by bli_dzcopymr(), bli_dzcopymrt(), and bli_dzcopymt().

{
    double*   chi;
    dcomplex* psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        psi->real = *chi;
        psi->imag = 0.0;

        chi += incx;
        psi += incy;
    }
}

void bli_icopyv	(	conj_t	conj,
		int	m,
		int *	x,
		int	incx,
		int *	y,
		int	incy
	)

References bli_zero_dim1().

Referenced by bli_icopymt().

{
    int*      chi;
    int*      psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        *psi = *chi;

        chi += incx;
        psi += incy;
    }
}

void bli_sccopyv	(	conj_t	conj,
		int	m,
		float *	x,
		int	incx,
		scomplex *	y,
		int	incy
	)

References bli_zero_dim1(), scomplex::imag, and scomplex::real.

Referenced by bli_sccopymr(), bli_sccopymrt(), and bli_sccopymt().

{
    float*    chi;
    scomplex* psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        psi->real = *chi;
        psi->imag = 0.0F;

        chi += incx;
        psi += incy;
    }
}

void bli_scopyv	(	conj_t	conj,
		int	m,
		float *	x,
		int	incx,
		float *	y,
		int	incy
	)

References bli_scopy().

Referenced by bli_scopymrt(), bli_sscopymr(), bli_sscopymrt(), bli_sscopymt(), bli_ssymmize(), bli_strmvsx(), bli_strsvsx(), FLA_Accum_T_UT_fc_ops_var1(), FLA_Accum_T_UT_fr_ops_var1(), FLA_Apply_H2_UT_l_ops_var1(), FLA_Apply_H2_UT_r_ops_var1(), FLA_Apply_HUD_UT_l_ops_var1(), FLA_Bidiag_UT_u_step_ofs_var2(), FLA_Bidiag_UT_u_step_ofs_var3(), FLA_Bidiag_UT_u_step_ofs_var4(), FLA_Bidiag_UT_u_step_ops_var1(), FLA_Bidiag_UT_u_step_ops_var2(), FLA_Bidiag_UT_u_step_ops_var3(), FLA_Bidiag_UT_u_step_ops_var4(), FLA_Bidiag_UT_u_step_ops_var5(), FLA_CAQR2_UT_ops_var1(), FLA_Eig_gest_il_ops_var3(), FLA_Eig_gest_iu_ops_var3(), FLA_Fused_UYx_ZVx_ops_var1(), FLA_Hess_UT_step_ofs_var3(), FLA_Hess_UT_step_ops_var3(), FLA_Hess_UT_step_ops_var4(), FLA_Hess_UT_step_ops_var5(), FLA_LQ_UT_ops_var2(), FLA_QR_UT_ops_var2(), FLA_Tridiag_UT_l_step_ofs_var2(), FLA_Tridiag_UT_l_step_ops_var2(), FLA_Tridiag_UT_l_step_ops_var3(), and FLA_Tridiag_UT_shift_U_l_ops().

{
    bli_scopy( m,
               x, incx, 
               y, incy );
}

void bli_sdcopyv	(	conj_t	conj,
		int	m,
		float *	x,
		int	incx,
		double *	y,
		int	incy
	)

References bli_zero_dim1().

Referenced by bli_sdcopymr(), bli_sdcopymrt(), and bli_sdcopymt().

{
    float*    chi;
    double*   psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        *psi = *chi;

        chi += incx;
        psi += incy;
    }
}

void bli_szcopyv	(	conj_t	conj,
		int	m,
		float *	x,
		int	incx,
		dcomplex *	y,
		int	incy
	)

References bli_zero_dim1(), dcomplex::imag, and dcomplex::real.

Referenced by bli_szcopymr(), bli_szcopymrt(), and bli_szcopymt().

{
    float*    chi;
    dcomplex* psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        psi->real = *chi;
        psi->imag = 0.0;

        chi += incx;
        psi += incy;
    }
}

void bli_zccopyv	(	conj_t	conj,
		int	m,
		dcomplex *	x,
		int	incx,
		scomplex *	y,
		int	incy
	)

References bli_cconjv(), bli_is_conj(), bli_zero_dim1(), scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

Referenced by bli_zccopymr(), bli_zccopymrt(), and bli_zccopymt().

{
    dcomplex* chi;
    scomplex* psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        psi->real = chi->real;
        psi->imag = chi->imag;

        chi += incx;
        psi += incy;
    }

    if ( bli_is_conj( conj ) )
        bli_cconjv( m,
                    y, incy );
}

void bli_zcopyv	(	conj_t	conj,
		int	m,
		dcomplex *	x,
		int	incx,
		dcomplex *	y,
		int	incy
	)

References bli_is_conj(), bli_zconjv(), bli_zcopy(), and bli_zero_dim1().

Referenced by bli_zaxpymt(), bli_zaxpysmt(), bli_zaxpyv(), bli_zcopymrt(), bli_zgemv(), bli_zger(), bli_zhemv(), bli_zher(), bli_zher2(), bli_zsymmize(), bli_zsymv_blas(), bli_zsyr2_blas(), bli_zsyr_blas(), bli_ztrmv(), bli_ztrmvsx(), bli_ztrsv(), bli_ztrsvsx(), bli_zzcopymr(), bli_zzcopymrt(), bli_zzcopymt(), FLA_Accum_T_UT_fc_opz_var1(), FLA_Accum_T_UT_fr_opz_var1(), 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_var1(), 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_CAQR2_UT_opz_var1(), FLA_Eig_gest_il_opz_var3(), FLA_Eig_gest_iu_opz_var3(), FLA_Fused_UYx_ZVx_opz_var1(), FLA_Hess_UT_step_ofz_var3(), FLA_Hess_UT_step_opz_var3(), FLA_Hess_UT_step_opz_var4(), FLA_Hess_UT_step_opz_var5(), FLA_LQ_UT_opz_var2(), FLA_QR_UT_opz_var2(), FLA_Tridiag_UT_l_step_ofz_var2(), FLA_Tridiag_UT_l_step_opz_var2(), FLA_Tridiag_UT_l_step_opz_var3(), and FLA_Tridiag_UT_shift_U_l_opz().

{
    // Return early if possible.
    if ( bli_zero_dim1( m ) ) return;

    bli_zcopy( m,
               x, incx, 
               y, incy );

    if ( bli_is_conj( conj ) )
        bli_zconjv( m,
                    y, incy );
}

void bli_zdcopyv	(	conj_t	conj,
		int	m,
		dcomplex *	x,
		int	incx,
		double *	y,
		int	incy
	)

References bli_zero_dim1(), and dcomplex::real.

Referenced by bli_zdcopymr(), bli_zdcopymrt(), and bli_zdcopymt().

{
    dcomplex* chi;
    double*   psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        *psi = chi->real;

        chi += incx;
        psi += incy;
    }
}

void bli_zscopyv	(	conj_t	conj,
		int	m,
		dcomplex *	x,
		int	incx,
		float *	y,
		int	incy
	)

References bli_zero_dim1(), and dcomplex::real.

Referenced by bli_zscopymr(), bli_zscopymrt(), and bli_zscopymt().

{
    dcomplex* chi;
    float*    psi;
    int       i;

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

    // Initialize pointers.
    chi = x;
    psi = y;

    for ( i = 0; i < m; ++i )
    {
        *psi = chi->real;

        chi += incx;
        psi += incy;
    }
}