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

PYTHAG(A,B)

       REAL FUNCTION PYTHAG(A,B)
       REAL A,B
 C
 C     FINDS SQRT(A**2+B**2) WITHOUT OVERFLOW OR DESTRUCTIVE UNDERFLOW
 C