Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E R E A . F T \ e -+-+-+-+-+\r |
2 | C\r | |
3 | C\r | |
4 | REAL FUNCTION REASAC(SAC)\r | |
5 | REAL SAC\r | |
6 | INCLUDE HAECEO.FI\r | |
7 | C\r | |
8 | \f INTEGER I\r | |
9 | C\r | |
10 | 100 DO 110 I=1,8 @ CALIBRATE FOR NEGATIVE ANGLE\r | |
11 | IF (SAC.GE.I*5.*EICH(1,I)+CALIBR) GOTO 120\r | |
12 | 110 CONTINUE\r | |
13 | I=8\r | |
14 | 120 IF (I.EQ.1) GOTO 130 @ BETWEEN 0 AND +40 DEG, CONTINUE SEARCH\r | |
15 | REASAC=(SAC-CALIBR)/ABS(EICH(1,I))\r | |
16 | RETURN\r | |
17 | 130 I=I+1\r | |
18 | IF (SAC.LE.CALIBR) GOTO 120 @ 0 DEGREES\r | |
19 | DO 140 I=2,8\r | |
20 | IF (SAC.LE.I*5.*EICH(2,I)+CALIBR) GOTO 150\r | |
21 | 140 CONTINUE\r | |
22 | I=8\r | |
23 | 150 REASAC=(SAC-CALIBR)/EICH(2,I)\r | |
24 | RETURN\r | |
25 | C\r | |
26 | END\r | |
27 | \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 |