invperm1(i)

function invi = invperm1(i)
%invperm permutation inverse d'une permutation donne
%        des length(i) premiers entiers.

  invi=zeros(size(i));
  invi(i)=1:length(i);