May  9 2025   9:14:37.201 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.59329
 
 0.95960
 
 0.12624
 
 0.39219
 
 0.91164
 
 0.47000
 
 0.26201
 
 0.88981
 
 0.20127
 
 0.46980
 
  5 times with a vector X of length 2:
 
 
 0.22862 0.74257
 
 0.32887 0.28245
 
 0.88611 0.36224
 
 0.36869 0.09352
 
 0.37600 0.94040
 
  or once with a 5 by 2 X array:
 
 0.64740 0.56116
 0.61463 0.99889
 0.97073 0.12401
 0.77032 0.43387
 0.81432 0.74675
 
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 
  -750768345  1449930186  -155893807   250809488 -1786816357
  1565594679  2059611275 -1238047104
  We're going to save this seed and reuse it.
 
  10 times, with a scalar X:
 
 
 0.24429
 
 0.21206
 
 0.74761
 
 0.81409
 
 0.61755
 
 0.76353
 
 0.30665
 
 0.31166
 
 0.94197
 
 0.19832
 
  The current seed is 
  -423462960  1162440105  -230337295  -985907633  1419078380
  1485783475 -1200866780    87577762
  We reset the seed to 
  -750768345  1449930186  -155893807   250809488 -1786816357
  1565594679  2059611275 -1238047104
 
  five times with a vector X of length 2:
 
 
 0.24429 0.21206
 
 0.74761 0.81409
 
 0.61755 0.76353
 
 0.30665 0.31166
 
 0.94197 0.19832
 
  The current seed is 
  -423462960  1162440105  -230337295  -985907633  1419078380
  1485783475 -1200866780    87577762
  We reset the seed to 
  -750768345  1449930186  -155893807   250809488 -1786816357
  1565594679  2059611275 -1238047104
 
  or once with a 5 by 2 X array:
 
 0.24429 0.76353
 0.21206 0.30665
 0.74761 0.31166
 0.81409 0.94197
 0.61755 0.19832
 
  The current seed is 
  -423462960  1162440105  -230337295  -985907633  1419078380
  1485783475 -1200866780    87577762
 
RANDOM_TEST
  Normal end of execution.
 
May  9 2025   9:14:37.201 PM