function [v_m,vc_m,ve_m] = remap( v,vc,ve, enodes )
% function [v_m,vc_m,ve_m] = remap( v,vc,ve, enodes )
% v \in 1:smallN
% v_m \in 1:N
%
N = length(enodes);  % original size

changed = enodes;
count = 1;
for i=1:N,
  if changed(i) == -1,
  else
    changed(i) = count;
    count = count + 1;
  end;
end;
% changed
% remap
v_m = get_realpos( v, changed );
if ~isempty(vc),
  vc_m = zeros(1,length(vc));
  for i=1:length(vc),
    vc_m(i) = get_realpos( vc(i), changed );
  end;
else
  vc_m = [];
end;
if ~isempty(ve),
  ve_m = cell(1,length(ve));
  for i=1:length(ve),
    elem = ve{i};
    elem_m = zeros(1,length(elem));
    for j=1:length(elem),
      elem_m(j) = get_realpos( elem(j), changed );
    end;
    ve_m{i} = elem_m;
  end;
else
  ve_m = [];
end;