function    value=Vadjprod(B)
%  multiplication V'*B by using (B'*V)'
B=sparse(B);
value=(sparse(prodV(B'))  )';
