Shielding properties of iron at high energy proton accelerators studied by a Monte Carlo code