REAL FUNCTION ONEJ ( X )
Argument Definitions (+ indicates altered content)
REAL               X
Description
FUNCTION ONEJ                   (NEXT) 
 
    ONEJ - EVALUATES THE BESSEL FUNCTION OF FIRST KIND, J1(X). 
    SEE MATH TABLES AND OTHER AIDS TO COMPUTATION, VOL. 11, NO. 58, 
    PAGE 86.
Source file:onej.f
Intrinsic Functions Called
GENERIC            COS,        SIN,        SQRT
Local Variables (+ indicates altered content)
REAL              +PSUM,      +QSUM,      +R135,      +T
REAL              +TS,        +TX,        +TY,        +Y
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               PI