＜ACOS Example Program＞

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

---

■ Execution Results

  1.57080  1.47063  1.26610  1.15928  1.04720  .00000
  (1.37834,-.30107)  (1.05099,.11497)  (1.18048,.31896)