Previous: epslon Up: ../eispad.html Next: bakvec

PYTHAG(A,B)

       DOUBLE PRECISION FUNCTION PYTHAG(A,B)
       DOUBLE PRECISION A,B
 C
 C     FINDS DSQRT(A**2+B**2) WITHOUT OVERFLOW OR DESTRUCTIVE UNDERFLOW
 C