function rhp_pole=finn_rhp_pole(G)
[num_G,den_G]=tfdata(G,'v');
poler=roots(den_G);

poler_HHP=0;
for ii=1:length(poler)
    if(real(poler(ii))>0)
        if(poler_HHP==0)
            poler_HHP=poler(ii);
        else
            plass=length(poler_HHP)+1;
            poler_HHP(plass)=poler(ii);
        end
        
    end
end


rhp_pole=poler_HHP;

end

