DOUBLE PRECISION FUNCTION MYSQRT(A)
      DOUBLE PRECISION A
      MYSQRT = SQRT(A)
      RETURN
      END