function [] = wrBadRec(cfile,T12,dt,dataZero);

fid = fopen(cfile,'w');
[nBad,dum] = size(T12);
fprintf(fid,'%s\n',dataZero);
fprintf(fid,'%4i %f\n',nBad,dt);
for k = 1:nBad
   tmp=num2str(T12(k,:));
   fprintf(fid,'%s %d\n',tmp,4);
end
fclose(fid);
