C	-+-+-+-+-+   H A E C F R . F I   -+-+-+-+-+
C
C	CHANGE THE FREQUENCY LIMITS OF THE FIVE BANDS
C
	SUBROUTINE CFREQU
	INCLUDE HAETTY.FI
	INCLUDE HAEGSA.FI
	INCLUDE HAEPTI.FI
C	INTEGER NCOND
	REAL COND
	LOGICAL BETW
	EXTERNAL COND,NCOND,BETW
C
	INTEGER BAND,			@ DO LOOP INDEX
     *  TEXT(2),			@ MESSAGE LOWER LIMIT OR UPPER LIMIT
     *  BLOW,BUP,			@ LOWER AND UPPER BAND LIMITS TO CHANGE
     *  TEMP2				@ HOLDS BAND INDEX ( GREEK LETTER )
	LOGICAL L			@ A SPECIAL BAND LIMIT IS CHANGED
	REAL TEMP			@ USER INPUT
	DATA TEXT /'UNTERE','OBERE'/
C
	L=BETW(1,OPTION-1,6)
	BLOW=NCOND(L,OPTION-1,1)	@ COMPUTE LOWER BAND TO CHANGE
	BUP =NCOND(L,BLOW    ,5)	@ COMPUTE UPPER BAND TO CHANGE
C
	DO 20 BAND=BLOW,BUP
15	DO 10 LIMIT=1,2			@ LOWER LIMIT, UPPER LIMIT TO READ
	WRITE (TTO,1) TEXT(LIMIT),BAND,FREQU(BAND,LIMIT)
	READ  (TTI,2) TEMP,TEMP2	@ WRITE THE OLD VALUE AND ASK FOR THE NEW ONE
	GENAM(BAND)=NCOND(TEMP2.NE.1H ,TEMP2,
     *  TEMP1.NE.FREQU(BAND,LIMIT),1H ,GENAM(BAND)) @ INSERT THE NEW BAND INDEX (GREEK LETTER) IF DESIERED, OR  IF LIMITS CHANGED DELETE IT
10	FREQU(BAND,LIMIT)=COND(TEMP,TEMP,FREQU(BAND,LIMIT)) @ INSERT THE NEW VALUE
	IF (FREQU(BAND,1).LT.FREQU(BAND,2)) GOTO 20 @ IF THE LIMITS ARE MIXED THEN
	WRITE (TTO,3) BAND,(FREQU(BAND,LIMIT),LIMIT=1,2) @  WRITE AN ERROR MSG AND ASK AGAIN
	GOTO 15
20	CONTINUE
	RETURN
1	FORMAT (1X,A6,' GRENZE VON BAND',I2,' (',F4.1,' HZ) ? ',$)
2	FORMAT (F4.0,A2)
3	FORMAT (' GRENZEN VON BAND',I2,' DURCHEINANDER:',2F7.1)
	END
             