void CORE_ctrtri(int uplo, int diag, int N, PLASMA_Complex32_t *A, int LDA, int *info)
{
*info = LAPACKE_ctrtri_work(
LAPACK_COL_MAJOR,
lapack_const(uplo), lapack_const(diag),
N, A, LDA);
}
lapack_int LAPACKE_ctrtri( int matrix_layout, char uplo, char diag, lapack_int n,
lapack_complex_float* a, lapack_int lda )
{
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
LAPACKE_xerbla( "LAPACKE_ctrtri", -1 );
return -1;
}
#ifndef LAPACK_DISABLE_NAN_CHECK
/* Optionally check input matrices for NaNs */
if( LAPACKE_ctr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) {
return -5;
}
#endif
return LAPACKE_ctrtri_work( matrix_layout, uplo, diag, n, a, lda );
}
void CORE_ctrtri_quark(Quark *quark)
{
int uplo;
int diag;
int N;
PLASMA_Complex32_t *A;
int LDA;
PLASMA_sequence *sequence;
PLASMA_request *request;
int iinfo;
int info;
quark_unpack_args_8(quark, uplo, diag, N, A, LDA, sequence, request, iinfo);
info = LAPACKE_ctrtri_work(
LAPACK_COL_MAJOR,
lapack_const(uplo), lapack_const(diag),
N, A, LDA);
if ((sequence->status == PLASMA_SUCCESS) && (info != 0))
plasma_sequence_flush(quark, sequence, request, iinfo + info);
}