function inv_perm_tabs= inverse_tables(tab)
le=length(tab);
inv_perm_tabs=zeros(1,le);
for ir = 1 :le
    inv_perm_tabs(tab(ir)+1) = ir-1 ;
end

