1 SUBROUTINE zdrscl( N, SA, SX, INCX )
44 DOUBLE PRECISION ZERO, ONE
45 parameter( zero = 0.0d+0, one = 1.0d+0 )
49 DOUBLE PRECISION BIGNUM, CDEN, CDEN1, CNUM, CNUM1, MUL, SMLNUM
52 DOUBLE PRECISION DLAMCH
70 smlnum = dlamch(
'S' )
72 CALL dlabad( smlnum, bignum )
82 IF( abs( cden1 ).GT.abs( cnum ) .AND. cnum.NE.zero )
THEN
89 ELSE IF( abs( cnum1 ).GT.abs( cden ) )
THEN
106 CALL zdscal( n, mul, sx, incx )
subroutine dlabad(SMALL, LARGE)
subroutine zdrscl(N, SA, SX, INCX)
subroutine zdscal(n, da, zx, incx)