fgetl(fid);
0027 <span class="keyword">end</span>
0028 <span class="comment">%%</span>
0029 fclose(fid);
0030 <span class="comment">%%</span>
0031 <span class="keyword">if</span> dx==0, dx=round((max(pos)-min(pos))/maxg); <span class="keyword">end</span>
0032 allpos=[(0:maxg-1)'*dx;pos(:)];
0033 Shot=[];Shot.t=[];
0034 [Shot.pos,I,J]=unique(allpos);
0035 Shot.pos(:,2)=0;
0036 <span class="keyword">for</span> i=1:length(pos),
0037     Shot.ns{i}=J(maxg+i);
0038     Shot.nx{i}=J(TN{i}(:,2));
0039     Shot.tt{