U/perl/d_j0.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_j0 d_j0l: Inlibc
   5 ?MAKE:  -pick add $@ %<
   6 ?S:d_j0:
   7 ?S:     This variable conditionally defines the HAS_J0 symbol, which
   8 ?S:     indicates to the C program that the j0() routine is available.
   9 ?S:.
  10 ?S:d_j0l:
  11 ?S:     This variable conditionally defines the HAS_J0L symbol, which
  12 ?S:     indicates to the C program that the j0l() routine is available.
  13 ?S:.
  14 ?C:HAS_J0:
  15 ?C:     This symbol, if defined, indicates to the C program that the
  16 ?C:     j0() function is available for Bessel functions of the first
  17 ?C:     kind of the order zero, for doubles.
  18 ?C:.
  19 ?C:HAS_J0L:
  20 ?C:     This symbol, if defined, indicates to the C program that the
  21 ?C:     j0l() function is available for Bessel functions of the first
  22 ?C:     kind of the order zero, for long doubles.
  23 ?C:.
  24 ?H:#$d_j0       HAS_J0          /**/
  25 ?H:#$d_j0l      HAS_J0L         /**/
  26 ?H:.
  27 ?LINT:set d_j0
  28 ?LINT:set d_j0l
  29 : see if j0 exists
  30 set j0 d_j0
  31 eval $inlibc
  32
  33 : see if j0l exists
  34 set j0l d_j0l
  35 eval $inlibc
  36