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

 
     9 441590916,479340804,481438020,431106660,430056836,469903940,0,   DAT05050
     * 434807700,300524564/                                             DAT05060
      DATA IAL150 /300580864,430744665,317109273,317044772,317030400,   DAT05070
     2 435299926,297939876,319501156,319468388,345123229,343028677,     DAT05080
     3 344109956,344074635,341966848,447751327,302916570,298558290,     DAT05090
     4 296166284,302359691,312878543,319333972,323790493,321889760,     DAT05100
     5 313537888,309306460,302851031,298394510,300295179,440771852,     DAT05110
     6 315074001,319432281,321824287,317731798,319488000,443688035,     DAT05120
     7 303113184,300885020,304981145,306947093,439460897,303015005,     DAT05130
     8 307111130,309077142,298460306,308815054,306586699,302294023,     DAT05140
     9 304264211,306750607,304522252,300229576,302195781,308412416,     DAT05150
     * 435299427,307307744,309273756,304981017,302752917,439461025,     DAT05160
     1 307209309/                                                       DAT05170
      DATA IAL151 /302916570,300688406,311043090,300426190,302392395,   DAT05180
     2 306488455,304264339,302556175,304522380,308618440,306390085,     DAT05190
     3 300023808,462169818,321758619,311239897,306914451,308847952,     DAT05200
     4 319301265,325694875,311207126,308913425,313014043,325691089,     DAT05210
     5 329787344,338241685,340502618,336471966,328181344,315630815,     DAT05220
     6 305079260,298656599,296362897,300393549,308684171,321234700,     DAT05230
     7 331786190,464365331,327722832,0,434938776,296428372,298361997,   DAT05240
     8 308654932,298394766,308651209,306390020,300032901,295936842,     DAT05250
     9 298263570,306881880,317498969,327952214,329852686,323364363,     DAT05260
     * 317040012,315041231,319235533,455911128,327886610,325527180/     DAT05270 
      DATA IAL152 /0,458008082,317138380,319137483,329688975,460105298, DAT05280
     2 319235596,321238546,319464920,313304281,302785429,296297295,     DAT05290
     3 298230732,304456907,312878543,319370457,304882645,298394510,     DAT05300
     4 300285952,441459603,298329037,302396640,300528595,302720152,     DAT05310
     5 311207321,319563351,323659410,321365452,310748299,302392271,     DAT05320
     6 300529176,321594962,319268236,310752224,309329920,453715477,     DAT05330
     7 321562198,319563161,309109784,298492754,296199053,300295243,     DAT05340 
     8 308651404,319272153,304882645,298394510,300285952,462431762,     DAT05350
     9 317138380,319137483,329688975,464528978,319235596,321238546,     DAT05360     
     * 319464920,313304281,302785429,296297295,298230732,304456907/     DAT05370
      DATA IAL153 /312878543,319370457,304882645,298394510,300299872,   DAT05380
     2 330301440,432546961,313075220,321594904,315401433,302785429,     DAT05390
     3 296297295,298230732,304456907,314975758,443327576,300589970,     DAT05400
     4 298263500,0,456107550,321824414,323987040,317728095,311370972,   DAT05410
     5 307012555,298033989,451945822,311305432,304587787,300163974,     DAT05420
     6 295871172,287449605,285418055,289612357,432842265,0,460105163,   DAT05430
     7 314844421,304227204,293774022,291742472,295936774,458007947,     DAT05440   
     8 312747205,304231954,319464920,313304281,302785429,296297295,     DAT05450
     9 298230732,304456907,312878543,319370457,304882645,298394510,     DAT05460 
     * 300285952,441459467,443556683,434709590, 309077337/              DAT05470
      DATA IAL154 /317498968,323724949,319268364,321238489,321627733,   DAT05480
     2 317171148,319137483,329688975,435168480,0,443557023,309273887,   DAT05490
     3 309342933,294364057,304915608,306881551,302392395,437036120,     DAT05500
     4 304784335,300295179,308651341,315064320,445654239,311371103,     DAT05510
     5 311440149,296461273,307012824,308978699,300163974,295871172,     DAT05520
     6 287449605,285418055,289612357,439133336,306881483,298066758,     DAT05530
     7 291635200,441459467,443556683,457975383,323692247,325854873,     DAT05540
     8 321693144,308946003,300528723,308880716,314946643,306783500,     DAT05550
     9 312845771,321267407,435168480,0,441459602,296166220,298165323    DAT05560
     * 308716815,443556818,298263436,300266464,309329920/               DAT05570
      DATA IAL155 /426418967,298624089,306979990,304686027,437036120,   DAT05580 
     2 304817170,298169426,309011800,317498969,325854999,327853643,     DAT05590
     3 455911127,325756427,459876182,334243929,342665560,348891541,     DAT05600      
     4 344434956,346405081,346794325,342337740,344304075,354855567,0,   DAT05610
     5 426418967,298624089,306979990,304686027,437036120,304817170,     DAT05620
     6 298169426,309011800,317498969,325854999,327853711,323364555,     DAT05630  
     7 455911127,325756495,321267339,329623501,336035840,443327512      DAT05640  
     8 298492754,296199053,300295243,308651404,319268434,321562135,     DAT05650
     9 317465945,309114073,304882645,298394510,300299467,312878543,     DAT05660 
     * 319366678,317456384,426418967,298624089,306979990,304685892/     DAT05670

I-17