code 34156;
comment MCA 2319;
procedure EIGSYM1(A, N, NUMVAL, VAL, VEC, EM); value N, NUMVAL;
integer N, NUMVAL; array A, VAL, VEC, EM;
begin array B, BB, D[1:N];

        TFMSYMTRI1(A, N, D, B, BB, EM);
        VALSYMTRI(D, BB, N, 1, NUMVAL, VAL, EM);
        VECSYMTRI(D, B, N, 1, NUMVAL, VAL, VEC, EM);
        BAKSYMTRI1(A, N, 1, NUMVAL, VEC)
    end EIGSYM1;
        eop