This function evaluates the exponentially scaled Airy function.
AIE — Function
value. (Output)
The Airy function for negative arguments and the
exponentially scaled Airy function,
eζAi(X), for positive
arguments where
X — Argument for which the Airy function value is desired. (Input)
Generic: AIE (X)
Specific: The specific interface names are S_AIE and D_AIE.
Single: AIE (X)
Double: The double precision name is DAIE.
The exponentially scaled Airy function is defined to be
If , then the answer will have no precision. If , then the answer will be less accurate than half precision. Here, ε = AMACH(4) is the machine precision.
In this example, AIE(0.49) is computed and printed.
USE AIE_INT
USE UMACH_INT
IMPLICIT NONE
! Declare variables
INTEGER NOUT
REAL VALUE, X
! Compute
X = 0.49
VALUE = AIE(X)
! Print the results
CALL UMACH (2, NOUT)
WRITE (NOUT,99999) X, VALUE
99999 FORMAT (' AIE(', F6.3, ') = ', F6.3)
END
AIE( 0.490) = 0.294
PHONE: 713.784.3131 FAX:713.781.9260 |