求助,本人刚刚接触fortran,不知道下面这个matlab程序用fortran该怎么写??

clear
clc
road='M:\';
 name='2007_08_05_12_57_17_六楼.rel';
fid=fopen([road name]);
  a = fread(fid, 14, 'bit16'); 
  b = fread(fid, 9, 'float');  
  c = fread(fid, 48, '*char'); 
  d= fread(fid, 23, 'bit16'); 
  e= fread(fid, 17, 'long');
  time= fread(fid, 7, 'bit16');
  f= fread(fid, 34, 'bit64');
  i=1;
   while feof(fid)==0;
    k= fread(fid, 1, 'bit8');
    if feof(fid)==0;
    data= fread(fid, 3, 'bit32');
    da(i,1:3)=data'./2097/1.25;
    i=i+1;
    end
  end 
  fclose(fid); 


我最终想得到da,能够举个例子,怎么样从2进制文件里读去数字\字符也好,
谢谢各位高手!!!!