U/perl/d_log1p.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_log1p: Inlibc
   5 ?MAKE:  -pick add $@ %<
   6 ?S:d_log1p:
   7 ?S:     This variable conditionally defines the HAS_LOG1P symbol, which
   8 ?S:     indicates to the C program that the logp1() routine is available
   9 ?S:     to compute log(1 + x) for values of x close to zero.
  10 ?S:.
  11 ?C:HAS_LOG1P:
  12 ?C:     This symbol, if defined, indicates that the log1p routine is
  13 ?C:     available to do the logarithm of 1 plus argument function.
  14 ?C:.
  15 ?H:#$d_log1p HAS_LOG1P          /**/
  16 ?H:.
  17 ?LINT:set d_log1p
  18 : see if log1p exists
  19 set log1p d_log1p
  20 eval $inlibc
  21