r1563 improve calcForce()