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