"CODE" 34154;
"COMMENT" MCA 2314;
"PROCEDURE" EIGSYM2(A, N, NUMVAL, VAL, VEC, EM); "VALUE" N, NUMVAL;
"INTEGER" N, NUMVAL; "ARRAY" A, VAL, VEC, EM;
"BEGIN" "ARRAY" B, BB, D[1:N];

        TFMSYMTRI2(A, N, D, B, BB, EM);
        VALSYMTRI(D, BB, N, 1, NUMVAL, VAL, EM);
        VECSYMTRI(D, B, N, 1, NUMVAL, VAL, VEC, EM);
        BAKSYMTRI2(A, N, 1, NUMVAL, VEC)
    "END" EIGSYM2;
        "EOP"