aie.f
FUNCTION AIE (X)
C***BEGIN PROLOGUE AIE
C***PURPOSE Calculate the Airy function for a negative argument and an
C exponentially scaled Airy function for a non-negative
C argument.
C***LIBRARY SLATEC (FNLIB)
C***CATEGORY C10D
C***TYPE SINGLE PRECISION (AIE-S, DAIE-D)
C***KEYWORDS EXPONENTIALLY SCALED AIRY FUNCTION, FNLIB,
C SPECIAL FUNCTIONS
C***AUTHOR Fullerton, W., (LANL)
C***DESCRIPTION
C
C AIE(X) computes the exponentially scaled Airy function for
C non-negative X. It evaluates AI(X) for X .LE. 0.0 and
C EXP(ZETA)*AI(X) for X .GE. 0.0 where ZETA = (2.0/3.0)*(X**1.5).
C
C Series for AIF on the interval -1.00000D+00 to 1.00000D+00
C with weighted error 1.09E-19
C log weighted error 18.96
C significant figures required 17.76
C decimal places required 19.44
C
C Series for AIG on the interval -1.00000D+00 to 1.00000D+00
C with weighted error 1.51E-17
C log weighted error 16.82
C significant figures required 15.19
C decimal places required 17.27
C
C Series for AIP on the interval 0. to 1.00000D+00
C with weighted error 5.10E-17
C log weighted error 16.29
C significant figures required 14.41
C decimal places required 17.06
C
C***REFERENCES (NONE)
C***ROUTINES CALLED CSEVL, INITS, R1MACH, R9AIMP
C***REVISION HISTORY (YYMMDD)
C 770701 DATE WRITTEN
C 890206 REVISION DATE from Version 3.2
C 891214 Prologue converted to Version 4.0 format. (BAB)
C 920618 Removed space from variable names. (RWC, WRB)
C***END PROLOGUE AIE