diff options
Diffstat (limited to 'lapacke/src/lapacke_dgesvx.c')
| -rw-r--r-- | lapacke/src/lapacke_dgesvx.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lapacke/src/lapacke_dgesvx.c b/lapacke/src/lapacke_dgesvx.c index b56867a2..42173a6a 100644 --- a/lapacke/src/lapacke_dgesvx.c +++ b/lapacke/src/lapacke_dgesvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgesvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgesvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, char* equed, double* r, double* c, @@ -44,21 +44,21 @@ lapack_int LAPACKE_dgesvx( int matrix_order, char fact, char trans, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgesvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, af, ldaf ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -14; } if( LAPACKE_lsame( fact, 'f' ) && ( LAPACKE_lsame( *equed, 'b' ) || @@ -86,7 +86,7 @@ lapack_int LAPACKE_dgesvx( int matrix_order, char fact, char trans, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgesvx_work( matrix_order, fact, trans, n, nrhs, a, lda, af, + info = LAPACKE_dgesvx_work( matrix_layout, fact, trans, n, nrhs, a, lda, af, ldaf, ipiv, equed, r, c, b, ldb, x, ldx, rcond, ferr, berr, work, iwork ); /* Backup significant data from working array(s) */ |