diff options
Diffstat (limited to 'lapacke/src/lapacke_dgbsv_work.c')
| -rw-r--r-- | lapacke/src/lapacke_dgbsv_work.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lapacke/src/lapacke_dgbsv_work.c b/lapacke/src/lapacke_dgbsv_work.c index b39ea822..8b2f2ddf 100644 --- a/lapacke/src/lapacke_dgbsv_work.c +++ b/lapacke/src/lapacke_dgbsv_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,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbsv_work( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_dgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, lapack_int* ipiv, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgbsv( &n, &kl, &ku, &nrhs, ab, &ldab, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); double* ab_t = NULL; @@ -73,9 +73,9 @@ lapack_int LAPACKE_dgbsv_work( int matrix_order, lapack_int n, lapack_int kl, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_dgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dgbsv( &n, &kl, &ku, &nrhs, ab_t, &ldab_t, ipiv, b_t, &ldb_t, &info ); |