| 1 | C -+-+-+-+-+ \ e H A E I N T . F T \ e -+-+-+-+-+\r |
| 2 | C\r |
| 3 | C\r |
| 4 | REAL FUNCTION INTENS (X,LFREQU,HFREQU)\r |
| 5 | REAL X(1024),LFREQU,HFREQU\r |
| 6 | C\r |
| 7 | INCLUDE HAEBUF.FI\r |
| 8 | INCLUDE HAEGSA.FI\r |
| 9 | INCLUDE HAETTY.FI\r |
| 10 | C\r |
| 11 | INTEGER LCHNL,HCHNL,I\r |
| 12 | C\r |
| 13 | C STATEMENT FUNCTION, RETURNS THE CHANNEL NUMBER FOR THE FREQUENCY RP\r |
| 14 | ICHNL(RP)=INT(RP/FLOAT(SAMRAT)*FLOAT(INCR)+0.5)\r |
| 15 | C\r |
| 16 | LCHNL=ICHNL(LFREQU)+1 @ LOWER FREQUENCY INCLUDED\r |
| 17 | HCHNL=ICHNL(HFREQU) @ HIGH FREQUENCY EXCLUDED\r |
| 18 | HCHNL=MIN0(HCHNL,INCR/2+1) @ MAKE A VALID NUMBER\r |
| 19 | IF (LCHNL.GE.HCHNL) GOTO 20 @ HIGH/LOW MIXED\r |
| 20 | C COMPUTE THE INTENSITY (SUMM THE X(I))\r |
| 21 | INTENS=0\r |
| 22 | DO 10 I=LCHNL,HCHNL\r |
| 23 | 10 INTENS=X(I)+INTENS\r |
| 24 | RETURN\r |
| 25 | 20 WRITE (TTO,1) LFREQU,HFREQU\r |
| 26 | RETURN\r |
| 27 | 1 FORMAT (' INTENS: FREQUENZPARAMETER DURCHEINANDER',1P,2E12.4) \r |
| 28 | END\r |
| 29 | \1a\0\0\0\0\0 |