| 53 |  | #include "brains/SimInfo.hpp" | 
| 54 |  | #include "math/Vector3.hpp" | 
| 55 |  | #include "primitives/Molecule.hpp" | 
| 56 | + | #include "primitives/StuntDouble.hpp" | 
| 57 |  | #include "UseTheForce/fCutoffPolicy.h" | 
| 58 |  | #include "UseTheForce/DarkSide/fElectrostaticSummationMethod.h" | 
| 59 |  | #include "UseTheForce/DarkSide/fElectrostaticScreeningMethod.h" | 
| 60 |  | #include "UseTheForce/DarkSide/fSwitchingFunctionType.h" | 
| 61 |  | #include "UseTheForce/doForces_interface.h" | 
| 62 | + | #include "UseTheForce/DarkSide/neighborLists_interface.h" | 
| 63 |  | #include "UseTheForce/DarkSide/electrostatic_interface.h" | 
| 64 |  | #include "UseTheForce/DarkSide/switcheroo_interface.h" | 
| 65 |  | #include "utils/MemoryUtils.hpp" | 
| 68 |  | #include "io/ForceFieldOptions.hpp" | 
| 69 |  | #include "UseTheForce/ForceField.hpp" | 
| 70 |  |  | 
| 71 | + |  | 
| 72 |  | #ifdef IS_MPI | 
| 73 |  | #include "UseTheForce/mpiComponentPlan.h" | 
| 74 |  | #include "UseTheForce/DarkSide/simParallel_interface.h" | 
| 87 |  |  | 
| 88 |  | SimInfo::SimInfo(ForceField* ff, Globals* simParams) : | 
| 89 |  | forceField_(ff), simParams_(simParams), | 
| 90 | < | ndf_(0), ndfRaw_(0), ndfTrans_(0), nZconstraint_(0), | 
| 90 | > | ndf_(0), fdf_local(0), ndfRaw_(0), ndfTrans_(0), nZconstraint_(0), | 
| 91 |  | nGlobalMols_(0), nGlobalAtoms_(0), nGlobalCutoffGroups_(0), | 
| 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) { | 
| 95 | > | sman_(NULL), fortranInitialized_(false), calcBoxDipole_(false), | 
| 96 | > | useAtomicVirial_(true) { | 
| 97 |  |  | 
| 98 |  | MoleculeStamp* molStamp; | 
| 99 |  | int nMolWithSameStamp; | 
| 156 |  | + nGlobalRigidBodies_; | 
| 157 |  |  | 
| 158 |  | nGlobalMols_ = molStampIds_.size(); | 
| 155 | – |  | 
| 156 | – | #ifdef IS_MPI | 
| 159 |  | molToProcMap_.resize(nGlobalMols_); | 
| 158 | – | #endif | 
| 159 | – |  | 
| 160 |  | } | 
| 161 |  |  | 
| 162 |  | SimInfo::~SimInfo() { | 
| 290 |  |  | 
| 291 |  | } | 
| 292 |  |  | 
| 293 | + | int SimInfo::getFdf() { | 
| 294 | + | #ifdef IS_MPI | 
| 295 | + | MPI_Allreduce(&fdf_local,&fdf_,1,MPI_INT,MPI_SUM, MPI_COMM_WORLD); | 
| 296 | + | #else | 
| 297 | + | fdf_ = fdf_local; | 
| 298 | + | #endif | 
| 299 | + | return fdf_; | 
| 300 | + | } | 
| 301 | + |  | 
| 302 |  | void SimInfo::calcNdfRaw() { | 
| 303 |  | int ndfRaw_local; | 
| 304 |  |  | 
| 599 |  | //setup fortran force field | 
| 600 |  | /** @deprecate */ | 
| 601 |  | int isError = 0; | 
| 602 | + |  | 
| 603 | + | setupCutoff(); | 
| 604 |  |  | 
| 605 |  | setupElectrostaticSummationMethod( isError ); | 
| 606 |  | setupSwitchingFunction(); | 
| 607 | + | setupAccumulateBoxDipole(); | 
| 608 |  |  | 
| 609 |  | if(isError){ | 
| 610 |  | sprintf( painCave.errMsg, | 
| 612 |  | painCave.isFatal = 1; | 
| 613 |  | simError(); | 
| 614 |  | } | 
| 603 | – |  | 
| 604 | – |  | 
| 605 | – | setupCutoff(); | 
| 615 |  |  | 
| 616 |  | calcNdf(); | 
| 617 |  | calcNdfRaw(); | 
| 661 |  | int usePBC = simParams_->getUsePeriodicBoundaryConditions(); | 
| 662 |  | int useRF; | 
| 663 |  | int useSF; | 
| 664 | + | int useSP; | 
| 665 | + | int useBoxDipole; | 
| 666 | + |  | 
| 667 |  | std::string myMethod; | 
| 668 |  |  | 
| 669 |  | // set the useRF logical | 
| 670 |  | useRF = 0; | 
| 671 |  | useSF = 0; | 
| 672 | + | useSP = 0; | 
| 673 |  |  | 
| 674 |  |  | 
| 675 |  | if (simParams_->haveElectrostaticSummationMethod()) { | 
| 676 |  | std::string myMethod = simParams_->getElectrostaticSummationMethod(); | 
| 677 |  | toUpper(myMethod); | 
| 678 | < | if (myMethod == "REACTION_FIELD") { | 
| 679 | < | useRF=1; | 
| 680 | < | } else { | 
| 681 | < | if (myMethod == "SHIFTED_FORCE") { | 
| 682 | < | useSF = 1; | 
| 683 | < | } | 
| 678 | > | if (myMethod == "REACTION_FIELD"){ | 
| 679 | > | useRF = 1; | 
| 680 | > | } else if (myMethod == "SHIFTED_FORCE"){ | 
| 681 | > | useSF = 1; | 
| 682 | > | } else if (myMethod == "SHIFTED_POTENTIAL"){ | 
| 683 | > | useSP = 1; | 
| 684 |  | } | 
| 685 |  | } | 
| 686 | + |  | 
| 687 | + | if (simParams_->haveAccumulateBoxDipole()) | 
| 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(); | 
| 759 |  | MPI_Allreduce(&temp, &useRF, 1, MPI_INT, MPI_LOR, MPI_COMM_WORLD); | 
| 760 |  |  | 
| 761 |  | temp = useSF; | 
| 762 | < | MPI_Allreduce(&temp, &useSF, 1, MPI_INT, MPI_LOR, MPI_COMM_WORLD); | 
| 762 | > | MPI_Allreduce(&temp, &useSF, 1, MPI_INT, MPI_LOR, MPI_COMM_WORLD); | 
| 763 |  |  | 
| 764 | + | temp = useSP; | 
| 765 | + | MPI_Allreduce(&temp, &useSP, 1, MPI_INT, MPI_LOR, MPI_COMM_WORLD); | 
| 766 | + |  | 
| 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; | 
| 787 |  | fInfo_.SIM_uses_FLARB = useFLARB; | 
| 788 |  | fInfo_.SIM_uses_RF = useRF; | 
| 789 |  | fInfo_.SIM_uses_SF = useSF; | 
| 790 | < |  | 
| 791 | < | if( myMethod == "REACTION_FIELD") { | 
| 792 | < |  | 
| 765 | < | if (simParams_->haveDielectric()) { | 
| 766 | < | fInfo_.dielect = simParams_->getDielectric(); | 
| 767 | < | } else { | 
| 768 | < | sprintf(painCave.errMsg, | 
| 769 | < | "SimSetup Error: No Dielectric constant was set.\n" | 
| 770 | < | "\tYou are trying to use Reaction Field without" | 
| 771 | < | "\tsetting a dielectric constant!\n"); | 
| 772 | < | painCave.isFatal = 1; | 
| 773 | < | simError(); | 
| 774 | < | } | 
| 775 | < | } | 
| 776 | < |  | 
| 790 | > | fInfo_.SIM_uses_SP = useSP; | 
| 791 | > | fInfo_.SIM_uses_BoxDipole = useBoxDipole; | 
| 792 | > | fInfo_.SIM_uses_AtomicVirial = useAtomicVirial_; | 
| 793 |  | } | 
| 794 |  |  | 
| 795 |  | void SimInfo::setupFortranSim() { | 
| 806 |  | } | 
| 807 |  |  | 
| 808 |  | //calculate mass ratio of cutoff group | 
| 809 | < | std::vector<double> mfact; | 
| 809 | > | std::vector<RealType> mfact; | 
| 810 |  | SimInfo::MoleculeIterator mi; | 
| 811 |  | Molecule* mol; | 
| 812 |  | Molecule::CutoffGroupIterator ci; | 
| 813 |  | CutoffGroup* cg; | 
| 814 |  | Molecule::AtomIterator ai; | 
| 815 |  | Atom* atom; | 
| 816 | < | double totalMass; | 
| 816 | > | RealType totalMass; | 
| 817 |  |  | 
| 818 |  | //to avoid memory reallocation, reserve enough space for mfact | 
| 819 |  | mfact.reserve(getNCutoffGroups()); | 
| 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 | 
| 876 | > |  | 
| 877 | > | errorCheckPoint(); | 
| 878 | > |  | 
| 879 | > | // Setup number of neighbors in neighbor list if present | 
| 880 | > | if (simParams_->haveNeighborListNeighbors()) { | 
| 881 | > | int nlistNeighbors = simParams_->getNeighborListNeighbors(); | 
| 882 | > | setNeighbors(&nlistNeighbors); | 
| 883 | > | } | 
| 884 | > |  | 
| 885 | > |  | 
| 886 |  | } | 
| 887 |  |  | 
| 888 |  |  | 
| 864 | – | #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 |  |  | 
| 921 | – | #endif | 
| 922 | – |  | 
| 945 |  | void SimInfo::setupCutoff() { | 
| 946 |  |  | 
| 947 |  | ForceFieldOptions& forceFieldOptions_ = forceField_->getForceFieldOptions(); | 
| 948 |  |  | 
| 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()){ | 
| 983 |  | notifyFortranCutoffPolicy(&cp); | 
| 984 |  |  | 
| 985 |  | // Check the Skin Thickness for neighborlists | 
| 986 | < | double skin; | 
| 986 | > | RealType skin; | 
| 987 |  | if (simParams_->haveSkinThickness()) { | 
| 988 |  | skin = simParams_->getSkinThickness(); | 
| 989 |  | notifyFortranSkinThickness(&skin); | 
| 1016 |  | simError(); | 
| 1017 |  | } | 
| 1018 |  | } | 
| 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 |  |  | 
| 994 | – | notifyFortranCutoffs(&rcut_, &rsw_); | 
| 995 | – |  | 
| 1032 |  | } else { | 
| 1033 |  |  | 
| 1034 |  | // For electrostatic atoms, we'll assume a large safe value: | 
| 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. | 
| 1093 |  | int errorOut; | 
| 1094 |  | int esm =  NONE; | 
| 1095 |  | int sm = UNDAMPED; | 
| 1096 | < | double alphaVal; | 
| 1097 | < | double dielectric; | 
| 1098 | < |  | 
| 1096 | > | RealType alphaVal; | 
| 1097 | > | RealType dielectric; | 
| 1098 | > |  | 
| 1099 |  | errorOut = isError; | 
| 1054 | – | alphaVal = simParams_->getDampingAlpha(); | 
| 1055 | – | dielectric = simParams_->getDielectric(); | 
| 1100 |  |  | 
| 1101 |  | if (simParams_->haveElectrostaticSummationMethod()) { | 
| 1102 |  | std::string myMethod = simParams_->getElectrostaticSummationMethod(); | 
| 1113 |  | if (myMethod == "SHIFTED_FORCE") { | 
| 1114 |  | esm = SHIFTED_FORCE; | 
| 1115 |  | } else { | 
| 1116 | < | if (myMethod == "REACTION_FIELD") { | 
| 1116 | > | if (myMethod == "REACTION_FIELD") { | 
| 1117 |  | esm = REACTION_FIELD; | 
| 1118 | + | dielectric = simParams_->getDielectric(); | 
| 1119 | + | if (!simParams_->haveDielectric()) { | 
| 1120 | + | // throw warning | 
| 1121 | + | sprintf( painCave.errMsg, | 
| 1122 | + | "SimInfo warning: dielectric was not specified in the input file\n\tfor the reaction field correction method.\n" | 
| 1123 | + | "\tA default value of %f will be used for the dielectric.\n", dielectric); | 
| 1124 | + | painCave.isFatal = 0; | 
| 1125 | + | simError(); | 
| 1126 | + | } | 
| 1127 |  | } else { | 
| 1128 |  | // throw error | 
| 1129 |  | sprintf( painCave.errMsg, | 
| 1150 |  | if (myScreen == "DAMPED") { | 
| 1151 |  | sm = DAMPED; | 
| 1152 |  | if (!simParams_->haveDampingAlpha()) { | 
| 1153 | < | //throw error | 
| 1153 | > | // first set a cutoff dependent alpha value | 
| 1154 | > | // we assume alpha depends linearly with rcut from 0 to 20.5 ang | 
| 1155 | > | alphaVal = 0.5125 - rcut_* 0.025; | 
| 1156 | > | // for values rcut > 20.5, alpha is zero | 
| 1157 | > | if (alphaVal < 0) alphaVal = 0; | 
| 1158 | > |  | 
| 1159 | > | // throw warning | 
| 1160 |  | sprintf( painCave.errMsg, | 
| 1161 |  | "SimInfo warning: dampingAlpha was not specified in the input file.\n" | 
| 1162 | < | "\tA default value of %f (1/ang) will be used.\n", alphaVal); | 
| 1162 | > | "\tA default value of %f (1/ang) will be used for the cutoff of\n\t%f (ang).\n", alphaVal, rcut_); | 
| 1163 |  | painCave.isFatal = 0; | 
| 1164 |  | simError(); | 
| 1165 | + | } else { | 
| 1166 | + | alphaVal = simParams_->getDampingAlpha(); | 
| 1167 |  | } | 
| 1168 | + |  | 
| 1169 |  | } else { | 
| 1170 |  | // throw error | 
| 1171 |  | sprintf( painCave.errMsg, | 
| 1214 |  |  | 
| 1215 |  | } | 
| 1216 |  |  | 
| 1217 | + | void SimInfo::setupAccumulateBoxDipole() { | 
| 1218 | + |  | 
| 1219 | + | // we only call setAccumulateBoxDipole if the accumulateBoxDipole parameter is true | 
| 1220 | + | if ( simParams_->haveAccumulateBoxDipole() ) | 
| 1221 | + | if ( simParams_->getAccumulateBoxDipole() ) { | 
| 1222 | + | setAccumulateBoxDipole(); | 
| 1223 | + | calcBoxDipole_ = true; | 
| 1224 | + | } | 
| 1225 | + |  | 
| 1226 | + | } | 
| 1227 | + |  | 
| 1228 |  | void SimInfo::addProperty(GenericData* genData) { | 
| 1229 |  | properties_.addProperty(genData); | 
| 1230 |  | } | 
| 1281 |  | Molecule* mol; | 
| 1282 |  |  | 
| 1283 |  | Vector3d comVel(0.0); | 
| 1284 | < | double totalMass = 0.0; | 
| 1284 | > | RealType totalMass = 0.0; | 
| 1285 |  |  | 
| 1286 |  |  | 
| 1287 |  | for (mol = beginMolecule(i); mol != NULL; mol = nextMolecule(i)) { | 
| 1288 | < | double mass = mol->getMass(); | 
| 1288 | > | RealType mass = mol->getMass(); | 
| 1289 |  | totalMass += mass; | 
| 1290 |  | comVel += mass * mol->getComVel(); | 
| 1291 |  | } | 
| 1292 |  |  | 
| 1293 |  | #ifdef IS_MPI | 
| 1294 | < | double tmpMass = totalMass; | 
| 1294 | > | RealType tmpMass = totalMass; | 
| 1295 |  | Vector3d tmpComVel(comVel); | 
| 1296 | < | MPI_Allreduce(&tmpMass,&totalMass,1,MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD); | 
| 1297 | < | MPI_Allreduce(tmpComVel.getArrayPointer(), comVel.getArrayPointer(),3,MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD); | 
| 1296 | > | MPI_Allreduce(&tmpMass,&totalMass,1,MPI_REALTYPE,MPI_SUM, MPI_COMM_WORLD); | 
| 1297 | > | MPI_Allreduce(tmpComVel.getArrayPointer(), comVel.getArrayPointer(),3,MPI_REALTYPE,MPI_SUM, MPI_COMM_WORLD); | 
| 1298 |  | #endif | 
| 1299 |  |  | 
| 1300 |  | comVel /= totalMass; | 
| 1307 |  | Molecule* mol; | 
| 1308 |  |  | 
| 1309 |  | Vector3d com(0.0); | 
| 1310 | < | double totalMass = 0.0; | 
| 1310 | > | RealType totalMass = 0.0; | 
| 1311 |  |  | 
| 1312 |  | for (mol = beginMolecule(i); mol != NULL; mol = nextMolecule(i)) { | 
| 1313 | < | double mass = mol->getMass(); | 
| 1313 | > | RealType mass = mol->getMass(); | 
| 1314 |  | totalMass += mass; | 
| 1315 |  | com += mass * mol->getCom(); | 
| 1316 |  | } | 
| 1317 |  |  | 
| 1318 |  | #ifdef IS_MPI | 
| 1319 | < | double tmpMass = totalMass; | 
| 1319 | > | RealType tmpMass = totalMass; | 
| 1320 |  | Vector3d tmpCom(com); | 
| 1321 | < | MPI_Allreduce(&tmpMass,&totalMass,1,MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD); | 
| 1322 | < | MPI_Allreduce(tmpCom.getArrayPointer(), com.getArrayPointer(),3,MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD); | 
| 1321 | > | MPI_Allreduce(&tmpMass,&totalMass,1,MPI_REALTYPE,MPI_SUM, MPI_COMM_WORLD); | 
| 1322 | > | MPI_Allreduce(tmpCom.getArrayPointer(), com.getArrayPointer(),3,MPI_REALTYPE,MPI_SUM, MPI_COMM_WORLD); | 
| 1323 |  | #endif | 
| 1324 |  |  | 
| 1325 |  | com /= totalMass; | 
| 1343 |  | Molecule* mol; | 
| 1344 |  |  | 
| 1345 |  |  | 
| 1346 | < | double totalMass = 0.0; | 
| 1346 | > | RealType totalMass = 0.0; | 
| 1347 |  |  | 
| 1348 |  |  | 
| 1349 |  | for (mol = beginMolecule(i); mol != NULL; mol = nextMolecule(i)) { | 
| 1350 | < | double mass = mol->getMass(); | 
| 1350 | > | RealType mass = mol->getMass(); | 
| 1351 |  | totalMass += mass; | 
| 1352 |  | com += mass * mol->getCom(); | 
| 1353 |  | comVel += mass * mol->getComVel(); | 
| 1354 |  | } | 
| 1355 |  |  | 
| 1356 |  | #ifdef IS_MPI | 
| 1357 | < | double tmpMass = totalMass; | 
| 1357 | > | RealType tmpMass = totalMass; | 
| 1358 |  | Vector3d tmpCom(com); | 
| 1359 |  | Vector3d tmpComVel(comVel); | 
| 1360 | < | MPI_Allreduce(&tmpMass,&totalMass,1,MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD); | 
| 1361 | < | MPI_Allreduce(tmpCom.getArrayPointer(), com.getArrayPointer(),3,MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD); | 
| 1362 | < | MPI_Allreduce(tmpComVel.getArrayPointer(), comVel.getArrayPointer(),3,MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD); | 
| 1360 | > | MPI_Allreduce(&tmpMass,&totalMass,1,MPI_REALTYPE,MPI_SUM, MPI_COMM_WORLD); | 
| 1361 | > | MPI_Allreduce(tmpCom.getArrayPointer(), com.getArrayPointer(),3,MPI_REALTYPE,MPI_SUM, MPI_COMM_WORLD); | 
| 1362 | > | MPI_Allreduce(tmpComVel.getArrayPointer(), comVel.getArrayPointer(),3,MPI_REALTYPE,MPI_SUM, MPI_COMM_WORLD); | 
| 1363 |  | #endif | 
| 1364 |  |  | 
| 1365 |  | com /= totalMass; | 
| 1378 |  | void SimInfo::getInertiaTensor(Mat3x3d &inertiaTensor, Vector3d &angularMomentum){ | 
| 1379 |  |  | 
| 1380 |  |  | 
| 1381 | < | double xx = 0.0; | 
| 1382 | < | double yy = 0.0; | 
| 1383 | < | double zz = 0.0; | 
| 1384 | < | double xy = 0.0; | 
| 1385 | < | double xz = 0.0; | 
| 1386 | < | double yz = 0.0; | 
| 1381 | > | RealType xx = 0.0; | 
| 1382 | > | RealType yy = 0.0; | 
| 1383 | > | RealType zz = 0.0; | 
| 1384 | > | RealType xy = 0.0; | 
| 1385 | > | RealType xz = 0.0; | 
| 1386 | > | RealType yz = 0.0; | 
| 1387 |  | Vector3d com(0.0); | 
| 1388 |  | Vector3d comVel(0.0); | 
| 1389 |  |  | 
| 1395 |  | Vector3d thisq(0.0); | 
| 1396 |  | Vector3d thisv(0.0); | 
| 1397 |  |  | 
| 1398 | < | double thisMass = 0.0; | 
| 1398 | > | RealType thisMass = 0.0; | 
| 1399 |  |  | 
| 1400 |  |  | 
| 1401 |  |  | 
| 1433 |  | #ifdef IS_MPI | 
| 1434 |  | Mat3x3d tmpI(inertiaTensor); | 
| 1435 |  | Vector3d tmpAngMom; | 
| 1436 | < | MPI_Allreduce(tmpI.getArrayPointer(), inertiaTensor.getArrayPointer(),9,MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD); | 
| 1437 | < | MPI_Allreduce(tmpAngMom.getArrayPointer(), angularMomentum.getArrayPointer(),3,MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD); | 
| 1436 | > | MPI_Allreduce(tmpI.getArrayPointer(), inertiaTensor.getArrayPointer(),9,MPI_REALTYPE,MPI_SUM, MPI_COMM_WORLD); | 
| 1437 | > | MPI_Allreduce(tmpAngMom.getArrayPointer(), angularMomentum.getArrayPointer(),3,MPI_REALTYPE,MPI_SUM, MPI_COMM_WORLD); | 
| 1438 |  | #endif | 
| 1439 |  |  | 
| 1440 |  | return; | 
| 1455 |  | Vector3d thisr(0.0); | 
| 1456 |  | Vector3d thisp(0.0); | 
| 1457 |  |  | 
| 1458 | < | double thisMass; | 
| 1458 | > | RealType thisMass; | 
| 1459 |  |  | 
| 1460 |  | for (mol = beginMolecule(i); mol != NULL; mol = nextMolecule(i)) { | 
| 1461 |  | thisMass = mol->getMass(); | 
| 1468 |  |  | 
| 1469 |  | #ifdef IS_MPI | 
| 1470 |  | Vector3d tmpAngMom; | 
| 1471 | < | MPI_Allreduce(tmpAngMom.getArrayPointer(), angularMomentum.getArrayPointer(),3,MPI_DOUBLE,MPI_SUM, MPI_COMM_WORLD); | 
| 1471 | > | MPI_Allreduce(tmpAngMom.getArrayPointer(), angularMomentum.getArrayPointer(),3,MPI_REALTYPE,MPI_SUM, MPI_COMM_WORLD); | 
| 1472 |  | #endif | 
| 1473 |  |  | 
| 1474 |  | return angularMomentum; | 
| 1475 |  | } | 
| 1476 |  |  | 
| 1477 | < |  | 
| 1477 | > | StuntDouble* SimInfo::getIOIndexToIntegrableObject(int index) { | 
| 1478 | > | return IOIndexToIntegrableObject.at(index); | 
| 1479 | > | } | 
| 1480 | > |  | 
| 1481 | > | void SimInfo::setIOIndexToIntegrableObject(const std::vector<StuntDouble*>& v) { | 
| 1482 | > | IOIndexToIntegrableObject= v; | 
| 1483 | > | } | 
| 1484 | > |  | 
| 1485 | > | /* Returns the Volume of the simulation based on a ellipsoid with semi-axes | 
| 1486 | > | based on the radius of gyration V=4/3*Pi*R_1*R_2*R_3 | 
| 1487 | > | where R_i are related to the principle inertia moments R_i = sqrt(C*I_i/N), this reduces to | 
| 1488 | > | V = 4/3*Pi*(C/N)^3/2*sqrt(det(I)). See S.E. Baltazar et. al. Comp. Mat. Sci. 37 (2006) 526-536. | 
| 1489 | > | */ | 
| 1490 | > | void SimInfo::getGyrationalVolume(RealType &volume){ | 
| 1491 | > | Mat3x3d intTensor; | 
| 1492 | > | RealType det; | 
| 1493 | > | Vector3d dummyAngMom; | 
| 1494 | > | RealType sysconstants; | 
| 1495 | > | RealType geomCnst; | 
| 1496 | > |  | 
| 1497 | > | geomCnst = 3.0/2.0; | 
| 1498 | > | /* Get the inertial tensor and angular momentum for free*/ | 
| 1499 | > | getInertiaTensor(intTensor,dummyAngMom); | 
| 1500 | > |  | 
| 1501 | > | det = intTensor.determinant(); | 
| 1502 | > | sysconstants = geomCnst/(RealType)nGlobalIntegrableObjects_; | 
| 1503 | > | volume = 4.0/3.0*NumericConstant::PI*pow(sysconstants,3.0/2.0)*sqrt(det); | 
| 1504 | > | return; | 
| 1505 | > | } | 
| 1506 | > |  | 
| 1507 | > | void SimInfo::getGyrationalVolume(RealType &volume, RealType &detI){ | 
| 1508 | > | Mat3x3d intTensor; | 
| 1509 | > | Vector3d dummyAngMom; | 
| 1510 | > | RealType sysconstants; | 
| 1511 | > | RealType geomCnst; | 
| 1512 | > |  | 
| 1513 | > | geomCnst = 3.0/2.0; | 
| 1514 | > | /* Get the inertial tensor and angular momentum for free*/ | 
| 1515 | > | getInertiaTensor(intTensor,dummyAngMom); | 
| 1516 | > |  | 
| 1517 | > | detI = intTensor.determinant(); | 
| 1518 | > | sysconstants = geomCnst/(RealType)nGlobalIntegrableObjects_; | 
| 1519 | > | volume = 4.0/3.0*NumericConstant::PI*pow(sysconstants,3.0/2.0)*sqrt(detI); | 
| 1520 | > | return; | 
| 1521 | > | } | 
| 1522 | > | /* | 
| 1523 | > | void SimInfo::setStuntDoubleFromGlobalIndex(std::vector<StuntDouble*> v) { | 
| 1524 | > | assert( v.size() == nAtoms_ + nRigidBodies_); | 
| 1525 | > | sdByGlobalIndex_ = v; | 
| 1526 | > | } | 
| 1527 | > |  | 
| 1528 | > | StuntDouble* SimInfo::getStuntDoubleFromGlobalIndex(int index) { | 
| 1529 | > | //assert(index < nAtoms_ + nRigidBodies_); | 
| 1530 | > | return sdByGlobalIndex_.at(index); | 
| 1531 | > | } | 
| 1532 | > | */ | 
| 1533 |  | }//end namespace oopse | 
| 1534 |  |  |