/[escript]/branches/doubleplusgood/finley/src/Mesh_read.cpp
ViewVC logotype

Diff of /branches/doubleplusgood/finley/src/Mesh_read.cpp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1659 by phornby, Tue Jul 15 05:27:39 2008 UTC revision 1660 by ksteube, Mon Jul 21 03:23:46 2008 UTC
# Line 355  Finley_Mesh* Finley_Mesh_read_MPI(char* Line 355  Finley_Mesh* Finley_Mesh_read_MPI(char*
355  #ifdef PASO_MPI  #ifdef PASO_MPI
356        /* Each worker receives two messages */        /* Each worker receives two messages */
357        MPI_Status status;        MPI_Status status;
358              int mpi_error;
359        mpi_error = MPI_Recv(tempInts, numNodes*3+1, MPI_INT, 0, 81720, mpi_info->comm, &status);        mpi_error = MPI_Recv(tempInts, numNodes*3+1, MPI_INT, 0, 81720, mpi_info->comm, &status);
360        if ( mpi_error != MPI_SUCCESS ) {        if ( mpi_error != MPI_SUCCESS ) {
361              Finley_setError(PASO_MPI_ERROR, "Finley_Mesh_read: receive of tempInts failed");              Finley_setError(PASO_MPI_ERROR, "Finley_Mesh_read: receive of tempInts failed");
# Line 410  Finley_Mesh* Finley_Mesh_read_MPI(char* Line 411  Finley_Mesh* Finley_Mesh_read_MPI(char*
411        }        }
412  #ifdef PASO_MPI  #ifdef PASO_MPI
413        if (mpi_info->size > 0) {        if (mpi_info->size > 0) {
414          int temp1[3];          int temp1[3], mpi_error;
415          temp1[0] = typeID;          temp1[0] = (int) typeID;
416          temp1[1] = numEle;          temp1[1] = numEle;
417          mpi_error = MPI_Bcast (temp1, 2, MPI_INT,  0, mpi_info->comm);          mpi_error = MPI_Bcast (temp1, 2, MPI_INT,  0, mpi_info->comm);
418          if (mpi_error != MPI_SUCCESS) {          if (mpi_error != MPI_SUCCESS) {
419            Finley_setError(PASO_MPI_ERROR, "Finley_Mesh_read: broadcast of Element typeID failed");            Finley_setError(PASO_MPI_ERROR, "Finley_Mesh_read: broadcast of Element typeID failed");
420            return NULL;            return NULL;
421          }          }
422          typeID = temp1[0];          typeID = (ElementTypeId) temp1[0];
423          numEle = temp1[1];          numEle = temp1[1];
424        }        }
425  #endif  #endif
# Line 470  printf("ksteube CPU=%d/%d send to %d\n", Line 471  printf("ksteube CPU=%d/%d send to %d\n",
471  #ifdef PASO_MPI  #ifdef PASO_MPI
472        /* Each worker receives two messages */        /* Each worker receives two messages */
473        MPI_Status status;        MPI_Status status;
474          int mpi_error;
475  printf("ksteube CPU=%d/%d recv on %d\n", mpi_info->rank, mpi_info->size, mpi_info->rank);  printf("ksteube CPU=%d/%d recv on %d\n", mpi_info->rank, mpi_info->size, mpi_info->rank);
476        mpi_error = MPI_Recv(tempInts, numEle*(2+numNodes)+1, MPI_INT, 0, 81722, mpi_info->comm, &status);        mpi_error = MPI_Recv(tempInts, numEle*(2+numNodes)+1, MPI_INT, 0, 81722, mpi_info->comm, &status);
477        if ( mpi_error != MPI_SUCCESS ) {        if ( mpi_error != MPI_SUCCESS ) {

Legend:
Removed from v.1659  
changed lines
  Added in v.1660

  ViewVC Help
Powered by ViewVC 1.1.26