diff options
Diffstat (limited to 'lapacke/src/lapacke_dsbgv_work.c')
| -rw-r--r-- | lapacke/src/lapacke_dsbgv_work.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lapacke/src/lapacke_dsbgv_work.c b/lapacke/src/lapacke_dsbgv_work.c index 549818b4..069650b2 100644 --- a/lapacke/src/lapacke_dsbgv_work.c +++ b/lapacke/src/lapacke_dsbgv_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,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbgv_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsbgv_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* w, double* z, lapack_int ldz, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsbgv( &jobz, &uplo, &n, &ka, &kb, ab, &ldab, bb, &ldbb, w, z, &ldz, work, &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,ka+1); lapack_int ldbb_t = MAX(1,kb+1); lapack_int ldz_t = MAX(1,n); @@ -89,8 +89,8 @@ lapack_int LAPACKE_dsbgv_work( int matrix_order, char jobz, char uplo, } } /* Transpose input matrices */ - LAPACKE_dsb_trans( matrix_order, uplo, n, ka, ab, ldab, ab_t, ldab_t ); - LAPACKE_dsb_trans( matrix_order, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, ka, ab, ldab, ab_t, ldab_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsbgv( &jobz, &uplo, &n, &ka, &kb, ab_t, &ldab_t, bb_t, &ldbb_t, w, z_t, &ldz_t, work, &info ); |