| 589 |
|
MPI_Bcast(&molToProcMap[0], nGlobalMols, MPI_INT, 0, MPI_COMM_WORLD); |
| 590 |
|
} |
| 591 |
|
|
| 592 |
+ |
cerr << "molToProcMap:\n"; |
| 593 |
+ |
for (int i = 0; i < molToProcMap.size(); i++) { |
| 594 |
+ |
cerr << "m = " << i << " mtpr[m] = " << molToProcMap[i] <<"\n"; |
| 595 |
+ |
} |
| 596 |
+ |
|
| 597 |
|
info->setMolToProcMap(molToProcMap); |
| 598 |
|
sprintf(checkPointMsg, |
| 599 |
|
"Successfully divided the molecules among the processors.\n"); |
| 614 |
|
#endif |
| 615 |
|
|
| 616 |
|
stampId = info->getMoleculeStampId(i); |
| 617 |
< |
Molecule * mol = molCreator.createMolecule(info->getForceField(), info->getMoleculeStamp(stampId), |
| 618 |
< |
stampId, i, info->getLocalIndexManager()); |
| 617 |
> |
Molecule * mol = molCreator.createMolecule(info->getForceField(), |
| 618 |
> |
info->getMoleculeStamp(stampId), |
| 619 |
> |
stampId, i, |
| 620 |
> |
info->getLocalIndexManager()); |
| 621 |
|
|
| 622 |
|
info->addMolecule(mol); |
| 623 |
|
|
| 644 |
|
int beginRigidBodyIndex; |
| 645 |
|
int beginCutoffGroupIndex; |
| 646 |
|
int nGlobalAtoms = info->getNGlobalAtoms(); |
| 640 |
– |
|
| 641 |
– |
/**@todo fixme */ |
| 642 |
– |
#ifndef IS_MPI |
| 647 |
|
|
| 648 |
|
beginAtomIndex = 0; |
| 649 |
|
beginRigidBodyIndex = 0; |
| 650 |
|
beginCutoffGroupIndex = 0; |
| 651 |
< |
|
| 652 |
< |
#else |
| 649 |
< |
|
| 650 |
< |
int nproc; |
| 651 |
< |
int myNode; |
| 652 |
< |
|
| 653 |
< |
myNode = worldRank; |
| 654 |
< |
MPI_Comm_size(MPI_COMM_WORLD, &nproc); |
| 655 |
< |
|
| 656 |
< |
std::vector < int > tmpAtomsInProc(nproc, 0); |
| 657 |
< |
std::vector < int > tmpRigidBodiesInProc(nproc, 0); |
| 658 |
< |
std::vector < int > tmpCutoffGroupsInProc(nproc, 0); |
| 659 |
< |
std::vector < int > NumAtomsInProc(nproc, 0); |
| 660 |
< |
std::vector < int > NumRigidBodiesInProc(nproc, 0); |
| 661 |
< |
std::vector < int > NumCutoffGroupsInProc(nproc, 0); |
| 662 |
< |
|
| 663 |
< |
tmpAtomsInProc[myNode] = info->getNAtoms(); |
| 664 |
< |
tmpRigidBodiesInProc[myNode] = info->getNRigidBodies(); |
| 665 |
< |
tmpCutoffGroupsInProc[myNode] = info->getNCutoffGroups(); |
| 666 |
< |
|
| 667 |
< |
//do MPI_ALLREDUCE to exchange the total number of atoms, rigidbodies and cutoff groups |
| 668 |
< |
MPI_Allreduce(&tmpAtomsInProc[0], &NumAtomsInProc[0], nproc, MPI_INT, |
| 669 |
< |
MPI_SUM, MPI_COMM_WORLD); |
| 670 |
< |
MPI_Allreduce(&tmpRigidBodiesInProc[0], &NumRigidBodiesInProc[0], nproc, |
| 671 |
< |
MPI_INT, MPI_SUM, MPI_COMM_WORLD); |
| 672 |
< |
MPI_Allreduce(&tmpCutoffGroupsInProc[0], &NumCutoffGroupsInProc[0], nproc, |
| 673 |
< |
MPI_INT, MPI_SUM, MPI_COMM_WORLD); |
| 674 |
< |
|
| 675 |
< |
beginAtomIndex = 0; |
| 676 |
< |
beginRigidBodyIndex = 0; |
| 677 |
< |
beginCutoffGroupIndex = 0; |
| 678 |
< |
|
| 679 |
< |
for(int i = 0; i < myNode; i++) { |
| 680 |
< |
beginAtomIndex += NumAtomsInProc[i]; |
| 681 |
< |
beginRigidBodyIndex += NumRigidBodiesInProc[i]; |
| 682 |
< |
beginCutoffGroupIndex += NumCutoffGroupsInProc[i]; |
| 683 |
< |
} |
| 684 |
< |
|
| 685 |
< |
#endif |
| 686 |
< |
|
| 687 |
< |
//rigidbody's index begins right after atom's |
| 688 |
< |
beginRigidBodyIndex += info->getNGlobalAtoms(); |
| 689 |
< |
|
| 690 |
< |
for(mol = info->beginMolecule(mi); mol != NULL; |
| 691 |
< |
mol = info->nextMolecule(mi)) { |
| 651 |
> |
|
| 652 |
> |
for(int i = 0; i < info->getNGlobalMolecules(); i++) { |
| 653 |
|
|
| 654 |
< |
//local index(index in DataStorge) of atom is important |
| 655 |
< |
for(atom = mol->beginAtom(ai); atom != NULL; atom = mol->nextAtom(ai)) { |
| 656 |
< |
atom->setGlobalIndex(beginAtomIndex++); |
| 654 |
> |
#ifdef IS_MPI |
| 655 |
> |
if (info->getMolToProc(i) == worldRank) { |
| 656 |
> |
#endif |
| 657 |
> |
// stuff to do if I own this molecule |
| 658 |
> |
mol = info->getMoleculeByGlobalIndex(i); |
| 659 |
> |
|
| 660 |
> |
//local index(index in DataStorge) of atom is important |
| 661 |
> |
for(atom = mol->beginAtom(ai); atom != NULL; atom = mol->nextAtom(ai)) { |
| 662 |
> |
atom->setGlobalIndex(beginAtomIndex++); |
| 663 |
> |
} |
| 664 |
> |
|
| 665 |
> |
for(rb = mol->beginRigidBody(ri); rb != NULL; |
| 666 |
> |
rb = mol->nextRigidBody(ri)) { |
| 667 |
> |
rb->setGlobalIndex(beginRigidBodyIndex++); |
| 668 |
> |
} |
| 669 |
> |
|
| 670 |
> |
//local index of cutoff group is trivial, it only depends on |
| 671 |
> |
//the order of travesing |
| 672 |
> |
for(cg = mol->beginCutoffGroup(ci); cg != NULL; |
| 673 |
> |
cg = mol->nextCutoffGroup(ci)) { |
| 674 |
> |
cg->setGlobalIndex(beginCutoffGroupIndex++); |
| 675 |
> |
} |
| 676 |
> |
|
| 677 |
> |
#ifdef IS_MPI |
| 678 |
> |
} else { |
| 679 |
> |
|
| 680 |
> |
// stuff to do if I don't own this molecule |
| 681 |
> |
|
| 682 |
> |
int stampId = info->getMoleculeStampId(i); |
| 683 |
> |
MoleculeStamp* stamp = info->getMoleculeStamp(stampId); |
| 684 |
> |
|
| 685 |
> |
beginAtomIndex += stamp->getNAtoms(); |
| 686 |
> |
beginRigidBodyIndex += stamp->getNRigidBodies(); |
| 687 |
> |
beginCutoffGroupIndex += stamp->getNCutoffGroups() + stamp->getNFreeAtoms(); |
| 688 |
|
} |
| 689 |
< |
|
| 690 |
< |
for(rb = mol->beginRigidBody(ri); rb != NULL; |
| 691 |
< |
rb = mol->nextRigidBody(ri)) { |
| 692 |
< |
rb->setGlobalIndex(beginRigidBodyIndex++); |
| 701 |
< |
} |
| 702 |
< |
|
| 703 |
< |
//local index of cutoff group is trivial, it only depends on the order of travesing |
| 704 |
< |
for(cg = mol->beginCutoffGroup(ci); cg != NULL; |
| 705 |
< |
cg = mol->nextCutoffGroup(ci)) { |
| 706 |
< |
cg->setGlobalIndex(beginCutoffGroupIndex++); |
| 707 |
< |
} |
| 708 |
< |
} |
| 709 |
< |
|
| 689 |
> |
#endif |
| 690 |
> |
|
| 691 |
> |
} //end for(int i=0) |
| 692 |
> |
|
| 693 |
|
//fill globalGroupMembership |
| 694 |
|
std::vector<int> globalGroupMembership(info->getNGlobalAtoms(), 0); |
| 695 |
|
for(mol = info->beginMolecule(mi); mol != NULL; mol = info->nextMolecule(mi)) { |
| 701 |
|
|
| 702 |
|
} |
| 703 |
|
} |
| 704 |
< |
|
| 704 |
> |
|
| 705 |
|
#ifdef IS_MPI |
| 706 |
|
// Since the globalGroupMembership has been zero filled and we've only |
| 707 |
|
// poked values into the atoms we know, we can do an Allreduce |
| 712 |
|
MPI_Allreduce(&globalGroupMembership[0], &tmpGroupMembership[0], nGlobalAtoms, |
| 713 |
|
MPI_INT, MPI_SUM, MPI_COMM_WORLD); |
| 714 |
|
info->setGlobalGroupMembership(tmpGroupMembership); |
| 715 |
+ |
|
| 716 |
+ |
cerr << "ggm:\n"; |
| 717 |
+ |
for (int i = 0; i < tmpGroupMembership.size(); i++) |
| 718 |
+ |
cerr << "i = " << i << "\t ggm(i) = " << tmpGroupMembership[i] << "\n"; |
| 719 |
+ |
|
| 720 |
|
#else |
| 721 |
|
info->setGlobalGroupMembership(globalGroupMembership); |
| 722 |
|
#endif |
| 776 |
|
globalIO++; |
| 777 |
|
} |
| 778 |
|
} |
| 779 |
< |
|
| 779 |
> |
cerr << "ioi2io:\n"; |
| 780 |
> |
for (int i = 0; i < IOIndexToIntegrableObject.size(); i++) { |
| 781 |
> |
if (IOIndexToIntegrableObject[i] != NULL) { |
| 782 |
> |
cerr << "i = " << i << "globalIOindex = " << IOIndexToIntegrableObject[i]->getGlobalIntegrableObjectIndex() << "\n"; |
| 783 |
> |
} |
| 784 |
> |
} |
| 785 |
> |
|
| 786 |
|
info->setIOIndexToIntegrableObject(IOIndexToIntegrableObject); |
| 787 |
|
|
| 788 |
|
} |
