code 34252;
    procedure GSSNRI(A, N, AUX, RI, CI); value N; integer N;
    array A, AUX;
    integer array RI, CI;
    begin 
        GSSELM(A, N, AUX, RI, CI);
        if AUX[3] = N then AUX[9]:= ONENRMINV(A, N)
    end GSSNRI;
        eop