libflame  revision_anchor
Functions
bli_ewinvscalv.c File Reference

(r)

Functions

void bli_sewinvscalv (conj_t conj, int n, float *x, int incx, float *y, int incy)
void bli_dewinvscalv (conj_t conj, int n, double *x, int incx, double *y, int incy)
void bli_csewinvscalv (conj_t conj, int n, float *x, int incx, scomplex *y, int incy)
void bli_cewinvscalv (conj_t conj, int n, scomplex *x, int incx, scomplex *y, int incy)
void bli_zdewinvscalv (conj_t conj, int n, double *x, int incx, dcomplex *y, int incy)
void bli_zewinvscalv (conj_t conj, int n, dcomplex *x, int incx, dcomplex *y, int incy)

Function Documentation

void bli_cewinvscalv ( conj_t  conj,
int  n,
scomplex x,
int  incx,
scomplex y,
int  incy 
)

References bli_is_conj().

Referenced by bli_cewinvscalmt().

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

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

            bli_ccopyconj( chi, &conjchi );
            bli_cinvscals( &conjchi, psi );
        }
    }
    else
    {
        for ( i = 0; i < n; ++i )
        {
            chi = x + i*incx;
            psi = y + i*incy;
    
            bli_cinvscals( chi, psi );
        }
    }
}
void bli_csewinvscalv ( conj_t  conj,
int  n,
float *  x,
int  incx,
scomplex y,
int  incy 
)

Referenced by bli_csewinvscalmt().

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

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

        bli_csinvscals( chi, psi );
    }
}
void bli_dewinvscalv ( conj_t  conj,
int  n,
double *  x,
int  incx,
double *  y,
int  incy 
)

Referenced by bli_dewinvscalmt().

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

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

        bli_dinvscals( chi, psi );
    }
}
void bli_sewinvscalv ( conj_t  conj,
int  n,
float *  x,
int  incx,
float *  y,
int  incy 
)

Referenced by bli_sewinvscalmt().

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

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

        bli_sinvscals( chi, psi );
    }
}
void bli_zdewinvscalv ( conj_t  conj,
int  n,
double *  x,
int  incx,
dcomplex y,
int  incy 
)

Referenced by bli_zdewinvscalmt().

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

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

        bli_zdinvscals( chi, psi );
    }
}
void bli_zewinvscalv ( conj_t  conj,
int  n,
dcomplex x,
int  incx,
dcomplex y,
int  incy 
)

References bli_is_conj().

Referenced by bli_zewinvscalmt().

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

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

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