1 June 2010 8:26:30.218 AM PINK_NOISE_PRB: FORTRAN90 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.995119 0.500000 4 5 4 0.995119 0.995119 5 5 3 0.995119 0.995119 6 5 2 0.995119 0.995119 7 5 1 0.995119 0.995119 8 5 0 0.133649 0.995119 9 5 4 0.133649 0.133649 10 5 3 0.133649 0.133649 11 5 2 0.133649 0.133649 12 5 1 0.133649 0.133649 13 5 0 0.931831 0.133649 14 5 4 0.931831 0.931831 15 5 3 0.931831 0.931831 16 5 2 0.931831 0.931831 17 5 1 0.931831 0.931831 18 5 0 0.495855 0.931831 19 5 4 0.495855 0.495855 20 5 3 0.495855 0.495855 I D Q U Y 1 4 2 0.500000 0.500000 2 4 1 0.500000 0.500000 3 4 0 -0.265218 0.500000 4 4 3 -0.265218 -0.265218 5 4 2 -0.265218 -0.265218 6 4 1 -0.265218 -0.265218 7 4 0 -0.038726 -0.265218 8 4 3 -0.038726 -0.038726 9 4 2 -0.038726 -0.038726 10 4 1 -0.038726 -0.038726 11 4 0 -0.852491 -0.038726 12 4 3 -0.852491 -0.852491 13 4 2 -0.852491 -0.852491 14 4 1 -0.852491 -0.852491 15 4 0 -0.989290 -0.852491 16 4 3 -0.989290 -0.989290 17 4 2 -0.989290 -0.989290 18 4 1 -0.989290 -0.989290 19 4 0 -0.305837 -0.989290 20 4 3 -0.305837 -0.305837 I D Q U Y 1 3 2 0.500000 0.500000 2 3 1 0.500000 0.500000 3 3 0 -0.315512 0.500000 4 3 2 -0.315512 -0.315512 5 3 1 -0.315512 -0.315512 6 3 0 -0.564097 -0.315512 7 3 2 -0.564097 -0.564097 8 3 1 -0.564097 -0.564097 9 3 0 -0.733679 -0.564097 10 3 2 -0.733679 -0.733679 11 3 1 -0.733679 -0.733679 12 3 0 0.801049 -0.733679 13 3 2 0.801049 0.801049 14 3 1 0.801049 0.801049 15 3 0 -0.226468 0.801049 16 3 2 -0.226468 -0.226468 17 3 1 -0.226468 -0.226468 18 3 0 -0.109035 -0.226468 19 3 2 -0.109035 -0.109035 20 3 1 -0.109035 -0.109035 I D Q U Y 1 2 0 0.323864 0.500000 2 2 1 0.323864 0.323864 3 2 0 -0.967783 0.323864 4 2 1 -0.967783 -0.967783 5 2 0 0.301710 -0.967783 6 2 1 0.301710 0.301710 7 2 0 0.292818 0.301710 8 2 1 0.292818 0.292818 9 2 0 -0.354025 0.292818 10 2 1 -0.354025 -0.354025 11 2 0 0.711385 -0.354025 12 2 1 0.711385 0.711385 13 2 0 -0.197426 0.711385 14 2 1 -0.197426 -0.197426 15 2 0 -0.586251 -0.197426 16 2 1 -0.586251 -0.586251 17 2 0 0.937079 -0.586251 18 2 1 0.937079 0.937079 19 2 0 0.196799 0.937079 20 2 1 0.196799 0.196799 I D Q U Y 1 1 0 0.345961 0.500000 2 1 0 -0.086235 0.345961 3 1 0 -0.339970 -0.086235 4 1 0 -0.799234 -0.339970 5 1 0 0.510907 -0.799234 6 1 0 0.211387 0.510907 7 1 0 0.438096 0.211387 8 1 0 0.794669 0.438096 9 1 0 0.316458 0.794669 10 1 0 -0.698566 0.316458 11 1 0 0.224630 -0.698566 12 1 0 0.957320 0.224630 13 1 0 0.998285 0.957320 14 1 0 -0.486404 0.998285 15 1 0 0.101731 -0.486404 16 1 0 0.318095 0.101731 17 1 0 0.108010 0.318095 18 1 0 0.955520 0.108010 19 1 0 0.803847 0.955520 20 1 0 0.315849 0.803847 TEST04 RAN1F generates random values with an approximate 1/F distribution. B I Y 1 1 0.728859 1 2 -0.195089 1 3 0.857255 1 4 -0.704330 1 5 0.349059 1 6 0.539229 1 7 -0.321355 1 8 -0.768362 1 9 0.228738 1 10 0.641234 1 11 0.894189 1 12 0.462257 1 13 -0.004792 1 14 -0.250397 1 15 -0.156988 1 16 0.105806 1 17 0.995839 1 18 0.980789 1 19 0.492619 1 20 0.907518 B I Y 1 1 0.734024 1 2 0.503523 1 3 0.893697 1 4 0.412353 1 5 0.627619 1 6 0.117189 1 7 -0.876589 1 8 -0.039238 1 9 0.195380 1 10 -0.724936 1 11 0.174790 1 12 0.039937 1 13 0.771757 1 14 -0.392380 1 15 0.339315 1 16 0.329880 1 17 0.007354 1 18 -0.476850 1 19 -0.846881 1 20 -0.797501 B I Y 1 1 0.375585 1 2 -0.969701 1 3 0.585831 1 4 0.241755 1 5 0.547207 1 6 0.907162 1 7 -0.771511 1 8 -0.363075 1 9 0.193640 1 10 -0.903694 1 11 -0.771588 1 12 -0.568070 1 13 -0.798853 1 14 -0.853316 1 15 -0.506277 1 16 -0.113231 1 17 -0.583265 1 18 0.133997 1 19 -0.951375 1 20 -0.159419 B I Y 1 1 0.976585 1 2 0.385210 1 3 -0.990113 1 4 -0.740158 1 5 -0.906445 1 6 0.679555 1 7 0.356978 1 8 0.163902 1 9 0.467052 1 10 -0.767915 1 11 0.680599 1 12 0.669992 1 13 0.493073 1 14 0.686402 1 15 0.057678 1 16 0.330969 1 17 0.461473 1 18 -0.178791 1 19 -0.288557 1 20 0.470754 B I Y 2 1 0.611159 2 2 0.582305 2 3 0.195671 2 4 0.393809 2 5 0.717337 2 6 0.603725 2 7 0.074443 2 8 0.599351 2 9 -0.026918 2 10 0.290683 2 11 0.957813 2 12 0.328246 2 13 0.259841 2 14 0.270017 2 15 0.012041 2 16 -0.357573 2 17 -0.446785 2 18 -0.467921 2 19 0.284226 2 20 0.087497 B I Y 2 1 0.307675 2 2 0.687017 2 3 -0.327270 2 4 -0.065740 2 5 0.554854 2 6 0.238006 2 7 0.564580 2 8 0.841904 2 9 -0.018912 2 10 0.499036 2 11 -0.596816 2 12 -0.818369 2 13 -0.497406 2 14 0.121988 2 15 0.399979 2 16 0.112716 2 17 -0.508561 2 18 -0.403223 2 19 0.098301 2 20 -0.424865 B I Y 2 1 0.510252 2 2 0.604674 2 3 0.099458 2 4 0.093579 2 5 -0.493245 2 6 -0.307207 2 7 0.444672 2 8 0.108301 2 9 0.782599 2 10 0.262084 2 11 -0.186811 2 12 0.077852 2 13 0.097876 2 14 0.377400 2 15 0.112395 2 16 -0.224333 2 17 -0.113061 2 18 0.258550 2 19 0.246941 2 20 0.486412 B I Y 2 1 0.341649 2 2 0.539204 2 3 0.103905 2 4 0.078963 2 5 0.453569 2 6 0.503363 2 7 0.562794 2 8 -0.071070 2 9 0.017318 2 10 0.461168 2 11 -0.051667 2 12 0.040401 2 13 -0.499027 2 14 -0.136353 2 15 -0.269542 2 16 0.225864 2 17 0.400238 2 18 0.518763 2 19 0.787902 2 20 0.179448 B I Y 4 1 0.506466 4 2 0.058995 4 3 0.555546 4 4 0.475555 4 5 0.068732 4 6 -0.367883 4 7 0.004977 4 8 0.072354 4 9 -0.014568 4 10 -0.357681 4 11 -0.028178 4 12 -0.262074 4 13 -0.222564 4 14 -0.190127 4 15 -0.440732 4 16 -0.552502 4 17 0.385187 4 18 0.020964 4 19 -0.028892 4 20 0.311559 B I Y 4 1 0.635985 4 2 0.298629 4 3 0.270703 4 4 0.039169 4 5 -0.015763 4 6 0.100420 4 7 0.202340 4 8 -0.056485 4 9 -0.111176 4 10 -0.318970 4 11 -0.132876 4 12 -0.286083 4 13 0.249376 4 14 0.190849 4 15 -0.103072 4 16 -0.130624 4 17 -0.086999 4 18 -0.298473 4 19 -0.406269 4 20 -0.321954 B I Y 4 1 0.522094 4 2 0.391184 4 3 0.449630 4 4 0.141242 4 5 0.197337 4 6 0.256608 4 7 0.321720 4 8 0.082820 4 9 -0.216596 4 10 -0.008962 4 11 -0.321453 4 12 -0.374755 4 13 -0.177271 4 14 -0.314901 4 15 -0.113025 4 16 -0.056781 4 17 0.258188 4 18 0.037797 4 19 -0.123782 4 20 -0.042557 B I Y 4 1 0.631942 4 2 0.349025 4 3 0.102931 4 4 0.487417 4 5 0.160580 4 6 -0.028240 4 7 -0.014683 4 8 0.047170 4 9 0.270114 4 10 -0.118573 4 11 0.318384 4 12 0.080785 4 13 -0.022746 4 14 0.041799 4 15 0.367458 4 16 0.155253 4 17 0.561773 4 18 0.448161 4 19 0.301573 4 20 0.192228 B I Y 8 1 0.715332 8 2 0.665190 8 3 0.395301 8 4 0.317439 8 5 0.476983 8 6 0.430275 8 7 0.544450 8 8 0.677945 8 9 0.418540 8 10 0.530923 8 11 0.456618 8 12 0.387073 8 13 0.524918 8 14 0.536156 8 15 0.435627 8 16 0.580499 8 17 0.249438 8 18 0.218058 8 19 0.006493 8 20 0.178830 B I Y 8 1 0.615793 8 2 0.500064 8 3 0.334998 8 4 0.401733 8 5 0.369090 8 6 0.230867 8 7 0.457213 8 8 0.252481 8 9 0.261013 8 10 0.176829 8 11 0.333019 8 12 0.288055 8 13 0.349460 8 14 0.447825 8 15 0.273254 8 16 0.264329 8 17 0.372588 8 18 0.372679 8 19 0.285271 8 20 0.323269 B I Y 8 1 0.586482 8 2 0.471947 8 3 0.620148 8 4 0.544700 8 5 0.338613 8 6 0.577291 8 7 0.717882 8 8 0.568994 8 9 0.403824 8 10 0.471266 8 11 0.423916 8 12 0.343722 8 13 0.501387 8 14 0.472153 8 15 0.389403 8 16 0.347015 8 17 0.186081 8 18 0.108592 8 19 0.020138 8 20 -0.047709 B I Y 8 1 0.666161 8 2 0.596702 8 3 0.499680 8 4 0.516534 8 5 0.286933 8 6 0.525018 8 7 0.448901 8 8 0.350744 8 9 0.315110 8 10 0.138294 8 11 0.141192 8 12 0.140840 8 13 0.268180 8 14 0.357632 8 15 0.307570 8 16 0.186756 8 17 0.189336 8 18 0.265512 8 19 0.294069 8 20 0.139608 B I Y 16 1 0.584576 16 2 0.579602 16 3 0.517715 16 4 0.497069 16 5 0.440394 16 6 0.388577 16 7 0.524621 16 8 0.527996 16 9 0.487985 16 10 0.504903 16 11 0.446904 16 12 0.434849 16 13 0.320325 16 14 0.298480 16 15 0.404916 16 16 0.369971 16 17 0.324890 16 18 0.289100 16 19 0.281814 16 20 0.298126 B I Y 16 1 0.549346 16 2 0.448117 16 3 0.483226 16 4 0.546914 16 5 0.444218 16 6 0.490352 16 7 0.471598 16 8 0.527049 16 9 0.333819 16 10 0.442243 16 11 0.483048 16 12 0.406063 16 13 0.429968 16 14 0.368768 16 15 0.287832 16 16 0.362023 16 17 0.379463 16 18 0.375180 16 19 0.361652 16 20 0.357993 B I Y 16 1 0.476806 16 2 0.433861 16 3 0.388627 16 4 0.367628 16 5 0.489855 16 6 0.391098 16 7 0.406832 16 8 0.309946 16 9 0.342834 16 10 0.421609 16 11 0.318156 16 12 0.373421 16 13 0.383761 16 14 0.357536 16 15 0.385555 16 16 0.300544 16 17 0.294568 16 18 0.325943 16 19 0.259832 16 20 0.351681 B I Y 16 1 0.410133 16 2 0.447177 16 3 0.263621 16 4 0.316728 16 5 0.318310 16 6 0.372264 16 7 0.267213 16 8 0.300642 16 9 0.451088 16 10 0.442594 16 11 0.455996 16 12 0.434219 16 13 0.217996 16 14 0.247753 16 15 0.396500 16 16 0.301474 16 17 0.291065 16 18 0.259503 16 19 0.234736 16 20 0.218051 PINK_NOISE_PRB: Normal end of execution. 1 June 2010 8:26:30.230 AM