/** @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() ); }