disp(['prt_jas_means_', cruise, '_', year]);
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 'proc_pc' jd  '.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;    %

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