132 SUBROUTINE slarra( N, D, E, E2, SPLTOL, TNRM,
133 $ NSPLIT, ISPLIT, INFO )
140 INTEGER INFO, N, NSPLIT
145 REAL D( * ), E( * ), E2( * )
152 parameter( zero = 0.0e0 )
174 IF(spltol.LT.zero)
THEN
176 tmp1 = abs(spltol)* tnrm
179 IF( eabs .LE. tmp1)
THEN
190 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.