＜ATANH Example Program＞

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

---

■ Execution Results

  .00000  -.20273  .30952  -.42365  .54931  2.64665
  (.18499,.30187)  (.54061,-.13198)  (.37909,-.33737)