--- rpl/lapack/lapack/zsysvxx.f 2014/01/27 09:28:43 1.10 +++ rpl/lapack/lapack/zsysvxx.f 2015/11/26 11:44:27 1.11 @@ -506,7 +506,7 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.1) -- +* -- LAPACK driver routine (version 3.6.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * April 2012 @@ -595,7 +595,7 @@ INFO = -8 ELSE IF( LSAME( FACT, 'F' ) .AND. .NOT. $ ( RCEQU .OR. LSAME( EQUED, 'N' ) ) ) THEN - INFO = -9 + INFO = -10 ELSE IF ( RCEQU ) THEN SMIN = BIGNUM @@ -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 @@ -614,9 +614,9 @@ END IF IF( INFO.EQ.0 ) THEN IF( LDB.LT.MAX( 1, N ) ) THEN - INFO = -12 + INFO = -13 ELSE IF( LDX.LT.MAX( 1, N ) ) THEN - INFO = -14 + INFO = -15 END IF END IF END IF