Changeset 20150
- Timestamp:
- 02/12/16 16:16:14 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/toolkits/mpi/issmmpi.cpp
r20149 r20150 494 494 #endif 495 495 }/*}}}*/ 496 int ISSM_MPI_Send(void *buf, int count, ISSM_MPI_Datatype datatype, int dest, int tag, ISSM_MPI_Comm comm){ /*{{{*/ 497 498 int rc=0; 499 #ifdef _HAVE_MPI_ 500 # ifdef _HAVE_AMPI_ 501 rc=AMPI_Send(buf, 502 count, 503 datatype, 504 dest, 505 tag, 506 AMPI_TO_RECV, // as long as there are no other variants 507 comm); 508 # else 509 rc=MPI_Send(buf, 510 count, 511 datatype, 512 dest, 513 tag, 514 comm); 496 int ISSM_MPI_Comm_split(ISSM_MPI_Comm comm, int color, int key, ISSM_MPI_Comm *newcomm){ /*{{{*/ 497 498 int rc=0; 499 #ifdef _HAVE_MPI_ 500 # ifdef _HAVE_AMPI_ 501 rc MPI_Comm_split(comm, color, key, newcomm); 502 # else 503 rc MPI_Comm_split(comm, color, key, newcomm); 515 504 # endif 516 505 #else … … 519 508 return rc; 520 509 }/*}}}*/ 521 int ISSM_MPI_Comm_split(ISSM_MPI_Comm comm, int color, int key, ISSM_MPI_Comm *newcomm){ /*{{{*/522 523 int rc=0;524 #ifdef _HAVE_MPI_525 # ifdef _HAVE_AMPI_526 rc MPI_Comm_split(comm, color, key, newcomm);527 # else528 rc MPI_Comm_split(comm, color, key, newcomm);529 # endif530 #else531 // nothing to be done here532 #endif533 return rc;534 }/*}}}*/
Note:
See TracChangeset
for help on using the changeset viewer.