$STORAGE: 4
$DO66
      BLOCK DATA
      COMMON /NUMBRS/ I2,I3,I4,I5,I6,I7
	DIMENSION NSYM1(89),NSYM2(89)
	DIMENSION NSYMB(2,89)
C SHORTEN DATA STMT BY HAVING 2 HALF SIZED ARRAYS
	EQUIVALENCE(NSYM1(1),NSYMB(1,1))
	EQUIVALENCE(NSYM2(1),NSYMB(2,44))
      COMMON /SYMBOL/ NBLANK,NSYM,NSYMX,LFRONT,LFRNTX,LBACK,LBACKX
      COMMON /INIT/ NSYMB,IA(186),IB(180),IC(181),ID(179),IE(174),
     *    IF(184),IG(180),IH(173),II(179),IJ(187),IK(179),IL(180),
     *    IM(176),IN(171),IO(168),IP(163),IQ(160),LMAX(89),LMIN(89)
      DATA I2,I3,I4,I5,I6,I7/100,1000,10000,100000,1000000,10000000/
      DATA NBLANK,NSYM,NSYMX/32,36,77/
C      DATA NBLANK,NSYM,NSYMX/' ','$','M'/
C
      DATA LMAX,LMIN/80,57,80,73,80,57,80,57,80,74,80,57,80,57,3*80,57,
     *    5*80,55,3*80,57,3*80,57,80,74,3*80,57,80,57,80,57,80,55,80,55,
     *    80,55,80,55,80,55,10*80,70,48,80,55,3*80,64,7*80,88,2*80,2*15,
     *  2*47,2*80,76,80,1,10*1,-1,12*1,-1,7*1,-24,1,-24,5*1,-24,-11,-24,
     *    7*1,-24,12*1,11,33,1,26,1,1,61,19,7*1,-7,1,1,-9,1,1,11,41,41,
     *    4,1,1/
