6 October 2025 6:30:32.320 PM pink_noise_test(): Fortran90 version Test pink_noise(). TEST01 WRAP2 performs a circular wrap. Q is expected to range between 0 and M. WRAP2 takes an input value of Q, and either increments it by M+1 until in the range, or decrements it by M+1 until in the range, and returns the result as the function value. M Qin Qout 2 -5 1 2 -4 2 2 -3 0 2 -2 1 2 -1 2 2 0 0 2 1 1 2 2 2 2 3 0 2 4 1 2 5 2 M Qin Qout 3 -5 3 3 -4 0 3 -3 1 3 -2 2 3 -1 3 3 0 0 3 1 1 3 2 2 3 3 3 3 4 0 3 5 1 3 6 2 3 7 3 3 8 0 M Qin Qout 4 -5 0 4 -4 1 4 -3 2 4 -2 3 4 -1 4 4 0 0 4 1 1 4 2 2 4 3 3 4 4 4 4 5 0 4 6 1 4 7 2 4 8 3 4 9 4 4 10 0 4 11 1 TEST02 CDELAY2 is a circular buffer implementation of an M-fold delay. Q is a counter which is decremented by CDELAY2, but reset to M after it reaches 0. I M Qin Qout 1 2 2 1 2 2 1 0 3 2 0 2 4 2 2 1 5 2 1 0 6 2 0 2 7 2 2 1 8 2 1 0 9 2 0 2 I M Qin Qout 1 3 3 2 2 3 2 1 3 3 1 0 4 3 0 3 5 3 3 2 6 3 2 1 7 3 1 0 8 3 0 3 9 3 3 2 10 3 2 1 11 3 1 0 12 3 0 3 I M Qin Qout 1 4 4 3 2 4 3 2 3 4 2 1 4 4 1 0 5 4 0 4 6 4 4 3 7 4 3 2 8 4 2 1 9 4 1 0 10 4 0 4 11 4 4 3 12 4 3 2 13 4 2 1 14 4 1 0 15 4 0 4 TEST03 RANH is a random hold function. Given a value U and a delay D, it returns the value U for D calls, then resets U. I D Q U Y 1 5 2 0.500000 0.500000 2 5 1 0.500000 0.500000 3 5 0 -0.743525 0.500000 4 5 4 -0.743525 -0.743525 5 5 3 -0.743525 -0.743525 6 5 2 -0.743525 -0.743525 7 5 1 -0.743525 -0.743525 8 5 0 -0.804953 -0.743525 9 5 4 -0.804953 -0.804953 10 5 3 -0.804953 -0.804953 11 5 2 -0.804953 -0.804953 12 5 1 -0.804953 -0.804953 13 5 0 0.905116 -0.804953 14 5 4 0.905116 0.905116 15 5 3 0.905116 0.905116 16 5 2 0.905116 0.905116 17 5 1 0.905116 0.905116 18 5 0 0.384708 0.905116 19 5 4 0.384708 0.384708 20 5 3 0.384708 0.384708 I D Q U Y 1 4 2 0.500000 0.500000 2 4 1 0.500000 0.500000 3 4 0 -0.584981 0.500000 4 4 3 -0.584981 -0.584981 5 4 2 -0.584981 -0.584981 6 4 1 -0.584981 -0.584981 7 4 0 0.144323 -0.584981 8 4 3 0.144323 0.144323 9 4 2 0.144323 0.144323 10 4 1 0.144323 0.144323 11 4 0 0.720943 0.144323 12 4 3 0.720943 0.720943 13 4 2 0.720943 0.720943 14 4 1 0.720943 0.720943 15 4 0 0.162124 0.720943 16 4 3 0.162124 0.162124 17 4 2 0.162124 0.162124 18 4 1 0.162124 0.162124 19 4 0 0.893301 0.162124 20 4 3 0.893301 0.893301 I D Q U Y 1 3 2 0.500000 0.500000 2 3 1 0.500000 0.500000 3 3 0 -0.436487 0.500000 4 3 2 -0.436487 -0.436487 5 3 1 -0.436487 -0.436487 6 3 0 0.456040 -0.436487 7 3 2 0.456040 0.456040 8 3 1 0.456040 0.456040 9 3 0 0.284019 0.456040 10 3 2 0.284019 0.284019 11 3 1 0.284019 0.284019 12 3 0 0.696192 0.284019 13 3 2 0.696192 0.696192 14 3 1 0.696192 0.696192 15 3 0 -0.264784 0.696192 16 3 2 -0.264784 -0.264784 17 3 1 -0.264784 -0.264784 18 3 0 0.935486 -0.264784 19 3 2 0.935486 0.935486 20 3 1 0.935486 0.935486 I D Q U Y 1 2 0 0.587115 0.500000 2 2 1 0.587115 0.587115 3 2 0 -0.196258 0.587115 4 2 1 -0.196258 -0.196258 5 2 0 -0.516171 -0.196258 6 2 1 -0.516171 -0.516171 7 2 0 0.109877 -0.516171 8 2 1 0.109877 0.109877 9 2 0 -0.662207 0.109877 10 2 1 -0.662207 -0.662207 11 2 0 -0.843764 -0.662207 12 2 1 -0.843764 -0.843764 13 2 0 -0.766444 -0.843764 14 2 1 -0.766444 -0.766444 15 2 0 0.525603 -0.766444 16 2 1 0.525603 0.525603 17 2 0 -0.328172 0.525603 18 2 1 -0.328172 -0.328172 19 2 0 0.902797 -0.328172 20 2 1 0.902797 0.902797 I D Q U Y 1 1 0 -0.410456 0.500000 2 1 0 -0.107344 -0.410456 3 1 0 -0.068963 -0.107344 4 1 0 -0.657035 -0.068963 5 1 0 -0.608833 -0.657035 6 1 0 0.002761 -0.608833 7 1 0 0.153824 0.002761 8 1 0 0.642283 0.153824 9 1 0 -0.175817 0.642283 10 1 0 -0.743040 -0.175817 11 1 0 0.551977 -0.743040 12 1 0 0.886104 0.551977 13 1 0 0.706800 0.886104 14 1 0 -0.570026 0.706800 15 1 0 -0.652382 -0.570026 16 1 0 -0.335871 -0.652382 17 1 0 0.787047 -0.335871 18 1 0 -0.958600 0.787047 19 1 0 -0.327104 -0.958600 20 1 0 -0.848582 -0.327104 TEST04 RAN1F generates random values with an approximate 1/F distribution. B I Y 1 1 0.310755 1 2 0.408604 1 3 -0.795655 1 4 0.227129 1 5 -0.239869 1 6 -0.893475 1 7 -0.616062 1 8 0.791288 1 9 -0.098685 1 10 -0.735165 1 11 -0.278539 1 12 -0.399328 1 13 0.773689 1 14 -0.925454 1 15 0.615617 1 16 -0.721144 1 17 0.520268 1 18 -0.177689 1 19 0.189171 1 20 -0.828179 B I Y 1 1 0.767148 1 2 0.529973 1 3 0.412296 1 4 -0.862936 1 5 -0.217613 1 6 -0.855951 1 7 -0.526986 1 8 0.315326 1 9 -0.807827 1 10 -0.695789 1 11 0.884767 1 12 -0.544694 1 13 -0.987127 1 14 0.696852 1 15 -0.682550 1 16 0.140796 1 17 0.198134 1 18 0.280161 1 19 -0.611360 1 20 0.742051 B I Y 1 1 0.999652 1 2 -0.359976 1 3 -0.966781 1 4 -0.271542 1 5 0.125471 1 6 0.496317 1 7 0.026458 1 8 0.675132 1 9 0.843379 1 10 -0.232149 1 11 0.803791 1 12 -0.568462 1 13 -0.121940 1 14 -0.837653 1 15 0.326152 1 16 -0.540972 1 17 0.641441 1 18 -0.858812 1 19 0.347080 1 20 -0.424598 B I Y 1 1 0.269432 1 2 -0.532133 1 3 -0.782372 1 4 0.548188 1 5 0.627063 1 6 -0.139915 1 7 0.950414 1 8 -0.793378 1 9 0.632918 1 10 -0.149311 1 11 -0.879243 1 12 -0.548227 1 13 0.162342 1 14 0.471124 1 15 -0.357395 1 16 0.437719 1 17 -0.542582 1 18 0.047987 1 19 -0.908250 1 20 0.987252 B I Y 2 1 0.319518 2 2 0.155939 2 3 0.051512 2 4 0.324255 2 5 -0.151095 2 6 -0.071465 2 7 -0.184914 2 8 0.227332 2 9 -0.419148 2 10 -0.376171 2 11 0.325352 2 12 0.365050 2 13 0.257353 2 14 -0.451592 2 15 -0.021275 2 16 0.250591 2 17 -0.435993 2 18 -0.371981 2 19 0.099628 2 20 0.028531 B I Y 2 1 0.921378 2 2 -0.008727 2 3 0.631267 2 4 -0.096514 2 5 -0.099166 2 6 -0.329902 2 7 0.485779 2 8 0.452060 2 9 0.596777 2 10 0.587631 2 11 0.321134 2 12 0.666545 2 13 0.648605 2 14 -0.035677 2 15 -0.647380 2 16 -0.378177 2 17 -0.271545 2 18 0.459719 2 19 -0.322438 2 20 -0.294423 B I Y 2 1 0.141226 2 2 -0.114107 2 3 -0.276445 2 4 0.055855 2 5 0.176239 2 6 0.424988 2 7 -0.039248 2 8 -0.535962 2 9 0.666451 2 10 0.134118 2 11 -0.237629 2 12 -0.289236 2 13 -0.143843 2 14 -0.034843 2 15 0.656315 2 16 0.641340 2 17 0.916605 2 18 -0.035643 2 19 -0.506334 2 20 -0.508827 B I Y 2 1 0.357581 2 2 0.042249 2 3 0.736264 2 4 -0.113656 2 5 0.184169 2 6 -0.622206 2 7 -0.204230 2 8 -0.690370 2 9 -0.002110 2 10 0.191521 2 11 -0.456893 2 12 0.233500 2 13 -0.066221 2 14 -0.580492 2 15 0.167442 2 16 -0.221380 2 17 -0.183381 2 18 0.277839 2 19 0.098004 2 20 0.009086 B I Y 4 1 0.470259 4 2 0.328197 4 3 0.352179 4 4 0.364135 4 5 -0.176739 4 6 -0.315469 4 7 0.281843 4 8 0.279830 4 9 0.241240 4 10 0.110968 4 11 -0.231985 4 12 0.013083 4 13 -0.001718 4 14 -0.086182 4 15 0.390387 4 16 0.351572 4 17 -0.072752 4 18 -0.039022 4 19 -0.306216 4 20 -0.421774 B I Y 4 1 0.637401 4 2 0.590953 4 3 0.478793 4 4 0.288637 4 5 0.294172 4 6 0.519429 4 7 0.315125 4 8 0.372247 4 9 -0.105435 4 10 -0.005344 4 11 -0.286599 4 12 -0.277878 4 13 -0.067326 4 14 -0.022555 4 15 -0.216186 4 16 -0.584130 4 17 0.472825 4 18 0.673139 4 19 0.408705 4 20 0.471799 B I Y 4 1 0.560518 4 2 0.380380 4 3 0.163708 4 4 0.595529 4 5 0.349044 4 6 0.051585 4 7 0.514665 4 8 0.439639 4 9 0.468847 4 10 0.192977 4 11 0.506312 4 12 0.333590 4 13 0.222789 4 14 0.361902 4 15 0.568219 4 16 0.533154 4 17 -0.370291 4 18 -0.392691 4 19 -0.397200 4 20 -0.398465 B I Y 4 1 0.472394 4 2 0.651363 4 3 0.705284 4 4 0.622519 4 5 0.597407 4 6 0.487184 4 7 0.207438 4 8 0.298626 4 9 -0.071030 4 10 -0.160234 4 11 0.117770 4 12 0.272030 4 13 0.339177 4 14 0.214111 4 15 0.021292 4 16 -0.178890 4 17 -0.006856 4 18 0.013101 4 19 0.030693 4 20 -0.089555 B I Y 8 1 0.615095 8 2 0.418773 8 3 0.307012 8 4 0.382861 8 5 0.356810 8 6 0.293272 8 7 0.582287 8 8 0.481049 8 9 0.472136 8 10 0.424455 8 11 0.125873 8 12 0.241507 8 13 0.410624 8 14 0.287144 8 15 0.233135 8 16 0.162190 8 17 0.231271 8 18 0.394393 8 19 0.447399 8 20 0.429031 B I Y 8 1 0.513624 8 2 0.356446 8 3 0.438109 8 4 0.332125 8 5 0.350986 8 6 0.363059 8 7 0.201108 8 8 0.131019 8 9 0.311044 8 10 0.253825 8 11 0.146683 8 12 0.180385 8 13 0.218168 8 14 0.176362 8 15 0.495557 8 16 0.485458 8 17 0.236642 8 18 0.222654 8 19 0.078564 8 20 0.116593 B I Y 8 1 0.553756 8 2 0.431583 8 3 0.566412 8 4 0.574800 8 5 0.411882 8 6 0.371297 8 7 0.069533 8 8 0.276962 8 9 0.357148 8 10 0.323786 8 11 0.239572 8 12 0.373927 8 13 0.457056 8 14 0.350166 8 15 0.295899 8 16 0.417584 8 17 0.157019 8 18 0.201420 8 19 0.125196 8 20 0.163690 B I Y 8 1 0.476060 8 2 0.369310 8 3 0.483597 8 4 0.301522 8 5 0.175910 8 6 0.252378 8 7 0.350402 8 8 0.283550 8 9 0.216204 8 10 0.166427 8 11 0.103283 8 12 0.270882 8 13 0.164080 8 14 0.227144 8 15 0.178186 8 16 0.236604 8 17 0.316806 8 18 0.319987 8 19 0.238698 8 20 0.130047 B I Y 16 1 0.506607 16 2 0.423071 16 3 0.413358 16 4 0.350045 16 5 0.464364 16 6 0.440665 16 7 0.505566 16 8 0.426310 16 9 0.301706 16 10 0.296393 16 11 0.305619 16 12 0.315141 16 13 0.392294 16 14 0.313005 16 15 0.407022 16 16 0.373477 16 17 0.453355 16 18 0.456901 16 19 0.358242 16 20 0.409233 B I Y 16 1 0.410399 16 2 0.363966 16 3 0.310127 16 4 0.341490 16 5 0.248440 16 6 0.293922 16 7 0.392848 16 8 0.347975 16 9 0.460679 16 10 0.442977 16 11 0.432969 16 12 0.385613 16 13 0.334680 16 14 0.222028 16 15 0.288462 16 16 0.305474 16 17 0.305700 16 18 0.371924 16 19 0.404561 16 20 0.390307 B I Y 16 1 0.546289 16 2 0.450811 16 3 0.462250 16 4 0.452553 16 5 0.468227 16 6 0.455908 16 7 0.475614 16 8 0.465419 16 9 0.330071 16 10 0.337015 16 11 0.454352 16 12 0.466712 16 13 0.374823 16 14 0.289532 16 15 0.367308 16 16 0.456450 16 17 0.231832 16 18 0.256496 16 19 0.223209 16 20 0.169697 B I Y 16 1 0.435253 16 2 0.446405 16 3 0.437081 16 4 0.316834 16 5 0.375987 16 6 0.391299 16 7 0.407007 16 8 0.337177 16 9 0.383788 16 10 0.413617 16 11 0.416186 16 12 0.489520 16 13 0.325762 16 14 0.306655 16 15 0.268196 16 16 0.375526 16 17 0.381732 16 18 0.308269 16 19 0.411242 16 20 0.405087 pink_noise_test(): Normal end of execution. 6 October 2025 6:30:32.321 PM