＜BESSEL_Y0 Example Program＞

Program bessel_y0_example
  Implicit None
  Integer i
  Real :: x(8) = [ (i*0.5,i=1,8) ]
  Print 1, x
  Print 1, Bessel_Y0(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.445    0.088    0.382    0.510    0.498    0.377    0.189   -0.017