%eliminate duplicate history records...

kkhist=1:profiledata.numhists;
for i=1:profiledata.numhists
    
    j=strmatch(profiledata.QC_code(i),profiledata.QC_code);
    if(j~=i & profiledata.QC_depth(i)==profiledata.QC_depth(j))
        deletionpoint=i;
        deleteqcflag;
    end

end
