code 30002;
real procedure ARREB;
ARREB:= 2**(-47);
        eop