Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0049/font4.for
There is 1 other file named font4.for in the archive. Click here to see a list.
      SUBROUTINE FONT4
C     FONT4                                                     12/26/67
C     FONT4 - COORDINATE ARRAYS FOR SANS-SERIF OUTLINE ROMAN LETTERING
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)   /   2170217, 802330233, 802370237,
     1 802500250, 802670267,   2730273,   2860286,   3040304,   3100310,
     2   3340334,     10001, 903680368,   3950395,     10001,     10001,
     3     10001, 103520352,     20406,     70420,    230434,    370447,
     4    490461,    540476,    580484,    740502,    790511,     10001,
     5 704010401,1103800380,     10001,     10001,     10001/
      DATA   (LOCATN(I), I= 33, 64)   / 203570357,    820520,    910531,
     1    960536,    990539,   1050553,   1090562,   1250577,   1350591,
     2   1530605,     10001, 500010001, 303590359,     10001,     10001,
     3     10001,     10001, 403660366,   1640613,   1820628,   1860636,
     4   1950645,   1980649,   2040655,   2090660,   2130667,     10001,
     5 603880388,1003720372,     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)   /   2170217, 802330233, 802370237,
     1 802500250, 802670267,   2730273,   2860286,   3040304,   3100310,
     2   3340334,     10001, 903680368,   3950395,     10001,     10001,
     3     10001, 103520352,     20406,     70420,    230434,    370447,
     4    490461,    540476,    580484,    740502,    790511,     10001,
     5 704010401,1103800380,     10001,     10001,     10001/
      DATA   (LOCATN(I), I= 97,128)   / 203570357,    820520,    910531,
     1    960536,    990539,   1050553,   1090562,   1250577,   1350591,
     2   1530605,     10001, 500010001, 303590359,     10001,     10001,
     3     10001,     10001, 403660366,   1640613,   1820628,   1860636,
     4   1950645,   1980649,   2040655,   2090660,   2130667,     10001,
     5 603880388,1003720372,     10001,     10001,     10001/
      DATA   ( KRD(I), I=   1,  50)   /1003487232,    422428, 940311206,
     1 241303552,1038362071, 680798141,     29180, 700213048, 896357170,
     2 823803630, 885895049, 947754820, 774505952,   1013891, 148387468,
     3 750528263, 744100355, 138377360, 160982680, 762008210, 622313616,
     41003487232, 945622721, 570884385, 171021353,  13646899, 124970299,
     5 499708635, 899571509, 796582457, 496328983, 223530127, 148022471,
     6 274010563, 574264037, 847124413,     29084, 599419640, 862834576,
     7 953001766, 776604193, 402654174, 137520537, 596269780, 791428877,
     8 782967430, 575016067,1003487232,     29532, 898786448/
      DATA   ( KRD(I), I=  51, 100)   / 654947469, 138284928,    979968,
     1     29596, 965895312, 654947469, 134218685, 583938950, 911019713,
     2 570884385, 171021353,  13646899, 124970299, 499708635, 899571509,
     3 796582457, 496328983, 223530127, 148022471, 274010563, 574264037,
     4 812394025, 583988224,     28828, 151798556, 969802496, 819082368,
     5    979968, 975175708, 969801728,1003487232,  11676809, 175346980,
     6 439848548, 710647561, 835613577, 913051265, 537264385, 137402377,
     7  12514304,     28828, 149615452, 454951648, 351414400,    979968,
     8     28828, 138284928,    979968, 995098652, 130492220/
      DATA   ( KRD(I), I= 101, 150)   / 969802528, 862426533, 123830272,
     11003487232,     28828, 811365276, 940310679, 134218685, 402916515,
     2 105947148,  16830583, 194276764, 566914809, 863884176, 953000741,
     3 775554560, 403667331, 306419881, 147995827, 258269593, 563733174,
     4 792477453, 781884004, 540413885,     29180, 700181336, 931026835,
     5 924664558, 685224076, 134218718, 150103577, 696999701, 825968272,
     6 552746941, 672661888, 269651045,  41955344,  54647993, 297169436,
     7 700180279, 927875980, 915183331,1073554119, 682588740, 540413220,
     8 241345677, 150129910, 327575065, 663411443, 821835497/
      DATA   ( KRD(I), I= 151, 200)   / 711566824, 609154048,     29180,
     1 700181336, 931026835, 924664558, 685638368, 549597312,   1013903,
     2 160982680, 763123475, 756695567, 150926336,   4267205, 306679363,
     3 743151367, 814459595, 683949201,  87086135,  93448379, 398979771,
     4 833447702, 762962393, 395534518, 222547250, 421150446, 853389192,
     5 946705186, 773390784, 269617156,1003487232, 403072025,  30307225,
     6 563609984,1003487232, 163718311, 240423331, 507089573, 779888412,
     7 969811814, 809108992, 402916483,  39855132, 164557824,  29520325,
     8 835613184, 402682813, 995127420, 277279228, 680326044/
      DATA   ( KRD(I), I= 201, 250)   / 705266132, 302219292,1003487232,
     1    375900, 264719036, 902348672, 772223136,    979968, 403060764,
     2 197609212, 969423360, 403633152,      3833,  93418396, 965906307,
     3 939525053, 402916515, 105947148,  16830583, 194276764, 566914809,
     4 863884176, 953000741, 775554560, 403667331, 306419881, 147995827,
     5 258269593, 563733174, 792477453, 781884004, 540413885, 403069205,
     6 260400506, 432566784, 403633152,      5160, 111358480, 690705110,
     7 729407961, 429121654,  25290971, 398979739, 799859542, 894225136,
     8 652519657, 175247491, 943587328,1003487232,   5348486/
      DATA   ( KRD(I), I= 251, 300)   / 239472099, 676009735, 815476364,
     1 550974928, 622480084, 760929912, 529982744, 157343898, 263615004,
     2 700181304, 896357170, 789233453, 918431623, 912035489, 503709889,
     3  70260669,   6301340, 835463049, 946608896, 671750150,1038263959,
     4 680699837,   4298980, 406294148, 778838795, 786054640, 419708110,
     5  84046684, 865363186, 389566130, 856537995, 948803363, 706216288,
     6 202475524,1003487232, 146978062, 452476590, 819834761, 946705154,
     7 706216352, 269649988,  39855117,  50449622, 395898620, 832135574,
     8 288572591, 147814568, 175314180, 439881380, 777789192/
      DATA   ( KRD(I), I= 301, 350)   / 782937612, 449064138, 177140736,
     1 302324108, 521788153,  26276764, 966514322, 549919136, 302969856,
     2 284344434,  88168568, 195325340, 566914810, 864901972, 858505871,
     3 787265387, 949886821, 842696192, 402883683,  38804489,  45200558,
     4 285178288, 520701586, 759913112, 563504408, 224612626, 353813470,
     5 551170763, 815537861, 675810691, 272831623, 143863052, 416823229,
     6 822853262, 517354734, 149996563,  23126170, 263614972, 700181336,
     7 929976207, 919381702, 573932704, 137695750, 681258733, 823098100,
     8 794517144, 529949944, 192042132, 186893712, 520767186/
      DATA   ( KRD(I), I= 351, 400)   / 793703424,  13648272, 428368400,
     1 957232653, 542512525,  14611456,  13648784, 953169853, 175453197,
     2  17121462, 326583927, 795427728, 953759463, 644296998, 176092160,
     3    783260, 167773117,   8400779, 947921886,  18896789, 958417853,
     4 335744102,  43004943,  53598425, 365357400, 257083535, 148023527,
     5 340166976,1003487232, 506008231, 783038223, 791336536, 531198681,
     6 862834575, 954050342, 741933538,1003487232, 470188353, 305434950,
     7 444046918, 642354175, 612898211, 341220809,1003487232, 492229974,
     8 327476571, 466088539, 664395348, 555138385, 456611773/
      DATA   ( KRD(I), I= 401, 450)   / 436536611, 306518439, 511253092,
     1 641271264, 437187584, 985369249, 537297153, 169938982,   9449519,
     2  85118228, 458774196, 792450965, 940278498,1038850692, 540445988,
     3 207792299, 217367986, 556418799, 779023360, 984612892, 197315828,
     4 425186964, 792545135, 953034598, 877365889, 503709921, 170033152,
     51038260399, 286673394, 656097003, 782965348, 506858756, 175043584,
     6 985535266, 739803552, 269649988,  39855116,  49366195, 289855029,
     7 760008593, 821741106, 455394511, 179480774, 306613795, 709630852,
     81003487232, 985369249, 537297153, 169938982,   9449519/
      DATA   ( KRD(I), I= 451, 500)   /  85118228, 458774196, 792458140,
     1 940278498,1038850692, 540445988, 207792299, 217367986, 556418799,
     2 779023360, 985535266, 739803552, 269649988,  39855116,  49366195,
     3 256267797, 726388561, 922629002, 178460964, 439914148, 812520414,
     4 181615856, 320260594, 656065231, 785561533, 984940880,  16797011,
     5 357949882, 565900188, 966452792, 561501683, 859619824, 503645117,
     6 985369249, 537297153, 169938982,   9449519,  85118228, 458774196,
     7 792450965,1073618788, 841647617, 337776839, 374870660, 744201963,
     81038850692, 540445988, 207792299, 217367986, 556418799/
      DATA   ( KRD(I), I= 501, 550)   / 779023360, 984612892, 197315828,
     1 425219764, 792545135, 953025248, 785071729, 522635569, 217231520,
     2    979968, 978583824, 688521472,1038472342,  57696281,  60976508,
     3 600600442, 966681463, 828953973,1003487232, 985660420,  74683780,
     4 541660775, 664561415, 776636961, 403900420,1038767670, 528999995,
     5 701231963, 966681430, 794449853, 984612892, 197311093, 894943104,
     6 738571434, 167773117, 975175708, 969801728,1003487232, 995098645,
     7 122800308, 257217908, 455557618, 592041653, 793561936, 919438080,
     8 818659025, 690570800, 552054240, 403059055, 353650897/
      DATA   ( KRD(I), I= 551, 600)   / 184694891, 100664253, 984612885,
     1 189975796, 425219764, 792545135, 953025248, 785071729, 522635569,
     2 217231520,    979968, 985006305, 169938982,   9449519,  85118196,
     3 425219764, 792545135, 953034598, 877365921, 537265118, 439652550,
     4 178433231, 320260594, 656097003, 782965348, 506892221, 984778977,
     5 403145345, 774706022, 949891951, 891014804, 525751540, 187880469,
     61072694433, 180320422, 183780754, 522831567, 784050886, 642223491,
     7 272800701, 985369249, 537297153, 169938982,   9449519,  85118228,
     8 458774196, 792450965,1073612513, 784300774, 675810723/
      DATA   ( KRD(I), I= 601, 650)   / 306387114, 179518769, 455625361,
     1 788241341, 984612885, 189973779, 390616725, 827150225, 789268082,
     2 589710639, 248686752,    979968, 984716484, 406359748, 777755335,
     3 679750828, 114342961, 120803701, 593187667, 822789650, 388220112,
     4 250919690, 882746246, 945655586, 739803488, 168822885,1003487232,
     5 985531040, 538347876, 343230482,  22369628, 533190453, 858245607,
     6 542675619, 943588285, 985369249, 537264353, 169938982,   9458869,
     7 177412388, 439848548, 745252597, 962462432, 774829056, 984634549,
     8 475781013, 537264149,1003487232, 995120245, 275174901/
      DATA   ( KRD(I), I= 651, 700)   / 678221717, 705266127, 302219285,
     11003487232, 984613227,  89413070, 693982763, 940245448, 201327549,
     2 984974357, 190256885, 962592197, 406128769,   1052804, 274013545,
     3 380564480, 984612867, 757155925, 962480323, 943587328,1003487232,
     4         0,         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,000012281628,280024002106,070604000000,303008091423,
