diff options
Diffstat (limited to 'lapacke/src/lapacke_zgghrd_work.c')
| -rw-r--r-- | lapacke/src/lapacke_zgghrd_work.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lapacke/src/lapacke_zgghrd_work.c b/lapacke/src/lapacke_zgghrd_work.c index 94adb66e..12501597 100644 --- a/lapacke/src/lapacke_zgghrd_work.c +++ b/lapacke/src/lapacke_zgghrd_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_zgghrd_work( int matrix_order, char compq, char compz, +lapack_int LAPACKE_zgghrd_work( int matrix_layout, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zgghrd_work( int matrix_order, char compq, char compz, lapack_complex_double* z, lapack_int ldz ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgghrd( &compq, &compz, &n, &ilo, &ihi, a, &lda, b, &ldb, q, &ldq, z, &ldz, &info ); 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 ldb_t = MAX(1,n); lapack_int ldq_t = MAX(1,n); @@ -110,13 +110,13 @@ lapack_int LAPACKE_zgghrd_work( int matrix_order, char compq, char compz, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); if( LAPACKE_lsame( compq, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_zge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_zge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_zgghrd( &compq, &compz, &n, &ilo, &ihi, a_t, &lda_t, b_t, &ldb_t, |