disp(['prt_jas_rads: ', cruise]);
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)

f=[way_proc_data_flux cruise '_proc_rad_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)=pir1; %s
jazz(3,1:np)=Tc1;  %
jazz(4,1:np)=Td1;  %
jazz(5,1:np)=psp1;   %
jazz(6,1:np)=Tvais; %
jazz(7,1:np)=Rhvais;    %
jazz(8,1:np)=Tsea;    %
jazz(9,1:np)=therm1;    %

%vectorized print, 8 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  \r\n',jazz);
%                jd    pir1  tc1   td1  psp1   ta     rh   tsea  therm1
fclose('all');
	
