function new_location=set_diagG(N,X,gnd)


for i=1:N
    
    
    tot=nnz ( X(i,:) ) ;
    
    X(i,i) = tot + gnd;
%     tot=0;
%         for j=1:N
%             if(X(i,j)~=0 && i~=j )
%                 tot=tot+(-X(i,j));
%             end
%         end
%         if(tot>0)
%                 X(i,i)=tot+gnd;
%         end
%         if(tot==0)
%             X(i,i)=0.01;
%         end
end

new_location=X;