15 March 2018 10:51:42.623 AM ZIGGURAT_TEST FORTRAN90 version Test the ZIGGURAT library. TEST001 SHR3 returns pseudorandom uniformly distributed integers. 0 123456789 1 -1579999415 -1456542626 2 -2056153900 658813981 3 1250077441 -806076459 4 -474866960 775210481 5 -1117447610 -1592314570 6 -610828464 -1728276074 7 -1143879506 -1754707970 8 -632459188 -1776338694 9 -52590674 -685049862 10 -920365318 -972955992 0 987654321 1 248404469 1236058790 2 2078538413 -1968024414 3 -1837283786 241254627 4 1841886731 4602945 5 305946223 -2147134342 6 -1479565193 -1173618970 7 736910199 -742654994 8 -1327526410 -590616211 9 1833747846 506221436 10 1249087608 -1212131842 0 123456789 1 -1579999415 -1456542626 2 -2056153900 658813981 3 1250077441 -806076459 4 -474866960 775210481 5 -1117447610 -1592314570 6 -610828464 -1728276074 7 -1143879506 -1754707970 8 -632459188 -1776338694 9 -52590674 -685049862 10 -920365318 -972955992 TEST02 R4_UNI returns pseudorandom uniformly distributed real numbers between 0 and 1. 0 123456789 1 -1579999415 0.160872 2 -2056153900 0.653392 3 1250077441 0.312321 4 -474866960 0.680493 5 -1117447610 0.129260 6 -610828464 0.976044E-01 7 -1143879506 0.914502E-01 8 -632459188 0.864139E-01 9 -52590674 0.340499 10 -920365318 0.273466 0 987654321 1 248404469 0.787792 2 2078538413 0.417836E-01 3 -1837283786 0.556171 4 1841886731 0.501072 5 305946223 0.813305E-04 6 -1479565193 0.226746 7 736910199 0.327087 8 -1327526410 0.362486 9 1833747846 0.617864 10 1249087608 0.217779 0 123456789 1 -1579999415 0.160872 2 -2056153900 0.653392 3 1250077441 0.312321 4 -474866960 0.680493 5 -1117447610 0.129260 6 -610828464 0.976044E-01 7 -1143879506 0.914502E-01 8 -632459188 0.864139E-01 9 -52590674 0.340499 10 -920365318 0.273466 TEST03 R4_NOR returns pseudorandom normally distributed real numbers between 0 and 1. 0 123456789 1 -1579999415 -1.34834 2 -2056153900 0.321041 3 1250077441 -0.689408 4 -474866960 0.875903 5 -1117447610 -1.03691 6 -610828464 -0.749757 7 -1143879506 -2.63358 8 -632459188 -2.33521 9 -52590674 -0.900580 10 -920365318 -0.547212 0 987654321 1 248404469 0.678952 2 2078538413 -1.02812 3 -1837283786 0.233949 4 1841886731 0.331524E-02 5 736910199 -0.808394 6 -1327526410 -0.635426 7 1833747846 0.702161 8 1249087608 -1.81925 9 2026661944 -3.16322 10 1286162813 -0.633432 0 123456789 1 -1579999415 -1.34834 2 -2056153900 0.321041 3 1250077441 -0.689408 4 -474866960 0.875903 5 -1117447610 -1.03691 6 -610828464 -0.749757 7 -1143879506 -2.63358 8 -632459188 -2.33521 9 -52590674 -0.900580 10 -920365318 -0.547212 TEST04 R4_EXP returns pseudorandom exponentially distributed real numbers between 0 and 1. 0 123456789 1 -1579999415 0.863714 2 -2056153900 0.171523 3 1250077441 1.21019 4 -474866960 1.64600 5 -1117447610 0.624704 6 -610828464 1.58032 7 -1143879506 5.67152 8 -632459188 4.68710 9 -52590674 1.80759 10 -920365318 1.01454 0 987654321 1 248404469 1.27007 2 2078538413 1.96380 3 -1837283786 0.419548 4 1841886731 0.205897E-02 5 736910199 1.49896 6 -1327526410 0.396716 7 1833747846 0.382060 8 1249087608 3.91782 9 2026661944 6.81212 10 1286162813 1.12869 0 123456789 1 -1579999415 0.863714 2 -2056153900 0.171523 3 1250077441 1.21019 4 -474866960 1.64600 5 -1117447610 0.624704 6 -610828464 1.58032 7 -1143879506 5.67152 8 -632459188 4.68710 9 -52590674 1.80759 10 -920365318 1.01454 TEST05 Measure the time it takes SHR3 to generate 1000000 integers. 0.800000E-02 seconds TEST06 Measure the time it takes R4_UNI to generate 1000000 uniform deviates. 0.120000E-01 seconds TEST07 Measure the time it takes R4_NOR to generate 1000000 normal deviates. 0.160000E-01 seconds TEST08 Measure the time it takes R4_EXP to generate 1000000 normal deviates. 0.160000E-01 seconds ZIGGURAT_PRB Normal end of execution. 15 March 2018 10:51:42.675 AM