function data=read_cdn(flin)

fp=fopen(flin,'r');
%bypass header
for k=1:8
    s=fgetl(fp);
end


s=fgetl(fp);
A=sscanf(s(28:end),'%i %i %i:%i:%i');

data.dn=datenum(2004,5,A(1))+A(3)/24+A(4)/(24*60)+A(5)/(24*3600)
data.yd=data.dn-datenum(2004,1,1)


s='* System UpLoad Time = May 19 2004 18:54:17'

s=fgetl(fp);
A=sscanf(s(18:end-1),'%f %f');
data.lat=A(1)+A(2)/60;

s=fgetl(fp);
A=sscanf(s(19:end-1),'%f %f');
data.lon=A(1)+A(2)/60;

for k=1:81
    s=fgetl(fp);
end



d=fscanf(fp,'%f',[15,inf])';
fclose(fp);
data.z=-d(:,2);
data.t=d(:,3);
data.s=d(:,14);
