C327: Modified Bessel Functions I and K of Order 1/4, 1/2 and 3/4

Author(s): K.S. Kölbig Library: MATHLIB
Submitter: Submitted: 15.05.1987
Language: Fortran Revised: 15.03.1993

Function subprograms BSIR4, BSKR4 and DBSIR4, DBSKR4 calculate the modified Bessel functions

displaymath114

for real arguments x>0 and tex2html_wrap_inline118 . The value x=0 is permitted for the functions I if tex2html_wrap_inline124 . Note that the functions K are even with respect to tex2html_wrap_inline128 .

On CDC and Cray computers, the double-precision versions DBSIR4 etc. are not available.

Structure:

FUNCTION subprograms
User Entry Names: BSIR4, BSKR4,EBSIR4, EBSKR4, DBSIR4, DBSKR4, DEBIR4, DEBKR4
Files Referenced: Unit 6
External References: MTLMTR, ABEND

Usage:

In any arithmetic expression,

tex2html_wrap160

where BSIR4 etc. are of the type REAL, DBSIR4 etc. are of the type DOUBLE PRECISION, and X has the same type as the function name. NU is of type INTEGER and must have one of the values -3,-2,-1,1,2,3.

Method:

Approximation by rational functions (I for |x|<8, K for tex2html_wrap_inline144 ), by an algorithm based on power series (K for 0 < x < 1), or else by truncated Chebyshev series. The cases tex2html_wrap_inline150 are elementary.

Accuracy:

BSIR4 etc. (except on CDC and Cray computers) have full single-precision accuracy. For most values of the argument X, DBSIR4 etc. (and BSIR4 etc. on CDC and Cray computers) have an accuracy of approximately one significant digit less than the machine precision.

Error handling:

Error C327.1: tex2html_wrap_inline152 , or tex2html_wrap_inline154 , respectively, or NU tex2html_wrap_inline156 -3,-2,-1,1,2,3. The function value is set equal to zero, and a message is written on Unit 6, unless subroutine MTLSET (N002) has been called.

References:

  1. Y.L. Luke, Mathematical functions and their approximations (Academic Press, New York 1975) 350, 357, 363, 366.
  2. N.M. Temme, On the numerical evaluation of the modified Bessel function of the third kind, J. Comp. Phys. 19 (1975) 324-337.
tex2html_wrap_inline158

Michel Goossens Tue Jun 4 21:57:49 METDST 1996