--- rpl/lapack/lapack/dbdsvdx.f 2017/06/17 11:06:13 1.5 +++ rpl/lapack/lapack/dbdsvdx.f 2018/05/29 06:55:16 1.6 @@ -226,10 +226,10 @@ SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ NS, S, Z, LDZ, WORK, IWORK, INFO) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine (version 3.8.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 +* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -269,7 +269,7 @@ EXTERNAL IDAMAX, LSAME, DAXPY, DDOT, DLAMCH, DNRM2 * .. * .. External Subroutines .. - EXTERNAL DCOPY, DLASET, DSCAL, DSWAP + EXTERNAL DSTEVX, DCOPY, DLASET, DSCAL, DSWAP, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, SIGN, SQRT