C -+-+-+-+-+  H A E C M O . F T  -+-+-+-+-+ C C SUBROUTINE FOR HAEEOG TO DETERMINE CHANGE IN MODE SIGNAL C SUBROUTINE CMODE (S0,S1) C C C INPUT PARAMETER IS C INTEGER S0 @ START OF WINDOW C C OUTPUT PARAMETER ARE C INTEGER S1 @ END OF WINDOW ( COMPUTED) C INCLUDE HAEBUF.FI INCLUDE HAEGSA.FI INCLUDE HAECEO.FI INCLUDE HABRK.FI EXTERNAL XYSAM REAL XYSAM C C INTEGER I REAL TE C C STATEMENT FUNCTION ARE: C CNGMOD(AP0,IP0)=ABS(AP0-XYSAM(IP0,MODCN)-1000.).GT.50. LOGICAL CNGMOD MODE (IP0)=XYSAM(IP0,MODCN) INTEGER MODE C C TE=MODE(S0)+1000 DO 20 I=S0,ENDS*SAMRAT,32 @ SCHNELLES SUCHEN IF (CNGMOD(TE,I)) GOTO 25 20 CONTINUE S1=ENDS*SAMRAT RETURN 25 CONTINUE S1=MAX0(S0,I-32) DO 30 I=S1,S1+32 @ SUCHE EXAKTEN ENDPUNKT IF (CNGMOD(TE,I)) GOTO 35 30 CONTINUE 35 S1=I-1 @ EXAKTER ENDWERT --> S1 RETURN END