Using .Machine$double.eps rather than the hand coded e-13
Playing around with defaults... previous version was slower but much
more precise so using sqrt(.Machine$double.eps) as min poll size
(stopping)