From: kortschak <dan.kortschak@adelaide.edu.au>
Date: Thu, 10 Sep 2015 06:02:50 +0000 (+0930)
Subject: Fix LAPACK_*lansy routines
X-Git-Tag: v0.2.15^2~19^2
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d6e8459f201ec0e95da31d9886f413f9fd10a034;p=platform%2Fupstream%2Fopenblas.git

Fix LAPACK_*lansy routines

Fixes #639.
---

diff --git a/lapack-netlib/lapacke/src/lapacke_clansy.c b/lapack-netlib/lapacke/src/lapacke_clansy.c
index 84a9d96..eb99511 100644
--- a/lapack-netlib/lapacke/src/lapacke_clansy.c
+++ b/lapack-netlib/lapacke/src/lapacke_clansy.c
@@ -51,7 +51,7 @@ float LAPACKE_clansy( int matrix_order, 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_order, char norm, char uplo, lapack_int n,
     res = LAPACKE_clansy_work( matrix_order, 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/lapack-netlib/lapacke/src/lapacke_dlansy.c b/lapack-netlib/lapacke/src/lapacke_dlansy.c
index 5e6721e..3d99642 100644
--- a/lapack-netlib/lapacke/src/lapacke_dlansy.c
+++ b/lapack-netlib/lapacke/src/lapacke_dlansy.c
@@ -51,7 +51,7 @@ double LAPACKE_dlansy( int matrix_order, 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_order, char norm, char uplo, lapack_int n,
     res = LAPACKE_dlansy_work( matrix_order, 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/lapack-netlib/lapacke/src/lapacke_slansy.c b/lapack-netlib/lapacke/src/lapacke_slansy.c
index 105ce46..adad99b 100644
--- a/lapack-netlib/lapacke/src/lapacke_slansy.c
+++ b/lapack-netlib/lapacke/src/lapacke_slansy.c
@@ -51,7 +51,7 @@ float LAPACKE_slansy( int matrix_order, 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_order, char norm, char uplo, lapack_int n,
     res = LAPACKE_slansy_work( matrix_order, 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/lapack-netlib/lapacke/src/lapacke_zlansy.c b/lapack-netlib/lapacke/src/lapacke_zlansy.c
index 8914378..460a51a 100644
--- a/lapack-netlib/lapacke/src/lapacke_zlansy.c
+++ b/lapack-netlib/lapacke/src/lapacke_zlansy.c
@@ -51,7 +51,7 @@ double LAPACKE_zlansy( int matrix_order, 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_order, char norm, char uplo, lapack_int n,
     res = LAPACKE_zlansy_work( matrix_order, 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: