| 92 |  | nGlobalIntegrableObjects_(0), nGlobalRigidBodies_(0), | 
| 93 |  | nAtoms_(0), nBonds_(0),  nBends_(0), nTorsions_(0), nRigidBodies_(0), | 
| 94 |  | nIntegrableObjects_(0),  nCutoffGroups_(0), nConstraints_(0), | 
| 95 | < | sman_(NULL), fortranInitialized_(false), calcBoxDipole_(false) { | 
| 95 | > | sman_(NULL), fortranInitialized_(false), calcBoxDipole_(false), | 
| 96 | > | useAtomicVirial_(true) { | 
| 97 |  |  | 
| 98 |  | MoleculeStamp* molStamp; | 
| 99 |  | int nMolWithSameStamp; | 
| 156 |  | + nGlobalRigidBodies_; | 
| 157 |  |  | 
| 158 |  | nGlobalMols_ = molStampIds_.size(); | 
| 158 | – |  | 
| 159 | – | #ifdef IS_MPI | 
| 159 |  | molToProcMap_.resize(nGlobalMols_); | 
| 161 | – | #endif | 
| 162 | – |  | 
| 160 |  | } | 
| 161 |  |  | 
| 162 |  | SimInfo::~SimInfo() { | 
| 663 |  | int useSF; | 
| 664 |  | int useSP; | 
| 665 |  | int useBoxDipole; | 
| 666 | + |  | 
| 667 |  | std::string myMethod; | 
| 668 |  |  | 
| 669 |  | // set the useRF logical | 
| 688 |  | if (simParams_->getAccumulateBoxDipole()) | 
| 689 |  | useBoxDipole = 1; | 
| 690 |  |  | 
| 691 | + | useAtomicVirial_ = simParams_->getUseAtomicVirial(); | 
| 692 | + |  | 
| 693 |  | //loop over all of the atom types | 
| 694 |  | for (i = atomTypes.begin(); i != atomTypes.end(); ++i) { | 
| 695 |  | useLennardJones |= (*i)->isLennardJones(); | 
| 767 |  | temp = useBoxDipole; | 
| 768 |  | MPI_Allreduce(&temp, &useBoxDipole, 1, MPI_INT, MPI_LOR, MPI_COMM_WORLD); | 
| 769 |  |  | 
| 770 | + | temp = useAtomicVirial_; | 
| 771 | + | MPI_Allreduce(&temp, &useAtomicVirial_, 1, MPI_INT, MPI_LOR, MPI_COMM_WORLD); | 
| 772 | + |  | 
| 773 |  | #endif | 
| 774 |  |  | 
| 775 |  | fInfo_.SIM_uses_PBC = usePBC; | 
| 789 |  | fInfo_.SIM_uses_SF = useSF; | 
| 790 |  | fInfo_.SIM_uses_SP = useSP; | 
| 791 |  | fInfo_.SIM_uses_BoxDipole = useBoxDipole; | 
| 792 | + | fInfo_.SIM_uses_AtomicVirial = useAtomicVirial_; | 
| 793 |  | } | 
| 794 |  |  | 
| 795 |  | void SimInfo::setupFortranSim() { | 
| 856 |  | int nGlobalExcludes = 0; | 
| 857 |  | int* globalExcludes = NULL; | 
| 858 |  | int* excludeList = exclude_.getExcludeList(); | 
| 859 | < | setFortranSim( &fInfo_, &nGlobalAtoms_, &nAtoms_, &identArray[0], &nExclude, excludeList , | 
| 860 | < | &nGlobalExcludes, globalExcludes, &molMembershipArray[0], | 
| 861 | < | &mfact[0], &nCutoffGroups_, &fortranGlobalGroupMembership[0], &isError); | 
| 862 | < |  | 
| 859 | > | setFortranSim( &fInfo_, &nGlobalAtoms_, &nAtoms_, &identArray[0], | 
| 860 | > | &nExclude, excludeList , &nGlobalExcludes, globalExcludes, | 
| 861 | > | &molMembershipArray[0], &mfact[0], &nCutoffGroups_, | 
| 862 | > | &fortranGlobalGroupMembership[0], &isError); | 
| 863 | > |  | 
| 864 |  | if( isError ){ | 
| 865 | < |  | 
| 865 | > |  | 
| 866 |  | sprintf( painCave.errMsg, | 
| 867 |  | "There was an error setting the simulation information in fortran.\n" ); | 
| 868 |  | painCave.isFatal = 1; | 
| 869 |  | painCave.severity = OOPSE_ERROR; | 
| 870 |  | simError(); | 
| 871 |  | } | 
| 872 | < |  | 
| 873 | < | #ifdef IS_MPI | 
| 872 | > |  | 
| 873 | > |  | 
| 874 |  | sprintf( checkPointMsg, | 
| 875 |  | "succesfully sent the simulation information to fortran.\n"); | 
| 876 | < | MPIcheckPoint(); | 
| 877 | < | #endif // is_mpi | 
| 878 | < |  | 
| 876 | > |  | 
| 877 | > | errorCheckPoint(); | 
| 878 | > |  | 
| 879 |  | // Setup number of neighbors in neighbor list if present | 
| 880 |  | if (simParams_->haveNeighborListNeighbors()) { | 
| 881 | < | setNeighbors(simParams_->getNeighborListNeighbors()); | 
| 881 | > | int nlistNeighbors = simParams_->getNeighborListNeighbors(); | 
| 882 | > | setNeighbors(&nlistNeighbors); | 
| 883 |  | } | 
| 884 |  |  | 
| 885 |  |  | 
| 886 |  | } | 
| 887 |  |  | 
| 888 |  |  | 
| 883 | – | #ifdef IS_MPI | 
| 889 |  | void SimInfo::setupFortranParallel() { | 
| 890 | < |  | 
| 890 | > | #ifdef IS_MPI | 
| 891 |  | //SimInfo is responsible for creating localToGlobalAtomIndex and localToGlobalGroupIndex | 
| 892 |  | std::vector<int> localToGlobalAtomIndex(getNAtoms(), 0); | 
| 893 |  | std::vector<int> localToGlobalCutoffGroupIndex; | 
| 937 |  | } | 
| 938 |  |  | 
| 939 |  | sprintf(checkPointMsg, " mpiRefresh successful.\n"); | 
| 940 | < | MPIcheckPoint(); | 
| 940 | > | errorCheckPoint(); | 
| 941 |  |  | 
| 942 | < |  | 
| 942 | > | #endif | 
| 943 |  | } | 
| 944 |  |  | 
| 940 | – | #endif | 
| 941 | – |  | 
| 945 |  | void SimInfo::setupCutoff() { | 
| 946 |  |  | 
| 947 |  | ForceFieldOptions& forceFieldOptions_ = forceField_->getForceFieldOptions(); | 
| 949 |  | // Check the cutoff policy | 
| 950 |  | int cp =  TRADITIONAL_CUTOFF_POLICY; // Set to traditional by default | 
| 951 |  |  | 
| 952 | + | // Set LJ shifting bools to false | 
| 953 | + | ljsp_ = false; | 
| 954 | + | ljsf_ = false; | 
| 955 | + |  | 
| 956 |  | std::string myPolicy; | 
| 957 |  | if (forceFieldOptions_.haveCutoffPolicy()){ | 
| 958 |  | myPolicy = forceFieldOptions_.getCutoffPolicy(); | 
| 1016 |  | simError(); | 
| 1017 |  | } | 
| 1018 |  | } | 
| 1019 | < |  | 
| 1020 | < | notifyFortranCutoffs(&rcut_, &rsw_); | 
| 1019 | > |  | 
| 1020 | > | if (simParams_->haveElectrostaticSummationMethod()) { | 
| 1021 | > | std::string myMethod = simParams_->getElectrostaticSummationMethod(); | 
| 1022 | > | toUpper(myMethod); | 
| 1023 | > |  | 
| 1024 | > | if (myMethod == "SHIFTED_POTENTIAL") { | 
| 1025 | > | ljsp_ = true; | 
| 1026 | > | } else if (myMethod == "SHIFTED_FORCE") { | 
| 1027 | > | ljsf_ = true; | 
| 1028 | > | } | 
| 1029 | > | } | 
| 1030 | > | notifyFortranCutoffs(&rcut_, &rsw_, &ljsp_, &ljsf_); | 
| 1031 |  |  | 
| 1032 |  | } else { | 
| 1033 |  |  | 
| 1044 |  | if (simParams_->haveElectrostaticSummationMethod()) { | 
| 1045 |  | std::string myMethod = simParams_->getElectrostaticSummationMethod(); | 
| 1046 |  | toUpper(myMethod); | 
| 1047 | < | if (myMethod == "SHIFTED_POTENTIAL" || myMethod == "SHIFTED_FORCE") { | 
| 1047 | > |  | 
| 1048 | > | // For the time being, we're tethering the LJ shifted behavior to the | 
| 1049 | > | // electrostaticSummationMethod keyword options | 
| 1050 | > | if (myMethod == "SHIFTED_POTENTIAL") { | 
| 1051 | > | ljsp_ = true; | 
| 1052 | > | } else if (myMethod == "SHIFTED_FORCE") { | 
| 1053 | > | ljsf_ = true; | 
| 1054 | > | } | 
| 1055 | > | if (myMethod == "SHIFTED_POTENTIAL" || myMethod == "SHIFTED_FORCE") { | 
| 1056 |  | if (simParams_->haveSwitchingRadius()){ | 
| 1057 |  | sprintf(painCave.errMsg, | 
| 1058 |  | "SimInfo Warning: A value was set for the switchingRadius\n" | 
| 1075 |  | simError(); | 
| 1076 |  | rsw_ = 0.85 * rcut_; | 
| 1077 |  | } | 
| 1078 | < | notifyFortranCutoffs(&rcut_, &rsw_); | 
| 1078 | > |  | 
| 1079 | > | notifyFortranCutoffs(&rcut_, &rsw_, &ljsp_, &ljsf_); | 
| 1080 | > |  | 
| 1081 |  | } else { | 
| 1082 |  | // We didn't set rcut explicitly, and we don't have electrostatic atoms, so | 
| 1083 |  | // We'll punt and let fortran figure out the cutoffs later. |