code 34187;
    comment MCA 2417;
    integer procedure REAEIG3(A, N, EM, VAL, VEC); value N;
    integer N; array A, EM, VAL, VEC;
    begin integer I; real S;
        integer array INT, INT0[1:N]; array D[1:N];

        EQILBR(A, N, EM, D, INT0); TFMREAHES(A, N, EM, INT);
        I:= REAEIG3:= REAQRI(A, N, EM, VAL, VEC);
        if I = 0 then 
        begin BAKREAHES2(A, N, 1, N, INT, VEC);
            BAKLBR(N, 1, N, D, INT0, VEC); REASCL(VEC, N, 1, N)
        end 
    end REAEIG3;
        eop