diff options
Diffstat (limited to 'lapacke/src/lapacke_ztfsm.c')
| -rw-r--r-- | lapacke/src/lapacke_ztfsm.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lapacke/src/lapacke_ztfsm.c b/lapacke/src/lapacke_ztfsm.c index dc86e40b..9e162800 100644 --- a/lapacke/src/lapacke_ztfsm.c +++ b/lapacke/src/lapacke_ztfsm.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,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztfsm( int matrix_order, char transr, char side, char uplo, +lapack_int LAPACKE_ztfsm( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, lapack_complex_double alpha, const lapack_complex_double* a, lapack_complex_double* b, lapack_int ldb ) { - 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_ztfsm", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( IS_Z_NONZERO(alpha) ) { - if( LAPACKE_ztf_nancheck( matrix_order, transr, uplo, diag, n, a ) ) { + if( LAPACKE_ztf_nancheck( matrix_layout, transr, uplo, diag, n, a ) ) { return -10; } } @@ -54,11 +54,11 @@ lapack_int LAPACKE_ztfsm( int matrix_order, char transr, char side, char uplo, return -9; } if( IS_Z_NONZERO(alpha) ) { - if( LAPACKE_zge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -11; } } #endif - return LAPACKE_ztfsm_work( matrix_order, transr, side, uplo, trans, diag, m, + return LAPACKE_ztfsm_work( matrix_layout, transr, side, uplo, trans, diag, m, n, alpha, a, b, ldb ); } |