C	-+-+-+-+-+   H A E I N T . F T   -+-+-+-+-+
C
C
	REAL FUNCTION INTENS (X,LFREQU,HFREQU)
	REAL X(1024),LFREQU,HFREQU
C
	INCLUDE HAEBUF.FI
	INCLUDE HAEGSA.FI
	INCLUDE HAETTY.FI
C
	INTEGER LCHNL,HCHNL,I
C
C	STATEMENT FUNCTION, RETURNS THE CHANNEL NUMBER FOR THE FREQUENCY RP
	ICHNL(RP)=INT(RP/FLOAT(SAMRAT)*FLOAT(INCR)+0.5)
C
	LCHNL=ICHNL(LFREQU)+1		@ LOWER FREQUENCY INCLUDED
	HCHNL=ICHNL(HFREQU)		@ HIGH FREQUENCY EXCLUDED
	HCHNL=MIN0(HCHNL,INCR/2+1)	@ MAKE A VALID NUMBER
	IF (LCHNL.GE.HCHNL) GOTO 20	@ HIGH/LOW MIXED
C	COMPUTE THE INTENSITY (SUMM THE X(I))
	INTENS=0
	DO 10 I=LCHNL,HCHNL
10	INTENS=X(I)+INTENS
	RETURN
20	WRITE (TTO,1) LFREQU,HFREQU
	RETURN
1	FORMAT (' INTENS: FREQUENZPARAMETER DURCHEINANDER',1P,2E12.4)   
	END
     