function out = rmfltr( in, lin, lfilt1, lfilt2 );
 
% routine to do a simple running mean filter of length lfilt1 on an input series in of
% length lin
% Ginned up to take the place of missing routine called by laser alt
% processing routines.
% J. Churchill 12/27/05

hfilt1 = floor(lfilt1/2);
for ii = hfilt1+1:lin-hfilt1
    out(ii-hfilt1) = mean(in(ii-hfilt1:ii+hfilt1));
end