diff options
Diffstat (limited to 'lapacke/src/lapacke_cgerqf_work.c')
| -rw-r--r-- | lapacke/src/lapacke_cgerqf_work.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lapacke/src/lapacke_cgerqf_work.c b/lapacke/src/lapacke_cgerqf_work.c index e9e6a569..b6856401 100644 --- a/lapacke/src/lapacke_cgerqf_work.c +++ b/lapacke/src/lapacke_cgerqf_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_cgerqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgerqf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgerqf( &m, &n, a, &lda, tau, work, &lwork, &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,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_cgerqf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgerqf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { |