44 |
|
namespace OpenMD { |
45 |
|
|
46 |
|
bool InteractionManager::initialized_ = false; |
47 |
+ |
RealType InteractionManager::rCut_ = -1.0; |
48 |
+ |
RealType InteractionManager::rSwitch_ = -1.0; |
49 |
|
ForceField* InteractionManager::forceField_ = NULL; |
50 |
|
InteractionManager* InteractionManager::_instance = NULL; |
51 |
|
map<int, AtomType*> InteractionManager::typeMap_; |
52 |
|
map<pair<AtomType*, AtomType*>, set<NonBondedInteraction*> > InteractionManager::interactions_; |
53 |
+ |
|
54 |
+ |
LJ* InteractionManager::lj_ = new LJ(); |
55 |
+ |
GB* InteractionManager::gb_ = new GB(); |
56 |
+ |
Sticky* InteractionManager::sticky_ = new Sticky(); |
57 |
+ |
Morse* InteractionManager::morse_ = new Morse(); |
58 |
+ |
EAM* InteractionManager::eam_ = new EAM(); |
59 |
+ |
SC* InteractionManager::sc_ = new SC(); |
60 |
+ |
Electrostatic* InteractionManager::electrostatic_ = new Electrostatic(); |
61 |
+ |
MAW* InteractionManager::maw_ = new MAW(); |
62 |
+ |
SwitchingFunction* InteractionManager::switcher_ = new SwitchingFunction(); |
63 |
|
|
64 |
|
InteractionManager* InteractionManager::Instance() { |
65 |
|
if (!_instance) { |
70 |
|
|
71 |
|
void InteractionManager::initialize() { |
72 |
|
|
61 |
– |
lj_ = new LJ(); |
62 |
– |
gb_ = new GB(); |
63 |
– |
sticky_ = new Sticky(); |
64 |
– |
eam_ = new EAM(); |
65 |
– |
sc_ = new SC(); |
66 |
– |
morse_ = new Morse(); |
67 |
– |
electrostatic_ = new Electrostatic(); |
68 |
– |
|
73 |
|
lj_->setForceField(forceField_); |
74 |
|
gb_->setForceField(forceField_); |
75 |
|
sticky_->setForceField(forceField_); |
77 |
|
sc_->setForceField(forceField_); |
78 |
|
morse_->setForceField(forceField_); |
79 |
|
electrostatic_->setForceField(forceField_); |
80 |
+ |
maw_->setForceField(forceField_); |
81 |
|
|
82 |
+ |
ForceFieldOptions& fopts = forceField_->getForceFieldOptions(); |
83 |
+ |
// Force fields can set options on how to scale van der Waals and electrostatic |
84 |
+ |
// interactions for atoms connected via bonds, bends and torsions |
85 |
+ |
// in this case the topological distance between atoms is: |
86 |
+ |
// 0 = the atom itself |
87 |
+ |
// 1 = bonded together |
88 |
+ |
// 2 = connected via a bend |
89 |
+ |
// 3 = connected via a torsion |
90 |
+ |
|
91 |
+ |
vdwScale_[0] = 0.0; |
92 |
+ |
vdwScale_[1] = fopts.getvdw12scale(); |
93 |
+ |
vdwScale_[2] = fopts.getvdw13scale(); |
94 |
+ |
vdwScale_[3] = fopts.getvdw14scale(); |
95 |
+ |
|
96 |
+ |
electrostaticScale_[0] = 0.0; |
97 |
+ |
electrostaticScale_[1] = fopts.getelectrostatic12scale(); |
98 |
+ |
electrostaticScale_[2] = fopts.getelectrostatic13scale(); |
99 |
+ |
electrostaticScale_[3] = fopts.getelectrostatic14scale(); |
100 |
+ |
|
101 |
|
ForceField::AtomTypeContainer* atomTypes = forceField_->getAtomTypes(); |
102 |
|
ForceField::AtomTypeContainer::MapTypeIterator i1, i2; |
103 |
|
AtomType* atype1; |
233 |
|
interactions_[key].insert(sc_); |
234 |
|
metExplicit = true; |
235 |
|
} |
236 |
+ |
|
237 |
+ |
if (nbiType->isMAW()) { |
238 |
+ |
if (vdwExplicit) { |
239 |
+ |
sprintf( painCave.errMsg, |
240 |
+ |
"InteractionManager::initialize found more than one explicit\n" |
241 |
+ |
"\tvan der Waals interaction for atom types %s - %s\n", |
242 |
+ |
atype1->getName().c_str(), atype2->getName().c_str()); |
243 |
+ |
painCave.severity = OPENMD_ERROR; |
244 |
+ |
painCave.isFatal = 1; |
245 |
+ |
simError(); |
246 |
+ |
} |
247 |
+ |
// We found an explicit MAW interaction. |
248 |
+ |
// override all other vdw entries for this pair of atom types: |
249 |
+ |
set<NonBondedInteraction*>::iterator it; |
250 |
+ |
for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it) { |
251 |
+ |
InteractionFamily ifam = (*it)->getFamily(); |
252 |
+ |
if (ifam == VANDERWAALS_FAMILY) interactions_[key].erase(*it); |
253 |
+ |
} |
254 |
+ |
interactions_[key].insert(maw_); |
255 |
+ |
vdwExplicit = true; |
256 |
+ |
} |
257 |
|
} |
258 |
|
} |
259 |
|
|
276 |
|
} |
277 |
|
} |
278 |
|
} |
234 |
– |
|
235 |
– |
|
236 |
– |
void InteractionManager::doPrePair(AtomType* atype1, |
237 |
– |
AtomType* atype2, |
238 |
– |
RealType rij, |
239 |
– |
RealType &rho_i_at_j, |
240 |
– |
RealType &rho_j_at_i) { |
241 |
– |
|
242 |
– |
} |
279 |
|
|
280 |
< |
void InteractionManager::doPreForce(AtomType* atype, |
245 |
< |
RealType rho, |
246 |
< |
RealType &frho, |
247 |
< |
RealType &dfrhodrho) { |
248 |
< |
} |
249 |
< |
|
250 |
< |
void InteractionManager::doSkipCorrection(AtomType* atype1, |
251 |
< |
AtomType* atype2, |
252 |
< |
Vector3d d, |
253 |
< |
RealType rij, |
254 |
< |
RealType &skippedCharge1, |
255 |
< |
RealType &skippedCharge2, |
256 |
< |
RealType sw, |
257 |
< |
RealType electroMult, |
258 |
< |
RealType &pot, |
259 |
< |
RealType &vpair, |
260 |
< |
Vector3d &f1, |
261 |
< |
Mat3x3d eFrame1, |
262 |
< |
Mat3x3d eFrame2, |
263 |
< |
Vector3d &t1, |
264 |
< |
Vector3d &t2) { |
265 |
< |
} |
266 |
< |
|
267 |
< |
void InteractionManager::doSelfCorrection(AtomType* atype, |
268 |
< |
Mat3x3d eFrame, |
269 |
< |
RealType skippedCharge, |
270 |
< |
RealType &pot, |
271 |
< |
Vector3d &t) { |
272 |
< |
} |
273 |
< |
|
274 |
< |
void InteractionManager::do_prepair(int *atid1, int *atid2, RealType *rij, RealType *rho_i_at_j, RealType *rho_j_at_i){ |
280 |
> |
void InteractionManager::doPrePair(int *atid1, int *atid2, RealType *rij, RealType *rho_i_at_j, RealType *rho_j_at_i){ |
281 |
|
|
282 |
|
if (!initialized_) initialize(); |
283 |
< |
AtomType* atype1 = typeMap_[*atid1]; |
284 |
< |
AtomType* atype2 = typeMap_[*atid2]; |
285 |
< |
|
286 |
< |
doPrePair(atype1, atype2, *rij, *rho_i_at_j, *rho_j_at_i); |
283 |
> |
|
284 |
> |
DensityData ddat; |
285 |
> |
|
286 |
> |
ddat.atype1 = typeMap_[*atid1]; |
287 |
> |
ddat.atype2 = typeMap_[*atid2]; |
288 |
> |
ddat.rij = *rij; |
289 |
> |
ddat.rho_i_at_j = *rho_i_at_j; |
290 |
> |
ddat.rho_j_at_i = *rho_j_at_i; |
291 |
> |
|
292 |
> |
pair<AtomType*, AtomType*> key = make_pair(ddat.atype1, ddat.atype2); |
293 |
> |
set<NonBondedInteraction*>::iterator it; |
294 |
> |
|
295 |
> |
for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it){ |
296 |
> |
if ((*it)->getFamily() == METALLIC_FAMILY) { |
297 |
> |
dynamic_cast<MetallicInteraction*>(*it)->calcDensity(ddat); |
298 |
> |
} |
299 |
> |
} |
300 |
|
|
301 |
|
return; |
302 |
|
} |
303 |
+ |
|
304 |
+ |
void InteractionManager::doPreForce(int *atid, RealType *rho, RealType *frho, RealType *dfrhodrho){ |
305 |
|
|
306 |
< |
void InteractionManager::do_preforce(int *atid, RealType *rho, RealType *frho, RealType *dfrhodrho){ |
306 |
> |
if (!initialized_) initialize(); |
307 |
> |
|
308 |
> |
FunctionalData fdat; |
309 |
|
|
310 |
< |
if (!initialized_) initialize(); |
311 |
< |
AtomType* atype = typeMap_[*atid]; |
310 |
> |
fdat.atype = typeMap_[*atid]; |
311 |
> |
fdat.rho = *rho; |
312 |
> |
fdat.frho = *frho; |
313 |
> |
fdat.dfrhodrho = *dfrhodrho; |
314 |
|
|
315 |
< |
doPreForce(atype, *rho, *frho, *dfrhodrho); |
315 |
> |
pair<AtomType*, AtomType*> key = make_pair(fdat.atype, fdat.atype); |
316 |
> |
set<NonBondedInteraction*>::iterator it; |
317 |
|
|
318 |
+ |
for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it){ |
319 |
+ |
if ((*it)->getFamily() == METALLIC_FAMILY) { |
320 |
+ |
dynamic_cast<MetallicInteraction*>(*it)->calcFunctional(fdat); |
321 |
+ |
} |
322 |
+ |
} |
323 |
+ |
|
324 |
|
return; |
325 |
|
} |
326 |
|
|
327 |
< |
void InteractionManager::do_pair(int *atid1, int *atid2, RealType *d, RealType *r, RealType *r2, RealType *rcut, RealType *sw, RealType *vdwMult,RealType *electroMult, RealType *pot, RealType *vpair, RealType *f1, RealType *eFrame1, RealType *eFrame2, RealType *A1, RealType *A2, RealType *t1, RealType *t2, RealType *rho1, RealType *rho2, RealType *dfrho1, RealType *dfrho2, RealType *fshift1, RealType *fshift2){ |
328 |
< |
|
327 |
> |
void InteractionManager::doPair(int *atid1, int *atid2, RealType *d, RealType *r, RealType *r2, RealType *rcut, RealType *sw, int *topoDist, RealType *pot, RealType *vpair, RealType *f1, RealType *eFrame1, RealType *eFrame2, RealType *A1, RealType *A2, RealType *t1, RealType *t2, RealType *rho1, RealType *rho2, RealType *dfrho1, RealType *dfrho2, RealType *fshift1, RealType *fshift2){ |
328 |
> |
|
329 |
|
if (!initialized_) initialize(); |
330 |
< |
|
330 |
> |
|
331 |
|
InteractionData idat; |
332 |
< |
|
332 |
> |
|
333 |
|
idat.atype1 = typeMap_[*atid1]; |
334 |
|
idat.atype2 = typeMap_[*atid2]; |
335 |
|
idat.d = Vector3d(d); |
337 |
|
idat.r2 = *r2; |
338 |
|
idat.rcut = *rcut; |
339 |
|
idat.sw = *sw; |
340 |
< |
idat.vdwMult = *vdwMult; |
341 |
< |
idat.electroMult = *electroMult; |
340 |
> |
idat.vdwMult = vdwScale_[*topoDist]; |
341 |
> |
idat.electroMult = electrostaticScale_[*topoDist]; |
342 |
|
idat.pot = *pot; |
343 |
|
idat.vpair = *vpair; |
344 |
|
idat.f1 = Vector3d(f1); |
376 |
|
return; |
377 |
|
} |
378 |
|
|
379 |
< |
void InteractionManager::do_skip_correction(int *atid1, int *atid2, RealType *d, RealType *r, RealType *skippedCharge1, RealType *skippedCharge2, RealType *sw, RealType *electroMult, RealType *pot, RealType *vpair, RealType *f1, RealType *eFrame1, RealType *eFrame2, RealType *t1, RealType *t2){ |
379 |
> |
void InteractionManager::doSkipCorrection(int *atid1, int *atid2, RealType *d, RealType *r, RealType *skippedCharge1, RealType *skippedCharge2, RealType *sw, RealType *electroMult, RealType *pot, RealType *vpair, RealType *f1, RealType *eFrame1, RealType *eFrame2, RealType *t1, RealType *t2){ |
380 |
|
|
381 |
|
if (!initialized_) initialize(); |
350 |
– |
|
351 |
– |
AtomType* atype1 = typeMap_[*atid1]; |
352 |
– |
AtomType* atype2 = typeMap_[*atid2]; |
353 |
– |
Vector3d disp(d); |
354 |
– |
Vector3d frc(f1); |
355 |
– |
Vector3d trq1(t1); |
356 |
– |
Vector3d trq2(t2); |
357 |
– |
Mat3x3d eFi(eFrame1); |
358 |
– |
Mat3x3d eFj(eFrame2); |
359 |
– |
|
360 |
– |
doSkipCorrection(atype1, atype2, disp, *r, *skippedCharge1, *skippedCharge2, *sw, |
361 |
– |
*electroMult, *pot, *vpair, frc, eFi, eFj, trq1, trq2); |
362 |
– |
|
363 |
– |
f1[0] = frc.x(); |
364 |
– |
f1[1] = frc.y(); |
365 |
– |
f1[2] = frc.z(); |
382 |
|
|
383 |
< |
t1[0] = trq1.x(); |
368 |
< |
t1[1] = trq1.y(); |
369 |
< |
t1[2] = trq1.z(); |
383 |
> |
SkipCorrectionData skdat; |
384 |
|
|
385 |
< |
t2[0] = trq2.x(); |
386 |
< |
t2[1] = trq2.y(); |
387 |
< |
t2[2] = trq2.z(); |
385 |
> |
skdat.atype1 = typeMap_[*atid1]; |
386 |
> |
skdat.atype2 = typeMap_[*atid2]; |
387 |
> |
skdat.d = Vector3d(d); |
388 |
> |
skdat.rij = *r; |
389 |
> |
skdat.skippedCharge1 = *skippedCharge1; |
390 |
> |
skdat.skippedCharge2 = *skippedCharge2; |
391 |
> |
skdat.sw = *sw; |
392 |
> |
skdat.electroMult = *electroMult; |
393 |
> |
skdat.pot = *pot; |
394 |
> |
skdat.vpair = *vpair; |
395 |
> |
skdat.f1 = Vector3d(f1); |
396 |
> |
skdat.eFrame1 = Mat3x3d(eFrame1); |
397 |
> |
skdat.eFrame2 = Mat3x3d(eFrame2); |
398 |
> |
skdat.t1 = Vector3d(t1); |
399 |
> |
skdat.t2 = Vector3d(t2); |
400 |
|
|
401 |
< |
return; |
402 |
< |
} |
401 |
> |
pair<AtomType*, AtomType*> key = make_pair(skdat.atype1, skdat.atype2); |
402 |
> |
set<NonBondedInteraction*>::iterator it; |
403 |
|
|
404 |
< |
void InteractionManager::do_self_correction(int *atid, RealType *eFrame, RealType *skippedCharge, RealType *pot, RealType *t){ |
404 |
> |
for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it){ |
405 |
> |
if ((*it)->getFamily() == ELECTROSTATIC_FAMILY) { |
406 |
> |
dynamic_cast<ElectrostaticInteraction*>(*it)->calcSkipCorrection(skdat); |
407 |
> |
} |
408 |
> |
} |
409 |
> |
|
410 |
> |
f1[0] = skdat.f1.x(); |
411 |
> |
f1[1] = skdat.f1.y(); |
412 |
> |
f1[2] = skdat.f1.z(); |
413 |
> |
|
414 |
> |
t1[0] = skdat.t1.x(); |
415 |
> |
t1[1] = skdat.t1.y(); |
416 |
> |
t1[2] = skdat.t1.z(); |
417 |
> |
|
418 |
> |
t2[0] = skdat.t2.x(); |
419 |
> |
t2[1] = skdat.t2.y(); |
420 |
> |
t2[2] = skdat.t2.z(); |
421 |
|
|
422 |
+ |
return; |
423 |
+ |
} |
424 |
+ |
|
425 |
+ |
void InteractionManager::doSelfCorrection(int *atid, RealType *eFrame, RealType *skippedCharge, RealType *pot, RealType *t){ |
426 |
+ |
|
427 |
|
if (!initialized_) initialize(); |
428 |
< |
|
428 |
> |
|
429 |
> |
SelfCorrectionData scdat; |
430 |
> |
|
431 |
> |
scdat.atype = typeMap_[*atid]; |
432 |
> |
scdat.eFrame = Mat3x3d(eFrame); |
433 |
> |
scdat.skippedCharge = *skippedCharge; |
434 |
> |
scdat.pot = *pot; |
435 |
> |
scdat.t = Vector3d(t); |
436 |
> |
|
437 |
> |
pair<AtomType*, AtomType*> key = make_pair(scdat.atype, scdat.atype); |
438 |
> |
set<NonBondedInteraction*>::iterator it; |
439 |
> |
|
440 |
> |
for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it){ |
441 |
> |
if ((*it)->getFamily() == ELECTROSTATIC_FAMILY) { |
442 |
> |
dynamic_cast<ElectrostaticInteraction*>(*it)->calcSelfCorrection(scdat); |
443 |
> |
} |
444 |
> |
} |
445 |
> |
|
446 |
> |
t[0] = scdat.t.x(); |
447 |
> |
t[1] = scdat.t.y(); |
448 |
> |
t[2] = scdat.t.z(); |
449 |
> |
|
450 |
> |
return; |
451 |
> |
} |
452 |
> |
|
453 |
> |
|
454 |
> |
RealType InteractionManager::getSuggestedCutoffRadius(int *atid) { |
455 |
> |
if (!initialized_) initialize(); |
456 |
> |
|
457 |
|
AtomType* atype = typeMap_[*atid]; |
383 |
– |
Mat3x3d eFi(eFrame); |
384 |
– |
Vector3d trq1(t); |
385 |
– |
|
386 |
– |
doSelfCorrection(atype, eFi, *skippedCharge, *pot, trq1); |
458 |
|
|
459 |
< |
t[0] = trq1.x(); |
460 |
< |
t[1] = trq1.y(); |
461 |
< |
t[2] = trq1.z(); |
459 |
> |
pair<AtomType*, AtomType*> key = make_pair(atype, atype); |
460 |
> |
set<NonBondedInteraction*>::iterator it; |
461 |
> |
RealType cutoff = 0.0; |
462 |
> |
|
463 |
> |
for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it) |
464 |
> |
cutoff = max(cutoff, (*it)->getSuggestedCutoffRadius(atype, atype)); |
465 |
> |
return cutoff; |
466 |
> |
} |
467 |
|
|
468 |
< |
return; |
468 |
> |
RealType InteractionManager::getSuggestedCutoffRadius(AtomType* atype) { |
469 |
> |
if (!initialized_) initialize(); |
470 |
> |
|
471 |
> |
pair<AtomType*, AtomType*> key = make_pair(atype, atype); |
472 |
> |
set<NonBondedInteraction*>::iterator it; |
473 |
> |
RealType cutoff = 0.0; |
474 |
> |
|
475 |
> |
for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it) |
476 |
> |
cutoff = max(cutoff, (*it)->getSuggestedCutoffRadius(atype, atype)); |
477 |
> |
return cutoff; |
478 |
|
} |
479 |
|
|
480 |
+ |
|
481 |
+ |
void InteractionManager::setSwitch(RealType *rIn, RealType *rOut) { |
482 |
+ |
switcher_->setSwitch(*rIn, *rOut); |
483 |
+ |
} |
484 |
+ |
|
485 |
+ |
void InteractionManager::getSwitch(RealType *r2, RealType *sw, RealType *dswdr, RealType *r, |
486 |
+ |
int *in_switching_region) { |
487 |
+ |
bool isr = switcher_->getSwitch(*r2, *sw, *dswdr, *r); |
488 |
+ |
*in_switching_region = (int)isr; |
489 |
+ |
} |
490 |
+ |
|
491 |
|
} //end namespace OpenMD |
492 |
|
|
493 |
|
extern "C" { |
498 |
|
#define fortranDoSkipCorrection FC_FUNC(do_skip_correction, DO_SKIP_CORRECTION) |
499 |
|
#define fortranDoSelfCorrection FC_FUNC(do_self_correction, DO_SELF_CORRECTION) |
500 |
|
#define fortranGetCutoff FC_FUNC(get_cutoff, GET_CUTOFF) |
501 |
+ |
#define fortranSetSwitch FC_FUNC(set_switch, SET_SWITCH) |
502 |
+ |
#define fortranGetSwitch FC_FUNC(get_switch, GET_SWITCH) |
503 |
|
|
504 |
|
void fortranDoPrePair(int *atid1, int *atid2, RealType *rij, |
505 |
|
RealType *rho_i_at_j, RealType *rho_j_at_i) { |
506 |
|
|
507 |
< |
return OpenMD::InteractionManager::Instance()->do_prepair(atid1, atid2, rij, |
508 |
< |
rho_i_at_j, |
509 |
< |
rho_j_at_i); |
507 |
> |
return OpenMD::InteractionManager::Instance()->doPrePair(atid1, atid2, rij, |
508 |
> |
rho_i_at_j, |
509 |
> |
rho_j_at_i); |
510 |
|
} |
511 |
< |
void fortranDoPreforce(int *atid, RealType *rho, RealType *frho, |
511 |
> |
void fortranDoPreForce(int *atid, RealType *rho, RealType *frho, |
512 |
|
RealType *dfrhodrho) { |
513 |
|
|
514 |
< |
return OpenMD::InteractionManager::Instance()->do_preforce(atid, rho, frho, |
515 |
< |
dfrhodrho); |
514 |
> |
return OpenMD::InteractionManager::Instance()->doPreForce(atid, rho, frho, |
515 |
> |
dfrhodrho); |
516 |
|
} |
517 |
|
|
518 |
|
void fortranDoPair(int *atid1, int *atid2, RealType *d, RealType *r, |
519 |
< |
RealType *r2, RealType *rcut, RealType *sw, RealType *vdwMult, |
520 |
< |
RealType *electroMult, RealType *pot, RealType *vpair, RealType *f1, |
521 |
< |
RealType *eFrame1, RealType *eFrame2, RealType *A1, RealType *A2, |
522 |
< |
RealType *t1, RealType *t2, |
523 |
< |
RealType *rho1, RealType *rho2, RealType *dfrho1, RealType *dfrho2, |
524 |
< |
RealType *fshift1, RealType *fshift2){ |
519 |
> |
RealType *r2, RealType *rcut, RealType *sw, int *topoDist, |
520 |
> |
RealType *pot, RealType *vpair, RealType *f1, RealType *eFrame1, |
521 |
> |
RealType *eFrame2, RealType *A1, RealType *A2, |
522 |
> |
RealType *t1, RealType *t2, RealType *rho1, RealType *rho2, |
523 |
> |
RealType *dfrho1, RealType *dfrho2, RealType *fshift1, |
524 |
> |
RealType *fshift2){ |
525 |
|
|
526 |
< |
return OpenMD::InteractionManager::Instance()->do_pair(atid1, atid2, d, r, r2, rcut, |
527 |
< |
sw, vdwMult, electroMult, pot, |
528 |
< |
vpair, f1, eFrame1, eFrame2, |
529 |
< |
A1, A2, t1, t2, rho1, rho2, |
530 |
< |
dfrho1, dfrho2, fshift1, fshift2); |
526 |
> |
return OpenMD::InteractionManager::Instance()->doPair(atid1, atid2, d, r, |
527 |
> |
r2, rcut, sw, topoDist, |
528 |
> |
pot, vpair, f1, |
529 |
> |
eFrame1, eFrame2, |
530 |
> |
A1, A2, t1, t2, rho1, |
531 |
> |
rho2, dfrho1, dfrho2, |
532 |
> |
fshift1, fshift2); |
533 |
|
} |
534 |
< |
|
535 |
< |
void fortranDoSkipCorrection(int *atid1, int *atid2, RealType *d, RealType *r, |
536 |
< |
RealType *skippedCharge1, RealType *skippedCharge2, |
537 |
< |
RealType *sw, RealType *electroMult, RealType *pot, |
534 |
> |
|
535 |
> |
void fortranDoSkipCorrection(int *atid1, int *atid2, RealType *d, |
536 |
> |
RealType *r, RealType *skippedCharge1, |
537 |
> |
RealType *skippedCharge2, RealType *sw, |
538 |
> |
RealType *electroMult, RealType *pot, |
539 |
|
RealType *vpair, RealType *f1, |
540 |
|
RealType *eFrame1, RealType *eFrame2, |
541 |
|
RealType *t1, RealType *t2){ |
542 |
|
|
543 |
< |
return OpenMD::InteractionManager::Instance()->do_skip_correction(atid1, atid2, d, r, |
544 |
< |
skippedCharge1, |
545 |
< |
skippedCharge2, |
546 |
< |
sw, electroMult, pot, |
547 |
< |
vpair, f1, eFrame1, |
548 |
< |
eFrame2, t1, t2); |
543 |
> |
return OpenMD::InteractionManager::Instance()->doSkipCorrection(atid1, |
544 |
> |
atid2, d, |
545 |
> |
r, |
546 |
> |
skippedCharge1, |
547 |
> |
skippedCharge2, |
548 |
> |
sw, electroMult, pot, |
549 |
> |
vpair, f1, eFrame1, |
550 |
> |
eFrame2, t1, t2); |
551 |
|
} |
552 |
< |
|
552 |
> |
|
553 |
|
void fortranDoSelfCorrection(int *atid, RealType *eFrame, RealType *skippedCharge, |
554 |
|
RealType *pot, RealType *t) { |
555 |
|
|
556 |
< |
return OpenMD::InteractionManager::Instance()->do_self_correction(atid, eFrame, |
557 |
< |
skippedCharge, |
558 |
< |
pot, t); |
556 |
> |
return OpenMD::InteractionManager::Instance()->doSelfCorrection(atid, |
557 |
> |
eFrame, |
558 |
> |
skippedCharge, |
559 |
> |
pot, t); |
560 |
|
} |
561 |
< |
RealType fortranGetCutoff() { |
562 |
< |
return OpenMD::InteractionManager::Instance()->getCutoff(); |
561 |
> |
RealType fortranGetCutoff(int *atid) { |
562 |
> |
return OpenMD::InteractionManager::Instance()->getSuggestedCutoffRadius(atid); |
563 |
|
} |
564 |
+ |
|
565 |
+ |
void fortranGetSwitch(RealType *r2, RealType *sw, RealType *dswdr, RealType *r, |
566 |
+ |
int *in_switching_region) { |
567 |
+ |
|
568 |
+ |
return OpenMD::InteractionManager::Instance()->getSwitch(r2, sw, dswdr, r, |
569 |
+ |
in_switching_region); |
570 |
+ |
} |
571 |
+ |
|
572 |
+ |
void fortranSetSwitch(RealType *rIn, RealType *rOut) { |
573 |
+ |
return OpenMD::InteractionManager::Instance()->setSwitch(rIn, rOut); |
574 |
+ |
} |
575 |
+ |
|
576 |
|
} |