code 34162;
comment MCA 2322;
integer procedure QRIVALSYM2(A, N, VAL, EM); value N;
integer N; array A, VAL, EM;
begin array B, BB[1:N];

        TFMSYMTRI2(A, N, VAL, B, BB, EM);
        QRIVALSYM2:= QRIVALSYMTRI(VAL, BB, N, EM)
    end QRIVALSYM2

        eop