************80
! AIRYA computes Airy functions and their derivatives.
Licensing:
The original FORTRAN77 version of this routine is copyrighted by
Shanjie Zhang and Jianming Jin. However, they give permission to
incorporate this routine into a user program that the copyright
is acknowledged.
Modified:
30 June 2012
Author:
Original FORTRAN77 version by Shanjie Zhang, Jianming Jin.
FORTRAN90 version by John Burkardt.
Reference:
Shanjie Zhang, Jianming Jin,
Computation of Special Functions,
Wiley, 1996,
ISBN: 0-471-11963-6,
LC: QA351.C45.
Parameters:
Input, real ( kind = 8 ) X, the argument of the Airy function.
Output, real ( kind = 8 ) AI, BI, AD, BD, the values of Ai(x), Bi(x),
Ai'(x), Bi'(x).
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=8) | :: | x | ||||
real(kind=8) | :: | ai | ||||
real(kind=8) | :: | bi | ||||
real(kind=8) | :: | ad | ||||
real(kind=8) | :: | bd |