10 August 2016 10:55:51.593 AM IEEE_UNIFORM_SAMPLE_PRB FORTRAN90 version Test the IEEE_UNIFORM_SAMPLE library. TEST01 I4_SEED_ADVANCE advances the seed. Step SEED input SEED output 1 12345 207482415 2 207482415 1790989824 3 1790989824 2035175616 4 2035175616 77048696 5 77048696 24794531 6 24794531 109854999 7 109854999 1644515420 8 1644515420 1256127050 9 1256127050 1963079340 10 1963079340 1683198519 TEST02 R4_IEEE_UNIFORM computes an IEEE uniform real ( kind = 4 ) value. Step SEED input R4 output 1 207482415 -0.157773E-29 2 1790989824 -0.516856E-31 3 2035175616 0.00000 4 77048696 0.686315E-09 5 24794531 0.234721E+19 6 109854999 -0.486362E+25 7 1644515420 -4200.77 8 1256127050 0.571951E-24 9 1963079340 0.104404E-26 10 1683198519 0.662596E-12 11 715426902 -0.109802E-29 12 419002361 0.603104E-25 13 573802814 -0.466849E+38 14 1702319868 0.486877E+10 15 2112876142 0.698176 16 319731802 0.315931E-21 17 728311420 0.222190E-24 18 73248040 0.317013E-19 19 571678549 0.213292E+07 20 359536365 -0.996689E+13 TEST03 R4_IEEE_UNIFORM computes an IEEE uniform real ( kind = 4 ) value. Generate a lot of values, and count where they fall. Number of values to generate = 1024 Sign check: 484 values less than 0 81 values equal to 0 459 values greater than 0. Exponent check Bottom Top #( B <= |X| < T ) 9.09494702E-13 1.45519152E-11 14 1.45519152E-11 2.32830644E-10 19 2.32830644E-10 3.72529030E-09 20 3.72529030E-09 5.96046448E-08 13 5.96046448E-08 9.53674316E-07 17 9.53674316E-07 1.52587891E-05 20 1.52587891E-05 2.44140625E-04 11 2.44140625E-04 3.90625000E-03 17 3.90625000E-03 6.25000000E-02 15 6.25000000E-02 1.00000000 18 1.00000000 16.0000000 21 16.0000000 256.000000 15 256.000000 4096.00000 9 4096.00000 65536.0000 16 65536.0000 1048576.00 12 1048576.00 16777216.0 15 16777216.0 268435456. 14 268435456. 4.29496730E+09 19 4.29496730E+09 6.87194767E+10 13 6.87194767E+10 1.09951163E+12 19 1.09951163E+12 1.75921860E+13 19 1.75921860E+13 2.81474977E+14 20 2.81474977E+14 4.50359963E+15 14 4.50359963E+15 7.20575940E+16 15 7.20575940E+16 1.15292150E+18 15 IEEE_UNIFORM_SAMPLE_PRB Normal end of execution. 10 August 2016 10:55:51.594 AM