_PYTHAG(3F)_PYTHAG(3F)NAME
PYTHAG, SPYTHAG - EISPACK auxiliary routine.
SYNOPSYS
double precision function pythag(a,b)
double precision a,b
real function spythag(a,b)
real a,b
DESCRIPTION
Finds sqrt(a**2+b**2) without overflow or destructive underflow.
Page 1