code 34403;
    procedure CHLDECINV1(A, N, AUX); value N; integer N;
    array A, AUX;
    begin 

        CHLDEC1(A, N, AUX);
        if AUX[3] = N then CHLINV1(A, N)
    end CHLDECINV1;
        eop