utilities_ESRF/readedfheader.m

   1 % function hd=readedfheader(fid)
   2
   3 function hd=readedfheader(fid)
   4
   5 headerlength = 512;
   6 closing = '}';
   7 hd = fscanf(fid,'%c',headerlength);
   8
   9 while not(strcmp(hd(end-1),closing))
  10         hd = [hd fscanf(fid,'%c',headerlength)];
  11 end