1 C -+-+-+-+-+
\ e H A E C M O . F T
\ e -+-+-+-+-+
3 C SUBROUTINE FOR HAEEOG TO DETERMINE CHANGE IN MODE SIGNAL
5 SUBROUTINE CMODE (S0,S1)
10 INTEGER S0 @ START OF WINDOW
12 C OUTPUT PARAMETER ARE
14 INTEGER S1 @ END OF WINDOW ( COMPUTED)
27 C STATEMENT FUNCTION ARE:
29 CNGMOD(AP0,IP0)=ABS(AP0-XYSAM(IP0,MODCN)-1000.).GT.50.
31 MODE (IP0)=XYSAM(IP0,MODCN)
36 DO 20 I=S0,ENDS*SAMRAT,32 @ SCHNELLES SUCHEN
37 IF (CNGMOD(TE,I)) GOTO 25
43 DO 30 I=S1,S1+32 @ SUCHE EXAKTEN ENDPUNKT
44 IF (CNGMOD(TE,I)) GOTO 35
46 35 S1=I-1 @ EXAKTER ENDWERT --> S1