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	gforget	1.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