ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/OpenMD/branches/development/src/nonbonded/InteractionManager.cpp
(Generate patch)

Comparing branches/development/src/nonbonded/InteractionManager.cpp (file contents):
Revision 1532 by gezelter, Wed Dec 29 19:59:21 2010 UTC vs.
Revision 1583 by gezelter, Thu Jun 16 22:00:08 2011 UTC

# Line 42 | Line 42 | namespace OpenMD {
42   #include "nonbonded/InteractionManager.hpp"
43  
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_;
45  
46 <  LJ* InteractionManager::lj_ = new LJ();
47 <  GB* InteractionManager::gb_ = new GB();
48 <  Sticky* InteractionManager::sticky_ = new Sticky();
49 <  Morse* InteractionManager::morse_ = new Morse();
50 <  EAM* InteractionManager::eam_ = new EAM();
51 <  SC* InteractionManager::sc_ = new SC();
52 <  Electrostatic* InteractionManager::electrostatic_ = new Electrostatic();
53 <  MAW* InteractionManager::maw_ = new MAW();
54 <  SwitchingFunction* InteractionManager::switcher_ = new SwitchingFunction();
55 <
56 <  InteractionManager* InteractionManager::Instance() {
57 <    if (!_instance) {
66 <      _instance = new InteractionManager();
67 <    }
68 <    return _instance;
46 >  InteractionManager::InteractionManager() {
47 >
48 >    initialized_ = false;
49 >        
50 >    lj_ = new LJ();
51 >    gb_ = new GB();
52 >    sticky_ = new Sticky();
53 >    morse_ = new Morse();
54 >    eam_ = new EAM();
55 >    sc_ = new SC();
56 >    electrostatic_ = new Electrostatic();
57 >    maw_ = new MAW();
58    }
59  
60    void InteractionManager::initialize() {
61      
62 +    ForceField* forceField_ = info_->getForceField();
63 +    
64      lj_->setForceField(forceField_);
65      gb_->setForceField(forceField_);
66      sticky_->setForceField(forceField_);
# Line 79 | Line 70 | namespace OpenMD {
70      electrostatic_->setForceField(forceField_);
71      maw_->setForceField(forceField_);
72  
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 –
73      ForceField::AtomTypeContainer* atomTypes = forceField_->getAtomTypes();
74      ForceField::AtomTypeContainer::MapTypeIterator i1, i2;
75      AtomType* atype1;
# Line 167 | Line 139 | namespace OpenMD {
139          // look for an explicitly-set non-bonded interaction type using the
140          // two atom types.
141          NonBondedInteractionType* nbiType = forceField_->getNonBondedInteractionType(atype1->getName(), atype2->getName());
142 +        
143 +        if (nbiType != NULL) {
144  
145 <        if (nbiType->isLennardJones()) {
146 <          // We found an explicit Lennard-Jones interaction.  
147 <          // override all other vdw entries for this pair of atom types:
148 <          set<NonBondedInteraction*>::iterator it;
149 <          for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it) {
150 <            InteractionFamily ifam = (*it)->getFamily();
151 <            if (ifam == VANDERWAALS_FAMILY) interactions_[key].erase(*it);
145 >          if (nbiType->isLennardJones()) {
146 >            // We found an explicit Lennard-Jones interaction.  
147 >            // override all other vdw entries for this pair of atom types:
148 >            set<NonBondedInteraction*>::iterator it;
149 >            for (it = interactions_[key].begin();
150 >                 it != interactions_[key].end(); ++it) {
151 >              InteractionFamily ifam = (*it)->getFamily();
152 >              if (ifam == VANDERWAALS_FAMILY) interactions_[key].erase(*it);
153 >            }
154 >            interactions_[key].insert(lj_);
155 >            vdwExplicit = true;
156            }
157 <          interactions_[key].insert(lj_);
158 <          vdwExplicit = true;
159 <        }
160 <
161 <        if (nbiType->isMorse()) {
162 <          if (vdwExplicit) {
163 <            sprintf( painCave.errMsg,
164 <                     "InteractionManager::initialize found more than one explicit\n"
165 <                     "\tvan der Waals interaction for atom types %s - %s\n",
166 <                     atype1->getName().c_str(), atype2->getName().c_str());
167 <            painCave.severity = OPENMD_ERROR;
168 <            painCave.isFatal = 1;
169 <            simError();
157 >          
158 >          if (nbiType->isMorse()) {
159 >            if (vdwExplicit) {
160 >              sprintf( painCave.errMsg,
161 >                       "InteractionManager::initialize found more than one "
162 >                       "explicit \n"
163 >                       "\tvan der Waals interaction for atom types %s - %s\n",
164 >                       atype1->getName().c_str(), atype2->getName().c_str());
165 >              painCave.severity = OPENMD_ERROR;
166 >              painCave.isFatal = 1;
167 >              simError();
168 >            }
169 >            // We found an explicit Morse interaction.  
170 >            // override all other vdw entries for this pair of atom types:
171 >            set<NonBondedInteraction*>::iterator it;
172 >            for (it = interactions_[key].begin();
173 >                 it != interactions_[key].end(); ++it) {
174 >              InteractionFamily ifam = (*it)->getFamily();
175 >              if (ifam == VANDERWAALS_FAMILY) interactions_[key].erase(*it);
176 >            }
177 >            interactions_[key].insert(morse_);
178 >            vdwExplicit = true;
179            }
180 <          // We found an explicit Morse interaction.  
181 <          // override all other vdw entries for this pair of atom types:
182 <          set<NonBondedInteraction*>::iterator it;
183 <          for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it) {
184 <            InteractionFamily ifam = (*it)->getFamily();
185 <            if (ifam == VANDERWAALS_FAMILY) interactions_[key].erase(*it);
180 >          
181 >          if (nbiType->isEAM()) {
182 >            // We found an explicit EAM interaction.  
183 >            // override all other metallic entries for this pair of atom types:
184 >            set<NonBondedInteraction*>::iterator it;
185 >            for (it = interactions_[key].begin();
186 >                 it != interactions_[key].end(); ++it) {
187 >              InteractionFamily ifam = (*it)->getFamily();
188 >              if (ifam == METALLIC_FAMILY) interactions_[key].erase(*it);
189 >            }
190 >            interactions_[key].insert(eam_);
191 >            metExplicit = true;
192            }
193 <          interactions_[key].insert(morse_);
194 <          vdwExplicit = true;
195 <        }
196 <
197 <        if (nbiType->isEAM()) {
198 <          // We found an explicit EAM interaction.  
199 <          // override all other metallic entries for this pair of atom types:
200 <          set<NonBondedInteraction*>::iterator it;
201 <          for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it) {
202 <            InteractionFamily ifam = (*it)->getFamily();
203 <            if (ifam == METALLIC_FAMILY) interactions_[key].erase(*it);
193 >          
194 >          if (nbiType->isSC()) {
195 >            if (metExplicit) {
196 >              sprintf( painCave.errMsg,
197 >                       "InteractionManager::initialize found more than one "
198 >                       "explicit\n"
199 >                       "\tmetallic interaction for atom types %s - %s\n",
200 >                       atype1->getName().c_str(), atype2->getName().c_str());
201 >              painCave.severity = OPENMD_ERROR;
202 >              painCave.isFatal = 1;
203 >              simError();
204 >            }
205 >            // We found an explicit Sutton-Chen interaction.  
206 >            // override all other metallic entries for this pair of atom types:
207 >            set<NonBondedInteraction*>::iterator it;
208 >            for (it = interactions_[key].begin();
209 >                 it != interactions_[key].end(); ++it) {
210 >              InteractionFamily ifam = (*it)->getFamily();
211 >              if (ifam == METALLIC_FAMILY) interactions_[key].erase(*it);
212 >            }
213 >            interactions_[key].insert(sc_);
214 >            metExplicit = true;
215            }
216 <          interactions_[key].insert(eam_);
217 <          metExplicit = true;
216 >          
217 >          if (nbiType->isMAW()) {
218 >            if (vdwExplicit) {
219 >              sprintf( painCave.errMsg,
220 >                       "InteractionManager::initialize found more than one "
221 >                       "explicit\n"
222 >                       "\tvan der Waals interaction for atom types %s - %s\n",
223 >                       atype1->getName().c_str(), atype2->getName().c_str());
224 >              painCave.severity = OPENMD_ERROR;
225 >              painCave.isFatal = 1;
226 >              simError();
227 >            }
228 >            // We found an explicit MAW interaction.  
229 >            // override all other vdw entries for this pair of atom types:
230 >            set<NonBondedInteraction*>::iterator it;
231 >            for (it = interactions_[key].begin();
232 >                 it != interactions_[key].end(); ++it) {
233 >              InteractionFamily ifam = (*it)->getFamily();
234 >              if (ifam == VANDERWAALS_FAMILY) interactions_[key].erase(*it);
235 >            }
236 >            interactions_[key].insert(maw_);
237 >            vdwExplicit = true;
238 >          }        
239          }
215 –
216 –        if (nbiType->isSC()) {
217 –          if (metExplicit) {
218 –            sprintf( painCave.errMsg,
219 –                     "InteractionManager::initialize found more than one explicit\n"
220 –                     "\tmetallic interaction for atom types %s - %s\n",
221 –                     atype1->getName().c_str(), atype2->getName().c_str());
222 –            painCave.severity = OPENMD_ERROR;
223 –            painCave.isFatal = 1;
224 –            simError();
225 –          }
226 –          // We found an explicit Sutton-Chen interaction.  
227 –          // override all other metallic entries for this pair of atom types:
228 –          set<NonBondedInteraction*>::iterator it;
229 –          for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it) {
230 –            InteractionFamily ifam = (*it)->getFamily();
231 –            if (ifam == METALLIC_FAMILY) interactions_[key].erase(*it);
232 –          }
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 –        }        
240        }
241      }
242      
243 <    // make sure every pair of atom types has a non-bonded interaction:
244 <    for (atype1 = atomTypes->beginType(i1); atype1 != NULL;
245 <         atype1 = atomTypes->nextType(i1)) {
246 <      for (atype2 = atomTypes->beginType(i2); atype2 != NULL;
247 <           atype2 = atomTypes->nextType(i2)) {
243 >    
244 >    // Make sure every pair of atom types in this simulation has a
245 >    // non-bonded interaction.  If not, just inform the user.
246 >
247 >    set<AtomType*> simTypes = info_->getSimulatedAtomTypes();
248 >    set<AtomType*>::iterator it, jt;
249 >
250 >    for (it = simTypes.begin(); it != simTypes.end(); ++it) {
251 >      atype1 = (*it);
252 >      for (jt = it; jt != simTypes.end(); ++jt) {
253 >        atype2 = (*jt);
254          key = make_pair(atype1, atype2);
255          
256          if (interactions_[key].size() == 0) {
257            sprintf( painCave.errMsg,
258 <                   "InteractionManager unable to find an appropriate non-bonded\n"
259 <                   "\tinteraction for atom types %s - %s\n",
258 >                   "InteractionManager could not find a matching non-bonded\n"
259 >                   "\tinteraction for atom types %s - %s\n"
260 >                   "\tProceeding without this interaction.\n",
261                     atype1->getName().c_str(), atype2->getName().c_str());
262            painCave.severity = OPENMD_INFO;
263 <          painCave.isFatal = 1;
263 >          painCave.isFatal = 0;
264            simError();
265          }
266        }
267      }
268 <  }
268 >
269 >    initialized_ = true;
270 >  }
271    
272 <  void InteractionManager::doPrePair(int *atid1, int *atid2, RealType *rij, RealType *rho_i_at_j, RealType *rho_j_at_i){
272 >  void InteractionManager::doPrePair(InteractionData idat){
273      
274      if (!initialized_) initialize();
275 <          
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);
275 >        
276      set<NonBondedInteraction*>::iterator it;
277  
278 <    for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it){
278 >    for (it = interactions_[ idat.atypes ].begin();
279 >         it != interactions_[ idat.atypes ].end(); ++it){
280        if ((*it)->getFamily() == METALLIC_FAMILY) {
281 <        dynamic_cast<MetallicInteraction*>(*it)->calcDensity(ddat);
281 >        dynamic_cast<MetallicInteraction*>(*it)->calcDensity(idat);
282        }
283      }
284      
285      return;    
286    }
287    
288 <  void InteractionManager::doPreForce(int *atid, RealType *rho, RealType *frho, RealType *dfrhodrho){
288 >  void InteractionManager::doPreForce(SelfData sdat){
289  
290      if (!initialized_) initialize();
291 <          
292 <    FunctionalData fdat;
309 <
310 <    fdat.atype = typeMap_[*atid];
311 <    fdat.rho = *rho;
312 <    fdat.frho = *frho;
313 <    fdat.dfrhodrho = *dfrhodrho;
314 <
315 <    pair<AtomType*, AtomType*> key = make_pair(fdat.atype, fdat.atype);
291 >    
292 >    pair<AtomType*, AtomType*> key = make_pair(sdat.atype, sdat.atype);
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)->calcFunctional(fdat);
297 >        dynamic_cast<MetallicInteraction*>(*it)->calcFunctional(sdat);
298        }
299      }
300      
301      return;    
302    }
303  
304 <  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){
304 >  void InteractionManager::doPair(InteractionData idat){
305      
306      if (!initialized_) initialize();
307 <    
331 <    InteractionData idat;
332 <    
333 <    idat.atype1 = typeMap_[*atid1];
334 <    idat.atype2 = typeMap_[*atid2];
335 <    idat.d = Vector3d(d);
336 <    idat.rij = *r;
337 <    idat.r2 = *r2;
338 <    idat.rcut = *rcut;
339 <    idat.sw = *sw;
340 <    idat.vdwMult = vdwScale_[*topoDist];
341 <    idat.electroMult = electrostaticScale_[*topoDist];
342 <    idat.pot = *pot;
343 <    idat.vpair = *vpair;
344 <    idat.f1 = Vector3d(f1);
345 <    idat.eFrame1 = Mat3x3d(eFrame1);
346 <    idat.eFrame2 = Mat3x3d(eFrame2);
347 <    idat.A1 = RotMat3x3d(A1);
348 <    idat.A2 = RotMat3x3d(A2);
349 <    idat.t1 = Vector3d(t1);
350 <    idat.t2 = Vector3d(t2);
351 <    idat.rho1 = *rho1;
352 <    idat.rho2 = *rho2;
353 <    idat.dfrho1 = *dfrho1;
354 <    idat.dfrho2 = *dfrho2;
355 <    idat.fshift1 = *fshift1;
356 <    idat.fshift2 = *fshift2;
357 <
358 <    pair<AtomType*, AtomType*> key = make_pair(idat.atype1, idat.atype2);
307 >  
308      set<NonBondedInteraction*>::iterator it;
309  
310 <    for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it)
310 >    for (it = interactions_[ idat.atypes ].begin();
311 >         it != interactions_[ idat.atypes ].end(); ++it)
312        (*it)->calcForce(idat);
313      
364 –    f1[0] = idat.f1.x();
365 –    f1[1] = idat.f1.y();
366 –    f1[2] = idat.f1.z();
367 –    
368 –    t1[0] = idat.t1.x();
369 –    t1[1] = idat.t1.y();
370 –    t1[2] = idat.t1.z();
371 –    
372 –    t2[0] = idat.t2.x();
373 –    t2[1] = idat.t2.y();
374 –    t2[2] = idat.t2.z();
375 –
314      return;    
315    }
316  
317 <  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){
317 >  void InteractionManager::doSkipCorrection(InteractionData idat){
318  
319 <    if (!initialized_) initialize();
319 >    if (!initialized_) initialize();  
320      
383 –    SkipCorrectionData skdat;
384 –    
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 –    pair<AtomType*, AtomType*> key = make_pair(skdat.atype1, skdat.atype2);
321      set<NonBondedInteraction*>::iterator it;
322  
323 <    for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it){
323 >    for (it = interactions_[ idat.atypes ].begin();
324 >         it != interactions_[ idat.atypes ].end(); ++it){
325        if ((*it)->getFamily() == ELECTROSTATIC_FAMILY) {
326 <        dynamic_cast<ElectrostaticInteraction*>(*it)->calcSkipCorrection(skdat);
326 >        dynamic_cast<ElectrostaticInteraction*>(*it)->calcSkipCorrection(idat);
327        }
328      }
329      
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 –
330      return;    
331    }
332  
333 <  void InteractionManager::doSelfCorrection(int *atid, RealType *eFrame, RealType *skippedCharge, RealType *pot, RealType *t){
333 >  void InteractionManager::doSelfCorrection(SelfData sdat){
334  
335      if (!initialized_) initialize();
336      
337 <    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);
337 >    pair<AtomType*, AtomType*> key = make_pair(sdat.atype, sdat.atype);
338      set<NonBondedInteraction*>::iterator it;
339  
340      for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it){
341        if ((*it)->getFamily() == ELECTROSTATIC_FAMILY) {
342 <        dynamic_cast<ElectrostaticInteraction*>(*it)->calcSelfCorrection(scdat);
342 >        dynamic_cast<ElectrostaticInteraction*>(*it)->calcSelfCorrection(sdat);
343        }
344      }
345 <        
446 <    t[0] = scdat.t.x();
447 <    t[1] = scdat.t.y();
448 <    t[2] = scdat.t.z();
449 <
345 >      
346      return;    
347    }
348  
453 –
349    RealType InteractionManager::getSuggestedCutoffRadius(int *atid) {
350      if (!initialized_) initialize();
351      
# Line 461 | Line 356 | namespace OpenMD {
356      RealType cutoff = 0.0;
357      
358      for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it)
359 <      cutoff = max(cutoff, (*it)->getSuggestedCutoffRadius(atype, atype));  
359 >      cutoff = max(cutoff, (*it)->getSuggestedCutoffRadius(key));  
360      return cutoff;    
361    }
362  
# Line 473 | Line 368 | namespace OpenMD {
368      RealType cutoff = 0.0;
369      
370      for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it)
371 <      cutoff = max(cutoff, (*it)->getSuggestedCutoffRadius(atype, atype));  
371 >      cutoff = max(cutoff, (*it)->getSuggestedCutoffRadius(key));  
372      return cutoff;    
373    }
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 –
374   } //end namespace OpenMD
492 –
493 – extern "C" {
494 –  
495 – #define fortranDoPrePair FC_FUNC(do_prepair, DO_PREPAIR)
496 – #define fortranDoPreForce FC_FUNC(do_preforce, DO_PREFORCE)
497 – #define fortranDoPair FC_FUNC(do_pair, DO_PAIR)
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()->doPrePair(atid1, atid2, rij,
508 –                                                             rho_i_at_j,  
509 –                                                             rho_j_at_i);
510 –  }
511 –  void fortranDoPreForce(int *atid, RealType *rho, RealType *frho,
512 –                         RealType *dfrhodrho) {  
513 –    
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, 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()->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,
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()->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 –  
553 –  void fortranDoSelfCorrection(int *atid, RealType *eFrame, RealType *skippedCharge,
554 –                               RealType *pot, RealType *t) {
555 –    
556 –    return OpenMD::InteractionManager::Instance()->doSelfCorrection(atid,
557 –                                                                    eFrame,
558 –                                                                    skippedCharge,
559 –                                                                    pot, t);
560 –  }
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 – }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines