function matrix=kl(A,v)
     row=size(A,1);
for i=1:row
   matrix(i,:)= A(i,:)*v;
end