function [out] = losedcoff(in)
% losedcoff
% <out> = losedcoff( <in> )
%
% Subtracts the mean value of the input array from
% each element and returns the result.
% subtract off the DC offset of the corrupt signal to
% avoid the spike at t=0 in the Fourier plot.
avg = mean ( in );
[N, trash]= size(in);
for I=1:N
    in(I) = in(I) - avg;
end

out = in;

