code 34368;
    procedure EIGVALHRM(A, N, NUMVAL, VAL, EM); value N, NUMVAL;
    integer N, NUMVAL; array A, VAL, EM;
    begin array D[1:N], BB[1:N - 1];
        HSHHRMTRIVAL(A, N, D, BB, EM);
        VALSYMTRI(D, BB, N, 1, NUMVAL, VAL, EM)
    end EIGVALHRM

        eop