% Extract imaginary part of a complex vector: matrix vector multiplication
%
% (c) by Hannes Nickisch, MPI for Biological Cybernetics, 2010 December 17

function y = mvm(A,x,ctransp)

  if ctransp
    y = 1i*real(x);
  else
    y = imag(x);  
  end