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