Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0049/font5.for
There is 1 other file named font5.for in the archive. Click here to see a list.
      SUBROUTINE FONT5
C     FONT5                                                     09/20/67
C     FONT5 - COORDINATE ARRAYS FOR OUTLINE ROMAN LETTERING WITH SERIFS
C
C     DONALD BARTH, C/O K.B. WIBERG, DEPT. OF CHEMISTRY, YALE UNIVERSITY
C
      COMMON/FONT/LOCATN(128),KRD(950),ICHECK(2)
      DATA ICHECK/4HFONT,4H MIS/
      DATA   (LOCATN(I), I=  1, 32)   /   8360836, 806790679, 806840684,
     1 807050705, 807300730,   7380738,   7550755,   7780778,   7860786,
     2   8130813,     10001, 909190919,   8840884,     10001,     10001,
     3     10001, 108910891,     20322,    110341,    300357,    470372,
     4    590388,    710403,    820416,   1000446,   1130459,     10001,
     5 708520852,1108570857,     10001,     10001,     10001/
      DATA   (LOCATN(I), I= 33, 64)   / 208960896,   1200469,   1320485,
     1   1430495,   1500501,   1620519,   1710532,   1870547,   2000565,
     2   2200582,     10001, 500010001, 308980898,     10001,     10001,
     3     10001,     10001, 409170917,   2340594,   2560612,   2640620,
     4   2760632,   2830639,   2930649,   3060662,   3160673,     10001,
     5 608770877,1008670867,     10001,     10001,     10001/
