/[MITgcm]/MITgcm_contrib/gael/matlab_class/gcmfaces_misc/convertR8toR4.m
ViewVC logotype

Annotation of /MITgcm_contrib/gael/matlab_class/gcmfaces_misc/convertR8toR4.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Wed Feb 10 14:47:46 2010 UTC (15 years, 5 months ago) by gforget
Branch: MAIN
matlab_class: miscellaneous routines

1 gforget 1.1 function []=convertR8toR4(fileIn,fileOut);
2    
3     tmp1=dir(fileIn);
4     tmp1=tmp1.bytes/8;
5     fid=fopen(fileIn,'r','b'); tmp2=fread(fid,tmp1,'float64'); fclose(fid);
6     fid=fopen(fileOut,'w','b'); fwrite(fid,tmp2,'float32'); fclose(fid);
7    
8    

  ViewVC Help
Powered by ViewVC 1.1.22