void CORE_zgemv_quark(Quark *quark) { PLASMA_enum trans; int m, n, lda, incx, incy; PLASMA_Complex64_t alpha, beta; const PLASMA_Complex64_t *A, *x; PLASMA_Complex64_t *y; quark_unpack_args_11( quark, trans, m, n, alpha, A, lda, x, incx, beta, y, incy ); cblas_zgemv( CblasColMajor, (CBLAS_TRANSPOSE)trans, m, n, CBLAS_SADDR(alpha), A, lda, x, incx, CBLAS_SADDR(beta), y, incy); }
void CORE_zttqrt_quark(Quark *quark) { int m; int n; int ib; PLASMA_Complex64_t *A1; int lda1; PLASMA_Complex64_t *A2; int lda2; PLASMA_Complex64_t *T; int ldt; PLASMA_Complex64_t *TAU; PLASMA_Complex64_t *WORK; quark_unpack_args_11(quark, m, n, ib, A1, lda1, A2, lda2, T, ldt, TAU, WORK); CORE_zttqrt(m, n, ib, A1, lda1, A2, lda2, T, ldt, TAU, WORK); }