[mpich-discuss] Error with MPI_Comm_spawn on MPICH2

[Shah, Mrunal J]

#include "mpi.h"
#include <stdio.h>

int main(int argc, char **argv)
{
        int size, myRank;
        MPI_Comm parent;
        MPI_Init(&argc, &argv);
        MPI_Comm_get_parent(&parent);
        MPI_Comm_rank(MPI_COMM_WORLD, &myRank);

        MPI_Comm_remote_size(parent, &size);
        printf("IN WORKER: parent size %d\n", size);

        printf("\nhello from worker %d", myRank);
        MPI_Finalize();
        return 0;
}

Thanks again!
Mrunal

----- Original Message -----
From: "Rajeev Thakur" <thakur at mcs.anl.gov>
To: mpich-discuss at mcs.anl.gov
Sent: Monday, November 24, 2008 11:20:42 PM GMT -05:00 US/Canada Eastern
Subject: Re: [mpich-discuss] Error with MPI_Comm_spawn on MPICH2

Can you send the worker program as well?

Rajeev 

> -----Original Message-----
> From: mpich-discuss-bounces at mcs.anl.gov 
> [mailto:mpich-discuss-bounces at mcs.anl.gov] On Behalf Of Shah, Mrunal J
> Sent: Monday, November 24, 2008 10:18 PM
> To: mpich-discuss at mcs.anl.gov
> Subject: Re: [mpich-discuss] Error with MPI_Comm_spawn on MPICH2
> 
> Using 1.0.8
> Running on a x86_64 machine
> 
> The test program:
> 
> #include "mpi.h"
> 
> int main(int argc, char **argv)
> {
>         int world_size, flag, myRank;
>         MPI_Comm everyone;
> 
>         MPI_Init(&argc, &argv);
>         MPI_Comm_size(MPI_COMM_WORLD, &world_size);
>         MPI_Comm_rank(MPI_COMM_WORLD, &myRank);
> 
>         printf("world_size %d\n", world_size);
> 
>         MPI_Comm_spawn("./workertest", MPI_ARGV_NULL, 
> world_size, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &everyone, 
> MPI_ERRCODES_IGNORE);
> 
>         printf("hello from master %d", myRank);
>         MPI_Finalize();
>         return 0;
> }
> 
> Thanks,
> Mrunal
> 
> ----- Original Message -----
> From: "Rajeev Thakur" <thakur at mcs.anl.gov>
> To: mpich-discuss at mcs.anl.gov
> Sent: Monday, November 24, 2008 11:04:03 PM GMT -05:00 
> US/Canada Eastern
> Subject: Re: [mpich-discuss] Error with MPI_Comm_spawn on MPICH2
> 
> Which version of MPICH2 are you using and on what platform? 
> Please send us a small test program if you can.
> 
> Rajeev 
> 
> > -----Original Message-----
> > From: mpich-discuss-bounces at mcs.anl.gov 
> > [mailto:mpich-discuss-bounces at mcs.anl.gov] On Behalf Of 
> Shah, Mrunal J
> > Sent: Monday, November 24, 2008 8:32 PM
> > To: mpich-discuss at mcs.anl.gov
> > Subject: [mpich-discuss] Error with MPI_Comm_spawn on MPICH2
> > 
> > Hi All,
> > 
> > I am having issues with spawning processes using MPI_Comm_spawn.
> > Using a simple example for spawning processes:
> > 
> >  MPI_Comm_spawn("./workertest", MPI_ARGV_NULL, world_size, 
> > MPI_INFO_NULL, 0, MPI_COMM_WORLD, &everyone, MPI_ERRCODES_IGNORE);
> > 
> > The error I get is:
> > Fatal error in MPI_Comm_spawn: Internal MPI error!, error stack:
> > MPI_Comm_spawn(130)............: 
> > MPI_Comm_spawn(cmd="./workertest", argv=(nil), maxprocs=4, 
> > MPI_INFO_NULL, root=0, MPI_COMM_WORLD, intercomm=0x7fbffff6ac, 
> > errors=(nil)) failed
> > MPIDI_Comm_spawn_multiple(172).:
> > MPID_Open_port(65).............:
> > MPIDI_CH3_Get_business_card(99): Internal MPI error!universe_size 1
> > 
> > I believe this could be a machine specific error, since running the 
> > same code on another machine with a different implementation of MPI 
> > (OpenMPI) does not give any errors.
> > But I am not sure what I am missing here.
> > 
> > Thanks!
> > Mrunal
> > 
> 
>