diff options
Diffstat (limited to 'lapacke/src/lapacke_dggsvp_work.c')
| -rw-r--r-- | lapacke/src/lapacke_dggsvp_work.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lapacke/src/lapacke_dggsvp_work.c b/lapacke/src/lapacke_dggsvp_work.c index 2f5f300f..5d75bea8 100644 --- a/lapacke/src/lapacke_dggsvp_work.c +++ b/lapacke/src/lapacke_dggsvp_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_dggsvp_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_dggsvp_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double tola, @@ -43,7 +43,7 @@ lapack_int LAPACKE_dggsvp_work( int matrix_order, char jobu, char jobv, lapack_int* iwork, double* tau, 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_dggsvp( &jobu, &jobv, &jobq, &m, &p, &n, a, &lda, b, &ldb, &tola, &tolb, k, l, u, &ldu, v, &ldv, q, &ldq, iwork, tau, work, @@ -51,7 +51,7 @@ lapack_int LAPACKE_dggsvp_work( int matrix_order, char jobu, char jobv, 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_int ldb_t = MAX(1,p); lapack_int ldq_t = MAX(1,n); @@ -121,8 +121,8 @@ lapack_int LAPACKE_dggsvp_work( int matrix_order, char jobu, char jobv, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, p, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, p, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dggsvp( &jobu, &jobv, &jobq, &m, &p, &n, a_t, &lda_t, b_t, &ldb_t, &tola, &tolb, k, l, u_t, &ldu_t, v_t, &ldv_t, |