＜ASIN Example Program＞

Program asin_example
  Real, Dimension(2,3) :: a
  Complex, Dimension(3) :: c
  a = Reshape( [ 0.0,-0.2,0.3,-0.4,0.5,1.0 ], [ 2,3 ])
  c = [ (.2,.3),(.5,-.1),(.4,-.3) ]
  Print 1, Asin(a)
1 Format(6(2X,F0.5))
  Print 2, Asin(c)
2 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program

---

■ Execution Results

  .00000  -.20136  .30469  -.41152  .52360  1.57080
  (.19245,.30107)  (.51981,-.11497)  (.39032,-.31896)