9 May 2025 9:26:12.370 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.590424 0.500000 4 5 4 -0.590424 -0.590424 5 5 3 -0.590424 -0.590424 6 5 2 -0.590424 -0.590424 7 5 1 -0.590424 -0.590424 8 5 0 -0.960867 -0.590424 9 5 4 -0.960867 -0.960867 10 5 3 -0.960867 -0.960867 11 5 2 -0.960867 -0.960867 12 5 1 -0.960867 -0.960867 13 5 0 -0.697934 -0.960867 14 5 4 -0.697934 -0.697934 15 5 3 -0.697934 -0.697934 16 5 2 -0.697934 -0.697934 17 5 1 -0.697934 -0.697934 18 5 0 0.452196 -0.697934 19 5 4 0.452196 0.452196 20 5 3 0.452196 0.452196 I D Q U Y 1 4 2 0.500000 0.500000 2 4 1 0.500000 0.500000 3 4 0 0.801970 0.500000 4 4 3 0.801970 0.801970 5 4 2 0.801970 0.801970 6 4 1 0.801970 0.801970 7 4 0 -0.983094 0.801970 8 4 3 -0.983094 -0.983094 9 4 2 -0.983094 -0.983094 10 4 1 -0.983094 -0.983094 11 4 0 -0.816309 -0.983094 12 4 3 -0.816309 -0.816309 13 4 2 -0.816309 -0.816309 14 4 1 -0.816309 -0.816309 15 4 0 -0.676246 -0.816309 16 4 3 -0.676246 -0.676246 17 4 2 -0.676246 -0.676246 18 4 1 -0.676246 -0.676246 19 4 0 -0.192492 -0.676246 20 4 3 -0.192492 -0.192492 I D Q U Y 1 3 2 0.500000 0.500000 2 3 1 0.500000 0.500000 3 3 0 -0.718571 0.500000 4 3 2 -0.718571 -0.718571 5 3 1 -0.718571 -0.718571 6 3 0 -0.488621 -0.718571 7 3 2 -0.488621 -0.488621 8 3 1 -0.488621 -0.488621 9 3 0 0.212096 -0.488621 10 3 2 0.212096 0.212096 11 3 1 0.212096 0.212096 12 3 0 -0.075243 0.212096 13 3 2 -0.075243 -0.075243 14 3 1 -0.075243 -0.075243 15 3 0 -0.119434 -0.075243 16 3 2 -0.119434 -0.119434 17 3 1 -0.119434 -0.119434 18 3 0 -0.154918 -0.119434 19 3 2 -0.154918 -0.154918 20 3 1 -0.154918 -0.154918 I D Q U Y 1 2 0 -0.485359 0.500000 2 2 1 -0.485359 -0.485359 3 2 0 0.065882 -0.485359 4 2 1 0.065882 0.065882 5 2 0 0.819092 0.065882 6 2 1 0.819092 0.819092 7 2 0 -0.257375 0.819092 8 2 1 -0.257375 -0.257375 9 2 0 0.789815 -0.257375 10 2 1 0.789815 0.789815 11 2 0 -0.682700 0.789815 12 2 1 -0.682700 -0.682700 13 2 0 0.718547 -0.682700 14 2 1 0.718547 0.718547 15 2 0 -0.877854 0.718547 16 2 1 -0.877854 -0.877854 17 2 0 -0.137181 -0.877854 18 2 1 -0.137181 -0.137181 19 2 0 -0.629671 -0.137181 20 2 1 -0.629671 -0.629671 I D Q U Y 1 1 0 -0.731596 0.500000 2 1 0 -0.774878 -0.731596 3 1 0 0.981510 -0.774878 4 1 0 0.083410 0.981510 5 1 0 -0.204054 0.083410 6 1 0 -0.596313 -0.204054 7 1 0 0.496389 -0.596313 8 1 0 -0.860882 0.496389 9 1 0 0.294964 -0.860882 10 1 0 -0.913554 0.294964 11 1 0 -0.338162 -0.913554 12 1 0 -0.396178 -0.338162 13 1 0 0.689750 -0.396178 14 1 0 -0.692220 0.689750 15 1 0 0.989996 -0.692220 16 1 0 0.550332 0.989996 17 1 0 -0.937878 0.550332 18 1 0 0.931773 -0.937878 19 1 0 0.346266 0.931773 20 1 0 0.488061 0.346266 TEST04 RAN1F generates random values with an approximate 1/F distribution. B I Y 1 1 0.904487 1 2 -0.521903 1 3 -0.711678 1 4 0.915050 1 5 -0.719573 1 6 -0.045906 1 7 0.160715 1 8 0.505512 1 9 0.617175 1 10 -0.481284 1 11 0.375971 1 12 0.156313 1 13 -0.573088 1 14 -0.987588 1 15 0.506022 1 16 -0.952304 1 17 0.016489 1 18 0.185325 1 19 0.752763 1 20 0.052216 B I Y 1 1 0.972471 1 2 0.142826 1 3 -0.813163 1 4 0.915187 1 5 -0.722880 1 6 -0.328946 1 7 -0.544831 1 8 -0.260958 1 9 0.508784 1 10 0.067844 1 11 -0.799510 1 12 -0.780718 1 13 -0.443230 1 14 0.427551 1 15 -0.572970 1 16 0.501124 1 17 0.196858 1 18 0.940254 1 19 0.280928 1 20 -0.213861 B I Y 1 1 0.473842 1 2 -0.980968 1 3 0.051798 1 4 0.101939 1 5 0.944716 1 6 0.422308 1 7 0.562849 1 8 -0.188693 1 9 0.280590 1 10 -0.952503 1 11 0.947559 1 12 -0.577250 1 13 0.298113 1 14 0.461058 1 15 0.947501 1 16 -0.718799 1 17 0.914002 1 18 -0.646512 1 19 -0.672842 1 20 -0.766992 B I Y 1 1 0.305482 1 2 0.880900 1 3 -0.594834 1 4 0.489982 1 5 -0.119989 1 6 0.027568 1 7 -0.985688 1 8 -0.832023 1 9 -0.194169 1 10 -0.613750 1 11 -0.497403 1 12 0.520695 1 13 -0.336278 1 14 0.457005 1 15 0.271592 1 16 0.599958 1 17 -0.929329 1 18 0.204801 1 19 0.901731 1 20 0.815689 B I Y 2 1 0.731516 2 2 0.741252 2 3 -0.481430 2 4 -0.425107 2 5 0.554055 2 6 0.253471 2 7 -0.474833 2 8 -0.024230 2 9 0.151535 2 10 0.454515 2 11 -0.021882 2 12 -0.678233 2 13 -0.370239 2 14 -0.461758 2 15 0.279525 2 16 0.262901 2 17 -0.706847 2 18 -0.815007 2 19 0.275488 2 20 0.850900 B I Y 2 1 0.800778 2 2 0.235605 2 3 0.167438 2 4 0.493682 2 5 0.482548 2 6 0.296999 2 7 0.696704 2 8 0.054082 2 9 -0.082808 2 10 -0.559129 2 11 -0.014514 2 12 0.409153 2 13 0.448197 2 14 0.468085 2 15 0.428666 2 16 0.072796 2 17 0.165732 2 18 0.444627 2 19 0.010134 2 20 -0.048184 B I Y 2 1 0.246950 2 2 0.036392 2 3 -0.330000 2 4 0.015756 2 5 -0.309269 2 6 -0.021108 2 7 -0.409380 2 8 -0.069235 2 9 -0.047658 2 10 0.137352 2 11 0.743049 2 12 0.181476 2 13 -0.780591 2 14 -0.788509 2 15 0.156667 2 16 0.412160 2 17 -0.052592 2 18 -0.137262 2 19 0.023670 2 20 0.204202 B I Y 2 1 0.539885 2 2 -0.145328 2 3 0.596020 2 4 -0.300380 2 5 0.287789 2 6 -0.315967 2 7 -0.147657 2 8 -0.319627 2 9 -0.550550 2 10 -0.241577 2 11 0.749633 2 12 -0.115509 2 13 -0.143448 2 14 -0.743017 2 15 0.199102 2 16 -0.193732 2 17 0.101983 2 18 0.594315 2 19 -0.019549 2 20 -0.029180 B I Y 4 1 0.430955 4 2 0.148342 4 3 0.404033 4 4 0.416899 4 5 0.116140 4 6 -0.330903 4 7 0.074186 4 8 -0.182426 4 9 -0.143042 4 10 -0.085846 4 11 -0.071766 4 12 0.131521 4 13 -0.204198 4 14 -0.045219 4 15 -0.149388 4 16 -0.230169 4 17 -0.273265 4 18 -0.516590 4 19 -0.121538 4 20 -0.049603 B I Y 4 1 0.632383 4 2 0.314862 4 3 0.049816 4 4 -0.021863 4 5 0.060723 4 6 0.386642 4 7 0.166918 4 8 0.336573 4 9 0.362834 4 10 0.294911 4 11 0.390115 4 12 -0.023411 4 13 0.001532 4 14 -0.003810 4 15 0.188249 4 16 0.241717 4 17 0.353625 4 18 0.417651 4 19 0.078266 4 20 0.134306 B I Y 4 1 0.368749 4 2 0.447268 4 3 -0.148172 4 4 -0.099181 4 5 -0.021994 4 6 0.332735 4 7 0.413760 4 8 0.266431 4 9 0.241889 4 10 0.176269 4 11 -0.072573 4 12 0.045579 4 13 -0.006237 4 14 -0.115884 4 15 -0.162073 4 16 -0.368749 4 17 -0.132831 4 18 -0.429105 4 19 -0.004400 4 20 -0.180900 B I Y 4 1 0.629677 4 2 0.668612 4 3 0.296956 4 4 0.422891 4 5 0.263340 4 6 0.441171 4 7 0.280790 4 8 0.046461 4 9 0.086246 4 10 -0.259774 4 11 0.231246 4 12 0.209864 4 13 0.012039 4 14 -0.330053 4 15 -0.170000 4 16 -0.105733 4 17 0.554377 4 18 0.233241 4 19 0.591063 4 20 0.590082 B I Y 8 1 0.702476 8 2 0.682317 8 3 0.528688 8 4 0.408128 8 5 0.580881 8 6 0.558106 8 7 0.749816 8 8 0.751098 8 9 0.616001 8 10 0.417145 8 11 0.478873 8 12 0.488820 8 13 0.562234 8 14 0.524666 8 15 0.327212 8 16 0.380037 8 17 0.148956 8 18 0.200435 8 19 0.145689 8 20 0.236944 B I Y 8 1 0.447298 8 2 0.316720 8 3 0.428482 8 4 0.478255 8 5 0.299050 8 6 0.251494 8 7 0.524611 8 8 0.454596 8 9 0.114179 8 10 0.176579 8 11 0.005482 8 12 -0.043283 8 13 0.233206 8 14 0.181508 8 15 -0.097235 8 16 -0.020993 8 17 0.057258 8 18 0.214119 8 19 0.221272 8 20 0.192455 B I Y 8 1 0.678718 8 2 0.487561 8 3 0.263320 8 4 0.292299 8 5 0.250926 8 6 0.258540 8 7 0.131815 8 8 0.163811 8 9 0.433316 8 10 0.584234 8 11 0.580615 8 12 0.373531 8 13 0.466156 8 14 0.474138 8 15 0.474763 8 16 0.345243 8 17 0.540825 8 18 0.349490 8 19 0.590287 8 20 0.357044 B I Y 8 1 0.521221 8 2 0.365137 8 3 0.178121 8 4 0.164883 8 5 0.252643 8 6 0.246343 8 7 0.255903 8 8 0.258523 8 9 -0.036728 8 10 -0.030044 8 11 0.272282 8 12 0.210093 8 13 0.056304 8 14 0.177802 8 15 0.015261 8 16 0.002660 8 17 -0.056534 8 18 -0.092585 8 19 0.005110 8 20 -0.166491 B I Y 16 1 0.506189 16 2 0.515375 16 3 0.466872 16 4 0.458426 16 5 0.451609 16 6 0.460612 16 7 0.335178 16 8 0.330835 16 9 0.397695 16 10 0.424729 16 11 0.395430 16 12 0.419363 16 13 0.321498 16 14 0.370621 16 15 0.302601 16 16 0.319184 16 17 0.326126 16 18 0.365043 16 19 0.267950 16 20 0.304368 B I Y 16 1 0.598966 16 2 0.509130 16 3 0.476959 16 4 0.569189 16 5 0.456922 16 6 0.481819 16 7 0.467411 16 8 0.495495 16 9 0.456749 16 10 0.458027 16 11 0.381330 16 12 0.379702 16 13 0.358794 16 14 0.438405 16 15 0.245871 16 16 0.322415 16 17 0.335276 16 18 0.342014 16 19 0.304799 16 20 0.398570 B I Y 16 1 0.461987 16 2 0.444458 16 3 0.347196 16 4 0.278920 16 5 0.435088 16 6 0.388028 16 7 0.452534 16 8 0.458631 16 9 0.314710 16 10 0.321630 16 11 0.290857 16 12 0.211091 16 13 0.272838 16 14 0.222980 16 15 0.239295 16 16 0.271531 16 17 0.247525 16 18 0.305206 16 19 0.283345 16 20 0.228502 B I Y 16 1 0.584092 16 2 0.468960 16 3 0.595154 16 4 0.627329 16 5 0.404181 16 6 0.430959 16 7 0.403448 16 8 0.461532 16 9 0.513034 16 10 0.480478 16 11 0.575852 16 12 0.485659 16 13 0.527100 16 14 0.447740 16 15 0.590928 16 16 0.537143 16 17 0.564489 16 18 0.526629 16 19 0.505688 16 20 0.534060 pink_noise_test(): Normal end of execution. 9 May 2025 9:26:12.370 PM