disp('read_ts')
%nx =13712

fclose('all');
flisx=fopen('c:\cwf\cope\jess_s.txt','r');
stuff=fgetl(flisx);
%******************  setup read data loop  **********
nx=13712;				%# of lines of data     
for ibg = 1:nx 			%major read loop
	stux=fscanf(flist,'%g%g%g',[3,1]);
	%*********************************************
		%*******   decode date  ************
	iyr=round(stux(1)/1e10);
	mon=round(stux(1)/1e8)-iyr*100;
	iday=round(stux(1)/1e6)-iyr*1e4-mon*100;
	ihr=round(stux(1)/1e4)-iyr*1e6-mon*1e4-iday*100;
	hapx(ibg,1:2)=[stux(1),stux(3)];
	%disp(hapx(ibg,:));
	
end; %  data line loop
	
	
	
	
	
	
	
	