C   6  200908092929,000000281528,202724252524,262226202518,241720152314,
C  11  261227112809,280727052604,230220011500,000030300403,041316132012,
C  16  221124092407,220520041603,040330300416,042516252024,222222202018,
C  21  181715160416,292900000000,280526032201,170014000901,050303050109,
C  26  001300150119,032305250927,142817282227,262528232521,232321241725,
C  31  142510240823,062105190415,041305090607,080510041403,170321042305,
C  36  250728052929,000000281228,172720262324,252227192816,281227092506,
C  41  230420021701,120000003030,040304251225,172420222220,231824152413,
C  46  231022082006,170412030403,292900000000,000000282628,262504250416,
C  51  191619130413,040328032800,000029290000,000000282828,282504250416,
C  56  191619130413,040000002929,171228122806,270426032201,170014000901,
C  61  050303050109,001300150119,032305250927,142817282227,262528232521,
C  66  232321241725,142510240823,062105190415,041305090607,080510041403,
C  71  170321042305,240624091709,171229290000,000000280428,041624162428,
C  76  282828002400,241304130400,000029290000,290200000028,282828000000,
C  81  292900000000,001104110409,050707050904,130315031904,210523072409,
C  86  242828282809,270624032001,160012000801,040301060009,001129290000,
C  91  000000280428,041421282628,131728002300,101504100400,000029290000,
C  96  000000280428,040328032800,000029290000,292100000028,032814092528,
C 101  282828002500,252215051305,032203000000,292900000000,000000280428,
C 106  240524282828,280024000423,040000002929,120008010503,030501080012,
C 111  001601200323,052508271228,162820272325,252327202816,281227082505,
C 116  230320011600,120030301203,090407060509,041304150519,072209241225,
C 121  162519242122,231924152413,230921061904,160312032929,000000281528,
C 126  202723262624,272328212819,271726162314,201315120412,040000003030,
C 131  041504251625,202422232421,241922172016,161504152929,200116001200,
C 136  080105030305,010800120016,012003230525,082712281628,202723252523,
C 141  272028162812,270825052303,313126082207,201030301804,160312030904,
C 146  070605090413,041505190722,092412251625,192421222319,241524132309,
C 151  210619091508,180429290000,000000281528,202723262624,272328212819,
C 156  271726162314,201328002300,161204120400,000030300415,042516252024,
C 161  222324212419,221720161615,041529290000,000402070605,090415031803,
C 166  220423052407,240823102211,201208150417,021901210123,022503260527,
C 171  112815282127,242626252422,222319241425,112506240522,062007190918,
C 176  121720152314,251327112808,280627042502,230118001400,080104020004,
C 181  292900000000,120012250025,002828282825,162516001200,292900000000,
C 186  042804090507,070509041303,150319042105,230724092428,282828092706,
C 191  240320011600,120008010403,010600090028,042829290000,002804281405,
C 196  242828281600,120000282929,292100280328,080813281528,200825282828,
C 201  210019001420,090007000028,292900000000,000011150228,072814182128,
C 206  262817152800,230014120500,000029290000,120012140028,052814172328,
C 211  282816141600,120029290000,000000032325,022502282828,282505032803,
C 216  280000002929,120008010503,030501080012,001601200323,052508271228,
C 221  162820272325,252327202816,281227082505,230320011600,120030301203,
C 226  090407060509,041304150519,072209241225,162519242122,231924152413,
C 231  230921061904,160312032929,120012220821,072410251126,122816281600,
C 236  120029290000,000000050108,031006121616,201822202222,212319241425,
C 241  122507240322,002403260627,112815282027,232625242622,262025182316,
C 246  191409100709,050704040403,280328000000,292900000000,000503070406,
C 251  070412031503,200422052407,240922112012,161314131416,181720182220,
C 256  222121231924,152513250824,042201240426,072712281628,202723262524,
C 261  262226202518,231621152513,271128092807,270525032101,150012000601,
C 266  020300052929,000600092028,242824092809,280624062400,200020060006,
C 271  303005092023,200905092929,000403060704,120315032004,230624082411,
C 276  231320151516,121608150614,021604282628,252508250718,111916192118,
C 281  251627142811,280827052503,210116001100,060103020004,292900000000,
C 286  041205130814,131516152114,241327112809,280627042402,210116001300,
C 291  080105020204,010600090013,011603190622,112517272328,242518241222,
C 296  081906170515,041230300508,050706050804,130316032104,230524072408,
C 301  231021111612,131208110610,050829290000,090010061212,151719222325,
C 306  002501282828,282523212018,161214061300,090029290000,081505160318,
C 311  022002220324,052608271228,162820272326,252426222620,251823162015,
C 316  231425132711,280928072705,250321011600,120007010303,010500070009,
C 321  011103130514,081530301316,151618172018,222022222024,162512250824,
C 326  062206200818,101713163030,161320122211,240924072205,200416031203,
C 331  080406050407,040906110812,121316132929,241623152014,151312130714,
C 336  041501170019,002201240426,072712281528,202723262624,272228192815,
C 341  271225092206,170311010500,040310041606,200922112313,241630302320,
C 346  232122232024,152512250724,052304210420,051807171216,151620172218,
C 351  232029290000,001300161216,122416241616,281628131613,160512051213,
C 356  001329290000,001300162816,281300132929,050710130013,001610160522,
C 361  092314171923,232218162816,281318132307,190614120906,050729290000,
C 366  000023282828,050000002929,000800112811,280800083030,001800212821,
C 371  281800182929,100006030306,010900130015,011903220625,102813261024,
C 376  072105180415,041305100707,100413021000,292900000000,150218042107,
C 381  231024132415,231821211824,152618282225,252227192815,281327092506,
C 386  220318001502,292900000000,140013001001,090309041006,130715071806,
C 391  190419023131,180816051303,100513071409,292900000000,142113211022,
C 396  092409251027,132815281827,192519231820,161713151017,131914212929,
C 401  130010010903,090410061307,150718061904,190318011500,130029290000,
C 406  291123022101,160013000801,050202040106,000900120115,021705190820,
C 411  132116212120,231923212821,280023002302,303023062004,160313030904,
C 416  060605100511,061509171318,161820172315,230629290000,291100000028,
C 421  052805190720,122115212020,231926172715,281228092706,260423022001,
C 426  150012000701,050205000000,303005060515,081712181518,191722152311,
C 431  231022061904,150312030804,050629290000,291128042502,220117001300,
C 436  080105020204,010600090012,011502170519,082013211721,222025192817,
C 441  241521171718,131809170615,051105100606,090413031703,210424062804,
C 446  292900000000,291123022101,160013000801,050202040106,000900120115,
C 451  021705190820,132116212120,231923282828,280023002302,303023062004,
C 456  160313030904,060605100511,061509171318,161820172315,230629290000,
C 461  291128042502,220117001300,080105020204,010600090012,011502170519,
C 466  072012211621,212023192617,271528122810,051006060904,130317032104,
C 471  240628043030,051306150716,091713181518,191721162215,231305132929,
C 476  291110001016,001600191019,102111241326,162721282828,282521251724,
C 481  162315211519,251925161516,150010002929,291123022101,160013000801,
C 486  050202040106,000900120115,021705190820,132116212120,231923212821,
C 491  313128072704,250221011601,100204040607,110516042004,220523072311,
C 496  303023062004,160313030904,060605100511,061509171318,161820172315,
C 501  230629290000,291100000028,052805190720,122116212120,231926172715,
C 506  281228002300,231222151917,151813180917,061505120500,000029290000,
C 511  290508000816,201620000800,303011210422,012300240025,012604271128,
C 516  172824272726,282528242723,242217211121,292900000000,291131310004,
C 521  020707051204,160418051907,192524252407,230421021701,120106020004,
C 526  303020211722,152415251727,202823282627,282528242622,232120212929,
C 531  291100000028,052805141921,262115152800,220011130510,050000002929,
C 536  290200000028,282828000000,292900000000,292100000021,032103180520,
C 541  072109211120,131814161518,172019212121,232025182616,271227002400,
C 546  241223152217,201818171716,161415111500,120012121115,101708180617,
C 551  051604140311,030000002929,291100000021,052105190720,122116212120,
C 556  231926172715,281228002300,231222151917,151813180917,061505120500,
C 561  000029290000,291112000701,050202040106,000900120115,021705190720,
C 566  122116212120,231926172715,281228092706,260423022101,160012003030,
C 571  130309040606,051005110615,091713181518,191722152311,231022061904,
C 576  150313032929,291105020701,120015002001,230226042706,280928122715,
C 581  261723192020,152112210720,051905210021,313100010501,051130300506,
C 586  051508171218,151819172215,231123102206,190415031203,080405062929,
C 591  291123022101,160013000801,050202040106,000900120115,021705190820,
C 596  132116212120,231923212821,313128012301,231130302306,200416031303,
C 601  090406060510,051106150917,131816182017,231523062929,291100000021,
C 606  052105170819,112016212021,242026192817,231622171918,171812170915,
C 611  071305100500,000029290000,291103050604,120317032204,230523062207,
C 616  200808110512,031301150117,031906201121,172122202619,241621171618,
C 621  111807170616,071509142410,260927082806,280527032502,220117001100,
C 626  050100020305,292900000000,291128002100,160113021104,100710180018,
C 631  002110211028,152815212521,251815181507,160517042103,280328002929,
C 636  291123022101,160012000701,050202040106,000900210521,050906060904,
C 641  130315031904,220623092321,282128002300,230229290000,291100210521,
C 646  140523212821,160012000021,292900000000,292100210321,080613211521,
C 651  200625212821,210019001415,090007000021,292900000000,291100001111,
C 656  022108211414,202126211711,280022001408,060000002929,291111010021,
C 661  052114052321,282131311405,120310020401,000100040404,080510071109,
C 666  111029290000,291100000003,221802180221,282128180603,280328000000,
C 671  292900000000,000000000000,000000000000,000000000000,000000000000,
C     ADVANCED LTRPLT PROGRAM DECK MUST BE USED WITH THIS ARRAY DECK
      RETURN
      END