code 34374;
    integer procedure EIGVALCOM(AR, AI, N, EM, VALR, VALI);
    value N; integer N; array AR, AI, EM, VALR, VALI;
    begin integer array INT[1:N];
        array D, B, DEL, TR, TI[1:N];
        EQILBRCOM(AR, AI, N, EM, D, INT);
        EM[1]:= COMEUCNRM(AR, AI, N - 1, N);
        HSHCOMHES(AR, AI, N, EM, B, TR, TI, DEL);
        EIGVALCOM:= VALQRICOM(AR, AI, B, N, EM, VALR, VALI)
    end EIGVALCOM;
        eop