Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E C C H . F T \ e -+-+-+-+-+\r |
2 | C\r | |
3 | C CHANGES THE CHANNEL OF THE SAMPLE IN THE BUFFER\r | |
4 | C\r | |
5 | SUBROUTINE CCHNEL\r | |
6 | INCLUDE HAEPTI.FI\r | |
7 | INCLUDE HAEBUF.FI\r | |
8 | INCLUDE HAETTY.FI\r | |
9 | C\r | |
10 | \f COMP=.FALSE. @ RESET THE COMPUTATION FLAG\r | |
11 | IF (OPTION.EQ.0) GOTO 15 @ NO SPECIAL COMMAND, READ CHANNEL NUMBER\r | |
12 | OPTION=OPTION-1 @ CH1 --> 1, CH0 --> 0\r | |
13 | IF (OPTION.GE.0 .AND. OPTION.LE.CHNLS-1) GOTO 10 @ TEST FOR VALID CHANNEL NUMBER\r | |
14 | WRITE (TTO,1) OPTION @ PRINT ERROR MSG (MAY BE INCORRECT FOR * - ETC.)\r | |
15 | RETURN\r | |
16 | 15 WRITE (TTO,2) @ CHANNELNUMBER?\r | |
17 | READ (TTI,3) OPTION @ I1 FORMAT\r | |
18 | IF (SAMCNT.EQ.0 .AND. OPTION.GT.0) GOTO 20 @ NO SAMPLE ONLY CHANNEL 0 ALLOWED!\r | |
19 | IF (OPTION.GE.0 .AND. OPTION.LE.CHNLS-1) GOTO 10 @ TEST FOR VALID CHANNELNUMBER\r | |
20 | WRITE (TTO,1) OPTION @ CHANNELNUMBER IS NOT VALID\r | |
21 | GOTO 15\r | |
22 | 10 IF (SAMCNT.EQ.0 .AND. OPTION.GT.0) GOTO 20\r | |
23 | CHANEL=OPTION @ SET THE CORRECT INDEX USED BY ESAM\r | |
24 | RETURN\r | |
25 | 20 WRITE (TTO,4) @ NO SAMPLE: ONLY CHANNEL # 0 ALLOWED!\r | |
26 | GOTO 15\r | |
27 | 1 FORMAT (' KANALBEZEICHNUNG',I3,' UNZULAESSIG.')\r | |
28 | 2 FORMAT (' KANALNUMMER? (I1) ',$)\r | |
29 | 3 FORMAT (I1)\r | |
30 | 4 FORMAT (' SOLANGE KEIN DATENSATZ GELESEN IST NUR KANAL ',\r | |
31 | * '# 0 ERLAUBT.')\r | |
32 | END\r | |
33 | \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\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |