9 May 2025 9:47:35.030 PM uniform_test(): Fortran90 version Test uniform(). bvec_uniform_test(): bvec_uniform() computes a binary vector. 1010101101 1011110110 1110110011 1110010010 1100101110 1111011100 1001000010 0100011101 0101111100 0100000110 c8_uniform_01_test(): c8_uniform_01() computes pseudorandom double precision complex values uniformly distributed in the unit circle. 1 -0.34003695 -0.47600270 2 -0.18196896 0.34557157 3 -0.86279602 0.09934328 4 0.13149632 0.84045216 5 -0.91872305 0.14204497 6 0.81484300 -0.49513480 7 -0.31259693 -0.34032010 8 -0.43421865 -0.29057083 9 0.34094573 -0.85433669 10 -0.08008414 0.08597725 c8mat_uniform_01_test(): c8mat_uniform_01() computes pseudorandom complex values uniformly distributed in the unit circle. Uniform C8MAT: Col: 1 2 Row --- 1:-0.362 0.315 0.631 0.431 2: 0.205 -0.416E-01 0.439 -0.973E-01 3: 0.938 -0.242 -0.479E-01-0.777E-01 4: 0.905 -0.956E-01 0.408 -0.216 c8vec_uniform_01_test(): c8vec_uniform_01() computes pseudorandom double precision complex values uniformly distributed in the unit circle. The Uniform C8VEC: 1 -0.187389 -0.501394 2 -0.196862 0.197896 3 0.345982 -0.711841E-01 4 -0.126364 0.218069E-01 5 -0.168104 -0.709910 6 -0.792183 0.150320E-01 7 0.802258 0.364474 8 0.237732 0.262495 9 -0.773228E-01 -0.823830 10 0.462138 -0.364863 CH_UNIFORM_AB_TEST CH_UNIFORM_AB computes pseudorandom characters in an interval [CLO,CHI]. The lower endpoint CLO = "A". The upper endpoint CHI = "J". 1 H 2 E 3 C 4 B 5 A 6 A 7 H 8 J 9 C 10 G I4_SEED_ADVANCE_TEST 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 I4_UNIFORM_0I_TEST I4_UNIFORM_0I samples a uniform random integer distribution in [0,2**31-1]. Starting with seed = 123456789 First few values: 1 469049721 2 2053676357 3 1781357515 4 1206231778 5 891865166 Number of values computed was N = 1000 Average value was 0.108027E+10 Minimum value was 3947872 Maximum value was 2142991809 Variance was 0.379689E+18 i4_uniform_ab_test(): i4_uniform_ab() computes pseudorandom values in an interval [A,B]. The lower endpoint A = -100 The upper endpoint B = 200 1 165 2 -52 3 11 4 119 5 95 6 44 7 41 8 -81 9 -70 10 13 11 103 12 139 13 -64 14 118 15 101 16 -12 17 41 18 -19 19 -37 20 54 i4mat_uniform_ab_test(): i4mat_uniform_ab() computes pseudorandom values in an interval [A,B]. The lower endpoint A = -100 The upper endpoint B = 200 Uniform I4MAT: Col 1 2 3 4 Row 1: 45 -59 196 27 2: 186 192 -63 -21 3: -91 -94 128 137 4: 93 99 48 27 5: -47 -66 -20 158 I4VEC_UNIFORM_AB_TEST(): I4VEC_UNIFORM_AB() computes pseudorandom values in an interval [A,B]. The lower endpoint A = -100 The upper endpoint B = 200 Uniform I4VEC: 1: -41 2: -83 3: 70 4: 179 5: -19 6: -12 7: 75 8: 30 9: 168 10: 144 11: 20 12: 172 13: 126 14: 103 15: -35 16: 157 17: 73 18: 78 19: 171 20: 195 L4_UNIFORM_TEST L4_UNIFORM computes pseudorandom logical values. 1 F 2 F 3 F 4 F 5 T 6 T 7 F 8 F 9 F 10 T l4mat_uniform_test(): l4mat_uniform() computes a vector of pseudorandom logical values. Uniform L4MAT: Col 1 2 3 4 Row 1: T T T T 2: F F T F 3: F T T T 4: F F F T 5: T T F T l4vec_uniform_test(): l4vec_uniform() computes a vector of pseudorandom logical values. Uniform L4VEC: 1: F 2: F 3: T 4: T 5: T 6: F 7: T 8: T 9: T 10: F LCRG_ANBN_TEST LCRG_ANBN determines a linear congruential random number generator equivalent to N steps of a given one. LCRG parameters: A = 16807 B = 0 C = 2147483647 N A B 0 1 0 1 16807 0 2 282475249 0 3 1622650073 0 4 984943658 0 5 1144108930 0 6 470211272 0 7 101027544 0 8 1457850878 0 9 1458777923 0 10 2007237709 0 N In Out 0 12345 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 11 1683198519 715426902 LCRG parameters: AN = 984943658 BN = 0 C = 2147483647 J N In Out 1 0 12345 2 1 207482415 3 2 1790989824 4 3 2035175616 1 4 12345 77048696 2 5 207482415 24794531 3 6 1790989824 109854999 4 7 2035175616 1644515420 1 8 77048696 1256127050 2 9 24794531 1963079340 3 10 109854999 1683198519 4 11 1644515420 715426902 R8_UNIFORM_01_TEST R8_UNIFORM_01 computes pseudorandom values in the interval [0,1]. 1 0.767628 2 0.232682 3 0.631795 4 0.457167 5 0.414751 6 0.464260 7 0.815649 8 0.109317 9 0.849083 10 0.938102 r8_uniform_ab_test(): r8_uniform_ab() computes pseudorandom values in an interval [A,B]. The lower endpoint A = 5.00000 The upper endpoint B = 10.0000 1 7.31069 2 7.17669 3 5.32102 4 6.61735 5 7.48846 6 5.83593 7 9.32164 8 5.33821 9 6.39277 10 6.00448 r8mat_uniform_01_test(): r8mat_uniform_01() computes a random R8MAT. Uniform R8MAT Col 1 2 3 4 Row 1: 0.945746 0.351711E-01 0.168008 0.728048 2: 0.791536 0.661064E-01 0.307783 0.684435E-01 3: 0.796943 0.331087E-01 0.639331 0.469750 4: 0.423168 0.840816E-01 0.989134E-01 0.822372 5: 0.975757 0.531887 0.288334 0.795416 r8vec_uniform_01_test(): r8vec_uniform_01() computes a random R8VEC. Uniform R8VEC 1: 0.63001126 2: 0.89131276 3: 0.47905694 4: 0.23354894 5: 0.45199598E-01 6: 0.42910546 7: 0.32431001 8: 0.22808512 9: 0.75850889 10: 0.85863788 r8vec_uniform_ab_test(): r8vec_uniform_ab() computes a random R8VEC. -1.00000 <= X <= 5.00000 Uniform R8VEC 1: 3.3378324 2: -0.25386651 3: 4.5289556 4: 4.4958794 5: 2.9313409 6: -0.95749475 7: 4.2028245 8: -0.29384524E-02 9: 0.54662566 10: 0.98990735 r8col_uniform_ab_test(): r8col_uniform_ab() computes a random R8COL. 10.0000: 14.7539 12.0870 18.0126 17.0575 : 20.0000 10.0000: 10.9175 17.9455 11.3171 18.1100 : 20.0000 10.0000: 15.0033 15.3042 11.8092 17.8699 : 20.0000 10.0000: 13.6557 15.0236 14.1553 10.1506 : 20.0000 10.0000: 14.5518 11.2609 11.1547 11.7066 : 20.0000 r8col_uniform_abvec_test(): r8col_uniform_abvec() computes a random R8COL. The initial seed is 123456789 0.0000: 0.2184 0.0661 0.0617 0.0018 : 1.0000 0.2000: 0.2478 0.2129 0.2225 0.2449 : 0.2500 10.0000: 18.2951 11.0996 14.0131 13.5075 : 20.0000 52.0000: 53.1234 52.0877 53.5093 52.1891 : 54.0000 -1.0000: -0.1694 0.2679 0.5946 -0.9728 : 1.0000 R8ROW_UNIFORM_ABVEC_TEST R8ROW_UNIFORM_ABVEC computes a random R8ROW. The initial seed is 123456789 1.0000 0.2500 20.0000 54.0000 1.0000 0.2184 0.2478 18.2951 53.1234 -0.1694 0.0661 0.2129 11.0996 52.0877 0.2679 0.0617 0.2225 14.0131 53.5093 0.5946 0.0018 0.2449 13.5075 52.1891 -0.9728 0.0000 0.2000 10.0000 52.0000 -1.0000 r8vec_uniform_abvec_test(): r8vec_uniform_abvec() computes a random R8VEC. I A X B 1 0.0000 0.0943 1.0000 2 0.2000 0.2360 0.2500 3 10.0000 14.4467 20.0000 4 52.0000 52.5729 54.0000 5 -1.0000 -0.5004 1.0000 uniform_test(): Normal end of execution. 9 May 2025 9:47:35.031 PM