disp('prt_jas_son_rhb_07');
fclose('all');
clear jazx;
%This program takes data computed by the read_hp_day progam and creates an ascii
%file appropriate for reading into a spreadsheet (e.g., lotus, quatropro, etc)
%To use it, you must first run the read_son_day program, or stick this stuff in it

prt_it=1;  %set to 0 to print to screen, 1 to print to a file (i.e., make ascii file)
if prt_it==1
   f=[way_proc_data 'proc_son' jd  '.txt'];
   flist=fopen(f,'w');
else
   flist=1;
end; 
npz=np;

jazx(1,1:npz)=jadson(1:npz);	%decimal JD
jazx(2,1:npz)=U(1:npz);		
jazx(3,1:npz)=V(1:npz);		
jazx(4,1:npz)=w(1:npz);		
jazx(5,1:npz)=Tsonic(1:npz);	
jazx(6,1:npz)=dir(1:npz);
 
fprintf(flist,'%11.5f %9.2f %9.2f %9.2f %10.2f %10.2f  \r\n',jazx);
%                jd     U      V    W      T     dir
fclose('all');
	
