＜ACOSH Example Program＞

Program acosh_example
  Real, Dimension(2,3) :: a
  Complex, Dimension(3) :: c
  a = Reshape( [ 1.0,1.25,2.5,5.8,15.,27.5 ], [ 2,3 ])
  c = [ (.2,.3),(.5,-.1),(.4,-.3) ]
  Print 1, Acosh(a)
1 Format(6(2X,F0.5))
  Print 2, Acosh(c)
2 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program

---

■ Execution Results

  .00000  .69315  1.56680  2.44349  3.40008  4.00700
  (.30107,1.37834)  (-.11497,1.05099)  (-.31896,1.18048)