1 April 2023 3:45:37.499 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.834651 0.500000 4 5 4 0.834651 0.834651 5 5 3 0.834651 0.834651 6 5 2 0.834651 0.834651 7 5 1 0.834651 0.834651 8 5 0 0.895958 0.834651 9 5 4 0.895958 0.895958 10 5 3 0.895958 0.895958 11 5 2 0.895958 0.895958 12 5 1 0.895958 0.895958 13 5 0 -0.428305 0.895958 14 5 4 -0.428305 -0.428305 15 5 3 -0.428305 -0.428305 16 5 2 -0.428305 -0.428305 17 5 1 -0.428305 -0.428305 18 5 0 -0.904736 -0.428305 19 5 4 -0.904736 -0.904736 20 5 3 -0.904736 -0.904736 I D Q U Y 1 4 2 0.500000 0.500000 2 4 1 0.500000 0.500000 3 4 0 -0.094175 0.500000 4 4 3 -0.094175 -0.094175 5 4 2 -0.094175 -0.094175 6 4 1 -0.094175 -0.094175 7 4 0 0.000436 -0.094175 8 4 3 0.000436 0.000436 9 4 2 0.000436 0.000436 10 4 1 0.000436 0.000436 11 4 0 0.896430 0.000436 12 4 3 0.896430 0.896430 13 4 2 0.896430 0.896430 14 4 1 0.896430 0.896430 15 4 0 0.554193 0.896430 16 4 3 0.554193 0.554193 17 4 2 0.554193 0.554193 18 4 1 0.554193 0.554193 19 4 0 0.122263 0.554193 20 4 3 0.122263 0.122263 I D Q U Y 1 3 2 0.500000 0.500000 2 3 1 0.500000 0.500000 3 3 0 0.680112 0.500000 4 3 2 0.680112 0.680112 5 3 1 0.680112 0.680112 6 3 0 -0.930588 0.680112 7 3 2 -0.930588 -0.930588 8 3 1 -0.930588 -0.930588 9 3 0 -0.908693 -0.930588 10 3 2 -0.908693 -0.908693 11 3 1 -0.908693 -0.908693 12 3 0 0.542724 -0.908693 13 3 2 0.542724 0.542724 14 3 1 0.542724 0.542724 15 3 0 0.641115 0.542724 16 3 2 0.641115 0.641115 17 3 1 0.641115 0.641115 18 3 0 -0.499546 0.641115 19 3 2 -0.499546 -0.499546 20 3 1 -0.499546 -0.499546 I D Q U Y 1 2 0 0.944454 0.500000 2 2 1 0.944454 0.944454 3 2 0 -0.192452 0.944454 4 2 1 -0.192452 -0.192452 5 2 0 0.261383 -0.192452 6 2 1 0.261383 0.261383 7 2 0 -0.089063 0.261383 8 2 1 -0.089063 -0.089063 9 2 0 0.958822 -0.089063 10 2 1 0.958822 0.958822 11 2 0 -0.593801 0.958822 12 2 1 -0.593801 -0.593801 13 2 0 -0.100545 -0.593801 14 2 1 -0.100545 -0.100545 15 2 0 0.952948 -0.100545 16 2 1 0.952948 0.952948 17 2 0 -0.459179 0.952948 18 2 1 -0.459179 -0.459179 19 2 0 0.555414 -0.459179 20 2 1 0.555414 0.555414 I D Q U Y 1 1 0 -0.696665 0.500000 2 1 0 -0.571210 -0.696665 3 1 0 0.162396 -0.571210 4 1 0 -0.533308 0.162396 5 1 0 0.675444 -0.533308 6 1 0 0.125884 0.675444 7 1 0 -0.535346 0.125884 8 1 0 0.009421 -0.535346 9 1 0 -0.733135 0.009421 10 1 0 -0.531241 -0.733135 11 1 0 0.148635 -0.531241 12 1 0 -0.948064 0.148635 13 1 0 0.853102 -0.948064 14 1 0 0.186058 0.853102 15 1 0 0.705085 0.186058 16 1 0 0.244111 0.705085 17 1 0 0.834525 0.244111 18 1 0 0.294862 0.834525 19 1 0 0.985012 0.294862 20 1 0 -0.744002 0.985012 TEST04 RAN1F generates random values with an approximate 1/F distribution. B I Y 1 1 0.036881 1 2 0.669826 1 3 -0.154302 1 4 0.947397 1 5 0.677436 1 6 -0.729893 1 7 0.082036 1 8 0.358582 1 9 0.713183 1 10 0.842220 1 11 -0.505911 1 12 -0.080258 1 13 -0.072820 1 14 -0.583463 1 15 -0.193559 1 16 0.892584 1 17 0.786706 1 18 0.755314 1 19 0.856081 1 20 0.657624 B I Y 1 1 0.459338 1 2 0.186985 1 3 -0.705725 1 4 -0.433591 1 5 0.945917 1 6 -0.890136 1 7 -0.811350 1 8 -0.528945 1 9 -0.205668 1 10 0.630751 1 11 -0.942710 1 12 -0.373819 1 13 0.139606 1 14 -0.724992 1 15 0.664121 1 16 0.757801 1 17 0.808852 1 18 0.953659 1 19 0.684290 1 20 0.371562 B I Y 1 1 0.902010 1 2 -0.732733 1 3 0.933177 1 4 -0.873918 1 5 0.386440 1 6 0.275226 1 7 -0.134910 1 8 -0.869895 1 9 0.536381 1 10 -0.876399 1 11 -0.211903 1 12 0.942164 1 13 -0.503723 1 14 0.350458 1 15 0.390089 1 16 0.255423 1 17 0.969918 1 18 -0.341332 1 19 -0.145844 1 20 -0.487872 B I Y 1 1 0.005012 1 2 -0.802911 1 3 0.682962 1 4 0.022356 1 5 -0.954149 1 6 0.800038 1 7 0.530118 1 8 -0.970863 1 9 -0.186005 1 10 0.436846 1 11 0.050544 1 12 -0.029382 1 13 0.096483 1 14 0.989664 1 15 0.469673 1 16 0.012339 1 17 -0.763054 1 18 -0.718226 1 19 -0.229746 1 20 0.208046 B I Y 2 1 0.369461 2 2 0.734237 2 3 -0.203850 2 4 -0.524304 2 5 0.060670 2 6 -0.111897 2 7 0.727971 2 8 0.327167 2 9 -0.172921 2 10 -0.183295 2 11 -0.475740 2 12 -0.095087 2 13 0.382153 2 14 -0.270972 2 15 0.321032 2 16 0.941651 2 17 -0.109473 2 18 0.180199 2 19 0.273003 2 20 -0.123537 B I Y 2 1 0.454613 2 2 0.550378 2 3 0.545825 2 4 -0.298186 2 5 0.860613 2 6 0.205804 2 7 0.374681 2 8 -0.281159 2 9 -0.570460 2 10 -0.463164 2 11 0.649390 2 12 0.645074 2 13 -0.245784 2 14 0.102113 2 15 0.389373 2 16 -0.175282 2 17 0.484241 2 18 0.182451 2 19 0.363935 2 20 0.596036 B I Y 2 1 0.310953 2 2 0.721854 2 3 0.075274 2 4 -0.659676 2 5 0.196484 2 6 0.237975 2 7 0.160794 2 8 0.360325 2 9 0.115000 2 10 -0.133658 2 11 0.814362 2 12 0.438327 2 13 0.133783 2 14 -0.554953 2 15 0.474368 2 16 0.104763 2 17 -0.535497 2 18 -0.674410 2 19 -0.701975 2 20 -0.542752 B I Y 2 1 0.574048 2 2 0.390143 2 3 -0.054785 2 4 0.724844 2 5 -0.750927 2 6 -0.023613 2 7 0.091078 2 8 0.362135 2 9 0.668833 2 10 -0.001794 2 11 0.835353 2 12 -0.007217 2 13 -0.413148 2 14 -0.488395 2 15 0.641227 2 16 0.093327 2 17 -0.193057 2 18 -0.092643 2 19 -0.674208 2 20 -0.212577 B I Y 4 1 0.427471 4 2 0.281894 4 3 0.352278 4 4 0.173756 4 5 -0.112602 4 6 -0.459877 4 7 -0.009247 4 8 -0.217414 4 9 -0.108179 4 10 0.006823 4 11 0.164296 4 12 0.218987 4 13 0.232959 4 14 -0.092932 4 15 -0.080219 4 16 -0.200119 4 17 0.202377 4 18 0.271993 4 19 -0.102409 4 20 -0.425510 B I Y 4 1 0.210332 4 2 -0.031996 4 3 0.149985 4 4 0.113111 4 5 0.224408 4 6 0.373665 4 7 -0.057085 4 8 0.102423 4 9 0.172964 4 10 0.248151 4 11 0.085312 4 12 0.030656 4 13 0.198338 4 14 0.389764 4 15 0.237949 4 16 0.187946 4 17 0.090068 4 18 -0.221752 4 19 -0.357961 4 20 -0.376185 B I Y 4 1 0.626410 4 2 0.719411 4 3 0.368615 4 4 0.269195 4 5 0.048697 4 6 0.234672 4 7 -0.089832 4 8 -0.103669 4 9 0.489772 4 10 0.465493 4 11 0.232650 4 12 0.110760 4 13 0.219576 4 14 0.421848 4 15 0.376099 4 16 0.562940 4 17 -0.182025 4 18 0.228100 4 19 -0.240367 4 20 -0.209249 B I Y 4 1 0.282724 4 2 0.075048 4 3 0.294985 4 4 0.565786 4 5 0.264357 4 6 0.011059 4 7 0.173225 4 8 0.052197 4 9 -0.213174 4 10 -0.174676 4 11 -0.032581 4 12 -0.276444 4 13 -0.415626 4 14 -0.272111 4 15 -0.118338 4 16 -0.546957 4 17 0.502745 4 18 0.417680 4 19 0.550769 4 20 0.339520 B I Y 8 1 0.543681 8 2 0.624742 8 3 0.554510 8 4 0.571689 8 5 0.383140 8 6 0.553371 8 7 0.492953 8 8 0.398374 8 9 0.625021 8 10 0.686515 8 11 0.436680 8 12 0.448845 8 13 0.432845 8 14 0.479157 8 15 0.563437 8 16 0.493745 8 17 0.172421 8 18 0.314681 8 19 0.439976 8 20 0.382434 B I Y 8 1 0.451793 8 2 0.417778 8 3 0.319275 8 4 0.252093 8 5 0.501565 8 6 0.567296 8 7 0.434614 8 8 0.604872 8 9 0.263305 8 10 0.388232 8 11 0.352490 8 12 0.385910 8 13 0.056935 8 14 0.153201 8 15 -0.052761 8 16 0.159182 8 17 -0.020173 8 18 0.025943 8 19 0.112544 8 20 0.261912 B I Y 8 1 0.444298 8 2 0.276477 8 3 0.277262 8 4 0.363033 8 5 0.388044 8 6 0.439006 8 7 0.227857 8 8 0.177701 8 9 0.123225 8 10 0.134321 8 11 0.363926 8 12 0.340155 8 13 0.054650 8 14 0.057099 8 15 0.269099 8 16 0.129636 8 17 0.013435 8 18 -0.042194 8 19 0.158753 8 20 0.059643 B I Y 8 1 0.337276 8 2 0.408400 8 3 0.387908 8 4 0.529014 8 5 0.262779 8 6 0.428958 8 7 0.380578 8 8 0.332273 8 9 0.054159 8 10 -0.069354 8 11 -0.062536 8 12 -0.140619 8 13 0.457118 8 14 0.461473 8 15 0.208247 8 16 0.101296 8 17 0.210565 8 18 0.353716 8 19 0.055384 8 20 0.089916 B I Y 16 1 0.388391 16 2 0.327144 16 3 0.372423 16 4 0.420645 16 5 0.330716 16 6 0.398544 16 7 0.321789 16 8 0.422929 16 9 0.252902 16 10 0.351931 16 11 0.386829 16 12 0.372492 16 13 0.359014 16 14 0.262574 16 15 0.304795 16 16 0.322293 16 17 0.300008 16 18 0.316394 16 19 0.323497 16 20 0.315402 B I Y 16 1 0.425272 16 2 0.382189 16 3 0.453150 16 4 0.440115 16 5 0.420928 16 6 0.390081 16 7 0.437700 16 8 0.417919 16 9 0.325121 16 10 0.274164 16 11 0.274197 16 12 0.267259 16 13 0.243358 16 14 0.209646 16 15 0.282635 16 16 0.251960 16 17 0.380631 16 18 0.453883 16 19 0.297067 16 20 0.362904 B I Y 16 1 0.439456 16 2 0.359519 16 3 0.359250 16 4 0.383014 16 5 0.371803 16 6 0.357528 16 7 0.413070 16 8 0.406526 16 9 0.344344 16 10 0.359015 16 11 0.235668 16 12 0.271159 16 13 0.358204 16 14 0.316378 16 15 0.317729 16 16 0.333493 16 17 0.350692 16 18 0.330504 16 19 0.391405 16 20 0.488747 B I Y 16 1 0.588847 16 2 0.521133 16 3 0.540773 16 4 0.428227 16 5 0.593754 16 6 0.540783 16 7 0.602454 16 8 0.625819 16 9 0.309947 16 10 0.307955 16 11 0.482176 16 12 0.487993 16 13 0.384047 16 14 0.299497 16 15 0.318896 16 16 0.320072 16 17 0.469600 16 18 0.414855 16 19 0.367057 16 20 0.316222 PINK_NOISE_TEST(): Normal end of execution. 1 April 2023 3:45:37.500 PM