76 parameter( zero = 0.0e0 )
78 parameter( one = 1.0e0 )
81 REAL w, xabs, yabs, z, hugeval
82 LOGICAL x_is_nan, y_is_nan
92 INTRINSIC abs, max, min, sqrt
100 hugeval =
slamch(
'Overflow' )
102 IF ( .NOT.( x_is_nan.OR.y_is_nan ) )
THEN
105 w = max( xabs, yabs )
106 z = min( xabs, yabs )
107 IF( z.EQ.zero .OR. w.GT.hugeval )
THEN
110 slapy2 = w*sqrt( one+( z / w )**2 )
logical function sisnan(sin)
SISNAN tests input for NaN.
real function slamch(cmach)
SLAMCH
real function slapy2(x, y)
SLAPY2 returns sqrt(x2+y2).