Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0049/font3.for
There is 1 other file named font3.for in the archive. Click here to see a list.
      SUBROUTINE FONT3
C     FONT3                                                     09/20/67
C     FONT3 - COORDINATE ARRAYS FOR ROUNDED ROMAN AND GREEK 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)   /   2860286, 802950295, 802980298,
     1 803090309, 803200320,   3220322,   3300330,   3420342,   3440344,
     2   3610361,     10001, 903980398,   3850385,     10001,     10001,
     3     10001, 103910391,     20129,     50137,    150145,    220152,
     4    280160,    310168,    340174,    430185,    460190,     10001,
     5 703730373,1104000400,   4100410,   4130413,     10001/
      DATA   (LOCATN(I), I= 33, 64)   / 203930393,    500196,    550205,
     1    580208,    600210,    630220,    650225,    740234,    800243,
     2    910252,     10001, 500010001, 303940394,     10001,     10001,
     3     10001,     10001, 403970397,    990257,   1100266,   1120268,
     4   1170273,   1190275,   1220278,   1240280,   1270284,     10001,
     5 603780378,1004050405,   4220422,   4160416,   4190419/
      DATA   (LOCATN(I), I= 65, 96)   /   2860286, 802950295, 802980298,
     1 803090309, 803200320,   3220322,   3300330,   3420342,   3440344,
     2   3610361,     10001, 903980398,   3850385,     10001,     10001,
     3     10001, 103910391,   4230528,   4260539,   4360550,   4380560,
     4   4400572,   4430581,   4450594,   4480601,   4580611,     10001,
     5 703730373,1104000400,   4100410,   4130413,     10001/
      DATA   (LOCATN(I), I= 97,128)   / 203930393,   4610615,   4640623,
     1   4660628,   4680637,   4700644,   4730659,   4820667,   4840670,
     2   4900678,     10001, 500010001, 303940394,     10001,     10001,
     3     10001,     10001, 403970397,   4920686,   4940691,   5010698,
     4   5110707,   5130712,   5210718,     10001,     10001,     10001,
     5 603780378,1004050405,   4220422,   4160416,   4190419/
      DATA   ( KRD(I), I=   1,  50)   /1003487232,    488320,1038230280,
     11003487232,  15219373, 818753386, 948837220, 876350113, 536870940,
     2 566947610, 899539862, 961399633, 822787598,1003487232, 899443387,
     3 566653179, 161571896,  23074852,  70387937, 403178145, 808259517,
     4     29212, 733768537, 932076422, 911019778, 706215936,1003487232,
     5 968912896, 940537870, 720303104, 968912896,1038105262,1003487232,
     6 932013850, 733507996, 263350361,  58742790,  37817474, 236323328,
     7 706480963, 911088523, 582939648,  29361118,  15612894, 969802685,
     8 980448156,1038578112,1038091136,1003487232, 969808740/
      DATA   ( KRD(I), I=  51, 100)   / 876350113, 537264353, 136383524,
     1   6300605,  29361118,  11432926, 387843005,  29361024,1003487232,
     2 995098652, 485389184,1003487232,     29568, 969864192, 432566971,
     3 833447800, 963517284, 876350113, 537264353, 136383524,   6314040,
     4  93481211, 432993280,     29212, 733768537, 932076436, 925714192,
     5 720910350,1003487232, 432566971, 833447800, 963517284, 876350113,
     6 537264353, 136383524,   6314040,  93481211, 433027529, 546906913,
     7 906888125,     29212, 733768537, 932076436, 925714192, 720910350,
     81038629453, 650906401, 906888125, 899443387, 566653179/
      DATA   ( KRD(I), I= 101, 150)   / 161571896,  23089202,  85082351,
     1 719074123, 917382022, 911019778, 706216320, 236062787,1003487232,
     2  30307294, 499581885,  29366308,  70387937, 403178145, 808259428,
     3 946762685,  29819804,1003487232, 995127584, 489259932,1003487232,
     4  30278622, 968885181,  29834206, 969357760,1003487232,  30306304,
     5 940504064, 888915634, 557206770, 185678894,  11542565,  71469281,
     6 403178145, 774706142, 893191101,  96535518,  83018994, 423120562,
     7 790445934, 951984997, 877365921, 537264353, 169939901, 888915634,
     8 557206770, 185678894,  11542565,  71469281, 403178145/
      DATA   ( KRD(I), I= 151, 200)   / 774706109, 888915634, 557206770,
     1 185678894,  11542565,  71469281, 403178145, 774706142, 902628285,
     2  47068014, 888915634, 557206770, 185678894,  11542565,  71469281,
     3 403243745, 841880509, 963534713, 900492956, 633826714, 395664704,
     41038110355,1003487232, 888915634, 557206770, 185678894,  11542565,
     5  71469281, 403178145, 774706142,1073574723, 841713184, 369263682,
     6   4125696,  96535518,  83018994, 423120562, 790445934, 951976893,
     7 980840988, 700148440, 695753110, 292774106, 297169886, 485950397,
     8 734786363, 900555575, 795531895, 629762683, 735017679/
      DATA   ( KRD(I), I= 201, 250)   /1073421988, 640189856, 369329314,
     1 104931261,  29361118,   7229406, 381551549, 980906432,1003487232,
     2 995118080,1038102575,  85051603, 288737681, 452407744,1038561775,
     3 555272851, 758958929, 922628992,1003487232,  87098334,  83018994,
     4 423120562, 790445934, 951976893, 423120562, 790445934, 951984997,
     5 877365921, 537264353, 169938981,   8399918,  83018994, 423556096,
     61072787520,1038171313, 254168595, 724289359, 921579400, 912069346,
     7 706216320, 236095556,1003487232, 888915634, 557206770, 185678894,
     8  11542565,  71469281, 403178145, 774706142,1073574720/
      DATA   ( KRD(I), I= 251, 300)   /1003487232,  19923934,  11581519,
     1 185846163, 557501169, 889123840, 923584210, 557206770, 118538255,
     2  13676651, 246064936, 914234244, 909937345, 537264321, 102797245,
     3 499581918,  20860861,  19931173,  71469281, 403178145, 774706142,
     4 873287613,  20382611,1003487232, 995118368, 480871315,1003487232,
     5  20841438, 959447997,  20382686, 960494915, 304317568,    979968,
     6  20859904, 940504064, 432566971, 833447800, 963517284, 876350113,
     7 537264353, 136383524,   6314040,  93481211, 432993280, 264729024,
     81038320288,1003487232,  93481211, 432566971, 833447800/
      DATA   ( KRD(I), I= 301, 350)   / 963531634, 891044527, 248655947,
     1  44048384,  34703587, 305564129, 638223137, 908988349,  93481211,
     2 432566971, 833447800, 963531634, 891044527, 552253196, 884845448,
     3 946705219, 808093184, 402883714,  71234560, 946872220, 940504064,
     4 969076848, 254168595, 724289359, 921579400, 912069346, 706216320,
     5 236095556,  39777280, 899443387, 566653179, 161571896,  23074852,
     6  70387937, 403178145, 808259428, 946742122, 884748973, 551958765,
     7 146877482,   9368576,  30306528,1003487232, 432566971, 833447800,
     8 963531634, 891044527, 551958765, 146877482,   8394788/
      DATA   ( KRD(I), I= 351, 400)   /  70387937, 403178145, 808259428,
     1 946742122, 884748973, 551958767, 151077938,  20994104,  93481211,
     2 432993280, 961399633, 822787598, 417578128,  84985876,  23126105,
     3 161738140, 566947610, 899539862, 946705219, 808093184, 402883714,
     4  71234560, 442997285, 608766497, 503742817, 337973605, 443479040,
     51073294890, 513189226, 347420014, 452443694, 618212905, 545725766,
     61003487232, 629726710, 459660632, 363195836, 533261914, 629725717,
     7 491081661, 494344158,  15612861,  15612861,  15612894, 727948254,
     8 258644925, 968885181,  20860894,  10364861, 667642648/
      DATA   ( KRD(I), I= 401, 450)   / 895340432, 953001799, 810224224,
     11003487232, 331573400,  89181200,  12624967, 138610976,1003487232,
     2 954678172,  15598030,1003487232,  15154071, 969128832, 945241021,
     3 954677271,  30062592,   5716925,  15153180, 954204622,1003487232,
     4 499581885,    488320,1038230280,1003487232,  15219373, 818753386,
     5 948837220, 876350113, 536870940, 566947610, 899539862, 961399633,
     6 822787598,1003487232,     29596,1003487232,    488320,    979968,
     7 968912896, 940537870, 720303104,  30306304, 940504064,  29361118,
     8  15612894, 969802685, 432566939, 798809972, 957231976/
      DATA   ( KRD(I), I= 451, 500)   / 844861057, 537264385, 171021352,
     1  12599348, 124970267, 433027310, 720303104, 264958942, 499581918,
     2 235570109,  29361118,  11432926, 387843005,    488320,1003487232,
     3     29134, 969802685,     29568, 969864192,  30307294, 250264542,
     4    918461, 432566939, 798809972, 957231976, 844861057, 537264385,
     5 171021352,  12599348, 124970267, 432993280,     29596, 940504064,
     6     29212, 733768537, 932076436, 925714192, 720910350,1003487232,
     7 968913358,    918461,  30307294, 499581885,  24175739, 230977915,
     8 462904768,1038573049, 599421660, 868083607,1003487232/
      DATA   ( KRD(I), I= 501, 550)   / 428368567, 795693939, 957233002,
     1 882613926, 542512358, 175186986,  13647923,  88266999, 428833244,
     2 470742016,  30278622,    947133,  25220147,  16790570,  76717286,
     3 408426150, 779954026, 954090355, 928932830, 499581885,    229422,
     4  17846327,  92465403, 432566971, 799892343, 961431406, 705561533,
     5 960346921, 778702369, 436568257, 103846920,  10531984, 254135731,
     6 623559406, 817637060, 742098688, 873301891,1003487232, 143792292,
     7 270861760, 604735266, 911088521, 918304462, 654066513, 925782934,
     8 931982075, 667414907, 329540855,1072694205,1072716857/
      DATA   ( KRD(I), I= 551, 600)   /  94530812, 331771354, 530078228,
     1 480680323, 370475264, 236161286, 346471922, 627729146, 868119485,
     2 456510706, 151041034,   8426595, 202736032, 572133094, 815541998,
     3 722028979, 323179670, 125953178, 230027740, 733801369,1003487232,
     4 924600915, 489965745, 117521486, 114471179, 480486504,  40900612,
     5  36800705, 403178177, 841937920, 331640090, 328654358, 693884790,
     6 964584313, 799697433, 393499892, 185709641,  73502851, 270532136,
     7 679156452, 775621249, 503709857,   3077120,  20040850, 184727616,
     81038231725, 285592051, 591088432, 921579401,1073480637/
      DATA   ( KRD(I), I= 601, 650)   / 533263003, 798808913, 887925512,
     1 744099361, 436568321, 171022411,  81905812, 225731963, 533690446,
     2 888075264, 490019140, 371623424, 604669666, 810294205, 154221611,
     3   5243870,   5349578, 383337234, 960461100, 346430917, 574196480,
     41003487232,  29551866, 361126355, 809305984,1038090707,1003487232,
     5 222297088,1038231718, 205785409, 436699745, 742135591, 883838942,
     6 883726115, 874349440,1003487232,  20204850, 320093322,  38799361,
     7  33652961, 406328968, 784119664, 960427008, 163768537, 294084247,
     8 898525082, 901411292, 296937625, 124900499, 219431311/
      DATA   ( KRD(I), I= 651, 700)   /1038761359, 182563883,   9443364,
     1 136513535, 579477190, 776703682, 672629120,1003487232, 456642194,
     2 789363531, 882678467, 639074720, 269651045,  75573357, 218417587,
     31003487232,  20860894, 254903262, 725124029,1072693395, 191128955,
     4 533263067, 865984404, 959299340, 715695593, 346271918, 152195005,
     5 959827186, 151041034,   8426595, 202736032, 572133094, 815541998,
     6 722028979,1003487232,  20860894, 490019140, 371623424, 604669666,
     7 810294205,  20106450, 219293832, 173247809, 503874209, 809343881,
     8 951960402, 859763712, 456642194, 789363531, 882678467/
      DATA   ( KRD(I), I= 701, 750)   / 639074720, 269651045,  75573357,
     1 218417587,1038709759, 336524288,1072722075, 228845219, 741083008,
     21039137792, 969864192, 154214501, 171181472, 503940803, 846014355,
     31038709759, 336524288, 154222638,  10493988,  69305504, 235177315,
     4 442966500, 539526752, 705398563, 913189772, 923618099,1003487232,
     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     LOCATN(I),I=1,64 CONTAINS LOCATION POINTERS FOR SINGLE LINE ROMAN
