A kinetic gelation method for the simulation of free-radical polymerizations