sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/haecmo.ft

   1 C       -+-+-+-+-+  \ e H A E C M O . F T  \ e -+-+-+-+-+
   2 C
   3 C       SUBROUTINE FOR HAEEOG TO DETERMINE CHANGE IN MODE SIGNAL
   4 C
   5         SUBROUTINE CMODE (S0,S1)
   6 C
   7 C
   8 C       INPUT PARAMETER IS
   9 C
  10         INTEGER S0                      @ START OF WINDOW
  11 C
  12 C       OUTPUT PARAMETER ARE
  13 C
  14         INTEGER S1                      @ END OF WINDOW ( COMPUTED)
  15 C
  16         INCLUDE HAEBUF.FI
  17         INCLUDE HAEGSA.FI
  18         INCLUDE HAECEO.FI
  19         INCLUDE HABRK.FI
  20         EXTERNAL XYSAM
  21         REAL XYSAM
  22 C
  23 \fC
  24         INTEGER I
  25         REAL TE
  26 C
  27 C       STATEMENT FUNCTION ARE:
  28 C
  29         CNGMOD(AP0,IP0)=ABS(AP0-XYSAM(IP0,MODCN)-1000.).GT.50.
  30         LOGICAL CNGMOD
  31         MODE (IP0)=XYSAM(IP0,MODCN)
  32         INTEGER MODE
  33 C
  34 C
  35         TE=MODE(S0)+1000
  36         DO 20 I=S0,ENDS*SAMRAT,32       @ SCHNELLES SUCHEN
  37         IF (CNGMOD(TE,I)) GOTO 25
  38 20      CONTINUE
  39         S1=ENDS*SAMRAT
  40         RETURN
  41 25      CONTINUE
  42         S1=MAX0(S0,I-32)
  43         DO 30 I=S1,S1+32                @ SUCHE EXAKTEN ENDPUNKT
  44         IF (CNGMOD(TE,I)) GOTO 35
  45 30      CONTINUE
  46 35      S1=I-1                          @ EXAKTER ENDWERT --> S1
  47         RETURN
  48         END
  49 \1a