Appologies for taking so long to reply; too many mails and all my students
are away for the summer. :-)
I don't see anything wrong with the code snipit that you showed; it should
work fine. I modified one of our lamtests to do exactly this and it seems
to work ok (attached).
Are you sure there's no other receives going on?
On Sun, 15 Jun 2003, Maiko Wessel wrote:
> I have a simple MPI Program:
>
> Main-function:
> =================
> MPI_Comm inter_comm;
>
> MPI_Init(&argc, &argv);
> ...
> MPI_Comm_spawn(APP, MPI_ARGV_NULL, 1, MPI_INFO_NULL, 0, MPI_COMM_SELF,
> &inter_comm, &err);
>
> MPI_Send(..., 0, 1, inter_comm);
> ...
> MPI_Finalize();
>
>
> The APP:
> ==================
> MPI_Comm parent;
> MPI_Status status;
>
> MPI_Init(&argc, &argv);
> ...
> MPI_Comm_get_parent(&parent);
> MPI_Recv(..., MPI_ANY_SOURCE, MPI_ANY_TAG, parent, &status);
> ...
> MPI_Finalize();
>
>
> The size (MPI_Comm_size/MPI_Comm_remote_size) is one --> OK
>
> The Problem is that I get the folloging error message and i don't
> unterstand why:
> MPI_Recv: process in local group is dead (rank 0, MPI_COMM_PARENT)
> Rank (0, MPI_COMM_WORLD): Call stack within LAM:
> Rank (0, MPI_COMM_WORLD): - MPI_Recv()
> Rank (0, MPI_COMM_WORLD): - main()
>
> Where and why is there a dead process ??
>
>
>
> _______________________________________________
> This list is archived at http://www.lam-mpi.org/MailArchives/lam/
>
--
{+} Jeff Squyres
{+} jsquyres_at_[hidden]
{+} http://www.lam-mpi.org/
- TEXT/PLAIN attachment: s.c
|
