<Example Program>

Program tan_example
  Real, Dimension(2,3) :: a
  Complex, Dimension(3) :: c
  a = Reshape( [ 0.0,0.2,-0.4,0.6,-0.8,1.57 ], [ 2,3 ])
  c = [ (0.2,0.0),(3.1415926,0.6),(-1.5707963,-0.8) ]
  Print 1, Tan(a)
1 Format(6(2X,F0.5))
  Print 2, Tan(c)
2 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program

Execution Results

  .00000  .20271  -.42279  .68414  -1.02964  1255.84827
  (.20271,.00000)  (-.00000,.53705)  (-.00001,-1.50594)