code 34241;
    procedure ERBELM(N, AUX, NRMINV); value N, NRMINV;
    integer N; real NRMINV;
    array AUX;
    begin real AID, EPS;
        EPS:= AUX[0]; AID:= (1.06 * EPS * (.75 * N + 4.5) * N ** 2
        * AUX[7] + AUX[5] * AUX[6]) * NRMINV;
        AUX[11]:= if 2 * AID >= (1 - EPS) then - 1 else 
        AID / (1 - 2 * AID); AUX[9]:= NRMINV
    end ERBELM;
        eop