<Example Program>

Program log_example
  Real :: a(3) = [ 1,10,100 ]
  Complex :: c(3) = [ (0,1), (-1,0), (5,5) ]
  Print 1, Log(a)
1 Format(3(2X,F0.5))
  Print 2, Log(c)
2 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program

Execution Results

  .00000  2.30259  4.60517
  (.00000,1.57080)  (.00000,3.14159)  (1.95601,.78540)