<Example Program>

Program log10_example
  Real :: a(3) = [ 1,10,100 ]
  Print 1, Log10(a)
1 Format(3(2X,F0.5))
End Program

Execution Results

  .00000  1.00000  2.00000