136 SUBROUTINE dlarrc( JOBT, N, VL, VU, D, E, PIVMIN,
137 $ EIGCNT, LCNT, RCNT, INFO )
146 INTEGER eigcnt, info, lcnt, n, rcnt
147 DOUBLE PRECISION pivmin, vl, vu
150 DOUBLE PRECISION d( * ), e( * )
156 DOUBLE PRECISION zero
157 parameter( zero = 0.0d0 )
162 DOUBLE PRECISION lpivot, rpivot, sl, su, tmp, tmp2
175 matt = lsame( jobt,
'T' )
182 IF( lpivot.LE.zero )
THEN 185 IF( rpivot.LE.zero )
THEN 190 lpivot = ( d( i+1 )-vl ) - tmp/lpivot
191 rpivot = ( d( i+1 )-vu ) - tmp/rpivot
192 IF( lpivot.LE.zero )
THEN 195 IF( rpivot.LE.zero )
THEN 206 IF( lpivot.LE.zero )
THEN 209 IF( rpivot.LE.zero )
THEN 212 tmp = e(i) * d(i) * e(i)
215 IF( tmp2.EQ.zero )
THEN 222 IF( tmp2.EQ.zero )
THEN 230 IF( lpivot.LE.zero )
THEN 233 IF( rpivot.LE.zero )
THEN