X-Git-Url: http://review.tizen.org/git/?a=blobdiff_plain;f=LAPACKE%2Fsrc%2Flapacke_ssbevd_2stage.c;h=9a26d48c3e3572b9064f5628b0f4458e2bddb38b;hb=d6326d788a2548d63eec62a4382841a504d35876;hp=5b5d3a0d65e58095497a49555f963ed229d2253e;hpb=4229de15d062b2e28fa935af186119ff50afda78;p=platform%2Fupstream%2Flapack.git diff --git a/LAPACKE/src/lapacke_ssbevd_2stage.c b/LAPACKE/src/lapacke_ssbevd_2stage.c index 5b5d3a0..9a26d48 100644 --- a/LAPACKE/src/lapacke_ssbevd_2stage.c +++ b/LAPACKE/src/lapacke_ssbevd_2stage.c @@ -26,14 +26,14 @@ ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ***************************************************************************** -* Contents: Native high-level C interface to LAPACK function ssbevd +* Contents: Native high-level C interface to LAPACK function ssbevd_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbevd( int matrix_layout, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssbevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab, float* w, float* z, lapack_int ldz ) { @@ -45,7 +45,7 @@ lapack_int LAPACKE_ssbevd( int matrix_layout, char jobz, char uplo, lapack_int n lapack_int iwork_query; float work_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_ssbevd", -1 ); + LAPACKE_xerbla( "LAPACKE_ssbevd_2stage", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -55,7 +55,7 @@ lapack_int LAPACKE_ssbevd( int matrix_layout, char jobz, char uplo, lapack_int n } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssbevd_work( matrix_layout, jobz, uplo, n, kd, ab, ldab, w, z, + info = LAPACKE_ssbevd_2stage_work( matrix_layout, jobz, uplo, n, kd, ab, ldab, w, z, ldz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { goto exit_level_0; @@ -74,7 +74,7 @@ lapack_int LAPACKE_ssbevd( int matrix_layout, char jobz, char uplo, lapack_int n goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssbevd_work( matrix_layout, jobz, uplo, n, kd, ab, ldab, w, z, + info = LAPACKE_ssbevd_2stage_work( matrix_layout, jobz, uplo, n, kd, ab, ldab, w, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); @@ -82,7 +82,7 @@ exit_level_1: LAPACKE_free( iwork ); exit_level_0: if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssbevd", info ); + LAPACKE_xerbla( "LAPACKE_ssbevd_2stage", info ); } return info; }