disp('prt_efb_30');
fclose('all');
clear jazz;
%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_stats_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\efb_sum.txt'];
	flist=fopen(f,'w');
else
   flist=1;
end; 
%take stats data and stick into matrix
npz=np;
jazz=jazx1;

%vectorized print, 24 columns, up to 288 rows
%                 1     2     3     4     5     6    7     8     9      10     11    
fprintf(flist,'%12.0f %8.2f %8.2f %8.2f %8.2f %8.2f %8.2f %8.2f %8.2f %8.2f %7.1f  \r\n',jazz);
%                jd     s2   dir2  tsnk  tsg  salsg  ta     qs    qa    psp    pir  org  shpsp  hed  relu  rldir  lat   lon    zts   sigs   tau   hs   hl     rf 
fclose('all');
	
