"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"