OilfieldToolsNet/LBPM
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update to disc packing preprocessor

Browse Source
This commit is contained in:
James McClure 2014-11-08 22:33:43 -05:00
parent 4aab329db3
commit a47e3a3d89
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/lbpm_disc_pp.cpp
View File

@ -38,7 +38,7 @@ inline void ReadDiscPacking(int ndiscs, double *List_cx, double *List_cy, double
List_rad[count] = strtod(line2,&line2);
count++;
}
cout << "Number of spheres extracted is: " << count << endl;
cout << "Number of discs extracted is: " << count << endl;
INSIST( count==ndiscs, "Specified number of discs is probably incorrect!" );
// .............................................................
}
@ -262,16 +262,14 @@ int main(int argc, char **argv)
double *cx,*cy,*cz,*rad;
cx = new double[ndiscs];
cy = new double[ndiscs];
cz = new double[ndiscs];
rad = new double[ndiscs];
//.......................................................................
if (rank == 0) printf("Reading the sphere packing \n");
if (rank == 0) printf("Reading the disc packing \n");
if (rank == 0) ReadDiscPacking(ndiscs,cx,cy,rad);
MPI_Barrier(MPI_COMM_WORLD);
// Broadcast the sphere packing to all processes
MPI_Bcast(cx,ndiscs,MPI_DOUBLE,0,MPI_COMM_WORLD);
MPI_Bcast(cy,ndiscs,MPI_DOUBLE,0,MPI_COMM_WORLD);
MPI_Bcast(cz,ndiscs,MPI_DOUBLE,0,MPI_COMM_WORLD);
MPI_Bcast(rad,ndiscs,MPI_DOUBLE,0,MPI_COMM_WORLD);
//...........................................................................
MPI_Barrier(MPI_COMM_WORLD);