function fid=de(fid,lb,gm)
%%Usage fid=de(fid,lb,gm)
%%Double-exponential window function
%%Increases resolution at the expense of
%%signal-to-noise
	at=max(fid(:,1));
	defun= @(lb,gm,t) (exp(-(t.*lb-gm*at))).^2;
	fid(:,2)=fid(:,2).*defun(lb,gm,fid(:,1));
	fid(:,3)=fid(:,3).*defun(lb,gm,fid(:,1));
end
