_PYTHAG(3F) _PYTHAG(3F)
PYTHAG, SPYTHAG - EISPACK auxiliary routine.
double precision function pythag(a,b)
double precision a,b
real function spythag(a,b)
real a,b
Finds sqrt(a**2+b**2) without overflow or destructive underflow.
PPPPaaaaggggeeee 1111 [ Back ]
|