C     THE SECOND LETTER IN EACH OF THE FOLLOWING PAIRS IS LOWER CASE.
C      DATA NSYMB/'E',490001,'e',340024,'T',510072,'t',220103,'A',660123,
C     *'a',380185,'O',540239,'o',340245,'I',270245,'i',180251,'N',670268,
C     *'n',420315,'S',440315,'s',290386,'H',650430,'h',420463,'R',550463,
C     *'r',300502,'D',570518,'d',390520,'L',460542,'l',180557,'U',640562,
C     *'u',420609,'B',520641,'b',390669,'C',480688,'c',310712,'F',490726,
C     *'f',300751,'G',560783,'g',470822,'J',360890,'j',180921,'K',620941,
C     *'k',401001,'M',761033,'m',641085,'P',461132,'p',391159,'Q',541175,
C     *'q',391227,'V',701249,'v',461309,'W',941350,'w',671435,'X',611498,
C     *'x',441572,'Y',571623,'y',451683,'Z',461731,'z',311800,'0',491842,
C     *'1',251885,'2',381904,'3',421963,'4',412019,'5',412063,'6',432118,
C     *'7',382184,'8',442215,'9',432275,'+',362341,'-',362347,'!',102351,
C     *'=',362353,'/',282357,'%',282385,'^',122425,'_',342436,'<',312480,
C     *'>',312511,'(',172542,')',172559,'*',442576,'?',352621,'&',532664,
C     *'$',402729,'#',362781,']', 92833,',', 92842,'.', 92851,';', 92858,
C     *':', 92869,''', 92876,'"',182885,'[',312900,'@',482938,' ',503001/
C
      DATA NSYMB/69,490001,101,340024,84,510072,116,220103,65,660123,     
     *97,380185,79,540239,111,340245,73,270245,105,180251,78,670268,     
     *110,420315,83,440315,115,290386,72,650430,104,420463,82,550463,     
     *114,300502,68,570518,100,390520,76,460542,108,180557,85,640562,     
     *117,420609,66,520641,98,390669,67,480688,99,310712,70,490726,     
     *102,300751,71,560783,103,470822,74,360890,106,180921,75,620941,     
     *107,401001,77,761033,109,641085,80,461132,112,391159,81,541175,     
     *113,391227,86,701249,118,461309,87,941350,119,671435,88,611498,     
     *120,441572,89,571623,121,451683,90,461731,122,311800,48,491842,     
     *49,251885,50,381904,51,421963,52,412019,53,412063,54,432118,     
     *55,382184,56,442215,57,432275,43,362341,45,362347,33,102351,     
     *61,362353,47,282357,37,282385,94,122425,95,342436,60,312480,     
     *62,312511,40,172542,41,172559,42,442576,63,352621,38,532664,     
     *36,402729,35,362781,93, 92833,44, 92842,46, 92851,59, 92858,
     *58,92869,39, 92876,34,182885,91,312900,64,482938,32,503001/
C
C
C
C
C                1 -  186 : 186
      DATA IA/638441,80745,638441,80745,637451,80742,635471,80740,632501
     *,80740,626561,80740,621611,80743,674800,774802,873802,1072800,1170
     *800,1368800,1665800,2359800,3054804,37200,41160,44130,46110,48090,
     *50070,51060,52026331,52370,41626331,53410,31426331,54430,21226331,
     *55450,11026331,56470,10926331,56480,10826331,56490,726331,57502,62
     *6331,57512,626331,57502,10726331,56490,10726331,56480,10826331,564
     *70,20926331,55450,31026331,54430,41126331,53410,51226331,52370,614
     *26510,71526500,91826480,111826460,131826440,41260,37260,80533,8061
     *0,80660,80680,80700,80710,80720,80732,673800,674802,774803,874802,
     *974800,1074800,1374800,80007,1374800,1074800,974800,874802,774803,
     *674802,673800,80732,80720,80710,80700,80680,80660,80610,80533,5349
     *0,54490,55490,56490,57490,59490,62080,67050,73030,73012,73000,1149
     *550,949550,849552,10949550,11049550,21449550,42249550,72249550,122
     *249550,6003,7002,8000,9000,11000,13000,15000,17000,20000,23000,260
     *00,29000,1017320,821350,725390,727420,628450,628480,628341,51360,6
     *28341,54400,283443570,283446600,283449630,283452660,283455690,2834
     *58720,283461750,283463780,283462800,283459800,283456800,283453780,
     *283449740,283446710,283443680,628341,65401,628341,62360,628590,628
     *550,727520,724490,820460,1016420,39000,36000,33000,30000,26000,230
     *00,20000,17000,15000,12000,10000,9000,8000,7003,6003,20080,23050/
C              187 -  366 : 180
      DATA IB/42541460,32638500,22737510,12836530,12936540,1219301,55360
     *,1021311,56370,922311,56380,823321,404449570,824331,57500,825331,5
     *7510,10825341,57510,10926341,57520,20927341,57520,31027351,57520,4
     *1128351,57520,51228351,57520,61329361,56510,71429361,56500,8163037
     *1,56490,91931381,55470,82331401,55440,54060,53040,52030,50020,4801
     *0,44000,9000,8002,9010,11020,23030,23050,23070,21169780,21070780,2
     *0971780,10872792,10773790,773800,1367800,1070800,971800,872800,773
     *803,674803,649552,748550,847550,946551,70640,1243551,72620,5561730
     *,5560742,5561730,5562720,5564700,12000,9000,8000,7000,6002,2156882
     *0,21267820,21165820,21064810,20962790,20960780,20958760,20857740,2
     *0855730,20853710,69520,67500,66480,64460,62450,60430,59410,57400,5
     *5380,54360,52340,50330,48310,47290,45270,43260,42240,40220,38210,1
     *93676820,173576820,153376820,143175820,123075820,102875820,9267482
     *0,72473820,52372820,32269820,82020,82003,82690,82720,82730,82740,8
     *2753,82763,22950640,13047680,22945700,52643720,62342730,72041750,7
     *1840561,76630,71639531,77660,71539521,78680,61438511,78690,5133850
     *1,79700,41238501,79710,41137501,79720,31037491,80730,30937491,8073
     *0,20937491,80740,20836491,80740,10836491,80740,10736491,80742,7364
     *91,80740,736481,80740,636481,80742,636481,80730,736481,79730,73648
     *1,79720,735471,79720,835471,78710,10835471,78710,10835471,77700/
C              367 -  547 : 181
      DATA IC/10934461,76690,21034461,75680,21133451,75670,31231451,7566
     *0,31429441,75630,41626441,76610,54357770,64255790,84155790,9395578
     *0,37110,35140,31170,45370,22233480,22231500,22229520,42028530,5162
     *7540,51426411,55450,41226391,56480,41125381,56490,31025371,57500,2
     *0924361,57510,10824361,57510,10824361,57520,724361,57520,724351,57
     *520,723351,57522,723351,56510,723351,56500,822341,55490,922341,554
     *80,11021331,54470,11220331,54450,23243540,33139550,53038550,629385
     *50,82738550,24110,1338441,80670,1038441,80700,938441,80710,838441,
     *80720,738441,80733,638441,80743,44385,44386,638441,80743,738441,80
     *733,838441,80720,938441,80710,1038441,80700,1338441,80670,80007,13
     *67800,1070800,971800,872800,773803,674803,1339451,80740,1039451,80
     *740,939451,80740,839451,80740,739451,80743,639451,80743,394574803,
     *384574800,374574800,364574800,354673800,334673800,294772800,154871
     *800,85069800,45267790,33940551,79640,23840790,13641780,3342770,264
     *4750,1145740,947720,850690,854650,9000,10010,12020,21030,24040,240
     *70,24100,1227460,935460,839490,743510,645520,647540,55480,56502,41
     *4550570,394850570,57380,57372,56370,55380,53390,49410,674805,67480
     *5,651570,750570,10750560,10849560,20948551,80740,21047551,80740,31
     *245541,80730,41443531,80720,61641511,80710,72037501,80680,80006,12
     *000,9000,8000,7000,6002,667800,670800,671800,672800,673803,674803/
C              548 -  726 : 179
      DATA ID/6006,7002,8002,10000,11000,13000,16000,23000,30004,12000,9
     *000,8000,7000,6002,80743,80733,80720,80710,80700,80670,80230,80180
     *,80150,80130,80110,80090,80080,72467800,62070800,51771800,41572800
     *,31373800,21273800,21173800,11074800,10974802,8003,7003,6007,7002,
     *8010,10974800,20974800,21074800,31173800,31273800,41373800,5147280
     *0,61671800,71970800,92367800,80110,80130,80160,80210,80670,80700,8
     *0710,80720,80733,80743,57512,57500,57490,57480,57450,57130,57090,5
     *7070,57050,57040,57020,17010,13010,11000,10000,9000,8000,7003,7012
     *,8020,20951570,31051570,41150570,61349570,81648570,82045570,57026,
     *14020,11020,10020,9020,8022,639451,80746,639451,80746,639451,80747
     *,738461,80732,837471,80720,936481,80710,1035501,80690,11233521,796
     *70,11431411,435564790,21827411,79440,24044780,33945770,53846750,63
     *748740,73649720,93451690,123254650,29160,80742,80730,80720,80710,8
     *0680,80003,80030,80060,80090,92037500,61641510,41443530,31245540,2
     *1047550,20948550,10849560,10750560,750570,651570,21169780,21070780
     *,20971780,10872792,10773790,674806,773800,10773790,10872790,108727
     *80,20971780,21070770,31169770,41268760,51367750,61466740,71664740,
     *91862740,102060750,112356760,132653780,162651790,192651790,2126517
     *90,651572,650570,10750570,10749570,10839441,56470,20937560,3113655
     *0,41335550,51535540,61635520,81736510,111737490,131639450,1338441/
C              727 -  900 : 174
      DATA IE/80740,1038441,80740,938441,80740,838441,80740,738441,80743
     *,638441,80743,374574802,354774800,325074800,265674800,216174803,80
     *743,80732,80720,80700,80680,80650,80590,80544,649553,749552,849550
     *,1249550,62000,69000,72000,75000,77000,78000,1249551,79680,949551,
     *79710,849551,80730,749551,80740,749551,80750,649551,80762,649551,6
     *77176800,647375800,79630,79620,78620,77630,75640,73650,71670,21169
     *780,21070780,20971780,10872792,10773790,773800,674804,774800,10774
     *800,10830361,80730,10830361,79730,20930361,79720,21030361,78720,31
     *129361,78710,41229361,77700,51328361,76690,61527361,76680,71825361
     *,75660,93664760,103662760,93658770,63653780,33651790,23651792,3625
     *0,36260,36270,36280,36293,36303,17120,82031360,62226400,42325430,3
     *4456660,31217451,70520,21019361,72390,20920331,74420,10821321,7642
     *0,10821321,77430,10722321,435666780,722321,435270790,722321,425072
     *800,623321,424874800,623311,414775810,623311,414676810,623311,4046
     *76820,623311,404577825,623311,404676820,623311,414676810,623311,41
     *4775810,722311,424874800,722311,425072800,10722311,435270790,10821
     *311,445666780,10821311,77450,20920311,76460,21019311,75480,3121731
     *1,75500,43052750,53056760,62969780,72872790,92773800,112564671,807
     *30,142361701,80730,80600,79602,78600,76610,73620,69640,19120,22090
     *,23070,24050,24040,24030,24020,10911230,10813220,715191,80740/
C              901 - 1084 : 184
      DATA IF/674802,673800,773802,10872800,11071800,21270800,21567800,8
     *0030,80040,80050,80070,80080,80110,80160,80670,80700,80710,80720,8
     *0733,80743,13080,15050,16030,17020,17012,1674800,1574800,609121,80
     *730,10772800,10871801,95890,21168801,97870,38086980,48085990,68085
     *990,88086980,108087970,148089950,1330381,80670,1031391,80700,93340
     *1,80710,834411,80720,735421,80730,736431,80730,737451,80730,638461
     *,80740,640471,80740,641481,80740,49420,51420,52410,53390,54370,553
     *50,56330,58310,294751590,274553601,80740,625431,546174800,623411,5
     *56274800,621391,566374800,719371,576573800,717351,586673800,915331
     *,606871800,3161800,2962800,2763800,2564800,2366800,2167800,1968800
     *,1769800,1570800,1370800,1270800,1072800,973800,873800,774802,6748
     *00,6002,1221290,923300,824320,726330,627350,627361,55490,273849550
     *,263949550,254149550,224248550,619441,55470,617341,55360,614311,55
     *380,712281,55400,2641550,2443550,2244550,2045550,1846550,1647550,1
     *448550,1248550,1049550,949550,749552,649550,6000,1367800,1066800,9
     *63800,859800,756800,753800,749770,646740,643710,639670,64360,61330
     *,58290,54260,51230,48190,44160,41130,38100,34060,31030,28000,24000
     *,21000,18000,17020,20050,24080,27120,31150,34190,38220,41260,45290
     *,48330,636520,640550,643580,747620,750660,754690,857720,960760,106
     *4790,1366800,80007,1367800,1070800,971800,872800,773803,674803/
C             1085 - 1264 : 180
      DATA IG/1237490,941500,844520,746530,647540,648550,55490,56502,575
     *00,649570,648570,747570,846570,944560,1240560,55000,53000,52000,50
     *000,48000,47000,1237490,941500,844520,746530,647540,648550,55490,5
     *6502,57500,649570,648570,747570,846570,944560,1240560,55000,53000,
     *52000,50000,48000,44000,12000,9000,8000,7000,6002,1313451,80740,10
     *39451,80740,939451,80740,839451,80740,739451,80743,639451,80743,39
     *4574804,394673802,394772800,394871800,395069800,405267790,40556479
     *0,79400,78410,77420,75440,74450,72470,69500,65540,1232451,75620,93
     *1411,76660,829391,78680,728371,79700,627351,80720,627341,80730,263
     *374810,263275810,253275820,253176820,142481900,142882900,143083900
     *,133284910,132023331,91840,131926341,91850,121927341,92850,1218273
     *51,92862,121826351,92860,121825341,92860,121823341,92860,121820331
     *,92860,123285920,133185910,123084910,92884910,72683900,52482900,42
     *381900,32480890,21516251,88790,11316261,88780,1117281,87760,918301
     *,86740,819321,85720,720361,84680,721391,83650,823451,81590,1092480
     *0,21126780,31628760,41730740,71832720,101835690,66380,60440,253176
     *820,253275820,263275810,263374810,627341,80730,627351,80720,728371
     *,79700,829391,78680,931411,76660,1232451,75620,80006,1268800,97180
     *0,872800,773800,674802,80745,80732,80720,80710,80700,80680,80660,8
     *0630,80600,80570,80540,80510,80480,80450,80420,396770800/
C             1265 - 1437 : 173
      DATA IH/366272800,335973800,305673800,275374800,245074800,21477480
     *0,184474800,154174800,123874800,35090,32060,29030,26000,23000,2000
     *0,18000,17000,18040,21070,24100,28130,31160,34200,233774800,264074
     *800,294374800,324674800,354974800,385273800,415673800,445972800,47
     *6369800,80500,80530,80570,80600,80630,80660,80680,80700,80710,8072
     *0,80732,80745,55493,55482,55460,55450,55420,55400,55370,55340,5531
     *0,55270,55240,55210,184247550,153948550,123649550,93349550,6304955
     *0,32749550,23000,20000,17000,14010,17040,19070,22100,122549550,152
     *849550,183149550,213448550,243648550,273947550,294345550,55320,553
     *50,55380,55410,55440,55460,55470,55480,55493,80744,80732,80720,807
     *10,80700,80680,80670,80640,80600,80570,80530,80490,80450,80410,803
     *70,336470800,306072800,265673800,225273800,184874800,144474800,104
     *074800,73774800,33374800,2974800,25000,21000,20000,20020,24060,281
     *00,32140,36180,40220,44260,48300,52340,56380,60420,64460,68500,725
     *40,76580,80600,80570,80540,80500,76460,73420,69390,65350,61310,582
     *80,54240,50200,47170,43130,39090,36050,32010,28000,24000,21000,
     *   21030,24070,112874800,153274800,193674800,234074800,274474800,3
     *14874800,355273800,385673800,426071800,466569800,80500,80540,80580
     *,80620,80660,80680,80700,80720,80732,80745,55492,55482,55470/
C             1438 - 1616 : 179
      DATA II/55460,55440,55410,55380,55350,55320,55280,55250,55220,1841
     *45550,153847550,123548550,93249550,52849550,22549550,2249550,19000
     *,16000,15000,19020,23060,27110,32150,36190,40240,44280,49320,53360
     *,55350,55320,55290,51250,48220,45180,41150,37110,34080,30040,27000
     *,23000,20000,15000,16020,19060,92349550,122649550,163048550,193348
     *550,223647550,254045550,55290,55320,55360,55390,55410,55440,55460,
     *55470,55482,55492,80740,674800,673800,773802,772800,872800,971800,
     *1070800,1169800,1367800,1465800,1664800,1862800,1960800,2158800,23
     *57800,1013251,80550,816261,80530,719281,80510,721301,506771800,722
     *311,486573800,624331,466373800,626351,456174800,283743591,80740,29
     *3941581,80740,56310,54330,53340,51340,50330,50310,51290,52270,5426
     *0,624411,56470,622391,485774800,621381,505974800,619361,526173800,
     *717341,546273800,815321,556472800,1012311,576870800,2959800,276080
     *0,2562800,2464800,2266800,2067800,1968800,1769800,1570800,1471800,
     *1272800,1172800,1073800,973800,873800,774802,6002,649552,648550,74
     *7550,746550,845550,944550,1143550,1242550,1340550,1539550,1637550,
     *1836550,1934550,911211,55330,714221,55310,615241,304348550,617251,
     *284249550,618401,55490,203949550,37210,36230,34210,34200,618360,61
     *7371,55490,715281,303949550,714271,324049550,812251,334348550,2435
     *550,2236550,2138550,1939550,1841550,1642550,1543550,1345550/
C             1617 - 1803 : 187
      DATA IJ/1246550,1147550,948550,848550,749550,649552,80743,80733,80
     *720,80710,80700,80680,80660,80640,80620,659800,657800,655800,75380
     *0,750800,748800,846661,80720,844631,80730,941611,80730,1039591,807
     *40,1337571,80740,5474800,5274800,50000,48000,45000,43002,1335450,1
     *037470,939490,842511,80740,844541,80740,746561,80740,748581,80740,
     *751601,80730,653631,80720,655661,80690,657800,80590,80620,80640,80
     *660,80670,80690,80700,80710,80720,80732,80744,80742,81673800,51872
     *800,31971800,21969800,21966800,11963800,11860800,609161,80570,6548
     *00,651800,748800,10844800,10941651,80700,31138601,80720,41435571,8
     *0730,51732541,80740,72028511,80740,104874800,134574800,41160,38190
     *,37220,38250,41280,44310,354774800,385074800,415474800,445773800,4
     *76073800,506372800,536770800,80560,80590,80620,80650,80680,80710,8
     *0720,80730,80743,8000,1054800,1154800,1354800,1559800,1765800,1968
     *800,2170800,2372800,2573800,2773800,610281,80740,612301,80740,6143
     *21,80740,616341,80740,618361,80740,620381,80740,622401,80740,62342
     *1,80740,625441,80740,627461,80740,629471,80740,631491,80740,633511
     *,80740,635531,80740,637551,80740,639571,80740,641591,80740,643611,
     *80740,644631,80740,646651,80740,648661,80740,650681,80740,652701,8
     *0740,754800,756800,858800,860800,1062800,1164800,1365800,1667800,2
     *369800,2971800,2973800,2975800,733550,933550,1133550,1337550/
C             1804 - 1982 : 179
      DATA IK/1544550,1746550,1947550,2148550,2349550,2549550,608271,554
     *90,610291,55490,612311,55490,614331,55490,616351,55490,618371,5549
     *0,620391,55490,622411,55490,624431,55490,626451,55490,628471,55490
     *,630550,632550,734550,836550,938550,1140550,1842550,2244550,224655
     *0,2248550,47330,53270,58220,61190,64160,66140,68120,70100,71090,83
     *248720,72654730,62258740,52060750,41763760,31565770,21466780,21268
     *780,11169790,11070790,971800,872802,773805,872802,971800,11070790,
     *11169790,21268780,21466780,31565770,41763760,52060750,62258740,726
     *54730,83248720,71090,70100,68120,66140,64160,61190,58220,53270,473
     *30,71650,765710,764720,864722,964720,963730,1062730,1260740,74000,
     *75000,76000,77000,80000,80003,12000,10000,9002,8002,7002,1052590,1
     *449630,1747650,1946690,2145710,2244730,2444740,2544611,75630,12152
     *61,446166760,1217271,456068770,1219281,465969780,1220291,475770790
     *,1221301,505571790,1222301,80720,1223311,80720,1224321,80720,12243
     *31,80720,1225341,80722,1226351,80720,1226361,80720,1227371,80710,1
     *227381,80710,1228391,79700,1229401,79690,1229411,79680,1230431,786
     *70,1231441,78650,1231471,78620,1332511,77570,1333760,1534750,18357
     *40,2336730,2337720,2339700,2342680,64470,23140,26110,92758630,8275
     *6670,62854700,52853720,42853730,32753740,31114261,75530,21015241,7
     *6530,10955661,77690,10857651,78700,871780,872780,839451,79720/
C             1983 - 2162 : 180
      DATA IL/739451,79720,639451,79730,639451,80735,739451,80730,738451
     *,80730,838451,80720,938461,80720,11037461,80710,11136471,80700,112
     *35481,80690,11334501,79680,21433511,79660,21730541,78640,32026780,
     *34042770,43943760,53944750,63845740,73746730,83547710,103449700,12
     *3252660,29150,32220,34220,35220,37220,38220,40220,42220,43220,2230
     *33450,223035460,223036480,223038490,2230405 1,223041530,223043540,
     *223044560,223046570,722301,59470,722301,60490,      822301,62500,8
     *22301,64520,922301,65540,922301,67550,1022301,68570,1222301,70580,
     *72000,73000,75000,76000,78000,80003,1222300,1022300,922302,822302,
     *722302,25160,29130,30110,31090,83241800,73241800,53241800,43141800
     *,41316311,80420,31218291,435268800,21120271,455368800,21046531,806
     *80,10947541,80680,10948551,80680,10848551,80680,848551,80680,84956
     *1,80684,949561,80682,1048561,80682,1147561,80680,11246561,80680,11
     *345561,80680,21444551,80680,21542551,80680,31740541,80680,32037541
     *,80680,42431531,80680,55268800,65168800,75068800,84968800,47090,45
     *110,43130,41160,37220,49270,55220,58190,61160,64140,66120,68100,70
     *090,71080,62630461,72540,52035471,74590,41738481,75620,31539491,76
     *640,31341501,76660,21242511,77670,11143521,78680,11044521,78690,94
     *5531,79700,946531,79710,846541,79720,846541,80720,846551,80720,747
     *551,80733,846551,80730,946551,80720,945551,80720,11045551,80720/
C             2163 - 2338 : 176
      DATA IM/11144541,80710,21343541,79700,21442531,616769790,31640531,
     *79590,41938521,78570,52235511,78570,62730501,76570,74957750,948577
     *40,104658720,124460690,42140,39160,34190,80585,80630,80670,80680,8
     *0695,71769800,32369800,12869800,3169800,3569800,3869800,4169800,44
     *69800,14769800,25069800,41823531,80690,335569800,385769800,4360698
     *00,476369800,516569800,546769800,80570,80590,80620,80640,80660,806
     *80,80700,80720,27170,31140,113353640,93549680,83647700,73746720,53
     *845730,43944740,33943750,31728401,76420,21430541,77610,21331511,77
     *650,11133491,78670,11034481,78680,10935471,79690,935461,79700,8364
     *61,79710,836451,80710,837451,80720,737451,80726,837451,80720,83645
     *1,80710,836461,79710,935461,79700,10935471,79690,11034481,78680,11
     *133491,78670,21331511,77650,21430541,77610,31728401,76420,33943750
     *,43944740,53845730,73746720,83647700,93549680,113353640,31140,2717
     *0,61460,64410,66380,112036680,82234700,62332710,52331730,42330501,
     *74530,32329451,75580,22328421,76610,12127401,77640,11113191,273866
     *780,11026371,78670,926361,79690,825351,79700,825351,80710,825341,8
     *0710,725341,80720,725331,80733,825341,80720,826341,80720,10826341,
     *80720,10927341,80710,11027351,80710,21128361,79700,21228371,79690,
     *31329381,78680,41430391,77670,41631411,77650,51832421,76630,621334
     *51,75600,82634501,74540,72090,71100,70120,68140,66160,64190,61220/
C             2339 - 2509 : 171
      DATA IN/58250,53310,48326,48327,70105,70105,48327,48326,48329,4832
     *9,48329,48329,98005,98005,253545559,253545559,253545559,253545559,
     *12000,15000,18000,21000,24000,27020,30050,33080,36110,39140,42170,
     *45200,48230,51260,54290,57320,60350,63380,66410,69440,72470,75500,
     *78530,80560,80590,80620,80650,80680,1266740,1563770,1862780,216168
     *1,79720,2460661,80740,22760651,80750,53060651,80750,83360661,80740
     *,113661681,79720,143962780,174263770,204566740,48230,51260,54290,5
     *7320,61435600,31738630,21841660,10812191,69440,614201,72470,515201
     *,75500,515201,78530,614201,80560,10812191,80590,21862800,31765800,
     *61468800,74660,77630,78620,616872790,606674800,606575802,606674800
     *,616872790,78620,77630,74660,182248510,182248520,182248540,1822275
     *70,182225610,182224610,182224291,52480,182224281,52480,182224291,5
     *2480,182226351,52480,182228351,52480,22182,182224271,64610,1822242
     *81,64600,182224301,64580,182224643,182224301,49440,182224281,50460
     *,182224271,51480,182248520,182249532,182224271,53480,182224281,534
     *70,182224301,52450,182224510,182224500,182224470,182224300,1822242
     *80,182224270,41390,42380,44360,45350,47330,48320,50300,51290,53270
     *,54260,243941560,233842570,213644590,203545600,183347620,173248630
     *,153050650,142951660,122753680,112654690,92456710,82357720,6215974
     *0,52060750,31862770,21763780,1565800,1466800,1268800,1169800/
C             2510 - 2677 : 168
      DATA IO/971800,971800,1169800,1268800,1466800,1565800,21763780,318
     *62770,52060750,62159740,82357720,92456710,112654690,122753680,1429
     *51660,153050650,173248630,183347620,203545600,213644590,233842570,
     *243941560,54260,53270,51290,50300,48320,47330,45350,44360,42380,41
     *390,49310,54260,58220,61190,64160,67130,69110,93248710,82456720,61
     *961740,51664750,41367760,31070770,10773790,10476790,278800,179800,
     *179800,278800,10476790,10773790,31070770,41367760,51664750,6196174
     *0,82456720,93248710,69110,67130,64160,61190,58220,54260,49310,2129
     *51590,183248620,173347630,163446640,153446650,153545650,153644652,
     *163743640,173842630,183842620,203941600,213941590,57230,56240,5525
     *0,61527531,74650,32128521,77590,78020,13842790,3644800,3545802,364
     *4800,13842790,78020,32128521,77590,61527531,74650,55250,56240,5723
     *0,213941590,203941600,183842620,173842630,163743640,153644650,1535
     *45650,153446650,163446640,173347630,183248620,212951590,66560,6954
     *0,72520,73510,75510,76510,77520,78520,546468780,576069790,79710,79
     *720,80720,80730,41173800,21323291,80730,11421341,80730,1520381,807
     *30,1521401,80730,1524421,80720,11429441,80720,21332451,80710,41134
     *471,80700,354968800,365166800,375562790,79380,78400,77410,76420,75
     *440,74450,72470,70490,67520,26180,30130,33110,35090,37070,39060,40
     *050,41040,42030,21730430,21533450,11434461,68520,11336720/
C             2678 - 2840 : 163
      DATA IP/11237740,1138760,1036770,1033581,78660,1031541,79690,92953
     *1,79700,927541,80710,925551,80720,923441,465672800,10922421,475871
     *800,11020401,486069790,11018381,496366790,21116351,78510,21215331,
     *77520,33154750,32956730,42860700,26050,62439470,62239470,52339470,
     *42538470,32738470,23037470,47020,11518470,11421470,1324470,1227470
     *,1230470,1133470,1135470,1137470,1238470,11339470,21839470,3253947
     *0,52539470,25080,25130,114057720,114053750,114051780,133650800,143
     *149810,152948830,152747840,152546641,85730,142346621,85750,1422456
     *01,86770,132145591,86780,132045591,87790,121944591,87790,111944591
     *,87800,96004,91743581,88810,81643571,88810,81643571,88800,81643571
     *,87800,96004,81741551,85760,91841551,84750,91940541,83740,10203954
     *1,83720,112238531,83700,122436531,83680,132734521,84650,145161850,
     *155061860,164861850,184761840,44200,42220,37260,326341,54460,82634
     *1,54460,1326341,54460,1926341,54460,2426341,54460,3446540,33546540
     *,84046540,54130,54190,56240,61260,67260,263440720,263445770,326341
     *,80460,826341,465456800,1326341,465461800,1926341,465467800,242634
     *1,465472800,3446541,80770,33546540,84046540,54130,54190,56240,6126
     *0,67260,263440720,263445770,263446800,263446541,80560,263446541,80
     *610,263446541,80670,263446541,80720,263446541,80770,41166760,21349
     *780,11432790,1521800,1520800,1521800,11432790,21349780/
C             2841 - 3000 : 160
      DATA IQ/41166760,21140,23120,411240,609250,25000,25010,24030,23040
     *,21070,11040,13020,14010,15003,14010,13020,11040,142136430,1223344
     *50,411241,46330,609251,47320,2532470,12532470,32433460,42334450,72
     *136430,142136430,122334450,112433460,102532473,112433460,122334450
     *,142136430,76670,78510,79420,80410,80400,80410,79420,78510,76670,7
     *7680,79510,80410,80400,80410,79510,77680,4,77680,79510,80410,80400
     *,80410,79510,77680,48310,52270,55240,57220,59200,61180,30717620,31
     *216311,63480,32752640,32554650,72756660,123258670,123759670,121922
     *421,67600,111827471,68610,111832521,68610,111737571,68620,11174268
     *0,111747680,111752720,121857760,121860760,121950551,76580,13204867
     *1,76720,142247660,152446660,162646650,172746630,192847620,22284860
     *0,242750560,47330,53270,56240,60200,173149630,152654650,132357670,
     *112036441,69600,101830501,70620,91626541,71640,71424561,73660,6132
     *1331,475967740,51219291,516168750,41118271,536269760,31017251,5563
     *70770,30916231,576471770,20815221,586572780,20814211,596672780,107
     *14201,606673790,10713191,616773792,612181,626874806,10713191,61677
     *3792,10714201,606673790,20814211,596672780,20815221,586572780,3091
     *6231,576471770,31017661,77700,40915661,76690,50713661,75680,136567
     *740,121966730,121864710,121962700,132060690,132357670,152654650,17
     *3149630,60200,56240,53270,47330/
      END

