bl1_ewscalv.c File Reference

(r12600)

Functions
void	bl1_sewscalv (conj1_t conj, int n, float *x, int incx, float *y, int incy)
void	bl1_dewscalv (conj1_t conj, int n, double *x, int incx, double *y, int incy)
void	bl1_csewscalv (conj1_t conj, int n, float *x, int incx, scomplex *y, int incy)
void	bl1_cewscalv (conj1_t conj, int n, scomplex *x, int incx, scomplex *y, int incy)
void	bl1_zdewscalv (conj1_t conj, int n, double *x, int incx, dcomplex *y, int incy)
void	bl1_zewscalv (conj1_t conj, int n, dcomplex *x, int incx, dcomplex *y, int incy)

---

Function Documentation

void bl1_cewscalv	(	conj1_t	conj,
		int	n,
		scomplex *	x,
		int	incx,
		scomplex *	y,
		int	incy
	)

References bl1_is_conj().

Referenced by bl1_capdiagmv(), and bl1_cewscalmt().

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

    if ( bl1_is_conj( conj ) )
    {
        for ( i = 0; i < n; ++i )
        {
            chi = x + i*incx;
            psi = y + i*incy;

            bl1_ccopyconj( chi, &conjchi );
            bl1_cscals( &conjchi, psi );
        }
    }
    else
    {
        for ( i = 0; i < n; ++i )
        {
            chi = x + i*incx;
            psi = y + i*incy;
    
            bl1_cscals( chi, psi );
        }
    }
}

void bl1_csewscalv	(	conj1_t	conj,
		int	n,
		float *	x,
		int	incx,
		scomplex *	y,
		int	incy
	)

Referenced by bl1_csapdiagmv(), and bl1_csewscalmt().

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

    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;
        psi = y + i*incy;

        bl1_csscals( chi, psi );
    }
}

void bl1_dewscalv	(	conj1_t	conj,
		int	n,
		double *	x,
		int	incx,
		double *	y,
		int	incy
	)

Referenced by bl1_dapdiagmv(), and bl1_dewscalmt().

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

    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;
        psi = y + i*incy;

        bl1_dscals( chi, psi );
    }
}

void bl1_sewscalv	(	conj1_t	conj,
		int	n,
		float *	x,
		int	incx,
		float *	y,
		int	incy
	)

Referenced by bl1_sapdiagmv(), and bl1_sewscalmt().

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

    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;
        psi = y + i*incy;

        bl1_sscals( chi, psi );
    }
}

void bl1_zdewscalv	(	conj1_t	conj,
		int	n,
		double *	x,
		int	incx,
		dcomplex *	y,
		int	incy
	)

Referenced by bl1_zdapdiagmv(), and bl1_zdewscalmt().

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

    for ( i = 0; i < n; ++i )
    {
        chi = x + i*incx;
        psi = y + i*incy;

        bl1_zdscals( chi, psi );
    }
}

void bl1_zewscalv	(	conj1_t	conj,
		int	n,
		dcomplex *	x,
		int	incx,
		dcomplex *	y,
		int	incy
	)

References bl1_is_conj().

Referenced by bl1_zapdiagmv(), and bl1_zewscalmt().

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

    if ( bl1_is_conj( conj ) )
    {
        for ( i = 0; i < n; ++i )
        {
            chi = x + i*incx;
            psi = y + i*incy;

            bl1_zcopyconj( chi, &conjchi );
            bl1_zscals( &conjchi, psi );
        }
    }
    else
    {
        for ( i = 0; i < n; ++i )
        {
            chi = x + i*incx;
            psi = y + i*incy;
    
            bl1_zscals( chi, psi );
        }
    }
}