bl1_copyv.c File Reference

(r12600)

Functions
void	bl1_icopyv (conj1_t conj, int m, int *x, int incx, int *y, int incy)
void	bl1_scopyv (conj1_t conj, int m, float *x, int incx, float *y, int incy)
void	bl1_dcopyv (conj1_t conj, int m, double *x, int incx, double *y, int incy)
void	bl1_ccopyv (conj1_t conj, int m, scomplex *x, int incx, scomplex *y, int incy)
void	bl1_zcopyv (conj1_t conj, int m, dcomplex *x, int incx, dcomplex *y, int incy)
void	bl1_sdcopyv (conj1_t conj, int m, float *x, int incx, double *y, int incy)
void	bl1_dscopyv (conj1_t conj, int m, double *x, int incx, float *y, int incy)
void	bl1_sccopyv (conj1_t conj, int m, float *x, int incx, scomplex *y, int incy)
void	bl1_cscopyv (conj1_t conj, int m, scomplex *x, int incx, float *y, int incy)
void	bl1_szcopyv (conj1_t conj, int m, float *x, int incx, dcomplex *y, int incy)
void	bl1_zscopyv (conj1_t conj, int m, dcomplex *x, int incx, float *y, int incy)
void	bl1_dccopyv (conj1_t conj, int m, double *x, int incx, scomplex *y, int incy)
void	bl1_cdcopyv (conj1_t conj, int m, scomplex *x, int incx, double *y, int incy)
void	bl1_dzcopyv (conj1_t conj, int m, double *x, int incx, dcomplex *y, int incy)
void	bl1_zdcopyv (conj1_t conj, int m, dcomplex *x, int incx, double *y, int incy)
void	bl1_czcopyv (conj1_t conj, int m, scomplex *x, int incx, dcomplex *y, int incy)
void	bl1_zccopyv (conj1_t conj, int m, dcomplex *x, int incx, scomplex *y, int incy)

---

Function Documentation

void bl1_ccopyv	(	conj1_t	conj,
		int	m,
		scomplex *	x,
		int	incx,
		scomplex *	y,
		int	incy
	)

References bl1_cconjv(), bl1_ccopy(), bl1_is_conj(), and bl1_zero_dim1().

Referenced by bl1_caxpymt(), bl1_caxpysmt(), bl1_caxpyv(), bl1_cccopymr(), bl1_cccopymrt(), bl1_cccopymt(), bl1_ccopymrt(), bl1_cgemv(), bl1_cger(), bl1_chemv(), bl1_cher(), bl1_cher2(), bl1_csymmize(), bl1_csymv_blas(), bl1_csyr2_blas(), bl1_csyr_blas(), bl1_ctrmv(), bl1_ctrmvsx(), bl1_ctrsv(), bl1_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 ( bl1_zero_dim1( m ) ) return;

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

    if ( bl1_is_conj( conj ) )
        bl1_cconjv( m,
                    y, incy );
}

void bl1_cdcopyv	(	conj1_t	conj,
		int	m,
		scomplex *	x,
		int	incx,
		double *	y,
		int	incy
	)

References bl1_zero_dim1(), and scomplex::real.

Referenced by bl1_cdcopymr(), bl1_cdcopymrt(), and bl1_cdcopymt().

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

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

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

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

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

void bl1_cscopyv	(	conj1_t	conj,
		int	m,
		scomplex *	x,
		int	incx,
		float *	y,
		int	incy
	)

References bl1_zero_dim1(), and scomplex::real.

Referenced by bl1_cscopymr(), bl1_cscopymrt(), and bl1_cscopymt().

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

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

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

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

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

void bl1_czcopyv	(	conj1_t	conj,
		int	m,
		scomplex *	x,
		int	incx,
		dcomplex *	y,
		int	incy
	)

References bl1_is_conj(), bl1_zconjv(), bl1_zero_dim1(), scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

Referenced by bl1_czcopymr(), bl1_czcopymrt(), and bl1_czcopymt().

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

    // Return early if possible.
    if ( bl1_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 ( bl1_is_conj( conj ) )
        bl1_zconjv( m,
                    y, incy );
}

void bl1_dccopyv	(	conj1_t	conj,
		int	m,
		double *	x,
		int	incx,
		scomplex *	y,
		int	incy
	)

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

