136 SUBROUTINE slarra( N, D, E, E2, SPLTOL, TNRM,
137 $ nsplit, isplit, info )
145 INTEGER INFO, N, NSPLIT
150 REAL D( * ), E( * ), E2( * )
157 parameter ( zero = 0.0e0 )
173 IF(spltol.LT.zero)
THEN
175 tmp1 = abs(spltol)* tnrm
178 IF( eabs .LE. tmp1)
THEN
189 IF( eabs .LE. spltol * sqrt(abs(d(i)))*sqrt(abs(d(i+1))) )
subroutine slarra(N, D, E, E2, SPLTOL, TNRM, NSPLIT, ISPLIT, INFO)
SLARRA computes the splitting points with the specified threshold.