RANDOM_NUMBER example program

<Example Program>

Program random_number_example
  Real x(10)
  Call Random_Number(x)
  Do i=1, Size(x)
    Print 1, i, x(i)
1   Format(1X, 'X(', I0, ') = ', F6.4)
  End Do
End Program

Execution Results

 X(1) = 0.3215
 X(2) = 0.2357
 X(3) = 0.7013
 X(4) = 0.9108
 X(5) = 0.0492
 X(6) = 0.1034
 X(7) = 0.5808
 X(8) = 0.3854
 X(9) = 0.5661
 X(10) = 0.7433