OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

Fix LAPACK_*lansy routines 

Fixes #639.
tags/v0.2.15^2
kortschak 10 years ago
parent
dfe1eef33b
commit
d6e8459f20
4 changed files with 8 additions and 8 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +2
    -2
      lapack-netlib/lapacke/src/lapacke_clansy.c
  2. +2
    -2
      lapack-netlib/lapacke/src/lapacke_dlansy.c
  3. +2
    -2
      lapack-netlib/lapacke/src/lapacke_slansy.c
  4. +2
    -2
      lapack-netlib/lapacke/src/lapacke_zlansy.c

+ 2
- 2
lapack-netlib/lapacke/src/lapacke_clansy.c View File

@@ -51,7 +51,7 @@ float LAPACKE_clansy( int matrix_order, char norm, char uplo, lapack_int n,
#endif #endif
/* Allocate memory for working array(s) */ /* Allocate memory for working array(s) */
if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || 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) ); work = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,n) );
if( work == NULL ) { if( work == NULL ) {
info = LAPACK_WORK_MEMORY_ERROR; 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 ); res = LAPACKE_clansy_work( matrix_order, norm, uplo, n, a, lda, work );
/* Release memory and exit */ /* Release memory and exit */
if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) ||
LAPACKE_lsame( norm, '0' ) ) {
LAPACKE_lsame( norm, 'O' ) ) {
LAPACKE_free( work ); LAPACKE_free( work );
} }
exit_level_0: exit_level_0:


+ 2
- 2
lapack-netlib/lapacke/src/lapacke_dlansy.c View File

@@ -51,7 +51,7 @@ double LAPACKE_dlansy( int matrix_order, char norm, char uplo, lapack_int n,
#endif #endif
/* Allocate memory for working array(s) */ /* Allocate memory for working array(s) */
if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || 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) ); work = (double*)LAPACKE_malloc( sizeof(double) * MAX(1,n) );
if( work == NULL ) { if( work == NULL ) {
info = LAPACK_WORK_MEMORY_ERROR; 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 ); res = LAPACKE_dlansy_work( matrix_order, norm, uplo, n, a, lda, work );
/* Release memory and exit */ /* Release memory and exit */
if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) ||
LAPACKE_lsame( norm, '0' ) ) {
LAPACKE_lsame( norm, 'O' ) ) {
LAPACKE_free( work ); LAPACKE_free( work );
} }
exit_level_0: exit_level_0:


+ 2
- 2
lapack-netlib/lapacke/src/lapacke_slansy.c View File

@@ -51,7 +51,7 @@ float LAPACKE_slansy( int matrix_order, char norm, char uplo, lapack_int n,
#endif #endif
/* Allocate memory for working array(s) */ /* Allocate memory for working array(s) */
if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || 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) ); work = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,n) );
if( work == NULL ) { if( work == NULL ) {
info = LAPACK_WORK_MEMORY_ERROR; 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 ); res = LAPACKE_slansy_work( matrix_order, norm, uplo, n, a, lda, work );
/* Release memory and exit */ /* Release memory and exit */
if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) ||
LAPACKE_lsame( norm, '0' ) ) {
LAPACKE_lsame( norm, 'O' ) ) {
LAPACKE_free( work ); LAPACKE_free( work );
} }
exit_level_0: exit_level_0:


+ 2
- 2
lapack-netlib/lapacke/src/lapacke_zlansy.c View File

@@ -51,7 +51,7 @@ double LAPACKE_zlansy( int matrix_order, char norm, char uplo, lapack_int n,
#endif #endif
/* Allocate memory for working array(s) */ /* Allocate memory for working array(s) */
if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || 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) ); work = (double*)LAPACKE_malloc( sizeof(double) * MAX(1,n) );
if( work == NULL ) { if( work == NULL ) {
info = LAPACK_WORK_MEMORY_ERROR; 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 ); res = LAPACKE_zlansy_work( matrix_order, norm, uplo, n, a, lda, work );
/* Release memory and exit */ /* Release memory and exit */
if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) ||
LAPACKE_lsame( norm, '0' ) ) {
LAPACKE_lsame( norm, 'O' ) ) {
LAPACKE_free( work ); LAPACKE_free( work );
} }
exit_level_0: exit_level_0:


Write Preview
Loading…
Cancel
Save