%EIRE_WTS converts the boundary share weights,Sij,for eire
%into share-over-distance weights, Sij/Dij

%The workspace EIRE.MAT is assumed to be open

L = eire(:,1:2) ;

n = length(L) ;

u = ones(n,1) ;

%Make distance matrix

Dist = distance_mat(L);

%Now form new weights

Dist = Dist + eye(n); %make diag positive so division possible

W = W1./Dist ; %Note cell-wise division [assumes diag(W1) = 0]


%Now row normalize W

W = full(row_norm(W)) ;