code 34192;
    comment MCA 2422;
    integer procedure COMEIGVAL(A, N, EM, RE, IM); value N;
    integer N; array A, EM, RE, IM;
    begin integer array INT, INT0[1:N];
        array D[1:N];

        EQILBR(A, N, EM, D, INT0); TFMREAHES(A, N, EM, INT);
        COMEIGVAL:= COMVALQRI(A, N, EM, RE, IM)
    end COMEIGVAL

        eop