Commit | Line | Data |
---|---|---|
81e70d48 PH |
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 |