119 SUBROUTINE spoequb( N, A, LDA, S, SCOND, AMAX, INFO )
131 REAL A( lda, * ), S( * )
138 parameter ( zero = 0.0e+0, one = 1.0e+0 )
152 INTRINSIC max, min, sqrt, log, int
163 ELSE IF( lda.LT.max( 1, n ) )
THEN
167 CALL xerbla(
'SPOEQUB', -info )
180 tmp = -0.5 / log( base )
189 smin = min( smin, s( i ) )
190 amax = max( amax, s( i ) )
193 IF( smin.LE.zero )
THEN
198 IF( s( i ).LE.zero )
THEN
209 s( i ) = base ** int( tmp * log( s( i ) ) )
214 scond = sqrt( smin ) / sqrt( amax )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine spoequb(N, A, LDA, S, SCOND, AMAX, INFO)
SPOEQUB