diff options
Diffstat (limited to 'lapacke/src/lapacke_cposvxx_work.c')
| -rw-r--r-- | lapacke/src/lapacke_cposvxx_work.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lapacke/src/lapacke_cposvxx_work.c b/lapacke/src/lapacke_cposvxx_work.c index a25275f8..9ef5ae92 100644 --- a/lapacke/src/lapacke_cposvxx_work.c +++ b/lapacke/src/lapacke_cposvxx_work.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_cposvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cposvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -46,7 +46,7 @@ lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cposvxx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, equed, s, b, &ldb, x, &ldx, rcond, rpvgrw, berr, &n_err_bnds, @@ -55,7 +55,7 @@ lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -127,11 +127,11 @@ lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_cpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_cpo_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cposvxx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, rpvgrw, berr, @@ -151,9 +151,9 @@ lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo, LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: |