＜ASINH Example Program＞

Program asinh_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.5) ]
  Print 1, Asinh(a)
1 Format(6(2X,F0.5))
  Print 2, Asinh(c)
2 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program

---

■ Execution Results

  .88137  -1.04759  1.64723  2.45836  -3.40231  4.00766
  (.20773,.29803)  (.48301,-.08949)  (2.36498,-.71009)