# besy0.f

          FUNCTION BESY0 (X)
    C***BEGIN PROLOGUE  BESY0
    C***PURPOSE  Compute the Bessel function of the second kind of order
    C            zero.
    C***LIBRARY   SLATEC (FNLIB)
    C***CATEGORY  C10A1
    C***TYPE      SINGLE PRECISION (BESY0-S, DBESY0-D)
    C***KEYWORDS  BESSEL FUNCTION, FNLIB, ORDER ZERO, SECOND KIND,
    C             SPECIAL FUNCTIONS
    C***AUTHOR  Fullerton, W., (LANL)
    C***DESCRIPTION
    C
    C BESY0(X) calculates the Bessel function of the second kind
    C of order zero for real argument X.
    C
    C Series for BY0        on the interval  0.          to  1.60000D+01
    C                                        with weighted error   1.20E-17
    C                                         log weighted error  16.92
    C                               significant figures required  16.15
    C                                    decimal places required  17.48
    C
    C Series for BM0        on the interval  0.          to  6.25000D-02
    C                                        with weighted error   4.98E-17
    C                                         log weighted error  16.30
    C                               significant figures required  14.97
    C                                    decimal places required  16.96
    C
    C Series for BTH0       on the interval  0.          to  6.25000D-02
    C                                        with weighted error   3.67E-17
    C                                         log weighted error  16.44
    C                               significant figures required  15.53
    C                                    decimal places required  17.13
    C
    C***REFERENCES  (NONE)
    C***ROUTINES CALLED  BESJ0, CSEVL, INITS, R1MACH, XERMSG
    C***REVISION HISTORY  (YYMMDD)
    C   770401  DATE WRITTEN
    C   890531  Changed all specific intrinsics to generic.  (WRB)
    C   890531  REVISION DATE from Version 3.2
    C   891214  Prologue converted to Version 4.0 format.  (BAB)
    C   900315  CALLs to XERROR changed to CALLs to XERMSG.  (THJ)
    C   900326  Removed duplicate information from DESCRIPTION section.
    C           (WRB)
    C***END PROLOGUE  BESY0