--- rpl/lapack/lapack/dsysvxx.f 2012/07/31 11:06:37 1.7 +++ rpl/lapack/lapack/dsysvxx.f 2016/08/27 15:34:40 1.13 @@ -495,9 +495,9 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date November 2015 * -*> \ingroup doubleSYcomputational +*> \ingroup doubleSYdriver * * ===================================================================== SUBROUTINE DSYSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, @@ -505,10 +505,10 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) * -* -- LAPACK computational 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 +* November 2015 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO @@ -594,7 +594,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 @@ -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 @@ -613,9 +613,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