83 SUBROUTINE srscl( N, SA, SX, INCX )
101 parameter( one = 1.0e+0, zero = 0.0e+0 )
105 REAL BIGNUM, CDEN, CDEN1, CNUM, CNUM1, MUL, SMLNUM
126 smlnum = slamch(
'S' )
127 bignum = one / smlnum
128 CALL slabad( smlnum, bignum )
137 cnum1 = cnum / bignum
138 IF( abs( cden1 ).GT.abs( cnum ) .AND. cnum.NE.zero )
THEN
145 ELSE IF( abs( cnum1 ).GT.abs( cden ) )
THEN
162 CALL sscal( n, mul, sx, incx )
subroutine slabad(SMALL, LARGE)
SLABAD
subroutine srscl(N, SA, SX, INCX)
SRSCL multiplies a vector by the reciprocal of a real scalar.
subroutine sscal(N, SA, SX, INCX)
SSCAL