function [] = KsnEro(wname, sname, bname)
matlab_workdir = strcat('/Volumes/vonDassow/DEM_Analysis/Balco/', wname)
load(strcat(sname, '_chandata'))
n = size(chandata,1);
nameMat = repmat({sname}, n, 1);
ksn_all = chandata(:,8);
ksn_allmat = num2cell(ksn_all);
load('/Volumes/vonDassow/DEM_Analysis/Balco/Balco_ErosionRates.mat')
Erate = ones(n,1);
E1 = length(BalcoEro);
for i = 1:E1
if strmatch(BalcoEro(i,1), bname) == 1
fprintf('It worked')
BCurrent = BalcoEro(i,2);
BCurrent = cell2mat(BCurrent);
Erate(:,1) = BCurrent
break
else
fprintf('It did not work')
end;
end
sdata = cell(n,3);
sdata(:,1) = nameMat;
sdata(:,2) = ksn_allmat;
sdata(:,3) = Erate;