diff options
Diffstat (limited to 'lapacke/src/lapacke_cgesdd.c')
| -rw-r--r-- | lapacke/src/lapacke_cgesdd.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lapacke/src/lapacke_cgesdd.c b/lapacke/src/lapacke_cgesdd.c index f7498557..b42bad2b 100644 --- a/lapacke/src/lapacke_cgesdd.c +++ b/lapacke/src/lapacke_cgesdd.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_cgesdd( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_cgesdd( int matrix_layout, char jobz, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, float* s, lapack_complex_float* u, lapack_int ldu, lapack_complex_float* vt, @@ -47,13 +47,13 @@ lapack_int LAPACKE_cgesdd( int matrix_order, char jobz, lapack_int m, float* rwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgesdd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_cgesdd( int matrix_order, char jobz, lapack_int m, goto exit_level_1; } /* Query optimal working array(s) size */ - info = LAPACKE_cgesdd_work( matrix_order, jobz, m, n, a, lda, s, u, ldu, vt, + info = LAPACKE_cgesdd_work( matrix_layout, jobz, m, n, a, lda, s, u, ldu, vt, ldvt, &work_query, lwork, rwork, iwork ); if( info != 0 ) { goto exit_level_2; @@ -90,7 +90,7 @@ lapack_int LAPACKE_cgesdd( int matrix_order, char jobz, lapack_int m, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_cgesdd_work( matrix_order, jobz, m, n, a, lda, s, u, ldu, vt, + info = LAPACKE_cgesdd_work( matrix_layout, jobz, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, iwork ); /* Release memory and exit */ LAPACKE_free( work ); |