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