function [yout,tout] = readlog(fname,dt)

fp=fopen(fname,'r');
a=fgetl(fp); n=1;
mv=findstr(a,'mV DC');
v=findstr(a,'V DC');
while isempty(v)
    n=n+1;
    a=fgetl(fp);
    mv=findstr(a,'mV DC');
    v=findstr(a,'V DC');
end
fprintf('Starting with line %.0f:\n\n%s\n',n,a);
n2=0;
while ~isempty(a)
    n2=n2+1;
    lastM=max(findstr(a(1:v),'M'));
    if ~isempty(mv)
        yout(n2)=.001*str2num(a((lastM+1):(mv-1))); % mv
    else
        yout(n2)=str2num(a((lastM+1):(v-1))); % volts
    end
    a=fgetl(fp);
    mv=findstr(a,'mV DC');
    v=findstr(a,'V DC');
    if isempty(v)
        break
    end
end
if exist('dt')
    tout=dt*[0:(length(yout)-1)];
else
    tout=[];
end
%a

fclose(fp);