<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Hi, I hope you can help me. I have a problem using mpe logging with an mpmd job in fortran. With the following two routines using duplicate comms,<br>!-----------------------------------------------------<br>program a<br> use mpi<br> implicit none<br><br> integer :: ierr, dup_COMM<br><br> call MPI_init(ierr)<br> call MPI_COMM_dup(MPI_COMM_WORLD,dup_COMM,ierr)<br> call MPI_finalize(ierr)<br><br>end program a<br>!-----------------------------------------------------<br>program b<br> use mpi<br> implicit none<br><br> integer :: ierr, dup_COMM, rank, rankdup<br><br> call MPI_init(ierr)<br> call MPI_COMM_dup(MPI_COMM_WORLD,dup_COMM,ierr)<br> call MPI_finalize(ierr)<br><br>end program b<br><br>Compiled using:<br>mpif90 -mpe=mpilog -o a.exe a.f90<br>mpif90 -mpe=mpilog -o b.exe b.f90<br><br>Run using:<br>mpiexec -n 3 ./b.exe : -n 3 ./a.exe <br><br>The error returned is:<br>Fatal error in PMPI_Comm_dup: Other MPI error, error stack:<br>PMPI_Comm_dup(175)..................: MPI_Comm_dup(MPI_COMM_WORLD, new_comm=0x7fffd3ed9c8c) failed<br>PMPI_Comm_dup(160)..................: <br>MPIR_Comm_dup_impl(55)..............: <br>MPIR_Comm_copy(1500)................: <br>MPIR_Get_contextid(743).............: <br>MPIR_Get_contextid_sparse_group(999): <br>MPIR_Allreduce_impl(719)............: <br>MPIR_Allreduce_intra(212)...........: <br>MPIR_Bcast_impl(1369)...............: <br>MPIR_Bcast_intra(1199)..............: <br>MPIR_Bcast_binomial(160)............: message sizes do not match across processes in the collective routine: Received 4 but expected 256<br><br>Should it be possible to use mpe for an mpmd case?<br>Thanks<br>Ed<br><br> </div></body>
</html>