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

   1 C       -+-+-+-+-+ \ e  H A E A S K . F T  \ e -+-+-+-+-+
   2 C
   3 C       ASK'S OPERATOR FOR BEGIN AND SPAN WIDTH OF SPECTRUM BEEING ANALYSED
   4         SUBROUTINE ASKHIM (COUNT)
   5         INTEGER COUNT                   @ CONTROLS THE NUMBER OF QUESTIONS
   6         INCLUDE HAEGSA.FI
   7 C
   8         INTEGER TOASCI,NCOND
   9         EXTERNAL TOASCI,NCOND
  10         INCLUDE HAEBUF.FI
  11         INCLUDE HAETTY.FI
  12 C
  13 \f       INTEGER BMM,BSS,C,CH,D,O
  14 C
  15 C       READ BEGIN
  16         BMM=NCOND(BEGIN.GT.3600,BEGIN/60,BEGIN) @ EITHER MINUTES OR HOURS
  17         CH=NCOND(BEGIN.GT.3600,1HH,1HM) @ MAKE THE CORRECT HOUR/MINUTE INDICATOR
  18         BSS=TOASCI(MOD(BMM,60)) @ CONVERT DEFAULT VALUES TO ASCII CHARACTERS
  19         BMM=BMM/60
  20         D=BMM/10                        @ TO TYPE A LEADING ZERO
  21         O=MOD(BMM,10)
  22         WRITE (TTO,1) D,O,CH,BSS
  23         READ (TTI,2) BMM,C,BSS
  24         IF (C.NE.1H ) BEGIN=0           @ COL 3 NON BLANK FORCES ZERO INPUT
  25         BEGIN=NCOND(BMM+BSS,(BMM*60+BSS)*
  26      *   NCOND (C.EQ.1HH,60,C.EQ.1HM,1,CH.EQ.1HH,60,1),BEGIN)
  27         IF (COUNT.LE.1) RETURN
  28 C
  29 C       READ ENDS
  30 C
  31         ENDS=NCOND(ENDS.LE.BEGIN,BEGIN+SPAN,ENDS)
  32         BMM=NCOND(ENDS.GT.3600,ENDS/60,ENDS)
  33         CH=NCOND(ENDS.GT.3600,1HH,1HM)
  34         BSS=TOASCI(MOD(BMM,60))
  35         BMM=BMM/60
  36         D=BMM/10                        @ TO TYPE LEADING ZERO
  37         O=MOD(BMM,10)
  38         WRITE (TTO,3) D,O,CH,BSS
  39         READ (TTI,2) BMM,C,BSS
  40         IF (C.NE.1H )ENDS=0             @ COL 3 NON BLANK FORCES ZERO INPUT
  41         ENDS=NCOND(BMM+BSS,(BMM*60+BSS)*
  42      *   NCOND(C.EQ.1HH,60,C.EQ.1HM,1,CH.EQ.1HH,60,1),ENDS)
  43
  44         IF (COUNT.LE.2) RETURN
  45 C       READ SPAN
  46         SPAN=NCOND((ENDS-BEGIN).LT.SPAN,1,SPAN)
  47         WRITE (TTO,5) SPAN
  48         READ (TTI,2) BSS
  49         SPAN=NCOND(BSS,BSS,SPAN)
  50         IF (COUNT.LE.3) RETURN
  51 C       READ OVERLAP
  52 C
  53         OVRLAP=NCOND(SPAN-1,SPAN/2,1)
  54         WRITE (TTO,7) OVRLAP
  55         READ (TTI,2) C
  56         OVRLAP=NCOND(C,C,OVRLAP,OVRLAP,SPAN/2)
  57         RETURN
  58 1       FORMAT (' SPEKTRUM ANFANG  [MM:SS](',2I1,A1,A2,')? ',$)
  59 2       FORMAT (I2,A1,I2)
  60 3       FORMAT (10X,'ENDE    [MM:SS](',2I1,A1,A2,')? ',$)
  61 5       FORMAT (' SPANNWEITE DER FFT [SEC]   (',I2,    ' )? ',$)
  62 7       FORMAT (' SCHRITTWEITE DER FFT [SEC]  (',I2,')? ',$)
  63         END
  64 \1a