function inv_perm_tabs= inverse_tables2(tab)
tab2=reshape(tab,1,[]);
le=length(tab2);
inv_perm_tabs=zeros(1,le);
for ir = 1 :le
    inv_perm_tabs(tab2(ir)) = ir ;
end
%inv_perm_tabs=reshape(inv_perm_tabs,size(tab,1),size(tab,2));
