[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / haning.ft

C	HANNING FILTER TO SMOTH REAL AND IMAGINARY REAL COEFFICIENTS\r
C	THE ROUTINE DOES NOT HANDLE THE FIRST AND LAST CHANNEL CORRECTLY !\r
C\r
	SUBROUTINE HANING (X,CNT)\r
	INTEGER CNT			@ NUMBER OF DATA REAL OR IMAG TO SMOOTH\r
	REAL X(CNT)			@ ARRAY CONTAINING REAL OR IMAG DATA\r
C\r
	INTEGER I\r
C\r
	DO 10 I=2,CNT-1\r
10	X(I)=-.25*X(I-1)+.5*X(I)-.25*X(I+1)\r
	END\r
\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
Commit	Line	Data
81e70d48 PH	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)=-.25X(I-1)+.5X(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