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

From Wikisource
Jump to navigation Jump to search
This page has been proofread, but needs to be validated.
 
     4 296231822,302392523,314943116,327624529,329918230,323757529,     DAT06310
     5 311211289,304882646,298427280,300360780,308655499,321267406,     DAT06320
     6 327722772,325789272,317489152,441459806,307111134,307246240,     DAT06330
     7 306787478,304751824,306652240,308946070,441001092,440673350,     DAT06340
     8 306324678,306459417,298591257,298656537,428647961,445425048,     DAT06350
     9 319595930,311210763,298132491,298197771,428189195,444966282,     DAT06360
     * 319137164,310738944,443556895,298722135,296362895,302392523/     DAT06370
      DATA IAL163 /312845836,323462868,325822108,319792480,309329920    DAT06380 
     2 437134493,313533771,0,432907164,300885023,307242400,319792734,   DAT06390
     3 323888794,321660373,296068811,0,435168928,311174616,321627798,   DAT06400
     4 325691089,323429900,312845451,300295053,296189952,451945298,     DAT06410
     5 327759328,317030400,456139744,298558424,307012953,319563414,     DAT06420
     6 325691089,323429900,312845451,300295053,296189952,458139231,     DAT06430
     7 315630880,305112028,298558354,300360780,310748491,319170190,     DAT06440
     8 325625554,323659287,313271576,304849877,298385408,460334155,     DAT06450
     9 430974688,0,441459679,298754971,300721240,313239062,323626706,   DAT06460
     * 325559949,321267083,306553804,298230607/                         DAT06470
      DATA IAL164 /296297364,302720215,317466201,323856029,321889696,   DAT06480
     2 307232768,458008150,317334803,308913172,298525529,296559517,     DAT06490
     3 303015136,311436767,321824409,323626575,317072651,306553804,     DAT06500
     4 298254336,451847627,432678932,0,432678932,0,466756356,0,432777239DAT06510
     5,432580625,0,447882466,305112027,298525586,300328009,308487492,0, DAT06520
     6 431104994,305112283,311108882,308716617,300098372,0,441263246,   DAT06530
     7 430679505,451650385,0,436609995,298197965,302392330,300163975,0, DAT06540
     8 434545548,300262412,300318720,441590919,449979783,460236383,     DAT06550
     9 315630752,300917597,296592281,300688471,317367892/               DAT06560
      DATA IAL165 /323593937,325527116,314942603,300294990,0,443556895, DAT06570
     2 298722135,296362895,302392523,312845836,323462868,325822108,     DAT06580
     3 319792480,309343456,305112094,300819351,298460111,302425164,     DAT06590
     4 308655435,317072909,321365652,323724892,319759839,313524224,     DAT06600
     5 437134493,313533771,445621515,436577867,0,432939995,298656603,   DAT06610
     6 296625054,300917920,315631199,323954396,325920408,317400212,     DAT06620
     7 302621585,296166219,449848863,321857180,323823192,315303060,     DAT06630
     8 430351246,302458188,319170189,325530638,312845899,323364558,     DAT06640
     9 325582848,432939995,298656603,296625054,300917920,315631199,     DAT06650
     * 323921562,321660311,309048736,319792733,321725976/               DAT06660
      DATA IAL166 /315340183,319497876,325658319,323397196,314942603,   DAT06670
     2 300295053,296198992,298361808,298301013,323561103,321299980,     DAT06680
     3 314933248,449783179,451945931,451945233,327726283,323321856,     DAT06690
     4 435168086,430646232,307012953,319563414,325691089,323429900,     DAT06700
     5 312845451,300295053,296198992,298361808,298300761,317466198,     DAT06710
     6 323593873,321332684,312849376,321926111,311404128,0,456042012,   DAT06720
     7 321758876,323921503,317728032,305112029,298689367,296264590,     DAT06730
     8 302392523,312845836,323430097,325658261,319530328,311174231      DAT06740
     9 300589970,445654175,302949339,298558353,300360780,308655435,     DAT06750
     * 317072974,323528338,321562071,313262080,430973786,430842782/     DAT06760
      DATA IAL167 /303047840,317630045,323954400,433005599,307209693,   DAT06770
     2 460334813,323822997,313107728,310752922,313173267,308815051,0,   DAT06780
     3 441459679,298754970,300688535,315336280,323823261,321889696,     DAT06790
     4 307246240,303014877,300753944,306951575,319563354,321824287,     DAT06800
     5 315634839,300622741,296330063,298230732,306554251,321267341,     DAT06810
     6 325560019,323659350,315339927,302719957,298427279,300327948,     DAT06820
     7 306558347,319170125,323462803,321562134,315326464,458008150,     DAT06830
     8 317334803,308913172,298525529,296559517,303015136,313533983,     DAT06840
     9 323921626,325723792,321332684,310748235,300295054,298296272,     DAT06850
     * 302490574,443130964,300622745,298656733,305112288,447751647/     DAT06860
      DATA IAL168 /321824410,323626576,319235468,310738944,451847627,   DAT06870
     2 432678932,0,432678932,0,466756356,0,432777239,432580625,0,       DAT06880
     3 447882466,305112027,298525586,300328009,308487492,443622494,     DAT06890
     4 302883798,300491789,304424134,0,431104994,305112283,311108882,   DAT06900
     5 308716617,300098372,435233886,307078358,308880525,304423878,0,   DAT06910
     6 441459860,430876119,451846999,0,434480012,300327948,302326728,   DAT06920
     7 298024960,434545548,300262412,300318720,441590919,449979783,     DAT06930

I-19