637 |
|
// Collect from all nodes. This should eventually be moved into a |
638 |
|
// SystemDecomposition, but this is a better place than in |
639 |
|
// Thermo to do the collection. |
640 |
< |
MPI::COMM_WORLD.Allreduce(MPI::IN_PLACE, &bondPotential, 1, MPI::REALTYPE, |
641 |
< |
MPI::SUM); |
642 |
< |
MPI::COMM_WORLD.Allreduce(MPI::IN_PLACE, &bendPotential, 1, MPI::REALTYPE, |
643 |
< |
MPI::SUM); |
644 |
< |
MPI::COMM_WORLD.Allreduce(MPI::IN_PLACE, &torsionPotential, 1, |
645 |
< |
MPI::REALTYPE, MPI::SUM); |
646 |
< |
MPI::COMM_WORLD.Allreduce(MPI::IN_PLACE, &inversionPotential, 1, |
647 |
< |
MPI::REALTYPE, MPI::SUM); |
640 |
> |
|
641 |
> |
MPI_Allreduce(MPI_IN_PLACE, &bondPotential, 1, MPI_REALTYPE, |
642 |
> |
MPI_SUM, MPI_COMM_WORLD); |
643 |
> |
MPI_Allreduce(MPI_IN_PLACE, &bendPotential, 1, MPI_REALTYPE, |
644 |
> |
MPI_SUM, MPI_COMM_WORLD); |
645 |
> |
MPI_Allreduce(MPI_IN_PLACE, &torsionPotential, 1, |
646 |
> |
MPI_REALTYPE, MPI_SUM, MPI_COMM_WORLD); |
647 |
> |
MPI_Allreduce(MPI_IN_PLACE, &inversionPotential, 1, |
648 |
> |
MPI_REALTYPE, MPI_SUM, MPI_COMM_WORLD); |
649 |
|
#endif |
650 |
|
|
651 |
|
Snapshot* curSnapshot = info_->getSnapshotManager()->getCurrentSnapshot(); |
711 |
|
RealType dVdFQ1(0.0); |
712 |
|
RealType dVdFQ2(0.0); |
713 |
|
potVec longRangePotential(0.0); |
714 |
< |
potVec reciprocalPotential(0.0); |
714 |
> |
RealType reciprocalPotential(0.0); |
715 |
|
potVec workPot(0.0); |
716 |
|
potVec exPot(0.0); |
717 |
|
Vector3d eField1(0.0); |
929 |
|
fDecomp_->collectData(); |
930 |
|
if (cutoffMethod_ == EWALD_FULL) { |
931 |
|
interactionMan_->doReciprocalSpaceSum(reciprocalPotential); |
932 |
+ |
|
933 |
+ |
curSnapshot->setReciprocalPotential(reciprocalPotential); |
934 |
|
} |
935 |
|
|
936 |
|
if (info_->requiresSelfCorrection()) { |
944 |
|
fDecomp_->collectSelfData(); |
945 |
|
|
946 |
|
longRangePotential = *(fDecomp_->getEmbeddingPotential()) + |
947 |
< |
*(fDecomp_->getPairwisePotential()) + reciprocalPotential; |
947 |
> |
*(fDecomp_->getPairwisePotential()); |
948 |
|
|
949 |
|
curSnapshot->setLongRangePotential(longRangePotential); |
950 |
|
|
978 |
|
} |
979 |
|
|
980 |
|
#ifdef IS_MPI |
981 |
< |
MPI::COMM_WORLD.Allreduce(MPI::IN_PLACE, stressTensor.getArrayPointer(), 9, |
982 |
< |
MPI::REALTYPE, MPI::SUM); |
981 |
> |
MPI_Allreduce(MPI_IN_PLACE, stressTensor.getArrayPointer(), 9, |
982 |
> |
MPI_REALTYPE, MPI_SUM, MPI_COMM_WORLD); |
983 |
|
#endif |
984 |
|
curSnapshot->setStressTensor(stressTensor); |
985 |
|
|