<Example Program>

Program scale_example
  Implicit None
  Real :: x = Real(Radix(0.0))**(MinExponent(0.0)+1)
  Integer i
  Do i = 0, 3
    Print *,Scale(x,i)
  End Do
  Print *,Scale(x,MaxExponent(0.0)+2)
End Program

Execution Results

   4.7019774E-38
   9.4039548E-38
   1.8807910E-37
   3.7615819E-37
  64.0000000