Devector - create one output filter from two input filters

Devector < filt1.H other=filt2.H > filt.H

Uses Wilson's factorization. filt = sqrt (filt1**2 + filt2**2)

from history and from aux (other)	integer	n1	number of filter coefficients
	integer arra	n2,n3,...	number of filters
	integer array	lag	helix filter lags
from par	integer	niter =20	number of WIlson's iterations
	integer	n1	number of output filter coefficients
	integer array	lag	output lags

Modules: wilson.r90 , autocorr.r90 , compress.r90