libflame  revision_anchor
Functions
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 
)
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 
)
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 
)
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 
)
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;
    }
}