function [] = extractCurrent( )
%
% PURPOSE: Extract current
%
% AUTHOR: Rob McEwen
%
fileName = 'syslog';

fid = fopen(fileName,'r+t');
if( fid == -1 )   
  fprintf(' File %s not found!\n',fileName);
  return
end

i=0;
fileStr = ' ';
while( fileStr ~= -1 )
  i = i + 1;
  fileStr = fgetl(fid);
  regPtr =  regexp(fileStr,'^: on:...,');
  
  
  
  
  if( ~ischar(fileStr) ) continue; end
  regPtr = regexp(fileStr(1),'^[ ]*[0-9\-]');
  if( isempty(regPtr) ) continue; end
  data = sscanf(fileStr,'%f %f %f %d %f %f %f %f');
  if( data(4) == 0 ) continue; end
  j = j + 1;
  routeFile(j,:) = data';
end
