code 34164;
comment MCA 2327;
integer procedure QRIVALSYM1(A, N, VAL, EM); value N;
integer N; array A, VAL, EM;
begin array B, BB[1 : N];

        TFMSYMTRI1(A, N, VAL, B, BB, EM);
        QRIVALSYM1:= QRIVALSYMTRI(VAL, BB, N, EM)
    end QRIVALSYM1;
        eop