1 C -+-+-+-+-+
\ e H A E I M A . F T
\ e -+-+-+-+-+
4 REAL FUNCTION IMAXNT (X,LFREQU,HFREQU,INDEX)
5 REAL X(1024),LFREQU,HFREQU
6 INTEGER INDEX @ OUTPUT PARAMETER
15 C STATEMENT FUNCTION, RETURNS THE CHANNEL NUMBER FOR THE FREQUENCY RP
16 ICHNL(RP)=INT(RP/FLOAT(SAMRAT)*FLOAT(INCR)+0.5)
18 STEP=FLOAT(SAMRAT)/FLOAT(INCR) @ HZ PER CHANNEL
19 LCHNL=ICHNL(LFREQU)+1 @ LOWER FREQUENCY INCLUDED
20 HCHNL=ICHNL(HFREQU) @ HIGH FREQUENCY EXCLUDED
21 HCHNL=MIN0(HCHNL,INCR/2+1) @ MAKE A VALID NUMBER
22 IF (LCHNL.GE.HCHNL) GOTO 20 @ HIGH/LOW MIXED
23 C COMPUTE THE MAXIMUM OF THE INTENSITY IN THIS BAND LFREQU,HFREQU
26 IF (MAXI.GT.X(I)) GOTO 10
32 20 WRITE (TTO,1) LFREQU,HFREQU
34 1 FORMAT (' IMAXNT: FREQUENZPARAMETER DURCHEINANDER',1P,2E12.4)