C
C     FOLLOWING LOCATN CARDS NOT REALLY NEEDED EXCEPT AS SAFEGUARD. ANY
C     ATTEMPT TO WRITE GREEK CHARACTERS IS TRANSFERRED TO ROMAN.
C
      DATA   (LOCATN(I), I= 65, 96)   /   8360836, 806790679, 806840684,
     1 807050705, 807300730,   7380738,   7550755,   7780778,   7860786,
     2   8130813,     10001, 909190919,   8840884,     10001,     10001,
     3     10001, 108910891,     20322,    110341,    300357,    470372,
     4    590388,    710403,    820416,   1000446,   1130459,     10001,
     5 708520852,1108570857,     10001,     10001,     10001/
      DATA   (LOCATN(I), I= 97,128)   / 208960896,   1200469,   1320485,
     1   1430495,   1500501,   1620519,   1710532,   1870547,   2000565,
     2   2200582,     10001, 500010001, 308980898,     10001,     10001,
     3     10001,     10001, 409170917,   2340594,   2560612,   2640620,
     4   2760632,   2830639,   2930649,   3060662,   3160673,     10001,
     5 608770877,1008670867,     10001,     10001,     10001/
      DATA   ( KRD(I), I=   1,  50)   /1003487232,      1057, 103248380,
     1 841844609, 940048897, 572099141, 240322817, 303333376,1038359986,
     2 578035645,  29913787, 799892343, 962483058, 891010734, 786247530,
     3 948838245, 877365921, 536870913,  34703482,  61893660,1038412282,
     4 664461013, 759876208, 519355706,1038398957, 650816200, 746231395,
     5 505710893,1003487232, 968748890, 866872860, 432303289, 124833808,
     6  12623973, 171181440, 537593634, 875399041, 950905639, 812290659,
     7 505842019, 307470541, 217305399, 395766266, 664462102, 861784978,
     8 968815616,  29913755, 798809972, 957231976, 844861057/
      DATA   ( KRD(I), I=  51, 100)   / 536870913,  34703482,  61893660,
     11038412282, 597286580, 754661032, 643337698, 304409533,  30307221,
     2 928867129, 765782319, 519651953, 692769448, 680111692, 517256482,
     3 741117764, 914235264,      1057, 102885435,  28341181,  30307221,
     4 928867129, 765782319, 519651953, 692769448, 680111692, 517256482,
     5 370541952,      1057, 102885435,  28341181, 867987194, 766144028,
     6 432303289, 124833808,  12623973, 171181440, 537528002, 774637345,
     7 848144265, 950544905, 580493924, 607619490, 372544744, 215170292,
     8 326493626, 531195575, 794577714, 868152320,  29749627/
      DATA   ( KRD(I), I= 101, 150)   / 364177711, 653912667, 599323548,
     1 968748858, 841844609, 940081697, 605653613, 315918657, 370507776,
     2   1082466, 127986715,  30340096, 980448156, 968683162, 674006913,
     3 939524097, 101976346, 129002524,1003487232, 567178139, 935127846,
     4 810191425, 470122721, 136351750,   8430698, 212084008, 308548804,
     5 271944130, 574165606, 665382427, 567211008,  29782427, 397732144,
     6 732589691, 667841435, 935127505, 940212558, 315918689, 404094976,
     7   1082466, 127986715,  30340096,  29782427, 397732130, 741117764,
     8 914235264,      1057, 102885435,  28341181, 995127484/
      DATA   ( KRD(I), I= 151, 200)   / 476803996, 968748890, 875399041,
     1 940180097, 706415319, 470155412, 136479937, 201326593,  34670682,
     2  61893660,1003487232,  29651659, 766144123, 667841435, 935127840,
     3 805525698, 269780256,      1057, 102885435,  28341181, 432566939,
     4 798809972, 957231976, 844861057, 537264385, 171021352,  12599348,
     5 124970267, 433027514, 531162743, 726351565, 713659939, 505842019,
     6 307470541, 217305399, 395766717,  29913787, 799892343, 962483058,
     7 891010734, 550810914, 370541952,      1057, 102885435,  28341214,
     8 329771641, 729503444, 724156911, 318041021, 369362083/
      DATA   ( KRD(I), I= 201, 250)   / 105947148,  16830583, 194276764,
     1 566914809, 863884176, 953000741, 775554592,1073258053, 642420419,
     2 740854211, 408264041,1038584226, 372544744, 215170292, 326493626,
     3 531162743, 726351565, 713659939, 506393600,  29913787, 799892343,
     4 962483058, 891010734, 618529440, 383038754, 370541952,      1057,
     5 102885435,  28341214, 329771641, 729503444, 724156911, 318041021,
     6 968748890, 866872860, 432270522,  92331029,  21022801, 183745130,
     7 747347686, 743050754, 438602980, 140614698,  10486817,  69306561,
     8 403178145, 774706021, 947790698, 884717230, 321081525/
      DATA   ( KRD(I), I= 251, 300)   / 191062297, 430434937, 730618677,
     1 925780891,1003487232,  30307221, 928867129, 766044706, 639239808,
     2 268698913, 371583194, 126967861,  22049725,  29782427, 397732134,
     3 340102594, 573181604, 745237147, 666497948, 968748858, 845943523,
     4 672629152, 269651076, 107079739,  28341181,  29782427, 397732330,
     5 766144123, 667841435, 935127488, 436332603,  28341181, 995127580,
     6 297004250, 347566620, 683436795, 767259548, 968748890, 638124499,
     7 335839322,  61893660,1003487232,  29815227, 431319538, 732589691,
     8 667841435, 935127599, 841844609, 940016097, 538511786/
      DATA   ( KRD(I), I= 301, 350)   / 237241633, 301989889,  34703725,
     1 127986715,  30340096,  29815227, 431319538, 732589691, 667841435,
     2 935127599, 573146753, 671351041, 303401325, 127986715,  30340096,
     3  30306562, 741117764, 914235264,    682202, 126967861,  22049725,
     4 941427491, 855394034, 657870002,  84950029,  46247115, 281326895,
     5 285656593, 621395563, 244424743,   5247010, 101941600, 504924772,
     6 673875744, 940443614, 647273702, 206770403, 304449987, 576264808,
     7 647951360,  26505532, 318096818, 557436626, 824000365, 950937446,
     8 877365921, 570884417, 270663776, 125853721,1038598672/
      DATA   ( KRD(I), I= 351, 400)   / 653965002, 747279971, 539462019,
     1 341090602, 349584880,1003487232, 880547524, 607653220, 274963658,
     2 214153520, 454542992, 653899404, 750563180, 954089297, 791170451,
     3 253936719,  48245769,  39948482, 303497728, 706480996, 945627069,
     4 563901244, 843977603, 671711844, 573015424, 302187650,  71342089,
     5  10531919, 185846131, 490326648, 562587614, 420922896, 619294313,
     6 610800035, 406098150, 210971886, 319178685, 880547524, 607653220,
     7 274963658, 950939502, 888915634, 557206770, 185678894,  11543590,
     8 105056545, 470287009, 808293253, 880769740, 214153520/
      DATA   ( KRD(I), I= 401, 450)   / 454542960, 720057277, 135431394,
     1 250625105, 252956951, 362212892, 734850938, 966680438, 861623958,
     2 662300314, 631793111, 457623185, 620150178, 504890880, 134350781,
     3 242394251, 148028657, 321310195, 657114835, 827118451, 958283631,
     4 890028783, 819736297, 712612325, 441751749, 172133634, 506136384,
     51073587078, 945655618, 739770592, 101746691,   4232294, 242327593,
     6  11546670, 116638686, 454542896, 618212904, 511090024, 347420016,
     7 455048191, 410492550, 744166019, 505809123, 172135654, 410973184,
     8  26505532, 319112594, 523816594, 756794126, 851217249/
      DATA   ( KRD(I), I= 451, 500)   / 941490784, 649673263, 520536431,
     1 350530850, 370541952,      1057, 102883352,  27194368, 980434515,
     2 691669793, 941490176,   1148162, 283129871,1038479868, 733734648,
     3 728225141, 190963833, 196473789, 554454835,1073519364, 707331520,
     4 369329282,  37754888,  43100362, 278176038, 273879299, 371657251,
     5 608803448, 562587614, 701199163, 899506998, 760895030, 562587195,
     6 701428736,  26505532, 314197618, 623464339, 959302449, 482214560,
     7 345284898, 370541952,      1057, 102883352,  27194368, 980443740,
     8 701106977, 941490176,   1148162, 292576280,1003487232/
      DATA   ( KRD(I), I= 501, 550)   / 995115187, 221461745, 287657363,
     1 489145871, 588860051, 758926129, 888998753, 941490880, 752533136,
     2 654883340, 539526721, 604373389, 385171760, 249770178, 236193024,
     3      1057,  69286927,  17757184,  17059123, 319112594, 523816594,
     4 756794126, 851217249, 941490784, 649673263, 520536431, 350530850,
     5 370541952,      1057, 102874127,  17757184, 423120562, 790445934,
     6 951984997, 877365921, 537264353, 169938981,   8399918,  83018994,
     7 423590321, 521749165, 749414054, 607619490, 338925769, 212055376,
     8 455013376,  17059123, 318096818, 557436626, 824000365/
      DATA   ( KRD(I), I= 551, 600)   / 950937446, 877365921, 570884385,
     11072990561, 404094976,   1082466, 125853721,1038598672, 653965002,
     2 747279971, 539462019, 341090602, 349584880,1003487232, 642288097,
     3 402948289, 136384550,   9447469,  83018994, 389500498, 689721139,
     41073515361, 941490688, 538478178, 652179857, 454574670, 649700934,
     5 541494659, 306419913, 213104944, 421458944,  17059123, 318129618,
     6 624611122, 924730254, 920433356, 685357680, 689422734, 313821537,
     7 404094976,   1082466, 116407312,1003487232, 959302481, 857426451,
     8 422791281,  50345997,  45197513, 678106820, 674728354/
      DATA   ( KRD(I), I= 601, 650)   / 271781990,  41951233,  34670690,
     1 202768896, 740068195, 945691496, 849029389, 216218896, 454542992,
     2 754759531, 951995325,  17197498, 454969167, 452369861, 508104482,
     3 942473952, 471140611, 240368655,  17757184,  20237608, 341152163,
     4 507023941, 646563378, 556289843, 843977603, 671711843, 606602656,
     5 369362114, 171054184, 118540306,  20902912,  20336018, 388285927,
     6 756697714, 658395026, 925681088, 436323378,  18894781, 995118355,
     7 287557841, 343363091, 679233266, 757813139, 959302481, 638124493,
     8 335839313,  52447251,1003487232,  20368818, 421873132/
      DATA   ( KRD(I), I= 651, 700)   / 723143282, 658395026, 925681194,
     1 841844609, 940016097, 538511783, 237241633, 301989889,  34703721,
     2 118540306,  20902912,  20336018, 388285926, 756697714, 658395026,
     3 925681663, 372507808, 100697090,   4232294, 174298372, 413263931,
     4  28341181,  20860194, 741117764, 913185664,    640209, 117521453,
     5  13651901, 227045948, 573179585, 738394305, 269846903, 225665981,
     6 226778422, 323243218, 119589908,  23126170, 263582236, 733735768,
     7 931026835, 924630701, 243440774, 105026854, 376050372, 844962664,
     8 948837219, 840630912, 371492961,  33554434,  39952586/
      DATA   ( KRD(I), I= 701, 750)   / 655018708, 760929913, 530966809,
     1 227472384, 226778422, 323243218, 119589908,  23126170, 263582236,
     2 733735768, 931026836, 925714159, 720090955, 917382023, 912069346,
     3 706216288, 236062756,   6299689, 111356169, 310679813, 205786466,
     4 506039973, 746267306, 650622381, 452443760, 724259541, 729409018,
     5 396649688,1003487232,   8155964, 849225606, 845974369, 941490688,
     6 538478178, 643831815,1038296692, 647178173, 198079288, 260263284,
     7 558517970, 856537995, 949852964, 740951552, 369329282,  37754888,
     8  43100362, 278176038, 273879299, 371690051, 711665355/
      DATA   ( KRD(I), I= 751, 800)   / 719930866, 388187280, 116473020,
     11003487232, 764042870, 659181266, 858640276, 963502906, 800682396,
     2 296936567,  54542348,  42046627, 269877792, 773622628, 947790699,
     3 853260879, 519387405, 213074164, 326493658, 631957208,1038562829,
     4 650816200, 746231395, 539429219, 307502344, 312848845,1003487232,
     5  21099420, 933026381, 513218978, 436437218, 275099317, 797171831,
     6  90230804,1003487232, 249740369,  52449301,  57761978, 263615004,
     7 733735768, 931026836, 925714159, 720090955, 917382023, 912069346,
     8 706216320, 236095556,  38804488,  44117165, 250575439/
      DATA   ( KRD(I), I= 801, 850)   / 321081525, 191062297, 430467705,
     1 730554101, 793463473, 620722509, 648749799, 778769027, 539363619,
     2 239277223, 176367851, 350155776, 205788454, 310650058, 111191048,
     3   6328418, 169148928, 672894757, 915288976, 927784697, 699953532,
     4 196208696,  22040625, 116570445, 450443919, 756757160, 643337666,
     5 337874116,1038499279, 587844244, 693755449, 497445177, 259216596,
     6 254067087,1003487232, 432566939, 798809972, 957231976, 844861057,
     7 537264385, 171021352,  12599348, 124970267, 433027514, 531162743,
     8 726351565, 713659939, 505842019, 307470541, 217305399/
      DATA   ( KRD(I), I= 851, 900)   / 395766717, 444046918, 642354753,
     1 503742785, 305434950, 444527616, 499707514, 764204914, 956184426,
     2 846926434, 571933089, 540612232, 715863759, 724193879, 563539420,
     31003487232, 499510586, 226612274,  15741994, 108204322, 370606561,
     4 406131976, 245576911, 254038359, 429387228,1003487232, 436536611,
     5 306518439, 511253092, 641270783, 544642372, 307599751, 446624768,
     6 458578232, 328560060, 533294713, 663311891, 454377777, 388386229,
     71003487232,  17187224, 562578320, 953693701, 408302605,  17757184,
     8  17712013,  13648829, 383857709,  14695472,  84262254/
      DATA   ( KRD(I), I= 901, 950)   /1038500053, 224681271, 359056784,
     11038599766, 662331094, 760758769,1038663504, 923680654, 920466990,
     2 587168269, 747314822, 644423148, 551516588, 343185670, 208871821,
     3 449770496,    783260, 167773117,  22960018,  18896862,  12464008,
     4   8400829,         0,         0,         0,         0,         0,
     5         0,         0,         0,         0,         0,         0,
     6         0,         0,         0,         0,         0,         0,
     7         0,         0,         0,         0,         0,         0,
     8         0,         0,         0,         0,         0/
