INTEGER FUNCTION GREEK1 (X,Y,I,CNT) INTEGER I,CNT REAL X,Y C REAL GRIDX(288),GRIDY(288), * X1(95),X2(78),X3(81),X4(34),Y1(94),Y2(79),Y3(80),Y4(35) EQUIVALENCE (GRIDX(1),X1(1)),(GRIDX(96),X2(1)), * (GRIDX(174),X3(1)),(GRIDX(255),X4(1)), * (GRIDY(1),Y1(1)),(GRIDY(95),Y2(1)),(GRIDY(174),Y3(1)), * (GRIDY(254),Y4(1)) INTEGER INDEX(24,2),N1 C DATA X1 /0.,2.,4.1,3.9,6.8,9.7,13.,15.1,11.8,8.3,11.3, 118.,16.2,0.,4.1,14.,20.,14.,11.4,7.9,6.4,6.4,9.3,12.,0.,4.,6.2,10. 2,10.,7.7,6.4,5.7,8.1,13.,15.8,18.5,1.2,4.,7.4,8.,7.0,1.0,1.,8.,10. 33,14.,14.,12.2,5.,1.5,20.,8.2,4.5,0.,0.,4.,8.7,12.,17.,19.5,0.,8., 410.2,14.,18.1,18.1,9.8,14.,16.7,12.5,9.,3.5,13.,8.5,5.2,13.,12.6,1 50.,5.3,2.,2.,6.2,8.5,14.2,13.7,9.5,6.,3.,3.,5.,10.2,5.,1.7,1.7,4./ DATA X2 / 612.4,13.6,3.,4.5,6.5,4.4,5.8,10.2,15.6,17.7,13.5,15.,.8,5.2,7.3,7. 78,4.5,1.,.5,7.3,17.3,19.7,18.7,15.2,13.7,14.8,18.7,4.,8.3,11.,12.6 8,2.9,12.6,14.9,17.,19.2,5.6,.1,3.6,4.4,12.4,15.,17.8,13.6,17.,9.4, 96.,1.8,1.8,5.,12.,15.6,19.,17.,14.,10.3,3.3,0.,4.8,7.,3.3,.5,3.3,7 *.,16.2,13.7,17.4,13.7,16.2,17.1,20.,6.,3.3,11.4,15.3,13.8,4.5,1.8/ DATA X3 / 13.7,9.8,11.5,8.8,10.,5.,6.5,10.,12.,.3,3.4,6.3,6.9,3.8,10.,16.3,20 2.,.3,1.2,6.8,9.5,10.,14.5,17.,14.5,6.,2.2,.7,2.2,6.,10.,11.,13.,14 3.,19.2,0.,3.3,4.5,4.,6.,9.5,5.5,9.5,13.,9.5,14.5,19.6,19.4,18.,16. 47,7.,4.,0.,.5,3.5,7.1,9.,11.7,9.,11.,16.,19.2,20.,18.4,16.4,5.7,8. 55,13.6,14.5,13.1,7.,11.5,15.4,14.8,9.7,6.9,6.6,11.,12.5,10.,18./ DATA X4 /13.7, 6 6.5,2.,2.,7.,14.7,17.5,16.3,10.8,4.9,12.,8.,4.,.8,2.6,7.,11.6,1 74.7,17.5,19.,16.7,12.,.8,4.6,8.,6.5,4.1,4.7,8.,12.,17.,19.,18.3,15 8.7/ DATA Y1 /6.5,8.9,7.7,2.9,0.,0.,5.1,15.5,20.,17.,12.,12. 1,7.9,17.2,20.,17.,19.,17.,17.9,9.5,4.3,.9,0.,1.9,15.,19.,19.,10., 26.,0.,0.,1.1,5.8,12.5,20.,16.5,1.3,0.,0.,2.3,6.1,11.,17.4,20.,20., 317.,13.9,10.,7.8,10.6,20.,.3,0.,4.8,9.5,13.,14.,11.2,.8,1.1,-4.,17 4.,19.,20.,18.3,14.5,10.,12.,6.5,1.7,1.7,5.5,17.,20.,17.1,6.,1.7,0. 5,0.,3.,7.,12.,12.,15.7,18.,20.,20.,16.,12.,10.6,10.6,10.6,6.5,2.2/ DATA Y2 / 60.,0.,2.8,18.8,20.,20.,7.6,15.5,19.,19.,15.8,-6.4,-6.,20.,18.5,11. 75,6.3,.5,0.,2.2,9.2,12.0,18.6,19.7,13.,5.3,.5,1.3,17.3,20.,18.5,12 8.1,0.,12.1,4.2,.8,.1,19.8,-5.2,10.5,7.,7.,10.,19.,5.,6.,20.,19.7,1 96.,10.5,8.7,8.8,11.,17.8,20.,20.,14.8,-5.,17.4,20.,19.2,.5,1.3,.5, *19.,16.6,.5,.8,.5,16.6,16.5,19.,20.,17.2,14.9,17.3,18.5,12.2,3.5/ DATA Y3 / 2.2, 1 3.6,1.8,0.,20.,3.7,0.,0.,2.6,17.,20.,15.8,6.5,0.,2.,10.,20.,17. 2,18.2,20.,18.,11.5,19.5,17.5,19.5,3.5,0.,0.3,0.,3.5,11.5,3.,0.,0., 33.2,17.7,19.6,18.,11.,8.5,8.5,-4.5,8.5,19.5,8.5,8.5,15.7,18.5,19., 417.9,18.8,17.,9.2,3.2,.7,.7,3.5,13.8,3.5,.7,.7,5.,10.9,18.,18.3,20 5.,17.3,16.7,17.7,19.,15.,10.7,12.,13.5,12.,8.8,3.3,.2,-1.,-1.6/ DATA Y4 / 20., 6 15.4,14.8,9.,3.5,0.,0.,4.3,9.5,14.1,13.,20.,17.8,14.6,7.7,2.,0.,0 7.,2.3,6.4,13.,18.2,20.,16.,19.7,17.5,12.3,6.7,2.5,0.,.4,6.,13.,17. 8,20./ DATA INDEX /1,14,25,37,51,61,73,84,98,108,123,132,141, *153,167,178,183,191,209,224,239,254,265,277,13,24,36,50,60,72,83,9 *7,107,122,131,140,152,166,177,182,190,208,223,238,253,264,276,288/ C N1=INDEX(I,1) GREEK1=0 IF (CNT.LE.INDEX(I,2)-N1) GREEK1=2 N1=N1+CNT IF (CNT.EQ.0) GREEK1=3 X=GRIDX(N1) Y=GRIDY(N1) CNT=CNT+1 END