bondForce.cu 303 Bytes
Newer Older
1
real3 delta = make_real3(pos2.x-pos1.x, pos2.y-pos1.y, pos2.z-pos1.z);
2
3
4
#if APPLY_PERIODIC
APPLY_PERIODIC_TO_DELTA(delta)
#endif
5
6
7
8
9
10
real r = SQRT(delta.x*delta.x + delta.y*delta.y + delta.z*delta.z);
COMPUTE_FORCE
dEdR = (r > 0) ? (dEdR / r) : 0;
delta *= dEdR;
real3 force1 = delta;
real3 force2 = -delta;