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 'proc_rad' jd  '.txt'];
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; %%Eppley PIR #1
jazz(3,1:np)=pir2; %%Epple PIR #2
jazz(4,1:np)=psp1;  %% Eppley PSP #1
jazz(5,1:np)=psp2;  %% Eppley PSP #2
jazz(6,1:np)=Tc1;  %
jazz(7,1:np)=Td1;  %
jazz(8,1:np)=Tc2;  %
jazz(9,1:np)=Td2;  %
jazz(10,1:np)=Tvais; %
jazz(11,1:np)=Rhvais;    %
jazz(12,1:np)=Tsea;    %
% jazz(12,1:np)=pir3;    %
% jazz(13,1:np)=psp3;    %

%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.3f %9.3f \r\n',jazz);
% %                jd    pir1  pir2  psp1  psp2  tc1   td1   Tkz   ta    rh    tsea  pir3  psp3
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.3f \r\n',jazz);
%                jd    pir1  pir2  psp1  psp2  tc1   td1   tc2   td2   ta    rh    tsea  

fclose('all');
	
