C-----------------------------------------------------------------------
C IMSL Name:  HYPOT/DHYPOT (Single/Double precision version)
C
C Purpose:    Compute SQRT(A**2+B**2) without underflow or overflow.
C
C Usage:      HYPOT(A, B)
C
C Example 1:
C                                  Declare variables
      INTEGER    NOUT
      REAL       A, B, C, HYPOT
      EXTERNAL   HYPOT, UMACH
C
      A = 1.0E+20
      B = 2.0E+20
      C = HYPOT(A,B)
C                                  Get output unit number
      CALL UMACH (2, NOUT)
C                                  Print the results
      WRITE (NOUT,'(A,1PE10.4)') ' C = ', C
      END
C  C = 2.2361E+20