Commit | Line | Data |
---|---|---|
1 | C HANNING FILTER TO SMOTH REAL AND IMAGINARY REAL COEFFICIENTS\r | |
2 | C THE ROUTINE DOES NOT HANDLE THE FIRST AND LAST CHANNEL CORRECTLY !\r | |
3 | C\r | |
4 | SUBROUTINE HANING (X,CNT)\r | |
5 | INTEGER CNT @ NUMBER OF DATA REAL OR IMAG TO SMOOTH\r | |
6 | REAL X(CNT) @ ARRAY CONTAINING REAL OR IMAG DATA\r | |
7 | C\r | |
8 | INTEGER I\r | |
9 | C\r | |
10 | DO 10 I=2,CNT-1\r | |
11 | 10 X(I)=-.25*X(I-1)+.5*X(I)-.25*X(I+1)\r | |
12 | END\r | |
13 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |