From 86393a475ba7d5140a2d751b6cdc23e1ddc7b489 Mon Sep 17 00:00:00 2001 From: julie Date: Thu, 10 Sep 2015 07:11:18 +0000 Subject: [PATCH] Bug Fix for bug0135 Bug reported by kortschak on Sep 10th Link: http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=13&t=4793 Fix typo substituting O with 0 --- LAPACKE/src/lapacke_clanhe.c | 4 ++-- LAPACKE/src/lapacke_clansy.c | 4 ++-- LAPACKE/src/lapacke_clantr.c | 4 ++-- LAPACKE/src/lapacke_dlansy.c | 4 ++-- LAPACKE/src/lapacke_dlantr.c | 4 ++-- LAPACKE/src/lapacke_slansy.c | 4 ++-- LAPACKE/src/lapacke_slantr.c | 4 ++-- LAPACKE/src/lapacke_zlanhe.c | 4 ++-- LAPACKE/src/lapacke_zlansy.c | 4 ++-- LAPACKE/src/lapacke_zlantr.c | 4 ++-- 10 files changed, 20 insertions(+), 20 deletions(-) diff --git a/LAPACKE/src/lapacke_clanhe.c b/LAPACKE/src/lapacke_clanhe.c index fdbbf40..5a607de 100644 --- a/LAPACKE/src/lapacke_clanhe.c +++ b/LAPACKE/src/lapacke_clanhe.c @@ -51,7 +51,7 @@ float LAPACKE_clanhe( int matrix_layout, char norm, char uplo, lapack_int n, #endif /* Allocate memory for working array(s) */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { work = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,n) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; @@ -62,7 +62,7 @@ float LAPACKE_clanhe( int matrix_layout, char norm, char uplo, lapack_int n, res = LAPACKE_clanhe_work( matrix_layout, norm, uplo, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { LAPACKE_free( work ); } exit_level_0: diff --git a/LAPACKE/src/lapacke_clansy.c b/LAPACKE/src/lapacke_clansy.c index da31363..a0f4a90 100644 --- a/LAPACKE/src/lapacke_clansy.c +++ b/LAPACKE/src/lapacke_clansy.c @@ -51,7 +51,7 @@ float LAPACKE_clansy( int matrix_layout, char norm, char uplo, lapack_int n, #endif /* Allocate memory for working array(s) */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { work = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,n) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; @@ -62,7 +62,7 @@ float LAPACKE_clansy( int matrix_layout, char norm, char uplo, lapack_int n, res = LAPACKE_clansy_work( matrix_layout, norm, uplo, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { LAPACKE_free( work ); } exit_level_0: diff --git a/LAPACKE/src/lapacke_clantr.c b/LAPACKE/src/lapacke_clantr.c index 185bfe2..7ca4c09 100644 --- a/LAPACKE/src/lapacke_clantr.c +++ b/LAPACKE/src/lapacke_clantr.c @@ -52,7 +52,7 @@ float LAPACKE_clantr( int matrix_layout, char norm, char uplo, char diag, #endif /* Allocate memory for working array(s) */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { work = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,m) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; @@ -64,7 +64,7 @@ float LAPACKE_clantr( int matrix_layout, char norm, char uplo, char diag, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { LAPACKE_free( work ); } exit_level_0: diff --git a/LAPACKE/src/lapacke_dlansy.c b/LAPACKE/src/lapacke_dlansy.c index 48183c1..91462c9 100644 --- a/LAPACKE/src/lapacke_dlansy.c +++ b/LAPACKE/src/lapacke_dlansy.c @@ -51,7 +51,7 @@ double LAPACKE_dlansy( int matrix_layout, char norm, char uplo, lapack_int n, #endif /* Allocate memory for working array(s) */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { work = (double*)LAPACKE_malloc( sizeof(double) * MAX(1,n) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; @@ -62,7 +62,7 @@ double LAPACKE_dlansy( int matrix_layout, char norm, char uplo, lapack_int n, res = LAPACKE_dlansy_work( matrix_layout, norm, uplo, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { LAPACKE_free( work ); } exit_level_0: diff --git a/LAPACKE/src/lapacke_dlantr.c b/LAPACKE/src/lapacke_dlantr.c index 807c620..2ca5905 100644 --- a/LAPACKE/src/lapacke_dlantr.c +++ b/LAPACKE/src/lapacke_dlantr.c @@ -52,7 +52,7 @@ double LAPACKE_dlantr( int matrix_layout, char norm, char uplo, char diag, #endif /* Allocate memory for working array(s) */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { work = (double*)LAPACKE_malloc( sizeof(double) * MAX(1,m) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; @@ -64,7 +64,7 @@ double LAPACKE_dlantr( int matrix_layout, char norm, char uplo, char diag, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { LAPACKE_free( work ); } exit_level_0: diff --git a/LAPACKE/src/lapacke_slansy.c b/LAPACKE/src/lapacke_slansy.c index 18866db..e55b650 100644 --- a/LAPACKE/src/lapacke_slansy.c +++ b/LAPACKE/src/lapacke_slansy.c @@ -51,7 +51,7 @@ float LAPACKE_slansy( int matrix_layout, char norm, char uplo, lapack_int n, #endif /* Allocate memory for working array(s) */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { work = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,n) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; @@ -62,7 +62,7 @@ float LAPACKE_slansy( int matrix_layout, char norm, char uplo, lapack_int n, res = LAPACKE_slansy_work( matrix_layout, norm, uplo, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { LAPACKE_free( work ); } exit_level_0: diff --git a/LAPACKE/src/lapacke_slantr.c b/LAPACKE/src/lapacke_slantr.c index 5f03ca6..644ed86 100644 --- a/LAPACKE/src/lapacke_slantr.c +++ b/LAPACKE/src/lapacke_slantr.c @@ -52,7 +52,7 @@ float LAPACKE_slantr( int matrix_layout, char norm, char uplo, char diag, #endif /* Allocate memory for working array(s) */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { work = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,m) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; @@ -64,7 +64,7 @@ float LAPACKE_slantr( int matrix_layout, char norm, char uplo, char diag, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { LAPACKE_free( work ); } exit_level_0: diff --git a/LAPACKE/src/lapacke_zlanhe.c b/LAPACKE/src/lapacke_zlanhe.c index b125218..d8ea8a9 100644 --- a/LAPACKE/src/lapacke_zlanhe.c +++ b/LAPACKE/src/lapacke_zlanhe.c @@ -51,7 +51,7 @@ double LAPACKE_zlanhe( int matrix_layout, char norm, char uplo, lapack_int n, #endif /* Allocate memory for working array(s) */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { work = (double*)LAPACKE_malloc( sizeof(double) * MAX(1,n) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; @@ -62,7 +62,7 @@ double LAPACKE_zlanhe( int matrix_layout, char norm, char uplo, lapack_int n, res = LAPACKE_zlanhe_work( matrix_layout, norm, uplo, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { LAPACKE_free( work ); } exit_level_0: diff --git a/LAPACKE/src/lapacke_zlansy.c b/LAPACKE/src/lapacke_zlansy.c index 6935933..919e1db 100644 --- a/LAPACKE/src/lapacke_zlansy.c +++ b/LAPACKE/src/lapacke_zlansy.c @@ -51,7 +51,7 @@ double LAPACKE_zlansy( int matrix_layout, char norm, char uplo, lapack_int n, #endif /* Allocate memory for working array(s) */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { work = (double*)LAPACKE_malloc( sizeof(double) * MAX(1,n) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; @@ -62,7 +62,7 @@ double LAPACKE_zlansy( int matrix_layout, char norm, char uplo, lapack_int n, res = LAPACKE_zlansy_work( matrix_layout, norm, uplo, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { LAPACKE_free( work ); } exit_level_0: diff --git a/LAPACKE/src/lapacke_zlantr.c b/LAPACKE/src/lapacke_zlantr.c index 27c77dc..186a1aa 100644 --- a/LAPACKE/src/lapacke_zlantr.c +++ b/LAPACKE/src/lapacke_zlantr.c @@ -52,7 +52,7 @@ double LAPACKE_zlantr( int matrix_layout, char norm, char uplo, char diag, #endif /* Allocate memory for working array(s) */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { work = (double*)LAPACKE_malloc( sizeof(double) * MAX(1,m) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; @@ -64,7 +64,7 @@ double LAPACKE_zlantr( int matrix_layout, char norm, char uplo, char diag, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { LAPACKE_free( work ); } exit_level_0: -- 2.7.4