SUBROUTINE BESSEL ( XX, BJ1 )
Argument Definitions (+ indicates altered content)
REAL              +BJ1,        XX
Description
bessel function calculation subroutine
Source file:bessel.f
Intrinsic Functions Called
GENERIC            COS,        SQRT
Local Variables (+ indicates altered content)
REAL              +AA,        +BB,        +CC,        +DD
REAL              +FF,        +QQ,        +TT,        +X3X
REAL              +XX3,       +ZZ