slighly change to speed things slightly up

operate IntegralFactory_1Atom::curr_atom rather than create multiple
factories