sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/haecch.ft

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