code 34393;
    procedure CHLDECSOL1(A, N, AUX, B); value N; integer N;
    array A, AUX, B;
    begin 

        CHLDEC1(A, N, AUX);
        if AUX[3] = N then CHLSOL1(A, N, B)
    end CHLDECSOL1;
        eop