matlab_class/gcmfaces_misc/convertR4toR4nonan.m

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);


1	function []=convertR4toR4nonan(fileIn,fileOut);
2
3	tmp1=dir(fileIn);
4	tmp1=tmp1.bytes/4;
5	fid=fopen(fileIn,'r','b'); tmp2=fread(fid,tmp1,'float32'); fclose(fid);
6	tmp2(find(isnan(tmp2)))=0;
7	fid=fopen(fileOut,'w','b'); fwrite(fid,tmp2,'float32'); fclose(fid);
8
9