C -+-+-+-+-+  H A E R E A . F T  -+-+-+-+-+ C C REAL FUNCTION REASAC(SAC) REAL SAC INCLUDE HAECEO.FI C INTEGER I C 100 DO 110 I=1,8 @ CALIBRATE FOR NEGATIVE ANGLE IF (SAC.GE.I*5.*EICH(1,I)+CALIBR) GOTO 120 110 CONTINUE I=8 120 IF (I.EQ.1) GOTO 130 @ BETWEEN 0 AND +40 DEG, CONTINUE SEARCH REASAC=(SAC-CALIBR)/ABS(EICH(1,I)) RETURN 130 I=I+1 IF (SAC.LE.CALIBR) GOTO 120 @ 0 DEGREES DO 140 I=2,8 IF (SAC.LE.I*5.*EICH(2,I)+CALIBR) GOTO 150 140 CONTINUE I=8 150 REASAC=(SAC-CALIBR)/EICH(2,I) RETURN C END