1 June 2010 8:26:03.527 AM PINK_NOISE_PRB: FORTRAN77 version 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.563163 0.500000 4 5 4 -0.563163 -0.563163 5 5 3 -0.563163 -0.563163 6 5 2 -0.563163 -0.563163 7 5 1 -0.563163 -0.563163 8 5 0 0.912635 -0.563163 9 5 4 0.912635 0.912635 10 5 3 0.912635 0.912635 11 5 2 0.912635 0.912635 12 5 1 0.912635 0.912635 13 5 0 0.659018 0.912635 14 5 4 0.659018 0.659018 15 5 3 0.659018 0.659018 16 5 2 0.659018 0.659018 17 5 1 0.659018 0.659018 18 5 0 0.123391 0.659018 19 5 4 0.123391 0.123391 20 5 3 0.123391 0.123391 I D Q U Y 1 4 2 0.500000 0.500000 2 4 1 0.500000 0.500000 3 4 0 -0.169386 0.500000 4 4 3 -0.169386 -0.169386 5 4 2 -0.169386 -0.169386 6 4 1 -0.169386 -0.169386 7 4 0 -0.867763 -0.169386 8 4 3 -0.867763 -0.867763 9 4 2 -0.867763 -0.867763 10 4 1 -0.867763 -0.867763 11 4 0 -0.484844 -0.867763 12 4 3 -0.484844 -0.484844 13 4 2 -0.484844 -0.484844 14 4 1 -0.484844 -0.484844 15 4 0 -0.780086 -0.484844 16 4 3 -0.780086 -0.780086 17 4 2 -0.780086 -0.780086 18 4 1 -0.780086 -0.780086 19 4 0 -0.912342 -0.780086 20 4 3 -0.912342 -0.912342 I D Q U Y 1 3 2 0.500000 0.500000 2 3 1 0.500000 0.500000 3 3 0 0.267931 0.500000 4 3 2 0.267931 0.267931 5 3 1 0.267931 0.267931 6 3 0 -0.876546 0.267931 7 3 2 -0.876546 -0.876546 8 3 1 -0.876546 -0.876546 9 3 0 -0.100922 -0.876546 10 3 2 -0.100922 -0.100922 11 3 1 -0.100922 -0.100922 12 3 0 -0.197387 -0.100922 13 3 2 -0.197387 -0.197387 14 3 1 -0.197387 -0.197387 15 3 0 0.509347 -0.197387 16 3 2 0.509347 0.509347 17 3 1 0.509347 0.509347 18 3 0 0.594574 0.509347 19 3 2 0.594574 0.594574 20 3 1 0.594574 0.594574 I D Q U Y 1 2 0 -0.996323 0.500000 2 2 1 -0.996323 -0.996323 3 2 0 0.795008 -0.996323 4 2 1 0.795008 0.795008 5 2 0 -0.298495 0.795008 6 2 1 -0.298495 -0.298495 7 2 0 -0.810910 -0.298495 8 2 1 -0.810910 -0.810910 9 2 0 -0.972766 -0.810910 10 2 1 -0.972766 -0.972766 11 2 0 0.718194 -0.972766 12 2 1 0.718194 0.718194 13 2 0 0.681695 0.718194 14 2 1 0.681695 0.681695 15 2 0 -0.753792 0.681695 16 2 1 -0.753792 -0.753792 17 2 0 -0.984975 -0.753792 18 2 1 -0.984975 -0.984975 19 2 0 -0.479394 -0.984975 20 2 1 -0.479394 -0.479394 I D Q U Y 1 1 0 0.824967 0.500000 2 1 0 -0.772672 0.824967 3 1 0 -0.296743 -0.772672 4 1 0 0.645775 -0.296743 5 1 0 -0.465735 0.645775 6 1 0 0.384133 -0.465735 7 1 0 0.123325 0.384133 8 1 0 0.722432 0.123325 9 1 0 -0.092412 0.722432 10 1 0 0.823954 -0.092412 11 1 0 0.195834 0.823954 12 1 0 -0.622091 0.195834 13 1 0 0.522984 -0.622091 14 1 0 -0.206023 0.522984 15 1 0 -0.629372 -0.206023 16 1 0 0.148732 -0.629372 17 1 0 -0.265947 0.148732 18 1 0 0.234410 -0.265947 19 1 0 -0.276943 0.234410 20 1 0 -0.574140 -0.276943 TEST04 RAN1F generates random values with an approximate 1/F distribution. B I Y 1 1 0.621921 1 2 0.248327 1 3 -0.370871 1 4 0.777072 1 5 0.244960 1 6 -0.963801 1 7 -0.598183 1 8 0.335059 1 9 -0.669447 1 10 0.607590 1 11 -0.240913 1 12 0.982119 1 13 0.465761 1 14 0.049291 1 15 0.439382 1 16 0.700312 1 17 0.136718 1 18 -0.174346 1 19 -0.236095 1 20 -0.047063 B I Y 1 1 0.320489 1 2 -0.078051 1 3 0.196320 1 4 -0.455368 1 5 0.626458 1 6 0.880424 1 7 -0.720511 1 8 0.367764 1 9 -0.982524 1 10 0.726894 1 11 0.908733 1 12 -0.926206 1 13 -0.750458 1 14 -0.948751 1 15 0.349915 1 16 -0.982910 1 17 0.231790 1 18 -0.301647 1 19 0.216904 1 20 -0.494941 B I Y 1 1 0.560591 1 2 0.690094 1 3 0.403261 1 4 -0.388851 1 5 0.582563 1 6 -0.869050 1 7 -0.126258 1 8 -0.019558 1 9 -0.704433 1 10 0.592338 1 11 -0.579300 1 12 -0.291283 1 13 0.406213 1 14 -0.774820 1 15 -0.392474 1 16 -0.314636 1 17 -0.081650 1 18 -0.295207 1 19 0.461742 1 20 0.503780 B I Y 1 1 0.472343 1 2 0.338553 1 3 0.052099 1 4 -0.369536 1 5 -0.795481 1 6 0.350645 1 7 -0.706780 1 8 -0.855240 1 9 -0.017465 1 10 0.467834 1 11 0.882974 1 12 0.142228 1 13 0.424390 1 14 0.730385 1 15 -0.426400 1 16 -0.499994 1 17 0.601230 1 18 0.875521 1 19 0.877040 1 20 0.410131 B I Y 2 1 0.156546 2 2 0.512487 2 3 0.072312 2 4 -0.653558 2 5 -0.493833 2 6 -0.852884 2 7 -0.046665 2 8 -0.305570 2 9 -0.319038 2 10 -0.069672 2 11 0.516992 2 12 0.090018 2 13 -0.011757 2 14 -0.597041 2 15 0.067349 2 16 -0.070750 2 17 0.047263 2 18 0.347663 2 19 0.064000 2 20 0.640444 B I Y 2 1 0.091123 2 2 0.504784 2 3 -0.189429 2 4 0.273815 2 5 -0.075974 2 6 0.111279 2 7 0.311808 2 8 -0.444290 2 9 -0.004985 2 10 0.224109 2 11 0.637969 2 12 0.347700 2 13 -0.226763 2 14 -0.202836 2 15 0.010743 2 16 -0.447641 2 17 -0.385107 2 18 -0.495009 2 19 0.031915 2 20 0.393780 B I Y 2 1 0.450833 2 2 0.442286 2 3 -0.156875 2 4 -0.605316 2 5 -0.510132 2 6 0.208250 2 7 -0.491533 2 8 -0.193210 2 9 0.139616 2 10 0.532938 2 11 -0.414068 2 12 -0.237340 2 13 -0.085285 2 14 -0.387383 2 15 -0.060560 2 16 0.163225 2 17 0.848667 2 18 0.553561 2 19 -0.460954 2 20 -0.248188 B I Y 2 1 0.306405 2 2 -0.098052 2 3 -0.069903 2 4 0.143013 2 5 -0.062372 2 6 0.716285 2 7 -0.047479 2 8 0.028039 2 9 0.178556 2 10 -0.012737 2 11 0.423745 2 12 -0.124727 2 13 -0.037036 2 14 -0.462547 2 15 0.237276 2 16 -0.096201 2 17 0.447071 2 18 -0.070538 2 19 -0.493366 2 20 -0.002073 B I Y 4 1 0.703331 4 2 0.410663 4 3 0.382656 4 4 0.706266 4 5 0.043567 4 6 -0.125355 4 7 -0.243199 4 8 -0.245902 4 9 -0.347896 4 10 -0.093782 4 11 -0.529407 4 12 -0.648805 4 13 0.102586 4 14 -0.175102 4 15 -0.018304 4 16 -0.299577 4 17 0.046725 4 18 -0.195879 4 19 -0.327906 4 20 0.069670 B I Y 4 1 0.361493 4 2 0.263698 4 3 0.178353 4 4 0.204471 4 5 -0.177936 4 6 -0.343821 4 7 -0.277609 4 8 -0.137104 4 9 -0.021697 4 10 -0.157333 4 11 0.111232 4 12 -0.012738 4 13 0.004476 4 14 -0.004297 4 15 -0.058369 4 16 0.113546 4 17 -0.075901 4 18 -0.171247 4 19 -0.229691 4 20 -0.307722 B I Y 4 1 0.537527 4 2 0.403229 4 3 0.255692 4 4 -0.124703 4 5 0.339647 4 6 0.300827 4 7 0.363162 4 8 0.172358 4 9 0.205771 4 10 -0.104346 4 11 -0.043809 4 12 -0.248619 4 13 -0.015904 4 14 0.181446 4 15 -0.091020 4 16 -0.129244 4 17 0.078496 4 18 0.276458 4 19 0.103417 4 20 -0.090314 B I Y 4 1 0.447919 4 2 0.303624 4 3 0.232716 4 4 0.435743 4 5 0.031288 4 6 -0.068637 4 7 0.405628 4 8 0.212714 4 9 -0.474863 4 10 -0.517467 4 11 -0.426706 4 12 -0.192821 4 13 -0.338256 4 14 -0.438225 4 15 -0.471880 4 16 -0.200947 4 17 -0.152418 4 18 -0.182994 4 19 -0.057639 4 20 0.235870 B I Y 8 1 0.357212 8 2 0.389302 8 3 0.367745 8 4 0.214894 8 5 0.325448 8 6 0.210231 8 7 0.257131 8 8 0.316374 8 9 0.071629 8 10 0.067434 8 11 0.118563 8 12 0.119124 8 13 0.284991 8 14 0.419022 8 15 0.221343 8 16 0.202529 8 17 0.196364 8 18 0.236885 8 19 0.077052 8 20 0.272337 B I Y 8 1 0.563259 8 2 0.527038 8 3 0.429051 8 4 0.542937 8 5 0.511374 8 6 0.633926 8 7 0.622237 8 8 0.449957 8 9 0.395221 8 10 0.238247 8 11 0.342692 8 12 0.569357 8 13 0.355879 8 14 0.204944 8 15 0.353728 8 16 0.375290 8 17 0.422077 8 18 0.565154 8 19 0.412775 8 20 0.373360 B I Y 8 1 0.382045 8 2 0.167945 8 3 0.213457 8 4 0.120181 8 5 0.128407 8 6 0.025413 8 7 0.116904 8 8 0.188000 8 9 0.146908 8 10 0.206461 8 11 0.186213 8 12 0.171138 8 13 0.152468 8 14 0.303186 8 15 0.088650 8 16 0.168811 8 17 0.165893 8 18 0.219752 8 19 -0.039744 8 20 -0.122389 B I Y 8 1 0.486160 8 2 0.439110 8 3 0.385397 8 4 0.580325 8 5 0.300191 8 6 0.224845 8 7 0.611169 8 8 0.424113 8 9 0.394280 8 10 0.361479 8 11 0.440541 8 12 0.440457 8 13 0.192606 8 14 0.363763 8 15 0.435815 8 16 0.372327 8 17 0.185856 8 18 0.289523 8 19 0.345472 8 20 0.388600 B I Y 16 1 0.553690 16 2 0.508857 16 3 0.586961 16 4 0.528923 16 5 0.360059 16 6 0.338485 16 7 0.415752 16 8 0.365517 16 9 0.326226 16 10 0.323145 16 11 0.522126 16 12 0.502664 16 13 0.355496 16 14 0.342608 16 15 0.405447 16 16 0.400117 16 17 0.234530 16 18 0.173857 16 19 0.249647 16 20 0.270215 B I Y 16 1 0.505148 16 2 0.525415 16 3 0.454078 16 4 0.508247 16 5 0.334375 16 6 0.416676 16 7 0.400351 16 8 0.427333 16 9 0.497916 16 10 0.448653 16 11 0.343854 16 12 0.382995 16 13 0.445466 16 14 0.371483 16 15 0.479755 16 16 0.433010 16 17 0.308133 16 18 0.317254 16 19 0.295260 16 20 0.185549 B I Y 16 1 0.579359 16 2 0.564706 16 3 0.535624 16 4 0.462570 16 5 0.506902 16 6 0.521150 16 7 0.417163 16 8 0.417369 16 9 0.453724 16 10 0.503238 16 11 0.442658 16 12 0.463175 16 13 0.503542 16 14 0.576792 16 15 0.513819 16 16 0.553197 16 17 0.473785 16 18 0.408968 16 19 0.427620 16 20 0.489681 B I Y 16 1 0.571487 16 2 0.483277 16 3 0.525444 16 4 0.496743 16 5 0.545590 16 6 0.589217 16 7 0.606446 16 8 0.534057 16 9 0.297674 16 10 0.198506 16 11 0.257435 16 12 0.279079 16 13 0.268332 16 14 0.307517 16 15 0.414337 16 16 0.401094 16 17 0.396958 16 18 0.465215 16 19 0.441088 16 20 0.421315 PINK_NOISE_PRB: Normal end of execution. 1 June 2010 8:26:03.540 AM