ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE/libmdtools/ZConstraint.cpp
(Generate patch)

Comparing trunk/OOPSE/libmdtools/ZConstraint.cpp (file contents):
Revision 738 by tim, Tue Sep 2 14:30:12 2003 UTC vs.
Revision 1141 by tim, Wed Apr 28 23:09:32 2004 UTC

# Line 1 | Line 1
1 < #include "Integrator.hpp"
2 < #include "simError.h"
3 < #include <cmath>
4 < template<typename T> ZConstraint<T>::ZConstraint(SimInfo* theInfo, ForceFields* the_ff)
5 <                                    : T(theInfo, the_ff), fz(NULL), curZPos(NULL), fzOut(NULL),
6 <                                 indexOfZConsMols(NULL), forcePolicy(NULL), curZconsTime(0)
7 < {
8 <
9 <  //get properties from SimInfo
10 <  GenericData* data;
11 <  ZConsParaData* zConsParaData;
12 <  DoubleData* sampleTime;
13 <  DoubleData* tolerance;
14 <  StringData* policy;
15 <  StringData* filename;
16 <  double COM[3];
17 <
18 <  //by default, the direction of constraint is z
19 <  // 0 --> x
20 <  // 1 --> y
21 <  // 2 --> z
22 <  whichDirection = 2;
23 <
24 <  //estimate the force constant of harmonical potential
25 <  double Kb = 1.986E-3 ; //in kcal/K
26 <  
27 <  double halfOfLargestBox = max(info->boxL[0], max(info->boxL[1], info->boxL[2])) /2;
28 <  zForceConst = Kb * info->target_temp /(halfOfLargestBox * halfOfLargestBox);
29 <
30 <  //creat force Subtraction policy
31 <  data = info->getProperty(ZCONSFORCEPOLICY_ID);
32 <  if(!data){
33 <    sprintf( painCave.errMsg,
34 <               "ZConstraint Warning: User does not set force Subtraction policy, "
35 <               "PolicyByMass is used\n");
36 <    painCave.isFatal = 0;
37 <    simError();      
38 <
39 <    forcePolicy = (ForceSubtractionPolicy*) new PolicyByMass(this);
40 <  }
41 <  else{
42 <    policy = dynamic_cast<StringData*>(data);
43 <    
44 <    if(!policy){
45 <      sprintf( painCave.errMsg,
46 <                 "ZConstraint Error: Convertion from GenericData to StringData failure, "
47 <                 "PolicyByMass is used\n");
48 <      painCave.isFatal = 0;
49 <      simError();      
50 <
51 <      forcePolicy = (ForceSubtractionPolicy*) new PolicyByMass(this);
52 <    }
53 <    else{
54 <      if(policy->getData() == "BYNUMBER")
55 <        forcePolicy = (ForceSubtractionPolicy*) new PolicyByNumber(this);
56 <      else if(policy->getData() == "BYMASS")
57 <        forcePolicy = (ForceSubtractionPolicy*) new PolicyByMass(this);
58 <      else{
59 <        sprintf( painCave.errMsg,
60 <                  "ZConstraint Warning: unknown force Subtraction policy, "
61 <                  "PolicyByMass is used\n");
62 <        painCave.isFatal = 0;
63 <        simError();      
64 <        forcePolicy = (ForceSubtractionPolicy*) new PolicyByMass(this);
65 <      }  
66 <    }
67 <  }
68 <  
69 <  
70 <  //retrieve sample time of z-contraint
71 <  data = info->getProperty(ZCONSTIME_ID);
72 <  
73 <  if(!data) {
74 <      
75 <    sprintf( painCave.errMsg,
76 <               "ZConstraint error: If you use an ZConstraint\n"
77 <               " , you must set sample time.\n");
78 <    painCave.isFatal = 1;
79 <    simError();      
80 <  }
81 <  else{
82 <  
83 <    sampleTime = dynamic_cast<DoubleData*>(data);
84 <    
85 <    if(!sampleTime){
86 <
87 <      sprintf( painCave.errMsg,
88 <                 "ZConstraint error: Can not get property from SimInfo\n");
89 <      painCave.isFatal = 1;
90 <      simError();  
91 <      
92 <    }
93 <    else{
94 <      this->zconsTime = sampleTime->getData();
95 <    }
96 <
97 <  }
98 <  
99 <  //retrieve output filename of z force
100 <  data = info->getProperty(ZCONSFILENAME_ID);
101 <  if(!data) {
102 <
103 <      
104 <    sprintf( painCave.errMsg,
105 <               "ZConstraint error: If you use an ZConstraint\n"
106 <               " , you must set output filename of z-force.\n");
107 <    painCave.isFatal = 1;
108 <    simError();  
109 <
110 <  }
111 <  else{
112 <
113 <    filename = dynamic_cast<StringData*>(data);
114 <    
115 <    if(!filename){
116 <
117 <      sprintf( painCave.errMsg,
118 <                 "ZConstraint error: Can not get property from SimInfo\n");
119 <      painCave.isFatal = 1;
120 <      simError();  
121 <        
122 <    }
123 <    else{
124 <      this->zconsOutput = filename->getData();
125 <    }
126 <    
127 <  }
128 <
129 <  //retrieve tolerance for z-constraint molecuels
130 <  data = info->getProperty(ZCONSTOL_ID);
131 <  
132 <  if(!data) {
133 <      
134 <    sprintf( painCave.errMsg,
135 <               "ZConstraint error: can not get tolerance \n");
136 <    painCave.isFatal = 1;
137 <    simError();      
138 <  }
139 <  else{
140 <  
141 <    tolerance = dynamic_cast<DoubleData*>(data);
142 <    
143 <    if(!tolerance){
144 <
145 <      sprintf( painCave.errMsg,
146 <                 "ZConstraint error: Can not get property from SimInfo\n");
147 <      painCave.isFatal = 1;
148 <      simError();  
149 <      
150 <    }
151 <    else{
152 <      this->zconsTol = tolerance->getData();
153 <    }
154 <
155 <  }
156 <  
157 <  //retrieve index of z-constraint molecules
158 <  data = info->getProperty(ZCONSPARADATA_ID);
159 <  if(!data) {
160 <
161 <    sprintf( painCave.errMsg,
162 <               "ZConstraint error: If you use an ZConstraint\n"
163 <               " , you must set index of z-constraint molecules.\n");
164 <    painCave.isFatal = 1;
165 <    simError();  
166 <  }
167 <  else{
168 <  
169 <    zConsParaData = dynamic_cast<ZConsParaData*>(data);
170 <    
171 <    if(!zConsParaData){
172 <
173 <      sprintf( painCave.errMsg,
174 <                 "ZConstraint error: Can not get parameters of zconstraint method from SimInfo\n");
175 <      painCave.isFatal = 1;
176 <      simError();  
177 <    
178 <    }
179 <    else{
180 <      
181 <      parameters = zConsParaData->getData();
182 <
183 <      //check the range of zconsIndex
184 <      //and the minimum value of index is the first one (we already sorted the data)
185 <      //the maximum value of index is the last one
186 <
187 <      int maxIndex;
188 <      int minIndex;
189 <      int totalNumMol;
190 <
191 <      minIndex = (*parameters)[0].zconsIndex;
192 <      if(minIndex < 0){
193 <        sprintf( painCave.errMsg,
194 <               "ZConstraint error: index is out of range\n");
195 <        painCave.isFatal = 1;
196 <        simError();
197 <        }
198 <
199 <      maxIndex = (*parameters)[parameters->size() - 1].zconsIndex;
200 <
201 < #ifndef IS_MPI
202 <      totalNumMol = nMols;
203 < #else
204 <      totalNumMol = mpiSim->getTotNmol();  
205 < #endif      
206 <      
207 <      if(maxIndex > totalNumMol - 1){
208 <        sprintf( painCave.errMsg,
209 <               "ZConstraint error: index is out of range\n");
210 <        painCave.isFatal = 1;
211 <        simError();                  
212 <      }
213 <
214 <      //if user does not specify the zpos for the zconstraint molecule
215 <      //its initial z coordinate  will be used as default
216 <      for(int i = 0; i < parameters->size(); i++){
217 <
218 <        if(!(*parameters)[i].havingZPos){
219 < #ifndef IS_MPI
220 <          for(int j = 0; j < nMols; j++){
221 <            if (molecules[j].getGlobalIndex() == (*parameters)[i].zconsIndex){
222 <              molecules[j].getCOM(COM);
223 <        break;
224 <            }
225 <          }
226 < #else
227 <            //query which processor current zconstraint molecule belongs to
228 <          int *MolToProcMap;
229 <          int whichNode;
230 <    double initZPos;
231 <          MolToProcMap = mpiSim->getMolToProcMap();
232 <          whichNode = MolToProcMap[(*parameters)[i].zconsIndex];
233 <        
234 <          //broadcast the zpos of current z-contraint molecule
235 <          //the node which contain this
236 <          
237 <          if (worldRank == whichNode ){
238 <            
239 <            for(int j = 0; j < nMols; j++)
240 <              if (molecules[j].getGlobalIndex() == (*parameters)[i].zconsIndex){
241 <                molecules[j].getCOM(COM);
242 <          break;
243 <              }
244 <        
245 <          }
246 <
247 <          MPI_Bcast(&COM[whichDirection], 1, MPI_DOUBLE_PRECISION, whichNode, MPI_COMM_WORLD);        
248 < #endif
249 <            
250 <          (*parameters)[i].zPos = COM[whichDirection];
251 <
252 <          sprintf( painCave.errMsg,
253 <                     "ZConstraint warning: Does not specify zpos for z-constraint molecule "
254 <                     "initial z coornidate will be used \n");
255 <           painCave.isFatal = 0;
256 <           simError();  
257 <    
258 <  }
259 <      }
260 <      
261 <    }//end if (!zConsParaData)
262 <  }//end  if (!data)
263 <            
264 < //  
265 < #ifdef IS_MPI
266 <  update();
267 < #else  
268 <  int searchResult;
269 <      
270 <  for(int i = 0; i < nMols; i++){
271 <    
272 <    searchResult = isZConstraintMol(&molecules[i]);
273 <    
274 <    if(searchResult > -1){
275 <    
276 <      zconsMols.push_back(&molecules[i]);      
277 <      massOfZConsMols.push_back(molecules[i].getTotalMass());  
278 <
279 <      zPos.push_back((*parameters)[searchResult].zPos);
280 < //       cout << "index: "<< (*parameters)[searchResult].zconsIndex
281 < //              <<"\tzPos = " << (*parameters)[searchResult].zPos << endl;
282 <      kz.push_back((*parameters)[searchResult]. kRatio * zForceConst);
283 <      
284 <      molecules[i].getCOM(COM);
285 <    }
286 <    else
287 <    {
288 <    
289 <      unconsMols.push_back(&molecules[i]);
290 <      massOfUnconsMols.push_back(molecules[i].getTotalMass());
291 <
292 <    }
293 <  }
294 <
295 <  fz = new double[zconsMols.size()];
296 <  curZPos = new double[zconsMols.size()];
297 <  indexOfZConsMols = new int [zconsMols.size()];
298 <
299 <  if(!fz || !curZPos || !indexOfZConsMols){
300 <    sprintf( painCave.errMsg,
301 <             "Memory allocation failure in class Zconstraint\n");
302 <    painCave.isFatal = 1;
303 <    simError();
304 <  }
305 <
306 <  //determine the states of z-constraint molecules
307 <  for(int i = 0; i < zconsMols.size(); i++){
308 <    indexOfZConsMols[i] = zconsMols[i]->getGlobalIndex();
309 <
310 <    zconsMols[i]->getCOM(COM);
311 <    if (fabs(zPos[i] - COM[whichDirection]) < zconsTol)
312 <      states.push_back(zcsFixed);
313 <    else
314 <      states.push_back(zcsMoving);
315 <  }
316 <  
317 < #endif
318 <
319 <  //get total masss of unconstraint molecules
320 <  double totalMassOfUncons_local;
321 <  totalMassOfUncons_local = 0;
322 <  
323 <  for(int i = 0; i < unconsMols.size(); i++)
324 <    totalMassOfUncons_local += unconsMols[i]->getTotalMass();
325 <    
326 < #ifndef IS_MPI
327 <  totalMassOfUncons = totalMassOfUncons_local;
328 < #else
329 <  MPI_Allreduce(&totalMassOfUncons_local, &totalMassOfUncons, 1,
330 <                      MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);  
331 < #endif
332 <
333 <  //get total number of unconstrained atoms
334 <  int nUnconsAtoms_local;
335 <  nUnconsAtoms_local = 0;
336 <  for(int i = 0; i < unconsMols.size(); i++)
337 <    nUnconsAtoms_local += unconsMols[i]->getNAtoms();
338 <    
339 < #ifndef IS_MPI
340 <  totNumOfUnconsAtoms = nUnconsAtoms_local;
341 < #else
342 <  MPI_Allreduce(&nUnconsAtoms_local, &totNumOfUnconsAtoms, 1,
343 <                      MPI_INT,MPI_SUM, MPI_COMM_WORLD);  
344 < #endif  
345 <
346 <  forcePolicy->update();
347 < }
348 <
349 < template<typename T> ZConstraint<T>::~ZConstraint()
350 < {
351 <  if(fz)
352 <    delete[] fz;
353 <
354 <  if(curZPos)
355 <    delete[] curZPos;
356 <  
357 <  if(indexOfZConsMols)
358 <    delete[] indexOfZConsMols;
359 <  
360 <  if(fzOut)
361 <    delete fzOut;
362 <  
363 <  if(forcePolicy)
364 <    delete forcePolicy;
365 < }
366 <
367 <
368 < /**
369 < *
370 < */
371 <
372 < #ifdef IS_MPI
373 < template<typename T> void ZConstraint<T>::update()
374 < {
375 <  double COM[3];
376 <  int index;
377 <  
378 <  zconsMols.clear();
379 <  massOfZConsMols.clear();
380 <  zPos.clear();
381 <  kz.clear();
382 <  
383 <  unconsMols.clear();
384 <  massOfUnconsMols.clear();
385 <
386 <
387 <  //creat zconsMol and unconsMol lists
388 <  for(int i = 0; i < nMols; i++){
389 <    
390 <    index = isZConstraintMol(&molecules[i]);
391 <    
392 <    if(index > -1){
393 <    
394 <      zconsMols.push_back(&molecules[i]);      
395 <      zPos.push_back((*parameters)[index].zPos);
396 <      kz.push_back((*parameters)[index].kRatio * zForceConst);
397 <      
398 <      massOfZConsMols.push_back(molecules[i].getTotalMass());  
399 <      
400 <      molecules[i].getCOM(COM);
401 <    }
402 <    else
403 <    {
404 <    
405 <      unconsMols.push_back(&molecules[i]);
406 <      massOfUnconsMols.push_back(molecules[i].getTotalMass());
407 <
408 <    }
409 <  }
410 <
411 <  //determine the states of z-constraint molecules
412 <  for(int i = 0; i < zconsMols.size(); i++){
413 <     zconsMols[i]->getCOM(COM);
414 <      if (fabs(zPos[i] - COM[whichDirection]) < zconsTol)
415 <      states.push_back(zcsFixed);
416 <     else
417 <      states.push_back(zcsMoving);
418 <  }
419 <
420 <    
421 <  //The reason to declare fz and indexOfZconsMols as pointer to array is
422 <  // that we want to make the MPI communication simple
423 <  if(fz)
424 <    delete[] fz;
425 <  
426 <  if(curZPos)
427 <    delete[] curZPos;
428 <    
429 <  if(indexOfZConsMols)
430 <    delete[] indexOfZConsMols;
431 <    
432 <  if (zconsMols.size() > 0){
433 <    fz = new double[zconsMols.size()];
434 <   curZPos = new double[zconsMols.size()];
435 <    indexOfZConsMols =  new int[zconsMols.size()];
436 <    
437 <    if(!fz || !curZPos || !indexOfZConsMols){
438 <      sprintf( painCave.errMsg,
439 <               "Memory allocation failure in class Zconstraint\n");
440 <      painCave.isFatal = 1;
441 <      simError();
442 <    }
443 <        
444 <    for(int i = 0; i < zconsMols.size(); i++){
445 <      indexOfZConsMols[i] = zconsMols[i]->getGlobalIndex();
446 <    }
447 <
448 <  }
449 <  else{
450 <    fz = NULL;
451 <   curZPos = NULL;
452 <    indexOfZConsMols = NULL;
453 <  }
454 <  
455 <  //
456 <  forcePolicy->update();
457 <  
458 < }
459 <
460 < #endif
461 <
462 < /**
463 < *  Function Name: isZConstraintMol
464 < *  Parameter
465 < *    Molecule* mol
466 < *  Return value:
467 < *    -1, if the molecule is not z-constraint molecule,
468 < *    other non-negative values, its index in indexOfAllZConsMols vector
469 < */
470 <
471 < template<typename T> int ZConstraint<T>::isZConstraintMol(Molecule* mol)
472 < {
473 <  int index;
474 <  int low;
475 <  int high;
476 <  int mid;
477 <
478 <  index = mol->getGlobalIndex();
479 <  
480 <  low = 0;
481 <  high = parameters->size() - 1;
482 <  
483 <  //Binary Search (we have sorted the array)  
484 <  while(low <= high){
485 <    mid = (low + high) /2;
486 <    if ((*parameters)[mid].zconsIndex == index)
487 <      return mid;
488 <    else if ((*parameters)[mid].zconsIndex > index )
489 <       high = mid -1;
490 <    else    
491 <      low = mid + 1;
492 <  }
493 <  
494 <  return -1;
495 < }
496 <
497 < template<typename T> void ZConstraint<T>::integrate(){
498 <
499 <  // creat zconsWriter  
500 <  fzOut = new ZConsWriter(zconsOutput.c_str(), parameters);  
501 <  
502 <  if(!fzOut){
503 <    sprintf( painCave.errMsg,
504 <             "Memory allocation failure in class Zconstraint\n");
505 <    painCave.isFatal = 1;
506 <    simError();
507 <  }
508 <  
509 <  //zero out the velocities of center of mass of unconstrained molecules
510 <  //and the velocities of center of mass of every single z-constrained molecueles
511 <  zeroOutVel();
512 <
513 <  curZconsTime = zconsTime + info->getTime();
514 <  
515 <  T::integrate();
516 <
517 < }
518 <
519 <
520 < /**
521 < *
522 < *
523 < *
524 < *
525 < */
526 < template<typename T> void ZConstraint<T>::calcForce(int calcPot, int calcStress){
527 <  double zsys;
528 <  double COM[3];
529 <  double force[3];
530 <  double zSysCOMVel;
531 <
532 <  T::calcForce(calcPot, calcStress);
533 <
534 <  if (checkZConsState()){    
535 <    zeroOutVel();    
536 <    forcePolicy->update();
537 <  }  
538 <  
539 <  zsys = calcZSys();
540 <  zSysCOMVel = calcSysCOMVel();
541 < #ifdef IS_MPI
542 <  if(worldRank == 0){
543 < #endif
544 <     //cout << "---------------------------------------------------------------------" <<endl;
545 <     //cout << "current time: " << info->getTime() << endl;
546 <     //cout << "center of mass at z: " << zsys << endl;    
547 <     //cout << "before calcForce, the COMVel of system is " << zSysCOMVel <<endl;
548 <
549 < #ifdef IS_MPI
550 <  }
551 < #endif
552 <
553 <  //do zconstraint force;
554 <  if (haveFixedZMols())
555 <    this->doZconstraintForce();
556 <
557 <  //use harmonical poteintial to move the molecules to the specified positions
558 <  if (haveMovingZMols())
559 <    this->doHarmonic();
560 <
561 <  //write out forces and current positions of z-constraint molecules
562 <  if(info->getTime() >= curZconsTime){    
563 <   for(int i = 0; i < zconsMols.size(); i++){
564 <      zconsMols[i]->getCOM(COM);
565 <    curZPos[i] = COM[whichDirection];
566 <
567 <    //if the z-constraint molecule is still moving, just record its force
568 <    if(states[i] == zcsMoving){
569 <         fz[i] = 0;
570 <      Atom** movingZAtoms;
571 <      movingZAtoms = zconsMols[i]->getMyAtoms();
572 <      for(int j = 0; j < zconsMols[i]->getNAtoms(); j++){
573 <           movingZAtoms[j]->getFrc(force);
574 <           fz[i] += force[whichDirection];
575 <      }
576 <     }
577 <   }
578 <    fzOut->writeFZ(info->getTime(), zconsMols.size(), indexOfZConsMols, fz, curZPos);
579 <   curZconsTime += zconsTime;
580 <  }
581 <
582 <  zSysCOMVel = calcSysCOMVel();  
583 < #ifdef IS_MPI
584 <  if(worldRank == 0){
585 < #endif
586 <     //cout << "after calcForce, the COMVel of system is " << zSysCOMVel <<endl;
587 < #ifdef IS_MPI
588 <  }
589 < #endif
590 < }
591 <
592 <
593 < /**
594 < *
595 < */
596 <
597 < template<typename T> double ZConstraint<T>::calcZSys()
598 < {
599 <  //calculate reference z coordinate for z-constraint molecules
600 <  double totalMass_local;
601 <  double totalMass;
602 <  double totalMZ_local;
603 <  double totalMZ;
604 <  double massOfCurMol;
605 <  double COM[3];
606 <  
607 <  totalMass_local = 0;
608 <  totalMZ_local = 0;
609 <  
610 <  for(int i = 0; i < nMols; i++){
611 <    massOfCurMol = molecules[i].getTotalMass();
612 <    molecules[i].getCOM(COM);
613 <    
614 <    totalMass_local += massOfCurMol;
615 <    totalMZ_local += massOfCurMol * COM[whichDirection];
616 <
617 <  }
618 <
619 <  
620 < #ifdef IS_MPI  
621 <  MPI_Allreduce(&totalMass_local, &totalMass, 1,
622 <                      MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);
623 <  MPI_Allreduce(&totalMZ_local, &totalMZ, 1,
624 <                      MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);  
625 < #else
626 <  totalMass = totalMass_local;
627 <  totalMZ = totalMZ_local;
628 < #endif  
629 <
630 <  double zsys;
631 <  zsys = totalMZ / totalMass;
632 <
633 <  return zsys;
634 < }
635 <
636 < /**
637 < *
638 < */
639 < template<typename T> void ZConstraint<T>::thermalize( void ){
640 <
641 <  T::thermalize();
642 <  zeroOutVel();
643 < }
644 <
645 < /**
646 < *
647 < */
648 <
649 < template<typename T> void ZConstraint<T>::zeroOutVel(){
650 <
651 <  Atom** fixedZAtoms;  
652 <  double COMvel[3];
653 <  double vel[3];
654 <  double zSysCOMVel;
655 <
656 <  //zero out the velocities of center of mass of fixed z-constrained molecules
657 <  
658 <  for(int i = 0; i < zconsMols.size(); i++){
659 <
660 <    if (states[i] == zcsFixed){
661 <
662 <     zconsMols[i]->getCOMvel(COMvel);      
663 <     //cout << "before resetting " << indexOfZConsMols[i] <<"'s vz is " << COMvel[whichDirection] << endl;
664 <
665 <      fixedZAtoms = zconsMols[i]->getMyAtoms();
666 <    
667 <      for(int j =0; j < zconsMols[i]->getNAtoms(); j++){
668 <        fixedZAtoms[j]->getVel(vel);
669 <       vel[whichDirection] -= COMvel[whichDirection];
670 <       fixedZAtoms[j]->setVel(vel);
671 <      }
672 <
673 <    zconsMols[i]->getCOMvel(COMvel);
674 <    //cout << "after resetting " << indexOfZConsMols[i] <<"'s vz is " << COMvel[whichDirection] << endl;
675 <    }
676 <  
677 <  }
678 <
679 <    //cout << "before resetting the COMVel of moving molecules is " << calcMovingMolsCOMVel() <<endl;
680 <
681 <  zSysCOMVel = calcSysCOMVel();
682 < #ifdef IS_MPI
683 <  if(worldRank == 0){
684 < #endif
685 <     //cout << "before resetting the COMVel of sytem is " << zSysCOMVel << endl;  
686 < #ifdef IS_MPI
687 <  }
688 < #endif
689 <      
690 <  // calculate the vz of center of mass of unconstrained molecules and moving z-constrained molecules
691 <  double MVzOfMovingMols_local;
692 <  double MVzOfMovingMols;
693 <  double totalMassOfMovingZMols_local;
694 <  double totalMassOfMovingZMols;
695 <      
696 <  MVzOfMovingMols_local = 0;
697 <  totalMassOfMovingZMols_local = 0;
698 <
699 <  for(int i =0; i < unconsMols.size(); i++){
700 <    unconsMols[i]->getCOMvel(COMvel);
701 <    MVzOfMovingMols_local += massOfUnconsMols[i] * COMvel[whichDirection];      
702 <  }
703 <
704 <  for(int i = 0; i < zconsMols.size(); i++){
705 <    if (states[i] == zcsMoving){
706 <      zconsMols[i]->getCOMvel(COMvel);
707 <      MVzOfMovingMols_local += massOfZConsMols[i] * COMvel[whichDirection];  
708 <      totalMassOfMovingZMols_local += massOfZConsMols[i];      
709 <    }
710 <    
711 <  }
712 <
713 < #ifndef IS_MPI
714 <  MVzOfMovingMols = MVzOfMovingMols_local;
715 <  totalMassOfMovingZMols = totalMassOfMovingZMols_local;
716 < #else
717 <  MPI_Allreduce(&MVzOfMovingMols_local, &MVzOfMovingMols, 1, MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD);
718 <  MPI_Allreduce(&totalMassOfMovingZMols_local, &totalMassOfMovingZMols, 1, MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD);  
719 < #endif
720 <
721 <  double vzOfMovingMols;
722 <  vzOfMovingMols = MVzOfMovingMols / (totalMassOfUncons + totalMassOfMovingZMols);
723 <
724 <  //modify the velocites of unconstrained molecules  
725 <  Atom** unconsAtoms;
726 <  for(int i = 0; i < unconsMols.size(); i++){
727 <  
728 <    unconsAtoms = unconsMols[i]->getMyAtoms();
729 <    for(int j = 0; j < unconsMols[i]->getNAtoms();j++){
730 <      unconsAtoms[j]->getVel(vel);
731 <      vel[whichDirection] -= vzOfMovingMols;
732 <      unconsAtoms[j]->setVel(vel);
733 <    }
734 <  
735 <  }  
736 <
737 <  //modify the velocities of moving z-constrained molecuels
738 <  Atom** movingZAtoms;
739 <  for(int i = 0; i < zconsMols.size(); i++){
740 <
741 <    if (states[i] ==zcsMoving){
742 <  
743 <      movingZAtoms = zconsMols[i]->getMyAtoms();
744 <     for(int j = 0; j < zconsMols[i]->getNAtoms(); j++){
745 <        movingZAtoms[j]->getVel(vel);
746 <        vel[whichDirection] -= vzOfMovingMols;
747 <       movingZAtoms[j]->setVel(vel);
748 <    }
749 <    
750 <   }
751 <
752 < }
753 <
754 <
755 <  zSysCOMVel = calcSysCOMVel();
756 < #ifdef IS_MPI
757 <  if(worldRank == 0){
758 < #endif
759 <     //cout << "after resetting the COMVel of moving molecules is " << zSysCOMVel << endl;  
760 < #ifdef IS_MPI
761 <  }
762 < #endif
763 <
764 < }
765 <
766 < /**
767 < *
768 < */
769 <
770 < template<typename T> void ZConstraint<T>::doZconstraintForce(){
771 <
772 <  Atom** zconsAtoms;
773 <  double totalFZ;
774 <  double totalFZ_local;
775 <  double COMvel[3];  
776 <  double COM[3];
777 <  double force[3];
778 <
779 <  //constrain the molecules which do not reach the specified positions  
780 <    
781 <  //Zero Out the force of z-contrained molecules    
782 <  totalFZ_local = 0;
783 <
784 <  //calculate the total z-contrained force of fixed z-contrained molecules
785 <  
786 <  //cout << "before zero out z-constraint force on fixed z-constraint molecuels "
787 <  //       << "total force is " << calcTotalForce() << endl;
788 <
789 <  for(int i = 0; i < zconsMols.size(); i++){
790 <    
791 <    if (states[i] == zcsFixed){
792 <      
793 <      zconsMols[i]->getCOM(COM);
794 <      zconsAtoms = zconsMols[i]->getMyAtoms();  
795 <
796 <      fz[i] = 0;      
797 <      for(int j =0; j < zconsMols[i]->getNAtoms(); j++) {
798 <        zconsAtoms[j]->getFrc(force);
799 <        fz[i] += force[whichDirection];      
800 <      }
801 <      totalFZ_local += fz[i];
802 <
803 <      //cout << "Fixed Molecule\tindex: " << indexOfZConsMols[i]
804 <      //      <<"\tcurrent zpos: " << COM[whichDirection]
805 <      //      << "\tcurrent fz: " <<fz[i] << endl;
806 <
807 <
808 <    }
809 <    
810 <  }
811 <
812 <  //calculate total z-constraint force
813 < #ifdef IS_MPI
814 <  MPI_Allreduce(&totalFZ_local, &totalFZ, 1, MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD);
815 < #else
816 <  totalFZ = totalFZ_local;
817 < #endif
818 <
819 <  
820 <  // apply negative to fixed z-constrained molecues;
821 <  force[0]= 0;
822 <  force[1]= 0;
823 <  force[2]= 0;
824 <
825 <  for(int i = 0; i < zconsMols.size(); i++){
826 <
827 <    if (states[i] == zcsFixed){  
828 <  
829 <      int nAtomOfCurZConsMol = zconsMols[i]->getNAtoms();
830 <      zconsAtoms = zconsMols[i]->getMyAtoms();  
831 <    
832 <      for(int j =0; j < nAtomOfCurZConsMol; j++) {
833 <        //force[whichDirection] = -fz[i]/ nAtomOfCurZConsMol;
834 <        force[whichDirection] = - forcePolicy->getZFOfFixedZMols(zconsMols[i], zconsAtoms[j], fz[i]);
835 <        zconsAtoms[j]->addFrc(force);
836 <      }
837 <    
838 <    }
839 <  
840 <  }
841 <
842 <  //cout << "after zero out z-constraint force on fixed z-constraint molecuels "
843 <  //      << "total force is " << calcTotalForce() << endl;
844 <  
845 <
846 <  force[0]= 0;
847 <  force[1]= 0;
848 <  force[2]= 0;
849 <
850 <  //modify the forces of unconstrained molecules
851 <  for(int i = 0; i < unconsMols.size(); i++){
852 <    
853 <     Atom** unconsAtoms = unconsMols[i]->getMyAtoms();
854 <    
855 <     for(int j = 0; j < unconsMols[i]->getNAtoms(); j++){          
856 <       //force[whichDirection] = totalFZ / (totNumOfUnconsAtoms + nMovingZAtoms);
857 <       force[whichDirection] = forcePolicy->getZFOfMovingMols(unconsAtoms[j],totalFZ);
858 <       unconsAtoms[j]->addFrc(force);
859 <     }
860 <    
861 <  }      
862 <
863 < //modify the forces of moving z-constrained molecules
864 <  for(int i = 0; i < zconsMols.size(); i++) {
865 <    if (states[i] == zcsMoving){
866 <    
867 <      Atom** movingZAtoms = zconsMols[i]->getMyAtoms();    
868 <
869 <      for(int j = 0; j < zconsMols[i]->getNAtoms(); j++){
870 <        //force[whichDirection] = totalFZ / (totNumOfUnconsAtoms + nMovingZAtoms);
871 <        force[whichDirection] = forcePolicy->getZFOfMovingMols(movingZAtoms[j],totalFZ);
872 <        movingZAtoms[j]->addFrc(force);
873 <      }
874 <    }
875 <  }
876 < //  cout << "after substracting z-constraint force from moving molecuels "
877 < //        << "total force is " << calcTotalForce()  << endl;
878 <
879 < }
880 <
881 < /**
882 <  *
883 <  *
884 <  */
885 <
886 < template<typename T> void ZConstraint<T>::doHarmonic(){
887 <  double force[3];
888 <  double harmonicU;
889 <  double harmonicF;
890 <  double COM[3];
891 <  double diff;
892 <  double totalFZ_local;
893 <  double totalFZ;
894 <  
895 <  force[0] = 0;
896 <  force[1] = 0;
897 <  force[2] = 0;
898 <
899 <  totalFZ_local = 0;
900 <
901 <  for(int i = 0; i < zconsMols.size(); i++) {
902 <
903 <    if (states[i] == zcsMoving){
904 <      zconsMols[i]->getCOM(COM);
905 < //       cout << "Moving Molecule\tindex: " << indexOfZConsMols[i]
906 < //         << "\tcurrent zpos: " << COM[whichDirection] << endl;
907 <
908 <      diff = COM[whichDirection] -zPos[i];
909 <    
910 <      harmonicU = 0.5 * kz[i] * diff * diff;  
911 <      info->lrPot += harmonicU;
912 <
913 <      harmonicF =  - kz[i] * diff;
914 <      totalFZ_local += harmonicF;
915 <
916 <       //adjust force
917 <    
918 <      Atom** movingZAtoms = zconsMols[i]->getMyAtoms();    
919 <
920 <       for(int j = 0; j < zconsMols[i]->getNAtoms(); j++){          
921 <        //force[whichDirection] = harmonicF / zconsMols[i]->getNAtoms();
922 <        force[whichDirection] = forcePolicy->getHFOfFixedZMols(zconsMols[i], movingZAtoms[j], harmonicF);
923 <         movingZAtoms[j]->addFrc(force);
924 <       }
925 <    }
926 <
927 <  }
928 <
929 < #ifndef IS_MPI
930 <  totalFZ = totalFZ_local;
931 < #else
932 <  MPI_Allreduce(&totalFZ_local, &totalFZ, 1, MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD);  
933 < #endif
934 <
935 <  cout << "before substracting harmonic force from moving molecuels "
936 <        << "total force is " << calcTotalForce()  << endl;
937 <
938 <  force[0]= 0;
939 <  force[1]= 0;
940 <  force[2]= 0;
941 <
942 <  //modify the forces of unconstrained molecules
943 <  for(int i = 0; i < unconsMols.size(); i++){
944 <    
945 <     Atom** unconsAtoms = unconsMols[i]->getMyAtoms();
946 <    
947 <     for(int j = 0; j < unconsMols[i]->getNAtoms(); j++){          
948 <       //force[whichDirection] = - totalFZ /totNumOfUnconsAtoms;
949 <       force[whichDirection] = - forcePolicy->getHFOfUnconsMols(unconsAtoms[j], totalFZ);
950 <       unconsAtoms[j]->addFrc(force);    
951 <     }
952 <  }  
953 <
954 <  cout << "after substracting harmonic force from moving molecuels "
955 <        << "total force is " << calcTotalForce()  << endl;
956 <
957 < }
958 <
959 < /**
960 < *
961 < */
962 <
963 < template<typename T> bool ZConstraint<T>::checkZConsState(){
964 <  double COM[3];
965 <  double diff;
966 <  
967 <  int changed_local;
968 <  int changed;
969 <  
970 <  changed_local = 0;
971 <  
972 <  for(int i =0; i < zconsMols.size(); i++){
973 <
974 <    zconsMols[i]->getCOM(COM);
975 <    diff = fabs(COM[whichDirection] - zPos[i]);  
976 <    if (  diff <= zconsTol && states[i] == zcsMoving){
977 <      states[i] = zcsFixed;
978 <     changed_local = 1;
979 <    }
980 <    else if ( diff > zconsTol && states[i] == zcsFixed){
981 <      states[i] = zcsMoving;
982 <     changed_local = 1;  
983 <    }
984 <  
985 <  }
986 <
987 < #ifndef IS_MPI
988 <  changed =changed_local;
989 < #else
990 <  MPI_Allreduce(&changed_local, &changed, 1, MPI_INT,MPI_SUM, MPI_COMM_WORLD);
991 < #endif
992 <
993 <  return (changed > 0);
994 <
995 < }
996 <
997 < template<typename T> bool ZConstraint<T>::haveFixedZMols(){
998 <
999 <  int havingFixed_local;
1000 <  int havingFixed;
1001 <
1002 <  havingFixed_local = 0;
1003 <
1004 <  for(int i = 0; i < zconsMols.size(); i++)
1005 <    if (states[i] == zcsFixed){
1006 <      havingFixed_local = 1;
1007 <    break;
1008 <    }
1009 <
1010 < #ifndef IS_MPI
1011 <  havingFixed = havingFixed_local;
1012 < #else
1013 <  MPI_Allreduce(&havingFixed_local, &havingFixed, 1, MPI_INT,MPI_SUM, MPI_COMM_WORLD);
1014 < #endif
1015 <
1016 <  return (havingFixed > 0);
1017 < }
1018 <
1019 <
1020 < /**
1021 < *
1022 < */
1023 < template<typename T> bool ZConstraint<T>::haveMovingZMols(){
1024 <
1025 <  int havingMoving_local;
1026 <  int havingMoving;
1027 <
1028 <  havingMoving_local = 0;
1029 <
1030 <  for(int i = 0; i < zconsMols.size(); i++)
1031 <    if (states[i] == zcsMoving){
1032 <      havingMoving_local = 1;
1033 <    break;
1034 <    }
1035 <
1036 < #ifndef IS_MPI
1037 <  havingMoving = havingMoving_local;
1038 < #else
1039 <  MPI_Allreduce(&havingMoving_local, &havingMoving, 1, MPI_INT,MPI_SUM, MPI_COMM_WORLD);
1040 < #endif
1041 <
1042 <  return (havingMoving > 0);
1043 <  
1044 < }
1045 <
1046 < /**
1047 < *
1048 < */
1049 <
1050 < template<typename T> double ZConstraint<T>::calcMovingMolsCOMVel()
1051 < {
1052 <  double MVzOfMovingMols_local;
1053 <  double MVzOfMovingMols;
1054 <  double totalMassOfMovingZMols_local;
1055 <  double totalMassOfMovingZMols;
1056 <  double COMvel[3];
1057 <      
1058 <  MVzOfMovingMols_local = 0;
1059 <  totalMassOfMovingZMols_local = 0;
1060 <
1061 <  for(int i =0; i < unconsMols.size(); i++){
1062 <    unconsMols[i]->getCOMvel(COMvel);
1063 <    MVzOfMovingMols_local += massOfUnconsMols[i] * COMvel[whichDirection];      
1064 <  }
1065 <
1066 <  for(int i = 0; i < zconsMols.size(); i++){
1067 <
1068 <    if (states[i] == zcsMoving){
1069 <      zconsMols[i]->getCOMvel(COMvel);
1070 <      MVzOfMovingMols_local += massOfZConsMols[i] * COMvel[whichDirection];  
1071 <      totalMassOfMovingZMols_local += massOfZConsMols[i];      
1072 <    }
1073 <    
1074 <  }
1075 <
1076 < #ifndef IS_MPI
1077 <  MVzOfMovingMols = MVzOfMovingMols_local;
1078 <  totalMassOfMovingZMols = totalMassOfMovingZMols_local;
1079 < #else
1080 <  MPI_Allreduce(&MVzOfMovingMols_local, &MVzOfMovingMols, 1, MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD);
1081 <  MPI_Allreduce(&totalMassOfMovingZMols_local, &totalMassOfMovingZMols, 1, MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD);  
1082 < #endif
1083 <
1084 <  double vzOfMovingMols;
1085 <  vzOfMovingMols = MVzOfMovingMols / (totalMassOfUncons + totalMassOfMovingZMols);
1086 <
1087 <  return vzOfMovingMols;
1088 < }
1089 <
1090 < /**
1091 < *
1092 < */
1093 <
1094 < template<typename T> double ZConstraint<T>::calcSysCOMVel()
1095 < {
1096 <  double COMvel[3];
1097 <  double tempMVz_local;
1098 <  double tempMVz;
1099 <  double massOfZCons_local;
1100 <  double massOfZCons;
1101 <
1102 <
1103 < tempMVz_local = 0;
1104 <
1105 <  for(int i =0 ; i < nMols; i++){
1106 <    molecules[i].getCOMvel(COMvel);
1107 <   tempMVz_local += molecules[i].getTotalMass()*COMvel[whichDirection];
1108 <  }
1109 <
1110 <  massOfZCons_local = 0;
1111 <  
1112 <  for(int i = 0; i < massOfZConsMols.size(); i++){
1113 <    massOfZCons_local += massOfZConsMols[i];
1114 <  }
1115 < #ifndef IS_MPI
1116 <  massOfZCons = massOfZCons_local;
1117 <  tempMVz = tempMVz_local;
1118 < #else
1119 <  MPI_Allreduce(&massOfZCons_local, &massOfZCons, 1, MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD);
1120 <  MPI_Allreduce(&tempMVz_local, &tempMVz, 1, MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD);
1121 < #endif
1122 <
1123 <  return tempMVz /(totalMassOfUncons + massOfZCons);
1124 < }
1125 <
1126 < /**
1127 < *
1128 < */
1129 <
1130 < template<typename T> double ZConstraint<T>::calcTotalForce(){
1131 <
1132 <  double force[3];  
1133 <  double totalForce_local;
1134 <  double totalForce;
1135 <
1136 <  totalForce_local = 0;
1137 <
1138 <  for(int i = 0; i < nAtoms; i++){
1139 <    atoms[i]->getFrc(force);
1140 <    totalForce_local += force[whichDirection];
1141 <  }
1142 <
1143 < #ifndef IS_MPI
1144 <  totalForce = totalForce_local;
1145 < #else
1146 <  MPI_Allreduce(&totalForce_local, &totalForce, 1, MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD);
1147 < #endif
1148 <
1149 <  return totalForce;
1150 <
1151 < }
1152 <
1153 < /**
1154 < *
1155 < */
1156 <
1157 < template<typename T> void ZConstraint<T>::PolicyByNumber::update(){
1158 <  //calculate the number of atoms of moving z-constrained molecules
1159 <  int nMovingZAtoms_local;
1160 <  int nMovingZAtoms;
1161 <  
1162 <  nMovingZAtoms_local = 0;
1163 <  for(int i = 0; i < (zconsIntegrator->zconsMols).size(); i++)
1164 <    if((zconsIntegrator->states)[i] == (zconsIntegrator->zcsMoving))
1165 <     nMovingZAtoms_local += (zconsIntegrator->zconsMols)[i]->getNAtoms();
1166 <  
1167 < #ifdef IS_MPI
1168 <  MPI_Allreduce(&nMovingZAtoms_local, &nMovingZAtoms, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
1169 < #else
1170 <  nMovingZAtoms = nMovingZAtoms_local;
1171 < #endif
1172 <  totNumOfMovingAtoms = nMovingZAtoms + zconsIntegrator->totNumOfUnconsAtoms;
1173 < }
1174 <
1175 < template<typename T>double ZConstraint<T>::PolicyByNumber::getZFOfFixedZMols(Molecule* mol, Atom* atom, double totalForce){
1176 <  return totalForce / mol->getNAtoms();
1177 < }
1178 <
1179 < template<typename T> double ZConstraint<T>::PolicyByNumber::getZFOfMovingMols(Atom* atom, double totalForce){
1180 <  return totalForce / totNumOfMovingAtoms;
1181 < }
1182 <
1183 < template<typename T> double ZConstraint<T>::PolicyByNumber::getHFOfFixedZMols(Molecule* mol, Atom* atom, double totalForce){
1184 <    return totalForce / mol->getNAtoms();
1185 < }
1186 <
1187 < template<typename T> double ZConstraint<T>::PolicyByNumber::getHFOfUnconsMols(Atom* atom, double totalForce){
1188 <  return totalForce / zconsIntegrator->totNumOfUnconsAtoms;
1189 < }
1190 <
1191 < /**
1192 < *
1193 < */
1194 <
1195 < template<typename T> void ZConstraint<T>::PolicyByMass::update(){
1196 <  //calculate the number of atoms of moving z-constrained molecules
1197 <  double massOfMovingZAtoms_local;
1198 <  double massOfMovingZAtoms;
1199 <  
1200 <  massOfMovingZAtoms_local = 0;
1201 <  for(int i = 0; i < (zconsIntegrator->zconsMols).size(); i++)
1202 <    if((zconsIntegrator->states)[i] == (zconsIntegrator->zcsMoving))
1203 <     massOfMovingZAtoms_local += (zconsIntegrator->zconsMols)[i]->getTotalMass();
1204 <  
1205 < #ifdef IS_MPI
1206 <  MPI_Allreduce(&massOfMovingZAtoms_local, &massOfMovingZAtoms, 1, MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD);
1207 < #else
1208 <  massOfMovingZAtoms = massOfMovingZAtoms_local;
1209 < #endif
1210 <  totMassOfMovingAtoms = massOfMovingZAtoms + zconsIntegrator->totalMassOfUncons;
1211 < }
1212 <
1213 < template<typename T> double ZConstraint<T>::PolicyByMass::getZFOfFixedZMols(Molecule* mol, Atom* atom, double totalForce){
1214 <  return totalForce * atom->getMass() / mol->getTotalMass();
1215 < }
1216 <
1217 < template<typename T> double ZConstraint<T>::PolicyByMass::getZFOfMovingMols( Atom* atom, double totalForce){
1218 <    return totalForce * atom->getMass() / totMassOfMovingAtoms;
1219 < }
1220 <
1221 < template<typename T> double ZConstraint<T>::PolicyByMass::getHFOfFixedZMols(Molecule* mol, Atom* atom, double totalForce){
1222 <  return totalForce * atom->getMass() / mol->getTotalMass();
1223 < }
1224 <
1225 < template<typename T> double ZConstraint<T>::PolicyByMass::getHFOfUnconsMols(Atom* atom, double totalForce){
1226 <    return totalForce * atom->getMass() / zconsIntegrator->totalMassOfUncons;
1227 < }
1228 <
1 > #include "Integrator.hpp"
2 > #include "simError.h"
3 > #include <math.h>
4 >
5 > const double INFINITE_TIME = 10e30;
6 > template<typename T> ZConstraint<T>::ZConstraint(SimInfo* theInfo,
7 >                                                 ForceFields* the_ff): T(theInfo, the_ff),
8 >                                                                       fzOut(NULL),
9 >                                                                       curZconsTime(0),
10 >                                                                       forcePolicy(NULL),
11 >                                                                       usingSMD(false),
12 >                                                                       hasZConsGap(false){
13 >  //get properties from SimInfo
14 >  GenericData* data;
15 >  ZConsParaData* zConsParaData;
16 >  DoubleData* sampleTime;
17 >  DoubleData* tolerance;
18 >  DoubleData* gap;
19 >  DoubleData* fixtime;
20 >  StringData* policy;
21 >  StringData* filename;
22 >  IntData* smdFlag;
23 >  double COM[3];
24 >
25 >  //by default, the direction of constraint is z
26 >  // 0 --> x
27 >  // 1 --> y
28 >  // 2 --> z
29 >  whichDirection = 2;
30 >
31 >  //estimate the force constant of harmonical potential
32 >  double Kb = 1.986E-3 ; //in kcal/K
33 >
34 >  double halfOfLargestBox = max(info->boxL[0], max(info->boxL[1], info->boxL[2])) /
35 >                            2;
36 >  zForceConst = Kb * info->target_temp / (halfOfLargestBox * halfOfLargestBox);
37 >
38 >  //creat force Subtraction policy
39 >  data = info->getProperty(ZCONSFORCEPOLICY_ID);
40 >  if (!data){
41 >    sprintf(painCave.errMsg,
42 >            "ZConstraint Warning: User does not set force Subtraction policy, "
43 >            "PolicyByMass is used\n");
44 >    painCave.isFatal = 0;
45 >    simError();      
46 >
47 >    forcePolicy = (ForceSubtractionPolicy *) new PolicyByMass(this);
48 >  }
49 >  else{
50 >    policy = dynamic_cast<StringData*>(data);
51 >
52 >    if (!policy){
53 >      sprintf(painCave.errMsg,
54 >              "ZConstraint Error: Convertion from GenericData to StringData failure, "
55 >              "PolicyByMass is used\n");
56 >      painCave.isFatal = 0;
57 >      simError();      
58 >
59 >      forcePolicy = (ForceSubtractionPolicy *) new PolicyByMass(this);
60 >    }
61 >    else{
62 >      if (policy->getData() == "BYNUMBER")
63 >        forcePolicy = (ForceSubtractionPolicy *) new PolicyByNumber(this);
64 >      else if (policy->getData() == "BYMASS")
65 >        forcePolicy = (ForceSubtractionPolicy *) new PolicyByMass(this);
66 >      else{
67 >        sprintf(painCave.errMsg,
68 >                "ZConstraint Warning: unknown force Subtraction policy, "
69 >                "PolicyByMass is used\n");
70 >        painCave.isFatal = 0;
71 >        simError();      
72 >        forcePolicy = (ForceSubtractionPolicy *) new PolicyByMass(this);
73 >      }
74 >    }
75 >  }
76 >
77 >
78 >  //retrieve sample time of z-contraint
79 >  data = info->getProperty(ZCONSTIME_ID);
80 >
81 >  if (!data){
82 >    sprintf(painCave.errMsg,
83 >            "ZConstraint error: If you use an ZConstraint\n"
84 >            " , you must set sample time.\n");
85 >    painCave.isFatal = 1;
86 >    simError();
87 >  }
88 >  else{
89 >    sampleTime = dynamic_cast<DoubleData*>(data);
90 >
91 >    if (!sampleTime){
92 >      sprintf(painCave.errMsg,
93 >              "ZConstraint error: Can not get property from SimInfo\n");
94 >      painCave.isFatal = 1;
95 >      simError();
96 >    }
97 >    else{
98 >      this->zconsTime = sampleTime->getData();
99 >    }
100 >  }
101 >
102 >  //retrieve output filename of z force
103 >  data = info->getProperty(ZCONSFILENAME_ID);
104 >  if (!data){
105 >    sprintf(painCave.errMsg,
106 >            "ZConstraint error: If you use an ZConstraint\n"
107 >            " , you must set output filename of z-force.\n");
108 >    painCave.isFatal = 1;
109 >    simError();
110 >  }
111 >  else{
112 >    filename = dynamic_cast<StringData*>(data);
113 >
114 >    if (!filename){
115 >      sprintf(painCave.errMsg,
116 >              "ZConstraint error: Can not get property from SimInfo\n");
117 >      painCave.isFatal = 1;
118 >      simError();
119 >    }
120 >    else{
121 >      this->zconsOutput = filename->getData();
122 >    }
123 >  }
124 >
125 >  //retrieve tolerance for z-constraint molecuels
126 >  data = info->getProperty(ZCONSTOL_ID);
127 >
128 >  if (!data){
129 >    sprintf(painCave.errMsg, "ZConstraint error: can not get tolerance \n");
130 >    painCave.isFatal = 1;
131 >    simError();
132 >  }
133 >  else{
134 >    tolerance = dynamic_cast<DoubleData*>(data);
135 >
136 >    if (!tolerance){
137 >      sprintf(painCave.errMsg,
138 >              "ZConstraint error: Can not get property from SimInfo\n");
139 >      painCave.isFatal = 1;
140 >      simError();
141 >    }
142 >    else{
143 >      this->zconsTol = tolerance->getData();
144 >    }
145 >  }
146 >
147 >  //quick hack here
148 >  data = info->getProperty(ZCONSGAP_ID);
149 >
150 >  if (data){
151 >    gap = dynamic_cast<DoubleData*>(data);
152 >
153 >    if (!gap){
154 >      sprintf(painCave.errMsg,
155 >              "ZConstraint error: Can not get property from SimInfo\n");
156 >      painCave.isFatal = 1;
157 >      simError();
158 >    }
159 >    else{
160 >      this->hasZConsGap = true;
161 >      this->zconsGap = gap->getData();
162 >    }
163 >  }
164 >
165 >
166 >
167 >  data = info->getProperty(ZCONSFIXTIME_ID);
168 >
169 >  if (data){
170 >    fixtime = dynamic_cast<DoubleData*>(data);
171 >    if (!fixtime){
172 >      sprintf(painCave.errMsg,
173 >              "ZConstraint error: Can not get zconsFixTime from SimInfo\n");
174 >      painCave.isFatal = 1;
175 >      simError();
176 >    }
177 >    else{
178 >      this->zconsFixTime = fixtime->getData();
179 >    }
180 >  }
181 >  else if(hasZConsGap){
182 >      sprintf(painCave.errMsg,
183 >              "ZConstraint error: must set fixtime if already set zconsGap\n");
184 >      painCave.isFatal = 1;
185 >      simError();
186 >  }
187 >
188 >
189 >
190 >  data = info->getProperty(ZCONSUSINGSMD_ID);
191 >
192 >  if (data){
193 >    smdFlag = dynamic_cast<IntData*>(data);
194 >
195 >    if (!smdFlag){
196 >      sprintf(painCave.errMsg,
197 >              "ZConstraint error: Can not get property from SimInfo\n");
198 >      painCave.isFatal = 1;
199 >      simError();
200 >    }
201 >    else{
202 >      this->usingSMD= smdFlag->getData() ? true : false;
203 >    }
204 >
205 >  }
206 >
207 >
208 >
209 >  //retrieve index of z-constraint molecules
210 >  data = info->getProperty(ZCONSPARADATA_ID);
211 >  if (!data){
212 >    sprintf(painCave.errMsg,
213 >            "ZConstraint error: If you use an ZConstraint\n"
214 >            " , you must set index of z-constraint molecules.\n");
215 >    painCave.isFatal = 1;
216 >    simError();
217 >  }
218 >  else{
219 >    zConsParaData = dynamic_cast<ZConsParaData*>(data);
220 >
221 >    if (!zConsParaData){
222 >      sprintf(painCave.errMsg,
223 >              "ZConstraint error: Can not get parameters of zconstraint method from SimInfo\n");
224 >      painCave.isFatal = 1;
225 >      simError();
226 >    }
227 >    else{
228 >      parameters = zConsParaData->getData();
229 >
230 >      //check the range of zconsIndex
231 >      //and the minimum value of index is the first one (we already sorted the data)
232 >      //the maximum value of index is the last one
233 >
234 >      int maxIndex;
235 >      int minIndex;
236 >      int totalNumMol;
237 >
238 >      minIndex = (*parameters)[0].zconsIndex;
239 >      if (minIndex < 0){
240 >        sprintf(painCave.errMsg, "ZConstraint error: index is out of range\n");
241 >        painCave.isFatal = 1;
242 >        simError();
243 >      }
244 >
245 >      maxIndex = (*parameters)[parameters->size() - 1].zconsIndex;
246 >
247 > #ifndef IS_MPI
248 >      totalNumMol = nMols;
249 > #else
250 >      totalNumMol = mpiSim->getTotNmol();  
251 > #endif      
252 >
253 >      if (maxIndex > totalNumMol - 1){
254 >        sprintf(painCave.errMsg, "ZConstraint error: index is out of range\n");
255 >        painCave.isFatal = 1;
256 >        simError();
257 >      }
258 >
259 >      //if user does not specify the zpos for the zconstraint molecule
260 >      //its initial z coordinate  will be used as default
261 >      for (int i = 0; i < (int) (parameters->size()); i++){
262 >        if (!(*parameters)[i].havingZPos){
263 > #ifndef IS_MPI
264 >          for (int j = 0; j < nMols; j++){
265 >            if (molecules[j].getGlobalIndex() == (*parameters)[i].zconsIndex){
266 >              molecules[j].getCOM(COM);
267 >              break;
268 >            }
269 >          }
270 > #else
271 >          //query which processor current zconstraint molecule belongs to
272 >          int* MolToProcMap;
273 >          int whichNode;
274 >
275 >          MolToProcMap = mpiSim->getMolToProcMap();
276 >          whichNode = MolToProcMap[(*parameters)[i].zconsIndex];
277 >
278 >          //broadcast the zpos of current z-contraint molecule
279 >          //the node which contain this
280 >
281 >          if (worldRank == whichNode){
282 >            for (int j = 0; j < nMols; j++)
283 >              if (molecules[j].getGlobalIndex() == (*parameters)[i].zconsIndex){
284 >                molecules[j].getCOM(COM);
285 >                break;
286 >              }
287 >          }
288 >
289 >          MPI_Bcast(&COM[whichDirection], 1, MPI_DOUBLE, whichNode,
290 >                    MPI_COMM_WORLD);        
291 > #endif
292 >
293 >          (*parameters)[i].zPos = COM[whichDirection];
294 >
295 >          sprintf(painCave.errMsg,
296 >                  "ZConstraint warning: Does not specify zpos for z-constraint molecule "
297 >                  "initial z coornidate will be used \n");
298 >          painCave.isFatal = 0;
299 >          simError();
300 >        }
301 >      }
302 >    }//end if (!zConsParaData)
303 >
304 >  }//end  if (!data)
305 >
306 >  //  
307 > #ifdef IS_MPI
308 >  update();
309 > #else  
310 >  int searchResult;
311 >
312 >  for (int i = 0; i < nMols; i++){
313 >    searchResult = isZConstraintMol(&molecules[i]);
314 >
315 >    if (searchResult > -1){
316 >      zconsMols.push_back(&molecules[i]);      
317 >      massOfZConsMols.push_back(molecules[i].getTotalMass());  
318 >
319 >      zPos.push_back((*parameters)[searchResult].zPos);
320 >      kz.push_back((*parameters)[searchResult]. kRatio * zForceConst);
321 >      
322 >      if(usingSMD)
323 >        cantVel.push_back((*parameters)[searchResult].cantVel);
324 >
325 >    }
326 >    else{
327 >      unconsMols.push_back(&molecules[i]);
328 >      massOfUnconsMols.push_back(molecules[i].getTotalMass());
329 >    }
330 >  }
331 >
332 >  fz.resize(zconsMols.size());
333 >  curZPos.resize(zconsMols.size());
334 >  indexOfZConsMols.resize(zconsMols.size());  
335 >
336 >  //determine the states of z-constraint molecules
337 >  for (size_t i = 0; i < zconsMols.size(); i++){
338 >    indexOfZConsMols[i] = zconsMols[i]->getGlobalIndex();
339 >
340 >    zconsMols[i]->getCOM(COM);
341 >    
342 >    if (fabs(zPos[i] - COM[whichDirection]) < zconsTol){
343 >      states.push_back(zcsFixed);
344 >
345 >      if (hasZConsGap)
346 >        endFixTime.push_back(info->getTime() + zconsFixTime);
347 >    }
348 >    else{
349 >      states.push_back(zcsMoving);
350 >
351 >      if (hasZConsGap)
352 >        endFixTime.push_back(INFINITE_TIME);
353 >    }
354 >
355 >    if(usingSMD)
356 >      cantPos.push_back(COM[whichDirection]);    
357 >  }
358 >
359 >  if(usingSMD)
360 >    prevCantPos = cantPos;
361 > #endif
362 >
363 >  
364 >  //get total masss of unconstraint molecules
365 >  double totalMassOfUncons_local;
366 >  totalMassOfUncons_local = 0;
367 >
368 >  for (size_t i = 0; i < unconsMols.size(); i++)
369 >    totalMassOfUncons_local += unconsMols[i]->getTotalMass();
370 >
371 > #ifndef IS_MPI
372 >  totalMassOfUncons = totalMassOfUncons_local;
373 > #else
374 >  MPI_Allreduce(&totalMassOfUncons_local, &totalMassOfUncons, 1, MPI_DOUBLE,
375 >                MPI_SUM, MPI_COMM_WORLD);  
376 > #endif
377 >
378 >  //get total number of unconstrained atoms
379 >  int nUnconsAtoms_local;
380 >  nUnconsAtoms_local = 0;
381 >  for (int i = 0; i < (int) (unconsMols.size()); i++)
382 >    nUnconsAtoms_local += unconsMols[i]->getNAtoms();
383 >
384 > #ifndef IS_MPI
385 >  totNumOfUnconsAtoms = nUnconsAtoms_local;
386 > #else
387 >  MPI_Allreduce(&nUnconsAtoms_local, &totNumOfUnconsAtoms, 1, MPI_INT, MPI_SUM,
388 >                MPI_COMM_WORLD);  
389 > #endif  
390 >
391 >  forcePolicy->update();
392 > }
393 >
394 > template<typename T> ZConstraint<T>::~ZConstraint(){
395 >
396 >  if (fzOut){
397 >    delete fzOut;
398 >  }
399 >
400 >  if (forcePolicy){
401 >    delete forcePolicy;
402 >  }
403 > }
404 >
405 >
406 > /**
407 > *
408 > */
409 >
410 > #ifdef IS_MPI
411 > template<typename T> void ZConstraint<T>::update(){
412 >  double COM[3];
413 >  int index;
414 >
415 >  zconsMols.clear();
416 >  massOfZConsMols.clear();
417 >  zPos.clear();
418 >  kz.clear();
419 >  cantPos.clear();
420 >  cantVel.clear();
421 >
422 >  unconsMols.clear();
423 >  massOfUnconsMols.clear();
424 >
425 >
426 >  //creat zconsMol and unconsMol lists
427 >  for (int i = 0; i < nMols; i++){
428 >    index = isZConstraintMol(&molecules[i]);
429 >
430 >    if (index > -1){
431 >      zconsMols.push_back(&molecules[i]);      
432 >      zPos.push_back((*parameters)[index].zPos);
433 >      kz.push_back((*parameters)[index].kRatio * zForceConst);
434 >      massOfZConsMols.push_back(molecules[i].getTotalMass());
435 >      
436 >      if(usingSMD)
437 >        cantVel.push_back((*parameters)[index].cantVel);
438 >
439 >    }
440 >    else{
441 >      unconsMols.push_back(&molecules[i]);
442 >      massOfUnconsMols.push_back(molecules[i].getTotalMass());
443 >    }
444 >  }
445 >
446 >  fz.resize(zconsMols.size());
447 >  curZPos.resize(zconsMols.size());
448 >  indexOfZConsMols.resize(zconsMols.size());  
449 >
450 >  for (size_t i = 0; i < zconsMols.size(); i++){
451 >    indexOfZConsMols[i] = zconsMols[i]->getGlobalIndex();
452 >  }
453 >    
454 >  //determine the states of z-constraint molecules
455 >  for (int i = 0; i < (int) (zconsMols.size()); i++){
456 >
457 >    zconsMols[i]->getCOM(COM);
458 >    
459 >    if (fabs(zPos[i] - COM[whichDirection]) < zconsTol){
460 >      states.push_back(zcsFixed);
461 >
462 >      if (hasZConsGap)
463 >        endFixTime.push_back(info->getTime() + zconsFixTime);
464 >    }
465 >    else{
466 >      states.push_back(zcsMoving);
467 >
468 >      if (hasZConsGap)
469 >        endFixTime.push_back(INFINITE_TIME);
470 >    }
471 >
472 >    if(usingSMD)
473 >      cantPos.push_back(COM[whichDirection]);        
474 >  }
475 >
476 >  if(usingSMD)
477 >  prevCantPos = cantPos;
478 >
479 >  //
480 >  forcePolicy->update();
481 > }
482 >
483 > #endif
484 >
485 > /**
486 > *  Function Name: isZConstraintMol
487 > *  Parameter
488 > *    Molecule* mol
489 > *  Return value:
490 > *    -1, if the molecule is not z-constraint molecule,
491 > *    other non-negative values, its index in indexOfAllZConsMols vector
492 > */
493 >
494 > template<typename T> int ZConstraint<T>::isZConstraintMol(Molecule* mol){
495 >  int index;
496 >  int low;
497 >  int high;
498 >  int mid;
499 >
500 >  index = mol->getGlobalIndex();
501 >
502 >  low = 0;
503 >  high = parameters->size() - 1;
504 >
505 >  //Binary Search (we have sorted the array)  
506 >  while (low <= high){
507 >    mid = (low + high) / 2;
508 >    if ((*parameters)[mid].zconsIndex == index)
509 >      return mid;
510 >    else if ((*parameters)[mid].zconsIndex > index)
511 >      high = mid - 1;
512 >    else
513 >      low = mid + 1;
514 >  }
515 >
516 >  return -1;
517 > }
518 >
519 > template<typename T> void ZConstraint<T>::integrate(){
520 >  // creat zconsWriter  
521 >  fzOut = new ZConsWriter(zconsOutput.c_str(), parameters);  
522 >
523 >  if (!fzOut){
524 >    sprintf(painCave.errMsg, "Memory allocation failure in class Zconstraint\n");
525 >    painCave.isFatal = 1;
526 >    simError();
527 >  }
528 >
529 >  //zero out the velocities of center of mass of unconstrained molecules
530 >  //and the velocities of center of mass of every single z-constrained molecueles
531 >  zeroOutVel();
532 >
533 >  curZconsTime = zconsTime + info->getTime();
534 >
535 >  T::integrate();
536 > }
537 >
538 >
539 > /**
540 > *
541 > *
542 > *
543 > *
544 > */
545 > template<typename T> void ZConstraint<T>::calcForce(int calcPot, int calcStress){
546 >  double zsys;
547 >  double COM[3];
548 >  double force[3];
549 >  double zSysCOMVel;
550 >
551 >  T::calcForce(calcPot, calcStress);
552 >
553 >
554 >  if (hasZConsGap){
555 >    updateZPos();
556 >  }
557 >
558 >  if (checkZConsState()){
559 >    zeroOutVel();    
560 >    forcePolicy->update();
561 >  }  
562 >
563 >  zsys = calcZSys();
564 >  zSysCOMVel = calcSysCOMVel();
565 > #ifdef IS_MPI
566 >  if (worldRank == 0){
567 > #endif
568 >    //cout << "---------------------------------------------------------------------" <<endl;
569 >    //cout << "current time: " << info->getTime() << endl;
570 >    //cout << "center of mass at z: " << zsys << endl;    
571 >    //cout << "before calcForce, the COMVel of system is " << zSysCOMVel <<endl;
572 >
573 > #ifdef IS_MPI
574 >  }
575 > #endif
576 >
577 >  //do zconstraint force;
578 >  if (haveFixedZMols()){
579 >    this->doZconstraintForce();
580 >  }
581 >
582 >  //use external force to move the molecules to the specified positions
583 >  if (haveMovingZMols()){
584 >    if (usingSMD)
585 >      this->doHarmonic(cantPos);
586 >    else
587 >      this->doHarmonic(zPos);      
588 >  }
589 >
590 >  //write out forces and current positions of z-constraint molecules
591 >  if (info->getTime() >= curZconsTime){
592 >    for (int i = 0; i < (int) (zconsMols.size()); i++){
593 >      zconsMols[i]->getCOM(COM);
594 >      curZPos[i] = COM[whichDirection];
595 >
596 >      //if the z-constraint molecule is still moving, just record its force
597 >      if (states[i] == zcsMoving){
598 >        fz[i] = 0;
599 >        Atom** movingZAtoms;
600 >        movingZAtoms = zconsMols[i]->getMyAtoms();
601 >        for (int j = 0; j < zconsMols[i]->getNAtoms(); j++){
602 >          movingZAtoms[j]->getFrc(force);
603 >          fz[i] += force[whichDirection];
604 >        }
605 >      }
606 >    }
607 >    fzOut->writeFZ(info->getTime(), zconsMols.size(), &indexOfZConsMols[0], &fz[0],
608 >                   &curZPos[0], &zPos[0]);
609 >    curZconsTime += zconsTime;
610 >  }
611 >
612 >  zSysCOMVel = calcSysCOMVel();  
613 > #ifdef IS_MPI
614 >  if (worldRank == 0){
615 > #endif
616 >    //cout << "after calcForce, the COMVel of system is " << zSysCOMVel <<endl;
617 > #ifdef IS_MPI
618 >  }
619 > #endif
620 > }
621 >
622 >
623 > /**
624 > *
625 > */
626 >
627 > template<typename T> double ZConstraint<T>::calcZSys(){
628 >  //calculate reference z coordinate for z-constraint molecules
629 >  double totalMass_local;
630 >  double totalMass;
631 >  double totalMZ_local;
632 >  double totalMZ;
633 >  double massOfCurMol;
634 >  double COM[3];
635 >
636 >  totalMass_local = 0;
637 >  totalMZ_local = 0;
638 >
639 >  for (int i = 0; i < nMols; i++){
640 >    massOfCurMol = molecules[i].getTotalMass();
641 >    molecules[i].getCOM(COM);
642 >
643 >    totalMass_local += massOfCurMol;
644 >    totalMZ_local += massOfCurMol * COM[whichDirection];
645 >  }
646 >
647 >
648 > #ifdef IS_MPI  
649 >  MPI_Allreduce(&totalMass_local, &totalMass, 1, MPI_DOUBLE, MPI_SUM,
650 >                MPI_COMM_WORLD);
651 >  MPI_Allreduce(&totalMZ_local, &totalMZ, 1, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);  
652 > #else
653 >  totalMass = totalMass_local;
654 >  totalMZ = totalMZ_local;
655 > #endif  
656 >
657 >  double zsys;
658 >  zsys = totalMZ / totalMass;
659 >
660 >  return zsys;
661 > }
662 >
663 > /**
664 > *
665 > */
666 > template<typename T> void ZConstraint<T>::thermalize(void){
667 >  T::thermalize();
668 >  zeroOutVel();
669 > }
670 >
671 > /**
672 > *
673 > */
674 >
675 > template<typename T> void ZConstraint<T>::zeroOutVel(){
676 >  Atom** fixedZAtoms;  
677 >  double COMvel[3];
678 >  double vel[3];
679 >  double zSysCOMVel;
680 >
681 >  //zero out the velocities of center of mass of fixed z-constrained molecules
682 >
683 >  for (int i = 0; i < (int) (zconsMols.size()); i++){
684 >    if (states[i] == zcsFixed){
685 >      zconsMols[i]->getCOMvel(COMvel);      
686 >      //cout << "before resetting " << indexOfZConsMols[i] <<"'s vz is " << COMvel[whichDirection] << endl;
687 >
688 >      fixedZAtoms = zconsMols[i]->getMyAtoms();
689 >
690 >      for (int j = 0; j < zconsMols[i]->getNAtoms(); j++){
691 >        fixedZAtoms[j]->getVel(vel);
692 >        vel[whichDirection] -= COMvel[whichDirection];
693 >        fixedZAtoms[j]->setVel(vel);
694 >      }
695 >
696 >      zconsMols[i]->getCOMvel(COMvel);
697 >      //cout << "after resetting " << indexOfZConsMols[i] <<"'s vz is " << COMvel[whichDirection] << endl;
698 >    }
699 >  }
700 >
701 >  //cout << "before resetting the COMVel of moving molecules is " << calcMovingMolsCOMVel() <<endl;
702 >
703 >  zSysCOMVel = calcSysCOMVel();
704 > #ifdef IS_MPI
705 >  if (worldRank == 0){
706 > #endif
707 >    //cout << "before resetting the COMVel of sytem is " << zSysCOMVel << endl;  
708 > #ifdef IS_MPI
709 >  }
710 > #endif
711 >
712 >  // calculate the vz of center of mass of unconstrained molecules and moving z-constrained molecules
713 >  double MVzOfMovingMols_local;
714 >  double MVzOfMovingMols;
715 >  double totalMassOfMovingZMols_local;
716 >  double totalMassOfMovingZMols;
717 >
718 >  MVzOfMovingMols_local = 0;
719 >  totalMassOfMovingZMols_local = 0;
720 >
721 >  for (int i = 0; i < (int) (unconsMols.size()); i++){
722 >    unconsMols[i]->getCOMvel(COMvel);
723 >    MVzOfMovingMols_local += massOfUnconsMols[i] * COMvel[whichDirection];
724 >  }
725 >
726 >  for (int i = 0; i < (int) (zconsMols.size()); i++){
727 >    if (states[i] == zcsMoving){
728 >      zconsMols[i]->getCOMvel(COMvel);
729 >      MVzOfMovingMols_local += massOfZConsMols[i] * COMvel[whichDirection];  
730 >      totalMassOfMovingZMols_local += massOfZConsMols[i];
731 >    }
732 >  }
733 >
734 > #ifndef IS_MPI
735 >  MVzOfMovingMols = MVzOfMovingMols_local;
736 >  totalMassOfMovingZMols = totalMassOfMovingZMols_local;
737 > #else
738 >  MPI_Allreduce(&MVzOfMovingMols_local, &MVzOfMovingMols, 1, MPI_DOUBLE,
739 >                MPI_SUM, MPI_COMM_WORLD);
740 >  MPI_Allreduce(&totalMassOfMovingZMols_local, &totalMassOfMovingZMols, 1,
741 >                MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);  
742 > #endif
743 >
744 >  double vzOfMovingMols;
745 >  vzOfMovingMols = MVzOfMovingMols /
746 >                   (totalMassOfUncons + totalMassOfMovingZMols);
747 >
748 >  //modify the velocites of unconstrained molecules  
749 >  Atom** unconsAtoms;
750 >  for (int i = 0; i < (int) (unconsMols.size()); i++){
751 >    unconsAtoms = unconsMols[i]->getMyAtoms();
752 >    for (int j = 0; j < unconsMols[i]->getNAtoms(); j++){
753 >      unconsAtoms[j]->getVel(vel);
754 >      vel[whichDirection] -= vzOfMovingMols;
755 >      unconsAtoms[j]->setVel(vel);
756 >    }
757 >  }  
758 >
759 >  //modify the velocities of moving z-constrained molecuels
760 >  Atom** movingZAtoms;
761 >  for (int i = 0; i < (int) (zconsMols.size()); i++){
762 >    if (states[i] == zcsMoving){
763 >      movingZAtoms = zconsMols[i]->getMyAtoms();
764 >      for (int j = 0; j < zconsMols[i]->getNAtoms(); j++){
765 >        movingZAtoms[j]->getVel(vel);
766 >        vel[whichDirection] -= vzOfMovingMols;
767 >        movingZAtoms[j]->setVel(vel);
768 >      }
769 >    }
770 >  }
771 >
772 >
773 >  zSysCOMVel = calcSysCOMVel();
774 > #ifdef IS_MPI
775 >  if (worldRank == 0){
776 > #endif
777 >    //cout << "after resetting the COMVel of moving molecules is " << zSysCOMVel << endl;  
778 > #ifdef IS_MPI
779 >  }
780 > #endif
781 > }
782 >
783 > /**
784 > *
785 > */
786 >
787 > template<typename T> void ZConstraint<T>::doZconstraintForce(){
788 >  Atom** zconsAtoms;
789 >  double totalFZ;
790 >  double totalFZ_local;
791 >  double COM[3];
792 >  double force[3];
793 >
794 >  //constrain the molecules which do not reach the specified positions  
795 >
796 >  //Zero Out the force of z-contrained molecules    
797 >  totalFZ_local = 0;
798 >
799 >  //calculate the total z-contrained force of fixed z-contrained molecules
800 >
801 >  //cout << "before zero out z-constraint force on fixed z-constraint molecuels "
802 >  //       << "total force is " << calcTotalForce() << endl;
803 >
804 >  for (int i = 0; i < (int) (zconsMols.size()); i++){
805 >    if (states[i] == zcsFixed){
806 >      zconsMols[i]->getCOM(COM);
807 >      zconsAtoms = zconsMols[i]->getMyAtoms();  
808 >
809 >      fz[i] = 0;      
810 >      for (int j = 0; j < zconsMols[i]->getNAtoms(); j++){
811 >        zconsAtoms[j]->getFrc(force);
812 >        fz[i] += force[whichDirection];
813 >      }
814 >      totalFZ_local += fz[i];
815 >
816 >      //cout << "Fixed Molecule\tindex: " << indexOfZConsMols[i]
817 >      //      <<"\tcurrent zpos: " << COM[whichDirection]
818 >      //      << "\tcurrent fz: " <<fz[i] << endl;
819 >    }
820 >  }
821 >
822 >  //calculate total z-constraint force
823 > #ifdef IS_MPI
824 >  MPI_Allreduce(&totalFZ_local, &totalFZ, 1, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);
825 > #else
826 >  totalFZ = totalFZ_local;
827 > #endif
828 >
829 >
830 >  // apply negative to fixed z-constrained molecues;
831 >  force[0] = 0;
832 >  force[1] = 0;
833 >  force[2] = 0;
834 >
835 >  for (int i = 0; i < (int) (zconsMols.size()); i++){
836 >    if (states[i] == zcsFixed){
837 >      int nAtomOfCurZConsMol = zconsMols[i]->getNAtoms();
838 >      zconsAtoms = zconsMols[i]->getMyAtoms();  
839 >
840 >      for (int j = 0; j < nAtomOfCurZConsMol; j++){
841 >        //force[whichDirection] = -fz[i]/ nAtomOfCurZConsMol;
842 >        force[whichDirection] = -forcePolicy->getZFOfFixedZMols(zconsMols[i],
843 >                                                                zconsAtoms[j],
844 >                                                                fz[i]);
845 >        zconsAtoms[j]->addFrc(force);
846 >      }
847 >    }
848 >  }
849 >
850 >  //cout << "after zero out z-constraint force on fixed z-constraint molecuels "
851 >  //      << "total force is " << calcTotalForce() << endl;
852 >
853 >
854 >  force[0] = 0;
855 >  force[1] = 0;
856 >  force[2] = 0;
857 >
858 >  //modify the forces of unconstrained molecules
859 >  for (int i = 0; i < (int) (unconsMols.size()); i++){
860 >    Atom** unconsAtoms = unconsMols[i]->getMyAtoms();
861 >
862 >    for (int j = 0; j < unconsMols[i]->getNAtoms(); j++){
863 >      //force[whichDirection] = totalFZ / (totNumOfUnconsAtoms + nMovingZAtoms);
864 >      force[whichDirection] = forcePolicy->getZFOfMovingMols(unconsAtoms[j],
865 >                                                             totalFZ);
866 >      unconsAtoms[j]->addFrc(force);
867 >    }
868 >  }      
869 >
870 >  //modify the forces of moving z-constrained molecules
871 >  for (int i = 0; i < (int) (zconsMols.size()); i++){
872 >    if (states[i] == zcsMoving){
873 >      Atom** movingZAtoms = zconsMols[i]->getMyAtoms();    
874 >
875 >      for (int j = 0; j < zconsMols[i]->getNAtoms(); j++){
876 >        //force[whichDirection] = totalFZ / (totNumOfUnconsAtoms + nMovingZAtoms);
877 >        force[whichDirection] = forcePolicy->getZFOfMovingMols(movingZAtoms[j],
878 >                                                               totalFZ);
879 >        movingZAtoms[j]->addFrc(force);
880 >      }
881 >    }
882 >  }
883 >  //  cout << "after substracting z-constraint force from moving molecuels "
884 >  //        << "total force is " << calcTotalForce()  << endl;
885 > }
886 >
887 > /**
888 >  *
889 >  *
890 >  */
891 >
892 > template<typename T> void ZConstraint<T>::doHarmonic(vector<double>& resPos){
893 >  double force[3];
894 >  double harmonicU;
895 >  double harmonicF;
896 >  double COM[3];
897 >  double diff;
898 >  double totalFZ_local;
899 >  double totalFZ;
900 >
901 >  force[0] = 0;
902 >  force[1] = 0;
903 >  force[2] = 0;
904 >
905 >  totalFZ_local = 0;
906 >
907 >  for (int i = 0; i < (int) (zconsMols.size()); i++){
908 >    if (states[i] == zcsMoving){
909 >      zconsMols[i]->getCOM(COM);
910 >      //       cout << "Moving Molecule\tindex: " << indexOfZConsMols[i]
911 >      //     << "\tcurrent zpos: " << COM[whichDirection] << endl;
912 >
913 >      diff = COM[whichDirection] - resPos[i];
914 >
915 >      harmonicU = 0.5 * kz[i] * diff * diff;  
916 >      info->lrPot += harmonicU;
917 >
918 >      harmonicF = -kz[i] * diff;
919 >      totalFZ_local += harmonicF;
920 >
921 >      //adjust force
922 >
923 >      Atom** movingZAtoms = zconsMols[i]->getMyAtoms();    
924 >
925 >      for (int j = 0; j < zconsMols[i]->getNAtoms(); j++){
926 >        //force[whichDirection] = harmonicF / zconsMols[i]->getNAtoms();
927 >        force[whichDirection] = forcePolicy->getHFOfFixedZMols(zconsMols[i],
928 >                                                               movingZAtoms[j],
929 >                                                               harmonicF);
930 >        movingZAtoms[j]->addFrc(force);
931 >      }
932 >    }
933 >  }
934 >
935 > #ifndef IS_MPI
936 >  totalFZ = totalFZ_local;
937 > #else
938 >  MPI_Allreduce(&totalFZ_local, &totalFZ, 1, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);  
939 > #endif
940 >
941 >  //cout << "before substracting harmonic force from moving molecuels "
942 >  //      << "total force is " << calcTotalForce()  << endl;
943 >
944 >  force[0] = 0;
945 >  force[1] = 0;
946 >  force[2] = 0;
947 >
948 >  //modify the forces of unconstrained molecules
949 >  for (int i = 0; i < (int) (unconsMols.size()); i++){
950 >    Atom** unconsAtoms = unconsMols[i]->getMyAtoms();
951 >
952 >    for (int j = 0; j < unconsMols[i]->getNAtoms(); j++){
953 >      //force[whichDirection] = - totalFZ /totNumOfUnconsAtoms;
954 >      force[whichDirection] = -forcePolicy->getHFOfUnconsMols(unconsAtoms[j],
955 >                                                              totalFZ);
956 >      unconsAtoms[j]->addFrc(force);
957 >    }
958 >  }  
959 >
960 >  //cout << "after substracting harmonic force from moving molecuels "
961 >  //      << "total force is " << calcTotalForce()  << endl;
962 > }
963 >
964 > /**
965 > *
966 > */
967 >
968 > template<typename T> bool ZConstraint<T>::checkZConsState(){
969 >  double COM[3];
970 >  double diff;
971 >
972 >  int changed_local;
973 >  int changed;
974 >
975 >  changed_local = 0;
976 >
977 >  for (int i = 0; i < (int) (zconsMols.size()); i++){
978 >    zconsMols[i]->getCOM(COM);
979 >    diff = fabs(COM[whichDirection] - zPos[i]);  
980 >    if (diff <= zconsTol && states[i] == zcsMoving){
981 >      states[i] = zcsFixed;
982 >      changed_local = 1;
983 >
984 >      if(usingSMD)
985 >        prevCantPos = cantPos;
986 >
987 >      if (hasZConsGap)
988 >        endFixTime[i] = info->getTime() + zconsFixTime;
989 >    }
990 >    else if (diff > zconsTol && states[i] == zcsFixed){
991 >      states[i] = zcsMoving;
992 >      changed_local = 1;  
993 >
994 >      if(usingSMD)
995 >         cantPos = prevCantPos;
996 >      
997 >      if (hasZConsGap)
998 >        endFixTime[i] = INFINITE_TIME;
999 >    }
1000 >  }
1001 >
1002 > #ifndef IS_MPI
1003 >  changed = changed_local;
1004 > #else
1005 >  MPI_Allreduce(&changed_local, &changed, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
1006 > #endif
1007 >
1008 >  return (changed > 0);
1009 > }
1010 >
1011 > template<typename T> bool ZConstraint<T>::haveFixedZMols(){
1012 >  int havingFixed_local;
1013 >  int havingFixed;
1014 >
1015 >  havingFixed_local = 0;
1016 >
1017 >  for (int i = 0; i < (int) (zconsMols.size()); i++)
1018 >    if (states[i] == zcsFixed){
1019 >      havingFixed_local = 1;
1020 >      break;
1021 >    }
1022 >
1023 > #ifndef IS_MPI
1024 >  havingFixed = havingFixed_local;
1025 > #else
1026 >  MPI_Allreduce(&havingFixed_local, &havingFixed, 1, MPI_INT, MPI_SUM,
1027 >                MPI_COMM_WORLD);
1028 > #endif
1029 >
1030 >  return (havingFixed > 0);
1031 > }
1032 >
1033 >
1034 > /**
1035 > *
1036 > */
1037 > template<typename T> bool ZConstraint<T>::haveMovingZMols(){
1038 >  int havingMoving_local;
1039 >  int havingMoving;
1040 >
1041 >  havingMoving_local = 0;
1042 >
1043 >  for (int i = 0; i < (int) (zconsMols.size()); i++)
1044 >    if (states[i] == zcsMoving){
1045 >      havingMoving_local = 1;
1046 >      break;
1047 >    }
1048 >
1049 > #ifndef IS_MPI
1050 >  havingMoving = havingMoving_local;
1051 > #else
1052 >  MPI_Allreduce(&havingMoving_local, &havingMoving, 1, MPI_INT, MPI_SUM,
1053 >                MPI_COMM_WORLD);
1054 > #endif
1055 >
1056 >  return (havingMoving > 0);
1057 > }
1058 >
1059 > /**
1060 > *
1061 > */
1062 >
1063 > template<typename T> double ZConstraint<T>::calcMovingMolsCOMVel(){
1064 >  double MVzOfMovingMols_local;
1065 >  double MVzOfMovingMols;
1066 >  double totalMassOfMovingZMols_local;
1067 >  double totalMassOfMovingZMols;
1068 >  double COMvel[3];
1069 >
1070 >  MVzOfMovingMols_local = 0;
1071 >  totalMassOfMovingZMols_local = 0;
1072 >
1073 >  for (int i = 0; i < unconsMols.size(); i++){
1074 >    unconsMols[i]->getCOMvel(COMvel);
1075 >    MVzOfMovingMols_local += massOfUnconsMols[i] * COMvel[whichDirection];
1076 >  }
1077 >
1078 >  for (int i = 0; i < zconsMols.size(); i++){
1079 >    if (states[i] == zcsMoving){
1080 >      zconsMols[i]->getCOMvel(COMvel);
1081 >      MVzOfMovingMols_local += massOfZConsMols[i] * COMvel[whichDirection];  
1082 >      totalMassOfMovingZMols_local += massOfZConsMols[i];
1083 >    }
1084 >  }
1085 >
1086 > #ifndef IS_MPI
1087 >  MVzOfMovingMols = MVzOfMovingMols_local;
1088 >  totalMassOfMovingZMols = totalMassOfMovingZMols_local;
1089 > #else
1090 >  MPI_Allreduce(&MVzOfMovingMols_local, &MVzOfMovingMols, 1, MPI_DOUBLE,
1091 >                MPI_SUM, MPI_COMM_WORLD);
1092 >  MPI_Allreduce(&totalMassOfMovingZMols_local, &totalMassOfMovingZMols, 1,
1093 >                MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);  
1094 > #endif
1095 >
1096 >  double vzOfMovingMols;
1097 >  vzOfMovingMols = MVzOfMovingMols /
1098 >                   (totalMassOfUncons + totalMassOfMovingZMols);
1099 >
1100 >  return vzOfMovingMols;
1101 > }
1102 >
1103 > /**
1104 > *
1105 > */
1106 >
1107 > template<typename T> double ZConstraint<T>::calcSysCOMVel(){
1108 >  double COMvel[3];
1109 >  double tempMVz_local;
1110 >  double tempMVz;
1111 >  double massOfZCons_local;
1112 >  double massOfZCons;
1113 >
1114 >
1115 >  tempMVz_local = 0;
1116 >
1117 >  for (int i = 0 ; i < nMols; i++){
1118 >    molecules[i].getCOMvel(COMvel);
1119 >    tempMVz_local += molecules[i].getTotalMass() * COMvel[whichDirection];
1120 >  }
1121 >
1122 >  massOfZCons_local = 0;
1123 >
1124 >  for (int i = 0; i < (int) (massOfZConsMols.size()); i++){
1125 >    massOfZCons_local += massOfZConsMols[i];
1126 >  }
1127 > #ifndef IS_MPI
1128 >  massOfZCons = massOfZCons_local;
1129 >  tempMVz = tempMVz_local;
1130 > #else
1131 >  MPI_Allreduce(&massOfZCons_local, &massOfZCons, 1, MPI_DOUBLE, MPI_SUM,
1132 >                MPI_COMM_WORLD);
1133 >  MPI_Allreduce(&tempMVz_local, &tempMVz, 1, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);
1134 > #endif
1135 >
1136 >  return tempMVz / (totalMassOfUncons + massOfZCons);
1137 > }
1138 >
1139 > /**
1140 > *
1141 > */
1142 >
1143 > template<typename T> double ZConstraint<T>::calcTotalForce(){
1144 >  double force[3];  
1145 >  double totalForce_local;
1146 >  double totalForce;
1147 >
1148 >  totalForce_local = 0;
1149 >
1150 >  for (int i = 0; i < nAtoms; i++){
1151 >    atoms[i]->getFrc(force);
1152 >    totalForce_local += force[whichDirection];
1153 >  }
1154 >
1155 > #ifndef IS_MPI
1156 >  totalForce = totalForce_local;
1157 > #else
1158 >  MPI_Allreduce(&totalForce_local, &totalForce, 1, MPI_DOUBLE, MPI_SUM,
1159 >                MPI_COMM_WORLD);
1160 > #endif
1161 >
1162 >  return totalForce;
1163 > }
1164 >
1165 > /**
1166 > *
1167 > */
1168 >
1169 > template<typename T> void ZConstraint<T>::PolicyByNumber::update(){
1170 >  //calculate the number of atoms of moving z-constrained molecules
1171 >  int nMovingZAtoms_local;
1172 >  int nMovingZAtoms;
1173 >
1174 >  nMovingZAtoms_local = 0;
1175 >  for (int i = 0; i < (int) ((zconsIntegrator->zconsMols).size()); i++)
1176 >    if ((zconsIntegrator->states)[i] == (zconsIntegrator->zcsMoving)){
1177 >      nMovingZAtoms_local += (zconsIntegrator->zconsMols)[i]->getNAtoms();
1178 >    }
1179 >
1180 > #ifdef IS_MPI
1181 >  MPI_Allreduce(&nMovingZAtoms_local, &nMovingZAtoms, 1, MPI_INT, MPI_SUM,
1182 >                MPI_COMM_WORLD);
1183 > #else
1184 >  nMovingZAtoms = nMovingZAtoms_local;
1185 > #endif
1186 >  totNumOfMovingAtoms = nMovingZAtoms + zconsIntegrator->totNumOfUnconsAtoms;
1187 > }
1188 >
1189 > template<typename T> double ZConstraint<T>::PolicyByNumber::getZFOfFixedZMols(Molecule* mol,
1190 >                                                                              Atom* atom,
1191 >                                                                              double totalForce){
1192 >  return totalForce / mol->getNAtoms();
1193 > }
1194 >
1195 > template<typename T> double ZConstraint<T>::PolicyByNumber::getZFOfMovingMols(Atom* atom,
1196 >                                                                              double totalForce){
1197 >  return totalForce / totNumOfMovingAtoms;
1198 > }
1199 >
1200 > template<typename T> double ZConstraint<T>::PolicyByNumber::getHFOfFixedZMols(Molecule* mol,
1201 >                                                                              Atom* atom,
1202 >                                                                              double totalForce){
1203 >  return totalForce / mol->getNAtoms();
1204 > }
1205 >
1206 > template<typename T> double ZConstraint<T>::PolicyByNumber::getHFOfUnconsMols(Atom* atom,
1207 >                                                                              double totalForce){
1208 >  return totalForce / zconsIntegrator->totNumOfUnconsAtoms;
1209 > }
1210 >
1211 > /**
1212 > *
1213 > */
1214 >
1215 > template<typename T> void ZConstraint<T>::PolicyByMass::update(){
1216 >  //calculate the number of atoms of moving z-constrained molecules
1217 >  double massOfMovingZAtoms_local;
1218 >  double massOfMovingZAtoms;
1219 >
1220 >  massOfMovingZAtoms_local = 0;
1221 >  for (int i = 0; i < (int) ((zconsIntegrator->zconsMols).size()); i++)
1222 >    if ((zconsIntegrator->states)[i] == (zconsIntegrator->zcsMoving)){
1223 >      massOfMovingZAtoms_local += (zconsIntegrator->zconsMols)[i]->getTotalMass();
1224 >    }
1225 >
1226 > #ifdef IS_MPI
1227 >  MPI_Allreduce(&massOfMovingZAtoms_local, &massOfMovingZAtoms, 1, MPI_DOUBLE,
1228 >                MPI_SUM, MPI_COMM_WORLD);
1229 > #else
1230 >  massOfMovingZAtoms = massOfMovingZAtoms_local;
1231 > #endif
1232 >  totMassOfMovingAtoms = massOfMovingZAtoms +
1233 >                         zconsIntegrator->totalMassOfUncons;
1234 > }
1235 >
1236 > template<typename T> double ZConstraint<T>::PolicyByMass::getZFOfFixedZMols(Molecule* mol,
1237 >                                                                            Atom* atom,
1238 >                                                                            double totalForce){
1239 >  return totalForce * atom->getMass() / mol->getTotalMass();
1240 > }
1241 >
1242 > template<typename T> double ZConstraint<T>::PolicyByMass::getZFOfMovingMols(Atom* atom,
1243 >                                                                            double totalForce){
1244 >  return totalForce * atom->getMass() / totMassOfMovingAtoms;
1245 > }
1246 >
1247 > template<typename T> double ZConstraint<T>::PolicyByMass::getHFOfFixedZMols(Molecule* mol,
1248 >                                                                            Atom* atom,
1249 >                                                                            double totalForce){
1250 >  return totalForce * atom->getMass() / mol->getTotalMass();
1251 > }
1252 >
1253 > template<typename T> double ZConstraint<T>::PolicyByMass::getHFOfUnconsMols(Atom* atom,
1254 >                                                                            double totalForce){
1255 >  return totalForce * atom->getMass() / zconsIntegrator->totalMassOfUncons;
1256 > }
1257 >
1258 > template<typename T> void ZConstraint<T>::updateZPos(){
1259 >  double curTime;
1260 >  double COM[3];
1261 >  
1262 >  curTime = info->getTime();
1263 >
1264 >  for (size_t i = 0; i < zconsMols.size(); i++){
1265 >
1266 >    if (states[i] == zcsFixed && curTime >= endFixTime[i]){
1267 >      zPos[i] += zconsGap;
1268 >
1269 >      if (usingSMD){
1270 >        zconsMols[i]->getCOM(COM);
1271 >        cantPos[i] = COM[whichDirection];
1272 >      }
1273 >      
1274 >    }
1275 >    
1276 >  }
1277 >  
1278 > }
1279 >
1280 > template<typename T> void ZConstraint<T>::updateCantPos(){
1281 >  double curTime;
1282 >  double dt;
1283 >
1284 >  curTime = info->getTime();
1285 >  dt = info->dt;
1286 >
1287 >  for (size_t i = 0; i < zconsMols.size(); i++){
1288 >    if (states[i] == zcsMoving){
1289 >      cantPos[i] += cantVel[i] * dt;
1290 >    }
1291 >  }
1292 >
1293 > }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines