U/perl/d_hypot.U

   1 ?RCS: You may distribute under the terms of either the GNU General Public
   2 ?RCS: License or the Artistic License, as specified in the README file.
   3 ?RCS:
   4 ?MAKE:d_hypot: Inlibc
   5 ?MAKE:  -pick add $@ %<
   6 ?S:d_hypot:
   7 ?S:     This variable conditionally defines HAS_HYPOT if hypot is available
   8 ?S:     for numerically stable hypotenuse function.
   9 ?S:.
  10 ?C:HAS_HYPOT:
  11 ?C:     This symbol, if defined, indicates that the hypot routine is
  12 ?C:     available to do the hypotenuse function.
  13 ?C:.
  14 ?H:#$d_hypot HAS_HYPOT          /**/
  15 ?H:.
  16 ?LINT:set d_hypot
  17 : see if hypot exists
  18 set hypot d_hypot
  19 eval $inlibc
  20