Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | INTEGER FUNCTION GREEK1 (X,Y,I,CNT)\r |
2 | INTEGER I,CNT\r | |
3 | REAL X,Y\r | |
4 | C\r | |
5 | REAL GRIDX(288),GRIDY(288),\r | |
6 | * X1(95),X2(78),X3(81),X4(34),Y1(94),Y2(79),Y3(80),Y4(35)\r | |
7 | EQUIVALENCE (GRIDX(1),X1(1)),(GRIDX(96),X2(1)),\r | |
8 | * (GRIDX(174),X3(1)),(GRIDX(255),X4(1)),\r | |
9 | * (GRIDY(1),Y1(1)),(GRIDY(95),Y2(1)),(GRIDY(174),Y3(1)),\r | |
10 | * (GRIDY(254),Y4(1))\r | |
11 | INTEGER INDEX(24,2),N1\r | |
12 | C\r | |
13 | DATA X1 /0.,2.,4.1,3.9,6.8,9.7,13.,15.1,11.8,8.3,11.3,\r | |
14 | 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.\r | |
15 | 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.\r | |
16 | 33,14.,14.,12.2,5.,1.5,20.,8.2,4.5,0.,0.,4.,8.7,12.,17.,19.5,0.,8.,\r | |
17 | 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\r | |
18 | 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./\r | |
19 | DATA X2 /\r | |
20 | 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.\r | |
21 | 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\r | |
22 | 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,\r | |
23 | 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\r | |
24 | *.,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/\r | |
25 | DATA X3 /\r | |
26 | 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\r | |
27 | 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\r | |
28 | 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.\r | |
29 | 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.\r | |
30 | 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./\r | |
31 | DATA X4 /13.7,\r | |
32 | 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\r | |
33 | 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\r | |
34 | 8.7/\r | |
35 | DATA Y1 /6.5,8.9,7.7,2.9,0.,0.,5.1,15.5,20.,17.,12.,12.\r | |
36 | 1,7.9,17.2,20.,17.,19.,17.,17.9,9.5,4.3,.9,0.,1.9,15.,19.,19.,10.,\r | |
37 | 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.,\r | |
38 | 317.,13.9,10.,7.8,10.6,20.,.3,0.,4.8,9.5,13.,14.,11.2,.8,1.1,-4.,17\r | |
39 | 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.\r | |
40 | 5,0.,3.,7.,12.,12.,15.7,18.,20.,20.,16.,12.,10.6,10.6,10.6,6.5,2.2/\r | |
41 | DATA Y2 /\r | |
42 | 60.,0.,2.8,18.8,20.,20.,7.6,15.5,19.,19.,15.8,-6.4,-6.,20.,18.5,11.\r | |
43 | 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\r | |
44 | 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\r | |
45 | 96.,10.5,8.7,8.8,11.,17.8,20.,20.,14.8,-5.,17.4,20.,19.2,.5,1.3,.5,\r | |
46 | *19.,16.6,.5,.8,.5,16.6,16.5,19.,20.,17.2,14.9,17.3,18.5,12.2,3.5/\r | |
47 | DATA Y3 / 2.2,\r | |
48 | 1 3.6,1.8,0.,20.,3.7,0.,0.,2.6,17.,20.,15.8,6.5,0.,2.,10.,20.,17.\r | |
49 | 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.,\r | |
50 | 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.,\r | |
51 | 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\r | |
52 | 5.,17.3,16.7,17.7,19.,15.,10.7,12.,13.5,12.,8.8,3.3,.2,-1.,-1.6/\r | |
53 | DATA Y4 / 20.,\r | |
54 | 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\r | |
55 | 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.\r | |
56 | 8,20./\r | |
57 | DATA INDEX /1,14,25,37,51,61,73,84,98,108,123,132,141,\r | |
58 | *153,167,178,183,191,209,224,239,254,265,277,13,24,36,50,60,72,83,9\r | |
59 | *7,107,122,131,140,152,166,177,182,190,208,223,238,253,264,276,288/\r | |
60 | C\r | |
61 | \f N1=INDEX(I,1)\r | |
62 | GREEK1=0\r | |
63 | IF (CNT.LE.INDEX(I,2)-N1) GREEK1=2\r | |
64 | N1=N1+CNT\r | |
65 | IF (CNT.EQ.0) GREEK1=3\r | |
66 | X=GRIDX(N1)\r | |
67 | Y=GRIDY(N1)\r | |
68 | CNT=CNT+1\r | |
69 | END\r | |
70 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |