disp('read_wk')


fclose('all');
flist=fopen('c:\cwf\cope\jess_b.txt','r');
stuff=fgetl(flist);
%******************  setup read data loop  **********
nx=12822;				%# of lines of data     
for ibg = 1:nx 			%major read loop
	stux=fscanf(flist,'%g%g%g%g%g%g%g%g',[8,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;
	happ(ibg,1:7)=stux(1:7)';
	stux(1:7)';
end; %  data line loop
	
	
	
	
	
	
	
	
