added tol and ... to vcgClost(KD)