Referenced by bl1_dccopymr(), bl1_dccopymrt(), and bl1_dccopymt().

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

    // Return early if possible.
    if ( bl1_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 bl1_dcopyv	(	conj1_t	conj,
		int	m,
		double *	x,
		int	incx,
		double *	y,
		int	incy
	)

References bl1_dcopy().

Referenced by bl1_dcopymrt(), bl1_ddcopymr(), bl1_ddcopymrt(), bl1_ddcopymt(), bl1_dsymmize(), bl1_dtrmvsx(), bl1_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().

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

void bl1_dscopyv	(	conj1_t	conj,
		int	m,
		double *	x,
		int	incx,
		float *	y,
		int	incy
	)

References bl1_zero_dim1().

Referenced by bl1_dscopymr(), bl1_dscopymrt(), and bl1_dscopymt().

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

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

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

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

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

void bl1_dzcopyv	(	conj1_t	conj,
		int	m,
		double *	x,
		int	incx,
		dcomplex *	y,
		int	incy
	)

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

Referenced by bl1_dzcopymr(), bl1_dzcopymrt(), and bl1_dzcopymt().

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

    // Return early if possible.
    if ( bl1_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 bl1_icopyv	(	conj1_t	conj,
		int	m,
		int *	x,
		int	incx,
		int *	y,
		int	incy
	)

References bl1_zero_dim1().

Referenced by bl1_icopymt().

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

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

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

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

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

void bl1_sccopyv	(	conj1_t	conj,
		int	m,
		float *	x,
		int	incx,
		scomplex *	y,
		int	incy
	)

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

Referenced by bl1_sccopymr(), bl1_sccopymrt(), and bl1_sccopymt().

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

    // Return early if possible.
    if ( bl1_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 bl1_scopyv	(	conj1_t	conj,
		int	m,
		float *	x,
		int	incx,
		float *	y,
		int	incy
	)

References bl1_scopy().

Referenced by bl1_scopymrt(), bl1_sscopymr(), bl1_sscopymrt(), bl1_sscopymt(), bl1_ssymmize(), bl1_strmvsx(), bl1_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().

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

void bl1_sdcopyv	(	conj1_t	conj,
		int	m,
		float *	x,
		int	incx,
		double *	y,
		int	incy
	)

References bl1_zero_dim1().

Referenced by bl1_sdcopymr(), bl1_sdcopymrt(), and bl1_sdcopymt().

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

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

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

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

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

void bl1_szcopyv	(	conj1_t	conj,
		int	m,
		float *	x,
		int	incx,
		dcomplex *	y,
		int	incy
	)

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

Referenced by bl1_szcopymr(), bl1_szcopymrt(), and bl1_szcopymt().

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

    // Return early if possible.
    if ( bl1_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 bl1_zccopyv	(	conj1_t	conj,
		int	m,
		dcomplex *	x,
		int	incx,
		scomplex *	y,
		int	incy
	)

References bl1_cconjv(), bl1_is_conj(), bl1_zero_dim1(), scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

Referenced by bl1_zccopymr(), bl1_zccopymrt(), and bl1_zccopymt().

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

    // Return early if possible.
    if ( bl1_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 ( bl1_is_conj( conj ) )
        bl1_cconjv( m,
                    y, incy );
}

void bl1_zcopyv	(	conj1_t	conj,
		int	m,
		dcomplex *	x,
		int	incx,
		dcomplex *	y,
		int	incy
	)

References bl1_is_conj(), bl1_zconjv(), bl1_zcopy(), and bl1_zero_dim1().

Referenced by bl1_zaxpymt(), bl1_zaxpysmt(), bl1_zaxpyv(), bl1_zcopymrt(), bl1_zgemv(), bl1_zger(), bl1_zhemv(), bl1_zher(), bl1_zher2(), bl1_zsymmize(), bl1_zsymv_blas(), bl1_zsyr2_blas(), bl1_zsyr_blas(), bl1_ztrmv(), bl1_ztrmvsx(), bl1_ztrsv(), bl1_ztrsvsx(), bl1_zzcopymr(), bl1_zzcopymrt(), bl1_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 ( bl1_zero_dim1( m ) ) return;

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

    if ( bl1_is_conj( conj ) )
        bl1_zconjv( m,
                    y, incy );
}

void bl1_zdcopyv	(	conj1_t	conj,
		int	m,
		dcomplex *	x,
		int	incx,
		double *	y,
		int	incy
	)

References bl1_zero_dim1(), and dcomplex::real.

Referenced by bl1_zdcopymr(), bl1_zdcopymrt(), and bl1_zdcopymt().

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

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

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

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

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

void bl1_zscopyv	(	conj1_t	conj,
		int	m,
		dcomplex *	x,
		int	incx,
		float *	y,
		int	incy
	)

References bl1_zero_dim1(), and dcomplex::real.

Referenced by bl1_zscopymr(), bl1_zscopymrt(), and bl1_zscopymt().

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

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

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

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

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