fhd = fopen('2s125w.hdr','rt');
fnsa = fopen('2s125w.txt','wt');

while ~feof(fhd)
   line = fgetl(fhd);
   fprintf(fnsa,'%s\n',line);
end

clean =output2(iy(cc:end),:);
[n,m]=size(clean);

fclose(fhd);
for k = 1:n;
   fprintf(fnsa,'1997');			%year
   fprintf(fnsa,' %8.4f ',clean(k,14));  %day and time(dec.day)
   fprintf(fnsa,'%11.6f',clean(k,2:9)); %Lu's(2:8),Ed(490)(9)
   fprintf(fnsa,' %3.0f ',clean(k,10));     %Fluro(10)  
   fprintf(fnsa,' %6.4f',clean(k,11));   %SST(11)
   fprintf(fnsa,' %7.3f',clean(k,12));		%Bat voltage
   fprintf(fnsa,'\n');
end
fclose all