October  6 2025   6:18:51.053 PM
 
RANDOM_TEST():
  Fortran90 version.
 
  Examine the RANDOM_NUMBER routine
  for the generation or random numbers.
 
TEST01:
  To generate 10 random numbers, you could
  call RANDOM_NUMBER ( X )...
 
  10 times, with a scalar X:
 
 
 0.97377
 
 0.12352
 
 0.85988
 
 0.86033
 
 0.15622
 
 0.41189
 
 0.26128
 
 0.16287
 
 0.58355
 
 0.86435
 
  5 times with a vector X of length 2:
 
 
 0.24025 0.78425
 
 0.70144 0.10999
 
 0.20799 0.94855
 
 0.27058 0.92790
 
 0.69446 0.69650
 
  or once with a 5 by 2 X array:
 
 0.71629 0.08052
 0.93175 0.70760
 0.90965 0.40761
 0.56208 0.21184
 0.17843 0.50280
 
TEST02:
  The RANDOM_SEED routine can be used to restart
  the random number generator.  We will repeat
  the previous test, and manipulate the seed so
  that we compute the same 10 numbers each time.
 
  The size of the seed array is N =      8
 
  The current seed is 
  2030775779  1885152838  1353926693 -2092358946  -788937515
   956791572 -1806622412 -1314831976
  We're going to save this seed and reuse it.
 
  10 times, with a scalar X:
 
 
 0.50395
 
 0.99678
 
 0.44968
 
 0.30116
 
 0.17323
 
 0.64626
 
 0.14454
 
 0.71978
 
 0.24464
 
 0.22173
 
  The current seed is 
  -787767862   147305976  -704687035  -425456884   733953307
  -869605196  1689211236  -719219642
  We reset the seed to 
  2030775779  1885152838  1353926693 -2092358946  -788937515
   956791572 -1806622412 -1314831976
 
  five times with a vector X of length 2:
 
 
 0.50395 0.99678
 
 0.44968 0.30116
 
 0.17323 0.64626
 
 0.14454 0.71978
 
 0.24464 0.22173
 
  The current seed is 
  -787767862   147305976  -704687035  -425456884   733953307
  -869605196  1689211236  -719219642
  We reset the seed to 
  2030775779  1885152838  1353926693 -2092358946  -788937515
   956791572 -1806622412 -1314831976
 
  or once with a 5 by 2 X array:
 
 0.50395 0.64626
 0.99678 0.14454
 0.44968 0.71978
 0.30116 0.24464
 0.17323 0.22173
 
  The current seed is 
  -787767862   147305976  -704687035  -425456884   733953307
  -869605196  1689211236  -719219642
 
RANDOM_TEST
  Normal end of execution.
 
October  6 2025   6:18:51.053 PM