disp(['prt_jas_means_', cruise]);
fclose('all');
clear jazz;
%This program takes data computed by the read_pc_day progam and creates an ascii
%file appropriate for reading into a spreadsheet (e.g., lotus, quatropro, etc)

f=[way_proc_data_flux cruise '_proc_met_1min_' sprintf('%04i_%02i_%02i_%03i',Vdate(1),Vdate(2),Vdate(3),ddd) '.txt'];
flist=fopen(f,'w');

%take stats data and stick into matrix
jazz(1,1:np)=jd_pc;  %decimal JD
jazz(2,1:np)=pirm; %s
jazz(3,1:np)=pspm; %n
jazz(4,1:np)=Tc1;  %
jazz(5,1:np)=Td1;  %
jazz(6,1:np)=Tsea;
jazz(7,1:np)=Tvais;    %
jazz(8,1:np)=Rhvais;   %
jazz(9,1:np)=org;  %
jazz(10,1:np)=org_carrier; %
jazz(11,1:np)=aspir_on;    %
jazz(12,1:np)=press;    %
% jazz(13,1:np)=Tc3;  %
% jazz(14,1:np)=Td3;  %

%vectorized print, 12 columns, up to 1440 rows
% fprintf(flist,'%11.5f %9.2f %9.2f %9.2f %9.2f %9.2f %9.2f %9.2f  %9.2f %9.2f %9.2f %9.2f %9.2f %9.2f \r\n',jazz);
% %                jd    pir1  psp1   tc1   td1   ts    ta     rh   org  car  backflow  pressure
fprintf(flist,'%11.5f %9.2f %9.2f %9.2f %9.2f %9.2f %9.2f %9.2f  %9.2f %9.2f %9.2f %9.2f \r\n',jazz);
%                jd    pir1  psp1   tc1   td1   ts    ta     rh   org  car  backflow  pressure

fclose('all');