6 October 2025 6:52:15.736 PM uniform_test(): Fortran90 version Test uniform(). bvec_uniform_test(): bvec_uniform() computes a binary vector. 0110010101 1000001101 0000010001 0111110000 0100001100 1101001010 1011001101 0110110000 0011101011 0111010101 c8_uniform_01_test(): c8_uniform_01() computes pseudorandom double precision complex values uniformly distributed in the unit circle. 1 -0.41020152 -0.28094415 2 -0.34578087 0.40383867 3 -0.72390192 -0.49857892 4 0.02639326 0.76541922 5 -0.46945274 0.39778640 6 -0.74852744 0.45097588 7 0.18786290 -0.90165003 8 0.36640817 -0.37366054 9 -0.83682647 0.14022870 10 -0.70222278 0.46573215 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.790 0.115 -0.648 -0.208 2:-0.444 0.642 0.380 -0.404 3: 0.946E-01 0.508 -0.944E-01 0.183 4: 0.204 -0.958 -0.597 -0.644 c8vec_uniform_01_test(): c8vec_uniform_01() computes pseudorandom double precision complex values uniformly distributed in the unit circle. The Uniform C8VEC: 1 0.110908 0.352961E-01 2 -0.820698 -0.377993E-01 3 -0.737640 -0.308837 4 0.558200 0.703579 5 -0.161052E-01 0.189755E-01 6 0.330749E-01 -0.176155E-01 7 -0.416117E-01 0.164132E-01 8 0.525224 0.829819 9 0.277584 -0.265192 10 0.353322 -0.198396 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 A 3 G 4 B 5 E 6 C 7 D 8 G 9 H 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 188 2 100 3 82 4 71 5 50 6 -81 7 -9 8 67 9 -38 10 -25 11 29 12 163 13 165 14 108 15 78 16 144 17 26 18 54 19 -45 20 112 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: 37 93 82 161 2: 142 103 -6 9 3: -41 111 193 63 4: -70 -89 -59 133 5: 186 -38 142 191 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: -24 2: 50 3: 38 4: -52 5: 175 6: 42 7: 57 8: 26 9: 15 10: 172 11: 180 12: 135 13: -79 14: -13 15: -26 16: 128 17: 64 18: 30 19: 9 20: -99 L4_UNIFORM_TEST L4_UNIFORM computes pseudorandom logical values. 1 T 2 F 3 F 4 T 5 F 6 F 7 T 8 T 9 F 10 F l4mat_uniform_test(): l4mat_uniform() computes a vector of pseudorandom logical values. Uniform L4MAT: Col 1 2 3 4 Row 1: F F T T 2: F T F F 3: F F T F 4: F T T F 5: F T T T l4vec_uniform_test(): l4vec_uniform() computes a vector of pseudorandom logical values. Uniform L4VEC: 1: F 2: F 3: F 4: T 5: T 6: T 7: T 8: T 9: F 10: T 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.196057 2 0.429251 3 0.809229 4 0.211522 5 0.264464 6 0.937262 7 0.849002 8 0.184316 9 0.955208 10 0.416916E-01 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 6.40883 2 7.74968 3 6.77574 4 9.92252 5 9.23174 6 5.63496 7 6.23584 8 8.51151 9 5.78876 10 9.84566 r8mat_uniform_01_test(): r8mat_uniform_01() computes a random R8MAT. Uniform R8MAT Col 1 2 3 4 Row 1: 0.116357 0.605272 0.937606 0.105317 2: 0.679452 0.589017 0.711205 0.157527 3: 0.876153 0.106792 0.418851 0.904526E-01 4: 0.225367 0.785683 0.745545 0.474420 5: 0.519713 0.861051 0.159762 0.772040 r8vec_uniform_01_test(): r8vec_uniform_01() computes a random R8VEC. Uniform R8VEC 1: 0.88123602 2: 0.54361039 3: 0.14646722 4: 0.31806607 5: 0.45894714 6: 0.50742760 7: 0.28576694 8: 0.54062123E-01 9: 0.69733089 10: 0.46148113 r8vec_uniform_ab_test(): r8vec_uniform_ab() computes a random R8VEC. -1.00000 <= X <= 5.00000 Uniform R8VEC 1: 2.9783696 2: 0.37654619 3: 1.3204360 4: 2.4147735 5: -0.20381453 6: 2.0628328 7: 2.0246012 8: 1.2477325 9: 1.9318444 10: 2.8545128 r8col_uniform_ab_test(): r8col_uniform_ab() computes a random R8COL. 10.0000: 14.8658 18.8143 19.7610 18.4091 : 20.0000 10.0000: 14.5635 14.1256 14.7377 11.8644 : 20.0000 10.0000: 12.6105 10.7464 12.3620 13.6948 : 20.0000 10.0000: 10.9253 19.3826 17.0606 16.3177 : 20.0000 10.0000: 13.0796 15.9615 12.2732 14.8853 : 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.1429 1.0000 2 0.2000 0.2258 0.2500 3 10.0000 19.7014 20.0000 4 52.0000 52.3451 54.0000 5 -1.0000 -0.7969 1.0000 uniform_test(): Normal end of execution. 6 October 2025 6:52:15.736 PM