disp('prt_means_07');
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
% modified on 30-mar-01 by D.E.Lane for Kai 2001 cruise

prt_it=0;  %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_means' 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)=pirm; %s
jazz(3,1:npz)=pspm; %n
jazz(4,1:npz)=Tc1;  %
jazz(5,1:npz)=Td1;  %
jazz(6,1:npz)=Tsea;
jazz(7,1:npz)=Tvais;    %
jazz(8,1:npz)=Rhvais;   %
jazz(9,1:npz)=org;  %
jazz(10,1:npz)=org_carrier; %
jazz(11,1:npz)=aspir_on;  %
jazz(12,1:npz) = press;  %

%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.6f \r\n',jazz);
%                jd     pir1  2    psp1   2     tc1   td1   tc2   td2   ts    ta     rh   org 
fprintf(flist,'%11.5f %8.1f %8.1f %9.2f %9.2f %9.2f %9.2f %9.1f  %9.3f %9.2f %9.1f %9.1f \r\n',jazz);
%                jd    pir1  psp1   tc1   td1   ts    ta     rh   org  car  backflow  sfcp
fclose('all');