disp('prt_epi_means');
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:\cwf\data\epic2001\proc_hp\proc_hp' jd  '.txt']
   flist=fopen(f,'w');
else
   flist=1;
end; 
%take stats data and stick into matrix
npz=np;
jazz(1,1:npz)=jad;%decimal JD
jazz(2,1:npz)=pir1;%s
jazz(3,1:npz)=pir2;%s
jazz(4,1:npz)=psp1;%n
jazz(5,1:npz)=psp2;%
jazz(6,1:npz)=Tc1;%
jazz(7,1:npz)=Td1;%
jazz(8,1:npz)=Tc2;%
jazz(9,1:npz)=Td2;%
jazz(10,1:npz)=Tsea;
jazz(11,1:npz)=Tvais;%
jazz(12,1:npz)=Rhvais;%
jazz(13,1:npz)=org1;%
jazz(14,1:npz)=org2;%
jazz(15,1:npz)=org3;%
jazz(16,1:npz)=org4;%
jazz(17,1:npz)=org1_car;%
jazz(18,1:npz)=org2_car;%
jazz(19,1:npz)=aspir;%

%vectorized print, 13 columns, up to 1440 rows
fprintf(flist,'%11.5f %8.1f %8.1f %8.1f %9.1f %9.2f %9.2f %9.2f %9.2f %9.2f %9.2f %9.1f %9.1f %9.1f %9.1f %9.1f %9.1f %9.1f %9.1f \r\n',jazz);
%                jd     pir1  2    psp1   2     tc1   td1   tc2   td2   ts    ta     rh   org1   org2   org3  org4 
fclose('all');
	
