function c=mprod(a,b);
% c=mprod(a,b) forms matrix c(n,m)=a(n)*conj(b(m))

if(nargin==1)
  b=a;
end

c=repmat(a(:),1,length(a(:))).*repmat(b(:)',length(b(:)),1);