C
C     LOCATN(I),I=65,128 CONTAINS LOCATION POINTERS FOR GREEK LETTERS
C     GREEK LETTERS ARE GIVEN IN SAME NUMERICAL SEQUENCE AS ROMAN
C     CODE FOR 24TH LETTER OF GREEK ALPHABET IS SAME AS 24TH OF ROMAN
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  ,  LFTARO  ,  LFTARO  ,  ******  /
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  ,  ******  ,  RITARO  ,  RITARO  /
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,000014282800,303004082408,292900000000,001416142113,
C   6  241226112710,280828062704,260324022101,160000000028,162821272426,
C  11  262527242822,282027182617,241621151614,292900000000,262524262127,
C  16  162812280727,042602250124,002200060104,020304020701,120016002101,
C  21  240226032929,000000281628,212724262625,272428222806,270426032402,
C  26  210116000000,292900000000,282800280000,280030300014,211429290000,
C  31  282800280000,303000142114,292900000000,272426252426,212716281228,
C  36  072704260225,012400220006,010402030402,070112001600,210124022603,
C  41  270428062811,171129290000,002800003030,001428143030,282828002929,
C  46  290700282828,303014281400,303000002800,292900000000,282828062704,
C  51  260324022101,160012000701,040202030104,000600082929,002800003030,
C  56  001028283030,111728002929,002800002800,292900000000,292100000028,
C  61  141428282800,292900000000,000000282800,282829290000,122816282127,
C  66  242626252724,282228062704,260324022101,160012000701,040202030104,
C  71  000600220124,022504260727,122829290000,000000281628,212724262625,
C  76  272428222820,271826172416,211516140014,292900000000,122816282127,
C  81  242626252724,282228062704,260324022101,160012000701,040202030104,
C  86  000600220124,022504260727,122830301409,160918082501,270028002929,
C  91  000000281628,212724262625,272428222820,271826172416,211516140014,
C  96  303016141813,191224022501,270028002929,262524262127,162812280727,
C 101  042602250124,002200200118,021704160715,211324122611,271028082806,
C 106  270426032402,210116001200,070104020203,292900000000,002828283030,
C 111  142814002929,002800060104,020304020701,120016002101,240226032704,
C 116  280628282929,002814002828,292900000000,292100280900,141819002828,
C 121  292900000000,002828003030,282800002929,002814143030,282814141400,
C 126  292900000000,002828280000,280029290000,261523172118,161912190718,
C 131  051702150114,001100080105,020405020701,120016002101,230226043030,
C 136  261926002929,022802003030,021505170718,121916192118,231726152714,
C 141  281128082705,260423022101,160012000701,050202042929,261523172118,
C 146  161912190718,051702150114,001100080105,020405020701,120016002101,
C 151  230226042929,261523172118,161912190718,051702150114,001100080105,
C 156  020405020701,120016002101,230226043030,262826002929,011228122714,
C 161  261523172118,161912190718,051702150114,001100080105,020405020701,
C 166  120018002301,250228042929,282228232725,262624272028,182814271226,
C 171  112510231000,303000192019,292900000000,261523172118,161912190718,
C 176  051702150114,001100080105,020405020701,120016002101,230226043030,
C 181  313126282603,250223011700,110005010202,000329290000,022802003030,
C 186  021505170718,121916192118,231726152714,281128002929,290712281628,
C 191  202722262224,202316221222,082306240626,082712283030,141514002929,
C 196  212823282527,262626242523,232221221923,182418261927,212830302215,
C 201  313122072104,190217011300,110007010502,030402072929,002800003030,
C 206  000628193030,111128002929,290714281400,292900000000,292100190000,
C 211  303000120115,021703180619,081911181217,131514121400,303014121515,
C 216  161717182019,221925182617,271528122800,292900000000,021902003030,
C 221  021505170718,121916192118,231726152714,281128002929,121916192118,
C 226  231726152714,281128082705,260423022101,160012000701,050202040105,
C 231  000800110114,021505170718,121929290000,313102280200,303002150517,
C 236  071812191619,211823172615,271428112808,270526042302,210116001200,
C 241  070105020204,292900000000,261523172118,161912190718,051702150114,
C 246  001100080105,020405020701,120016002101,230226043030,313126282600,
C 251  292900000000,001900003030,001101140215,051707181219,161921182317,
C 256  261529290000,271625172218,161912190718,031701160015,001301120311,
C 261  071021092508,270728062804,270325022201,160012000601,030201032929,
C 266  142814003030,001928192929,001900080105,020405020701,120016002101,
C 271  230226043030,260026192929,001914002819,292900000000,292100190900,
C 276  141019002819,292900000000,001928003030,281900002929,001914003030,
C 281  281931311003,090207010400,000029290000,001928190000,280029290000,
C 286  122816282127,242626252724,282228062704,260324022101,160012000701,
C 291  040202030104,000600220124,022504260727,122829290000,072814281400,
C 296  303007002100,292900000000,022504260727,122816282127,242626252724,
C 301  282228202718,261724162115,071304120211,011000080000,010103020703,
C 306  090313021501,190021002501,270228032929,022504260727,122816282127,
C 311  242626252724,282228202718,261724162115,161421132412,261127102808,
C 316  280627042603,240221011600,120007010402,020329290000,280700072828,
C 321  280029290000,282805280316,071812191619,211823172615,271428112808,
C 326  270526042302,210116001200,070105020204,010529290000,262524262127,
C 331  162812280727,042602250124,002200060104,020304020701,120016002101,
C 336  240226032704,280628082710,261124122113,161412140713,041202110110,
C 341  000829290000,002828280700,292900000000,122816282127,242626252724,
C 346  282228202718,261724162115,161412140713,041202110110,000800060104,
C 351  020304020701,120016002101,240226032704,280628082710,261124122113,
C 356  161412140715,041602170118,002000220124,022504260727,122829290000,
C 361  282027182617,241621151614,121407150416,021701180020,002201240225,
C 366  042607271228,162821272426,262527242822,280627042603,240221011600,
C 371  120007010402,020329290000,130615061705,180418021701,150013001101,
C 376  100210041105,130629290000,313118111710,150913091110,101110131114,
C 381  131515151714,181318111709,160814071006,292900000000,182417231522,
C 386  132211231024,102611271328,152817271826,182417221621,142010192929,
C 391  142314053030,001428142929,001428142929,001428143030,212207063030,
C 396  072221062929,282800002929,001928193030,000928092929,192822262424,
C 401  262127192816,281227092607,240422021900,292900000000,092806260424,
C 406  022101190016,001201090207,040406020900,292900000000,281414142828,
C 411  001428001414,292900000000,001414142823,282807142800,280514142929,
C 416  281414140023,002821140000,000514142929,001414140028,281400001414,
C 421  292900000000,142814002929,000014282800,303004082408,292900000000,
C 426  001416142113,241226112710,280828062704,260324022101,160000000028,
C 431  162821272426,262527242822,282027182617,241621151614,292900000000,
C 436  000000282828,292900000000,000014282800,000029290000,282800280000,
C 441  280030300014,211429290000,002828280000,280029290000,002800003030,
C 446  001428143030,282828002929,122816282027,232525232720,281628122708,
C 451  250523032001,160012000801,050303050108,001200160120,032305250827,
C 456  122830300714,211429290000,072821283030,142814003030,070021002929,
C 461  002800003030,001028283030,111728002929,000014282800,292900000000,
C 466  000000281414,282828002929,000000282800,282829290000,002828283030,
C 471  071421143030,000028002929,122816282027,232525232720,281628122708,
C 476  250523032001,160012000801,050303050108,001200160120,032305250827,
C 481  122829290000,000000282828,280029290000,000000281628,212724262625,
C 486  272428222820,271826172416,211516140014,292900000000,282800281414,
C 491  000028002929,002828283030,142814002929,002301250327,062808281127,
C 496  132514231400,303014231525,172720282228,252727252823,292900000000,
C 501  122416242123,232226202719,281628132710,260923072106,160512050706,
C 506  050702090110,001300160119,022005220723,122430301428,140029290000,
C 511  002828003030,000028282929,002401210119,001600130110,020905070706,
C 516  120516052106,230726092710,281328162719,272128243030,142814002929,
C 521  000007000114,001700200123,022405260727,122816282127,232626242723,
C 526  282028172714,210028002929,281927142509,230620031701,130011000601,
C 531  030301050008,001001130416,071811191319,181821162314,241124092204,
C 536  220323012400,260027012803,292900000000,040904060504,080210011400,
C 541  180023012502,270428062809,271124132214,191524162617,271828202822,
C 546  272425262327,192815281127,092608250723,313100002929,313100230125,
C 551  022604270728,092812271426,152516221620,141013061203,110110000800,
C 556  070107020806,101013151518,182220242326,252728282929,131911190718,
C 561  041601130010,000801050303,060111001300,170120032306,240924112314,
C 566  211618181319,092006210422,032403250426,062711281428,212725262825,
C 571  292900000000,271724181819,141908180517,031602150214,031305120811,
C 576  141007090308,010700060004,010303020601,120016002201,250229290000,
C 581  092808270826,092513231622,202123212722,282328242725,232620261625,
C 586  112308210720,051703130209,020603040403,080131311708,200722062304,
C 591  230322022001,150012000501,000229290000,001903190418,051605140200,
C 596  303004100513,081611181519,171922182516,271428112809,313124002929,
C 601  152817282027,232525222617,261425102408,220520031701,130011000801,
C 606  050303060211,021403180420,062308251127,152830300214,261429290000,
C 611  141910061004,110213011600,180021012302,240424062929,041902150111,
C 616  000500003030,000503080610,111318162418,281930300912,101012071405,
C 621  170319022400,292900000000,002805270726,102412221419,240326012800,
C 626  303000001419,292900000000,061931310000,303004100506,060408021001,
C 631  130015001901,220324052507,261028193030,261025052503,260127002800,
C 636  292900000000,001908190918,091708150410,010500020001,010003000701,
C 641  120316052008,231125132716,281929290000,042805260625,082414232023,
C 646  262428252826,262720281428,082705260425,032303210419,061708161215,
C 651  303020151215,051403130111,000900060104,040206013131,170820072206,
C 656  230423032202,200115001200,292900000000,131915192018,231625142611,
C 661  260925062203,190115001300,080105030305,020802100313,061609181319,
C 666  292900000000,001928193030,071903003030,211917002929,313100000419,
C 671  052208251127,152817282227,252527232820,281827152412,211017091509,
C 676  101007120514,041704192929,281911190718,041601130010,000801050303,
C 681  060111001300,170120032306,240924112314,211618181319,292900000000,
C 686  001928193030,141910061004,110213011600,180021012302,240424062929,
C 691  001905190618,061704100408,050507031001,150017002101,240327062809,
C 696  281127162618,251929290000,131915192018,231625142611,260925062203,
C 701  190115001300,080105030305,020802100313,061609181319,303018283131,
C 706  100029290000,313100280427,062607252103,220224012800,303031310000,
C 711  282829290000,041902080305,050308011300,150019012203,250626092819,
C 716  303018283131,100029290000,041902160114,001000080104,020203010500,
C 721  070009011103,130614081504,160217011900,210023012503,270628102812,
C 726  271626182519,292900000000,000000000000,000000000000,000000000000,
C
C     ADVANCED LTRPLT PROGRAM DECK MUST BE USED WITH THIS ARRAY DECK
      RETURN
      END