Airyai Airyaid Airybi Airybid Cairy Cbiry

Cairy() Sub Cairy ( Z As  Complex, Id As  Long, Y As  Complex, Info As  Long, Optional Kode As  Long = 1  ) Airy function Ai(z) or its derivative Ai'(z) (complex argument) Purpose This routine computes the Airy function Ai(z) or its derivative Ai'(z). Ai(z) = (1/π) * ∫ cos((1/3)t^3 + zt) dt [0, ∞] A scaling option is available to help avoid overflow. Parameters [in] Z Argument z. [in] Id Order of derivative. = 0: Ai(z) is computed. = 1: Ai'(z) is computed. [out] Y Airy function Ai(z) or its derivative Ai'(z). If Kode = 2, Y is scaled by exp((2/3)*z^(3/2)). [out] Info = 0: Successful exit. = -2: The argument Id had an illegal value. (Id <> 0 and Id <> 1) = -5: The argument Kode had an illegal value. (Kode <> 1 and Kode <> 2) = 1: Y set to zero due to underflow. (-π/3 < arg(z) < π/3 on Kode = 1) = 2: Precision warning. (Half precision or less) = 3: Precision error. (No precision) = 4: Overflow re(z) too large on Kode = 1. [in] Kode (Optional) A parameter to indicate the scaling option. (default = 1) = 1: No scaling. = 2: Returns exponentially scaled values. Reference SLATEC