PROGRAM TEST
include 'link_fnl_static.h' !调用IMSL2018
USE BSJ0_INT
USE UMACH_INT
IMPLICIT NONE
! Declare variables
INTEGER NOUT
REAL VALUE, X
! Compute
X = 3.0
VALUE = BSJ0(X)
! Print the results
CALL UMACH (2, NOUT)
WRITE (NOUT,99999) X, VALUE
99999 FORMAT (' BSJ0(', F6.3, ') = ', F6.3)
PAUSE
END PROGRAM TEST