R9KNUS(3)

SYNOPSIS
SUBROUTINE R9KNUS (XNU, X, BKNU, BKNU1, ISWTCH)

NAME
r9knus - Compute Bessel functions EXP(X)*K-SUB-XNU(X) and EXP(X)* K-SUB-XNU+1(X) for 0.0 .LE. XNU .LT. 1.0.

LIBRARY
SLATEC (FNLIB)

CATEGORY
C10B3

TYPE
SINGLE PRECISION (R9KNUS-S, D9KNUS-D)

KEYWORDS
BESSEL FUNCTION, FNLIB, SPECIAL FUNCTIONS

AUTHOR
Fullerton, W., (LANL)

DESCRIPTION
Compute Bessel functions EXP(X) * K-sub-XNU (X) and EXP(X) * K-sub-XNU+1 (X) for 0.0 .LE. XNU .LT. 1.0 . Series for C0K on the interval 0. to 2.50000D-01 with weighted error 1.60E-17 log weighted error 16.79 significant figures required 15.99 decimal places required 17.40 Series for ZNU1 on the interval -7.00000D-01 to 0. with weighted error 1.43E-17 log weighted error 16.85 significant figures required 16.08 decimal places required 17.38

REFERENCES
(NONE)

ROUTINES CALLED
CSEVL, GAMMA, INITS, R1MACH, XERMSG

REVISION HISTORY (YYMMDD)
770601 DATE WRITTEN
890531 Changed all specific intrinsics to generic. (WRB)
890531 REVISION DATE from Version 3.2
891214 Prologue converted to Version 4.0 format. (BAB)
900315 CALLs to XERROR changed to CALLs to XERMSG. (THJ)
900720 Routine changed from user-callable to subsidiary. (WRB)
900727 Added EXTERNAL statement. (WRB)
920618 Removed space from variable names. (RWC, WRB)