diff options
Diffstat (limited to 'lapacke/src/lapacke_slagge.c')
| -rw-r--r-- | lapacke/src/lapacke_slagge.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lapacke/src/lapacke_slagge.c b/lapacke/src/lapacke_slagge.c index d5baec61..0f21211f 100644 --- a/lapacke/src/lapacke_slagge.c +++ b/lapacke/src/lapacke_slagge.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,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_slagge( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_slagge( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* d, float* a, lapack_int lda, lapack_int* iseed ) { lapack_int info = 0; float* 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_slagge", -1 ); return -1; } @@ -56,7 +56,7 @@ lapack_int LAPACKE_slagge( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_slagge_work( matrix_order, m, n, kl, ku, d, a, lda, iseed, + info = LAPACKE_slagge_work( matrix_layout, m, n, kl, ku, d, a, lda, iseed, work ); /* Release memory and exit */ LAPACKE_free( work ); |