Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0049/font6a.for
There is 1 other file named font6a.for in the archive. Click here to see a list.
      SUBROUTINE FONT6
C     FONT6                                                     09/15/67
C     FONT6 - COORDINATE ARRAYS FOR ROUNDED ROMAN AND GREEK LETTERING
C     FONT6 IS AN ALTERNATE FORM OF THE SINGLE STROKE LETTERING OF FONT3
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)   /   2850285, 802940294, 802960296,
     1 803030303, 803130313,   3150315,   3220322,   3320332,   3350335,
     2   3490349,     10001, 903830383,   3700370,     10001,     10001,
     3     10001, 103760376,     20120,     50129,    130138,    200146,
     4    260155,    290164,    320168,    400179,    430185,     10001,
     5 703590359,1103850385,   3950395,   3980398,     10001/
      DATA   (LOCATN(I), I= 33, 64)   / 203780378,    450191,    500200,
     1    540204,    560206,    590214,    610220,    700229,    750238,
     2    850247,     10001, 500010001, 303790379,     10001,     10001,
     3     10001,     10001, 403820382,    910252,   1010260,   1030264,
     4   1080270,   1100272,   1130275,   1150278,   1180283,     10001,
     5 603640364,1003900390,   4070407,   4010401,   4040404/
      DATA   (LOCATN(I), I= 65, 96)   /   2850285, 802940294, 802960296,
     1 803030303, 803130313,   3150315,   3220322,   3320332,   3350335,
     2   3490349,     10001, 903830383,   3700370,     10001,     10001,
     3     10001, 103760376,   4080513,   4110524,   4210535,   4230545,
     4   4250557,   4280566,   4300579,   4330586,   4430596,     10001,
     5 703590359,1103850385,   3950395,   3980398,     10001/
      DATA   (LOCATN(I), I= 97,128)   / 203780378,   4460600,   4490608,
     1   4510613,   4530622,   4550629,   4580644,   4670652,   4690655,
     2   4750663,     10001, 500010001, 303790379,     10001,     10001,
     3     10001,     10001, 403820382,   4770671,   4790676,   4860683,
     4   4960692,   4980697,   5060703,     10001,     10001,     10001,
     5 603640364,1003900390,   4070407,   4010401,   4040404/
      DATA   ( KRD(I), I=   1,  50)   /1003487232,    488320,1038195494,
     11003487232,  16301774, 819834761, 946705154, 739803136,  29946555,
     2 799859542, 895274737, 721993661, 945622721, 570884385, 171021353,
     3  12599347, 124970299, 499708635, 899571645,     29116, 599419640,
     4 862834576, 953001766, 776604193, 436208573, 939524124, 902789135,
     5 620688384,     29596,1038106191,1003487232, 616443781, 876283424,
     6 470058147, 105948172,  16829559, 194309596, 600534873, 964621312,
     7     29662,  16662494, 969802685, 973566400,1003487232,  11543590,
     8 137627008, 537528067, 913188764,1003487232,     29662/
      DATA   ( KRD(I), I=  51, 100)   /   9815900,1038468992,1003487232,
     1  29361024,1003487232, 995098652, 478049152,1003487232,     29568,
     2 969864192, 403178113, 775722856, 953041780, 863757979, 566653211,
     3 194108468,  16789544, 106073345, 403633152,     29244, 767323000,
     4 963530609, 821770797,  14611456, 403178113, 775722856, 953041780,
     5 863757979, 566653211, 194108468,  16789544, 106073345, 403667527,
     61073552317,     29244, 767323000, 963530609, 821770797,  14645805,
     7 940504064,   4327649, 436765377, 841847686, 948808523, 786053456,
     8 252857460,  90266745, 161738140, 533393210,1003487232/
      DATA   ( KRD(I), I= 101, 150)   /  30307294, 499581885,  29369382,
     1 137627008, 537528067, 913188764,1003487232,  29819804,1003487232,
     2 995127520, 499811228,1003487232,    881630,  97387453, 470234140,
     31038563228,1003487232,  97415168, 940504064, 985534274, 773390752,
     4 269649988,  39855115,  48316594, 288805460, 792546193,1039029120,
     51003487232, 984641536,1038093378, 169148896, 672893764, 913188747,
     6 921518834, 691523924, 187779089,1003487232, 985548626, 792285620,
     7 288540752,  48245769,  39915682, 269910592, 773655427,1003487232,
     8 985548626, 792285620, 288540752,  48245769,  39915682/
      DATA   ( KRD(I), I= 151, 200)   / 269910592, 773655427,1039008668,
     11003487232, 984625035, 921518834, 725111188, 254986320,  48245769,
     2  39915682, 236323328, 706480996,1003487232, 984634196,1039037148,
     3 599255513, 460751805, 985534274, 773390752, 269649988,  39855115,
     4  48316594, 288805460, 792546193,1039029247, 945655618, 706217282,
     5 205452288, 984641536,1038103599, 118738324, 558550833, 922630016,
     61003487232, 978704950, 830333818, 834204028, 162588728, 158718942,
     7 486998973, 985291542, 931029914, 935096988, 599288344, 595221470,
     8 756022981, 708446689, 336726019,1003487232, 984641536/
      DATA   ( KRD(I), I= 201, 250)   /1038097236,1038530432,1003487232,
     1 973566400,1003487232, 995098644,1038104625, 120803604, 389465550,
     2 470776270, 521719444, 760008561, 955122621, 984612884,1038103599,
     3 118738324, 558550833, 922630016,1003487232, 985006592, 706448196,
     4 913188747, 921518834, 725111188, 254986320,  48245769,  39915682,
     5 236323773, 984616002, 169148896, 672893764, 913188747, 921518834,
     6 691523924, 187779089,1038111743,   2028544, 985534274, 773390752,
     7 269649988,  39855115,  48316594, 288805460, 792546193,1039029247,
     8 941552640, 984612884,1038101549, 116606323, 592106291/
      DATA   ( KRD(I), I= 251, 300)   / 925779901, 984615041, 436765409,
     1 875434886, 881566988, 181516367,  85051571, 424170291,1003487232,
     2 984634196,1038545317, 473401889, 739115965, 984633351,  38898913,
     3 403178145, 842897287,1039029120,1003487232, 984633792, 961475584,
     4 995119328, 491422612,1003487232, 984613716,1038177152,1003487232,
     5 984633792,1039028672,1073059107, 237077505,1003487232, 984699796,
     6    918461, 403178113, 775722856, 953041780, 863757979, 566653211,
     7 194108468,  16789544, 106073345, 403633152, 261482939, 499581885,
     8  26306747, 365392539, 799859542, 895274737, 721727723/
      DATA   ( KRD(I), I= 301, 350)   / 143693827,    918461,  93481211,
     1 432566939, 799859542, 895274737, 688406190, 819834761, 946705154,
     2 706216320, 202475524,1003487232, 806121479, 947844096,   3310912,
     3 503973667, 912139146, 920436369, 522537137,  84046652,1003487232,
     4  39887947, 181680559, 553302797, 918431622, 910953121, 537297153,
     5 169938982,   9450544, 120805753, 599520189,  30307064, 659046827,
     6 375718845, 553272049, 859658070, 864807579, 566653211, 195158102,
     7  89246897, 285621775, 720123755, 949885796, 808093184, 402883714,
     8  37754889,  45233390, 419361792, 168134179, 745318252/
      DATA   ( KRD(I), I= 351, 400)   / 956190582, 898362011, 533098747,
     1 161538070,  19973263, 249968109, 686538577, 926800829, 442997285,
     2 608766497, 503742817, 337973605, 443479040,1073294890, 513189226,
     3 347420014, 452443694, 618212904, 510006205, 629726710, 459660632,
     4 363195836, 533261914, 629724659, 421458944, 494344158,  15612861,
     5  15612861,  15612894, 727948254, 258644925, 968885181,  20860894,
     6  10364861, 667642648, 895340432, 953001799, 810224224,1003487232,
     7 331573400,  89181200,  12624967, 138610976,1003487232, 954678172,
     8  15598030,1003487232,  15154071, 969128832, 945241021/
      DATA   ( KRD(I), I= 401, 450)   / 954677271,  30062592,   5716925,
     1  15153180, 954204622,1003487232, 499581885,    488320,1038230280,
     21003487232,  15219373, 818753386, 948837220, 876350113, 536870940,
     3 566947610, 899539862, 961399633, 822787598,1003487232,     29596,
     41003487232,    488320,    979968, 968912896, 940537870, 720303104,
     5  30306304, 940504064,  29361118,  15612894, 969802685, 432566939,
     6 798809972, 957231976, 844861057, 537264385, 171021352,  12599348,
     7 124970267, 433027310, 720303104, 264958942, 499581918, 235570109,
     8  29361118,  11432926, 387843005,    488320,1003487232/
      DATA   ( KRD(I), I= 451, 500)   /     29134, 969802685,     29568,
     1 969864192,  30307294, 250264542,    918461, 432566939, 798809972,
     2 957231976, 844861057, 537264385, 171021352,  12599348, 124970267,
     3 432993280,     29596, 940504064,     29212, 733768537, 932076436,
     4 925714192, 720910350,1003487232, 968913358,    918461,  30307294,
     5 499581885,  24175739, 230977915, 462904768,1038573049, 599421660,
     6 868083607,1003487232, 428368567, 795693939, 957233002, 882613926,
     7 542512358, 175186986,  13647923,  88266999, 428833244, 470742016,
     8  30278622,    947133,  25220147,  16790570,  76717286/
      DATA   ( KRD(I), I= 501, 550)   / 408426150, 779954026, 954090355,
     1 928932830, 499581885,    229422,  17846327,  92465403, 432566971,
     2 799892343, 961431406, 705561533, 960346921, 778702369, 436568257,
     3 103846920,  10531984, 254135731, 623559406, 817637060, 742098688,
     4 873301891,1003487232, 143792292, 270861760, 604735266, 911088521,
     5 918304462, 654066513, 925782934, 931982075, 667414907, 329540855,
     61072694205,1072716857,  94530812, 331771354, 530078228, 480680323,
     7 370475264, 236161286, 346471922, 627729146, 868119485, 456510706,
     8 151041034,   8426595, 202736032, 572133094, 815541998/
      DATA   ( KRD(I), I= 551, 600)   / 722028979, 323179670, 125953178,
     1 230027740, 733801369,1003487232, 924600915, 489965745, 117521486,
     2 114471179, 480486504,  40900612,  36800705, 403178177, 841937920,
     3 331640090, 328654358, 693884790, 964584313, 799697433, 393499892,
     4 185709641,  73502851, 270532136, 679156452, 775621249, 503709857,
     5   3077120,  20040850, 184727616,1038231725, 285592051, 591088432,
     6 921579401,1073480637, 533263003, 798808913, 887925512, 744099361,
     7 436568321, 171022411,  81905812, 225731963, 533690446, 888075264,
     8 490019140, 371623424, 604669666, 810294205, 154221611/
      DATA   ( KRD(I), I= 601, 650)   /   5243870,   5349578, 383337234,
     1 960461100, 346430917, 574196480,1003487232,  29551866, 361126355,
     2 809305984,1038090707,1003487232, 222297088,1038231718, 205785409,
     3 436699745, 742135591, 883838942, 883726115, 874349440,1003487232,
     4  20204850, 320093322,  38799361,  33652961, 406328968, 784119664,
     5 960427008, 163768537, 294084247, 898525082, 901411292, 296937625,
     6 124900499, 219431311,1038761359, 182563883,   9443364, 136513535,
     7 579477190, 776703682, 672629120,1003487232, 456642194, 789363531,
     8 882678467, 639074720, 269651045,  75573357, 218417587/
      DATA   ( KRD(I), I= 651, 700)   /1003487232,  20860894, 254903262,
     1 725124029,1072693395, 191128955, 533263067, 865984404, 959299340,
     2 715695593, 346271918, 152195005, 959827186, 151041034,   8426595,
     3 202736032, 572133094, 815541998, 722028979,1003487232,  20860894,
     4 490019140, 371623424, 604669666, 810294205,  20106450, 219293832,
     5 173247809, 503874209, 809343881, 951960402, 859763712, 456642194,
     6 789363531, 882678467, 639074720, 269651045,  75573357, 218417587,
     71038709759, 336524288,1072722075, 228845219, 741083008,1039137792,
     8 969864192, 154214501, 171181472, 503940803, 846014355/
      DATA   ( KRD(I), I= 701, 750)   /1038709759, 336524288, 154222638,
     1  10493988,  69305504, 235177315, 442966500, 539526752, 705398563,
     2 913189772, 923618099,1003487232,         0,         0,         0,
     3         0,         0,         0,         0,         0,         0,
     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     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,303003062506,292900000000,001517152214,
