diff options
Diffstat (limited to 'lapacke/src/lapacke_zupmtr.c')
| -rw-r--r-- | lapacke/src/lapacke_zupmtr.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lapacke/src/lapacke_zupmtr.c b/lapacke/src/lapacke_zupmtr.c index 7e8eede8..a6361714 100644 --- a/lapacke/src/lapacke_zupmtr.c +++ b/lapacke/src/lapacke_zupmtr.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_zupmtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_zupmtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_double* ap, const lapack_complex_double* tau, @@ -44,7 +44,7 @@ lapack_int LAPACKE_zupmtr( int matrix_order, char side, char uplo, char trans, lapack_int lwork; lapack_complex_double* work = NULL; lapack_int r ; - 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_zupmtr", -1 ); return -1; } @@ -54,7 +54,7 @@ lapack_int LAPACKE_zupmtr( int matrix_order, char side, char uplo, char trans, if( LAPACKE_zpp_nancheck( r, ap ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -9; } if( LAPACKE_z_nancheck( m-1, tau, 1 ) ) { @@ -77,7 +77,7 @@ lapack_int LAPACKE_zupmtr( int matrix_order, char side, char uplo, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zupmtr_work( matrix_order, side, uplo, trans, m, n, ap, tau, + info = LAPACKE_zupmtr_work( matrix_layout, side, uplo, trans, m, n, ap, tau, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); |