pair/gran/hooke and wall/gran/hooke does not work correctly
pair/gran/hooke and wall/gran/hooke does not work correctly. For example, the source "pair_gran_hooke.cpp" contains lines number 197-206 with the code:
// force normalization
fn = xmu * fabs(ccel*r);
fs = gammat*vrel;
if (vrel != 0.0) ft = MIN(fn,fs) / vrel; ======== ??? ========
else ft = 0.0;
// tangential force due to tangential velocity damping
fs1 = -ft*vtr1;
fs2 = -ft*vtr2;
fs3 = -ft*vtr3;