C   6  241327112809,280627042402,220117000000,002817282127,232625242622,
C  11  262125192317,211617152929,280526032201,170014000901,050303050109,
C  16  001200160119,032305250927,142817282227,262528232929,000000281328,
C  21  172720262324,252227192816,281227092506,230420021701,130000002929,
C  26  280000000028,262830300015,181529290000,000000282828,303000151815,
C  31  292900000000,181128112805,260322011700,140009010503,030501090012,
C  36  001601190323,052509271428,172822272625,282329290000,000000283030,
C  41  001528153030,282828002929,290014281400,292900000000,001100090106,
C  46  040308011200,160020012403,270628092828,292900000000,000000283030,
C  51  000911172628,303011172800,292900000000,002800002800,292900000000,
C  56  292100000028,140728282800,292900000000,000000282800,282829290000,
C  61  120016002001,230325052708,281228162720,252323252027,162812280827,
C  66  052503230120,001600120108,030505030801,120029290000,000000281728,
C  71  222724262724,282228192717,241522141713,001329290000,120016002001,
C  76  230325052708,281228162720,252323252027,162812280827,052503230120,
C  81  001600120108,030505030801,120030301807,313126062929,000000281728,
C  86  222724262724,282228192717,241522141713,001330301713,280029290000,
C  91  000404020701,130017002201,250227042806,280827102611,231320141016,
C  96  071704190320,022202230325,042607271228,152821272526,292900000000,
C 101  002828283030,142814002929,002800090106,040308011200,160020012403,
C 106  270628092828,292900000000,002814002828,292900000000,292100280700,
C 111  142821002828,292900000000,000026283030,022828002929,140014130028,
C 116  303014132828,292900000000,022828280000,280029290000,291128032602,
C 121  230118001300,080105020204,010600090011,011402160518,081913201820,
C 126  231926182817,303028202800,292900000000,291100280000,303000030202,
C 131  050110001500,200123022604,270628092811,271426162318,201915201020,
C 136  051902180017,292900000000,291128172618,231918201320,081905180216,
C 141  011400110009,010602040502,080113001800,230126022803,292900000000,
C 146  291128172618,231918201320,081905180216,011400110009,010602040502,
C 151  080113001800,230126022803,303028002828,292900000000,291100112811,
C 156  271426162318,211916201220,071905180216,011400110009,010602040502,
C 161  070112001600,210124022704,292900000000,291100202620,303028282228,
C 166  172715261425,132313002929,291128032602,230118001300,080105020204,
C 171  010600090011,011402160518,081913201820,231926182817,303028203131,
C 176  280527032602,210116011002,060329290000,291100280000,303000130115,
C 181  031707191220,162021192517,271528132800,292900000000,290511221722,
C 186  242327242726,242717281128,042701260124,042311223030,141614002929,
C 191  291120222422,272328242826,272724282028,172716261624,172320223030,
C 196  221631312205,210320021501,100104020003,292900000000,291100280000,
C 201  303000062620,303013132800,292900000000,290014281400,292900000000,
C 206  292100000020,303000140117,031906200820,111913171414,140030301414,
C 211  151717192020,222025192717,281428002929,291100000020,303000130115,
C 216  031707191220,162021192517,271528132800,292900000000,291112001600,
C 221  210123022604,270628092811,271426162318,211916201220,071905180216,
C 226  011400110009,010602040502,070112002929,291100030202,050110001500,
C 231  200123022604,270628092811,271426162318,201915201020,051902180017,
C 236  303000203131,000129290000,291128032602,230118001300,080105020204,
C 241  010600090011,011402160518,081913201820,231926182817,303028203131,
C 246  280129290000,291100000020,303000110113,031506171119,172021202519,
C 251  271828172929,291100020401,130017002301,260228042806,260823090812,
C 256  051303140215,021703180519,122016202519,292900000000,291100202620,
C 261  303013281305,140315021701,220028002929,291100200007,010503030701,
C 266  120016002101,250327052807,303028202800,292900000000,291100201400,
C 271  282029290000,292100200700,142021002820,292900000000,291100002620,
C 276  303002202800,292900000000,291100201400,303028201400,313111050903,
C 281  070203010001,292900000000,291102202820,000028002929,120016002001,
C 286  230325052708,281228162720,252323252027,162812280827,052503230120,
C 291  001600120108,030505030801,120029290000,072511261327,142814002929,
C 296  002502260527,102814282027,232625242622,262125192317,211609120711,
C 301  040901060003,000028002929,022504260727,122816282027,232625242622,
C 306  262125192317,201616152114,241327112809,280627042402,210116001200,
C 311  060103020004,292900000000,240024280007,280729290000,000305011000,
C 316  150020012503,270528082810,271325152017,151810180517,021604282528,
C 321  292900000000,010601090211,051308141315,161521142413,271128092806,
C 326  270424022101,160013000801,050202040106,000900130116,031906221125,
C 331  172723282929,002828282324,192016161311,110610002929,161520162317,
C 336  251926212622,252423262027,162812280827,052603240222,022103190517,
C 341  081612151615,211424132711,280928062704,240221011600,120007010402,
C 346  010400060009,011104130714,121529290000,050011011703,220625092712,
C 351  281528192722,262423262027,152812280727,042601240022,001901170415,
C 356  071412131513,201423152617,271927222929,130615061705,180418021701,
C 361  150013001101,100210041105,130629290000,313118111710,150913091110,
C 366  101110131114,131515151714,181318111708,150612042929,182417231522,
C 371  132211231024,102611271328,152817271826,182417211519,121729290000,
C 376  142314053030,001428142929,001428142929,001428143030,212207063030,
C 381  072221062929,282800002929,001928193030,000928092929,192822262424,
C 386  262127192816,281227092607,240422021900,292900000000,092806260424,
C 391  022101190016,001201090207,040406020900,292900000000,281414142828,
C 396  001428001414,292900000000,001414142823,282807142800,280514142929,
C 401  281414140023,002821140000,000514142929,001414140028,281400001414,
C 406  292900000000,142814002929,000014282800,303004082408,292900000000,
C 411  001416142113,241226112710,280828062704,260324022101,160000000028,
C 416  162821272426,262527242822,282027182617,241621151614,292900000000,
C 421  000000282828,292900000000,000014282800,000029290000,282800280000,
C 426  280030300014,211429290000,002828280000,280029290000,002800003030,
C 431  001428143030,282828002929,122816282027,232525232720,281628122708,
C 436  250523032001,160012000801,050303050108,001200160120,032305250827,
C 441  122830300714,211429290000,072821283030,142814003030,070021002929,
C 446  002800003030,001028283030,111728002929,000014282800,292900000000,
C 451  000000281414,282828002929,000000282800,282829290000,002828283030,
C 456  071421143030,000028002929,122816282027,232525232720,281628122708,
C 461  250523032001,160012000801,050303050108,001200160120,032305250827,
C 466  122829290000,000000282828,280029290000,000000281628,212724262625,
C 471  272428222820,271826172416,211516140014,292900000000,282800281414,
C 476  000028002929,002828283030,142814002929,002301250327,062808281127,
C 481  132514231400,303014231525,172720282228,252727252823,292900000000,
C 486  122416242123,232226202719,281628132710,260923072106,160512050706,
C 491  050702090110,001300160119,022005220723,122430301428,140029290000,
C 496  002828003030,000028282929,002401210119,001600130110,020905070706,
C 501  120516052106,230726092710,281328162719,272128243030,142814002929,
C 506  000007000114,001700200123,022405260727,122816282127,232626242723,
C 511  282028172714,210028002929,281927142509,230620031701,130011000601,
C 516  030301050008,001001130416,071811191319,181821162314,241124092204,
C 521  220323012400,260027012803,292900000000,040904060504,080210011400,
C 526  180023012502,270428062809,271124132214,191524162617,271828202822,
C 531  272425262327,192815281127,092608250723,313100002929,313100230125,
C 536  022604270728,092812271426,152516221620,141013061203,110110000800,
C 541  070107020806,101013151518,182220242326,252728282929,131911190718,
C 546  041601130010,000801050303,060111001300,170120032306,240924112314,
C 551  211618181319,092006210422,032403250426,062711281428,212725262825,
C 556  292900000000,271724181819,141908180517,031602150214,031305120811,
C 561  141007090308,010700060004,010303020601,120016002201,250229290000,
C 566  092808270826,092513231622,202123212722,282328242725,232620261625,
C 571  112308210720,051703130209,020603040403,080131311708,200722062304,
C 576  230322022001,150012000501,000229290000,001903190418,051605140200,
C 581  303004100513,081611181519,171922182516,271428112809,313124002929,
C 586  152817282027,232525222617,261425102408,220520031701,130011000801,
C 591  050303060211,021403180420,062308251127,152830300214,261429290000,
C 596  141910061004,110213011600,180021012302,240424062929,041902150111,
C 601  000500003030,000503080610,111318162418,281930300912,101012071405,
C 606  170319022400,292900000000,002805270726,102412221419,240326012800,
C 611  303000001419,292900000000,061931310000,303004100506,060408021001,
C 616  130015001901,220324052507,261028193030,261025052503,260127002800,
C 621  292900000000,001908190918,091708150410,010500020001,010003000701,
C 626  120316052008,231125132716,281929290000,042805260625,082414232023,
C 631  262428252826,262720281428,082705260425,032303210419,061708161215,
C 636  303020151215,051403130111,000900060104,040206013131,170820072206,
C 641  230423032202,200115001200,292900000000,131915192018,231625142611,
C 646  260925062203,190115001300,080105030305,020802100313,061609181319,
C 651  292900000000,001928193030,071903003030,211917002929,313100000419,
C 656  052208251127,152817282227,252527232820,281827152412,211017091509,
C 661  101007120514,041704192929,281911190718,041601130010,000801050303,
C 666  060111001300,170120032306,240924112314,211618181319,292900000000,
C 671  001928193030,141910061004,110213011600,180021012302,240424062929,
C 676  001905190618,061704100408,050507031001,150017002101,240327062809,
C 681  281127162618,251929290000,131915192018,231625142611,260925062203,
C 686  190115001300,080105030305,020802100313,061609181319,303018283131,
C 691  100029290000,313100280427,062607252103,220224012800,303031310000,
C 696  282829290000,041902080305,050308011300,150019012203,250626092819,
C 701  303018283131,100029290000,041902160114,001000080104,020203010500,
C 706  070009011103,130614081504,160217011900,210023012503,270628102812,
C 711  271626182519,292900000000,000000000000,000000000000,000000000000,
C     ADVANCED LTRPLT PROGRAM DECK MUST BE USED WITH THIS ARRAY DECK
      RETURN
      END