bessel_j1(x) computes the Bessel function of the first kind of order 1 of x.
Fortran 2008 and later
result = bessel_j1(x)
x - The type shall be real, and it shall be scalar.The return value is of type real and it lies in the range . It has the same kind as x.
program test_besj1
real(8) :: x = 1.0_8
x = bessel_j1(x)
end program test_besj1