disp('prt_jas_efb');
fclose('all');
clear jaq;
%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=['D:\hp_ascii\proc_efb' jd  '.txt'];
	flist=fopen(f,'w');
else
   flist=1;
end; 
%take stats data and stick into matrix

jdx=floor(jad5);
frac=jad5-jdx;
hr=floor(frac*24);
minn=floor((frac*24-hr)*60);


npz=np;
jaq(1,1:npz)=jdx(1:npz);% JD
jaq(2,1:npz)=hr(1:npz);%hour
jaq(3,1:npz)=minn(1:npz);%min
jaq(4,1:npz)=s1(1:npz);%true wind speed
jaq(5,1:npz)=dir1(1:npz);%true widn die
jaq(6,1:npz)=relsp(1:npz);%rel wind speed
jaq(7,1:npz)=reldir(1:npz);%rel wind speed


%vectorized print, 
fprintf(flist,'%5i %5i %5i %9.2f %10.2f %9.2f  %10.2f  \r\n',jaq);
%                jd  h  m    S     dir    s      dir
fclose('all');
	
