specfun 1.0.8__tar.gz

specfun-1.0.8/.nativegate/build/algama.f

@@ -0,0 +1,283 @@
+C     REAL FUNCTION ALGAMA(X)
+      DOUBLE PRECISION FUNCTION DLGAMA(X)
+C----------------------------------------------------------------------
+C
+C This routine calculates the LOG(GAMMA) function for a positive real
+C   argument X.  Computation is based on an algorithm outlined in
+C   references 1 and 2.  The program uses rational functions that
+C   theoretically approximate LOG(GAMMA) to at least 18 significant
+C   decimal digits.  The approximation for X > 12 is from reference
+C   3, while approximations for X < 12.0 are similar to those in
+C   reference 1, but are unpublished.  The accuracy achieved depends
+C   on the arithmetic system, the compiler, the intrinsic functions,
+C   and proper selection of the machine-dependent constants.
+C
+C
+C*********************************************************************
+C*********************************************************************
+C
+C Explanation of machine-dependent constants
+C
+C beta   - radix for the floating-point representation
+C maxexp - the smallest positive power of beta that overflows
+C XBIG   - largest argument for which LN(GAMMA(X)) is representable
+C          in the machine, i.e., the solution to the equation
+C                  LN(GAMMA(XBIG)) = beta**maxexp
+C XINF   - largest machine representable floating-point number;
+C          approximately beta**maxexp.
+C EPS    - The smallest positive floating-point number such that
+C          1.0+EPS .GT. 1.0
+C FRTBIG - Rough estimate of the fourth root of XBIG
+C
+C
+C     Approximate values for some important machines are:
+C
+C                           beta      maxexp         XBIG
+C
+C CRAY-1        (S.P.)        2        8191       9.62E+2461
+C Cyber 180/855
+C   under NOS   (S.P.)        2        1070       1.72E+319
+C IEEE (IBM/XT,
+C   SUN, etc.)  (S.P.)        2         128       4.08E+36
+C IEEE (IBM/XT,
+C   SUN, etc.)  (D.P.)        2        1024       2.55D+305
+C IBM 3033      (D.P.)       16          63       4.29D+73
+C VAX D-Format  (D.P.)        2         127       2.05D+36
+C VAX G-Format  (D.P.)        2        1023       1.28D+305
+C
+C
+C                           XINF        EPS        FRTBIG
+C
+C CRAY-1        (S.P.)   5.45E+2465   7.11E-15    3.13E+615
+C Cyber 180/855
+C   under NOS   (S.P.)   1.26E+322    3.55E-15    6.44E+79
+C IEEE (IBM/XT,
+C   SUN, etc.)  (S.P.)   3.40E+38     1.19E-7     1.42E+9
+C IEEE (IBM/XT,
+C   SUN, etc.)  (D.P.)   1.79D+308    2.22D-16    2.25D+76
+C IBM 3033      (D.P.)   7.23D+75     2.22D-16    2.56D+18
+C VAX D-Format  (D.P.)   1.70D+38     1.39D-17    1.20D+9
+C VAX G-Format  (D.P.)   8.98D+307    1.11D-16    1.89D+76
+C
+C**************************************************************
+C**************************************************************
+C
+C Error returns
+C
+C  The program returns the value XINF for X .LE. 0.0 or when
+C     overflow would occur.  The computation is believed to 
+C     be free of underflow and overflow.
+C
+C
+C Intrinsic functions required are:
+C
+C      LOG
+C
+C
+C References:
+C
+C  1) W. J. Cody and K. E. Hillstrom, 'Chebyshev Approximations for
+C     the Natural Logarithm of the Gamma Function,' Math. Comp. 21,
+C     1967, pp. 198-203.
+C
+C  2) K. E. Hillstrom, ANL/AMD Program ANLC366S, DGAMMA/DLGAMA, May,
+C     1969.
+C 
+C  3) Hart, Et. Al., Computer Approximations, Wiley and sons, New
+C     York, 1968.
+C
+C
+C  Authors: W. J. Cody and L. Stoltz
+C           Argonne National Laboratory
+C
+C  Latest modification: June 16, 1988
+C
+C----------------------------------------------------------------------
+      INTEGER I
+C     REAL      
+      DOUBLE PRECISION
+     1    C,CORR,D1,D2,D4,EPS,FRTBIG,FOUR,HALF,ONE,PNT68,P1,P2,P4,
+     2    Q1,Q2,Q4,RES,SQRTPI,THRHAL,TWELVE,TWO,X,XBIG,XDEN,XINF,
+     3    XM1,XM2,XM4,XNUM,Y,YSQ,ZERO
+      DIMENSION C(7),P1(8),P2(8),P4(8),Q1(8),Q2(8),Q4(8)
+C----------------------------------------------------------------------
+C  Mathematical constants
+C----------------------------------------------------------------------
+C     DATA ONE,HALF,TWELVE,ZERO/1.0E0,0.5E0,12.0E0,0.0E0/,
+C    1     FOUR,THRHAL,TWO,PNT68/4.0E0,1.5E0,2.0E0,0.6796875E0/,
+C    2     SQRTPI/0.9189385332046727417803297E0/
+      DATA ONE,HALF,TWELVE,ZERO/1.0D0,0.5D0,12.0D0,0.0D0/,
+     1     FOUR,THRHAL,TWO,PNT68/4.0D0,1.5D0,2.0D0,0.6796875D0/,
+     2     SQRTPI/0.9189385332046727417803297D0/
+C----------------------------------------------------------------------
+C  Machine dependent parameters
+C----------------------------------------------------------------------
+C     DATA XBIG,XINF,EPS,FRTBIG/4.08E36,3.401E38,1.19E-7,1.42E9/
+      DATA XBIG,XINF,EPS,FRTBIG/2.55D305,1.79D308,2.22D-16,2.25D76/
+C----------------------------------------------------------------------
+C  Numerator and denominator coefficients for rational minimax
+C     approximation over (0.5,1.5).
+C----------------------------------------------------------------------
+C     DATA D1/-5.772156649015328605195174E-1/
+C     DATA P1/4.945235359296727046734888E0,2.018112620856775083915565E2,
+C    1        2.290838373831346393026739E3,1.131967205903380828685045E4,
+C    2        2.855724635671635335736389E4,3.848496228443793359990269E4,
+C    3        2.637748787624195437963534E4,7.225813979700288197698961E3/
+C     DATA Q1/6.748212550303777196073036E1,1.113332393857199323513008E3,
+C    1        7.738757056935398733233834E3,2.763987074403340708898585E4,
+C    2        5.499310206226157329794414E4,6.161122180066002127833352E4,
+C    3        3.635127591501940507276287E4,8.785536302431013170870835E3/
+      DATA D1/-5.772156649015328605195174D-1/
+      DATA P1/4.945235359296727046734888D0,2.018112620856775083915565D2,
+     1        2.290838373831346393026739D3,1.131967205903380828685045D4,
+     2        2.855724635671635335736389D4,3.848496228443793359990269D4,
+     3        2.637748787624195437963534D4,7.225813979700288197698961D3/
+      DATA Q1/6.748212550303777196073036D1,1.113332393857199323513008D3,
+     1        7.738757056935398733233834D3,2.763987074403340708898585D4,
+     2        5.499310206226157329794414D4,6.161122180066002127833352D4,
+     3        3.635127591501940507276287D4,8.785536302431013170870835D3/
+C----------------------------------------------------------------------
+C  Numerator and denominator coefficients for rational minimax
+C     Approximation over (1.5,4.0).
+C----------------------------------------------------------------------
+C     DATA D2/4.227843350984671393993777E-1/
+C     DATA P2/4.974607845568932035012064E0,5.424138599891070494101986E2,
+C    1        1.550693864978364947665077E4,1.847932904445632425417223E5,
+C    2        1.088204769468828767498470E6,3.338152967987029735917223E6,
+C    3        5.106661678927352456275255E6,3.074109054850539556250927E6/
+C     DATA Q2/1.830328399370592604055942E2,7.765049321445005871323047E3,
+C    1        1.331903827966074194402448E5,1.136705821321969608938755E6,
+C    2        5.267964117437946917577538E6,1.346701454311101692290052E7,
+C    3        1.782736530353274213975932E7,9.533095591844353613395747E6/
+      DATA D2/4.227843350984671393993777D-1/
+      DATA P2/4.974607845568932035012064D0,5.424138599891070494101986D2,
+     1        1.550693864978364947665077D4,1.847932904445632425417223D5,
+     2        1.088204769468828767498470D6,3.338152967987029735917223D6,
+     3        5.106661678927352456275255D6,3.074109054850539556250927D6/
+      DATA Q2/1.830328399370592604055942D2,7.765049321445005871323047D3,
+     1        1.331903827966074194402448D5,1.136705821321969608938755D6,
+     2        5.267964117437946917577538D6,1.346701454311101692290052D7,
+     3        1.782736530353274213975932D7,9.533095591844353613395747D6/
+C----------------------------------------------------------------------
+C  Numerator and denominator coefficients for rational minimax
+C     Approximation over (4.0,12.0).
+C----------------------------------------------------------------------
+C     DATA D4/1.791759469228055000094023E0/
+C     DATA P4/1.474502166059939948905062E4,2.426813369486704502836312E6,
+C    1        1.214755574045093227939592E8,2.663432449630976949898078E9,
+C    2      2.940378956634553899906876E10,1.702665737765398868392998E11,
+C    3      4.926125793377430887588120E11,5.606251856223951465078242E11/
+C     DATA Q4/2.690530175870899333379843E3,6.393885654300092398984238E5,
+C    2        4.135599930241388052042842E7,1.120872109616147941376570E9,
+C    3      1.488613728678813811542398E10,1.016803586272438228077304E11,
+C    4      3.417476345507377132798597E11,4.463158187419713286462081E11/
+      DATA D4/1.791759469228055000094023D0/
+      DATA P4/1.474502166059939948905062D4,2.426813369486704502836312D6,
+     1        1.214755574045093227939592D8,2.663432449630976949898078D9,
+     2      2.940378956634553899906876D10,1.702665737765398868392998D11,
+     3      4.926125793377430887588120D11,5.606251856223951465078242D11/
+      DATA Q4/2.690530175870899333379843D3,6.393885654300092398984238D5,
+     2        4.135599930241388052042842D7,1.120872109616147941376570D9,
+     3      1.488613728678813811542398D10,1.016803586272438228077304D11,
+     4      3.417476345507377132798597D11,4.463158187419713286462081D11/
+C----------------------------------------------------------------------
+C  Coefficients for minimax approximation over (12, INF).
+C----------------------------------------------------------------------
+C     DATA C/-1.910444077728E-03,8.4171387781295E-04,
+C    1     -5.952379913043012E-04,7.93650793500350248E-04,
+C    2     -2.777777777777681622553E-03,8.333333333333333331554247E-02,
+C    3      5.7083835261E-03/
+      DATA C/-1.910444077728D-03,8.4171387781295D-04,
+     1     -5.952379913043012D-04,7.93650793500350248D-04,
+     2     -2.777777777777681622553D-03,8.333333333333333331554247D-02,
+     3      5.7083835261D-03/
+C----------------------------------------------------------------------
+      Y = X
+      IF ((Y .GT. ZERO) .AND. (Y .LE. XBIG)) THEN
+            IF (Y .LE. EPS) THEN
+                  RES = -LOG(Y)
+               ELSE IF (Y .LE. THRHAL) THEN
+C----------------------------------------------------------------------
+C  EPS .LT. X .LE. 1.5
+C----------------------------------------------------------------------
+                  IF (Y .LT. PNT68) THEN
+                        CORR = -LOG(Y)
+                        XM1 = Y
+                     ELSE
+                        CORR = ZERO
+                        XM1 = (Y - HALF) - HALF
+                  END IF
+                  IF ((Y .LE. HALF) .OR. (Y .GE. PNT68)) THEN
+                        XDEN = ONE
+                        XNUM = ZERO
+                        DO 140 I = 1, 8
+                           XNUM = XNUM*XM1 + P1(I)
+                           XDEN = XDEN*XM1 + Q1(I)
+  140                   CONTINUE
+                        RES = CORR + (XM1 * (D1 + XM1*(XNUM/XDEN)))
+                     ELSE
+                        XM2 = (Y - HALF) - HALF
+                        XDEN = ONE
+                        XNUM = ZERO
+                        DO 220 I = 1, 8
+                           XNUM = XNUM*XM2 + P2(I)
+                           XDEN = XDEN*XM2 + Q2(I)
+  220                   CONTINUE
+                        RES = CORR + XM2 * (D2 + XM2*(XNUM/XDEN))
+                  END IF
+               ELSE IF (Y .LE. FOUR) THEN
+C----------------------------------------------------------------------
+C  1.5 .LT. X .LE. 4.0
+C----------------------------------------------------------------------
+                  XM2 = Y - TWO
+                  XDEN = ONE
+                  XNUM = ZERO
+                  DO 240 I = 1, 8
+                     XNUM = XNUM*XM2 + P2(I)
+                     XDEN = XDEN*XM2 + Q2(I)
+  240             CONTINUE
+                  RES = XM2 * (D2 + XM2*(XNUM/XDEN))
+               ELSE IF (Y .LE. TWELVE) THEN
+C----------------------------------------------------------------------
+C  4.0 .LT. X .LE. 12.0
+C----------------------------------------------------------------------
+                  XM4 = Y - FOUR
+                  XDEN = -ONE
+                  XNUM = ZERO
+                  DO 340 I = 1, 8
+                     XNUM = XNUM*XM4 + P4(I)
+                     XDEN = XDEN*XM4 + Q4(I)
+  340             CONTINUE
+                  RES = D4 + XM4*(XNUM/XDEN)
+               ELSE 
+C----------------------------------------------------------------------
+C  Evaluate for argument .GE. 12.0,
+C----------------------------------------------------------------------
+                  RES = ZERO
+                  IF (Y .LE. FRTBIG) THEN
+                        RES = C(7)
+                        YSQ = Y * Y
+                        DO 450 I = 1, 6
+                           RES = RES / YSQ + C(I)
+  450                   CONTINUE
+                  END IF
+                  RES = RES/Y
+                  CORR = LOG(Y)
+                  RES = RES + SQRTPI - HALF*CORR
+                  RES = RES + Y*(CORR-ONE)
+            END IF
+         ELSE
+C----------------------------------------------------------------------
+C  Return for bad arguments
+C----------------------------------------------------------------------
+            RES = XINF
+      END IF
+C----------------------------------------------------------------------
+C  Final adjustments and return
+C----------------------------------------------------------------------
+C     ALGAMA = RES
+      DLGAMA = RES
+      RETURN
+C ---------- Last line of DLGAMA ----------
+      END
+

