code 34254;
    procedure GSSITISOLERB(A, N, AUX, B); value N; integer N;
    array A, AUX, B;
    begin integer I, J;
        array AA[1:N,1:N];
        integer array RI, CI[1:N];
        DUPMAT(1, N, 1, N, AA, A);
        GSSNRI(A, N, AUX, RI, CI);
        if AUX[3] = N then ITISOLERB(AA, A, N, AUX, RI, CI, B)
    end GSSITISOLERB;
        eop