function []=convertR4toR4nonan(fileIn,fileOut);

tmp1=dir(fileIn);
tmp1=tmp1.bytes/4;
fid=fopen(fileIn,'r','b'); tmp2=fread(fid,tmp1,'float32'); fclose(fid);
tmp2(find(isnan(tmp2)))=0;
fid=fopen(fileOut,'w','b'); fwrite(fid,tmp2,'float32'); fclose(fid);