code 34163;
comment MCA 2323;
integer procedure QRISYM(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); TFMPREVEC(A, N);
        QRISYM:= QRISYMTRI(A, N, VAL, B, BB, EM)
    end QRISYM;
        eop