diff options
| author | julie <julielangou@users.noreply.github.com> | 2015-04-23 03:25:41 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2015-04-23 03:25:41 +0000 |
| commit | c2bb35e025810d6e7c23c74f2858227f338c97df (patch) | |
| tree | f86241b80e690c4435b6c93b0fcc265d7157ffb0 /SRC | |
| parent | fe1d6223cac273c4b7f45311ae0f1e60aba3f09b (diff) | |
| download | lapack-c2bb35e025810d6e7c23c74f2858227f338c97df.tar.gz lapack-c2bb35e025810d6e7c23c74f2858227f338c97df.tar.bz2 lapack-c2bb35e025810d6e7c23c74f2858227f338c97df.zip | |
Correct info testing for SYSVXX routines
in ?SYSVXX
INFO = -10 needs to be changed to INFO = -11
The code in this section of the files is about to check and make sure all S
elements are positive. And S is argument 11 not 10.
in ?ERRVXX
Add info testing for input parameter 10 and 11
Diffstat (limited to 'SRC')
| -rw-r--r-- | SRC/csysvxx.f | 2 | ||||
| -rw-r--r-- | SRC/dsysvxx.f | 2 | ||||
| -rw-r--r-- | SRC/ssysvxx.f | 4 | ||||
| -rw-r--r-- | SRC/zsysvxx.f | 2 |
4 files changed, 5 insertions, 5 deletions
diff --git a/SRC/csysvxx.f b/SRC/csysvxx.f index 8ebc2c4a..eae24c3c 100644 --- a/SRC/csysvxx.f +++ b/SRC/csysvxx.f @@ -608,7 +608,7 @@ SMAX = MAX( SMAX, S( J ) ) 10 CONTINUE IF( SMIN.LE.ZERO ) THEN - INFO = -10 + INFO = -11 ELSE IF( N.GT.0 ) THEN SCOND = MAX( SMIN, SMLNUM ) / MIN( SMAX, BIGNUM ) ELSE diff --git a/SRC/dsysvxx.f b/SRC/dsysvxx.f index 166d085b..870e341f 100644 --- a/SRC/dsysvxx.f +++ b/SRC/dsysvxx.f @@ -604,7 +604,7 @@ SMAX = MAX( SMAX, S( J ) ) 10 CONTINUE IF( SMIN.LE.ZERO ) THEN - INFO = -10 + INFO = -11 ELSE IF( N.GT.0 ) THEN SCOND = MAX( SMIN, SMLNUM ) / MIN( SMAX, BIGNUM ) ELSE diff --git a/SRC/ssysvxx.f b/SRC/ssysvxx.f index ef70a6a6..666b5163 100644 --- a/SRC/ssysvxx.f +++ b/SRC/ssysvxx.f @@ -602,12 +602,12 @@ IF ( RCEQU ) THEN SMIN = BIGNUM SMAX = ZERO - DO 10 J = 1, N + DO 10 J = 1, N SMIN = MIN( SMIN, S( J ) ) SMAX = MAX( SMAX, S( J ) ) 10 CONTINUE IF( SMIN.LE.ZERO ) THEN - INFO = -10 + INFO = -11 ELSE IF( N.GT.0 ) THEN SCOND = MAX( SMIN, SMLNUM ) / MIN( SMAX, BIGNUM ) ELSE diff --git a/SRC/zsysvxx.f b/SRC/zsysvxx.f index 4139c112..0fbfa7b8 100644 --- a/SRC/zsysvxx.f +++ b/SRC/zsysvxx.f @@ -605,7 +605,7 @@ SMAX = MAX( SMAX, S( J ) ) 10 CONTINUE IF( SMIN.LE.ZERO ) THEN - INFO = -10 + INFO = -11 ELSE IF( N.GT.0 ) THEN SCOND = MAX( SMIN, SMLNUM ) / MIN( SMAX, BIGNUM ) ELSE |