disp('read wband motion');
% vkonsa=[];%ones(10,36000);
vkons=[];
vkonsa=NaN*ones(10,36000);
hhka=NaN*ones(1,36000);
% fm = [way_raw_motion_wband yyyy ddds hr '00Kongsberg.txt'];
% FID2 = fopen(fm,'r');

dr2=dir([way_raw_motion_wband '\2013' ddds hr '*Kongsberg.txt']);
nk=0;
for ll=1:length(dr2) % multiple files in one hour
    filnx=dr2(ll).name
    FID2 = fopen([way_raw_motion_wband filnx],'r');
    if FID2>0
        % temp=textscan(FID2,'%2f/%2f/%4f %*c %f:%f:%f %f %f %f %f %*[^\n]','delimiter', '  ', 'headerlines', 4, 'emptyvalue', NaN);
        temp=textscan(FID2,'%2f/%2f/%4f %f:%f:%f %f %f %f %f %*[^\n]', 'headerlines', 4, 'emptyvalue', NaN);
        vkons=single(cell2mat(temp))'; 
    end
    
    vkonsa(:,nk+(1:length(vkons)))=vkons;
    nk=nk+length(vkons);
end
vkonsa=vkonsa(:,1:nk);
hhka=vkonsa(4,:)+vkonsa(5,:)/60+vkonsa(6,:)/3600;
[hhka,i]=sort(hhka,'ascend');
[hhka, m, n] = unique(hhka) ;
vkonsa=vkonsa(:,m);
clear flist;