parameter (infinity=9999)
      parameter (maxprob=1)
      parameter (maxsize=1000)
      integer x(maxsize),y(maxsize),row(maxsize),a(maxsize,maxsize),
     *        size(maxprob),seeds(maxprob,13,9)
      data size/1000/,seeds/
     *1467951035,  34132203,1177785723,1644361979,1107020358,1258085496,
     *1732727402,1035237928,1829170789, 859848180,1448629007, 216125828,
     *1898416216,1988101046, 295680630, 502679734, 345510902,1854436408,
     *1259266807, 769198337, 623053321,1712840962,1315678770,2089030449,
     * 986556058, 825925556, 108885809, 102396609,1385873521, 638118641,
     *1173577427,1626772841, 903214912, 958230137,1192545073, 432060893,
     *  50919727, 648377484,1400281354,1828718444, 591361260,1005359468,
     * 691021804,1561389169, 371049967,1538396674,1246106642,1278198277,
     * 483873893,2030577251,1973112116,1651851112, 897304231, 170661015,
     *1593961319,1779358951,1240134496,1995460186,  73702422, 881222346,
     * 555919357,   4273606, 800694094,1080629140, 902146492,1669335842,
     * 887041890,1508039202,1036532706,1268341930,1630316774, 160111364,
     *1869159963, 843555592,1799552663,1972124053, 812184527, 330293021,
     *1685722653, 238925421,1802049117, 773115613,1306691565, 216663884,
     *1391673579, 804214555,2066777288,1723969966,1550468461,1512880796,
     * 404011630,1509953240,1182722520,2010718936,1382043608, 975294691,
     * 742099934, 929309701, 344729637, 408912907, 967747786,1913670855,
     *1798740585,1156218577, 326657427, 307189827,2010136915,1914355923,
     *1373248634, 585351229, 562161089, 727206764,1430151572,1296182679,
     * 152759181,1945132452,2053360415/