C
C     SUBSCRIPT OF LOCATN ARRAY = 1+((KIND-1)*64)+BCD CODE OF LETTER
C     LOCATN POINTER MAY BE COMPOSED OF AS MANY AS 10 DIGITS
C     LEFT 2 DIGITS DETERMINE OPTION WHEN LETTER FOLLOWS $ CHARACTER
C     FOR UPPER CASE LETTER NEXT 4 DIGITS IS FIRST KRD ARRAY SUBSCRIPT
C     FOR LOWER CASE LETTER RIGHT 4 DIGITS IS FIRST KRD ARRAY SUBSCRIPT
C     COORDINATES IN KRD ARRAY ARE PLOTTED UNTIL COORDINATE 29 IS FOUND
C
C     LETTER SEQUENCE IN FOLLOWING TABLE IS THAT USED IN LOCATN ARRAY
C     BCD CODE FOR CHARACTER B IS 18 AND IS 19TH ENTRY IN LOCATN ARRAY
C
C       POINTER POSITION AND BCD CODE /  0 = 00  ,  1 = 01  ,  2 = 02  ,
C       3 = 03  ,  4 = 04  ,  5 = 05  ,  6 = 06  ,  7 = 07  ,  8 = 08  ,
C       9 = 09  ,  ******  ,  = = 11  ,  @ = 12  ,  ******  ,  ******  ,
C       ******  ,  + = 16  ,  A = 17  ,  B = 18  ,  C = 19  ,  D = 20  ,
C       E = 21  ,  F = 22  ,  G = 23  ,  H = 24  ,  I = 25  ,  ******  ,
C       . = 27  ,  ) = 28  ,  ******  ,  ******  ,  ******  /
C       POINTER POSITION AND BCD CODE /  - = 32  ,  J = 33  ,  K = 34  ,
C       L = 35  ,  M = 36  ,  N = 37  ,  O = 38  ,  P = 39  ,  Q = 40  ,
C       R = 41  ,  ******  ,  $ = 43  ,  * = 44  ,  ******  ,  ******  ,
C       ******  ,    = 48  ,  / = 49  ,  S = 50  ,  T = 51  ,  U = 52  ,
C       V = 53  ,  W = 54  ,  X = 55  ,  Y = 56  ,  Z = 57  ,  ******  ,
C       , = 59  ,  ( = 60  ,  ******  ,  ******  ,  ******  /
C
C     THE FOLLOWING IS THE UNPACKED DECIMAL COORDINATE TABLE
C     CORRESPONDING KRD SUBSCRIPT OF FIRST ENTRY IN LINE IS AT LEFT
C     X AND Y COORDINATES (2 DIGITS EACH) FOR 3 POINTS FORM EACH ENTRY
C     ENTRY 000014282800 CONTAINS POINTS  X=0,Y=0  X=14,Y=28  X=28,Y=0
C     IN PACKED KRD COORDINATE ARRAY THIS ENTRY WOULD APPEAR AS FOLLOWS
C     (0*(32**5))+(0*(32**4))+(14*(32**3))+(28*(32**2))+(28*32)+0=324220
C
C   1  292900000000,000000010101,030214281528,250227012801,280016001601,
C   6  170119021805,070506020801,090109000000,303008071318,170708072929,
C  11  002816282127,232626242723,282128202718,261723152114,231326112710,
C  16  280828072705,260423022101,160000000001,010103020326,012700270028,
C  21  303009261526,192521232221,222021181916,151509150926,303009131513,
C  26  191221102208,220721051903,150209020913,292900000000,282727272626,
C  31  252622271628,122808270525,032301200016,001201080305,050308011200,
C  36  160022012502,260227012801,281027102507,240621041903,150213021103,
C  41  090507080613,061507200923,112513261526,192521242422,252127182818,
C  46  282729290000,002816282027,232525232720,281628122708,250523032001,
C  51  160000000001,010103020326,012700270028,303009261526,172519232120,
C  56  221522132108,190517031502,090209262929,002828282821,272126242525,
C  61  222609260915,151518161917,202021202108,200819111812,151309130902,
C  66  220225032604,270728072800,000000010101,030203260127,002700282929,
C  71  002828282821,272126242525,222609260915,151518161917,202021202108,
C  76  200819111812,151309130902,110112011200,000000010101,030203260127,
C  81  002700282929,252724272326,222620271628,122808270525,032301200016,
C  86  001201080305,050308011200,160020012202,230224012501,250827092809,
C  91  281016101609,170919081904,180315021302,110309050708,061306150720,
C  96  092311251326,152618252123,232124182518,252729290000,002811281127,
C 101  102709260915,191519261827,172717282828,282727272526,250227012801,
C 106  280017001701,180119021913,091309021001,110111000000,000101010302,
C 111  032601270027,002829290000,290700282828,282725272026,200225012801,
C 116  280000000001,030108020826,032700270028,292900000000,162828282827,
C 121  272725262506,240421021801,140011000701,040201040006,000801090310,
C 126  061008090908,090608050604,080311021402,170318041906,192617271627,
C 131  162829290000,002812281227,112709260916,212620271927,192828282827,
C 136  272725261417,280021001014,091309021101,120112000000,000101010302,
C 141  032601270027,002829290000,002812281227,112709260902,220225032604,
C 146  270728072800,000000010101,030203260127,002700282929,292100280528,
C 151  140622282828,282727272626,260227012801,280020002001,210122022223,
C 156  140012000420,040205010601,060000000001,010102020226,012700270028,
C 161  292900000000,002808282211,222620271927,192828282827,272725262500,
C 166  240006220602,080109010900,000000010101,030203260127,002700282929,
C 171  122816282027,232525232720,281628122708,250523032001,160012000801,
C 176  050303050108,001200160120,032305250827,122830301326,152617251923,
C 181  212022152213,210819051703,150213021103,090507080613,061507200923,
C 186  112513262929,002816282127,232626242723,282128202718,261723152114,
C 191  161309130902,110112011200,000000010101,030203260127,002700283030,
C 196  092615261925,212322212220,211819161515,091509262929,110008010503,
C 201  030501080012,001601200323,052508271228,162820272325,252327202816,
C 206  281227082505,230320011700,313117071805,190421032203,220217021403,
C 211  120511071109,303015021302,110309050708,061306150720,092311251326,
C 216  152617251923,212022152213,210819051703,150229290000,002816282127,
C 221  232626242723,282128202718,261723152114,181328002100,111309130902,
C 226  110112011200,000000010101,030203260127,002700283030,092615261925,
C 231  212322212220,211819161515,091509262929,282727272626,252622271628,
C 236  122807270526,022401230021,002001180217,051507141910,220823072306,
C 241  220420031602,130209030704,040603070110,001000010101,020203020601,
C 246  120016002101,230226042705,280728082710,261123132114,091806200521,
C 251  052206240825,122615261925,212424222521,271828182827,292900000000,
C 256  002828282821,272126242525,222617261702,190120012000,080008010901,
C 261  110211260626,032502240121,002100282929,002812281227,112709260906,
C 266  100411031402,170220032104,220622262027,192719282828,282727272526,
C 271  250624042303,200115001300,080105030404,030603260127,002700282929,
C 276  002812281227,112709261510,222620271927,192828282827,272725261400,
C 281  130003260127,002700282929,292100280828,082707270626,101114281628,
C 286  201124262327,222722282828,282727272626,190018001419,100009000226,
C 291  012700270028,292900000000,002813281327,122710261518,212620271927,
C 296  192828282827,272725261715,250227012801,280015001501,160118021310,
C 301  070208010901,090000000001,010103021113,032601270027,002829290000,
C 306  002813281327,122710261518,212620271927,192828282827,272725261715,
C 311  170219012001,200008000801,090111021113,032601270027,002829290000,
C 316  002828280802,220225032604,270728072800,000020260626,032502240121,
C 321  002100282929,280126022503,251524172318,191912190518,021700150013,
C 326  011203110611,081209130915,081613171617,181619151911,070903080107,
C 331  000500040102,030107001100,150117021904,200221012500,280028013030,
C 336  190909070706,060506040703,090211021403,170518061908,190929290000,
C 341  002508280928,091511171318,161919192218,241726152713,281028092706,
C 346  260423022101,170014001001,080204000300,032400240025,303015161616,
C 351  191521132210,220821051903,160215021203,100509080910,101312151516,
C 356  292900000000,260724052204,180316031104,080607070610,061207140916,
C 361  131715172016,191519132012,221125112712,281328152617,231816191219,
C 366  071805170215,011400110009,010603040602,090114001600,210124022704,
C 371  280526072929,162524282528,250428042803,200019001904,170215011200,
C 376  090006010402,020401060009,001001130215,051707181119,141919181924,
C 381  162416253030,121713171616,181419111909,180616041303,120309040706,
C 386  060906110714,091612172929,260724052204,180316031104,080607070610,
C 391  281028112714,261523172118,161912190718,051702150114,001100090106,
C 396  030406020901,140016002101,240227042805,260730302212,061207140916,
C 401  131715171916,211422122929,040105010702,071500150217,071707200823,
C 406  102513271628,212825272726,282528232722,252122212022,192319252026,
C 411  182616251423,132013172017,181513151302,150116011600,040004012929,
C 416  070705090411,041305150717,091813191519,191821172219,242025202719,
C 421  281728152715,261625162315,241324112309,210719061505,130509060605,
C 426  050405030802,150222012600,313127082806,280527032602,220116000700,
C 431  030101020003,000401050306,070703080109,001100120114,031507163030,
C 436  131715171716,181318111708,150713071108,101110131116,131730303131,
C 441  120715072006,220522042003,150212020703,050405050706,120729290000,
C 446  002508280928,091610171218,151917192018,221723162414,251125022701,
C 451  280128001900,191118141715,151613161115,101409110902,110112011200,
C 456  000000010101,030203240024,002529290000,290700151819,201920022501,
C 461  280128000000,000103010802,081400140015,303011281528,212723252324,
C 466  212215211121,052203240325,052711282929,161624192519,313125062404,
C 471  210218011400,110007010402,010400060008,010903100610,080909080906,
C 476  080506040803,110214021703,180419061924,162416253030,202822282527,
C 481  262526242522,222120211722,162416251727,202829290000,002508280928,
C 486  091120171918,181818192819,281827182517,141128002100,100909080902,
C 491  110112011200,000000010101,030203240024,002529290000,290700241828,
C 496  202820022501,280128000000,000103010802,082300230024,292900000000,
C 501  292100160519,061906150717,081810191219,141815171615,171718182019,
C 506  221924182517,261526022701,280128002200,221321152016,191617141612,
C 511  160217011801,180012001213,111510160916,071406120602,070108010800,
C 516  000000010101,020202150015,001629290000,001608190919,091610171218,
C 521  151917192018,221723162414,251125022701,280128001900,191118141715,
C 526  151613161115,101409110902,110112011200,000000010101,030203150015,
C 531  001629290000,121916192118,231726152714,281128082705,260423022101,
C 536  160012000701,050202040105,000800110114,021505170718,121930301317,
C 541  151718162113,221022092106,180315021302,100307060609,061007131016,
C 546  131729290000,001608190919,091511171318,161919192218,241726152713,
C 551  281028092706,260423022101,170014000901,313109021101,120112000000,
C 556  000101010302,032400240025,303015161616,191521132210,220821051903,
C 561  160215021203,100509080910,101312151516,292900000000,190417021501,
C 566  120009000601,040202040106,000900100113,021505170718,111914191818,
C 571  201724192519,313125022701,280128001600,160117011902,191330301217,
C 576  131716161814,191119091806,160413031203,090407060609,061107140916,
C 581  121729290000,001608190919,091512171418,181921192518,271728162814,
C 586  271325122212,201319141916,201715161214,091109021101,120112000000,
C 591  000101010302,031500150016,292900000000,281827182617,251722181619,
C 596  121906180317,011600140013,011103100609,200622052204,200315021302,
C 601  080306040306,010800080001,010102020302,060112001600,220125022703,
C 606  280528062708,250922100813,061406150816,131715172016,221525132711,
C 611  281128182929,001612261326,131728172615,131513071405,150418032502,
C 616  280226002300,140110020803,070507150015,001629290000,001909190908,
C 621  100511041303,150317041805,190819171718,161816192519,250428042803,
C 626  200019001903,180216011300,110008010602,050304050308,031701180018,
C 631  001929290000,001912191218,111809171507,221720181918,191928192818,
C 636  271825171400,130003170118,001800192929,292100190819,081807180617,
C 641  100714191619,200724172318,221822192819,281827182617,190018001413,
C 646  100009000217,011800180019,292900000000,001913191318,121810171512,
C 651  211720181918,191928192818,271825171710,250227012801,280015001501,
C 656  160118021307,070208010901,090000000001,010103021109,031701180018,
C 661  001929290000,001912191218,111809171506,221720181918,191928192818,
C 666  271825173131,110308010500,030001010002,000401050306,050607050804,
C 671  121003260127,002700282929,001928190902,220225032604,270628062800,
C 676  000019170617,031602150113,001300192929,062416281728,170220012201,
C 681  220006000601,080111021123,062306242929,062408230922,092008190618,
C 686  031801190020,002201240426,072711281628,212723262624,272328212819,
C 691  271725152113,070805070406,030405050906,110620042204,250526062708,
C 696  280828062703,250122002000,110209020301,010000000002,010603080610,
C 701  191621182220,222121231925,152611260825,062429290000,062408230922,
C 706  092008190618,031801190020,002201240426,072711281628,212723262624,
C 711  272328212820,271826172315,211423132611,271028082807,270526042302,
C 716  210116001100,070104020104,000600080109,031006100809,090809060805,
C 721  060408031102,150219032105,220722082110,191215131313,131515151916,
C 726  211822202221,212319251526,112608250624,292900000000,000724282528,
C 731  250928092806,250625022701,280128001600,160117011902,190600060007,
C 736  303006091920,190906092929,052828282524,072406191120,162020192218,
C 741  251627142811,280927062504,220220011600,110007010402,010400060008,
C 746  010903100610,080909080906,080506040803,110215021803,210622092211,
C 751  211418171518,111806170416,031502150528,292900000000,222420231922,
C 756  192020192218,251827192820,282227242526,232718281228,082705250323,
C 761  012000160012,010803050503,080112001700,230125022704,280728082711,
C 766  251323141815,151510140813,061106160720,092311251426,182621252224,
C 771  303014131613,191221102208,220721051903,160214021103,090508070808,
C 776  091011121413,292900000000,002003282828,272525221813,150914061302,
C 781  130007000702,080611112121,232407240323,022201200020,292900000000,
C 786  071405150217,011800200021,012302240526,072712281628,212723262624,
C 791  272328212820,271826172315,211423132611,271028082807,270526042302,
C 796  210116001200,070105020204,010500070008,011002110513,071430301815,
C 801  091806200521,052206240825,122616261925,212422232321,232022182117,
C 806  181530301013,191022082307,230622042003,160212020903,070406050507,
C 811  050806100711,101329290000,060408050906,090808090610,031001090008,
C 816  000601040302,050110001600,200123032505,270828122816,272025232325,
C 821  202716281128,052703260124,002100200117,031505141013,131318142015,
C 826  221722122108,190517031402,100207030604,303012151415,171619182020,
C 831  202119231725,142612260925,072306210620,071809161215,292900000000,
C 836  122816282027,232525232720,281628122708,250523032001,160012000801,
C 841  050303050108,001200160120,032305250827,122830301326,152617251923,
C 846  212022152213,210819051703,150213021103,090507080613,061507200923,
C 851  112513262929,130715071806,190419031801,150013001001,090309041006,
C 856  130729290000,142817271926,222425212718,281528132710,250722041902,
C 861  170114001301,160318052008,211022132215,211820201823,162513271428,
C 866  292900000000,142811270926,062403210118,001500130110,030706040902,
C 871  110114001501,120310050808,071006130615,071808201023,122515271428,
C 876  292900000000,130010010903,090410061307,150718061904,190318003131,
C 881  160713051004,090511061207,130929290000,132110220924,092510271328,
C 886  152818271925,192418211619,131710160917,111812191321,292900000000,
C 891  001612161224,162416162816,281316131605,120512130013,001629290000,
C 896  001628162813,001300162929,111402130113,001400150116,021611151114,
C 901  303012160621,062208230923,102213171216,303015171822,192320232222,
C 906  222116161517,303017152616,271628152814,271326131714,171530301613,
C 911  220822072006,190618071512,161330301312,100709060806,060706081213,
C 916  131229290000,000023282828,050000002929,002128212818,001800213030,
C 921  001128112808,000800112929,000000000000,000000000000,000000000000,
C     ADVANCED LTRPLT PROGRAM DECK MUST BE USED WITH THIS ARRAY DECK
      RETURN
      END