diff options
Diffstat (limited to 'lapacke/src/lapacke_dsbtrd_work.c')
| -rw-r--r-- | lapacke/src/lapacke_dsbtrd_work.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lapacke/src/lapacke_dsbtrd_work.c b/lapacke/src/lapacke_dsbtrd_work.c index 2ae1ae28..b654545d 100644 --- a/lapacke/src/lapacke_dsbtrd_work.c +++ b/lapacke/src/lapacke_dsbtrd_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,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbtrd_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_dsbtrd_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* d, double* e, double* q, lapack_int ldq, 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_dsbtrd( &vect, &uplo, &n, &kd, ab, &ldab, d, e, q, &ldq, 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,kd+1); lapack_int ldq_t = MAX(1,n); double* ab_t = NULL; @@ -76,9 +76,9 @@ lapack_int LAPACKE_dsbtrd_work( int matrix_order, char vect, char uplo, } } /* Transpose input matrices */ - LAPACKE_dsb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( vect, 'u' ) || LAPACKE_lsame( vect, 'v' ) ) { - LAPACKE_dge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_dge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_dsbtrd( &vect, &uplo, &n, &kd, ab_t, &ldab_t, d, e, q_t, &ldq_t, |