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 1530 by gezelter, Tue Dec 28 21:47:55 2010 UTC vs.
Revision 1586 by gezelter, Tue Jun 21 06:34:35 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 <  SwitchingFunction* InteractionManager::switcher_ = new SwitchingFunction();
54 <
55 <  InteractionManager* InteractionManager::Instance() {
56 <    if (!_instance) {
57 <      _instance = new InteractionManager();
66 <    }
67 <    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_);
67      eam_->setForceField(forceField_);
68      sc_->setForceField(forceField_);
69      morse_->setForceField(forceField_);
70 +    electrostatic_->setSimInfo(info_);
71      electrostatic_->setForceField(forceField_);
72 +    maw_->setForceField(forceField_);
73  
80 –    ForceFieldOptions& fopts = forceField_->getForceFieldOptions();
81 –    // Force fields can set options on how to scale van der Waals and electrostatic
82 –    // interactions for atoms connected via bonds, bends and torsions
83 –    // in this case the topological distance between atoms is:
84 –    // 0 = the atom itself
85 –    // 1 = bonded together
86 –    // 2 = connected via a bend
87 –    // 3 = connected via a torsion
88 –
89 –    vdwScale_[0] = 0.0;
90 –    vdwScale_[1] = fopts.getvdw12scale();
91 –    vdwScale_[2] = fopts.getvdw13scale();
92 –    vdwScale_[3] = fopts.getvdw14scale();
93 –
94 –    electrostaticScale_[0] = 0.0;
95 –    electrostaticScale_[1] = fopts.getelectrostatic12scale();
96 –    electrostaticScale_[2] = fopts.getelectrostatic13scale();
97 –    electrostaticScale_[3] = fopts.getelectrostatic14scale();
98 –
74      ForceField::AtomTypeContainer* atomTypes = forceField_->getAtomTypes();
75      ForceField::AtomTypeContainer::MapTypeIterator i1, i2;
76      AtomType* atype1;
# Line 165 | Line 140 | namespace OpenMD {
140          // look for an explicitly-set non-bonded interaction type using the
141          // two atom types.
142          NonBondedInteractionType* nbiType = forceField_->getNonBondedInteractionType(atype1->getName(), atype2->getName());
143 +        
144 +        if (nbiType != NULL) {
145  
146 <        if (nbiType->isLennardJones()) {
147 <          // We found an explicit Lennard-Jones interaction.  
148 <          // override all other vdw entries for this pair of atom types:
149 <          set<NonBondedInteraction*>::iterator it;
150 <          for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it) {
151 <            InteractionFamily ifam = (*it)->getFamily();
152 <            if (ifam == VANDERWAALS_FAMILY) interactions_[key].erase(*it);
146 >          if (nbiType->isLennardJones()) {
147 >            // We found an explicit Lennard-Jones interaction.  
148 >            // override all other vdw entries for this pair of atom types:
149 >            set<NonBondedInteraction*>::iterator it;
150 >            for (it = interactions_[key].begin();
151 >                 it != interactions_[key].end(); ++it) {
152 >              InteractionFamily ifam = (*it)->getFamily();
153 >              if (ifam == VANDERWAALS_FAMILY) interactions_[key].erase(*it);
154 >            }
155 >            interactions_[key].insert(lj_);
156 >            vdwExplicit = true;
157            }
158 <          interactions_[key].insert(lj_);
159 <          vdwExplicit = true;
160 <        }
161 <
162 <        if (nbiType->isMorse()) {
163 <          if (vdwExplicit) {
164 <            sprintf( painCave.errMsg,
165 <                     "InteractionManager::initialize found more than one explicit\n"
166 <                     "\tvan der Waals interaction for atom types %s - %s\n",
167 <                     atype1->getName().c_str(), atype2->getName().c_str());
168 <            painCave.severity = OPENMD_ERROR;
169 <            painCave.isFatal = 1;
170 <            simError();
158 >          
159 >          if (nbiType->isMorse()) {
160 >            if (vdwExplicit) {
161 >              sprintf( painCave.errMsg,
162 >                       "InteractionManager::initialize found more than one "
163 >                       "explicit \n"
164 >                       "\tvan der Waals interaction for atom types %s - %s\n",
165 >                       atype1->getName().c_str(), atype2->getName().c_str());
166 >              painCave.severity = OPENMD_ERROR;
167 >              painCave.isFatal = 1;
168 >              simError();
169 >            }
170 >            // We found an explicit Morse interaction.  
171 >            // override all other vdw entries for this pair of atom types:
172 >            set<NonBondedInteraction*>::iterator it;
173 >            for (it = interactions_[key].begin();
174 >                 it != interactions_[key].end(); ++it) {
175 >              InteractionFamily ifam = (*it)->getFamily();
176 >              if (ifam == VANDERWAALS_FAMILY) interactions_[key].erase(*it);
177 >            }
178 >            interactions_[key].insert(morse_);
179 >            vdwExplicit = true;
180            }
181 <          // We found an explicit Morse interaction.  
182 <          // override all other vdw entries for this pair of atom types:
183 <          set<NonBondedInteraction*>::iterator it;
184 <          for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it) {
185 <            InteractionFamily ifam = (*it)->getFamily();
186 <            if (ifam == VANDERWAALS_FAMILY) interactions_[key].erase(*it);
181 >          
182 >          if (nbiType->isEAM()) {
183 >            // We found an explicit EAM interaction.  
184 >            // override all other metallic entries for this pair of atom types:
185 >            set<NonBondedInteraction*>::iterator it;
186 >            for (it = interactions_[key].begin();
187 >                 it != interactions_[key].end(); ++it) {
188 >              InteractionFamily ifam = (*it)->getFamily();
189 >              if (ifam == METALLIC_FAMILY) interactions_[key].erase(*it);
190 >            }
191 >            interactions_[key].insert(eam_);
192 >            metExplicit = true;
193            }
194 <          interactions_[key].insert(morse_);
195 <          vdwExplicit = true;
196 <        }
197 <
198 <        if (nbiType->isEAM()) {
199 <          // We found an explicit EAM interaction.  
200 <          // override all other metallic entries for this pair of atom types:
201 <          set<NonBondedInteraction*>::iterator it;
202 <          for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it) {
203 <            InteractionFamily ifam = (*it)->getFamily();
204 <            if (ifam == METALLIC_FAMILY) interactions_[key].erase(*it);
194 >          
195 >          if (nbiType->isSC()) {
196 >            if (metExplicit) {
197 >              sprintf( painCave.errMsg,
198 >                       "InteractionManager::initialize found more than one "
199 >                       "explicit\n"
200 >                       "\tmetallic interaction for atom types %s - %s\n",
201 >                       atype1->getName().c_str(), atype2->getName().c_str());
202 >              painCave.severity = OPENMD_ERROR;
203 >              painCave.isFatal = 1;
204 >              simError();
205 >            }
206 >            // We found an explicit Sutton-Chen interaction.  
207 >            // override all other metallic entries for this pair of atom types:
208 >            set<NonBondedInteraction*>::iterator it;
209 >            for (it = interactions_[key].begin();
210 >                 it != interactions_[key].end(); ++it) {
211 >              InteractionFamily ifam = (*it)->getFamily();
212 >              if (ifam == METALLIC_FAMILY) interactions_[key].erase(*it);
213 >            }
214 >            interactions_[key].insert(sc_);
215 >            metExplicit = true;
216            }
217 <          interactions_[key].insert(eam_);
218 <          metExplicit = true;
217 >          
218 >          if (nbiType->isMAW()) {
219 >            if (vdwExplicit) {
220 >              sprintf( painCave.errMsg,
221 >                       "InteractionManager::initialize found more than one "
222 >                       "explicit\n"
223 >                       "\tvan der Waals interaction for atom types %s - %s\n",
224 >                       atype1->getName().c_str(), atype2->getName().c_str());
225 >              painCave.severity = OPENMD_ERROR;
226 >              painCave.isFatal = 1;
227 >              simError();
228 >            }
229 >            // We found an explicit MAW interaction.  
230 >            // override all other vdw entries for this pair of atom types:
231 >            set<NonBondedInteraction*>::iterator it;
232 >            for (it = interactions_[key].begin();
233 >                 it != interactions_[key].end(); ++it) {
234 >              InteractionFamily ifam = (*it)->getFamily();
235 >              if (ifam == VANDERWAALS_FAMILY) interactions_[key].erase(*it);
236 >            }
237 >            interactions_[key].insert(maw_);
238 >            vdwExplicit = true;
239 >          }        
240          }
213 –
214 –        if (nbiType->isSC()) {
215 –          if (metExplicit) {
216 –            sprintf( painCave.errMsg,
217 –                     "InteractionManager::initialize found more than one explicit\n"
218 –                     "\tmetallic interaction for atom types %s - %s\n",
219 –                     atype1->getName().c_str(), atype2->getName().c_str());
220 –            painCave.severity = OPENMD_ERROR;
221 –            painCave.isFatal = 1;
222 –            simError();
223 –          }
224 –          // We found an explicit Sutton-Chen interaction.  
225 –          // override all other metallic entries for this pair of atom types:
226 –          set<NonBondedInteraction*>::iterator it;
227 –          for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it) {
228 –            InteractionFamily ifam = (*it)->getFamily();
229 –            if (ifam == METALLIC_FAMILY) interactions_[key].erase(*it);
230 –          }
231 –          interactions_[key].insert(sc_);
232 –          metExplicit = true;
233 –        }
241        }
242      }
243      
244 <    // make sure every pair of atom types has a non-bonded interaction:
245 <    for (atype1 = atomTypes->beginType(i1); atype1 != NULL;
246 <         atype1 = atomTypes->nextType(i1)) {
247 <      for (atype2 = atomTypes->beginType(i2); atype2 != NULL;
248 <           atype2 = atomTypes->nextType(i2)) {
244 >    
245 >    // Make sure every pair of atom types in this simulation has a
246 >    // non-bonded interaction.  If not, just inform the user.
247 >
248 >    set<AtomType*> simTypes = info_->getSimulatedAtomTypes();
249 >    set<AtomType*>::iterator it, jt;
250 >
251 >    for (it = simTypes.begin(); it != simTypes.end(); ++it) {
252 >      atype1 = (*it);
253 >      for (jt = it; jt != simTypes.end(); ++jt) {
254 >        atype2 = (*jt);
255          key = make_pair(atype1, atype2);
256          
257          if (interactions_[key].size() == 0) {
258            sprintf( painCave.errMsg,
259 <                   "InteractionManager unable to find an appropriate non-bonded\n"
260 <                   "\tinteraction for atom types %s - %s\n",
259 >                   "InteractionManager could not find a matching non-bonded\n"
260 >                   "\tinteraction for atom types %s - %s\n"
261 >                   "\tProceeding without this interaction.\n",
262                     atype1->getName().c_str(), atype2->getName().c_str());
263            painCave.severity = OPENMD_INFO;
264 <          painCave.isFatal = 1;
264 >          painCave.isFatal = 0;
265            simError();
266          }
267        }
268      }
269 <  }
269 >
270 >    initialized_ = true;
271 >  }
272 >
273 >  void InteractionManager::setCutoffRadius(RealType rcut) {
274 >    electrostatic_->setCutoffRadius(rcut);
275 >    eam_->setCutoffRadius(rcut);
276 >  }
277 >
278 >  void InteractionManager::setSwitchingRadius(RealType rswitch) {
279 >    electrostatic_->setSwitchingRadius(rswitch);
280 >  }
281    
282 <  void InteractionManager::doPrePair(int *atid1, int *atid2, RealType *rij, RealType *rho_i_at_j, RealType *rho_j_at_i){
282 >  void InteractionManager::doPrePair(InteractionData idat){
283      
284      if (!initialized_) initialize();
285 <          
261 <    DensityData ddat;
262 <
263 <    ddat.atype1 = typeMap_[*atid1];
264 <    ddat.atype2 = typeMap_[*atid2];
265 <    ddat.rij = *rij;
266 <    ddat.rho_i_at_j = *rho_i_at_j;
267 <    ddat.rho_j_at_i = *rho_j_at_i;
268 <
269 <    pair<AtomType*, AtomType*> key = make_pair(ddat.atype1, ddat.atype2);
285 >        
286      set<NonBondedInteraction*>::iterator it;
287  
288 <    for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it){
288 >    for (it = interactions_[ idat.atypes ].begin();
289 >         it != interactions_[ idat.atypes ].end(); ++it){
290        if ((*it)->getFamily() == METALLIC_FAMILY) {
291 <        dynamic_cast<MetallicInteraction*>(*it)->calcDensity(ddat);
291 >        dynamic_cast<MetallicInteraction*>(*it)->calcDensity(idat);
292        }
293      }
294      
295      return;    
296    }
297    
298 <  void InteractionManager::doPreForce(int *atid, RealType *rho, RealType *frho, RealType *dfrhodrho){
298 >  void InteractionManager::doPreForce(SelfData sdat){
299  
300      if (!initialized_) initialize();
301 <          
302 <    FunctionalData fdat;
286 <
287 <    fdat.atype = typeMap_[*atid];
288 <    fdat.rho = *rho;
289 <    fdat.frho = *frho;
290 <    fdat.dfrhodrho = *dfrhodrho;
291 <
292 <    pair<AtomType*, AtomType*> key = make_pair(fdat.atype, fdat.atype);
301 >    
302 >    pair<AtomType*, AtomType*> key = make_pair(sdat.atype, sdat.atype);
303      set<NonBondedInteraction*>::iterator it;
304      
305      for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it){
306        if ((*it)->getFamily() == METALLIC_FAMILY) {
307 <        dynamic_cast<MetallicInteraction*>(*it)->calcFunctional(fdat);
307 >        dynamic_cast<MetallicInteraction*>(*it)->calcFunctional(sdat);
308        }
309      }
310      
311      return;    
312    }
313  
314 <  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){
314 >  void InteractionManager::doPair(InteractionData idat){
315      
316      if (!initialized_) initialize();
317 <    
308 <    InteractionData idat;
309 <    
310 <    idat.atype1 = typeMap_[*atid1];
311 <    idat.atype2 = typeMap_[*atid2];
312 <    idat.d = Vector3d(d);
313 <    idat.rij = *r;
314 <    idat.r2 = *r2;
315 <    idat.rcut = *rcut;
316 <    idat.sw = *sw;
317 <    idat.vdwMult = vdwScale_[*topoDist];
318 <    idat.electroMult = electrostaticScale_[*topoDist];
319 <    idat.pot = *pot;
320 <    idat.vpair = *vpair;
321 <    idat.f1 = Vector3d(f1);
322 <    idat.eFrame1 = Mat3x3d(eFrame1);
323 <    idat.eFrame2 = Mat3x3d(eFrame2);
324 <    idat.A1 = RotMat3x3d(A1);
325 <    idat.A2 = RotMat3x3d(A2);
326 <    idat.t1 = Vector3d(t1);
327 <    idat.t2 = Vector3d(t2);
328 <    idat.rho1 = *rho1;
329 <    idat.rho2 = *rho2;
330 <    idat.dfrho1 = *dfrho1;
331 <    idat.dfrho2 = *dfrho2;
332 <    idat.fshift1 = *fshift1;
333 <    idat.fshift2 = *fshift2;
334 <
335 <    pair<AtomType*, AtomType*> key = make_pair(idat.atype1, idat.atype2);
317 >  
318      set<NonBondedInteraction*>::iterator it;
319  
320 <    for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it)
320 >    for (it = interactions_[ idat.atypes ].begin();
321 >         it != interactions_[ idat.atypes ].end(); ++it)
322        (*it)->calcForce(idat);
323      
341 –    f1[0] = idat.f1.x();
342 –    f1[1] = idat.f1.y();
343 –    f1[2] = idat.f1.z();
344 –    
345 –    t1[0] = idat.t1.x();
346 –    t1[1] = idat.t1.y();
347 –    t1[2] = idat.t1.z();
348 –    
349 –    t2[0] = idat.t2.x();
350 –    t2[1] = idat.t2.y();
351 –    t2[2] = idat.t2.z();
352 –
324      return;    
325    }
326  
327 <  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){
327 >  void InteractionManager::doSkipCorrection(InteractionData idat){
328  
329 <    if (!initialized_) initialize();
359 <    
360 <    SkipCorrectionData skdat;
361 <    
362 <    skdat.atype1 = typeMap_[*atid1];
363 <    skdat.atype2 = typeMap_[*atid2];
364 <    skdat.d = Vector3d(d);
365 <    skdat.rij = *r;
366 <    skdat.skippedCharge1 = *skippedCharge1;
367 <    skdat.skippedCharge2 = *skippedCharge2;
368 <    skdat.sw = *sw;
369 <    skdat.electroMult = *electroMult;
370 <    skdat.pot = *pot;
371 <    skdat.vpair = *vpair;
372 <    skdat.f1 = Vector3d(f1);
373 <    skdat.eFrame1 = Mat3x3d(eFrame1);
374 <    skdat.eFrame2 = Mat3x3d(eFrame2);
375 <    skdat.t1 = Vector3d(t1);
376 <    skdat.t2 = Vector3d(t2);
329 >    if (!initialized_) initialize();  
330  
378 –    pair<AtomType*, AtomType*> key = make_pair(skdat.atype1, skdat.atype2);
331      set<NonBondedInteraction*>::iterator it;
332  
333 <    for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it){
333 >    for (it = interactions_[ idat.atypes ].begin();
334 >         it != interactions_[ idat.atypes ].end(); ++it){
335        if ((*it)->getFamily() == ELECTROSTATIC_FAMILY) {
336 <        dynamic_cast<ElectrostaticInteraction*>(*it)->calcSkipCorrection(skdat);
336 >        dynamic_cast<ElectrostaticInteraction*>(*it)->calcSkipCorrection(idat);
337        }
338      }
339      
387 –    f1[0] = skdat.f1.x();
388 –    f1[1] = skdat.f1.y();
389 –    f1[2] = skdat.f1.z();
390 –    
391 –    t1[0] = skdat.t1.x();
392 –    t1[1] = skdat.t1.y();
393 –    t1[2] = skdat.t1.z();
394 –    
395 –    t2[0] = skdat.t2.x();
396 –    t2[1] = skdat.t2.y();
397 –    t2[2] = skdat.t2.z();
398 –
340      return;    
341    }
342  
343 <  void InteractionManager::doSelfCorrection(int *atid, RealType *eFrame, RealType *skippedCharge, RealType *pot, RealType *t){
343 >  void InteractionManager::doSelfCorrection(SelfData sdat){
344  
345      if (!initialized_) initialize();
346      
347 <    SelfCorrectionData scdat;
407 <    
408 <    scdat.atype = typeMap_[*atid];
409 <    scdat.eFrame = Mat3x3d(eFrame);
410 <    scdat.skippedCharge = *skippedCharge;
411 <    scdat.pot = *pot;
412 <    scdat.t = Vector3d(t);
413 <
414 <    pair<AtomType*, AtomType*> key = make_pair(scdat.atype, scdat.atype);
347 >    pair<AtomType*, AtomType*> key = make_pair(sdat.atype, sdat.atype);
348      set<NonBondedInteraction*>::iterator it;
349  
350      for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it){
351        if ((*it)->getFamily() == ELECTROSTATIC_FAMILY) {
352 <        dynamic_cast<ElectrostaticInteraction*>(*it)->calcSelfCorrection(scdat);
352 >        dynamic_cast<ElectrostaticInteraction*>(*it)->calcSelfCorrection(sdat);
353        }
354      }
355 <        
423 <    t[0] = scdat.t.x();
424 <    t[1] = scdat.t.y();
425 <    t[2] = scdat.t.z();
426 <
355 >      
356      return;    
357    }
358  
430 –
359    RealType InteractionManager::getSuggestedCutoffRadius(int *atid) {
360      if (!initialized_) initialize();
361      
# Line 438 | Line 366 | namespace OpenMD {
366      RealType cutoff = 0.0;
367      
368      for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it)
369 <      cutoff = max(cutoff, (*it)->getSuggestedCutoffRadius(atype, atype));  
369 >      cutoff = max(cutoff, (*it)->getSuggestedCutoffRadius(key));  
370      return cutoff;    
371    }
372  
# Line 450 | Line 378 | namespace OpenMD {
378      RealType cutoff = 0.0;
379      
380      for (it = interactions_[key].begin(); it != interactions_[key].end(); ++it)
381 <      cutoff = max(cutoff, (*it)->getSuggestedCutoffRadius(atype, atype));  
381 >      cutoff = max(cutoff, (*it)->getSuggestedCutoffRadius(key));  
382      return cutoff;    
383    }
456 –
457 –
458 –  void InteractionManager::setSwitch(RealType *rIn, RealType *rOut) {
459 –    switcher_->setSwitch(*rIn, *rOut);    
460 –  }
461 –
462 –  void InteractionManager::getSwitch(RealType *r2, RealType *sw, RealType *dswdr, RealType *r,
463 –                                     int *in_switching_region) {
464 –    bool isr = switcher_->getSwitch(*r2, *sw, *dswdr, *r);    
465 –    *in_switching_region = (int)isr;
466 –  }
467 –
384   } //end namespace OpenMD
469 –
470 – extern "C" {
471 –  
472 – #define fortranDoPrePair FC_FUNC(do_prepair, DO_PREPAIR)
473 – #define fortranDoPreForce FC_FUNC(do_preforce, DO_PREFORCE)
474 – #define fortranDoPair FC_FUNC(do_pair, DO_PAIR)
475 – #define fortranDoSkipCorrection FC_FUNC(do_skip_correction, DO_SKIP_CORRECTION)
476 – #define fortranDoSelfCorrection FC_FUNC(do_self_correction, DO_SELF_CORRECTION)
477 – #define fortranGetCutoff FC_FUNC(get_cutoff, GET_CUTOFF)
478 – #define fortranSetSwitch FC_FUNC(set_switch, SET_SWITCH)
479 – #define fortranGetSwitch FC_FUNC(get_switch, GET_SWITCH)
480 –
481 –  void fortranDoPrePair(int *atid1, int *atid2, RealType *rij,
482 –                        RealType *rho_i_at_j, RealType *rho_j_at_i) {
483 –            
484 –    return OpenMD::InteractionManager::Instance()->doPrePair(atid1, atid2, rij,
485 –                                                             rho_i_at_j,  
486 –                                                             rho_j_at_i);
487 –  }
488 –  void fortranDoPreForce(int *atid, RealType *rho, RealType *frho,
489 –                         RealType *dfrhodrho) {  
490 –    
491 –    return OpenMD::InteractionManager::Instance()->doPreForce(atid, rho, frho,
492 –                                                              dfrhodrho);    
493 –  }
494 –  
495 –  void fortranDoPair(int *atid1, int *atid2, RealType *d, RealType *r,
496 –                     RealType *r2, RealType *rcut, RealType *sw, int *topoDist,
497 –                     RealType *pot, RealType *vpair, RealType *f1, RealType *eFrame1,
498 –                     RealType *eFrame2, RealType *A1, RealType *A2,
499 –                     RealType *t1, RealType *t2, RealType *rho1, RealType *rho2,
500 –                     RealType *dfrho1, RealType *dfrho2, RealType *fshift1,
501 –                     RealType *fshift2){
502 –    
503 –    return OpenMD::InteractionManager::Instance()->doPair(atid1, atid2, d, r,
504 –                                                          r2, rcut, sw, topoDist,
505 –                                                          pot, vpair, f1,
506 –                                                          eFrame1, eFrame2,
507 –                                                          A1, A2, t1, t2, rho1,
508 –                                                          rho2, dfrho1, dfrho2,
509 –                                                          fshift1, fshift2);
510 –  }
511 –  
512 –  void fortranDoSkipCorrection(int *atid1, int *atid2, RealType *d,
513 –                               RealType *r, RealType *skippedCharge1,
514 –                               RealType *skippedCharge2, RealType *sw,
515 –                               RealType *electroMult, RealType *pot,
516 –                               RealType *vpair, RealType *f1,
517 –                               RealType *eFrame1, RealType *eFrame2,
518 –                               RealType *t1, RealType *t2){
519 –    
520 –    return OpenMD::InteractionManager::Instance()->doSkipCorrection(atid1,
521 –                                                                    atid2, d,
522 –                                                                    r,
523 –                                                                    skippedCharge1,
524 –                                                                    skippedCharge2,
525 –                                                                    sw, electroMult, pot,
526 –                                                                    vpair, f1, eFrame1,
527 –                                                                    eFrame2, t1, t2);
528 –  }
529 –  
530 –  void fortranDoSelfCorrection(int *atid, RealType *eFrame, RealType *skippedCharge,
531 –                               RealType *pot, RealType *t) {
532 –    
533 –    return OpenMD::InteractionManager::Instance()->doSelfCorrection(atid,
534 –                                                                    eFrame,
535 –                                                                    skippedCharge,
536 –                                                                    pot, t);
537 –  }
538 –  RealType fortranGetCutoff(int *atid) {    
539 –    return OpenMD::InteractionManager::Instance()->getSuggestedCutoffRadius(atid);
540 –  }
541 –
542 –  void fortranGetSwitch(RealType *r2, RealType *sw, RealType *dswdr, RealType *r,
543 –                        int *in_switching_region) {
544 –    
545 –    return OpenMD::InteractionManager::Instance()->getSwitch(r2, sw, dswdr, r,
546 –                                                             in_switching_region);
547 –  }
548 –
549 –  void fortranSetSwitch(RealType *rIn, RealType *rOut) {    
550 –    return OpenMD::InteractionManager::Instance()->setSwitch(rIn, rOut);
551 –  }
552 –  
553 – }

Diff Legend

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