dataline = fgetl(fid);
dataline = fgetl(fid);

dataline = fgetl(fid);

for i=1:31
[x,ok]=str2num(dataline(1));
if ok==0
 break
end 

if monthnolength==1
 if i<=9
  histartpos=10;
 else
  histartpos=11;
 end
else
 if i<=9
  histartpos=11;
 else
  histartpos=12;
 end
end

currentpos=histartpos;
flag=0;

while flag==0
if dataline(currentpos+1)==','
flag=1;
end
currentpos=currentpos+1;
end

obs_hi(i)=str2num(dataline(histartpos:currentpos-1));

currentpos=currentpos+1;
flag=0;

while flag==0
if dataline(currentpos+1)==','
flag=1;
end
currentpos=currentpos+1;
end

currentpos=currentpos+1;
lostartpos=currentpos;
flag=0;

while flag==0
if dataline(currentpos+1)==','
flag=1;
end
currentpos=currentpos+1;
end

obs_lo(i)=str2num(dataline(lostartpos:currentpos-1));

dataline = fgetl(fid);

end

fclose(fid);


