diff options
Diffstat (limited to 'lapacke/src/lapacke_chsein.c')
| -rw-r--r-- | lapacke/src/lapacke_chsein.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lapacke/src/lapacke_chsein.c b/lapacke/src/lapacke_chsein.c index 8ba44e88..0e6eb773 100644 --- a/lapacke/src/lapacke_chsein.c +++ b/lapacke/src/lapacke_chsein.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_chsein( int matrix_order, char job, char eigsrc, char initv, +lapack_int LAPACKE_chsein( int matrix_layout, char job, char eigsrc, char initv, const lapack_logical* select, lapack_int n, const lapack_complex_float* h, lapack_int ldh, lapack_complex_float* w, lapack_complex_float* vl, @@ -44,22 +44,22 @@ lapack_int LAPACKE_chsein( int matrix_order, char job, char eigsrc, char initv, lapack_int info = 0; float* rwork = NULL; lapack_complex_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_chsein", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, h, ldh ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, h, ldh ) ) { return -7; } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'l' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -10; } } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'r' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -12; } } @@ -80,7 +80,7 @@ lapack_int LAPACKE_chsein( int matrix_order, char job, char eigsrc, char initv, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_chsein_work( matrix_order, job, eigsrc, initv, select, n, h, + info = LAPACKE_chsein_work( matrix_layout, job, eigsrc, initv, select, n, h, ldh, w, vl, ldvl, vr, ldvr, mm, m, work, rwork, ifaill, ifailr ); /* Release memory and exit */ |