/**
@see magmablas_zprbt_mtv_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zprbt_mtv(
magma_int_t n,
magmaDoubleComplex *du, magmaDoubleComplex *db)
{
magmablas_zprbt_mtv_q(n, du, db, magmablasGetQueue() );
}
/**
@see magmablas_zsymmetrize_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zsymmetrize(
magma_uplo_t uplo, magma_int_t m,
magmaDoubleComplex_ptr dA, magma_int_t ldda )
{
magmablas_zsymmetrize_q( uplo, m, dA, ldda, magmablasGetQueue() );
}
float magma_sdot(
magma_int_t n,
magmaFloat_const_ptr dx, magma_int_t incx,
magmaFloat_const_ptr dy, magma_int_t incy )
{
return magma_sdot_q( n, dx, incx, dy, incy, magmablasGetQueue() );
}
void magmablas_zlaset(
magma_uplo_t uplo, magma_int_t m, magma_int_t n,
magmaDoubleComplex offdiag, magmaDoubleComplex diag,
magmaDoubleComplex_ptr dA, magma_int_t ldda )
{
magmablas_zlaset_q( uplo, m, n, offdiag, diag, dA, ldda, magmablasGetQueue() );
}
/** Returns the sum of absolute values of vector x; i.e., one norm.
@param[in]
n Number of elements in vector x. n >= 0.
@param[in]
dx REAL array on GPU device.
The n element vector x of dimension (1 + (n-1)*incx).
@param[in]
incx Stride between consecutive elements of dx. incx > 0.
@ingroup magma_sblas1
*/
extern "C" float
magma_sasum(
magma_int_t n,
magmaFloat_const_ptr dx, magma_int_t incx )
{
return magma_sasum_q( n, dx, incx, magmablasGetQueue() );
}
/**
@see magmablas_ztranspose_inplace_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_ztranspose_inplace(
magma_int_t n,
magmaDoubleComplex_ptr dA, magma_int_t ldda )
{
magmablas_ztranspose_inplace_q( n, dA, ldda, magmablasGetQueue() );
}
/**
@see magmablas_zlaswpx_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zlaswp_sym( magma_int_t n, magmaDoubleComplex *dA, magma_int_t lda,
magma_int_t k1, magma_int_t k2,
const magma_int_t *ipiv, magma_int_t inci )
{
return magmablas_zlaswp_sym_q( n, dA, lda, k1, k2, ipiv, inci, magmablasGetQueue() );
}
/** Returns index of element of vector x having min. absolute value.
@param[in]
n Number of elements in vector x. n >= 0.
@param[in]
dx REAL array on GPU device.
The n element vector x of dimension (1 + (n-1)*incx).
@param[in]
incx Stride between consecutive elements of dx. incx > 0.
@ingroup magma_sblas1
*/
extern "C" magma_int_t
magma_isamin(
magma_int_t n,
magmaFloat_const_ptr dx, magma_int_t incx )
{
return magma_isamin_q( n, dx, incx, magmablasGetQueue() );
}
/**
@see magmablas_zlascl2_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zlascl2(
magma_type_t type, magma_int_t m, magma_int_t n,
magmaDouble_const_ptr dD,
magmaDoubleComplex_ptr dA, magma_int_t ldda, magma_int_t *info )
{
magmablas_zlascl2_q( type, m, n, dD, dA, ldda, magmablasGetQueue(), info );
}
void magmablas_zlarfg(
magma_int_t n,
magmaDoubleComplex_ptr dalpha,
magmaDoubleComplex_ptr dx, magma_int_t incx,
magmaDoubleComplex_ptr dtau )
{
magmablas_zlarfg_q( n, dalpha, dx, incx, dtau, magmablasGetQueue() );
}
/**
@see magmablas_zlanhe_q
@ingroup magma_zaux2
********************************************************************/
extern "C" double
magmablas_zlanhe(
magma_norm_t norm, magma_uplo_t uplo, magma_int_t n,
magmaDoubleComplex_const_ptr dA, magma_int_t ldda,
magmaDouble_ptr dwork, magma_int_t lwork )
{
return magmablas_zlanhe_q( norm, uplo, n, dA, ldda, dwork, lwork, magmablasGetQueue() );
}
/**
@see magmablas_zlacpy_conj_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zlacpy_conj(
magma_int_t n,
magmaDoubleComplex_ptr dA1, magma_int_t lda1,
magmaDoubleComplex_ptr dA2, magma_int_t lda2)
{
magmablas_zlacpy_conj_q( n, dA1, lda1, dA2, lda2, magmablasGetQueue() );
}
/**
@see magmablas_zlacpy_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zlacpy(
magma_uplo_t uplo, magma_int_t m, magma_int_t n,
magmaDoubleComplex_const_ptr dA, magma_int_t ldda,
magmaDoubleComplex_ptr dB, magma_int_t lddb )
{
magmablas_zlacpy_q( uplo, m, n, dA, ldda, dB, lddb, magmablasGetQueue() );
}
/**
@see magmablas_zprbt_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zprbt(
magma_int_t n,
magmaDoubleComplex *dA, magma_int_t ldda,
magmaDoubleComplex *du, magmaDoubleComplex *dv)
{
magmablas_zprbt_q(n, dA, ldda, du, dv, magmablasGetQueue() );
}
/** Swap vector x and y; \f$ x <-> y \f$.
@param[in]
n Number of elements in vector x and y. n >= 0.
@param[in,out]
dx REAL array on GPU device.
The n element vector x of dimension (1 + (n-1)*incx).
@param[in]
incx Stride between consecutive elements of dx. incx != 0.
@param[in,out]
dy REAL array on GPU device.
The n element vector y of dimension (1 + (n-1)*incy).
@param[in]
incy Stride between consecutive elements of dy. incy != 0.
@ingroup magma_sblas1
*/
extern "C" void
magma_sswap(
magma_int_t n,
magmaFloat_ptr dx, magma_int_t incx,
magmaFloat_ptr dy, magma_int_t incy )
{
magma_sswap_q( n, dx, incx, dy, incy, magmablasGetQueue() );
}
/** Scales a vector by a real constant; \f$ x = \alpha x \f$.
@param[in]
n Number of elements in vector x. n >= 0.
@param[in]
alpha Scalar \f$ \alpha \f$ (real)
@param[in,out]
dx REAL array on GPU device.
The n element vector x of dimension (1 + (n-1)*incx).
@param[in]
incx Stride between consecutive elements of dx. incx > 0.
@ingroup magma_sblas1
*/
extern "C" void
magma_sscal(
magma_int_t n,
float alpha,
magmaFloat_ptr dx, magma_int_t incx )
{
magma_sscal_q( n, alpha, dx, incx, magmablasGetQueue() );
}
/** Generate modified plane rotation.
@ingroup magma_sblas1
*/
extern "C" void
magma_srotmg(
float *d1, float *d2,
float *x1, const float *y1,
float *param )
{
magma_srotmg_q( d1, d2, x1, y1, param, magmablasGetQueue() );
}
/**
@see magmablas_ztrtri_diag_q
@ingroup magma_zblas3
********************************************************************/
extern "C" void
magmablas_ztrtri_diag(
magma_uplo_t uplo, magma_diag_t diag, magma_int_t n,
magmaDoubleComplex_const_ptr dA, magma_int_t ldda,
magmaDoubleComplex_ptr d_dinvA)
{
magmablas_ztrtri_diag_q( uplo, diag, n, dA, ldda, d_dinvA, magmablasGetQueue() );
}
/** Copy vector x to vector y; \f$ y = x \f$.
@param[in]
n Number of elements in vectors x and y. n >= 0.
@param[in]
dx REAL array on GPU device.
The n element vector x of dimension (1 + (n-1)*incx).
@param[in]
incx Stride between consecutive elements of dx. incx != 0.
@param[out]
dy REAL array on GPU device.
The n element vector y of dimension (1 + (n-1)*incy).
@param[in]
incy Stride between consecutive elements of dy. incy != 0.
@ingroup magma_sblas1
*/
extern "C" void
magma_scopy(
magma_int_t n,
magmaFloat_const_ptr dx, magma_int_t incx,
magmaFloat_ptr dy, magma_int_t incy )
{
magma_scopy_q( n, dx, incx, dy, incy, magmablasGetQueue() );
}
/**
@see magmablas_ztranspose_conj_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_ztranspose_conj(
magma_int_t m, magma_int_t n,
magmaDoubleComplex_const_ptr dA, magma_int_t ldda,
magmaDoubleComplex_ptr dAT, magma_int_t lddat )
{
magmablas_ztranspose_conj_q( m, n, dA, ldda, dAT, lddat, magmablasGetQueue() );
}
/**
@see magmablas_zswap_q
@ingroup magma_zblas1
********************************************************************/
extern "C" void
magmablas_zswap(
magma_int_t n,
magmaDoubleComplex_ptr dx, magma_int_t incx,
magmaDoubleComplex_ptr dy, magma_int_t incy)
{
magmablas_zswap_q( n, dx, incx, dy, incy, magmablasGetQueue() );
}
/**
@see magmablas_zsymmetrize_tiles_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zsymmetrize_tiles(
magma_uplo_t uplo, magma_int_t m,
magmaDoubleComplex_ptr dA, magma_int_t ldda,
magma_int_t ntile, magma_int_t mstride, magma_int_t nstride )
{
magmablas_zsymmetrize_tiles_q( uplo, m, dA, ldda, ntile, mstride, nstride, magmablasGetQueue() );
}
/**
@see magmablas_zswapdblk_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zswapdblk(
magma_int_t n, magma_int_t nb,
magmaDoubleComplex_ptr dA, magma_int_t ldda, magma_int_t inca,
magmaDoubleComplex_ptr dB, magma_int_t lddb, magma_int_t incb )
{
magmablas_zswapdblk_q( n, nb, dA, ldda, inca, dB, lddb, incb, magmablasGetQueue() );
}
/**
@see magmablas_dznrm2_cols_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_dznrm2_cols(
magma_int_t m, magma_int_t n,
magmaDoubleComplex_ptr dA, magma_int_t ldda,
magmaDouble_ptr dxnorm )
{
magmablas_dznrm2_cols_q( m, n, dA, ldda, dxnorm, magmablasGetQueue() );
}
/**
@see magmablas_dznrm2_adjust_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_dznrm2_adjust(
magma_int_t k,
magmaDouble_ptr dxnorm,
magmaDoubleComplex_ptr dc )
{
magmablas_dznrm2_adjust_q( k, dxnorm, dc, magmablasGetQueue() );
}
/**
@see magmablas_zlascl2_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zlascl_2x2(
magma_type_t type, magma_int_t m,
magmaDoubleComplex_const_ptr dW, magma_int_t lddw,
magmaDoubleComplex_ptr dA, magma_int_t ldda,
magma_int_t *info )
{
magmablas_zlascl_2x2_q( type, m, dW, lddw, dA, ldda, magmablasGetQueue(), info );
}
/**
@see magmablas_zlaswp_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zlaswp(
magma_int_t n,
magmaDoubleComplex_ptr dAT, magma_int_t ldda,
magma_int_t k1, magma_int_t k2,
const magma_int_t *ipiv, magma_int_t inci )
{
magmablas_zlaswp_q( n, dAT, ldda, k1, k2, ipiv, inci, magmablasGetQueue() );
}
/**
@see magmablas_dznrm2_check_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_dznrm2_check(
magma_int_t m, magma_int_t n,
magmaDoubleComplex_ptr dA, magma_int_t ldda,
magmaDouble_ptr dxnorm,
magmaDouble_ptr dlsticc )
{
magmablas_dznrm2_check_q( m, n, dA, ldda, dxnorm, dlsticc, magmablasGetQueue() );
}
/**
@see magmablas_zlaswpx_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zlaswpx(
magma_int_t n,
magmaDoubleComplex_ptr dA, magma_int_t ldx, magma_int_t ldy,
magma_int_t k1, magma_int_t k2,
const magma_int_t *ipiv, magma_int_t inci )
{
return magmablas_zlaswpx_q( n, dA, ldx, ldy, k1, k2, ipiv, inci, magmablasGetQueue() );
}
/**
@see magmablas_zlaswp2_q
@ingroup magma_zaux2
********************************************************************/
extern "C" void
magmablas_zlaswp2(
magma_int_t n,
magmaDoubleComplex_ptr dAT, magma_int_t ldda,
magma_int_t k1, magma_int_t k2,
magmaInt_const_ptr d_ipiv, magma_int_t inci )
{
magmablas_zlaswp2_q( n, dAT, ldda, k1, k2, d_ipiv, inci, magmablasGetQueue() );
}
