disp(['prt_jas_co2_', 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_licor7500_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_ref;  %decimal DOY
jazz(2,1:np)=Licor_H2O_mi'; %g/kg
jazz(3,1:np)=Licor_CO2_ai'; %umol/mol
jazz(4,1:np)=Licor_Tempi';  %degC
jazz(5,1:np)=Licor_Pressi';  %hPa
jazz(6,1:np)=Licor_agci';  %AGC value (%)

%vectorized print, 6 columns, up to 1440 rows
fprintf(flist,'%11.5f %9.3f %9.3f %9.3f %9.3f %9.3f \r\n',jazz);
fclose('all');
	
