diff options
Diffstat (limited to 'lapacke/src/lapacke_ztbrfs.c')
| -rw-r--r-- | lapacke/src/lapacke_ztbrfs.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lapacke/src/lapacke_ztbrfs.c b/lapacke/src/lapacke_ztbrfs.c index 86433017..b4181552 100644 --- a/lapacke/src/lapacke_ztbrfs.c +++ b/lapacke/src/lapacke_ztbrfs.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_ztbrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztbrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_complex_double* b, lapack_int ldb, @@ -43,19 +43,19 @@ lapack_int LAPACKE_ztbrfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - 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_ztbrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_ztb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -72,7 +72,7 @@ lapack_int LAPACKE_ztbrfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ztbrfs_work( matrix_order, uplo, trans, diag, n, kd, nrhs, + info = LAPACKE_ztbrfs_work( matrix_layout, uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ |