233 |
|
} |
234 |
|
} |
235 |
|
|
236 |
+ |
|
237 |
|
RealType wi = 2.0*(xi2-yi2)*zi / r3; |
238 |
|
RealType wj = 2.0*(xj2-yj2)*zj / r3; |
239 |
|
RealType w = wi+wj; |
285 |
|
0.0); |
286 |
|
|
287 |
|
if (isPower) { |
288 |
+ |
cerr << "This is probably an error!\n"; |
289 |
|
RealType frac1 = 0.25; |
290 |
|
RealType frac2 = 0.75; |
291 |
|
RealType wi2 = wi*wi; |
332 |
|
Vector3d fjj = A2trans * radcomj; |
333 |
|
|
334 |
|
// now assemble these with the radial-only terms: |
335 |
< |
|
335 |
> |
|
336 |
|
*(idat.f1) += RealType(0.5) * ((v0*dsdr*w + v0p*dspdr*wp) * *(idat.d) / |
337 |
|
*(idat.rij) + fii - fjj); |
338 |
|
|