Update LAPACK to 3.8.0
This commit is contained in:
@@ -28,7 +28,7 @@
|
||||
*****************************************************************************
|
||||
* Contents: Native high-level C interface to LAPACK function ssysv_rk
|
||||
* Author: Intel Corporation
|
||||
* Generated December 2016
|
||||
* Generated June 2017
|
||||
*****************************************************************************/
|
||||
|
||||
#include "lapacke_utils.h"
|
||||
@@ -46,15 +46,14 @@ lapack_int LAPACKE_ssysv_rk( int matrix_layout, char uplo, lapack_int n,
|
||||
return -1;
|
||||
}
|
||||
#ifndef LAPACK_DISABLE_NAN_CHECK
|
||||
/* Optionally check input matrices for NaNs */
|
||||
if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) {
|
||||
return -5;
|
||||
}
|
||||
if( LAPACKE_s_nancheck( n, e, 1) ) {
|
||||
return -7;
|
||||
}
|
||||
if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {
|
||||
return -9;
|
||||
if( LAPACKE_get_nancheck() ) {
|
||||
/* Optionally check input matrices for NaNs */
|
||||
if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) {
|
||||
return -5;
|
||||
}
|
||||
if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) {
|
||||
return -9;
|
||||
}
|
||||
}
|
||||
#endif
|
||||
/* Query optimal working array(s) size */
|
||||
|
||||
Reference in New Issue
Block a user