| 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 |
|
|