while ~feof(fileIDS);
  m1=fgetl(fileIDS);
  [a,b]=intersect(dataD{1},{deblank(m1)});
  if     (~isempty( a))
    data=dataD{2}(b);
  elseif(~isempty(intersect(dataT{1},{deblank(m1)})) )
    data=1.0;
  else
    data=0.0;
  end;
end;