function data=read(fname)
%fname='g20160826_1.csv';
fid=fopen(fname);
s=fgets(fid);
s=fgets(fid);
s=strrep(s,'-',',');
ind=findstr(s,',');
s=s(ind+1:end);
x=str2num(s);
x=reshape(x,3,[])';
data.year=x(:,1);
data.month=x(:,2);
data.day=x(:,3);

s=fgets(fid);
s=strrep(s,':',',');
ind=findstr(s,',');
s=s(ind+1:end);
x=str2num(s);
x=reshape(x,3,[])';
data.time=x(:,1)+x(:,2)/60+x(:,3)/3600;

s=fgets(fid);
ind=findstr(s,',');
s=s(ind+1:end);
x=str2num(s);
data.dt=x';

s=fgets(fid);
ind=findstr(s,',');
s=s(ind+1:end);
x=str2num(s);
data.ave=x';

s=fgets(fid);
ind=findstr(s,',');
s=s(ind+1:end);
x=str2num(s);
data.temp=x';
fclose(fid);
x=textread(fname,'%s','headerlines',8,'bufsize',10000);
for k=9:length(x)-1
 v=str2num(x{k});
 data.lambda(k,1)=v(1);
 data.I(:,k)=v(2:end);
end