<Example Program>

Program exp_example
  Real :: a(3) = [ 0.0, Log(10.0), Log(100.0) ]
  Real,Parameter :: pi = 3.141592653589793238462643383279502884197
  Complex :: c(3) = [ Cmplx(0.0,pi/2), Cmplx(0.0,pi), Cmplx(Log(5.0*Sqrt(2.0)),pi/4) ]
  Print 1, Exp(a)
1 Format(3(2X,F0.5))
  Print 2, Exp(c)
2 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program

Execution Results

  1.00000  10.00000  100.00001
  (-.00000,1.00000)  (-1.00000,-.00001)  (5.00000,5.00000)