void CORE_zlag2c_quark(Quark *quark) { int m; int n; PLASMA_Complex64_t *A; int lda; PLASMA_Complex32_t *B; int ldb; PLASMA_sequence *sequence; PLASMA_request *request; int info; quark_unpack_args_8(quark, m, n, A, lda, B, ldb, sequence, request); info = LAPACKE_zlag2c_work(LAPACK_COL_MAJOR, m, n, A, lda, B, ldb); if (sequence->status == PLASMA_SUCCESS && info != 0) plasma_sequence_flush(quark, sequence, request, info); }
lapack_int LAPACKE_zlag2c( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_float* sa, lapack_int ldsa ) { if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlag2c", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } } #endif return LAPACKE_zlag2c_work( matrix_layout, m, n, a, lda, sa, ldsa ); }