Besi0 Besi0_sub Besi1 Besi1_sub Besin Besin_sub Besind Besind_sub Besinu Besinu_sub Besinud Besinud_sub Besk0 Besk0_sub Besk1 Besk1_sub Beskn Beskn_sub Besknd Besknd_sub Besknu Besknu_sub Besknud Besknud_sub Cbesi Cbesk Sbesin Sbesin_sub Sbesinu Sbesinu_sub Sbeskn Sbeskn_sub Sbesknu Sbesknu_sub

Besk1_sub() Sub Besk1_sub ( Ret As  Double, X As  Double, Optional Info As  Long, Optional Kode As  Long = 1  ) Modified Bessel function of the second kind of order one K1(x) (Subroutine version) Purpose Computes the modified Bessel function of the second kind of order one K1(x). A scaling option is available to help avoid underflow. Parameters [out] Ret Modified Bessel function of the second kind of order one K1(x). (if Kode = 1) Exponentially scaled modified Bessel function of the second kind of order one exp(x)*K1(x). (if Kode = 2) [in] X Argument x. (X > 0) [out] Info (Optional) = 0: Successful exit. = -1: The argument X had an illegal value. (X <= 0) = -3: The argument Kode had an illegal value. (Kode <> 1 and Kode <> 2) = 1: Floating point range error. [in] Kode (Optional) A parameter to indicate the scaling option. = 1: No scaling. = 2: Returns exponentially scaled values. Reference boost/math/special_functions and netlib/cephes