＜BESSEL_J0 Example Program＞

Program bessel_j0_example
  Implicit None
  Integer i
  Real :: x(8) = [ (i*0.5,i=1,8) ]
  Print 1, x
  Print 1, Bessel_J0(x)
1 Format(999F9.3)
End Program

---

■ Execution Results

    0.500    1.000    1.500    2.000    2.500    3.000    3.500    4.000
    0.938    0.765    0.512    0.224   -0.048   -0.260   -0.380   -0.397