constant_random.f90 Source File


Contents

Source Code


Source Code

!> This module provides 10,000 fixed random numbers
!> used for initialising tests, so as always to give
!> the same result when starting from noise, regardless
!> of compiler/system. These should not be used for
!> production runs.
module constant_random
  implicit none
  public :: init_constant_random
  public :: finish_constant_random
  public :: ranf
  private
  real, dimension(:), allocatable :: random_array
  integer :: counter = 0
contains
  function ranf()
    real :: ranf
    ranf = random_array(mod(counter,10000)+1)
    counter = counter + 1
  end function ranf
  subroutine init_constant_random
    allocate(random_array(10000))
    call set_random_array
    counter = 0
  end subroutine init_constant_random
  subroutine finish_constant_random
    deallocate(random_array)
  end subroutine finish_constant_random
  subroutine set_random_array
    ! numbers taken from random.org

    ! Start index of each block
    integer :: start
    ! Most compilers support more line continuations, but this is
    ! the max supported by the 2003 standard
    integer, parameter :: line_continuations = 255
    ! Note: two each on first and last lines of blocks 
    integer, parameter :: elements_per_line = 4
    ! Size of each block
    integer, parameter :: step = (line_continuations * elements_per_line) - 1

    ! Split large array into smaller blocks due to limits on number
    ! of line continuations. Each block apart from the last is a
    ! fixed size, so just calculate the indices rather than
    ! explicitly writing them
    start = 1
    random_array(start: start + step) = (/ 0.6475790490,  0.9498492965, &
         0.1040643785,  0.1610729052, 0.3541695530,  0.3521916087,  &
         0.5423830564,  0.5095201779, 0.4395777043,  0.1622603478,  &
         0.2878692921,  0.0266536306, 0.1429550354,  0.8205499303,  &
         0.5647197920,  0.3790503775, 0.1261086562,  0.5138770991,  &
         0.6710296140,  0.6838839326, 0.2004929463,  0.7406352869,  &
         0.8895214972,  0.1141370812, 0.6701423959,  0.8961483521,  &
         0.4342476366,  0.6439434657, 0.8716331345,  0.1527541394,  &
         0.0912984305,  0.5523289376, 0.1827942180,  0.3241552880,  &
         0.6863152332,  0.3567736094, 0.4654198609,  0.1281173470,  &
         0.0559217877,  0.8118306991, 0.9814343410,  0.5111042991,  &
         0.2665301447,  0.5008356507, 0.6842084095,  0.3006182694,  &
         0.9638296334,  0.1122492032, 0.0317973905,  0.9857487990,  &
         0.7398573574,  0.6153318400, 0.8311592940,  0.0897687245,  &
         0.6165050991,  0.1786380951, 0.9652666848,  0.7427734400,  &
         0.6180888055,  0.3314906372, 0.1274273936,  0.1012130797,  &
         0.1853725779,  0.6556806478, 0.8860271478,  0.3391802477,  &
         0.1980178296,  0.8053925326, 0.1616074146,  0.3153087629,  &
         0.2234175063,  0.7745763456, 0.6874799537,  0.8060900507,  &
         0.9632701429,  0.9258418256, 0.5227596133,  0.4895227638,  &
         0.8840716717,  0.2908226035, 0.3639533285,  0.7978854362,  &
         0.4900587914,  0.6538123755, 0.7588358461,  0.1989083582,  &
         0.7922246017,  0.3011118276, 0.9253000774,  0.2990251337,  &
         0.5782173642,  0.6730943981, 0.4016409767,  0.5377021681,  &
         0.2203431138,  0.7294827854, 0.2634081913,  0.6830533289,  &
         0.1507662200,  0.3932377980, 0.3035876054,  0.5161995858,  &
         0.7766872747,  0.8472263753, 0.7457059674,  0.6250778233,  &
         0.2406039455,  0.3021516307, 0.0640950293,  0.1257853255,  &
         0.6886844694,  0.2342878191, 0.4070715601,  0.5739324418,  &
         0.2813128704,  0.5252564272, 0.5756639413,  0.6473225536,  &
         0.9230967091,  0.1142863357, 0.3645991772,  0.7832587786,  &
         0.0616769625,  0.5381163725, 0.4333205869,  0.3514053046,  &
         0.1945629011,  0.4291065544, 0.7345766614,  0.2450825086,  &
         0.0514360536,  0.2811080115, 0.7889450436,  0.2603297762,  &
         0.9531105379,  0.4507365039, 0.4548676890,  0.6095045082,  &
         0.8793840416,  0.5271190667, 0.2619988857,  0.3735548838,  &
         0.7910981937,  0.3762364837, 0.5128313909,  0.2761697413,  &
         0.6418296579,  0.5707688329, 0.0181916916,  0.0175540909,  &
         0.3082589027,  0.1875135287, 0.7963069515,  0.8353496148,  &
         0.3220305389,  0.6426212817, 0.5226318209,  0.8856623502,  &
         0.5808788396,  0.0290671884, 0.2800005947,  0.1311490857,  &
         0.6868424151,  0.3830744765, 0.6812332739,  0.5364997682,  &
         0.7383085007,  0.7852052813, 0.3378383095,  0.4460043372,  &
         0.9473528833,  0.3437589055, 0.6236060754,  0.4438664645,  &
         0.7091243247,  0.7200699587, 0.4338121954,  0.2146871525,  &
         0.1481794181,  0.1188114112, 0.3711737222,  0.5132845635,  &
         0.9977962050,  0.4747212416, 0.5987333885,  0.7165968083,  &
         0.4301771768,  0.0821919088, 0.3634573924,  0.5233086188,  &
         0.4305786506,  0.6647766731, 0.6359877938,  0.9371499284,  &
         0.5068721479,  0.8020724201, 0.0438351075,  0.0719039840,  &
         0.5659108236,  0.0677717256, 0.9499409701,  0.6468610499,  &
         0.3885238334,  0.6808520173, 0.7596664408,  0.1334318024,  &
         0.4190055963,  0.9925493974, 0.7049642694,  0.3682003501,  &
         0.4770560001,  0.9669523313, 0.7051730653,  0.7134967276,  &
         0.5372092688,  0.7536332417, 0.4508564571,  0.5053977231,  &
         0.6839077552,  0.6140763472, 0.9807120151,  0.2560226524,  &
         0.6940482298,  0.9676180723, 0.0510261380,  0.0945721650,  &
         0.6530659437,  0.2814350220, 0.0981958400,  0.1573881267,  &
         0.8006935460,  0.3697993951, 0.8875792755,  0.0251275318,  &
         0.9880248447,  0.3606268897, 0.6238417195,  0.4054132163,  &
         0.0617409851,  0.1944081146, 0.6403074173,  0.7188058449,  &
         0.3437062101,  0.7655935928, 0.3224509984,  0.7197655681,  &
         0.8803959865,  0.5079486874, 0.5723162981,  0.0218574781,  &
         0.0352832518,  0.5436696415, 0.9656667186,  0.0790515120,  &
         0.2955191462,  0.1412112941, 0.3002538688,  0.1333494086,  &
         0.3333695943,  0.7551332450, 0.1576307550,  0.4169120878,  &
         0.1386985919,  0.1913192251, 0.6878942293,  0.6056801366,  &
         0.5756262476,  0.6279610085, 0.6591186447,  0.1065293496,  &
         0.8502629488,  0.1420818118, 0.3212630844,  0.9929444680,  &
         0.3688443778,  0.6896108198, 0.8186136656,  0.5586060520,  &
         0.1632004033,  0.5956496202, 0.9727597630,  0.7335287914,  &
         0.9141771332,  0.9898929159, 0.0766607525,  0.6284058507,  &
         0.1567494708,  0.9142190530, 0.6708301773,  0.6418147044,  &
         0.5090280078,  0.1552405395, 0.4936804148,  0.6571952342,  &
         0.9247028822,  0.6716417436, 0.7931742273,  0.3607900647,  &
         0.0588656030,  0.1838927133, 0.2281256875,  0.8948639950,  &
         0.0450050937,  0.8003852715, 0.6357775557,  0.6680956365,  &
         0.9390468262,  0.1313005556, 0.1772633175,  0.0342236662,  &
         0.0143358921,  0.1564197909, 0.7876858673,  0.7831110293,  &
         0.4885341146,  0.3399099302, 0.1268402471,  0.0186406667,  &
         0.4364695341,  0.5212834902, 0.9788549568,  0.6328800287,  &
         0.4016548555,  0.2110994174, 0.2795084120,  0.0241611023,  &
         0.9158761203,  0.3229395396, 0.9796721530,  0.4839929960,  &
         0.8556214415,  0.7949998819, 0.0141687800,  0.0185986783,  &
         0.5912089125,  0.4266111905, 0.4563469507,  0.5061532910,  &
         0.7663325403,  0.0683413329, 0.1398556589,  0.5884829841,  &
         0.7495489457,  0.8411386109, 0.7236798370,  0.0243140275,  &
         0.4173664982,  0.1519709529, 0.1842024175,  0.9155725403,  &
         0.8384056467,  0.4499661662, 0.8625647597,  0.9125806200,  &
         0.4439262565,  0.8474362833, 0.9626859257,  0.5765501296,  &
         0.3293858135,  0.9894055253, 0.1461324009,  0.0323433887,  &
         0.1641154387,  0.2834018848, 0.4118270854,  0.1002336728,  &
         0.2446612140,  0.6986170388, 0.0373773771,  0.3135123107,  &
         0.4558537883,  0.0758623426, 0.0476811336,  0.4514839483,  &
         0.0358105080,  0.9083111719, 0.6752956594,  0.7753936544,  &
         0.5177091320,  0.9415145653, 0.2175396726,  0.8111996880,  &
         0.2704937718,  0.9854957315, 0.8284286159,  0.7997532451,  &
         0.8201054329,  0.1015326611, 0.5060894757,  0.3916157987,  &
         0.4515361617,  0.8897622856, 0.2301763438,  0.4833599910,  &
         0.2032638051,  0.9408772513, 0.4115017901,  0.2949125910,  &
         0.9887162612,  0.4481218959, 0.9754388240,  0.7182749981,  &
         0.3815523514,  0.4654749812, 0.1786044394,  0.4744762594,  &
         0.3965219271,  0.6714237429, 0.3422086542,  0.0267145015,  &
         0.9012144807,  0.8893630368, 0.3950451912,  0.1662344881,  &
         0.0167594570,  0.2725117396, 0.9002386734,  0.0696921944,  &
         0.0688751512,  0.0957295121, 0.8621232247,  0.3182527801,  &
         0.8818425675,  0.2197261956, 0.4911674557,  0.3123705599,  &
         0.5140477895,  0.0000007077, 0.7296329801,  0.5933598844,  &
         0.3638942354,  0.6891018843, 0.4053730778,  0.1250399334,  &
         0.9667626946,  0.2145160594, 0.1188887473,  0.8896319295,  &
         0.0178415543,  0.7057716265, 0.7424770274,  0.1499161334,  &
         0.9610000552,  0.0242300404, 0.0814754686,  0.9867010922,  &
         0.1199584510,  0.9978881064, 0.4547619167,  0.9361351362,  &
         0.8210392473,  0.7391981196, 0.2488640248,  0.2904562546,  &
         0.4598955368,  0.4183462793, 0.7777268047,  0.3007938944,  &
         0.0635249899,  0.6803726120, 0.0033753712,  0.9130316894,  &
         0.8390764729,  0.5174558923, 0.3212267031,  0.2349386746,  &
         0.8649636600,  0.3618125638, 0.7821675380,  0.2652563715,  &
         0.7056090795,  0.3515143769, 0.1946947122,  0.3779278934,  &
         0.9607082615,  0.0966297902, 0.6767713364,  0.1705966730,  &
         0.3924556493,  0.2536063093, 0.2214824715,  0.0793006899,  &
         0.2091277230,  0.0200343786, 0.2002649718,  0.3818192057,  &
         0.3660762819,  0.2616132660, 0.7367000069,  0.2635270671,  &
         0.9081017010,  0.1167954887, 0.2158756639,  0.2674537697,  &
         0.4366513410,  0.7901824220, 0.0965085841,  0.8629947417,  &
         0.9039372186,  0.1684101702, 0.7845380967,  0.5111292281,  &
         0.2844686796,  0.7928557254, 0.4014043613,  0.5616750358,  &
         0.1731555151,  0.9490700134, 0.6819303931,  0.7768212020,  &
         0.9699823325,  0.0767631593, 0.3134591427,  0.0052440629,  &
         0.6148138092,  0.2416406337, 0.0129076170,  0.7382779735,  &
         0.5263797465,  0.1400662738, 0.2646083165,  0.5773564761,  &
         0.3230938666,  0.7551198417, 0.6504480541,  0.3394219915,  &
         0.6703694762,  0.1511437705, 0.3007128836,  0.5677984961,  &
         0.4625779033,  0.1805474399, 0.0526362275,  0.3435656988,  &
         0.8864999401,  0.4514230592, 0.4026193189,  0.5348852846,  &
         0.8315167947,  0.1895745174, 0.8763951024,  0.7646016324,  &
         0.7334040786,  0.2823302658, 0.9072650364,  0.7175561381,  &
         0.0114786863,  0.3775405185, 0.4112435110,  0.4894439983,  &
         0.0242875585,  0.8228138668, 0.0119658285,  0.8664453078,  &
         0.7979505514,  0.4300974978, 0.0631856741,  0.3974431162,  &
         0.6060874282,  0.9199005664, 0.5891902523,  0.9463926070,  &
         0.0886134771,  0.1056991569, 0.2743151876,  0.8769553602,  &
         0.5230132149,  0.3232784937, 0.5025158316,  0.0210419609,  &
         0.3309184866,  0.7452576613, 0.0223106307,  0.6002036971,  &
         0.4932082032,  0.5774359310, 0.5220422880,  0.9289278517,  &
         0.6181983508,  0.1320459239, 0.4246066871,  0.1951612106,  &
         0.2384118788,  0.2530249583, 0.4788503108,  0.8897703301,  &
         0.8514649777,  0.6254425949, 0.5429568435,  0.1217836004,  &
         0.2712802101,  0.6998576235, 0.9983390425,  0.8407292316,  &
         0.6806532660,  0.2790883742, 0.7350662192,  0.0551908965,  &
         0.7457049865,  0.4007359169, 0.1914901400,  0.5794339252,  &
         0.7131952876,  0.0425710494, 0.8951304076,  0.4198841186,  &
         0.4315976752,  0.6585019674, 0.7042086815,  0.4359902208,  &
         0.8502196683,  0.0626444758, 0.8656458507,  0.6520385955,  &
         0.7886951507,  0.5939430154, 0.3748166310,  0.1249595530,  &
         0.0902000170,  0.6730304097, 0.8585595289,  0.7172764290,  &
         0.8348752724,  0.1295627734, 0.8228782460,  0.0329036982,  &
         0.0902457143,  0.8641297187, 0.2234352983,  0.6808493367,  &
         0.4766286717,  0.4213662498, 0.6579483991,  0.2584102218,  &
         0.6417065245,  0.2124925317, 0.4137357940,  0.5206556799,  &
         0.5497526586,  0.1478898669, 0.7400009911,  0.0017683814,  &
         0.5471946148,  0.4996159182, 0.2975432682,  0.4767283285,  &
         0.5436274174,  0.4721800610, 0.7107268642,  0.3450786161,  &
         0.5083241419,  0.1531422027, 0.0665859365,  0.1197032191,  &
         0.8355037332,  0.5193419488, 0.8656107922,  0.1377655685,  &
         0.3128710784,  0.6617365056, 0.3388465431,  0.1012225733,  &
         0.7183019256,  0.5078454124, 0.4738333510,  0.5715683429,  &
         0.0170936910,  0.1988115924, 0.3226034546,  0.4484465470,  &
         0.6003324908,  0.9335909481, 0.1762765545,  0.8878283445,  &
         0.4623920963,  0.4301578436, 0.9890849457,  0.5649094183,  &
         0.3501080897,  0.5704501890, 0.3863507847,  0.0525297309,  &
         0.8006837939,  0.3318523010, 0.8057074461,  0.8993241475,  &
         0.8798390259,  0.6205848911, 0.2391756939,  0.6122960613,  &
         0.4708160416,  0.3788427780, 0.1806931194,  0.2068883565,  &
         0.5120439040,  0.4729291986, 0.9130350150,  0.8496030415,  &
         0.2835222266,  0.4457294644, 0.8371420871,  0.1194112704,  &
         0.4566265172,  0.7772308921, 0.1184743487,  0.2324305384,  &
         0.9182792698,  0.1896583399, 0.0657457403,  0.6069679550,  &
         0.5381871937,  0.7581708658, 0.5308454255,  0.6369356090,  &
         0.3481968793,  0.6720977648, 0.8393648286,  0.2241936829,  &
         0.5378279714,  0.7190957982, 0.3738122436,  0.0311278894,  &
         0.4931698582,  0.3153146706, 0.9975345843,  0.6252362542,  &
         0.8842870512,  0.1549626125, 0.9442453311,  0.9511656863,  &
         0.8499957276,  0.5653674630, 0.3547476964,  0.5376266137,  &
         0.5083005814,  0.0926648209, 0.7423299129,  0.9538326736,  &
         0.8507656082,  0.3380973752, 0.6883104028,  0.1866095667,  &
         0.2345661451,  0.6935978316, 0.6936903488,  0.2278549164,  &
         0.1268668242,  0.9896148189, 0.1059719200,  0.7441748776,  &
         0.5610856925,  0.6515746621, 0.0979151136,  0.6139142839,  &
         0.0718477694,  0.6539960110, 0.2413301059,  0.6888510864,  &
         0.4631250558,  0.2952186305, 0.2138084925,  0.6086387454,  &
         0.2214129300,  0.0282561138, 0.8617781225,  0.9883771821,  &
         0.3839814812,  0.9463619739, 0.4670381298,  0.7942160716,  &
         0.9494199448,  0.7990765145, 0.0084502657,  0.1144511546,  &
         0.2373065909,  0.9529418631, 0.3625649841,  0.0070206089,  &
         0.6103212402,  0.4906078397, 0.9902352315,  0.5917971453,  &
         0.0265558104,  0.0793306404, 0.3531563554,  0.0921532844,  &
         0.5945881154,  0.2916468793, 0.3353454000,  0.9574353037,  &
         0.6403007065,  0.2368087307, 0.7121389171,  0.6316373224,  &
         0.9378827162,  0.4760504870, 0.6382341034,  0.2480726657,  &
         0.9210316890,  0.4116328801, 0.2415285747,  0.5349300897,  &
         0.9844078232,  0.0798339148, 0.3807241059,  0.5006085143,  &
         0.3616771359,  0.4253854516, 0.4755893843,  0.0750768379,  &
         0.4187864048,  0.7053591878, 0.5498145425,  0.8784284031,  &
         0.7086165216,  0.6183301284, 0.3903585648,  0.4027763208,  &
         0.6064805614,  0.9158982202, 0.9897666445,  0.9647249267,  &
         0.2953633673,  0.7716977213, 0.2114155210,  0.3142245563,  &
         0.7359432801,  0.9535298885, 0.9608219612,  0.2809302896,  &
         0.5305255504,  0.4326639711, 0.8029019119,  0.8442764952,  &
         0.4441211161,  0.4514512475, 0.9461865237,  0.2840123151,  &
         0.8797651392,  0.3845094417, 0.2403025689,  0.8021800290,  &
         0.5687784034,  0.2314068532, 0.0618685736,  0.6834679639,  &
         0.7729538571,  0.4482913914, 0.7889759330,  0.8130667037,  &
         0.5580270701,  0.3456788412, 0.2216633043,  0.1331286628,  &
         0.5250400659,  0.3903535478, 0.2284346652,  0.6392794161,  &
         0.0922176808,  0.0122056073, 0.8435559471,  0.3706760278,  &
         0.1698678937,  0.0050884836, 0.0885487159,  0.4569444597,  &
         0.3402770384,  0.5932443639, 0.3283788457,  0.4957770071,  &
         0.5232399977,  0.6655203806, 0.0681299829,  0.8443727403,  &
         0.1245374662,  0.6754199041, 0.8895956833,  0.1274969992,  &
         0.5510488588,  0.6657730421, 0.6148053250,  0.4891716695,  &
         0.3003545706,  0.3949600170, 0.5686456443,  0.1031365059,  &
         0.6103965950,  0.2092000331, 0.8475491860,  0.7871973924,  &
         0.6265505526,  0.9365758555, 0.5822322859,  0.3132011336,  &
         0.0771532095,  0.9114414462, 0.0266018904,  0.1563618935,  &
         0.4099791452,  0.3516616128, 0.0403185745,  0.4969425726,  &
         0.8133126284,  0.4205885811, 0.9876968420,  0.4080468717,  &
         0.2383837198,  0.4369079159, 0.8936106475,  0.2539090258,  &
         0.5722105327,  0.2211775940, 0.8712748241,  0.6083982984,  &
         0.2991345315,  0.2320893910, 0.9825942281,  0.6629749990,  &
         0.5103190689,  0.9710690841, 0.1822491146,  0.2345566821,  &
         0.0579004758,  0.8227326590, 0.5798235562,  0.7667933805,  &
         0.5421505649,  0.6160447683, 0.4995464996,  0.6228309284,  &
         0.4571039063,  0.4727785247, 0.1053248309,  0.1281876027,  &
         0.6848411147,  0.6554366966, 0.2047553832,  0.3769814030,  &
         0.4276297397,  0.6126015640, 0.5843828759,  0.3053072701,  &
         0.6470858201,  0.8002558723, 0.4480976810,  0.2759898679,  &
         0.0107365027,  0.7368605700, 0.6875762463,  0.4345280340,  &
         0.9091955816,  0.0135016693, 0.6027142774,  0.4582988635,  &
         0.7716998936,  0.5485908942, 0.8290524276,  0.8196838123,  &
         0.6739384703,  0.3365202411, 0.4154143059,  0.2116966572,  &
         0.6750312233,  0.6178882781, 0.1108168096,  0.3746453830,  &
         0.4439062386,  0.8719802714, 0.7738516687,  0.8616244615,  &
         0.0371993848,  0.4398585578, 0.5867202564,  0.4324557330,  &
         0.1572026348,  0.6696998050, 0.2451708557,  0.7534283174,  &
         0.4422677862,  0.4055934646, 0.1230868319,  0.4602943226,  &
         0.8869185439,  0.2036563610, 0.5287848232,  0.8793266795,  &
         0.7321397316,  0.3438609449, 0.1256806393,  0.0683413887,  &
         0.6842109331,  0.8342757745, 0.3282082001,  0.2438828481,  &
         0.8758553782,  0.7515893703, 0.4438258387,  0.4452430587,  &
         0.2673641469,  0.1031254314, 0.2234951130,  0.1433672971,  &
         0.1660626181,  0.6818553473, 0.2556636094,  0.3992326219,  &
         0.5539243482,  0.4433410257, 0.1214535926,  0.0943724697,  &
         0.2506071495,  0.3330341885, 0.5334314903,  0.8266788956,  &
         0.4363227538,  0.7928138107, 0.3168902075,  0.2951149592,  &
         0.5716478138,  0.3737921363/)
    start = start + step + 1
    random_array(start: start + step) = (/ 0.6261807685,  0.8339187287,  &
         0.5107895093,  0.7967620375, 0.1710095508,  0.1245200742,  &
         0.0662929149,  0.7133265370, 0.7842908802,  0.7603946781,  &
         0.3633990844,  0.2290225478, 0.4637060842,  0.1852864824,  &
         0.8674611478,  0.4171797622, 0.9807713416,  0.6890764644,  &
         0.0626594472,  0.7731346654, 0.0150975712,  0.7614268997,  &
         0.5572408088,  0.7046376895, 0.8330658945,  0.7148408582,  &
         0.4973033639,  0.4174259695, 0.2346856060,  0.8565916408,  &
         0.5319377585,  0.1328479429, 0.8280544107,  0.5029388078,  &
         0.2895223907,  0.0527912029, 0.7218248854,  0.9577979165,  &
         0.1841842868,  0.4484566039, 0.5317876311,  0.8702534540,  &
         0.0608034038,  0.2308548253, 0.5659195179,  0.5431267561,  &
         0.4471032204,  0.8456074758, 0.2899251847,  0.2555921586,  &
         0.2821813896,  0.8796934073, 0.8664010462,  0.1795329012,  &
         0.9902155058,  0.7822438568, 0.6084516920,  0.1997188369,  &
         0.2568604750,  0.2899400717, 0.2191576172,  0.5003066449,  &
         0.2623919234,  0.5454867710, 0.5047899397,  0.1505689950,  &
         0.2846083363,  0.6859182310, 0.7955168088,  0.1101078577,  &
         0.0324084933,  0.7905129460, 0.0268025102,  0.2276910742,  &
         0.3872159129,  0.5915385593, 0.6529369071,  0.1935529256,  &
         0.2086009787,  0.8245211832, 0.8259976840,  0.6896187922,  &
         0.3469789482,  0.4896071840, 0.0322685739,  0.7660792958,  &
         0.2865551920,  0.8048279364, 0.4321267548,  0.9407857788,  &
         0.3250163411,  0.9647703039, 0.6610265438,  0.6901101183,  &
         0.3831234004,  0.7763260906, 0.7858971214,  0.0689311175,  &
         0.5791736247,  0.9882189310, 0.8892918225,  0.7051861188,  &
         0.0804112232,  0.9291643863, 0.2077188274,  0.1881456372,  &
         0.1474309607,  0.2031641906, 0.5115520642,  0.9904140868,  &
         0.9831770071,  0.0115289220, 0.0014188401,  0.6838180135,  &
         0.5217796457,  0.3785445094, 0.5913877179,  0.8980793455,  &
         0.3734545128,  0.4001341349, 0.3814386648,  0.4713035943,  &
         0.3223670533,  0.5217188651, 0.9774925981,  0.0037755329,  &
         0.5852276701,  0.6701617730, 0.5310872817,  0.4525668767,  &
         0.3783719225,  0.8062415135, 0.0267270001,  0.7816264361,  &
         0.2574474798,  0.9424838466, 0.6201241184,  0.7354241219,  &
         0.3837640753,  0.7623627360, 0.1578813364,  0.2885830666,  &
         0.9327959433,  0.1483652008, 0.6910621652,  0.4458271217,  &
         0.3086283527,  0.4133078110, 0.0653303596,  0.3768679147,  &
         0.5750918573,  0.6869627485, 0.3494667743,  0.1967205919,  &
         0.6544098672,  0.9418888658, 0.8915495984,  0.8342687763,  &
         0.9955038851,  0.9065377683, 0.8062990526,  0.3565717376,  &
         0.0257889228,  0.8927284642, 0.3588552806,  0.1617567450,  &
         0.7182757959,  0.9964789479, 0.9338886078,  0.4881512704,  &
         0.3167755219,  0.0756326266, 0.4108614644,  0.0730633435,  &
         0.5505628491,  0.7959671959, 0.4844601081,  0.8848528618,  &
         0.4854442907,  0.3858214397, 0.9262974540,  0.9818389792,  &
         0.4602183255,  0.5236619278, 0.1281388445,  0.2497302059,  &
         0.0118024724,  0.9103100022, 0.8532012134,  0.9695040870,  &
         0.9896848772,  0.0425067590, 0.9936630172,  0.6976727040,  &
         0.7906292577,  0.0464851249, 0.5161263471,  0.9686983386,  &
         0.4401053305,  0.7250816260, 0.0069086662,  0.6142555117,  &
         0.0230357974,  0.6271980478, 0.6256349534,  0.6017230074,  &
         0.5522300793,  0.5172459905, 0.7134521097,  0.4719251983,  &
         0.2494377823,  0.6271870451, 0.2368126897,  0.5180387944,  &
         0.6196486286,  0.0547294705, 0.8863185972,  0.1668099680,  &
         0.2002370183,  0.2684491962, 0.1758778718,  0.2696298923,  &
         0.8255121023,  0.7520006980, 0.0340099068,  0.3003331742,  &
         0.3930423665,  0.7164854728, 0.0718766794,  0.9064310779,  &
         0.0001290750,  0.0744378894, 0.8481717437,  0.7561792587,  &
         0.6952482358,  0.7679533974, 0.4786546113,  0.8459230212,  &
         0.7828569210,  0.9848703338, 0.1798282914,  0.0078424184,  &
         0.4818052025,  0.6697756803, 0.6671050128,  0.8249774447,  &
         0.5543451717,  0.9589498108, 0.9771704085,  0.3244788031,  &
         0.3333614673,  0.2419518376, 0.7901472932,  0.8241995070,  &
         0.9594796289,  0.4194170523, 0.4879095509,  0.0310433000,  &
         0.8781345333,  0.8389449497, 0.0206424557,  0.7923946798,  &
         0.4634921017,  0.9567617672, 0.3482566280,  0.7227529585,  &
         0.6290069856,  0.1574710612, 0.3028971046,  0.3831228768,  &
         0.7314294201,  0.9415815302, 0.9372350223,  0.7610778327,  &
         0.6046368390,  0.5088269558, 0.7087631996,  0.1109964297,  &
         0.6642141788,  0.4305424293, 0.6749262894,  0.6023043653,  &
         0.8164480718,  0.4476515429, 0.9009743167,  0.9764108547,  &
         0.9935765742,  0.1892143130, 0.5433544351,  0.7803075147,  &
         0.3286320696,  0.4076726816, 0.0581929316,  0.1297234943,  &
         0.5661831348,  0.6932581786, 0.2081684867,  0.9089322029,  &
         0.1370698516,  0.9388454402, 0.6382994009,  0.0274883017,  &
         0.0969441831,  0.9563101320, 0.9702704523,  0.0390956184,  &
         0.2191490372,  0.3908363051, 0.7353292904,  0.7535459936,  &
         0.6521749765,  0.5495043709, 0.8259015484,  0.1704380836,  &
         0.1112544460,  0.8737198142, 0.5479970580,  0.9778857679,  &
         0.5022188594,  0.5024134231, 0.2691928074,  0.6206786586,  &
         0.3189510146,  0.2016102074, 0.0227711874,  0.5108133800,  &
         0.3401950493,  0.4483292500, 0.2073617826,  0.2079042008,  &
         0.2130081009,  0.4020865042, 0.8610383420,  0.9317012890,  &
         0.5016311983,  0.8923526298, 0.5624374699,  0.6909716061,  &
         0.9128184365,  0.0561843838, 0.1859381256,  0.1881469102,  &
         0.2593270611,  0.8856669103, 0.9892347334,  0.8056258001,  &
         0.4229474510,  0.5635324564, 0.1778489363,  0.8080529250,  &
         0.5490519791,  0.1775359016, 0.7220674796,  0.5760672174,  &
         0.6699186502,  0.4940195853, 0.8012081168,  0.3632654622,  &
         0.6137471223,  0.9504301981, 0.1482460563,  0.3772839511,  &
         0.5471131176,  0.2116138875, 0.5368781338,  0.2576602292,  &
         0.7102195285,  0.3209961412, 0.0521446371,  0.4256706537,  &
         0.1845998324,  0.2805643845, 0.7766032148,  0.6173759363,  &
         0.5823986703,  0.0364514616, 0.2647412880,  0.6254211985,  &
         0.2987652577,  0.9653603610, 0.8229272189,  0.8054883743,  &
         0.7989667902,  0.5138928529, 0.2972721499,  0.5620249246,  &
         0.6092049564,  0.1169047165, 0.7892669172,  0.9530648374,  &
         0.9803161706,  0.5056619104, 0.7988004958,  0.6210857666,  &
         0.5222058029,  0.2309292689, 0.6444879061,  0.6512490662,  &
         0.7218593371,  0.9538387113, 0.7374998043,  0.5620343832,  &
         0.6789714538,  0.1747422477, 0.2691392703,  0.3973975203,  &
         0.4965198130,  0.3267270680, 0.9461302820,  0.6306296045,  &
         0.8656674827,  0.3344445587, 0.3744418029,  0.6424412398,  &
         0.4788385359,  0.0692395174, 0.7601474124,  0.3651120860,  &
         0.4993969908,  0.7677268834, 0.5029157993,  0.4165285926,  &
         0.2084932578,  0.9838534651, 0.2871188728,  0.9344896408,  &
         0.5581471783,  0.6944823343, 0.2108475133,  0.0703709391,  &
         0.7429455480,  0.2504718713, 0.2093395160,  0.0453385261,  &
         0.2280989626,  0.0868868065, 0.5515849099,  0.9969233854,  &
         0.9302014047,  0.5210223083, 0.5982778599,  0.1922027054,  &
         0.0751492487,  0.7902459004, 0.9686826636,  0.9154705203,  &
         0.1601094578,  0.4282129904, 0.3444817853,  0.8240457004,  &
         0.0710075315,  0.5527424582, 0.5518420782,  0.2282921255,  &
         0.2426849988,  0.2629642522, 0.4909927818,  0.4424458592,  &
         0.2448330049,  0.8241485056, 0.7296651534,  0.5944644764,  &
         0.0211048397,  0.0191346329, 0.9949067874,  0.3490535559,  &
         0.5630975918,  0.6243130605, 0.5159528559,  0.8751916886,  &
         0.2596586902,  0.0068745217, 0.0758395121,  0.6320214731,  &
         0.9230986782,  0.2854784165, 0.1531171552,  0.2337051438,  &
         0.9550767616,  0.1652026909, 0.2284953060,  0.7808456263,  &
         0.7691887240,  0.9417067996, 0.5943461295,  0.3986548165,  &
         0.8721518774,  0.8988868808, 0.3622070574,  0.3211388408,  &
         0.6878357258,  0.5125839764, 0.2261943908,  0.3077517459,  &
         0.7425180832,  0.5894343391, 0.3067399687,  0.8479538809,  &
         0.2863697752,  0.2833331214, 0.9318201817,  0.8355581055,  &
         0.9948543182,  0.6203965284, 0.1599053894,  0.4450926814,  &
         0.9634977018,  0.5712527465, 0.9552282850,  0.0120022087,  &
         0.9792862326,  0.0635446695, 0.9477516612,  0.5187109388,  &
         0.8126083305,  0.8528950333, 0.9971465177,  0.1073777362,  &
         0.3027083952,  0.2057135881, 0.1533631698,  0.0323819547,  &
         0.5592867105,  0.7511644971, 0.3907013130,  0.8777884774,  &
         0.5619248755,  0.3134744454, 0.4361290128,  0.4297238418,  &
         0.1693135382,  0.7719780570, 0.0293048430,  0.3933238480,  &
         0.7284712963,  0.2834138297, 0.6255938872,  0.9665519816,  &
         0.1310691881,  0.7254933627, 0.5912728412,  0.7871861072,  &
         0.5616070525,  0.8573002325, 0.8798303402,  0.8699248391,  &
         0.4892833509,  0.0584399795, 0.2931453287,  0.2934069573,  &
         0.0856756493,  0.5237731288, 0.3788851569,  0.2146274589,  &
         0.3211784759,  0.5976958134, 0.8734191926,  0.4637410217,  &
         0.3957131277,  0.2586038630, 0.9870084202,  0.6671985303,  &
         0.7488891690,  0.4274170552, 0.6762626378,  0.8613311565,  &
         0.5874023163,  0.2496495479, 0.1091088548,  0.3538207279,  &
         0.9547764611,  0.3081549889, 0.5918241080,  0.8828145196,  &
         0.4743923735,  0.6955521453, 0.5491474754,  0.0818461664,  &
         0.0432210582,  0.5489057731, 0.4123155204,  0.8046178064,  &
         0.0492514252,  0.8898542342, 0.8417832436,  0.6358878360,  &
         0.0049960110,  0.8060974376, 0.9494553222,  0.9460297835,  &
         0.0664930723,  0.3970528961, 0.0468754794,  0.0769501138,  &
         0.1189740369,  0.0098528810, 0.4218373453,  0.2621283012,  &
         0.8711419333,  0.4938550555, 0.7594927996,  0.5460054251,  &
         0.0945923673,  0.1690403353, 0.8372261049,  0.9572978287,  &
         0.3698226084,  0.6094067153, 0.5901808510,  0.3738531139,  &
         0.8346524788,  0.0897315342, 0.9492987500,  0.9992718528,  &
         0.8346094066,  0.8128938366, 0.4400530895,  0.4627490169,  &
         0.5013552680,  0.8577428553, 0.4894763351,  0.6390124348,  &
         0.1973116732,  0.1337603767, 0.4441727318,  0.1897299293,  &
         0.5336785147,  0.7040583401, 0.2842665868,  0.7513703162,  &
         0.6518352262,  0.7244221945, 0.0768510103,  0.7450284062,  &
         0.2673198377,  0.4933450587, 0.5425469690,  0.6890308506,  &
         0.6726590730,  0.3359870945, 0.8049076497,  0.4503283998,  &
         0.4299604354,  0.4682321405, 0.0966310997,  0.3344310294,  &
         0.0075009952,  0.2674731171, 0.2133074235,  0.8238426463,  &
         0.6283786110,  0.5755638626, 0.3644463736,  0.0860320257,  &
         0.3861827798,  0.3192072678, 0.1578647085,  0.7711907435,  &
         0.6031430998,  0.4952398802, 0.8924222703,  0.2853299460,  &
         0.0979466711,  0.6903187283, 0.9101529289,  0.4148263836,  &
         0.4576841687,  0.9934503256, 0.0770352715,  0.6902284404,  &
         0.6743072691,  0.8646591121, 0.6658465734,  0.8557195745,  &
         0.3143660783,  0.3806008804, 0.1770644937,  0.8238005636,  &
         0.3031171689,  0.6874993099, 0.3193365935,  0.2485636486,  &
         0.2616317157,  0.3194574962, 0.4128150362,  0.3852052800,  &
         0.2205757560,  0.1798737971, 0.9063613568,  0.2970083617,  &
         0.3044153970,  0.7359119728, 0.0866245504,  0.0358990109,  &
         0.3537666694,  0.4782522767, 0.7386402946,  0.5746953715,  &
         0.9945661525,  0.2980470195, 0.7847725738,  0.8613929872,  &
         0.6677599170,  0.8663912930, 0.7422980927,  0.0140907873,  &
         0.3621357569,  0.1536644933, 0.2957175884,  0.4236815298,  &
         0.9768130846,  0.9119450924, 0.0487951317,  0.6559942486,  &
         0.9632449501,  0.9993836879, 0.4132617191,  0.5962559646,  &
         0.9165786793,  0.9243587747, 0.5819440472,  0.1990382450,  &
         0.2995967070,  0.1458155815, 0.4163535761,  0.6512839769,  &
         0.0807103421,  0.6157253341, 0.5296683717,  0.8446512489,  &
         0.9305875697,  0.6752535056, 0.3044472817,  0.8071078978,  &
         0.0111080207,  0.9206393490, 0.8051948464,  0.8581565009,  &
         0.1421528170,  0.4092081936, 0.5932276210,  0.0880325161,  &
         0.6933552407,  0.5772543686, 0.4899177047,  0.5404645407,  &
         0.3226967160,  0.9356859783, 0.1355574832,  0.5469832639,  &
         0.1877168451,  0.1115761425, 0.6356525376,  0.7145870532,  &
         0.7396114021,  0.0594860244, 0.2548049064,  0.7749690076,  &
         0.4257534470,  0.2569290833, 0.2495681675,  0.9042240621,  &
         0.2010729632,  0.2192612295, 0.4947958641,  0.7518422586,  &
         0.3556886606,  0.9410460517, 0.7864557448,  0.1860415753,  &
         0.9668513726,  0.5211438630, 0.5962099129,  0.2697500717,  &
         0.5428721106,  0.7145470441, 0.2243782367,  0.5439307261,  &
         0.5987608813,  0.0346032285, 0.2715476297,  0.2991561296,  &
         0.5940875918,  0.7512902867, 0.6803664451,  0.8674931621,  &
         0.5018349993,  0.0880255241, 0.2343027023,  0.2665557393,  &
         0.0638091277,  0.0585132734, 0.1589578692,  0.1851533867,  &
         0.1004198835,  0.2786819831, 0.8014401500,  0.2096254314,  &
         0.4759812045,  0.5210995657, 0.2553653824,  0.5211494556,  &
         0.6892165594,  0.9021373969, 0.3610745958,  0.1867689251,  &
         0.2875256202,  0.2689747129, 0.9741533369,  0.2663473015,  &
         0.0069435663,  0.4536438821, 0.0060996834,  0.4737541041,  &
         0.5780250521,  0.6786925900, 0.9808425984,  0.6868923439,  &
         0.1940874258,  0.1273962356, 0.9477434550,  0.3572909543,  &
         0.8229867056,  0.3238535987, 0.6396605813,  0.9982295046,  &
         0.4331585824,  0.7505739963, 0.9924412414,  0.5258688771,  &
         0.0892497497,  0.4518094008, 0.7690720063,  0.9397794411,  &
         0.3848702151,  0.7005686554, 0.9578939587,  0.8149773031,  &
         0.2850601552,  0.0166718533, 0.9024416521,  0.1325015011,  &
         0.0578719294,  0.0609081139, 0.2750382026,  0.3039948921,  &
         0.5671863223,  0.2246818925, 0.1307201242,  0.0862554543,  &
         0.7044630961,  0.3551313061, 0.4988317771,  0.7097030886,  &
         0.0759911709,  0.1951369840, 0.3823622710,  0.9614642525,  &
         0.3505172865,  0.8482103198, 0.1294370275,  0.1721917387,  &
         0.1982597105,  0.7456931986, 0.5155212366,  0.0749793958,  &
         0.8077515057,  0.0333354453, 0.8690729818,  0.9082839650,  &
         0.6098380451,  0.1032635588, 0.1194509762,  0.8642058202,  &
         0.7038665378,  0.6491321791, 0.5155385018,  0.1086583762,  &
         0.3970393874,  0.0246410445, 0.7136875602,  0.7755569284,  &
         0.6571992014,  0.9553710057, 0.6231537056,  0.3547687783,  &
         0.9601978448,  0.3414136740, 0.7521875455,  0.9795372575,  &
         0.9649989773,  0.8973895385, 0.2709372588,  0.6060297634,  &
         0.3974660062,  0.4353338705, 0.5872109508,  0.2154353860,  &
         0.9809018649,  0.1994894277, 0.4026671453,  0.1921225036,  &
         0.0647382810,  0.2173823697, 0.1074350804,  0.1832058449,  &
         0.0414017539,  0.6494379514, 0.1428012835,  0.1881213588,  &
         0.8778132847,  0.5910560798, 0.1333453386,  0.2816342729,  &
         0.2097909473,  0.4535334936, 0.2386243035,  0.0787920916,  &
         0.2891664316,  0.8002392085, 0.3492612482,  0.9082567555,  &
         0.5088321248,  0.7379596152, 0.7259372067,  0.0896654051,  &
         0.9750163047,  0.6275416536, 0.9995963489,  0.2349110360,  &
         0.7669079720,  0.3701094398, 0.7603039192,  0.7857485130,  &
         0.7289858825,  0.7905679683, 0.0600195523,  0.8369805838,  &
         0.8325505481,  0.3746947284, 0.1878460764,  0.5228176348,  &
         0.2290501660,  0.3504852698, 0.5400236973,  0.6021739369,  &
         0.7524067360,  0.5828871300, 0.9293115147,  0.3773327193,  &
         0.0476049722,  0.2458910082, 0.9144632060,  0.6712951462,  &
         0.3103684539,  0.6722523792, 0.3813414604,  0.9933492384,  &
         0.0281968785,  0.1207158892, 0.8862961130,  0.8283888010,  &
         0.9949761789,  0.9850171567, 0.2623508849,  0.1155960398,  &
         0.5217155114,  0.2747690815, 0.4114631072,  0.4307684887,  &
         0.1837170494,  0.7856607438, 0.5561248286,  0.6575648717,  &
         0.1534307925,  0.1080905467, 0.9837665761,  0.1246289559,  &
         0.1025295585,  0.6759851466, 0.2553900785,  0.1277876353,  &
         0.6791109524,  0.6630623331, 0.6318115916,  0.6980068744,  &
         0.3641986742,  0.5983848708, 0.1904892485,  0.3170863315,  &
         0.6564927964,  0.8717375009, 0.1503018854,  0.6630491602,  &
         0.3792843277,  0.8443734427, 0.7862119805,  0.6455855965,  &
         0.2804415199,  0.5154681544, 0.4185276837,  0.4792947777,  &
         0.2492087205,  0.9902534406, 0.5810751818,  0.7889353824,  &
         0.4727227374,  0.4945678434, 0.2290353557,  0.1660473068,  &
         0.3478005465,  0.4242406929, 0.0654600671,  0.6280810962,  &
         0.0101564901,  0.7136148547, 0.3754055235,  0.2662121805,  &
         0.2088759973,  0.6591679095/)
    start = start + step + 1
    random_array(start: start + step) = (/ 0.8464762828,  0.9250052013,  &
         0.3745531261,  0.4278785885, 0.2190712618,  0.4439678251,  &
         0.8925409211,  0.6270073103, 0.1485974395,  0.5083532762,  &
         0.3503219052,  0.8232008480, 0.3922595147,  0.2198664471,  &
         0.4295126515,  0.9766607472, 0.2377768574,  0.9130231444,  &
         0.6196629936,  0.6234710260, 0.7113458972,  0.9423116854,  &
         0.1798358849,  0.0719338733, 0.8250413894,  0.1267149493,  &
         0.4744883371,  0.9595653634, 0.6241432144,  0.3364568890,  &
         0.5255542347,  0.5663457183, 0.6783555811,  0.1561357801,  &
         0.1337625159,  0.6396076806, 0.9383514866,  0.8375397185,  &
         0.6033676581,  0.9885502233, 0.4014557755,  0.5795835038,  &
         0.8285500105,  0.2735915794, 0.2253671610,  0.9322360193,  &
         0.8466774596,  0.0932013542, 0.5068590076,  0.8218975280,  &
         0.7977980693,  0.0946230994, 0.2482467017,  0.1122321515,  &
         0.4213612232,  0.5257637799, 0.8913034216,  0.7266179452,  &
         0.7744598221,  0.1901224192, 0.9564824311,  0.6749718915,  &
         0.5147266356,  0.8629942709, 0.1076082012,  0.9528880873,  &
         0.7914051559,  0.6600636444, 0.3809956807,  0.7173987142,  &
         0.7872309452,  0.7140245511, 0.2263979296,  0.8642513026,  &
         0.1529955837,  0.3359657349, 0.5739871590,  0.8306778552,  &
         0.1169180801,  0.9981728998, 0.2118655078,  0.3659351060,  &
         0.0626529246,  0.4223879564, 0.5517852815,  0.6422401686,  &
         0.0138312123,  0.6779118572, 0.7628153708,  0.0212040601,  &
         0.9307495165,  0.8650819490, 0.1109614413,  0.8926729155,  &
         0.6508161610,  0.7833649133, 0.0830300916,  0.1692328796,  &
         0.2556417077,  0.4449034017, 0.3838368063,  0.4538524979,  &
         0.2041247362,  0.0972166936, 0.3314407120,  0.9061820599,  &
         0.4067102514,  0.8314315751, 0.1777708385,  0.4351114989,  &
         0.2231755739,  0.4969021700, 0.3818423208,  0.9694500013,  &
         0.6951521350,  0.0139280889, 0.9543612956,  0.4713236382,  &
         0.3506763349,  0.0438369133, 0.0023996839,  0.3825636567,  &
         0.0848086865,  0.1464422147, 0.5516448099,  0.0289394439,  &
         0.7363162126,  0.9591055462, 0.3490119152,  0.2095076051,  &
         0.8052981746,  0.5849937238, 0.3608508228,  0.1230340504,  &
         0.4113177351,  0.5813123266, 0.2553485220,  0.6714952729,  &
         0.8198786584,  0.3338533193, 0.3494956456,  0.5036038066,  &
         0.0325683818,  0.7727016292, 0.5379319180,  0.9457381091,  &
         0.6366105257,  0.2479921374, 0.7919037106,  0.9581378392,  &
         0.4216090202,  0.8770108199, 0.7431615754,  0.3612942094,  &
         0.0483324322,  0.8576330478, 0.5275173871,  0.1384579263,  &
         0.9557437071,  0.5355993569, 0.7290334266,  0.7267860976,  &
         0.6432391717,  0.5727917842, 0.5356113960,  0.6130555765,  &
         0.5137514058,  0.0700176984, 0.6154260493,  0.9364073958,  &
         0.4441423597,  0.4058791003, 0.5268224216,  0.2596628768,  &
         0.2865085298,  0.0578876672, 0.0925099005,  0.8249159051,  &
         0.7349837448,  0.0336459779, 0.8745157300,  0.8797735525,  &
         0.8618902442,  0.5330072236, 0.3627256238,  0.2283044851,  &
         0.0597147902,  0.6710527213, 0.0655191106,  0.0288639630,  &
         0.6672104352,  0.2968614834, 0.7480469458,  0.4759310321,  &
         0.7180372364,  0.4643778141, 0.6344861241,  0.9750973924,  &
         0.4014858757,  0.2991252835, 0.5427760815,  0.4540211854,  &
         0.1352875267,  0.3292011068, 0.3674410960,  0.1525029569,  &
         0.7882451570,  0.2308590685, 0.4864622024,  0.8501238130,  &
         0.9387185151,  0.1640398885, 0.4277642943,  0.8215539124,  &
         0.0894001491,  0.0584925275, 0.6257577195,  0.8182442467,  &
         0.5538311608,  0.0695420142, 0.4780491834,  0.1806223101,  &
         0.0958354806,  0.9360537056, 0.8138047382,  0.8305662942,  &
         0.3060440208,  0.2489940988, 0.8850039500,  0.8233318674,  &
         0.0784159850,  0.0876416257, 0.5240942259,  0.0621304179,  &
         0.6798792890,  0.2887645637, 0.6006558739,  0.6322847103,  &
         0.2703253138,  0.2106985206, 0.9815530122,  0.0646125031,  &
         0.9888869073,  0.8758941574, 0.6559425738,  0.3723477745,  &
         0.0308009424,  0.6799072038, 0.2415395933,  0.1935741961,  &
         0.6344742201,  0.6909894478, 0.4273525918,  0.0847456301,  &
         0.2631417133,  0.4382754807, 0.0605064447,  0.3202891500,  &
         0.1654019070,  0.9230929913, 0.8583231044,  0.6846929932,  &
         0.0550598099,  0.7187872466, 0.4958584166,  0.1300659130,  &
         0.2471500620,  0.4781020491, 0.5278517052,  0.3073334618,  &
         0.1730152174,  0.3020305185, 0.9953899463,  0.5530543643,  &
         0.6797022960,  0.1402938204, 0.9059752792,  0.0768794745,  &
         0.8375353360,  0.8097141235, 0.5967909319,  0.0597484985,  &
         0.6034527006,  0.0663517232, 0.8539615373,  0.1965249977,  &
         0.0276738519,  0.7073481927, 0.8363047264,  0.3283545545,  &
         0.4095055948,  0.2775617297, 0.1366366612,  0.9333816781,  &
         0.3980761962,  0.7405998601, 0.3898654531,  0.9302789394,  &
         0.3620321356,  0.5798905912, 0.8758892226,  0.1864653778,  &
         0.9213880951,  0.2302298144, 0.3679046090,  0.8164468815,  &
         0.9727375431,  0.0530798792, 0.7914157621,  0.9609471132,  &
         0.5661673142,  0.7725588236, 0.4188193299,  0.0499407787,  &
         0.9509816660,  0.1542632635, 0.2846754276,  0.7277619265,  &
         0.1987971112,  0.4616266614, 0.7086648698,  0.1375357569,  &
         0.8722901437,  0.0385831258, 0.0597261037,  0.5285537962,  &
         0.0704950516,  0.9082527575, 0.8023558615,  0.5633179147,  &
         0.0445516778,  0.8832067311, 0.4845912231,  0.7923782504,  &
         0.3219326976,  0.7298990338, 0.8037323089,  0.9900093800,  &
         0.7258725209,  0.5416285499, 0.6561263300,  0.2280357669,  &
         0.6651927293,  0.6087053223, 0.1877343795,  0.7490628099,  &
         0.4417273508,  0.6963998730, 0.8693471117,  0.6348846495,  &
         0.0722341133,  0.0564293026, 0.3059651690,  0.1674385804,  &
         0.4626436321,  0.1238472706, 0.4833892740,  0.4332162498,  &
         0.1706622388,  0.8292589732, 0.0418464229,  0.6432928927,  &
         0.0013448407,  0.0717544659, 0.3269871548,  0.2507947243,  &
         0.0709565666,  0.8177461519, 0.3516175220,  0.6823282602,  &
         0.4903629220,  0.8506284726, 0.6920556598,  0.4789432719,  &
         0.3360511655,  0.8050549947, 0.6529514955,  0.3551709758,  &
         0.2642458840,  0.9265292158, 0.2003075747,  0.6822288763,  &
         0.8262519159,  0.9438907784, 0.1517670653,  0.9379107445,  &
         0.9469288938,  0.8544761533, 0.5991766448,  0.6598245580,  &
         0.4704329833,  0.4839902450, 0.3777687265,  0.3311797735,  &
         0.4506297045,  0.1587078438, 0.1961085411,  0.3420860766,  &
         0.9678704689,  0.5354253856, 0.4323768251,  0.5504417862,  &
         0.6487548583,  0.9788586158, 0.3856578749,  0.4677711114,  &
         0.2670164679,  0.7980775174, 0.0149988253,  0.3939936612,  &
         0.3439068869,  0.2296003943, 0.4113656153,  0.8393936438,  &
         0.0434189234,  0.9708949889, 0.2862783081,  0.6959989480,  &
         0.8519051828,  0.1038486456, 0.3960581350,  0.0166591842,  &
         0.2936985817,  0.4685791909, 0.5323687960,  0.2608561028,  &
         0.9064683103,  0.8840301087, 0.9477875466,  0.5915958676,  &
         0.4038985050,  0.3440352849, 0.0764466873,  0.1440529551,  &
         0.5394177337,  0.9705129351, 0.6733726470,  0.0686856925,  &
         0.5092905391,  0.2018217415, 0.2318990022,  0.5150281090,  &
         0.5572772295,  0.5111182417, 0.0070727537,  0.4742232139,  &
         0.5225099145,  0.2888472027, 0.3267233018,  0.4588207047,  &
         0.3259427496,  0.0820821913, 0.6929168723,  0.3636509482,  &
         0.5942331077,  0.3485347755, 0.5996006481,  0.3346027839,  &
         0.3046075036,  0.8507344418, 0.0144455723,  0.9618702830,  &
         0.5292628789,  0.8933081328, 0.2478967356,  0.9813234709,  &
         0.7100531462,  0.9445321806, 0.9334192682,  0.5232927150,  &
         0.3946353791,  0.2657662149, 0.0421349582,  0.0938533204,  &
         0.1160243167,  0.7685473571, 0.9606080269,  0.4906419723,  &
         0.3498326097,  0.7586729836, 0.2453492384,  0.9237205767,  &
         0.2722185657,  0.7165400251, 0.2615502356,  0.9947377997,  &
         0.3401271862,  0.6533355035, 0.3488888171,  0.8152653182,  &
         0.0933331567,  0.6192375884, 0.9233003739,  0.4499083593,  &
         0.6172567999,  0.5469534038, 0.1587854362,  0.0031256093,  &
         0.5891954082,  0.9521186936, 0.3000354175,  0.2110092813,  &
         0.8220771998,  0.0839379011, 0.1592122155,  0.6459304716,  &
         0.9942285096,  0.4116277052, 0.8622935047,  0.3003586583,  &
         0.3650312518,  0.7639567853, 0.9269958678,  0.2184918420,  &
         0.2684503753,  0.0287031714, 0.6012021720,  0.9788147976,  &
         0.2042095433,  0.5187730400, 0.5291892741,  0.8946583082,  &
         0.0003180523,  0.6942570717, 0.4003172743,  0.7218784025,  &
         0.2138459966,  0.1836930704, 0.9016003388,  0.5520685460,  &
         0.1535608026,  0.9351124602, 0.4965789312,  0.4252250761,  &
         0.9942019202,  0.4948391260, 0.4213334827,  0.3493700048,  &
         0.9245162623,  0.0655138226, 0.9700262523,  0.5809700697,  &
         0.0530294477,  0.1258333325, 0.3608488012,  0.5385916949,  &
         0.7229726481,  0.1765062731, 0.1443401623,  0.8197980114,  &
         0.2343519391,  0.5707289268, 0.0824893285,  0.1528605314,  &
         0.0433244053,  0.9719438935, 0.9340036507,  0.9243653866,  &
         0.6254750829,  0.4024664355, 0.4688461033,  0.8878870074,  &
         0.3434652643,  0.9455223279, 0.4433488445,  0.7923373238,  &
         0.1625594025,  0.6512029178, 0.1454243378,  0.5281290813,  &
         0.4266991841,  0.2911390136, 0.9652701205,  0.0182130203,  &
         0.4718848823,  0.6055136952, 0.8908071217,  0.5851390311,  &
         0.3978481692,  0.3233645913, 0.5485068336,  0.8113956068,  &
         0.0345113346,  0.1388536591, 0.5411316092,  0.5683734308,  &
         0.2229938860,  0.0778680367, 0.4637023356,  0.4095953343,  &
         0.2453462680,  0.9214598819, 0.9893888145,  0.1614149899,  &
         0.8428901877,  0.1445432385, 0.7663191578,  0.0555098421,  &
         0.7349137840,  0.2446621731, 0.2138582959,  0.1647959359,  &
         0.2570372056,  0.4353906236, 0.6687078972,  0.0575766354,  &
         0.9298547549,  0.7515594550, 0.1398198062,  0.1546951490,  &
         0.7448383936,  0.9728805668, 0.5910384947,  0.9303101235,  &
         0.9231143573,  0.6385516924, 0.4427253897,  0.3607950206,  &
         0.0147467988,  0.8787233904, 0.8674628691,  0.9172629665,  &
         0.6523736536,  0.3899049642, 0.8130026087,  0.4144347500,  &
         0.3634405060,  0.4040804501, 0.4403688022,  0.3481460072,  &
         0.0893653253,  0.6925709712, 0.2634311969,  0.3245243263,  &
         0.6663324554,  0.6138668529, 0.4351850883,  0.1552650822,  &
         0.9816545980,  0.0855354345, 0.9108708881,  0.9038379704,  &
         0.5122895319,  0.2832728155, 0.5776623210,  0.3390188195,  &
         0.2527038726,  0.9638227245, 0.3081182602,  0.5674843713,  &
         0.1841296416,  0.2224705102, 0.6849127395,  0.4513546328,  &
         0.6113025126,  0.0255719736, 0.1918598285,  0.4376617706,  &
         0.4889150072,  0.5918210780, 0.5039565254,  0.5802682097,  &
         0.3369890611,  0.0719460451, 0.4309948342,  0.9413014668,  &
         0.1203414676,  0.7388663989, 0.0907852951,  0.9345138926,  &
         0.5814601474,  0.5693728613, 0.5435273191,  0.0937520329,  &
         0.7803974276,  0.4068585304, 0.2284069988,  0.3450100129,  &
         0.5759416727,  0.6760255408, 0.2020164599,  0.4501517770,  &
         0.8756994449,  0.2644408115, 0.3780254444,  0.8125553753,  &
         0.7997086975,  0.7545231268, 0.1596286818,  0.9961735261,  &
         0.9874672230,  0.4872824164, 0.6914234929,  0.9614389042,  &
         0.3584594404,  0.9290507178, 0.6005980391,  0.0828215709,  &
         0.6143807097,  0.2162499119, 0.1224602235,  0.0496977619,  &
         0.0701778596,  0.5059661470, 0.3306521947,  0.0615202570,  &
         0.7906479413,  0.9802368601, 0.2530597976,  0.8000990545,  &
         0.6896673826,  0.2548341619, 0.9263447463,  0.7116362085,  &
         0.5445573236,  0.0054231108, 0.3914533428,  0.6422042990,  &
         0.4779759641,  0.7800457340, 0.9210942662,  0.0135423693,  &
         0.7183721970,  0.5115127030, 0.6825666873,  0.8691116806,  &
         0.0297751768,  0.8893804279, 0.6334192327,  0.6508947969,  &
         0.9248015172,  0.8706056481, 0.0379729847,  0.0933471950,  &
         0.4813382119,  0.7760149210, 0.5261827499,  0.2474870674,  &
         0.9461387945,  0.4714416999, 0.5474849905,  0.6076232948,  &
         0.6911684639,  0.1113479997, 0.7017561739,  0.1935424645,  &
         0.4837469332,  0.9875511751, 0.2245545463,  0.5847011685,  &
         0.2704823250,  0.6039582120, 0.4007197547,  0.0292711153,  &
         0.0736542569,  0.1740071665, 0.6549684280,  0.5004162825,  &
         0.3274127110,  0.4629922566, 0.9278094261,  0.7536289177,  &
         0.3622628152,  0.0943463097, 0.1036400022,  0.9204013257,  &
         0.1653990539,  0.0005154704, 0.0695538271,  0.2620739186,  &
         0.9288677102,  0.1256623352, 0.1958548744,  0.4514225418,  &
         0.2449581585,  0.7519648857, 0.1110162503,  0.7269006580,  &
         0.6207215211,  0.9866433462, 0.8582342574,  0.8235347101,  &
         0.8307051713,  0.5897129249, 0.2016478917,  0.8792583302,  &
         0.5867170186,  0.8065443717, 0.9386179807,  0.3957391580,  &
         0.1574439442,  0.2539416032, 0.4321601922,  0.2329158999,  &
         0.8086195773,  0.4843159524, 0.6715774659,  0.2058334365,  &
         0.3853322874,  0.2028657418, 0.6552479689,  0.2900559445,  &
         0.2063837403,  0.8201346532, 0.6465094633,  0.7406554478,  &
         0.5501923091,  0.2676187732, 0.4569516917,  0.4814276279,  &
         0.6833443297,  0.1404601720, 0.1158468413,  0.0650894805,  &
         0.4626587659,  0.6593672457, 0.7864492788,  0.1957600511,  &
         0.1214909673,  0.8161035117, 0.4104038755,  0.3247368822,  &
         0.6280818010,  0.2031318181, 0.1492857135,  0.8211318318,  &
         0.2572223741,  0.7411241506, 0.1486042212,  0.0205971582,  &
         0.6178780096,  0.2644336475, 0.3116980993,  0.0812898954,  &
         0.6080797939,  0.4647976230, 0.4763082278,  0.5970963366,  &
         0.2432933189,  0.7737737374, 0.7822077868,  0.4828712048,  &
         0.7640959159,  0.3621850537, 0.3064433444,  0.3350485900,  &
         0.0485448045,  0.2408325401, 0.5834444313,  0.5230718560,  &
         0.8291417508,  0.5588983990, 0.8205087309,  0.5943919146,  &
         0.1885745845,  0.8187576101, 0.4037309229,  0.5055460777,  &
         0.5849896212,  0.3374159998, 0.2739283361,  0.0859963658,  &
         0.7540351368,  0.7020387927, 0.9648018785,  0.0391832413,  &
         0.1570953564,  0.4757810160, 0.0045939245,  0.6790915157,  &
         0.5497629419,  0.0426060287, 0.2430152741,  0.9682119785,  &
         0.0668103057,  0.9916907787, 0.8778915607,  0.0229433512,  &
         0.2147530501,  0.1773813178, 0.3371729589,  0.2611253678,  &
         0.9189651309,  0.1130731726, 0.8531170872,  0.7069297207,  &
         0.6927110894,  0.1733933107, 0.1123776837,  0.0391713978,  &
         0.4205619402,  0.0643639845, 0.5977964875,  0.5805776738,  &
         0.3538955829,  0.6227541170, 0.4076538304,  0.4239532138,  &
         0.8771746900,  0.9325298177, 0.1861022625,  0.0202474179,  &
         0.1186763262,  0.3967468271, 0.5602857207,  0.1834864156,  &
         0.4122601044,  0.3028008789, 0.5299998446,  0.6475259260,  &
         0.3065279297,  0.2998118673, 0.3915477511,  0.5474374107,  &
         0.8007862217,  0.3835782156, 0.8948622612,  0.3110781285,  &
         0.3944518204,  0.4415046625, 0.9013987369,  0.2811193554,  &
         0.9574703945,  0.2224327240, 0.4113726682,  0.5667490535,  &
         0.5958672135,  0.5091850658, 0.3085551632,  0.5745785595,  &
         0.6567266507,  0.2821516720, 0.5956618066,  0.2085442409,  &
         0.2203241721,  0.3461117817, 0.8471779086,  0.4579467400,  &
         0.2863816429,  0.8097868803, 0.3068576908,  0.2200009845,  &
         0.7760424384,  0.4364099562, 0.6137637180,  0.2019991290,  &
         0.3663469534,  0.5082230111, 0.7186003706,  0.0161719692,  &
         0.1290860577,  0.3289735942, 0.5057335877,  0.5291534708,  &
         0.9870376637,  0.5696649889, 0.8193807162,  0.9630442939,  &
         0.9698398401,  0.7352374274, 0.5620223425,  0.5166571412,  &
         0.0132118957,  0.9990802305, 0.1531140208,  0.7700705820,  &
         0.1343074236,  0.3530401560, 0.8772720542,  0.9147052369,  &
         0.0312554032,  0.1822270309, 0.6058689759,  0.9147735759,  &
         0.8729725892,  0.0545684307, 0.4344222855,  0.3103844453,  &
         0.2775120047,  0.8802666636, 0.3621714701,  0.9420998603,  &
         0.1773576169,  0.0782814376, 0.3519090091,  0.3106342665,  &
         0.4512528882,  0.5284374520, 0.4419271633,  0.0059171045,  &
         0.1092837013,  0.9860967684, 0.8650487744,  0.7595432971,  &
         0.6121765961,  0.2678824822, 0.9624044147,  0.5718940699,  &
         0.6409191488,  0.6989438572, 0.7880269353,  0.2564175459,  &
         0.2345455112,  0.8554245669, 0.5856358492,  0.1641182881,  &
         0.3974649700,  0.1868828363, 0.2162789145,  0.8283912437,  &
         0.2605478958,  0.9585093756, 0.1623106142,  0.0858613780,  &
         0.3527157820,  0.0889353528, 0.5976893756,  0.9558085684,  &
         0.2528947809,  0.6388485651/)
    start = start + step + 1
    random_array(start: start + step) = (/ 0.7221792519,  0.3724355063,  &
         0.3696322489,  0.4310337534, 0.7763044385,  0.5378016841,  &
         0.5204216450,  0.6968692710, 0.6738465279,  0.7927022214,  &
         0.3353527306,  0.4128022380, 0.9588478130,  0.3535593832,  &
         0.4707414168,  0.4508658965, 0.9069508894,  0.1113174875,  &
         0.8226254800,  0.0953078653, 0.5497483840,  0.7600879798,  &
         0.5896247680,  0.7484037209, 0.6679580426,  0.3168532591,  &
         0.3499687857,  0.6533276821, 0.1986037510,  0.1337141770,  &
         0.7984264050,  0.0886756451, 0.7154863243,  0.6509090298,  &
         0.5248079777,  0.1148186335, 0.9245482225,  0.6098089182,  &
         0.2307239217,  0.3881387375, 0.7561923065,  0.2680516460,  &
         0.7660025131,  0.1874996016, 0.1084567835,  0.1329322653,  &
         0.2935989716,  0.4420400825, 0.0103669479,  0.9255711107,  &
         0.7266191641,  0.4372600824, 0.7023667022,  0.7001683547,  &
         0.3381068187,  0.9738802103, 0.7116367896,  0.9682506444,  &
         0.9484328689,  0.1352720837, 0.1303148760,  0.5469060228,  &
         0.1482766189,  0.4562062270, 0.0919565553,  0.5411585547,  &
         0.6731973319,  0.9354180441, 0.8603411560,  0.5562987002,  &
         0.7396198437,  0.4708414640, 0.5919584915,  0.4511539570,  &
         0.5875039486,  0.3298959094, 0.0332747139,  0.5074338499,  &
         0.9219505116,  0.8905791596, 0.6837699368,  0.7649771339,  &
         0.5165034424,  0.1557456107, 0.8431384891,  0.7825032012,  &
         0.5729913611,  0.5832125469, 0.3395070414,  0.1848975600,  &
         0.4335499935,  0.3747323970, 0.6420234555,  0.1356877435,  &
         0.1885227956,  0.0498484948, 0.2330477309,  0.3505102657,  &
         0.9758251865,  0.2790583982, 0.1991841711,  0.4450688694,  &
         0.3552950258,  0.4952118083, 0.7008762291,  0.7695693003,  &
         0.6901138097,  0.6382056332, 0.7943913067,  0.1382344853,  &
         0.8439510393,  0.1593193167, 0.1029712702,  0.9033237629,  &
         0.4709004547,  0.9938177592, 0.7169462793,  0.5207797283,  &
         0.7075643438,  0.6347492561, 0.4934694053,  0.2096489097,  &
         0.9567383426,  0.1456493138, 0.1901131403,  0.8215668664,  &
         0.5531778868,  0.1788145558, 0.0561106893,  0.4196103243,  &
         0.1232798879,  0.0470833802, 0.3119255622,  0.6540598616,  &
         0.4275133941,  0.0256013338, 0.9894814290,  0.5253957990,  &
         0.9578200890,  0.0601062479, 0.7304306184,  0.1528326459,  &
         0.4035859079,  0.4195263906, 0.8355932929,  0.9805661294,  &
         0.2209671273,  0.5711265752, 0.0911009698,  0.6558298760,  &
         0.9687019702,  0.8594356206, 0.2277101417,  0.2200589816,  &
         0.9134652877,  0.7015187323, 0.5611890141,  0.8555405116,  &
         0.0648113823,  0.6456312872, 0.3043279935,  0.8360991936,  &
         0.4282510281,  0.4480395968, 0.5329851552,  0.0251449552,  &
         0.2915807971,  0.6253695764, 0.7211812598,  0.6065581082,  &
         0.9637706437,  0.1094227304, 0.3369578568,  0.0801883777,  &
         0.5973517589,  0.4554668883, 0.4746853771,  0.6760881220,  &
         0.8883413327,  0.0476690400, 0.7112004946,  0.5555499352,  &
         0.8754456104,  0.5424903097, 0.1915635447,  0.2451601052,  &
         0.3169892505,  0.3915992329, 0.5302781837,  0.7987271386,  &
         0.0246516272,  0.8433113982, 0.5441536953,  0.2297403744,  &
         0.2687568308,  0.4060495785, 0.6490353138,  0.5173250238,  &
         0.2357209467,  0.6017452079, 0.7343238600,  0.5245178518,  &
         0.5231768924,  0.6568996938, 0.8429083049,  0.6333319734,  &
         0.5864063433,  0.1002084000, 0.0579747495,  0.8224042521,  &
         0.9140362652,  0.6531642294, 0.9081920958,  0.1500433485,  &
         0.8028820597,  0.6740599293, 0.3145379772,  0.9474972619,  &
         0.5609343585,  0.7044014733, 0.7861671037,  0.2426067131,  &
         0.4481286652,  0.9286170484, 0.7227919461,  0.2366701082,  &
         0.5997737929,  0.9429213740, 0.2604726221,  0.1789683493,  &
         0.8850659209,  0.0417291147, 0.4556355496,  0.6205817943,  &
         0.6239785765,  0.2251144618, 0.3569384504,  0.1588695731,  &
         0.4949723790,  0.6854610742, 0.4153171369,  0.3376601756,  &
         0.5057463729,  0.4571216714, 0.9188605515,  0.5680015753,  &
         0.7306059905,  0.3713331328, 0.2274160300,  0.7911215368,  &
         0.3397135578,  0.3506441776, 0.0715194659,  0.8568812280,  &
         0.5641354335,  0.5131905425, 0.9278798515,  0.7548865941,  &
         0.6214840777,  0.2806565524, 0.3447473816,  0.0756702486,  &
         0.1149554084,  0.6588543028, 0.5296204981,  0.8498697429,  &
         0.4746890998,  0.4904763947, 0.7643683262,  0.0089391425,  &
         0.4423840642,  0.0893168419, 0.5393083894,  0.9722599249,  &
         0.9888929840,  0.5155568187, 0.7211642103,  0.2044245134,  &
         0.5908144996,  0.8471084504, 0.6477533424,  0.2777746178,  &
         0.0574343144,  0.6409286945, 0.5543797423,  0.8608911707,  &
         0.7774641453,  0.6835059661, 0.7099710836,  0.1231860858,  &
         0.2344104597,  0.3936412362, 0.8060694917,  0.5774357177,  &
         0.1001678937,  0.6728025465, 0.8097902891,  0.7654628847,  &
         0.1167347523,  0.5969417084, 0.7659848939,  0.6227989180,  &
         0.1385322186,  0.7582252080, 0.8009137637,  0.8020269774,  &
         0.3899012151,  0.8267103214, 0.4889115461,  0.5478608758,  &
         0.6742995135,  0.5880321114, 0.8030718317,  0.0026569985,  &
         0.5264138389,  0.9701596315, 0.9310652443,  0.0360029077,  &
         0.2284509916,  0.2956225401, 0.1585889776,  0.8958248430,  &
         0.8065535016,  0.3222243640, 0.5154208802,  0.8304724503,  &
         0.6652196539,  0.6723112880, 0.4776560375,  0.4874427578,  &
         0.4976114338,  0.7510333302, 0.4426794369,  0.4250927440,  &
         0.0051373269,  0.1031618682, 0.8549893342,  0.2549288578,  &
         0.3760866235,  0.0892734121, 0.8438897444,  0.1328722754,  &
         0.8124633938,  0.2043112546, 0.3921705391,  0.3761576724,  &
         0.4866576188,  0.6943692999, 0.3179196553,  0.4411901468,  &
         0.9372455169,  0.9366985198, 0.5624268116,  0.8555441556,  &
         0.8436626909,  0.9511757216, 0.0100070564,  0.8974449571,  &
         0.9081675759,  0.8753890170, 0.6022743842,  0.0772117351,  &
         0.0939211244,  0.9534167148, 0.6739718898,  0.5036018036,  &
         0.7483194369,  0.5312069397, 0.7328459572,  0.8562540330,  &
         0.6626855509,  0.8037700263, 0.3871500846,  0.9326369039,  &
         0.1424532608,  0.9165448059, 0.4294610288,  0.6434107209,  &
         0.7168348527,  0.1767637708, 0.6803438633,  0.3292464480,  &
         0.6688918283,  0.6537278368, 0.2695128294,  0.0373355777,  &
         0.4564936564,  0.6797667986, 0.6040626513,  0.9601062331,  &
         0.9441919237,  0.8683312204, 0.1748444142,  0.7009709951,  &
         0.4097058891,  0.3705138785, 0.1418010485,  0.5648096345,  &
         0.6641498165,  0.3402426585, 0.8309586194,  0.3979470666,  &
         0.8359914076,  0.1726685117, 0.4818482041,  0.0325154639,  &
         0.5775308296,  0.7837214126, 0.1870550754,  0.2049430536,  &
         0.8615974448,  0.2191561211, 0.8475300880,  0.5596185156,  &
         0.6843085877,  0.9147853509, 0.7568827774,  0.9704550689,  &
         0.2697652877,  0.9864497487, 0.3040305061,  0.0310366485,  &
         0.4707865615,  0.5345383874, 0.3939327099,  0.3096527189,  &
         0.8409889444,  0.6220259584, 0.7284079998,  0.8226309653,  &
         0.8235086674,  0.5506047713, 0.5146940997,  0.5222909138,  &
         0.9218732622,  0.5641678911, 0.7516868941,  0.2085694821,  &
         0.0961907570,  0.0343010915, 0.8494443093,  0.3618846506,  &
         0.7771604009,  0.0035088907, 0.7054577533,  0.8788535368,  &
         0.2665432007,  0.6863494610, 0.4373797833,  0.7651365331,  &
         0.9160217356,  0.4783291890, 0.0260778558,  0.9259793309,  &
         0.1286804180,  0.2283600510, 0.5045194992,  0.9460871200,  &
         0.2162933079,  0.1392498568, 0.2625216889,  0.8599170900,  &
         0.9977794670,  0.4386702138, 0.5866141899,  0.0730503195,  &
         0.8982268732,  0.8809233013, 0.4207387683,  0.7674985984,  &
         0.5935705364,  0.3346371749, 0.5744472634,  0.2230599886,  &
         0.3474735456,  0.1638499725, 0.6065439985,  0.1016348518,  &
         0.7658578199,  0.8367117226, 0.6201587992,  0.6313423849,  &
         0.9202218800,  0.5840142076, 0.3933143385,  0.9602797885,  &
         0.0875909366,  0.0170337050, 0.9743781022,  0.0013361810,  &
         0.7209207661,  0.7372384762, 0.2069891940,  0.8095756155,  &
         0.8868086297,  0.3144731356, 0.5285749158,  0.4701446754,  &
         0.2112556622,  0.3454876455, 0.9624197120,  0.8530371681,  &
         0.3242124549,  0.1361352317, 0.2954520790,  0.4132829823,  &
         0.7200763734,  0.3581702292, 0.9300854913,  0.6883384816,  &
         0.5792793942,  0.9003822135, 0.6081179936,  0.7209210563,  &
         0.0825504209,  0.8997017745, 0.3304123953,  0.6611856066,  &
         0.2368588206,  0.3756318061, 0.7299925504,  0.5268266975,  &
         0.8248794048,  0.0031424812, 0.1128142029,  0.8477879151,  &
         0.7081479601,  0.2822795219, 0.8778607461,  0.7788076754,  &
         0.6612248595,  0.6808584107, 0.9363100972,  0.5470840206,  &
         0.5569517437,  0.3997528101, 0.0936625111,  0.9576497305,  &
         0.8239759939,  0.4707249434, 0.5412958186,  0.5681424064,  &
         0.7939659544,  0.9732866710, 0.2833012943,  0.5262879898,  &
         0.1795582008,  0.0161706894, 0.7355094427,  0.9879857771,  &
         0.3970668580,  0.9241344537, 0.4062184275,  0.0298024316,  &
         0.1685885539,  0.4289531806, 0.8151341121,  0.9967885122,  &
         0.3657321823,  0.5750340960, 0.9947419856,  0.6453255238,  &
         0.9492379441,  0.0142372150, 0.0645086236,  0.7403255008,  &
         0.8834131069,  0.2204744490, 0.6361645096,  0.2620641848,  &
         0.1095042816,  0.7620356959, 0.4395924025,  0.5435186288,  &
         0.3779124924,  0.6531429537, 0.2400113897,  0.2378257770,  &
         0.2216095415,  0.5868557781, 0.4282173221,  0.2848813095,  &
         0.6339928162,  0.6349251505, 0.4706088050,  0.2766025315,  &
         0.9863133907,  0.4989088493, 0.9690827657,  0.7443480095,  &
         0.4175440149,  0.2743606435, 0.2895464956,  0.1595841994,  &
         0.3401495551,  0.7501674914, 0.6841482948,  0.4847969684,  &
         0.7227120796,  0.2586683689, 0.5057930948,  0.8989953952,  &
         0.9035820393,  0.1774768680, 0.9742209261,  0.0500562084,  &
         0.1245400319,  0.6253273914, 0.1454328038,  0.7608469814,  &
         0.3267509805,  0.7721011691, 0.8818257236,  0.7396616464,  &
         0.0843436706,  0.4102732132, 0.5171111801,  0.4360063704,  &
         0.8955431699,  0.8113923389, 0.8899929946,  0.8531216535,  &
         0.6175712541,  0.7536209966, 0.3824235267,  0.0891276675,  &
         0.6013358583,  0.5331201774, 0.9499323548,  0.7839275954,  &
         0.5397620888,  0.2038829145, 0.5899967349,  0.7875574113,  &
         0.2265725012,  0.8929752025, 0.8643217438,  0.2066288325,  &
         0.2510921640,  0.4998519276, 0.7156679123,  0.9471345203,  &
         0.6408790408,  0.5469385710, 0.0309661088,  0.4245182721,  &
         0.0968727635,  0.4595366902, 0.7015540135,  0.5059285589,  &
         0.8005658789,  0.9804029146, 0.6149927505,  0.1545007185,  &
         0.4593428947,  0.9142786933, 0.9161839644,  0.2040402992,  &
         0.9776063061,  0.4349518655, 0.3019313283,  0.0950285124,  &
         0.3763633875,  0.2843723183, 0.8818511887,  0.8846608437,  &
         0.8615746190,  0.7018235132, 0.7903867156,  0.9049513295,  &
         0.7110704007,  0.2259590553, 0.6575223956,  0.6008953649,  &
         0.5729566466,  0.5056321491, 0.1515949702,  0.5989861444,  &
         0.9748229711,  0.5455234512, 0.8208826543,  0.1465425290,  &
         0.3624490964,  0.7338693376, 0.2731657693,  0.0295890425,  &
         0.6137579324,  0.2315881959, 0.0703994332,  0.7614165581,  &
         0.5254777346,  0.7994831229, 0.7899136537,  0.3261168271,  &
         0.1932419724,  0.3917434008, 0.1218680694,  0.8123053872,  &
         0.1138164587,  0.7058901835, 0.3928165724,  0.1585089472,  &
         0.4246061685,  0.8190380708, 0.1257041036,  0.7182127856,  &
         0.8411593237,  0.6757299595, 0.6238437542,  0.2037865962,  &
         0.9173166004,  0.1082536618, 0.4522225091,  0.0034168998,  &
         0.0476491664,  0.6879983919, 0.3044632483,  0.4206470664,  &
         0.0293926356,  0.3450408710, 0.1797132284,  0.2202551767,  &
         0.2212089539,  0.9520888024, 0.4378908801,  0.1006440538,  &
         0.7753773517,  0.9574736355, 0.8637393896,  0.7166576500,  &
         0.2147837359,  0.4860994128, 0.5509990010,  0.4765367529,  &
         0.6218844657,  0.4404498084, 0.5309800349,  0.1685329945,  &
         0.0475014428,  0.7323676710, 0.0579082131,  0.4041358960,  &
         0.7446556316,  0.5349576171, 0.1270158305,  0.3088666659,  &
         0.8972115022,  0.0059950945, 0.6994525754,  0.2143761538,  &
         0.0489974912,  0.9893281007, 0.6765279321,  0.6528392027,  &
         0.5968301235,  0.5788462587, 0.7736969660,  0.1565262038,  &
         0.8845885394,  0.8670610380, 0.1842703026,  0.2789279308,  &
         0.3134905356,  0.1944834881, 0.0001072916,  0.2520991404,  &
         0.5764524582,  0.8059315357, 0.3282156430,  0.9963398661,  &
         0.3196220790,  0.8075006153, 0.0269651983,  0.3460331495,  &
         0.5114214210,  0.5803431997, 0.6934765317,  0.3190304864,  &
         0.9171528707,  0.6082729245, 0.0969604141,  0.3712898824,  &
         0.9337005166,  0.2608573800, 0.9296265949,  0.8889390204,  &
         0.7856141387,  0.2839115422, 0.9367413226,  0.0339615131,  &
         0.3335943430,  0.3976538802, 0.1149006249,  0.5257795542,  &
         0.7731124259,  0.4239352356, 0.0427365799,  0.8893131476,  &
         0.2189301909,  0.9303525097, 0.5216603255,  0.6037838443,  &
         0.2368408201,  0.9068722778, 0.1441708087,  0.4871742467,  &
         0.5041704313,  0.5065370676, 0.2212163686,  0.4769306555,  &
         0.2291543341,  0.8524363922, 0.4593645499,  0.2853514085,  &
         0.5526192462,  0.8453660570, 0.0979202726,  0.1059973792,  &
         0.5860212919,  0.4388555329, 0.7263948534,  0.1121722499,  &
         0.1355796845,  0.6796261196, 0.0497002837,  0.6409321851,  &
         0.7225080337,  0.7520627358, 0.3533495093,  0.3693197026,  &
         0.7337022280,  0.4236647874, 0.4210352293,  0.3556986811,  &
         0.9370564466,  0.3804810989, 0.3464589979,  0.0342186636,  &
         0.2947618081,  0.9143285809, 0.9889470426,  0.9024022349,  &
         0.3129795928,  0.7716041012, 0.8135214290,  0.4125789622,  &
         0.5367808351,  0.7778784584, 0.1083681444,  0.8014158236,  &
         0.1077888520,  0.3197011117, 0.4546592384,  0.3572388626,  &
         0.2976087855,  0.9916915568, 0.7088814254,  0.7981020805,  &
         0.1072158239,  0.8771570996, 0.3030134623,  0.3689866255,  &
         0.0560061849,  0.7881748821, 0.0015393483,  0.1274966906,  &
         0.3432181932,  0.1109955460, 0.4174968119,  0.9457099045,  &
         0.7497394511,  0.7460714936, 0.4550033749,  0.0075897016,  &
         0.7040321271,  0.1399886252, 0.6607459973,  0.0927728668,  &
         0.1012598509,  0.1277311208, 0.4938554013,  0.5707905748,  &
         0.1235033488,  0.1430614219, 0.7073309784,  0.7263358996,  &
         0.6572808676,  0.6335973683, 0.0017728858,  0.7536501424,  &
         0.6939915549,  0.1937760689, 0.4546524524,  0.4369210487,  &
         0.9033301092,  0.2854440655, 0.0419344064,  0.1857644296,  &
         0.6179980654,  0.0649913974, 0.5762551525,  0.3682865591,  &
         0.9295975660,  0.0180718934, 0.3083195671,  0.3660569128,  &
         0.3027459285,  0.9028224427, 0.3286992878,  0.2792184480,  &
         0.1456493509,  0.7420617048, 0.6578542757,  0.8495768129,  &
         0.6732390318,  0.0958906896, 0.4899941965,  0.9788116655,  &
         0.3313905886,  0.4898732109, 0.6082252711,  0.0113129843,  &
         0.4108630813,  0.3741410535, 0.6372124125,  0.3749138974,  &
         0.4675503979,  0.4756963279, 0.7014503996,  0.7051781688,  &
         0.2248571162,  0.8174151056, 0.5083211911,  0.6380588389,  &
         0.2361561276,  0.9458918750, 0.1789911313,  0.7022244164,  &
         0.8409994334,  0.0672031215, 0.2510092853,  0.6736545121,  &
         0.4629627685,  0.4423306209, 0.8284632356,  0.8805239144,  &
         0.7004899254,  0.7177161595, 0.4746335176,  0.7973210970,  &
         0.8774982104,  0.3066049590, 0.1059365108,  0.7912258167,  &
         0.3344268294,  0.1110194726, 0.9080958729,  0.1059695002,  &
         0.8534481431,  0.0816093274, 0.8237248470,  0.9894220769,  &
         0.6261896098,  0.5526733121, 0.8047766755,  0.3487730777,  &
         0.4935222340,  0.0541876126, 0.6536031013,  0.8986536385,  &
         0.4149012613,  0.8621723390, 0.8406132723,  0.2731284281,  &
         0.6781036638,  0.4294952724, 0.2493789208,  0.7140322178,  &
         0.0886912906,  0.1101097801, 0.7992365011,  0.7512496337,  &
         0.4506898558,  0.9836539133, 0.1231097456,  0.3348422117,  &
         0.4061897765,  0.8945268386, 0.4466547922,  0.7970759418,  &
         0.3677440572,  0.4234324791, 0.6338482247,  0.7487938083,  &
         0.6515348782,  0.2155451188, 0.5671276399,  0.5074592065,  &
         0.9659870711,  0.7415896901, 0.7249141950,  0.5566748324,  &
         0.0122855071,  0.9728104895, 0.6538501668,  0.0421790889,  &
         0.7352000993,  0.2652651487, 0.7215049878,  0.6526275766,  &
         0.9268527201,  0.5712755159, 0.3096896854,  0.0459333531,  &
         0.2893926009,  0.0194848492, 0.1976716195,  0.1241667231,  &
         0.2349866082,  0.0294913891/)
    start = start + step + 1
    random_array(start: start + step) = (/ 0.8123156109,  0.5156430117,  &
         0.5554665772,  0.7825595795, 0.5182852654,  0.6745305889,  &
         0.2648099610,  0.5144789094, 0.4768411203,  0.2402150999,  &
         0.6027367866,  0.3462398716, 0.0835253079,  0.6766072149,  &
         0.4669405180,  0.5206410868, 0.1925814069,  0.4448926436,  &
         0.5944928610,  0.1028675196, 0.3266197036,  0.2306676627,  &
         0.2134808302,  0.0437886849, 0.0398344621,  0.8584563776,  &
         0.7962840195,  0.2613243180, 0.7548348921,  0.9928609833,  &
         0.1206918002,  0.9324951641, 0.6543390990,  0.6269251342,  &
         0.1319427639,  0.3814222153, 0.9121090714,  0.1270156262,  &
         0.7564358678,  0.9254294046, 0.5043876229,  0.8334246042,  &
         0.4749866572,  0.9790675027, 0.9932753148,  0.5251720260,  &
         0.7228507990,  0.0066764649, 0.4153948865,  0.3293569080,  &
         0.1625197110,  0.9455383138, 0.2739328180,  0.0876302381,  &
         0.6668653458,  0.3126100285, 0.1178336343,  0.3943730590,  &
         0.0947464586,  0.3529388274, 0.2713061899,  0.0713525000,  &
         0.6114037591,  0.2362005715, 0.6657415090,  0.0667147326,  &
         0.9883755140,  0.8392270870, 0.6907289328,  0.0870904181,  &
         0.2728969937,  0.0400918937, 0.6215536706,  0.9686934820,  &
         0.6884870322,  0.8167456568, 0.3049923816,  0.1179689952,  &
         0.0031052793,  0.8465565884, 0.7713147565,  0.5734432728,  &
         0.6602420556,  0.2405887386, 0.7053204772,  0.5629107480,  &
         0.3116513916,  0.6502611962, 0.0257129234,  0.1729031492,  &
         0.3973836612,  0.1235640965, 0.1385316293,  0.4993027783,  &
         0.1553022800,  0.8351421284, 0.7740483204,  0.6251862858,  &
         0.8388766567,  0.9716027842, 0.1414758927,  0.3737889479,  &
         0.6427148624,  0.5097606375, 0.3077798285,  0.9744767445,  &
         0.9209914157,  0.6831949763, 0.3971415972,  0.6280744030,  &
         0.0079734431,  0.0209812761, 0.4783477878,  0.0957153374,  &
         0.7801650161,  0.8895274376, 0.5446576325,  0.0703068860,  &
         0.4939002849,  0.8652817236, 0.8755224887,  0.7780860923,  &
         0.6716688772,  0.1128529552, 0.0803784459,  0.8495733360,  &
         0.0046072290,  0.5944590527, 0.9341956731,  0.6740436959,  &
         0.2174369203,  0.6005777140, 0.3324607428,  0.4796498184,  &
         0.8670702301,  0.6092319692, 0.7629151895,  0.7612645363,  &
         0.6512570337,  0.3999714327, 0.9507061498,  0.1580372478,  &
         0.9522032312,  0.4298972093, 0.9663374602,  0.4806108165,  &
         0.9100200790,  0.7679105190, 0.5733974848,  0.6736713252,  &
         0.9928892651,  0.9491114984, 0.3159853913,  0.3823641409,  &
         0.3271449013,  0.7713790558, 0.0688196002,  0.4848412901,  &
         0.3647693843,  0.9087987916, 0.1713931321,  0.5698140177,  &
         0.1712249021,  0.3649542711, 0.6952753777,  0.2957866034,  &
         0.1087861752,  0.0465193629, 0.8441683234,  0.5853966042,  &
         0.6234608148,  0.7087506713, 0.0933081357,  0.6697880458,  &
         0.3718095607,  0.3905806135, 0.8456798599,  0.5625304009,  &
         0.1804642305,  0.4240076980, 0.5182768686,  0.7476032951,  &
         0.9141044980,  0.8007207825, 0.5809939047,  0.3488284326,  &
         0.6619077714,  0.5131369212, 0.7177887599,  0.3270688768,  &
         0.0326304397,  0.4310183060, 0.0282125156,  0.4877935678,  &
         0.0429581545,  0.8463797282, 0.1342768387,  0.5640304922,  &
         0.6718226124,  0.0083371621, 0.7258205744,  0.4046630777,  &
         0.4920000524,  0.0698398326, 0.2969945047,  0.7543433697,  &
         0.8797765307,  0.8734134936, 0.4975768153,  0.7296109300,  &
         0.6390997100,  0.7059372356, 0.7956256357,  0.0711428605,  &
         0.2259922384,  0.8205791023, 0.3408086605,  0.7967743488,  &
         0.7326628070,  0.9323468607, 0.4555214486,  0.6485123509,  &
         0.6570578729,  0.0937787425, 0.0874251148,  0.2839254074,  &
         0.8122852278,  0.2302706388, 0.4919638926,  0.0536065756,  &
         0.5783648989,  0.2461041358, 0.5859208590,  0.3252520560,  &
         0.1422660179,  0.7725027659, 0.9946960333,  0.9939436987,  &
         0.1497278935,  0.6089904052, 0.6939765639,  0.4740318257,  &
         0.7782653650,  0.5867293785, 0.0276189707,  0.8849927678,  &
         0.6139397177,  0.1994827019, 0.5518504513,  0.7043680663,  &
         0.0998659539,  0.9808482021, 0.0125039091,  0.7459193035,  &
         0.9500090800,  0.4206320888, 0.4056246958,  0.6646937072,  &
         0.4853221187,  0.7456285571, 0.0330645395,  0.9101666366,  &
         0.1134807842,  0.8399074147, 0.6374511982,  0.8167080862,  &
         0.5444138689,  0.8773711864, 0.2937712698,  0.1577459961,  &
         0.9324040734,  0.6743692205, 0.0204537436,  0.1088636184,  &
         0.3583562505,  0.7449245721, 0.0998812253,  0.0383567154,  &
         0.4477148114,  0.1284247609, 0.6308531396,  0.9408595308,  &
         0.8144818166,  0.3673928556, 0.3941473007,  0.5125496936,  &
         0.7978548660,  0.6914653405, 0.7788155320,  0.9073426386,  &
         0.9343839516,  0.9870460222, 0.2415784108,  0.5997082758,  &
         0.3100330061,  0.3947402686, 0.3667292047,  0.3810479239,  &
         0.8270434420,  0.4167978097, 0.8606746090,  0.8819721352,  &
         0.2464533255,  0.5013533700, 0.9238287648,  0.3819791015,  &
         0.8893564279,  0.6555993664, 0.4873665228,  0.9392180683,  &
         0.8676767705,  0.7649886394, 0.2625004836,  0.9862773510,  &
         0.3358814190,  0.3451832870, 0.2234136933,  0.8645819339,  &
         0.3017776104,  0.8776372300, 0.6479492690,  0.2532863623,  &
         0.4246860525,  0.6666767458, 0.2510768414,  0.2530247636,  &
         0.3465708563,  0.2605235708, 0.8314541687,  0.8030979222,  &
         0.4213711118,  0.0806990046, 0.2064966212,  0.2436000790,  &
         0.5723103024,  0.5169160984, 0.4597977135,  0.0673267599,  &
         0.0104978665,  0.6198641001, 0.5240566375,  0.8813723223,  &
         0.6366855222,  0.0801888281, 0.1281490499,  0.1428784809,  &
         0.1194543974,  0.7056188901, 0.6078169649,  0.7191171080,  &
         0.8759886073,  0.2939499416, 0.1036604155,  0.0119566463,  &
         0.0790430376,  0.8200065834, 0.6673202492,  0.4028397744,  &
         0.9544413490,  0.8156747880, 0.3946660415,  0.0419262909,  &
         0.5087017516,  0.4129040164, 0.7480045250,  0.9116029983,  &
         0.7418378046,  0.0555360550, 0.1180467185,  0.6901289952,  &
         0.8979635714,  0.9804194021, 0.6534177439,  0.7380852082,  &
         0.6817327643,  0.4163115078, 0.8028266139,  0.2982279491,  &
         0.4115968420,  0.3456371923, 0.2342733035,  0.4849281077,  &
         0.7992760792,  0.3582212253, 0.9924859610,  0.2909836787,  &
         0.3616129120,  0.9776333512, 0.5438015003,  0.4368062883,  &
         0.7178394433,  0.5218802544, 0.4724969931,  0.8870552720,  &
         0.1747939651,  0.0641543965, 0.3487500479,  0.0875692264,  &
         0.7687201169,  0.1292953543, 0.0874833298,  0.3915526956,  &
         0.7550537845,  0.6977442041, 0.0089752252,  0.2195813346,  &
         0.0472152171,  0.9869424226, 0.6161231435,  0.2083041714,  &
         0.2247570679,  0.0511745781, 0.5359774502,  0.2363434491,  &
         0.4067201962,  0.5500336155, 0.2004402074,  0.1811239865,  &
         0.7497906625,  0.8635950539, 0.2185656822,  0.8384186814,  &
         0.6332496538,  0.5893281849, 0.5512342575,  0.6896015225,  &
         0.9756987317,  0.9255939210, 0.5455190517,  0.9152281717,  &
         0.1654870053,  0.0324803213, 0.5563197539,  0.2289405892,  &
         0.6028248014,  0.0338817933, 0.1268637261,  0.6944936718,  &
         0.0188933753,  0.4687111231, 0.8422926542,  0.8208126294,  &
         0.0127340143,  0.9659772006, 0.3789557062,  0.8468829721,  &
         0.9753204866,  0.5613151525, 0.4587899961,  0.2734826512,  &
         0.9884978309,  0.4125540622, 0.7327554370,  0.8648235969,  &
         0.4429483761,  0.6367005601, 0.5396580782,  0.1069407957,  &
         0.5878929754,  0.0905778840, 0.1269066014,  0.0963519783,  &
         0.7629799184,  0.6167927348, 0.6065598175,  0.5158207231,  &
         0.6384614638,  0.3187438215, 0.5926091469,  0.7289990609,  &
         0.2614517154,  0.8776223885, 0.6162077129,  0.5601895445,  &
         0.1506529643,  0.1323143076, 0.3773302402,  0.0996418418,  &
         0.2528699694,  0.0585019391, 0.1979883817,  0.6869831034,  &
         0.0329050058,  0.0619257338, 0.8214870770,  0.5600903540,  &
         0.1927023378,  0.8046661066, 0.5018675908,  0.8083116220,  &
         0.7091833296,  0.9281812957, 0.9147789822,  0.5481432808,  &
         0.3325022491,  0.4056749167, 0.8010044117,  0.7323877362,  &
         0.1046328216,  0.6115899297, 0.8114511142,  0.4988771923,  &
         0.5456160407,  0.1238166201, 0.7203934701,  0.5225027452,  &
         0.5882366763,  0.8965455823, 0.5769132071,  0.7369337888,  &
         0.0617568314,  0.4506498706, 0.4729800660,  0.6115556666,  &
         0.8079576965,  0.4747310019, 0.4452934885,  0.0739005370,  &
         0.9702414279,  0.8629962423, 0.2578611764,  0.9187594634,  &
         0.6132014041,  0.3885720073, 0.1092032737,  0.1409455317,  &
         0.3268169971,  0.7222188373, 0.2752087836,  0.8696907113,  &
         0.0272143571,  0.8128515848, 0.1105111204,  0.7638352629,  &
         0.9245717272,  0.9656634175, 0.4101463345,  0.5097427835,  &
         0.8542105314,  0.9609493828, 0.5272138228,  0.4200674996,  &
         0.1679184239,  0.5439921410, 0.7575166538,  0.8339041933,  &
         0.2072770406,  0.1320336016, 0.6301641603,  0.2138680145,  &
         0.2669013057,  0.6043669827, 0.8075423737,  0.0579647097,  &
         0.5762220282,  0.1886689225, 0.9062952789,  0.6784191673,  &
         0.0854833594,  0.3510353597, 0.2121497349,  0.0111340736,  &
         0.4236638769,  0.5069700878, 0.2629502282,  0.9638324986,  &
         0.7395758420,  0.0314673197, 0.2178661973,  0.1972744027,  &
         0.1298541505,  0.4799544479, 0.4406313110,  0.5024155248,  &
         0.1159572696,  0.3968188917, 0.9624793132,  0.1398104429,  &
         0.5517347339,  0.1800973779, 0.6402420188,  0.0280087350,  &
         0.9923203216,  0.6974626963, 0.1068804597,  0.1344392265,  &
         0.0040469559,  0.0750458328, 0.1353135453,  0.9452658421,  &
         0.4272200639,  0.8681194273, 0.3623615481,  0.4114570245,  &
         0.5347640405,  0.8785456849, 0.1544651046,  0.6194592831,  &
         0.6984263320,  0.6479261310, 0.5653231503,  0.2570955367,  &
         0.3961097811,  0.0103145971, 0.6892821843,  0.0158362186,  &
         0.0181770814,  0.0397639855, 0.6363836991,  0.4732877829,  &
         0.1566263362,  0.7078675771, 0.2301920375,  0.6761900397,  &
         0.0921947877,  0.7988179829, 0.4644396704,  0.9460097115,  &
         0.6377391272,  0.5892107437, 0.6659996628,  0.5105619380,  &
         0.3401117683,  0.5483781326, 0.1733456992,  0.2225824988,  &
         0.8412266830,  0.3865055292, 0.8296818114,  0.3557218802,  &
         0.0938364419,  0.7648821497, 0.9183364470,  0.6952985739,  &
         0.2599273101,  0.3329955696, 0.4991669747,  0.7760993921,  &
         0.3160204688,  0.0017791938, 0.3721190079,  0.3612415849,  &
         0.2224417818,  0.2239241538, 0.6527987231,  0.1966134591,  &
         0.0614161349,  0.7713577356, 0.7145900760,  0.7725616347,  &
         0.3669135827,  0.8240687202, 0.5401918823,  0.3525856208,  &
         0.3119653348,  0.7435605503, 0.7336888475,  0.7829338606,  &
         0.9709099089,  0.3670923193, 0.2096716546,  0.6667279085,  &
         0.4662963446,  0.6515942241, 0.8263895356,  0.5170601941,  &
         0.8828001445,  0.8306398176, 0.4790901645,  0.3619437471,  &
         0.7419264057,  0.9464962689, 0.0297565822,  0.9080688221,  &
         0.1896526895,  0.7783409747, 0.5603715900,  0.7856399819,  &
         0.8786339392,  0.5536214230, 0.6844942622,  0.8343158359,  &
         0.7061951859,  0.8381670358, 0.9046352593,  0.0125050931,  &
         0.1852315042,  0.2410380834, 0.7174867299,  0.4353414028,  &
         0.0734356805,  0.3517905732, 0.1765381070,  0.5461050765,  &
         0.0958602689,  0.2227831975, 0.7800737799,  0.4124436652,  &
         0.2911401782,  0.6562101153, 0.8676313085,  0.3830067039,  &
         0.1133134941,  0.2833634782, 0.6099359903,  0.9343954929,  &
         0.2616857777,  0.5460774561, 0.1690914801,  0.6267970372,  &
         0.9696577289,  0.4216084930, 0.2330704397,  0.3574090513,  &
         0.3398952586,  0.0205318908, 0.2650088909,  0.3263281193,  &
         0.9133907122,  0.1294836354, 0.6680903363,  0.9518628674,  &
         0.6229519386,  0.1860238965, 0.5602505948,  0.0243907743,  &
         0.7875114176,  0.6508424321, 0.2330918569,  0.1300401990,  &
         0.7852528681,  0.4561830540, 0.5501466744,  0.2516157841,  &
         0.1477198134,  0.0244811145, 0.1522461272,  0.1497911809,  &
         0.7548885136,  0.6743089338, 0.0004421456,  0.4341811503,  &
         0.1091316036,  0.9715156268, 0.2876177271,  0.7877748977,  &
         0.7454943501,  0.9586400265, 0.5275591702,  0.4490265049,  &
         0.4363712601,  0.6161526526, 0.5759970816,  0.4661262179,  &
         0.2694594055,  0.0874022067, 0.4995825434,  0.8059574423,  &
         0.8670121490,  0.4601404108, 0.2575734020,  0.1992695982,  &
         0.6539310619,  0.5297923204, 0.5638123835,  0.5000007341,  &
         0.2893947756,  0.7971234120, 0.7767499612,  0.0909481696,  &
         0.6992753894,  0.8506927707, 0.2048989505,  0.5779747054,  &
         0.6571932988,  0.3265453470, 0.8295631630,  0.9806657416,  &
         0.0326296647,  0.4530016836, 0.3260959443,  0.9658808076,  &
         0.1845694483,  0.3726865895, 0.0954355394,  0.1862413794,  &
         0.9299045009,  0.3231344285, 0.4343361380,  0.8602576304,  &
         0.8572428431,  0.5569317278, 0.6308073469,  0.4960696886,  &
         0.1072279028,  0.2593546245, 0.3377344330,  0.9560176677,  &
         0.0011016589,  0.5468584115, 0.5591039407,  0.6745378761,  &
         0.5461641321,  0.5833354939, 0.0668380785,  0.0253754969,  &
         0.1205944865,  0.8883084234, 0.9769182032,  0.4643041555,  &
         0.9398345942,  0.7766809087, 0.7391262887,  0.7365684798,  &
         0.3860495701,  0.2512049109, 0.2249845489,  0.0150519134,  &
         0.7935453835,  0.5140810223, 0.3691431179,  0.2985118949,  &
         0.3156455922,  0.3559129832, 0.2106942494,  0.3511704287,  &
         0.0754286280,  0.0225364475, 0.8934125964,  0.8922227829,  &
         0.2311603954,  0.9176519666, 0.3541109664,  0.8868380148,  &
         0.0862199213,  0.8228052702, 0.6131240321,  0.6316777755,  &
         0.2840409050,  0.6980437107, 0.3306999242,  0.1061131891,  &
         0.9820674530,  0.3216111285, 0.9918050093,  0.0675418373,  &
         0.3606509585,  0.3872263417, 0.6039421501,  0.3989259256,  &
         0.5274135284,  0.9842137897, 0.3326160171,  0.6361331792,  &
         0.3579915626,  0.8919686405, 0.9283592639,  0.2599734880,  &
         0.3517242166,  0.4925911402, 0.8790006844,  0.2176867610,  &
         0.8226131077,  0.0540677655, 0.4787219155,  0.6295602528,  &
         0.5421733592,  0.0417727575, 0.5265606652,  0.5085158210,  &
         0.5301350635,  0.4652613819, 0.6263593909,  0.7249807181,  &
         0.7520066674,  0.9400206117, 0.4161060228,  0.6554825230,  &
         0.6785972009,  0.1460696523, 0.9055119747,  0.3990386051,  &
         0.9454812627,  0.7553825940, 0.6611497910,  0.7713130417,  &
         0.7713503023,  0.8169814259, 0.0012532533,  0.0737852476,  &
         0.8664645058,  0.4842738420, 0.0331991255,  0.7560245392,  &
         0.1680087159,  0.7567762255, 0.0376528173,  0.2335344754,  &
         0.9537132166,  0.8484006579, 0.4142728744,  0.9481223667,  &
         0.0357323562,  0.7382194933, 0.4373559174,  0.8210110544,  &
         0.8852398008,  0.6931684838, 0.9744351637,  0.8416729359,  &
         0.8135710961,  0.8236174095, 0.8584155640,  0.9281676634,  &
         0.6527424596,  0.1186467475, 0.1382835064,  0.9444440068,  &
         0.0179061874,  0.9997911974, 0.5462664593,  0.4169194343,  &
         0.4548542431,  0.7071950475, 0.0529973717,  0.5768664384,  &
         0.5116044513,  0.3475810639, 0.7711814723,  0.8321805110,  &
         0.0643256561,  0.7312060721, 0.7558547324,  0.2840457242,  &
         0.8032330220,  0.9503369741, 0.0213496477,  0.4694641064,  &
         0.4923230206,  0.2011185571, 0.5725100566,  0.8852609047,  &
         0.4671333522,  0.3969005225, 0.0485916098,  0.7087322546,  &
         0.7541749523,  0.7449721168, 0.1340392755,  0.4975772513,  &
         0.1209091635,  0.5427169023, 0.0684864957,  0.1711165265,  &
         0.4803489928,  0.2027575523, 0.7937884245,  0.8585336434,  &
         0.8600517539,  0.3372167711, 0.4722610411,  0.6092669861,  &
         0.1128834184,  0.7540959125, 0.2839948656,  0.3546119497,  &
         0.4519549632,  0.4654408051, 0.5499495288,  0.5865744114,  &
         0.8683710834,  0.5622978179, 0.2314326774,  0.9446831154,  &
         0.7649163245,  0.6903998018, 0.0503566952,  0.1873224169,  &
         0.8557237126,  0.8474184430, 0.6627146218,  0.9295169666,  &
         0.3803138404,  0.6335470606, 0.4554986271,  0.6461034752,  &
         0.7710388736,  0.1603233040, 0.3861629533,  0.3570171346,  &
         0.8415855634,  0.1370351309, 0.2081703238,  0.5064080219,  &
         0.9989401959,  0.5622428039, 0.2800351847,  0.1119948192,  &
         0.7232460699,  0.1800848597, 0.1620485798,  0.0113621998,  &
         0.8214736455,  0.7559766991, 0.8743624890,  0.7361744431,  &
         0.9663639344,  0.0346815570, 0.1407588258,  0.8806591190,  &
         0.6669522718,  0.4619243737, 0.6577015261,  0.4524518676,  &
         0.4872087529,  0.8762067141, 0.7676364674,  0.8131455342,  &
         0.2361709236,  0.3829665540/)
    start = start + step + 1
    random_array(start: start + step) = (/ 0.0844158277,  0.9390052560,  &
         0.2400651069,  0.5759182630, 0.2300399846,  0.4708261755,  &
         0.8429763800,  0.0331614661, 0.5355018525,  0.5052762286,  &
         0.4053442200,  0.0648299043, 0.4694808358,  0.8085087117,  &
         0.1598710195,  0.9052110981, 0.8132092517,  0.9446119444,  &
         0.3993094005,  0.5554015956, 0.3589803650,  0.7771534556,  &
         0.1174193802,  0.2785825562, 0.9059194416,  0.3784490959,  &
         0.0992010021,  0.4644488361, 0.1132614724,  0.9773494217,  &
         0.8224998013,  0.7195595074, 0.8455992608,  0.1014390208,  &
         0.2435388445,  0.2284450607, 0.3306894726,  0.6517830213,  &
         0.2004523088,  0.6851177067, 0.1774006139,  0.4950903565,  &
         0.2603256291,  0.6917109999, 0.1956178751,  0.1752156392,  &
         0.9281629644,  0.6676579682, 0.7217853815,  0.1417559857,  &
         0.7421871466,  0.7676485906, 0.8653098413,  0.2105666101,  &
         0.9335315784,  0.9283155749, 0.6272577805,  0.9914367590,  &
         0.7392212392,  0.4134490019, 0.1753812417,  0.8224520330,  &
         0.6979603017,  0.3319732641, 0.6991423275,  0.4673644282,  &
         0.4332398113,  0.9410133409, 0.0324291960,  0.2370707960,  &
         0.3097977679,  0.7634440270, 0.8832988306,  0.5222405734,  &
         0.4252678914,  0.6628192756, 0.2407735830,  0.7769255803,  &
         0.7569307315,  0.5436732871, 0.5185577533,  0.1711397699,  &
         0.8456275521,  0.3980495573, 0.8213068570,  0.1987501577,  &
         0.3089434244,  0.5346958186, 0.8958239773,  0.9228361195,  &
         0.9061173009,  0.0276851582, 0.6594446150,  0.3523567313,  &
         0.4372627576,  0.6926221556, 0.6137009621,  0.7554927503,  &
         0.7335610128,  0.0706263748, 0.9984752652,  0.3428266788,  &
         0.7211467166,  0.8651161856, 0.8264143860,  0.1401393841,  &
         0.5534565105,  0.9185512196, 0.6182630473,  0.6711477593,  &
         0.2464888566,  0.5103221606, 0.9655233911,  0.8780007847,  &
         0.1285890115,  0.8286791816, 0.2881151502,  0.2569508615,  &
         0.3796080524,  0.4646961337, 0.3405933145,  0.4817110404,  &
         0.1754651234,  0.5538569876, 0.8576082402,  0.5159524294,  &
         0.1243041043,  0.3604062329, 0.6524426165,  0.5325710720,  &
         0.9874358070,  0.8589533223, 0.3485804059,  0.3885672547,  &
         0.5451669435,  0.2530382068, 0.5913556375,  0.8833825034,  &
         0.1240499459,  0.3885131527, 0.6657187426,  0.9311612153,  &
         0.3444750965,  0.0467142187, 0.8768131845,  0.4778403332,  &
         0.0488025079,  0.2786258247, 0.2407220685,  0.7080745662,  &
         0.6140761493,  0.4882606008, 0.7426224456,  0.7934435818,  &
         0.9062765350,  0.7782996003, 0.7330153219,  0.3313192819,  &
         0.5941098064,  0.4381184550, 0.9300533566,  0.7112706974,  &
         0.2182882020,  0.0120392895, 0.2576213525,  0.0761274309,  &
         0.1926942932,  0.3587670751, 0.8932210899,  0.5503528626,  &
         0.1761975865,  0.2186242944, 0.7496450397,  0.8107625962,  &
         0.7099978655,  0.4464775725, 0.3792302437,  0.1254164477,  &
         0.5594195438,  0.0464579789, 0.7680310872,  0.1499296476,  &
         0.2880837917,  0.9296853260, 0.0607061360,  0.1005288638,  &
         0.0767848980,  0.4866756472, 0.1280865505,  0.5620766619,  &
         0.9998748803,  0.3581301546, 0.7795487582,  0.0444075004,  &
         0.4259315082,  0.5981331657, 0.3658055970,  0.6058144701,  &
         0.0978427393,  0.0129336172, 0.2872403479,  0.9403972124,  &
         0.8728381201,  0.8463657066, 0.0721059770,  0.1175355245,  &
         0.8243009756,  0.4519670036, 0.8701450335,  0.9239198597,  &
         0.7929766168,  0.7170685476, 0.2353563855,  0.2763783010,  &
         0.4666166822,  0.9906767356, 0.5339176316,  0.2266828759,  &
         0.8622533128,  0.7398777709, 0.6803323224,  0.0904116436,  &
         0.8284727950,  0.8418621090, 0.1855906692,  0.1163536393,  &
         0.3558385188,  0.6701667596, 0.4426603184,  0.4440960590,  &
         0.0109351892,  0.6892361646, 0.4823538773,  0.8085415738,  &
         0.6786976325,  0.6596826653, 0.2838076103,  0.7272878643,  &
         0.8818485372,  0.3176889646, 0.7720419364,  0.0955030283,  &
         0.0173820766,  0.8143333888, 0.8656991673,  0.4579976385,  &
         0.9009926225,  0.5542842428, 0.2456884823,  0.9805584287,  &
         0.7459394951,  0.2821791758, 0.8775130766,  0.1368104807,  &
         0.3240752014,  0.4287274578, 0.1530263517,  0.5034260496,  &
         0.6821071832,  0.8798239862, 0.5526504225,  0.3835375258,  &
         0.9810505281,  0.7861727585, 0.7378750775,  0.0565066140,  &
         0.3731055937,  0.2932811108, 0.1727760007,  0.1470566941,  &
         0.7783634585,  0.3236077450, 0.2361736475,  0.9417846721,  &
         0.2820310708,  0.4484741233, 0.6650418589,  0.5356018485,  &
         0.8104439622,  0.6692137890, 0.5218199435,  0.3416688524,  &
         0.2023326849,  0.0921578727, 0.6970649674,  0.8941933770,  &
         0.6760290941,  0.9130448678, 0.6250049566,  0.5567285748,  &
         0.8508985589,  0.2988348534, 0.6777128408,  0.7923612799,  &
         0.4250134538,  0.0222974992, 0.6989660319,  0.0803723638,  &
         0.4276112792,  0.0261180345, 0.9007224666,  0.2142308411,  &
         0.5742530453,  0.8032480170, 0.2080829033,  0.9513606795,  &
         0.2770846940,  0.7887979432, 0.6087999979,  0.8890470031,  &
         0.7592378147,  0.3040998485, 0.1347152751,  0.3151795872,  &
         0.5433948547,  0.7807472061, 0.8690463762,  0.5273577329,  &
         0.2839811841,  0.7581999326, 0.8704242056,  0.5234749392,  &
         0.4741115402,  0.8641050576, 0.3610664436,  0.3391477337,  &
         0.1564711291,  0.2424470881, 0.7734471428,  0.1837336952,  &
         0.6401923439,  0.3446430182, 0.4333275480,  0.6224230084,  &
         0.8023475948,  0.9391391820, 0.3232684418,  0.0152832947,  &
         0.6310560876,  0.0863139763, 0.3654328270,  0.8566790067,  &
         0.9189175346,  0.6215992264, 0.7302079383,  0.2794584733,  &
         0.1253414650,  0.4642009580, 0.5856337344,  0.2105317798,  &
         0.4276125816,  0.8645651091, 0.3621057449,  0.7119821783,  &
         0.2636411290,  0.0026558681, 0.5285407308,  0.7760572478,  &
         0.2146411844,  0.4083727665, 0.6327446670,  0.7166603503,  &
         0.5159479481,  0.2918447793, 0.4826448319,  0.2796509937,  &
         0.6486676323,  0.5134194051, 0.1425518672,  0.4855238119,  &
         0.5536820079,  0.6107315486, 0.4111062509,  0.3481775968,  &
         0.8135007392,  0.3983383237, 0.1576102948,  0.5618895116,  &
         0.7065679195,  0.4149944620, 0.6515144533,  0.4601964103,  &
         0.3184990563,  0.5948518024, 0.2653337622,  0.7019569301,  &
         0.2895088852,  0.0086554139, 0.3873389826,  0.6258729873,  &
         0.2377517836,  0.0077736557, 0.6579052218,  0.8655573851,  &
         0.7853469647,  0.8026491020, 0.2253078019,  0.0776706332,  &
         0.3236731221,  0.3379560157, 0.0545755252,  0.7885033455,  &
         0.3814363758,  0.9004391307, 0.9137844817,  0.1103093340,  &
         0.2818524900,  0.6979562289, 0.0102327422,  0.2328310830,  &
         0.7179407339,  0.3844421931, 0.3644155210,  0.8618468525,  &
         0.4115212527,  0.8503183383, 0.5004496847,  0.3586056145,  &
         0.7249337135,  0.4607557771, 0.6044458473,  0.6204412271,  &
         0.3567440201,  0.0628939220, 0.4589201558,  0.9996261299,  &
         0.5295941889,  0.0946215970, 0.3565624490,  0.9660200209,  &
         0.7323496240,  0.9002969623, 0.8696630030,  0.0412272184,  &
         0.2828279399,  0.7196340571, 0.1345031587,  0.9483062611,  &
         0.0999449400,  0.3421624626, 0.6296978159,  0.7791849369,  &
         0.3652935401,  0.9247096754, 0.3983179858,  0.4518739116,  &
         0.8708249768,  0.2703394768, 0.2480622700,  0.4498270819,  &
         0.1633342871,  0.2489519512, 0.9704372001,  0.1699359493,  &
         0.3487407060,  0.7388417877, 0.9549447779,  0.7952069677,  &
         0.0333119165,  0.5503943444, 0.3559030880,  0.8091039148,  &
         0.4378293193,  0.6608505195, 0.4530436641,  0.3960344796,  &
         0.2159842760,  0.9481113693, 0.7633354451,  0.7527633880,  &
         0.2102968616,  0.6977164227, 0.5371611968,  0.6925531412,  &
         0.5334959750,  0.6142153687, 0.6003886382,  0.3676760121,  &
         0.7711985582,  0.7462509614, 0.3924696651,  0.2060863494,  &
         0.2194966364,  0.6484006296, 0.7456903688,  0.5008493425,  &
         0.8723206359,  0.9105679169, 0.9178575829,  0.2544912458,  &
         0.8767997666,  0.7899474636, 0.1816203460,  0.5472879243,  &
         0.0708503358,  0.7765812074, 0.6393792690,  0.6686854768,  &
         0.2388981312,  0.7253414797, 0.9817429197,  0.1703093278,  &
         0.4262291938,  0.7804150987, 0.2698128377,  0.3824119687,  &
         0.7703501760,  0.5039573197, 0.4715474080,  0.7383566985,  &
         0.0658868458,  0.6400087496, 0.8813921787,  0.9521690674,  &
         0.4045267150,  0.9423372284, 0.9982745659,  0.6757219232,  &
         0.3163985504,  0.7366812852, 0.7331392680,  0.7084930288,  &
         0.1034524832,  0.8340497299, 0.4407134832,  0.0159834997,  &
         0.2106075242,  0.0774995758, 0.2961069678,  0.6606703044,  &
         0.7568426124,  0.5840055546, 0.8215740393,  0.5970046999,  &
         0.3354420115,  0.9699355717, 0.4803781316,  0.2551345157,  &
         0.0917405368,  0.5799793412, 0.2004857038,  0.0660181247,  &
         0.2602993893,  0.6592226192, 0.0873145607,  0.5929224555,  &
         0.0652897461,  0.7414081053, 0.2812824277,  0.1604872404,  &
         0.1381831682,  0.4651947390, 0.6381419862,  0.7560053053,  &
         0.8578972892,  0.0132126407, 0.7729487500,  0.0147619877,  &
         0.9113196264,  0.3190499214, 0.8330910853,  0.7287969578,  &
         0.7290534793,  0.3369191061, 0.5389500682,  0.4319629994,  &
         0.5672568116,  0.3993783489, 0.4362822434,  0.9362629096,  &
         0.1575104921,  0.3437207351, 0.2170648403,  0.8774542723,  &
         0.4880893857,  0.6906639843, 0.9937414270,  0.4741335534,  &
         0.0753274641,  0.7495042488, 0.1038853975,  0.0279688152,  &
         0.7571245071,  0.7189275999, 0.4486087735,  0.7585323456,  &
         0.1393576398,  0.4812472542, 0.2805621008,  0.0967761954,  &
         0.3931257194,  0.6586658850, 0.8780812755,  0.9434753659,  &
         0.0266405289,  0.6270767709, 0.8196301500,  0.2949760598,  &
         0.9898550431,  0.6833682386, 0.8790952607,  0.6432355569,  &
         0.6408227593,  0.3132044434, 0.8882405249,  0.8529996756,  &
         0.0179801034,  0.3301534480, 0.6091200676,  0.4803541587,  &
         0.1674181445,  0.9691397185, 0.0050841895,  0.5449319212,  &
         0.9936412317,  0.2069823158, 0.5326941494,  0.6074879579,  &
         0.1041078934,  0.6503255343, 0.9433503218,  0.1577863909,  &
         0.2274161068,  0.5886640518, 0.0449063406,  0.3896042052,  &
         0.1394223538,  0.2675174593, 0.8553930164,  0.2386580856,  &
         0.3430989745,  0.0510530995, 0.7240721848,  0.0932173224,  &
         0.6787220753,  0.6823988933, 0.4917707428,  0.6926370478,  &
         0.5685045752,  0.2790841153, 0.5530640008,  0.7775647301,  &
         0.7979159340,  0.9666449894, 0.8742121982,  0.2263846326,  &
         0.4188072019,  0.3020705805, 0.6532020668,  0.6726174868,  &
         0.2037231223,  0.9083006087, 0.9221302952,  0.4414201655,  &
         0.8860552568,  0.0350711496, 0.2348757165,  0.8534883292,  &
         0.9399882873,  0.1500455422, 0.6418840188,  0.5755800133,  &
         0.5659797966,  0.4885369345, 0.8163818085,  0.1455519484,  &
         0.4821555958,  0.4163117028, 0.2754533226,  0.4346026990,  &
         0.2819940489,  0.5033719921, 0.8886306193,  0.7720207036,  &
         0.0541981822,  0.5019659970, 0.3589485513,  0.9896404897,  &
         0.4611809123,  0.6880370190, 0.9102686538,  0.1311584710,  &
         0.9213024243,  0.6339859679, 0.2544581510,  0.9590558967,  &
         0.9157227790,  0.4094793337, 0.8586494254,  0.2792523891,  &
         0.5131684516,  0.0480586465, 0.3611081921,  0.2286024729,  &
         0.7003068183,  0.7282889455, 0.8058865315,  0.1099281095,  &
         0.0504989786,  0.1553972879, 0.5044158386,  0.8064365067,  &
         0.8637834991,  0.5149573297, 0.5251089487,  0.0497512933,  &
         0.7147666576,  0.0004795317, 0.4188516759,  0.1318920944,  &
         0.4528372792,  0.1620358544, 0.9324982751,  0.8908186127,  &
         0.8498895002,  0.7806050239, 0.3702828284,  0.5525432897,  &
         0.2163949492,  0.0404657116, 0.7763511306,  0.3538085476,  &
         0.5366847185,  0.6304881663, 0.2307689454,  0.7608484033,  &
         0.3792202803,  0.0609219124, 0.4384722738,  0.5775024190,  &
         0.5876581060,  0.5477095419, 0.2003755761,  0.2461106896,  &
         0.1173294498,  0.7872869981, 0.4192833738,  0.4277982826,  &
         0.3942466994,  0.2902483465, 0.8754970608,  0.7715848971,  &
         0.3054134763,  0.1625532494, 0.9408918641,  0.7311713760,  &
         0.4092225298,  0.2437272812, 0.8523995770,  0.5827714915,  &
         0.5938239723,  0.4561778039, 0.7759084190,  0.9447031836,  &
         0.3143669320,  0.7386181287, 0.4627379108,  0.3936227441,  &
         0.0524926171,  0.4235703156, 0.8396383929,  0.8919616053,  &
         0.6171628825,  0.6764462013, 0.2682919249,  0.8889481181,  &
         0.8704585924,  0.9539754190, 0.1694240727,  0.0284449849,  &
         0.0060538482,  0.5171487430, 0.9464208181,  0.3081457639,  &
         0.7978400718,  0.3557226972, 0.3266825131,  0.0330334566,  &
         0.9632022886,  0.5913037240, 0.8166720312,  0.3856921595,  &
         0.5309905985,  0.0489278803, 0.0873958662,  0.6851141896,  &
         0.7631388101,  0.1548610548, 0.3661269151,  0.1154486889,  &
         0.8947074745,  0.9327940156, 0.0810276856,  0.0713613919,  &
         0.1035350030,  0.7124795717, 0.5427241320,  0.5547469146,  &
         0.0095248254,  0.1405166050, 0.7309298794,  0.1885209340,  &
         0.4682580617,  0.1216789804, 0.6875106499,  0.6970022625,  &
         0.4100575081,  0.2909268222, 0.7028756257,  0.4982724895,  &
         0.4549295745,  0.0541117279, 0.3407648232,  0.7647039780,  &
         0.5420095215,  0.2881441730, 0.3506911565,  0.1738136933,  &
         0.4959740594,  0.7728772840, 0.7148104386,  0.6263665286,  &
         0.3768522718,  0.5579474685, 0.7811408740,  0.0690002401,  &
         0.3758217045,  0.7171065729, 0.7988537060,  0.1090675618,  &
         0.8264195748,  0.8083053241, 0.4114688511,  0.2205669999,  &
         0.8109416125,  0.1441042488, 0.8828573769,  0.8477003290,  &
         0.4134094781,  0.7437567782, 0.4681626179,  0.3405267179,  &
         0.3549425247,  0.2734426176, 0.2988940220,  0.9692851926,  &
         0.7518197006,  0.7150593928, 0.7351694929,  0.5301267601,  &
         0.8539230526,  0.8492580509, 0.6841977779,  0.9113463707,  &
         0.2840491938,  0.6854498777, 0.3040680505,  0.7471157394,  &
         0.2284471063,  0.6894490046, 0.7609167752,  0.5451783464,  &
         0.1196197263,  0.3282941467, 0.1346603151,  0.4234364325,  &
         0.2518932664,  0.5833544041, 0.6971322433,  0.1562098182,  &
         0.8249662608,  0.2676332611, 0.5471109574,  0.4788536452,  &
         0.6985080846,  0.3889535378, 0.6143774447,  0.2201700570,  &
         0.8636954806,  0.9933025094, 0.4823951321,  0.0441846959,  &
         0.2223864683,  0.6675380751, 0.6964302632,  0.9326061083,  &
         0.6089812586,  0.0734563482, 0.6715949346,  0.5800662394,  &
         0.1935953850,  0.3229801760, 0.3447578135,  0.0218032511,  &
         0.8815895601,  0.0882080045, 0.3289999149,  0.9639239670,  &
         0.9813011434,  0.2780184122, 0.8099215282,  0.4844840683,  &
         0.8323246713,  0.4087376213, 0.4924624907,  0.0771437419,  &
         0.3648899315,  0.1395128642, 0.7929431772,  0.2781292274,  &
         0.3978251805,  0.3005258488, 0.7573229136,  0.8115101282,  &
         0.2648097991,  0.5093043911, 0.7644824883,  0.5960170684,  &
         0.8840690178,  0.9269122656, 0.7963307765,  0.5182631706,  &
         0.7286871326,  0.9022315418, 0.2907775221,  0.5306841097,  &
         0.8787165337,  0.1450508296, 0.0917763016,  0.8390986216,  &
         0.0495137529,  0.3287518474, 0.2880148538,  0.1855999171,  &
         0.2332529883,  0.7439513203, 0.5790819495,  0.2485930090,  &
         0.7331843491,  0.4881673264, 0.1597955877,  0.4535973551,  &
         0.4160619456,  0.8296082149, 0.0004150051,  0.4817966712,  &
         0.3779737794,  0.5802902401, 0.4497068204,  0.7631738915,  &
         0.7743366822,  0.8788696823, 0.4391374459,  0.3740158852,  &
         0.2810468127,  0.1431399479, 0.7612963883,  0.4675376588,  &
         0.7567051279,  0.6980114031, 0.5922125941,  0.9808469181,  &
         0.0805274203,  0.9103453359, 0.4179173217,  0.1020245021,  &
         0.6383171127,  0.8996607493, 0.1849917034,  0.8163541530,  &
         0.6870546485,  0.3529900852, 0.7377019400,  0.2046412468,  &
         0.7412737726,  0.4472837624, 0.8307484062,  0.5413220703,  &
         0.5064455599,  0.3599920852, 0.8690457798,  0.0041813024,  &
         0.8241527435,  0.5454926428, 0.5721869814,  0.6644002431,  &
         0.0362524287,  0.4491401971, 0.3741616230,  0.7318714427,  &
         0.3010219524,  0.7045312840, 0.5884396073,  0.9007024015,  &
         0.3527945530,  0.0734975700, 0.5084620482,  0.8911431642,  &
         0.8815767692,  0.5228276350, 0.9415881533,  0.1661450706,  &
         0.1166820771,  0.8333473353, 0.7451800079,  0.8724030531,  &
         0.5805799812,  0.7863051048, 0.5875511815,  0.0876862297,  &
         0.8420048025,  0.9241078626, 0.6370434048,  0.7358274280,  &
         0.6390387212,  0.1332747412, 0.2293455238,  0.2977841498,  &
         0.2273594966,  0.6234961100/)
    start = start + step + 1
    random_array(start: start + step) = (/ 0.6816188300,  0.0516366930,  &
         0.8963277294,  0.5225204377, 0.5630681197,  0.0224998177,  &
         0.2991516329,  0.9781174000, 0.5882628903,  0.0342628237,  &
         0.2233651069,  0.7730116985, 0.5771872375,  0.6915142734,  &
         0.4260138969,  0.8472323130, 0.9935575490,  0.9451069855,  &
         0.5670354839,  0.2052986757, 0.1783854935,  0.8666495389,  &
         0.3555762139,  0.5120085375, 0.2552753466,  0.6495419195,  &
         0.9291140350,  0.5365285449, 0.6063202299,  0.0385589503,  &
         0.6029640979,  0.5162161310, 0.1101731246,  0.6579324353,  &
         0.6267886414,  0.9177869041, 0.9922591137,  0.0524849997,  &
         0.8362245694,  0.7210773311, 0.5932305662,  0.2281785018,  &
         0.3889856005,  0.2023405217, 0.3398254880,  0.7085595124,  &
         0.9260052544,  0.0010208693, 0.5613285830,  0.9098410241,  &
         0.0716518109,  0.5928209776, 0.2259991844,  0.5862046774,  &
         0.2890134624,  0.8950462881, 0.5121295311,  0.2939788821,  &
         0.4359056357,  0.7131948781, 0.5832241004,  0.8567934252,  &
         0.9398022008,  0.5546393266, 0.4110902120,  0.7318940154,  &
         0.1016343244,  0.8564542008, 0.6973616117,  0.6235871074,  &
         0.9561074685,  0.0505067234, 0.6548242648,  0.1198505481,  &
         0.6868117106,  0.4206994462, 0.5588818246,  0.4003266563,  &
         0.8912744061,  0.8665920236, 0.4725849745,  0.2997830010,  &
         0.8348119641,  0.5599881467, 0.4121734338,  0.2592220607,  &
         0.8499146618,  0.8615391691, 0.8763116594,  0.0679751452,  &
         0.5572811310,  0.0147152930, 0.8529157539,  0.6025190799,  &
         0.9329045646,  0.7725973684, 0.1853159206,  0.2122204304,  &
         0.3018077412,  0.1194514553, 0.7467957968,  0.6485970251,  &
         0.0712936189,  0.9897097817, 0.8712026261,  0.9421732394,  &
         0.0512763198,  0.3461800825, 0.5607504286,  0.1878724148,  &
         0.8256096605,  0.2126295059, 0.0036781457,  0.1918469840,  &
         0.3189078117,  0.3522058522, 0.3543623953,  0.9922310736,  &
         0.1780762877,  0.9526692732, 0.6008131838,  0.9893651349,  &
         0.1582772906,  0.8162123553, 0.0730324875,  0.4370934784,  &
         0.1641490187,  0.9829980355, 0.7914634215,  0.1286051871,  &
         0.9662018782,  0.0298256928, 0.0654798640,  0.1465714065,  &
         0.0317266134,  0.6185493327, 0.2590918941,  0.2398208548,  &
         0.3770280370,  0.2746712945, 0.2198398795,  0.8697456461,  &
         0.1107822445,  0.3197236508, 0.3328382305,  0.6584538640,  &
         0.7350454298,  0.7584491196, 0.8387382517,  0.5301047608,  &
         0.8165313530,  0.7885468949, 0.3596261932,  0.2160400363,  &
         0.0620802589,  0.7203798854, 0.3715297662,  0.4252701304,  &
         0.2566747567,  0.3623995985, 0.8743147985,  0.4287287515,  &
         0.2550852910,  0.9551583167, 0.8011070134,  0.6327312502,  &
         0.3739005339,  0.4441644472, 0.1268643410,  0.3222596924,  &
         0.8212325024,  0.4820108031, 0.2327206521,  0.3533811780,  &
         0.6891828624,  0.4523033291, 0.6941967463,  0.9562764344,  &
         0.8022016475,  0.2445432060, 0.5001849300,  0.3792478057,  &
         0.0494267354,  0.9147935372, 0.1697707257,  0.1246828482,  &
         0.2028657410,  0.6537856573, 0.6703417885,  0.2333911114,  &
         0.9545939468,  0.4555097740, 0.7839812311,  0.5224598606,  &
         0.6056948771,  0.1885492234, 0.7260910415,  0.6684940137,  &
         0.3183029450,  0.9877755815, 0.5111004380,  0.4800854015,  &
         0.5973843015,  0.7866798361, 0.9415544074,  0.2671181258,  &
         0.0013511743,  0.2828041852, 0.6285351575,  0.4557509802,  &
         0.2745920621,  0.0226626326, 0.4763441485,  0.9828575047,  &
         0.2279302754,  0.7541948140, 0.8035070481,  0.3347867371,  &
         0.8442459009,  0.9832566301, 0.8216847299,  0.7749783561,  &
         0.3430495579,  0.5596867671, 0.3862350173,  0.5811482026,  &
         0.1300656945,  0.9569429284, 0.9785709779,  0.8480022991,  &
         0.4602517907,  0.8654863901, 0.0413621000,  0.5031099691,  &
         0.5637967352,  0.7169250736, 0.9620871375,  0.4228661225,  &
         0.9975726329,  0.6216877295, 0.9099695352,  0.6874893478,  &
         0.6500811584,  0.7527434580, 0.5472167720,  0.4084950523,  &
         0.8209306878,  0.3039928255, 0.3867996063,  0.9012443929,  &
         0.2434641367,  0.4468419525, 0.3727586072,  0.3014648521,  &
         0.1974265396,  0.6037934367, 0.6368752473,  0.4676528421,  &
         0.5855847510,  0.5401873119, 0.2780589030,  0.6680038979,  &
         0.1416230432,  0.7925545668, 0.2364498959,  0.4445537405,  &
         0.9159254641,  0.2624343863, 0.5141296962,  0.2838867100,  &
         0.6551955629,  0.0366718892, 0.8281290755,  0.6627504528,  &
         0.0465346337,  0.1065287467, 0.0256196858,  0.6139705186,  &
         0.8020089162,  0.4424646346, 0.9386397694,  0.4017556598,  &
         0.6346480345,  0.2231828932, 0.7331172427,  0.2590236236,  &
         0.3042323701,  0.9205301058, 0.6847267521,  0.2470921984,  &
         0.7236299726,  0.9390908120, 0.9641626932,  0.9264054858,  &
         0.3255597310,  0.7970366808, 0.5279146382,  0.0178448598,  &
         0.4688495477,  0.1414768010, 0.2995852075,  0.6973441079,  &
         0.4264120166,  0.9601636052, 0.7210991330,  0.4747615798,  &
         0.1592597135,  0.0335099684, 0.5341770555,  0.8029026032,  &
         0.1685571698,  0.9082285251, 0.9550337716,  0.9307231609,  &
         0.3341137019,  0.0094743040, 0.1725161474,  0.1140661670,  &
         0.0757767981,  0.9447312965, 0.9215795540,  0.8151109930,  &
         0.2804725221,  0.8323398758, 0.0793648066,  0.2193816403,  &
         0.3297728064,  0.4388245770, 0.5366368662,  0.9228554763,  &
         0.0356638486,  0.9099960462, 0.3566032960,  0.8442179666,  &
         0.4847913857,  0.6355118685, 0.3105649675,  0.0945151921,  &
         0.3590776116,  0.7360961604, 0.5685346052,  0.6087446668,  &
         0.0193409601,  0.8022966327, 0.6925520757,  0.3185331672,  &
         0.7477614129,  0.5981742583, 0.3040316452,  0.3568941164,  &
         0.7420184718,  0.0082964161, 0.8613654726,  0.0190253869,  &
         0.1742215213,  0.2082515326, 0.0667423175,  0.7557320931,  &
         0.6638825236,  0.5547139884, 0.3554170995,  0.9119823765,  &
         0.0241083787,  0.1095310395, 0.8071069112,  0.6205918951,  &
         0.4948274186,  0.4528855464, 0.0445456314,  0.3336549408,  &
         0.7916459396,  0.6587481652, 0.6827820831,  0.6696836424,  &
         0.6484294697,  0.0074229240, 0.2842037357,  0.4202302286,  &
         0.6468426725,  0.2214613669, 0.0456859398,  0.4060126154,  &
         0.9944455663,  0.7473316897, 0.5196206581,  0.0619276327,  &
         0.3947128285,  0.0062542617, 0.0390393620,  0.3991951438,  &
         0.9931088326,  0.6682814091, 0.9156127952,  0.6598578472,  &
         0.6580778718,  0.5514344379, 0.2625754301,  0.0872963040,  &
         0.7641660784,  0.2669384492, 0.8011901726,  0.6887169744,  &
         0.3379102655,  0.7472459650, 0.1296967854,  0.5793036754,  &
         0.4130519082,  0.6550784199, 0.3214960465,  0.6045809421,  &
         0.1095528466,  0.1756216562, 0.3407616054,  0.2123718152,  &
         0.2782231894,  0.9976035418, 0.0028406247,  0.9806773200,  &
         0.2006960729,  0.7410091334, 0.6545351172,  0.6052399684,  &
         0.9884929889,  0.5775669223, 0.1248980910,  0.5563371149,  &
         0.7439066126,  0.2452700807, 0.9079577870,  0.1952096384,  &
         0.6221454980,  0.6535900693, 0.2209814875,  0.4786750654,  &
         0.6100531963,  0.1031801428, 0.3218663876,  0.6496574258,  &
         0.8494740220,  0.7345986899, 0.4976395177,  0.7505451994,  &
         0.2219671951,  0.8612942904, 0.0018194111,  0.7697277777,  &
         0.6589048765,  0.4631391084, 0.1369589994,  0.8036857541,  &
         0.2275486768,  0.2911344495, 0.7833565352,  0.9419912952,  &
         0.1299538954,  0.0825367019, 0.9091563155,  0.4625923983,  &
         0.4421611008,  0.6138710487, 0.4581067505,  0.0400348730,  &
         0.6012767177,  0.8629028295, 0.3528177444,  0.2167939114,  &
         0.3103216355,  0.8350385416, 0.9020044734,  0.1083077403,  &
         0.6067474125,  0.1321286750, 0.5529868410,  0.5888613590,  &
         0.0330972434,  0.4848899058, 0.8774125257,  0.2773237414,  &
         0.2652688032,  0.7124587465, 0.0090697278,  0.9165816715,  &
         0.3537478109,  0.5378546263, 0.0629478551,  0.1628424403,  &
         0.7998559235,  0.2156786469, 0.7188638083,  0.3712608142,  &
         0.8680263973,  0.5618650726, 0.7423256200,  0.4041939676,  &
         0.4758196773,  0.0821613420, 0.2345661115,  0.0854658912,  &
         0.1425442586,  0.7847246511, 0.6692896063,  0.3859377549,  &
         0.1309322929,  0.9109922282, 0.6698460059,  0.4583405804,  &
         0.7462478105,  0.5983703286, 0.9823867749,  0.4123235018,  &
         0.7804971354,  0.5855859853, 0.1640121288,  0.2975234731,  &
         0.4416831339,  0.9120258608, 0.7716254815,  0.1349285062,  &
         0.9691753978,  0.7903828071, 0.3554826251,  0.3791948243,  &
         0.6322897305,  0.9364936202, 0.7592249995,  0.6141072605,  &
         0.2755558912,  0.8729092931, 0.7429812144,  0.4547951412,  &
         0.7455356205,  0.6635210210, 0.9798414409,  0.5648566740,  &
         0.9500307954,  0.2518112858, 0.0121903102,  0.9839760878,  &
         0.8704461707,  0.5154316782, 0.9883246029,  0.0832293105,  &
         0.8451119834,  0.9895106040, 0.0106067603,  0.4103811007,  &
         0.7167523165,  0.4675103138, 0.9607421906,  0.0350323348,  &
         0.2382385071,  0.6331580759, 0.7173273552,  0.5051153047,  &
         0.0219773273,  0.4551298419, 0.6522391104,  0.1404004366,  &
         0.2834432286,  0.8840008822, 0.9982693496,  0.3208147910,  &
         0.4909936892,  0.8626389120, 0.6385659150,  0.1409875237,  &
         0.6533560260,  0.0544590113, 0.2330391891,  0.7690791799,  &
         0.2228497601,  0.8092170292, 0.5124171453,  0.8957531421,  &
         0.2938819462,  0.4617475146, 0.5484905834,  0.6847478165,  &
         0.7484055385,  0.0083230872, 0.3996059056,  0.8569395659,  &
         0.7173464604,  0.7291492944, 0.9637260134,  0.6635677208,  &
         0.6146805143,  0.3808039972, 0.7916235836,  0.9352608714,  &
         0.3764942940,  0.5499907041, 0.0899255817,  0.3180314605,  &
         0.0684479405,  0.2799850020, 0.0751331951,  0.1518903197,  &
         0.8678655467,  0.5594097941, 0.9640594755,  0.5140269289,  &
         0.9058806063,  0.0418771979, 0.8249623909,  0.4896657171,  &
         0.1833840222,  0.1900863747, 0.3579484949,  0.4562101651,  &
         0.9461040090,  0.6490459351, 0.3764347811,  0.0866926239,  &
         0.4095501785,  0.3378334528, 0.1023712611,  0.1347239793,  &
         0.1967481268,  0.9612795918, 0.5831371751,  0.6116633871,  &
         0.6042669468,  0.1901243032, 0.9501671137,  0.4397714838,  &
         0.0033439104,  0.4595317320, 0.2782879132,  0.4083332206,  &
         0.0115960808,  0.4217631525, 0.4146438875,  0.6628722554,  &
         0.3453850655,  0.4395382749, 0.7898696843,  0.9105241260,  &
         0.6675815324,  0.5760017714, 0.8103962872,  0.5802424442,  &
         0.7287749784,  0.3544618173, 0.2250265955,  0.4304401391,  &
         0.8386772627,  0.9640102594, 0.6861205886,  0.4159816725,  &
         0.2921912789,  0.1469438729, 0.7477944225,  0.9797808082,  &
         0.6274070407,  0.8421172411, 0.0135033709,  0.0875585824,  &
         0.0575124850,  0.6405536057, 0.8481337252,  0.1582451051,  &
         0.3022647185,  0.0383950998, 0.6107183749,  0.4637034908,  &
         0.6468834072,  0.3701425652, 0.3317647203,  0.4981262365,  &
         0.8544580682,  0.5980611165, 0.0974063963,  0.4057010706,  &
         0.1891908128,  0.4679299252, 0.2166339681,  0.1007359420,  &
         0.0088085181,  0.3183514844, 0.1926081012,  0.0421486346,  &
         0.3768032284,  0.0876817144, 0.3541300566,  0.1436291752,  &
         0.2420122924,  0.4688554572, 0.1450527279,  0.2707855870,  &
         0.5175496261,  0.0124408305, 0.6534177311,  0.7795387545,  &
         0.7285649130,  0.6062151184, 0.2552034846,  0.4293762809,  &
         0.2320069887,  0.6075543758, 0.5206864970,  0.8603037359,  &
         0.9792207664,  0.2855061150, 0.0179256222,  0.0115719277,  &
         0.6955551702,  0.4596914717, 0.3254461147,  0.0790678518,  &
         0.4517729862,  0.6969684308, 0.1684623454,  0.9764748752,  &
         0.9235006931,  0.1715800629, 0.3030567180,  0.7454228815,  &
         0.5105278530,  0.6403197668, 0.3403048120,  0.5163773889,  &
         0.2571420905,  0.8117988700, 0.6245064454,  0.0464141378,  &
         0.6276850920,  0.7745835381, 0.8246282831,  0.3964247162,  &
         0.7487955472,  0.0627640906, 0.2666592187,  0.8439547632,  &
         0.1527099262,  0.4758502590, 0.7990231546,  0.0153498250,  &
         0.2270822098,  0.6877652998, 0.3545204683,  0.9943788056,  &
         0.0488111636,  0.6261080809, 0.9416262844,  0.9796054479,  &
         0.5298347679,  0.0313297821, 0.7441703954,  0.6659187484,  &
         0.7419452238,  0.6550063082, 0.3806134614,  0.3472512232,  &
         0.3142032664,  0.4094376512, 0.5383024199,  0.2272680718,  &
         0.5767599638,  0.6467146501, 0.8277944911,  0.1470683733,  &
         0.7138948626,  0.8494208505, 0.0267704571,  0.6337571400,  &
         0.4790170061,  0.7059482085, 0.7993174921,  0.2869040581,  &
         0.9593121627,  0.7469496798, 0.2102424147,  0.2429413584,  &
         0.5784860653,  0.0556614377, 0.5184649406,  0.9989477944,  &
         0.2516515030,  0.3999908467, 0.9100087567,  0.3750083179,  &
         0.0146704781,  0.0685981569, 0.2110792779,  0.2414501307,  &
         0.7243795871,  0.3395846224, 0.1892817940,  0.2897422220,  &
         0.4396004944,  0.7318204391, 0.2160506192,  0.2144526611,  &
         0.7762456042,  0.6546222775, 0.9748441684,  0.0499851298,  &
         0.5222327308,  0.7184658082, 0.0067262757,  0.0725382209,  &
         0.4033285038,  0.9452229888, 0.2637869386,  0.2884506701,  &
         0.9459683441,  0.3573142341, 0.9386905572,  0.6982844405,  &
         0.7194508919,  0.1190139351, 0.8503954756,  0.1362636478,  &
         0.2074051237,  0.8896115445, 0.7999277500,  0.5855241674,  &
         0.9436535844,  0.3103849024, 0.7524128349,  0.8904434836,  &
         0.1164049110,  0.5581252250, 0.1174152325,  0.5543976193,  &
         0.9872162560,  0.0866104210, 0.6966274454,  0.3924789938,  &
         0.2212240689,  0.3543759115, 0.2309709008,  0.7730284304,  &
         0.8551859336,  0.6766570765, 0.0544393851,  0.0518922009,  &
         0.7152087182,  0.5159302971, 0.1118817749,  0.3892436077,  &
         0.9061846568,  0.4724972835, 0.9936039396,  0.9848064872,  &
         0.6011070987,  0.1984246131, 0.0966212298,  0.7328665948,  &
         0.7033290544,  0.0704786798, 0.8505109172,  0.2570383368,  &
         0.7540158403,  0.6040812399, 0.8395449194,  0.8567567933,  &
         0.7164236130,  0.6293359112, 0.1035027986,  0.1071427115,  &
         0.8601597458,  0.0616020068, 0.3513824157,  0.6931559641,  &
         0.3578315272,  0.1571045985, 0.5969791865,  0.2273613178,  &
         0.2144146510,  0.0641668800, 0.2237032788,  0.4287830567,  &
         0.6926334438,  0.5469389479, 0.2153507020,  0.5130125265,  &
         0.6656177216,  0.3187740187, 0.7381613708,  0.2068952514,  &
         0.4314730923,  0.7544629692, 0.3926679324,  0.2101665202,  &
         0.2809430851,  0.8053042985, 0.1190982858,  0.8116143570,  &
         0.2363983872,  0.5006625441, 0.5095112080,  0.7764328537,  &
         0.7623586338,  0.2288230609, 0.1253859958,  0.3345923642,  &
         0.4094174407,  0.7245653208, 0.6154310920,  0.2645828980,  &
         0.6036936422,  0.7612221747, 0.4296484889,  0.9088402645,  &
         0.1830848260,  0.5617987168, 0.7376038056,  0.0851986610,  &
         0.7637840384,  0.0613664584, 0.9218408727,  0.0882654954,  &
         0.0891076975,  0.2542070705, 0.4795955468,  0.4656537205,  &
         0.5697744195,  0.3431023494, 0.9508166435,  0.4238463146,  &
         0.4888676405,  0.3631252917, 0.8876549133,  0.4798370148,  &
         0.0171763418,  0.1937006650, 0.2304827058,  0.3824012019,  &
         0.9982443390,  0.3178952088, 0.7328810526,  0.8875740154,  &
         0.5661991130,  0.5276197091, 0.3646734587,  0.9604055886,  &
         0.9687332069,  0.7386667766, 0.9780210314,  0.0632646857,  &
         0.2939844012,  0.8683338336, 0.1995981102,  0.0983761545,  &
         0.4529296973,  0.2068023661, 0.3197786901,  0.2213307347,  &
         0.6056890902,  0.2482440977, 0.9952702980,  0.1371551641,  &
         0.0489159640,  0.8143431334, 0.2031539061,  0.0015841235,  &
         0.3740712432,  0.8942305585, 0.1312805099,  0.7333671813,  &
         0.8150721658,  0.2150734167, 0.6342424945,  0.7219990831,  &
         0.0242157960,  0.4809600476, 0.7923713535,  0.8449218903,  &
         0.0544441868,  0.4279215006, 0.3590238258,  0.1838947613,  &
         0.9042998083,  0.1359787007, 0.8185305046,  0.7367028440,  &
         0.2166166137,  0.4365498142, 0.1304052742,  0.8369450323,  &
         0.0730214308,  0.1337989823, 0.7791380245,  0.5614720206,  &
         0.0137137320,  0.4941961303, 0.2071739157,  0.0672178441,  &
         0.2653912300,  0.6553378032, 0.7363118114,  0.3739845451,  &
         0.7220309977,  0.8761152103, 0.7075589577,  0.0554320598,  &
         0.8374154679,  0.7553562768, 0.0758985562,  0.6895545827,  &
         0.5791676232,  0.5368248070, 0.6991704027,  0.6585039678,  &
         0.6309191431,  0.1905366712, 0.8567762341,  0.1079199772,  &
         0.2166193836,  0.0720456179, 0.7966295032,  0.8679265655,  &
         0.8651794432,  0.8075859125, 0.4996164808,  0.6275097227,  &
         0.2898926034,  0.1784534303/)
    start = start + step + 1
    random_array(start: start + step) = (/ 0.1405176774,  0.0463365664,  &
         0.8115632690,  0.7907425691, 0.3216023445,  0.7707849146,  &
         0.3235481003,  0.4189411154, 0.1931082166,  0.8274935743,  &
         0.0882619890,  0.0129588923, 0.4247478623,  0.4892047861,  &
         0.7892428110,  0.0955109552, 0.4532665915,  0.2608936885,  &
         0.0193740626,  0.1762313888, 0.5705366622,  0.0163626302,  &
         0.3965414313,  0.6957397664, 0.2170310046,  0.5523672848,  &
         0.5432906083,  0.2458303893, 0.7069573046,  0.9505992552,  &
         0.2629717184,  0.6816409087, 0.1229125724,  0.7712999456,  &
         0.5141610233,  0.4308741846, 0.8618400733,  0.6191186334,  &
         0.3613080728,  0.9191683679, 0.1890986736,  0.8779908423,  &
         0.0240955950,  0.1112973071, 0.2436649113,  0.9416474699,  &
         0.5109909487,  0.3633943160, 0.4729364955,  0.5346822215,  &
         0.3321376417,  0.9167115170, 0.1399898527,  0.6761447844,  &
         0.7389333462,  0.1333091219, 0.6044705567,  0.0385543867,  &
         0.1372855790,  0.1166333258, 0.6825281176,  0.6723273661,  &
         0.5078014554,  0.5893426596, 0.5971320228,  0.5692106942,  &
         0.1685866281,  0.7490202849, 0.1808320417,  0.6986053775,  &
         0.0553522425,  0.2136462765, 0.9241142270,  0.0697287850,  &
         0.0843559755,  0.6492898082, 0.1430435719,  0.4928327193,  &
         0.7313640670,  0.1239370661, 0.9756714722,  0.8776713457,  &
         0.8476743442,  0.7402098106, 0.3305999338,  0.4109735179,  &
         0.4943701371,  0.4994844309, 0.6585984496,  0.6223123388,  &
         0.2608979650,  0.0491036664, 0.9298495541,  0.8261489548,  &
         0.4245273467,  0.8254517848, 0.7447282670,  0.1719539011,  &
         0.9078239575,  0.9516559389, 0.1632974030,  0.4775539255,  &
         0.8311788758,  0.0048970701, 0.8669407928,  0.1529094751,  &
         0.0518947378,  0.3000160796, 0.9887352103,  0.3976414291,  &
         0.3590138691,  0.7873544507, 0.7176568350,  0.1772404050,  &
         0.5595000081,  0.9756772611, 0.0534308115,  0.0095109564,  &
         0.8779548823,  0.8585586388, 0.8695774476,  0.8693419913,  &
         0.4322873881,  0.1104003185, 0.5641794186,  0.5596914453,  &
         0.0206351782,  0.6434443157, 0.4577800414,  0.3840677759,  &
         0.6554659834,  0.1468134911, 0.9766746929,  0.6093645948,  &
         0.8494410814,  0.4773140224, 0.3898640382,  0.1938899777,  &
         0.9211841671,  0.6448169917, 0.7268278111,  0.6118583488,  &
         0.1920809991,  0.6271128661, 0.8630609328,  0.3467994534,  &
         0.0639898582,  0.2137348756, 0.1126027099,  0.4404203193,  &
         0.1552125528,  0.5548212062, 0.1716163260,  0.2057822272,  &
         0.8986301181,  0.0006007530, 0.4676138409,  0.7349134969,  &
         0.7985915905,  0.0172109290, 0.7890233420,  0.9816520082,  &
         0.6084026570,  0.2877359843, 0.8531815031,  0.9672448113,  &
         0.6192846742,  0.2622200222, 0.3405133587,  0.5488108995,  &
         0.4547898097,  0.3982044458, 0.9620872479,  0.4280820846,  &
         0.2133078882,  0.5456942828, 0.6513111575,  0.7363245375,  &
         0.5393855063,  0.6527138347, 0.6176192098,  0.8260196070,  &
         0.2053202824,  0.4745250410, 0.8161318331,  0.1260470915,  &
         0.1009660742,  0.9529580566, 0.7767057490,  0.7101578614,  &
         0.3876184916,  0.5469075264, 0.6911164032,  0.4201184783,  &
         0.4375287701,  0.1870147564, 0.2311785835,  0.7590274400,  &
         0.4917344077,  0.2446699065, 0.6566447996,  0.9219481272,  &
         0.7618014276,  0.7925309715, 0.5430735457,  0.0590916309,  &
         0.0877664395,  0.0768792973, 0.3402550778,  0.5472685605,  &
         0.5741783132,  0.1175959759, 0.0632126311,  0.3602924377,  &
         0.4579667122,  0.6644881003, 0.2613968274,  0.4333922108,  &
         0.4558991424,  0.9699916809, 0.0690227358,  0.8093325537,  &
         0.1885099923,  0.5711385350, 0.8582467219,  0.5245971245,  &
         0.5715658647,  0.4217595398, 0.4082902253,  0.4169090372,  &
         0.8023281725,  0.3500531115, 0.4458356144,  0.6986284438,  &
         0.0773188392,  0.3649764963, 0.2077280532,  0.4151199752,  &
         0.8221461674,  0.6572077923, 0.8368500913,  0.8746306827,  &
         0.2233211202,  0.9268457046, 0.6846588864,  0.2285919534,  &
         0.6187255515,  0.6015013300, 0.0831380176,  0.8151396519,  &
         0.3735495080,  0.2113606572, 0.0730533620,  0.2147247618,  &
         0.9630712268,  0.4373591155, 0.9088112428,  0.8415534720,  &
         0.7266744862,  0.8626343975, 0.3735368143,  0.8814851791,  &
         0.2497141836,  0.4892719431, 0.8677371761,  0.1110079402,  &
         0.4363483973,  0.4344578928, 0.0897007432,  0.7864007246,  &
         0.8361693558,  0.2683850320, 0.9598193966,  0.7896696857,  &
         0.2177993552,  0.2122855282, 0.8616910321,  0.5272711056,  &
         0.0314335619,  0.3664092523, 0.4075594431,  0.5718303810,  &
         0.6092285395,  0.4671429043, 0.2780049295,  0.3060905925,  &
         0.0912547371,  0.1878540355, 0.7756629810,  0.0098874927,  &
         0.4157631489,  0.0760228858, 0.6228342445,  0.6935563222,  &
         0.0135274163,  0.9659925722, 0.0642588864,  0.3191482978,  &
         0.5759100610,  0.7414827968, 0.6917154833,  0.7194806222,  &
         0.3415854955,  0.4287047447, 0.4959054120,  0.1463303752,  &
         0.5650857980,  0.6890234118, 0.9921774099,  0.8078476017,  &
         0.3672629667,  0.9997813415, 0.4118444254,  0.3508167557,  &
         0.7847709767,  0.7080755388, 0.4403280310,  0.6713415020,  &
         0.7501177113,  0.2627042123, 0.2460000741,  0.1365725407,  &
         0.2422419463,  0.7395692038, 0.8089851613,  0.2663613467,  &
         0.9278058408,  0.8386628624, 0.6778051106,  0.4602011705,  &
         0.9028101221,  0.6905619683, 0.4246757097,  0.1431113296,  &
         0.1624057917,  0.0193780837, 0.4560814794,  0.4192584616,  &
         0.6496506823,  0.0193285241, 0.7961187246,  0.4341806598,  &
         0.5421036991,  0.8763339726, 0.3158435137,  0.6629004904,  &
         0.7789538382,  0.8876001217, 0.2425979884,  0.1895362885,  &
         0.0455739835,  0.2865872762, 0.8029659156,  0.1346059426,  &
         0.9845493321,  0.6964703905, 0.3675549321,  0.0774107445,  &
         0.9912327450,  0.4405346921, 0.0882215846,  0.8902514449,  &
         0.0450786220,  0.4092146871, 0.1733996934,  0.4420882465,  &
         0.4351084415,  0.1138839844, 0.6062813127,  0.5372241615,  &
         0.6355642738,  0.9073165829, 0.1278429220,  0.6128995905,  &
         0.9593658401,  0.6823579598, 0.3183299486,  0.1772699387,  &
         0.1256611760,  0.7174965003, 0.9357600443,  0.6851622009,  &
         0.4256202586,  0.9653155509, 0.5183326024,  0.4616333496,  &
         0.0925955958,  0.1964364369, 0.5877052572,  0.5375720781,  &
         0.9832292461,  0.9497383026, 0.7648244965,  0.4130693399,  &
         0.7701219335,  0.1439840754, 0.9921238827,  0.8043969254,  &
         0.1844626588,  0.9969390676, 0.9323227046,  0.4577006112,  &
         0.6601375376,  0.2498455083, 0.7286917022,  0.1100264659,  &
         0.2060873402,  0.2515370578, 0.4392817484,  0.1812508623,  &
         0.0310205629,  0.2284397138, 0.9703810541,  0.3278701648,  &
         0.1593939200,  0.5731443218, 0.1724718825,  0.8655542079,  &
         0.2095502179,  0.1924487449, 0.7032235520,  0.0046886042,  &
         0.9800524219,  0.8813379298, 0.4386154041,  0.8010737808,  &
         0.2046594007,  0.6609668254, 0.4744724164,  0.4131399218,  &
         0.3461877631,  0.6237013958, 0.1185802933,  0.7821492288,  &
         0.7472621970,  0.2004283931, 0.7088014358,  0.6405289955,  &
         0.2556624178,  0.0569115346, 0.6166573817,  0.4924720430,  &
         0.2667810399,  0.1601175303, 0.9679162618,  0.6971105153,  &
         0.4232488879,  0.5169732117, 0.2765043814,  0.5027039274,  &
         0.3286709938,  0.3495819955, 0.4074036377,  0.3724240493,  &
         0.9346692698,  0.6011792738, 0.3010664133,  0.6997425242,  &
         0.7828775330,  0.9768619276, 0.6652659504,  0.0794982971,  &
         0.6373021316,  0.7560575982, 0.0659502288,  0.3755839699,  &
         0.7373791945,  0.4386732387, 0.0319429676,  0.8422541459,  &
         0.9523040863,  0.6053033810, 0.3475773967,  0.4858032043,  &
         0.5754335160,  0.9310817105, 0.1208377507,  0.4362500978,  &
         0.4613139972,  0.8600423903, 0.5956521451,  0.5931231513,  &
         0.4423051529,  0.0870181022, 0.2401272561,  0.6463581462,  &
         0.4544698864,  0.9590603434, 0.3451480198,  0.2490445962,  &
         0.1312426495,  0.2903636655, 0.3708037961,  0.9631897677,  &
         0.3306704874,  0.4913243954, 0.1176197751,  0.2196894385,  &
         0.6163673692,  0.3286778371, 0.0244553726,  0.9028819211,  &
         0.2835773295,  0.3606788714, 0.5261344328,  0.4216078911,  &
         0.4106818850,  0.9427896614, 0.8290540609,  0.5039048359,  &
         0.7737556406,  0.1119773809, 0.9153662731,  0.3071411684,  &
         0.5082264996,  0.3384595633, 0.2894517272,  0.8899935893,  &
         0.0566452299,  0.3525134328, 0.3806922856,  0.3421487703,  &
         0.8132239162,  0.6708877629, 0.5848608796,  0.9749831315,  &
         0.3029376084,  0.8628304568, 0.5253518093,  0.5150898784,  &
         0.6638792837,  0.1495401144, 0.4949998930,  0.8624899094,  &
         0.1092341251,  0.4307684736, 0.8872178718,  0.8645580577,  &
         0.7449499368,  0.3847060385, 0.3246958934,  0.9292734993,  &
         0.9404057285,  0.3447922769, 0.4357195828,  0.1943121873,  &
         0.4338655973,  0.9246724536, 0.1177226062,  0.5628168189,  &
         0.9162397161,  0.0048116784, 0.7928470738,  0.0721909193,  &
         0.6159349204,  0.6992086213, 0.1100590166,  0.3201224308,  &
         0.2622140113,  0.2553424180, 0.0632075100,  0.9859955971,  &
         0.0735083537,  0.8242531486, 0.2538454641,  0.1831214144,  &
         0.6418613875,  0.8336348318, 0.0085703700,  0.2810234848,  &
         0.1802632251,  0.7134741573, 0.6253035710,  0.9194858155,  &
         0.2813331570,  0.2037798882, 0.2688116853,  0.3135750877,  &
         0.1466438497,  0.4348221976, 0.6142339137,  0.0180346409,  &
         0.5624749894,  0.0049224589, 0.9659657607,  0.7454204825,  &
         0.4425654551,  0.1373783048, 0.6284295304,  0.4624680536,  &
         0.7109081120,  0.6399392555, 0.8857715336,  0.7621970824,  &
         0.0379341003,  0.0743717845, 0.2585491373,  0.2949979524,  &
         0.8222758137,  0.7560163192, 0.1575367843,  0.7438371167,  &
         0.1724040319,  0.3816795774, 0.9745170858,  0.6661531995,  &
         0.8552500244,  0.7202741897, 0.2734983755,  0.2038155354,  &
         0.1864908750,  0.1773353935, 0.5581714468,  0.5518474894,  &
         0.3492222038,  0.1638274013, 0.1629107777,  0.5594532420,  &
         0.8801902636,  0.8503211311, 0.0283141339,  0.2185313943,  &
         0.9930803756,  0.9012994311, 0.5547400468,  0.8064961662,  &
         0.0974889944,  0.6619512561, 0.0520386022,  0.2058106825,  &
         0.5782521788,  0.2353660933, 0.8314757977,  0.7323898962,  &
         0.6603834950,  0.2867752460, 0.3661101802,  0.4094257073,  &
         0.0145782655,  0.3759117700, 0.1743522842,  0.3912470289,  &
         0.3042594135,  0.2486649833, 0.4100072406,  0.2526932476,  &
         0.3394136532,  0.7197970164, 0.2333446979,  0.3075520159,  &
         0.4404201108,  0.3059433758, 0.8022564848,  0.5186554593,  &
         0.4092572467,  0.2322029845, 0.3714084940,  0.6720248177,  &
         0.1079693595,  0.4853561824, 0.2443969451,  0.2352001086,  &
         0.2451337785,  0.5562286368, 0.4673266635,  0.0240208271,  &
         0.2256733644,  0.6580061233, 0.3994562640,  0.6740048050,  &
         0.7851603494,  0.5376084295, 0.6276199252,  0.0424950872,  &
         0.7419779281,  0.4329071440, 0.4148095674,  0.9317511469,  &
         0.4535768779,  0.3516375616, 0.6107848905,  0.0820082868,  &
         0.6382886610,  0.7159215844, 0.7938302670,  0.5142088591,  &
         0.8828578239,  0.2898104090, 0.4540460680,  0.8534898151,  &
         0.5960236101,  0.7958077939, 0.6020420256,  0.4537336988,  &
         0.6945012344,  0.6856474766, 0.4058729940,  0.6797110589,  &
         0.8575719455,  0.4314492268, 0.8366902950,  0.7818768961,  &
         0.7285556507,  0.0925406856, 0.1310304297,  0.9550208407,  &
         0.9268596635,  0.2960746639, 0.0456103007,  0.1391457007,  &
         0.6399760163,  0.0272937563, 0.7622948445,  0.9880818160,  &
         0.8747709563,  0.0677443972, 0.2039906965,  0.0609179201,  &
         0.3539675155,  0.0155745159, 0.6515227662,  0.1467801576,  &
         0.1379576586,  0.8259016773, 0.2549377498,  0.0184995516,  &
         0.6794908827,  0.5196807402, 0.7298793822,  0.6476737652,  &
         0.8707755470,  0.1948131024, 0.2669447698,  0.7095300615,  &
         0.6116894937,  0.0963890068, 0.1605962273,  0.9315187466,  &
         0.3830392152,  0.9529749798, 0.0679898332,  0.7143818541,  &
         0.9388577550,  0.8634694976, 0.5422284674,  0.7155564695,  &
         0.5108057760,  0.8815182213, 0.4812713345,  0.8106376724,  &
         0.6532417049,  0.4757594199, 0.4848796105,  0.6823456949,  &
         0.6263969811,  0.0100088730, 0.8234357613,  0.2708414273,  &
         0.1102864281,  0.8685523476, 0.9726569430,  0.9075828868,  &
         0.9927717764,  0.7068568927, 0.4874636553,  0.3149859786,  &
         0.4839849150,  0.7878905085, 0.1256530520,  0.7830909988,  &
         0.0312602073,  0.6127436833, 0.3515358937,  0.9849404860,  &
         0.2984769017,  0.5939713218, 0.0782393189,  0.0121611839,  &
         0.3481806532,  0.7765096368, 0.1065007140,  0.2866247798,  &
         0.6192040455,  0.2388666680, 0.9585767208,  0.6815854308,  &
         0.7056198993,  0.9707451926, 0.0708044489,  0.8378900579,  &
         0.3086740193,  0.1919431248, 0.4007520880,  0.1265305990,  &
         0.6966684017,  0.4429814471, 0.1997411471,  0.2891222415,  &
         0.9444292999,  0.6953592702, 0.8762978001,  0.6083500798,  &
         0.2810084827,  0.4623180900, 0.7051621245,  0.3743622064,  &
         0.3936610964,  0.5177087921, 0.7232477659,  0.3751704303,  &
         0.6271460218,  0.2207184536, 0.6333121654,  0.9270314020,  &
         0.2662813965,  0.9788200913, 0.4873311734,  0.9330674386,  &
         0.6847744938,  0.2948549986, 0.3000458334,  0.3837503421,  &
         0.3891954049,  0.0498694909, 0.0140491166,  0.1435700303,  &
         0.1413121008,  0.0206639193, 0.6057005294,  0.4962978978,  &
         0.1797425991,  0.3833951829, 0.0367721046,  0.6467391724,  &
         0.5281873190,  0.8422939829, 0.9566214351,  0.6936353591,  &
         0.9975439738,  0.9329020649, 0.2203405402,  0.5604617820,  &
         0.7473579821,  0.0390685037, 0.8149134551,  0.3477489436,  &
         0.1352245507,  0.5429015440, 0.1412306741,  0.1591577296,  &
         0.6159047177,  0.1661821309, 0.1388902217,  0.0927186421,  &
         0.6605989171,  0.5785044695, 0.1467302718,  0.3588258654,  &
         0.1960045695,  0.0384590132, 0.6141655791,  0.7837176833,  &
         0.2477369915,  0.3704631571, 0.2771359096,  0.5746017602,  &
         0.4411110138,  0.4741631142, 0.3817245166,  0.9675938992,  &
         0.6170541521,  0.8261242692, 0.2622627789,  0.5113549141,  &
         0.5998344832,  0.7344015234, 0.4191378647,  0.2873292150,  &
         0.4706741470,  0.5779538266, 0.7689379903,  0.3903410910,  &
         0.8876321835,  0.7764222561, 0.4239688461,  0.1044184291,  &
         0.8104032115,  0.4918614428, 0.7055558985,  0.2148646311,  &
         0.2822952320,  0.0104748850, 0.9251817129,  0.9724686700,  &
         0.4629553664,  0.4974361796, 0.9810760876,  0.1406352510,  &
         0.0954993038,  0.1743512625, 0.5395969739,  0.3336137271,  &
         0.6808205548,  0.3828407973, 0.6566743086,  0.3107574418,  &
         0.6214478873,  0.7330887195, 0.5881498471,  0.7274733314,  &
         0.9331948850,  0.0438935097, 0.4645575208,  0.7728008188,  &
         0.4310232406,  0.2180283174, 0.3131972809,  0.1979114609,  &
         0.4425472826,  0.5006793287, 0.5210596176,  0.6139309054,  &
         0.2913685556,  0.5416951118, 0.0653461180,  0.5329599900,  &
         0.3893227182,  0.5402608876, 0.3192269101,  0.7343821993,  &
         0.5485296187,  0.6561184234, 0.0138754363,  0.7417405027,  &
         0.0531997346,  0.0366678429, 0.5427216387,  0.2590681927,  &
         0.1801490075,  0.7566168806, 0.9352159750,  0.2263583420,  &
         0.6053916544,  0.4898489515, 0.1317448122,  0.6594198484,  &
         0.6403264951,  0.6296060296, 0.0441350082,  0.3785121520,  &
         0.7850383631,  0.2886360955, 0.5677791861,  0.0557652039,  &
         0.6449601628,  0.1635906479, 0.5253484038,  0.9865512228,  &
         0.3435221765,  0.4968286703, 0.4039351533,  0.4406716046,  &
         0.4754751056,  0.0719896536, 0.2068171161,  0.2654987266,  &
         0.2470453479,  0.1057948601, 0.5957962180,  0.9571107214,  &
         0.0748461615,  0.6454357057, 0.8308500928,  0.7408226175,  &
         0.0093197103,  0.1198528526, 0.7878323285,  0.5087075520,  &
         0.4530115751,  0.0976356192, 0.5064068968,  0.1420214910,  &
         0.0844442721,  0.5939282748, 0.2991699208,  0.3031067921,  &
         0.4686641433,  0.5419721424, 0.3642814796,  0.2875149958,  &
         0.6183835828,  0.1334415853, 0.1767503005,  0.0407517913,  &
         0.4935465445,  0.0149195614, 0.9636055658,  0.9260116736,  &
         0.4547418756,  0.8466035613, 0.9755753284,  0.7572579014,  &
         0.2554962369,  0.3780133465, 0.9098084719,  0.9036041209,  &
         0.7209804913,  0.9470331159, 0.3340669474,  0.5650561819,  &
         0.3505518020,  0.9042067200, 0.3114162354,  0.5093102414,  &
         0.4592524123,  0.4391672777, 0.5725304235,  0.8064855772,  &
         0.4687569535,  0.2499645015/)
    start = start + step + 1
    random_array(start: start + step) = (/ 0.4321793156,  0.9271895368,  &
         0.4329345597,  0.7801841919, 0.8968710499,  0.3557949007,  &
         0.4130211404,  0.7323414349, 0.9061670774,  0.3274453987,  &
         0.1834203520,  0.3197883339, 0.9444368986,  0.0224810653,  &
         0.0586080706,  0.3556092126, 0.5413489052,  0.4032831913,  &
         0.1507035239,  0.1121638727, 0.9580675428,  0.6371794069,  &
         0.6183934890,  0.9063321467, 0.7203844541,  0.9075210883,  &
         0.9859819687,  0.1722198695, 0.7848138219,  0.0748093425,  &
         0.1070931391,  0.1704586681, 0.7229323161,  0.5858942557,  &
         0.1240106858,  0.9766754885, 0.1350224889,  0.9868103787,  &
         0.8764906198,  0.9574660721, 0.9195925284,  0.1585712832,  &
         0.1076601508,  0.9983325484, 0.5723406845,  0.8857566277,  &
         0.1575344266,  0.5281365899, 0.0157001899,  0.2641450877,  &
         0.7898006562,  0.5544597073, 0.6458538535,  0.6317399083,  &
         0.6649467484,  0.4077640026, 0.9568423015,  0.4599840517,  &
         0.8022668943,  0.9707384378, 0.5834226864,  0.4566783301,  &
         0.4095859953,  0.8158790228, 0.2867909490,  0.3545130209,  &
         0.3279135981,  0.6251515087, 0.6261999400,  0.7983612486,  &
         0.5805550702,  0.6841586031, 0.7573667643,  0.0731885827,  &
         0.5359337001,  0.1836326576, 0.4670763000,  0.3235214026,  &
         0.7145118718,  0.4183740332, 0.5159807182,  0.7659448520,  &
         0.7587583306,  0.8127021619, 0.2939613707,  0.1803276324,  &
         0.8046878571,  0.1472553064, 0.1601734788,  0.8234448437,  &
         0.5657530668,  0.7319174688, 0.8450037821,  0.9104191092,  &
         0.6319668159,  0.6628169687, 0.6355967500,  0.5460222797,  &
         0.4598541271,  0.0999996647, 0.8478119195,  0.6302308164,  &
         0.3186735924,  0.3571872923, 0.1939545496,  0.1480759519,  &
         0.9784584624,  0.9972152091, 0.2654835950,  0.3570281134,  &
         0.7770542272,  0.7029928228, 0.3930557688,  0.0573909897,  &
         0.0147517317,  0.5067187073, 0.2822744361,  0.9503604181,  &
         0.1300720495,  0.4762213000, 0.6969547190,  0.4921769277,  &
         0.8222561018,  0.7380209865, 0.4279952996,  0.6356607853,  &
         0.1218544391,  0.9576082458, 0.3559957817,  0.2490814215,  &
         0.9795904368,  0.6397992399, 0.8523116180,  0.8712201698,  &
         0.3069618828,  0.1941995748, 0.2689076844,  0.3601456813,  &
         0.2654901824,  0.9624504277, 0.3266961572,  0.3120903984,  &
         0.0450991955,  0.7577691640, 0.0896379824,  0.9997751158,  &
         0.3665695334,  0.8235231881, 0.4858445588,  0.5490897237,  &
         0.5387087565,  0.2694882531, 0.7407188041,  0.5811820148,  &
         0.4275430395,  0.0298527540, 0.1372842428,  0.1073387692,  &
         0.9369298661,  0.2822120702, 0.5221660699,  0.9864964284,  &
         0.4011099521,  0.6658473816, 0.2419333053,  0.7617958844,  &
         0.8171415031,  0.3046675985, 0.2324559800,  0.4369842925,  &
         0.9142499875,  0.7453886645, 0.0368848095,  0.9619001129,  &
         0.6101675904,  0.8189238407, 0.9612001638,  0.2701678416,  &
         0.4105127290,  0.6908118615, 0.5011415663,  0.3667059128,  &
         0.2145534403,  0.3347260170, 0.5047072967,  0.8762624869,  &
         0.4805589598,  0.4660797090, 0.8106578068,  0.5390011578,  &
         0.0117750997,  0.4767544249, 0.8226027574,  0.5359949640,  &
         0.7607308649,  0.9887724631, 0.8276909033,  0.5932584155,  &
         0.4240160107,  0.7416751676, 0.5662743437,  0.3059884558,  &
         0.4055346493,  0.3587802195, 0.5467827718,  0.4928385855,  &
         0.2341237357,  0.7295231567, 0.7980682234,  0.9143984396,  &
         0.6400428512,  0.1697776858, 0.2493851621,  0.2245701419,  &
         0.6609579788,  0.3468722386, 0.9184581114,  0.2433418960,  &
         0.1734529117,  0.5293315622, 0.2228450191,  0.5130892033,  &
         0.9712347662,  0.3786815569, 0.8204824739,  0.9837238780,  &
         0.7822467276,  0.0235548715, 0.1420903267,  0.8854182248,  &
         0.4401123350,  0.5118388569, 0.1671010955,  0.7323857910,  &
         0.0044423056,  0.1808544959, 0.5350759793,  0.6144832190,  &
         0.2795535335,  0.9212543806, 0.6152227211,  0.9894464237,  &
         0.3703402693,  0.2295752264, 0.7271190886,  0.7900585414,  &
         0.2698967478,  0.8787472345, 0.6796541699,  0.5201621654,  &
         0.7178896163,  0.4010374309, 0.2252738220,  0.9988439612,  &
         0.7053877758,  0.2962534083, 0.6000167567,  0.7359820427,  &
         0.4024816827,  0.6397663079, 0.4943336551,  0.1375213864,  &
         0.8088301153,  0.5865313350, 0.2401032317,  0.2437602012,  &
         0.7804023392,  0.9926942402, 0.1679980344,  0.0106497805,  &
         0.2802188977,  0.6748790531, 0.7959275006,  0.9630311576,  &
         0.8248980586,  0.4774641301, 0.7838117142,  0.1403864470,  &
         0.1036013683,  0.3114704490, 0.5804494723,  0.1864423021,  &
         0.2514618879,  0.2965402163, 0.6608022477,  0.8110161470,  &
         0.1234219310,  0.5731926625, 0.8342515176,  0.7908499725,  &
         0.0375021506,  0.1407508725, 0.5594186471,  0.1303797147,  &
         0.0797299740,  0.7643446380, 0.8310018258,  0.2025705789,  &
         0.4352914522,  0.5940365362, 0.0873822284,  0.9041496636,  &
         0.6018520258,  0.5717924681, 0.9521236712,  0.4488530503,  &
         0.4635295904,  0.0298973414, 0.1305535374,  0.9253953091,  &
         0.7088647972,  0.3679654194, 0.3753501347,  0.7171955857,  &
         0.3244061757,  0.2144003238, 0.9640799876,  0.0135250567,  &
         0.6220199741,  0.8506297026, 0.2879313668,  0.3133738875,  &
         0.9934289216,  0.4773159592, 0.3749518078,  0.7089827087,  &
         0.5355123226,  0.6755407442, 0.4401818536,  0.6703189929,  &
         0.4163023484,  0.2036008193, 0.2192759564,  0.7618488679,  &
         0.9977598781,  0.4673425290, 0.8408004692,  0.6668850640,  &
         0.6911641864,  0.4137482125, 0.8966101160,  0.9532012697,  &
         0.9811886693,  0.2051838289, 0.4371309320,  0.5868677962,  &
         0.1018638691,  0.3368332477, 0.6687213711,  0.1942483121,  &
         0.4454187400,  0.5278647444, 0.8408399887,  0.3703738538,  &
         0.2760747547,  0.9711791485, 0.5890831312,  0.2677445354,  &
         0.0617644839,  0.7462286702, 0.8697811111,  0.8163204155,  &
         0.4763613414,  0.8494518156, 0.8394056205,  0.5206448122,  &
         0.5906124335,  0.3021579778, 0.7866312331,  0.0783155213,  &
         0.3287453512,  0.5274524583, 0.8217304728,  0.7254447630,  &
         0.7318549031,  0.4154200866, 0.5932829213,  0.1211490029,  &
         0.3863468624,  0.7440212319, 0.4951467774,  0.1381354649,  &
         0.9134656682,  0.5036682425, 0.6837860018,  0.0085996279,  &
         0.3029781789,  0.5548309417, 0.7422182852,  0.9553575271,  &
         0.7992608765,  0.8808810823, 0.4804848908,  0.0290140315,  &
         0.4285520411,  0.7387733879, 0.8432048820,  0.2590436894,  &
         0.1825542114,  0.6884168470, 0.4177644444,  0.2777151238,  &
         0.9752049719,  0.6095621293, 0.5586592312,  0.1354951205,  &
         0.7066521106,  0.4099230627, 0.7530711682,  0.3352290108,  &
         0.1404555968,  0.8005583283, 0.8675442105,  0.2067508131,  &
         0.7366699507,  0.0121642882, 0.0071559998,  0.7870247883,  &
         0.4166425182,  0.4485862981, 0.7774256968,  0.8922252464,  &
         0.3178967965,  0.5149490520, 0.8477312406,  0.4254660629,  &
         0.4696875037,  0.7697202133, 0.5577609593,  0.5262195050,  &
         0.0882273364,  0.2798854582, 0.1530778673,  0.2878617588,  &
         0.1882207029,  0.1216648905, 0.6732918598,  0.4802816218,  &
         0.6613635735,  0.6123452175, 0.0907428916,  0.5881107426,  &
         0.3620404321,  0.0956229115, 0.9394484438,  0.8282713615,  &
         0.2140158379,  0.7326976906, 0.1199299292,  0.2395652144,  &
         0.4640910428,  0.7105291276, 0.8378945015,  0.1736803761,  &
         0.9344120060,  0.2684299815, 0.8986617852,  0.4021312033,  &
         0.0821731246,  0.9404522088, 0.4789653126,  0.8823723088,  &
         0.8760633376,  0.2258587845, 0.5278610137,  0.9685327792,  &
         0.0140269754,  0.9258565391, 0.8898798258,  0.0928291219,  &
         0.0604331659,  0.5777624947, 0.8190710036,  0.2437485611,  &
         0.0070249991,  0.9982283660, 0.3248868035,  0.3343753761,  &
         0.4764293449,  0.6249129115, 0.8618563553,  0.9135141334,  &
         0.5838984776,  0.3750928853, 0.0738502503,  0.3877297188,  &
         0.6522809031,  0.0349557893, 0.2288766095,  0.3335097683,  &
         0.0910897914,  0.1992391970, 0.2523631179,  0.3601250958,  &
         0.2212776088,  0.3976264481, 0.2778645649,  0.6308458442,  &
         0.3541135842,  0.9135606908, 0.5234428761,  0.3913472964,  &
         0.1925160129,  0.4600380606, 0.2002843828,  0.3776117849,  &
         0.0094818994,  0.5335850840, 0.8783052664,  0.9420812404,  &
         0.2418082260,  0.6915710321, 0.1792466075,  0.3111947429,  &
         0.5876623282,  0.4090520437