1 C -+-+-+-+-+
\ e H A E I N T . F T
\ e -+-+-+-+-+
4 REAL FUNCTION INTENS (X,LFREQU,HFREQU)
5 REAL X(1024),LFREQU,HFREQU
13 C STATEMENT FUNCTION, RETURNS THE CHANNEL NUMBER FOR THE FREQUENCY RP
14 ICHNL(RP)=INT(RP/FLOAT(SAMRAT)*FLOAT(INCR)+0.5)
16 LCHNL=ICHNL(LFREQU)+1 @ LOWER FREQUENCY INCLUDED
17 HCHNL=ICHNL(HFREQU) @ HIGH FREQUENCY EXCLUDED
18 HCHNL=MIN0(HCHNL,INCR/2+1) @ MAKE A VALID NUMBER
19 IF (LCHNL.GE.HCHNL) GOTO 20 @ HIGH/LOW MIXED
20 C COMPUTE THE INTENSITY (SUMM THE X(I))
25 20 WRITE (TTO,1) LFREQU,HFREQU
27 1 FORMAT (' INTENS: FREQUENZPARAMETER DURCHEINANDER',1P,2E12.4)