Page:FORTRAN IV enhanced character graphics (IA fortranivenhance5003wolc).pdf/45

From Wikisource
Jump to navigation Jump to search
This page has been proofread, but needs to be validated.
     9 441590916,479340804,481438020,431106660,430056836,469903940,0,   SYM05020  
     * 434807700,300524564/                                             SYM05030
      DATA IAL150 /300580864,430744665,317109273,317044772,317030400,   SYM05040
     2 435299926,297939876,319501156,319468388,345123229,343028677,     SYM05050
     3 344109956,344074635,341966848,447751327,302916570,298558290,     SYM05060
     4 296166284,302359691,312878543,319333972,323790493,321889760,     SYM05070
     5 313537888,309306460,302851031,298394510,300295179,440771852,     SYM05080
     6 315074001,319432281,321824287,317731798,319488000,443688035,     SYM05090
     7 303113184,300885020,304981145,306947093,439460897,303015005,     SYM05100 
     8 307111130,309077142,298460306,308815054,306586699,302294023,     SYM05110 
     9 304264211,306750607,304522252,300229576,302195781,308412416,     SYM05120 
     * 435299427,307307744,309273756,304981017,302752917,439461025,     SYM05130 
     1 307209309/                                                       SYM05140
      DATA IAL 151 /302916570,300688406,311043090,300426190,302392395,  SYM05150
     2 306488455,304264339,302556175,304522380,308618440,306390085,     SYM05160
     3 300023808,462169818,321758619,311239897,306914451,308847952,     SYM05170
     4 319301265,325694875,311207126,308913425,313014043,325691089,     SYM05180
     5 329787344,338241685,340502618,336471966,328181344,315630815,     SYM05190
     6 305079260,298656599,296362897,300393549,308684171,321234700,     SYM05200
     7 331786190,464365331,327722832,0,434938776,296428372,298361997,   SYM05210
     8 308654932,298394766,308651209,306390020,300032901,295936842,     SYM05220
     9 298263570,306881880,317498969,327952214,329852686,323364363,     SYM05230
     * 317040012,315041231,319235533,455911128,327886610,325527180/     SYM05240
      DATA IAL152 /0,458008082,317138380,319137483,329688975,460105298, SYM05250
     2 319235596,321238546,319464920,313304281,302785429,296297295,     SYM05260 
     3 298230732,304456907,312878543,319370457,304882645,298394510,     SYM05270
     4 300285952,441459603,298329037,302396640,300528595,302720152,     SYM05280
     5 311207321,319563351,323659410,321365452,310748299,302392271,     SYM05290
     6 300529176,321594962,319268236,310752224,309329920,453715477,     SYM05300
     7 321562198,319563161,309109784,298492754,296199053,300295243,     SYM05310
     8 308651404,319272153,304882645,298394510,300285952,462431762,     SYM05320
     9 317138380,319137483,329688975,464528978,319235596,321238546,     SYM05330
     * 319464920,313304281,302785429,296297295,298230732,304456907/     SYM05340
      DATA IAL153 /312878543,319370457,304882645,298394510,300299872,   SYM05350
     2 330301440,432546961,313075220,321594904,315401433,302785429,     SYM05360
     3 296297295,298230732,304456907,314975758,443327576,300589970,     SYM05370
     4 298263500,0,456107550,321824414,323987040,317728095,311370972,   SYM05380
     5 307012555,298033989,451945822,311305432,304587787,300163974,     SYM05390
     6 295871172,287449605,285418055,289612357,432842265,0,460105163,   SYM05400
     7 314844421,304227204,293774022,291742472,295936774,458007947,     SYM05410
     8 312747205,304231954,319464920,313304281,302785429,296297295,     SYM05420
     9 298230732,304456907,312878543,319370457,304882645,298394510,     SYM05430
     * 300285952,441459467,443556683,434709590,309077337/               SYM05440
      DATA IAL154 /317498968,323724949,319268364,321238489,321627733,   SYM05450
     2 317171148,319137483,329688975,435168480,0,443557023,309273887,   SYM05460
     3 309342933,294364057,304915608,306881551,302392395,437036120,     SYM05470 
     4 304784335,300295179,308651341,315064320,445654239,311371103,     SYM05480
     5 311440149,296461273,307012824,308978699,300163974,295871172,     SYM05490
     6 287449605,285418055,289612357,439133336,306881483,298066758,     SYM05500
     7 291635200,441459467,443556683,457975383,323692247,325854873,     SYM05510  
     8 321693144,308946003,300528723,308880716,314946643,306783500,     SYM05520
     9 312845771,321267407,435168480,0,441459602,296166220,298165323,   SYM05530
     * 308716815,443556818,298263436,300266464,309329920/               SYM05540
      DATA IAL155 /426418967,298624089,306979990,304686027,437036120,   SYM05550
     2 304817170,298169426,309011800,317498969,325854999,327853643,     SYM05560
     3 455911127,325756427,459876182,334243929,342665560,348891541,     SYM05570
     4 344434956,346405081,346794325,342337740,344304075,354855567,0,   SYM05580
     5 426418967,298624089,306979990,304686027,437036120,304817170,     SYM05590
     6 298169426,309011800,317498969,325854999,327853711,323364555,     SYM05600
     7 455911127,325756495,321267339,329623501,336035840,443327512,     SYM05610
     8 298492754,296199053,300295243,308651404,319268434,321562135,     SYM05620  
     9 317465945,309114073,304882645,298394510,300299467,312878543,     SYM05630
     * 319366678,317456384,426418967,298624089,306979990, 304685892/    SYM05640

II-9