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