function [newn1,newn2,newdat]=linbridge(n1,n2,dat,infofid)
% c	SUBROUTINE to linearly fill in short gaps in data 
% c	NEIGHBORING good points to use
newdat=dat;
ng1=n1-1;
ng2=n2+1;
den=ng2-ng1;
npt=1;
for n=n1:n2
	fact=npt/den;
	newdat(n)=dat(ng1)+fact*(dat(ng2)-dat(ng1));
	npt=npt+1;
end;
fprintf(infofid,'Short gap from %d to %d is linearly filled\n',n1,n2);
fprintf('Short gap from %d to %d is linearly filled\n',n1,n2);

% c	SET n1 and n2 to -99 to mark that gaps filled
newn1=-99;
newn2=-99;

return
