b13da7402f81cf7133b7b5183af9365e8293dac2
[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / haerea.ft
1 C -+-+-+-+-+ \ e H A E R E A . F T \ e -+-+-+-+-+
2 C
3 C
4 REAL FUNCTION REASAC(SAC)
5 REAL SAC
6 INCLUDE HAECEO.FI
7 C
8 \f INTEGER I
9 C
10 100 DO 110 I=1,8 @ CALIBRATE FOR NEGATIVE ANGLE
11 IF (SAC.GE.I*5.*EICH(1,I)+CALIBR) GOTO 120
12 110 CONTINUE
13 I=8
14 120 IF (I.EQ.1) GOTO 130 @ BETWEEN 0 AND +40 DEG, CONTINUE SEARCH
15 REASAC=(SAC-CALIBR)/ABS(EICH(1,I))
16 RETURN
17 130 I=I+1
18 IF (SAC.LE.CALIBR) GOTO 120 @ 0 DEGREES
19 DO 140 I=2,8
20 IF (SAC.LE.I*5.*EICH(2,I)+CALIBR) GOTO 150
21 140 CONTINUE
22 I=8
23 150 REASAC=(SAC-CALIBR)/EICH(2,I)
24 RETURN
25 C
26 END
27 \1a