function readdata()
datadir='E:\My Data\Projects\DRI-BP\data\0714-90\Matfiles'
files=uipickfiles;
for j=1:length(files)
    fid=fopen(char(files(j)));
    lidar=read_CSM(fid,-10.67);
    [d,filen,ext]=fileparts(char(lidar.orig_filename));
    savefile=fullfile(datadir,[filen,'.mat']);
    save(savefile,'lidar')
    clear lidar
    fclose(fid)
end