specfun-1.0.8/.nativegate/build/daw.f

@@ -0,0 +1,260 @@
+      FUNCTION DAW(XX)
+C----------------------------------------------------------------------
+C
+C This function program evaluates Dawson's integral, 
+C
+C                       2  / x   2
+C                     -x   |    t
+C             F(x) = e     |   e    dt
+C                          |
+C                          / 0
+C
+C   for a real argument x.
+C
+C   The calling sequence for this function is 
+C
+C                   Y=DAW(X)
+C
+C   The main computation uses rational Chebyshev approximations
+C   published in Math. Comp. 24, 171-178 (1970) by Cody, Paciorek
+C   and Thacher.  This transportable program is patterned after the
+C   machine-dependent FUNPACK program DDAW(X), but cannot match that
+C   version for efficiency or accuracy.  This version uses rational
+C   approximations that are theoretically accurate to about 19
+C   significant decimal digits.  The accuracy achieved depends on the
+C   arithmetic system, the compiler, the intrinsic functions, and
+C   proper selection of the machine-dependent constants.
+C
+C*******************************************************************
+C*******************************************************************
+C
+C Explanation of machine-dependent constants
+C
+C   XINF   = largest positive machine number
+C   XMIN   = the smallest positive machine number.
+C   EPS    = smallest positive number such that 1+eps > 1.
+C            Approximately  beta**(-p), where beta is the machine
+C            radix and p is the number of significant base-beta
+C            digits in a floating-point number.
+C   XMAX   = absolute argument beyond which DAW(X) underflows.
+C            XMAX = min(0.5/xmin, xinf).
+C   XSMALL = absolute argument below DAW(X)  may be represented
+C            by X.  We recommend XSMALL = sqrt(eps).
+C   XLARGE = argument beyond which DAW(X) may be represented by
+C            1/(2x).  We recommend XLARGE = 1/sqrt(eps).
+C
+C     Approximate values for some important machines are
+C
+C                        beta  p     eps     xmin       xinf  
+C
+C  CDC 7600      (S.P.)    2  48  7.11E-15  3.14E-294  1.26E+322
+C  CRAY-1        (S.P.)    2  48  7.11E-15  4.58E-2467 5.45E+2465
+C  IEEE (IBM/XT,
+C    SUN, etc.)  (S.P.)    2  24  1.19E-07  1.18E-38   3.40E+38
+C  IEEE (IBM/XT,
+C    SUN, etc.)  (D.P.)    2  53  1.11D-16  2.23E-308  1.79D+308
+C  IBM 3033      (D.P.)   16  14  1.11D-16  5.40D-79   7.23D+75
+C  VAX 11/780    (S.P.)    2  24  5.96E-08  2.94E-39   1.70E+38
+C                (D.P.)    2  56  1.39D-17  2.94D-39   1.70D+38
+C   (G Format)   (D.P.)    2  53  1.11D-16  5.57D-309  8.98D+307
+C
+C                         XSMALL     XLARGE     XMAX    
+C
+C  CDC 7600      (S.P.)  5.96E-08   1.68E+07  1.59E+293
+C  CRAY-1        (S.P.)  5.96E-08   1.68E+07  5.65E+2465
+C  IEEE (IBM/XT,
+C    SUN, etc.)  (S.P.)  2.44E-04   4.10E+03  4.25E+37
+C  IEEE (IBM/XT,
+C    SUN, etc.)  (D.P.)  1.05E-08   9.49E+07  2.24E+307
+C  IBM 3033      (D.P.)  3.73D-09   2.68E+08  7.23E+75
+C  VAX 11/780    (S.P.)  2.44E-04   4.10E+03  1.70E+38
+C                (D.P.)  3.73E-09   2.68E+08  1.70E+38
+C   (G Format)   (D.P.)  1.05E-08   9.49E+07  8.98E+307
+C
+C*******************************************************************
+C*******************************************************************
+C
+C Error Returns
+C
+C  The program returns 0.0 for |X| > XMAX.
+C
+C Intrinsic functions required are:
+C
+C     ABS
+C
+C
+C  Author: W. J. Cody
+C          Mathematics and Computer Science Division 
+C          Argonne National Laboratory
+C          Argonne, IL 60439
+C
+C  Latest modification: June 15, 1988
+C
+C----------------------------------------------------------------------
+      INTEGER I
+C     REAL
+      DOUBLE PRECISION
+     1     DAW,FRAC,HALF,ONE,ONE225,P1,P2,P3,P4,Q1,Q2,Q3,Q4,SIX25,
+     2     SUMP,SUMQ,TWO5,W2,X,XX,Y,XLARGE,XMAX,XSMALL,ZERO
+      DIMENSION P1(10),P2(10),P3(10),P4(10),Q1(10),Q2(9),Q3(9),Q4(9)
+C----------------------------------------------------------------------
+C  Mathematical constants.
+C----------------------------------------------------------------------
+C     DATA ZERO,HALF,ONE/0.0E0,0.5E0,1.0E0/,
+C    1     SIX25,ONE225,TWO5/6.25E0,12.25E0,25.0E0/
+      DATA ZERO,HALF,ONE/0.0D0,0.5D0,1.0D0/,
+     1     SIX25,ONE225,TWO5/6.25D0,12.25D0,25.0D0/
+C----------------------------------------------------------------------
+C  Machine-dependent constants
+C----------------------------------------------------------------------
+C     DATA XSMALL/2.44E-04/, XLARGE/4.10E+03/, XMAX/4.25E+37/
+      DATA XSMALL/1.05D-08/, XLARGE/9.49D+07/, XMAX/2.24D+307/
+C----------------------------------------------------------------------
+C  Coefficients for R(9,9) approximation for  |x| < 2.5
+C----------------------------------------------------------------------
+C     DATA P1/-2.69020398788704782410E-12, 4.18572065374337710778E-10,
+C    1        -1.34848304455939419963E-08, 9.28264872583444852976E-07,
+C    2        -1.23877783329049120592E-05, 4.07205792429155826266E-04,
+C    3        -2.84388121441008500446E-03, 4.70139022887204722217E-02,
+C    4        -1.38868086253931995101E-01, 1.00000000000000000004E+00/
+C     DATA Q1/ 1.71257170854690554214E-10, 1.19266846372297253797E-08,
+C    1         4.32287827678631772231E-07, 1.03867633767414421898E-05,
+C    2         1.78910965284246249340E-04, 2.26061077235076703171E-03,
+C    3         2.07422774641447644725E-02, 1.32212955897210128811E-01,
+C    4         5.27798580412734677256E-01, 1.00000000000000000000E+00/
+      DATA P1/-2.69020398788704782410D-12, 4.18572065374337710778D-10,
+     1        -1.34848304455939419963D-08, 9.28264872583444852976D-07,
+     2        -1.23877783329049120592D-05, 4.07205792429155826266D-04,
+     3        -2.84388121441008500446D-03, 4.70139022887204722217D-02,
+     4        -1.38868086253931995101D-01, 1.00000000000000000004D+00/
+      DATA Q1/ 1.71257170854690554214D-10, 1.19266846372297253797D-08,
+     1         4.32287827678631772231D-07, 1.03867633767414421898D-05,
+     2         1.78910965284246249340D-04, 2.26061077235076703171D-03,
+     3         2.07422774641447644725D-02, 1.32212955897210128811D-01,
+     4         5.27798580412734677256D-01, 1.00000000000000000000D+00/
+C----------------------------------------------------------------------
+C  Coefficients for R(9,9) approximation in J-fraction form
+C     for  x in [2.5, 3.5)
+C----------------------------------------------------------------------
+C     DATA P2/-1.70953804700855494930E+00,-3.79258977271042880786E+01,
+C    1         2.61935631268825992835E+01, 1.25808703738951251885E+01,
+C    2        -2.27571829525075891337E+01, 4.56604250725163310122E+00,
+C    3        -7.33080089896402870750E+00, 4.65842087940015295573E+01,
+C    4        -1.73717177843672791149E+01, 5.00260183622027967838E-01/
+C     DATA Q2/ 1.82180093313514478378E+00, 1.10067081034515532891E+03,
+C    1        -7.08465686676573000364E+00, 4.53642111102577727153E+02,
+C    2         4.06209742218935689922E+01, 3.02890110610122663923E+02,
+C    3         1.70641269745236227356E+02, 9.51190923960381458747E+02,
+C    4         2.06522691539642105009E-01/
+      DATA P2/-1.70953804700855494930D+00,-3.79258977271042880786D+01,
+     1         2.61935631268825992835D+01, 1.25808703738951251885D+01,
+     2        -2.27571829525075891337D+01, 4.56604250725163310122D+00,
+     3        -7.33080089896402870750D+00, 4.65842087940015295573D+01,
+     4        -1.73717177843672791149D+01, 5.00260183622027967838D-01/
+      DATA Q2/ 1.82180093313514478378D+00, 1.10067081034515532891D+03,
+     1        -7.08465686676573000364D+00, 4.53642111102577727153D+02,
+     2         4.06209742218935689922D+01, 3.02890110610122663923D+02,
+     3         1.70641269745236227356D+02, 9.51190923960381458747D+02,
+     4         2.06522691539642105009D-01/
+C----------------------------------------------------------------------
+C  Coefficients for R(9,9) approximation in J-fraction form
+C     for  x in [3.5, 5.0]
+C----------------------------------------------------------------------
+C     DATA P3/-4.55169503255094815112E+00,-1.86647123338493852582E+01,
+C    1        -7.36315669126830526754E+00,-6.68407240337696756838E+01,
+C    2         4.84507265081491452130E+01, 2.69790586735467649969E+01,
+C    3        -3.35044149820592449072E+01, 7.50964459838919612289E+00,
+C    4        -1.48432341823343965307E+00, 4.99999810924858824981E-01/
+C     DATA Q3/ 4.47820908025971749852E+01, 9.98607198039452081913E+01,
+C    1         1.40238373126149385228E+01, 3.48817758822286353588E+03,
+C    2        -9.18871385293215873406E+00, 1.24018500009917163023E+03,
+C    3        -6.88024952504512254535E+01,-2.31251575385145143070E+00,
+C    4         2.50041492369922381761E-01/
+      DATA P3/-4.55169503255094815112D+00,-1.86647123338493852582D+01,
+     1        -7.36315669126830526754D+00,-6.68407240337696756838D+01,
+     2         4.84507265081491452130D+01, 2.69790586735467649969D+01,
+     3        -3.35044149820592449072D+01, 7.50964459838919612289D+00,
+     4        -1.48432341823343965307D+00, 4.99999810924858824981D-01/
+      DATA Q3/ 4.47820908025971749852D+01, 9.98607198039452081913D+01,
+     1         1.40238373126149385228D+01, 3.48817758822286353588D+03,
+     2        -9.18871385293215873406D+00, 1.24018500009917163023D+03,
+     3        -6.88024952504512254535D+01,-2.31251575385145143070D+00,
+     4         2.50041492369922381761D-01/
+C----------------------------------------------------------------------
+C  Coefficients for R(9,9) approximation in J-fraction form
+C     for  |x| > 5.0
+C----------------------------------------------------------------------
+C     DATA P4/-8.11753647558432685797E+00,-3.84043882477454453430E+01,
+C    1        -2.23787669028751886675E+01,-2.88301992467056105854E+01,
+C    2        -5.99085540418222002197E+00,-1.13867365736066102577E+01,
+C    3        -6.52828727526980741590E+00,-4.50002293000355585708E+00,
+C    4        -2.50000000088955834952E+00, 5.00000000000000488400E-01/
+C     DATA Q4/ 2.69382300417238816428E+02, 5.04198958742465752861E+01,
+C    1         6.11539671480115846173E+01, 2.08210246935564547889E+02,
+C    2         1.97325365692316183531E+01,-1.22097010558934838708E+01,
+C    3        -6.99732735041547247161E+00,-2.49999970104184464568E+00,
+C    4         7.49999999999027092188E-01/
+      DATA P4/-8.11753647558432685797D+00,-3.84043882477454453430D+01,
+     1        -2.23787669028751886675D+01,-2.88301992467056105854D+01,
+     2        -5.99085540418222002197D+00,-1.13867365736066102577D+01,
+     3        -6.52828727526980741590D+00,-4.50002293000355585708D+00,
+     4        -2.50000000088955834952D+00, 5.00000000000000488400D-01/
+      DATA Q4/ 2.69382300417238816428D+02, 5.04198958742465752861D+01,
+     1         6.11539671480115846173D+01, 2.08210246935564547889D+02,
+     2         1.97325365692316183531D+01,-1.22097010558934838708D+01,
+     3        -6.99732735041547247161D+00,-2.49999970104184464568D+00,
+     4         7.49999999999027092188D-01/
+C----------------------------------------------------------------------
+      X = XX
+      IF (ABS(X) .GT. XLARGE) THEN
+            IF (ABS(X) .LE. XMAX) THEN
+                  DAW = HALF / X
+               ELSE
+                  DAW = ZERO
+            END IF
+         ELSE IF (ABS(X) .LT. XSMALL) THEN
+            DAW = X
+         ELSE
+            Y = X * X
+            IF (Y .LT. SIX25) THEN
+C----------------------------------------------------------------------
+C  ABS(X) .LT. 2.5 
+C----------------------------------------------------------------------
+                  SUMP = P1(1)
+                  SUMQ = Q1(1)
+                  DO 100 I = 2, 10
+                     SUMP = SUMP * Y + P1(I)
+                     SUMQ = SUMQ * Y + Q1(I)
+  100             CONTINUE
+                  DAW = X * SUMP / SUMQ
+               ELSE IF (Y .LT. ONE225) THEN
+C----------------------------------------------------------------------
+C  2.5 .LE. ABS(X) .LT. 3.5 
+C----------------------------------------------------------------------
+                  FRAC = ZERO
+                  DO 200 I = 1, 9
+  200                FRAC = Q2(I) / (P2(I) + Y + FRAC)
+                  DAW = (P2(10) + FRAC) / X
+               ELSE IF (Y .LT. TWO5) THEN
+C----------------------------------------------------------------------
+C  3.5 .LE. ABS(X) .LT. 5.0 
+C---------------------------------------------------------------------
+                  FRAC = ZERO
+                  DO 300 I = 1, 9
+  300                FRAC = Q3(I) / (P3(I) + Y + FRAC)
+                  DAW = (P3(10) + FRAC) / X
+               ELSE
+C----------------------------------------------------------------------
+C  5.0 .LE. ABS(X) .LE. XLARGE 
+C------------------------------------------------------------------
+                  W2 = ONE / X / X
+                  FRAC = ZERO
+                  DO 400 I = 1, 9
+  400                FRAC = Q4(I) / (P4(I) + Y + FRAC)
+                  FRAC = P4(10) + FRAC
+                  DAW = (HALF + HALF * W2 * FRAC) / X
+            END IF
+      END IF
+      RETURN
+C---------- Last line of DAW ----------
+      END