code 34369;
    procedure EIGHRM(A, N, NUMVAL, VAL, VECR, VECI, EM);
    value N, NUMVAL; integer N, NUMVAL;
    array A, VAL, VECR, VECI, EM;
    begin array BB, TR, TI[1:N - 1], D, B[1:N];
        HSHHRMTRI(A, N, D, B, BB, EM, TR, TI);
        VALSYMTRI(D, BB, N, 1, NUMVAL, VAL, EM); B[N]:= 0;
        VECSYMTRI(D, B, N, 1, NUMVAL, VAL, VECR, EM);
        BAKHRMTRI(A, N, 1, NUMVAL, VECR, VECI, TR, TI)
    end EIGHRM;
        eop