% fwritebfitexecR2  Write routine for bfitexecR2 (baby B's, 3rd harmonic)
% The file format has to be changed, so I will add a data which will function
% as a version number.
% The data in the "data" array are [eday,x[3],res,chi2,exits,index,
% sigdb(5),s2ndb(5)],
% written in log order.  They will be written as separated time series.
% RWB, March 28, 2005
fout='/Users/guest/seamount/project/0502/baby/bbscan/bbscan_mar3105_3rdharmonic.fit';
version=50328;
[npt,datacol]=size(data)
	
fid=fopen(fout,'w')
fwrite(fid,[version,npt],'long'); % version number, followed by number of points
	
fwrite(fid,data(:,7),'long'); % index number of event in input file
fwrite(fid,data(:,8),'long'); % fit status flag
	
for d=1:6 fwrite(fid,data(:,d),'double'); end % eday, x[3], res, chi2
for d=9:datacol fwrite(fid,data(:,d),'double'); end % sigdb and s2ndb for 5 harms.
	
fclose(fid)