// task execution code void SCHED_zpotrf(Quark* quark) { magma_int_t UPPER; magma_int_t N; cuDoubleComplex *A; magma_int_t LDA; magma_int_t *iinfo; magma_int_t info; quark_unpack_args_5(quark, UPPER, N, A, LDA, iinfo); if (UPPER) { lapackf77_zpotrf(MagmaUpperStr, &N, A, &LDA, &info); } else { lapackf77_zpotrf(MagmaLowerStr, &N, A, &LDA, &info); } if (info > 0) { iinfo[1] = iinfo[0] + info; } }
void CORE_zswpab_quark(Quark *quark) { int i; int n1; int n2; PLASMA_Complex64_t *A; PLASMA_Complex64_t *work; quark_unpack_args_5(quark, i, n1, n2, A, work); CORE_zswpab( i, n1, n2, A, work); }
void CORE_dgetrip_f1_quark(Quark *quark) { int m; int n; double *A; double *W; double *fake; quark_unpack_args_5(quark, m, n, A, W, fake); CORE_dgetrip(m, n, A, W); }
void CORE_zgetrip_f1_quark(Quark *quark) { int m; int n; PLASMA_Complex64_t *A; PLASMA_Complex64_t *W; PLASMA_Complex64_t *fake; quark_unpack_args_5(quark, m, n, A, W, fake); CORE_zgetrip(m, n, A, W); }
/* Task execution code */ void SCHED_zlaswp(Quark* quark) { int N; cuDoubleComplex *A; int LDA; int K2; int *IPIV; int ione=1; quark_unpack_args_5(quark, N, A, LDA, K2, IPIV); lapackf77_zlaswp(&N, A, &LDA, &ione, &K2, IPIV, &ione); }
/* Task execution code */ void SCHED_zgetrf(Quark* quark) { int M; int N; cuDoubleComplex *A; int LDA; int *IPIV; int *iinfo; int info; quark_unpack_args_5(quark, M, N, A, LDA, IPIV); lapackf77_zgetrf(&M, &N, A, &LDA, IPIV, &info); if (info > 0) { iinfo[1] = iinfo[0] + info; } }