＜ATAN Example Program＞

Program atan_example
  Real, Dimension(2,3) :: a
  Complex, Dimension(3) :: c
  a = Reshape( [ 0.0,-0.2,0.5,-1.4,2.5,100. ], [ 2,3 ])
  c = [ (.2,.3),(5.5,-.1),(4.4,-1.3) ]
  Print 1, Atan(a)
1 Format(6(2X,F0.5))
  Print 2, Atan(c)
2 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program

---

■ Execution Results

  .00000  -.19740  .46365  -.95055  1.19029  1.56080
  (.21547,.29575)  (1.39100,-.00320)  (1.36400,-.05923)