RRSPACING example program

<Example Program>

Program rrspacing_example
  Implicit None
  Real :: x(5) = [ 0.0, 1.0, 1.25, 1.5, -1.5*2.0**50 ]
  Print *,Rrspacing(x)
  Print *,Abs(Set_Exponent(x,Digits(x)))
End Program

Execution Results

   0.0000000   8.3886080E+06   1.0485760E+07   1.2582912E+07   1.2582912E+07
   0.0000000   8.3886080E+06   1.0485760E+07   1.2582912E+07   1.2582912E+07