code 34293;
procedure DECSOLSYM2(A,N,B,TOL,AUX);
value N;integer N;real TOL;
array A,B;integer array AUX;
begin real array DETAUX[1:N];integer array P[1:N];
        DECSYM2(A,N,TOL,AUX,P,DETAUX);
        if AUX[5]=0 then SOLSYM2(A,N,B,P,DETAUX)
end DECSOLSYM2;
        eop