ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@7333 f3b2605a-c512-4ea7-a41b-209d697bcdaa

Browse Source
This commit is contained in:
sjplimp
2011-12-09 16:46:31 +00:00
parent 7060c62c8d
commit 5baa07d3af
8 changed files with 63 additions and 574 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/universe.cpp
View File

@ -29,7 +29,7 @@ Universe::Universe(LAMMPS *lmp, MPI_Comm communicator) : Pointers(lmp)
{
version = (char *) LAMMPS_VERSION;
uworld = communicator;
uworld = original = communicator;
MPI_Comm_rank(uworld,&me);
MPI_Comm_size(uworld,&nprocs);
@ -40,14 +40,37 @@ Universe::Universe(LAMMPS *lmp, MPI_Comm communicator) : Pointers(lmp)
nworlds = 0;
procs_per_world = NULL;
root_proc = NULL;
memory->create(proc2original,nprocs,"universe:proc2original");
for (int i = 0; i < nprocs; i++) proc2original[i] = i;
}
/* ---------------------------------------------------------------------- */
Universe::~Universe()
{
if (uworld != original) MPI_Comm_free(&uworld);
memory->destroy(procs_per_world);
memory->destroy(root_proc);
memory->destroy(proc2original);
}
/* ----------------------------------------------------------------------
placeholder routine, not yet operational
permute the mapping of universe procs in uworld to procs in original
------------------------------------------------------------------------- */
void Universe::reorder(int key)
{
if (uworld != original) MPI_Comm_free(&uworld);
MPI_Comm_split(original,0,key,&uworld);
MPI_Comm_rank(uworld,&me);
MPI_Comm_size(uworld,&nprocs);
int ome;
MPI_Comm_rank(original,&ome);
MPI_Allgather(&ome,1,MPI_INT,proc2original,1,MPI_INT,uworld);
}
/* ----------------------------------------------------------------------