AKER0
This function evaluates the Kelvin function of the second kind, ker, of order zero.
Function Return Value
AKER0 — Function value. (Output)
Required Arguments
X — Argument for which the function value is desired. (Input)
It must be nonnegative.
FORTRAN 90 Interface
Generic: AKER0 (X)
Specific: The specific interface names are S_AKER0 and D_AKER0.
FORTRAN 77 Interface
Single: AKER0 (X)
Double: The double precision name is DKER0.
Description
The modified Kelvin function ker0(x) is defined to be K0(xeπi4). The Bessel function K0(x) is defined in BSK0. Function AKER0 is based on the work of Burgoyne (1963). If x < 0, then NaN (not a number) is returned. If x  119, then zero is returned.
Example
In this example, ker0(0.4) is computed and printed.
 
USE AKER0_INT
USE UMACH_INT
 
IMPLICIT NONE
! Declare variables
INTEGER NOUT
REAL VALUE, X
! Compute
X = 0.4
VALUE = AKER0(X)
! Print the results
CALL UMACH (2, NOUT)
WRITE (NOUT,99999) X, VALUE
99999 FORMAT (' AKER0(', F6.3, ') = ', F6.3)
END
Output
 
AKER0( 0.400) = 1.063
Published date: 03/19/2020
Last modified date: 03/19/2020