--- rpl/lapack/lapack/zlarrv.f 2010/08/06 15:32:46 1.4 +++ rpl/lapack/lapack/zlarrv.f 2010/08/07 13:18:09 1.5 @@ -4,10 +4,10 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.2.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* June 2010 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N @@ -439,8 +439,8 @@ * within the current block P = INDEXW( WBEGIN-1+OLDFST ) Q = INDEXW( WBEGIN-1+OLDLST ) -* Offset for the arrays WORK, WGAP and WERR, i.e., th P-OFFSET -* thru' Q-OFFSET elements of these arrays are to be used. +* Offset for the arrays WORK, WGAP and WERR, i.e., the P-OFFSET +* through the Q-OFFSET elements of these arrays are to be used. C OFFSET = P-OLDFST OFFSET = INDEXW( WBEGIN ) - 1 * perform limited bisection (if necessary) to get approximate