| 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 |