Re: [OMPI users] Myid changes to 0 after using a mpi_recv

2012-04-10 Thread Shiqing Fan 

Hi Amorgan,

It seems that you were compile the program under Cygwin, which caused 
the problem. The released installers are only for using under pure 
Windows, not for using under Cygwin or MinGW.


Could you try compile the program with Inter Fortran compiler, and run 
under a windows command prompt?


Regards,
Shiqing


On 2012-04-06 5:36 PM, Anton Morgan wrote:

Thanks for the response. The output I receive is:

mpirun -n 4 mpihello.exe

Master says, Flag: 1 MyID: 0
Master says, Flag2: 2 MyID: 0
 Slave:1
 Slave:2
 Slave:3
Master says, Flag: 1 MyID: 0
Slave says, Flag: 1 MyID: 0
Slave says, Flag: 1 MyID: 0
Master says, Flag2: 2 MyID: 0
Slave says, Flag2: 0 MyID: 0
Slave says, Flag2: 0 MyID: 0
Master says, Flag: 1 MyID: 0
Slave says, Flag: 1 MyID: 0
Master says, Flag2: 2 MyID: 0
Slave says, Flag2: 0 MyID: 0

So after the first mpi_rcv, the myid changes. This occurs on two 
Windows 7 64 bit machines. I compiled this on one machine, with the 
environment I described previously and the other I just have OpenMPI 
installed and ran the .exe using mpirun as shown above.


And if I compile the same code with openMPI uninstalled, but using. 
Microsoft MPI, it works as you would expect.


-Amorgan

On Fri, Apr 6, 2012 at 9:25 AM, Jeffrey Squyres > wrote:


The output from that program looks fine to me on Linux:

[6:25] svbu-mpi:~/mpi % mpirun -np 4 hello
 Slave:1
 Slave:2
Slave says, Flag: 1 MyID: 2
Slave says, Flag2: 2 MyID: 2
 Slave:3
Slave says, Flag: 1 MyID: 3
Slave says, Flag2: 2 MyID: 3
Master says, Flag: 1 MyID: 0
Master says, Flag2: 2 MyID: 0
Master says, Flag: 1 MyID: 0
Master says, Flag2: 2 MyID: 0
Master says, Flag: 1 MyID: 0
Master says, Flag2: 2 MyID: 0
Slave says, Flag: 1 MyID: 1
Slave says, Flag2: 2 MyID: 1

Shiqing -- can you verify on Windows?


On Apr 5, 2012, at 6:15 PM, Anton Morgan wrote:

> Some things to add. I installed Microsoft MPI and this issue did
not occur and gave me the correct rank/myid numbers when running
this program. So it seems something might be incorrect in Open
MPI. I would still like to use Open MPI, so I would like to help
and see a resolution to this.
>
> Also to add in the example Makefile. change pikaia to mpihello
to make correctly.
>
> Thanks.
>
> On Thu, Apr 5, 2012 at 3:39 PM, Anton Morgan
> wrote:
> My setup is kinda convoluted unfortunately so this also might be
an issue, but just keep that in the back of your mind for now and
assume that is not the problem. I am using Windows 7 64-bit, with
cygwin and compiling using x86_64-w64-mingw32-gfortran and
installed open MPI via OpenMPI_v1.5.5-1_win64.exe. I have compiled
and ran some mpi test programs I made, but first time using the
mpi_send and mpi_recv commands I ran into this error, or what
seems to be an error to me.
>
> Back story: I am trying to run Parallel Pikaia, which is an open
source Genetics Algorithm in Fortran that uses MPI. It should run
out of the box fine, but it does run all processes properly. So I
started to troubleshoot and found that after the first mpi_recv
command on the slaves, the myid changes to 0, but right before the
command it is the appropriate myid/rank. So I made a simple
fortran code to test if it was Pikaia or MPI and it shows to be MPI.
>
> Fortran Code:
> c --
>
>   program mpi_hello
>
>   implicit none
>
>   include 'mpif.h'
>
>   integer ierr,myid,nproc,rc,flag,nrank,rank
>   integer status(MPI_STATUS_SIZE), flag2
>
> c --
> c Initialize MPI
> c --
>   call mpi_init( ierr )
>   call mpi_comm_rank( MPI_COMM_WORLD, myid, ierr )
>   call mpi_comm_size( MPI_COMM_WORLD, nproc, ierr )
>   nrank=nproc-1
>
> c --
> c Master portion
> c --
>   if (myid.eq.0) then
>  flag=1
>  flag2=2
> c send two integers to all slaves
>  do rank=1,nrank
>  call mpi_send( flag, 1, MPI_INTEGER, rank,
>  +   1, MPI_COMM_WORLD, ierr )
>  print 8, flag, myid
>8 format('Master says, Flag: ',i0.1, ' MyID: ', i0.1)
>  call mpi_send( flag2, 1, MPI_INTEGER, rank,
>  +   1, MPI_COMM_WORLD, ierr )
>  print 10, flag2, myid
>10format('Master says, Flag2: ',i0.1, ' MyID: ', i0.1)
>  enddo
> c

Re: [OMPI users] Myid changes to 0 after using a mpi_recv

2012-04-06 Thread Anton Morgan 
Thanks for the response. The output I receive is:

mpirun -n 4 mpihello.exe

Master says, Flag: 1 MyID: 0
Master says, Flag2: 2 MyID: 0
 Slave:1
 Slave:2
 Slave:3
Master says, Flag: 1 MyID: 0
Slave says, Flag: 1 MyID: 0
Slave says, Flag: 1 MyID: 0
Master says, Flag2: 2 MyID: 0
Slave says, Flag2: 0 MyID: 0
Slave says, Flag2: 0 MyID: 0
Master says, Flag: 1 MyID: 0
Slave says, Flag: 1 MyID: 0
Master says, Flag2: 2 MyID: 0
Slave says, Flag2: 0 MyID: 0

So after the first mpi_rcv, the myid changes. This occurs on two Windows 7
64 bit machines. I compiled this on one machine, with the environment I
described previously and the other I just have OpenMPI installed and ran
the .exe using mpirun as shown above.

And if I compile the same code with openMPI uninstalled, but using.
Microsoft MPI, it works as you would expect.

-Amorgan

On Fri, Apr 6, 2012 at 9:25 AM, Jeffrey Squyres  wrote:

> The output from that program looks fine to me on Linux:
>
> [6:25] svbu-mpi:~/mpi % mpirun -np 4 hello
>  Slave:1
>  Slave:2
> Slave says, Flag: 1 MyID: 2
> Slave says, Flag2: 2 MyID: 2
>  Slave:3
> Slave says, Flag: 1 MyID: 3
> Slave says, Flag2: 2 MyID: 3
> Master says, Flag: 1 MyID: 0
> Master says, Flag2: 2 MyID: 0
> Master says, Flag: 1 MyID: 0
> Master says, Flag2: 2 MyID: 0
> Master says, Flag: 1 MyID: 0
> Master says, Flag2: 2 MyID: 0
> Slave says, Flag: 1 MyID: 1
> Slave says, Flag2: 2 MyID: 1
>
> Shiqing -- can you verify on Windows?
>
>
> On Apr 5, 2012, at 6:15 PM, Anton Morgan wrote:
>
> > Some things to add. I installed Microsoft MPI and this issue did not
> occur and gave me the correct rank/myid numbers when running this program.
> So it seems something might be incorrect in Open MPI. I would still like to
> use Open MPI, so I would like to help and see a resolution to this.
> >
> > Also to add in the example Makefile. change pikaia to mpihello to make
> correctly.
> >
> > Thanks.
> >
> > On Thu, Apr 5, 2012 at 3:39 PM, Anton Morgan 
> wrote:
> > My setup is kinda convoluted unfortunately so this also might be an
> issue, but just keep that in the back of your mind for now and assume that
> is not the problem. I am using Windows 7 64-bit, with cygwin and compiling
> using x86_64-w64-mingw32-gfortran and installed open MPI via
> OpenMPI_v1.5.5-1_win64.exe. I have compiled and ran some mpi test programs
> I made, but first time using the mpi_send and mpi_recv commands I ran into
> this error, or what seems to be an error to me.
> >
> > Back story: I am trying to run Parallel Pikaia, which is an open source
> Genetics Algorithm in Fortran that uses MPI. It should run out of the box
> fine, but it does run all processes properly. So I started to troubleshoot
> and found that after the first mpi_recv command on the slaves, the myid
> changes to 0, but right before the command it is the appropriate myid/rank.
> So I made a simple fortran code to test if it was Pikaia or MPI and it
> shows to be MPI.
> >
> > Fortran Code:
> > c --
> >
> >   program mpi_hello
> >
> >   implicit none
> >
> >   include 'mpif.h'
> >
> >   integer ierr,myid,nproc,rc,flag,nrank,rank
> >   integer status(MPI_STATUS_SIZE), flag2
> >
> > c --
> > c Initialize MPI
> > c --
> >   call mpi_init( ierr )
> >   call mpi_comm_rank( MPI_COMM_WORLD, myid, ierr )
> >   call mpi_comm_size( MPI_COMM_WORLD, nproc, ierr )
> >   nrank=nproc-1
> >
> > c --
> > c Master portion
> > c --
> >   if (myid.eq.0) then
> >  flag=1
> >  flag2=2
> > c send two integers to all slaves
> >  do rank=1,nrank
> >  call mpi_send( flag, 1, MPI_INTEGER, rank,
> >  +   1, MPI_COMM_WORLD, ierr )
> >  print 8, flag, myid
> >8 format('Master says, Flag: ',i0.1, ' MyID: ', i0.1)
> >  call mpi_send( flag2, 1, MPI_INTEGER, rank,
> >  +   1, MPI_COMM_WORLD, ierr )
> >  print 10, flag2, myid
> >10format('Master says, Flag2: ',i0.1, ' MyID: ', i0.1)
> >  enddo
> > c --
> > c Slave portion
> > c --
> >   elseif (myid.ne.0) then
> > c to see ID before mpi_rcv
> >  print *, 'Slave: ', myid
> >  call mpi_recv( flag, 1, MPI_INTEGER, 0,
> >  +   1, MPI_COMM_WORLD, status, ierr )
> > c check myid after recv which turns to 0 on my environment
> >  print 9, flag, myid
> >9 format('Slave says, Flag: ',i0.1, ' MyID: ', i0.1)
> >  call mpi_recv( flag2, 1, MPI_INTEGER, 0,
> >  +   1, MPI_COMM_WORLD, status, ierr )
> >  print 11, flag2, myid
> >

Re: [OMPI users] Myid changes to 0 after using a mpi_recv

2012-04-06 Thread Jeffrey Squyres 
The output from that program looks fine to me on Linux:

[6:25] svbu-mpi:~/mpi % mpirun -np 4 hello
 Slave:1
 Slave:2
Slave says, Flag: 1 MyID: 2
Slave says, Flag2: 2 MyID: 2
 Slave:3
Slave says, Flag: 1 MyID: 3
Slave says, Flag2: 2 MyID: 3
Master says, Flag: 1 MyID: 0
Master says, Flag2: 2 MyID: 0
Master says, Flag: 1 MyID: 0
Master says, Flag2: 2 MyID: 0
Master says, Flag: 1 MyID: 0
Master says, Flag2: 2 MyID: 0
Slave says, Flag: 1 MyID: 1
Slave says, Flag2: 2 MyID: 1

Shiqing -- can you verify on Windows?


On Apr 5, 2012, at 6:15 PM, Anton Morgan wrote:

> Some things to add. I installed Microsoft MPI and this issue did not occur 
> and gave me the correct rank/myid numbers when running this program. So it 
> seems something might be incorrect in Open MPI. I would still like to use 
> Open MPI, so I would like to help and see a resolution to this.
> 
> Also to add in the example Makefile. change pikaia to mpihello to make 
> correctly.
> 
> Thanks.
> 
> On Thu, Apr 5, 2012 at 3:39 PM, Anton Morgan  
> wrote:
> My setup is kinda convoluted unfortunately so this also might be an issue, 
> but just keep that in the back of your mind for now and assume that is not 
> the problem. I am using Windows 7 64-bit, with cygwin and compiling using 
> x86_64-w64-mingw32-gfortran and installed open MPI via 
> OpenMPI_v1.5.5-1_win64.exe. I have compiled and ran some mpi test programs I 
> made, but first time using the mpi_send and mpi_recv commands I ran into this 
> error, or what seems to be an error to me.
> 
> Back story: I am trying to run Parallel Pikaia, which is an open source 
> Genetics Algorithm in Fortran that uses MPI. It should run out of the box 
> fine, but it does run all processes properly. So I started to troubleshoot 
> and found that after the first mpi_recv command on the slaves, the myid 
> changes to 0, but right before the command it is the appropriate myid/rank. 
> So I made a simple fortran code to test if it was Pikaia or MPI and it shows 
> to be MPI.
> 
> Fortran Code:
> c --
> 
>   program mpi_hello
> 
>   implicit none
> 
>   include 'mpif.h'
> 
>   integer ierr,myid,nproc,rc,flag,nrank,rank
>   integer status(MPI_STATUS_SIZE), flag2
> 
> c --
> c Initialize MPI
> c --
>   call mpi_init( ierr )
>   call mpi_comm_rank( MPI_COMM_WORLD, myid, ierr )
>   call mpi_comm_size( MPI_COMM_WORLD, nproc, ierr )
>   nrank=nproc-1
> 
> c --
> c Master portion
> c --
>   if (myid.eq.0) then
>  flag=1
>  flag2=2
> c send two integers to all slaves
>  do rank=1,nrank
>  call mpi_send( flag, 1, MPI_INTEGER, rank,
>  +   1, MPI_COMM_WORLD, ierr )
>  print 8, flag, myid
>8 format('Master says, Flag: ',i0.1, ' MyID: ', i0.1)
>  call mpi_send( flag2, 1, MPI_INTEGER, rank,
>  +   1, MPI_COMM_WORLD, ierr )
>  print 10, flag2, myid
>10format('Master says, Flag2: ',i0.1, ' MyID: ', i0.1)
>  enddo
> c --
> c Slave portion
> c --
>   elseif (myid.ne.0) then
> c to see ID before mpi_rcv
>  print *, 'Slave: ', myid
>  call mpi_recv( flag, 1, MPI_INTEGER, 0,
>  +   1, MPI_COMM_WORLD, status, ierr )
> c check myid after recv which turns to 0 on my environment
>  print 9, flag, myid
>9 format('Slave says, Flag: ',i0.1, ' MyID: ', i0.1)
>  call mpi_recv( flag2, 1, MPI_INTEGER, 0,
>  +   1, MPI_COMM_WORLD, status, ierr )
>  print 11, flag2, myid
>11format('Slave says, Flag2: ',i0.1, ' MyID: ', i0.1)
>   endif
> 
>   call mpi_finalize(rc)
>   stop
>   end
> c --
> 
> Simple makefile for my environment:
> #
> # MPI makefile
> #
> #INSTALL_DIR = ./
> F77= x86_64-w64-mingw32-gfortran
> # Progra~2 because it is located in Program Files (x86)
> LIB= -L/cygdrive/c/Progra~2/OpenMPI_v1.5.5-x64/bin
> INCLUDE= -I/cygdrive/c/Progra~2/OpenMPI_v1.5.5-x64/include
> FFLAGS= 
> MAKE= make
> SHELL= /bin/sh
> #
> ### End User configurable options ###
> 
> SRC1= mpihello
> OBJS= $(SRC1).o 
> 
> pikaia : $(OBJS)
> $(F77) $(FFLAGS) -o mpihello $(OBJS) $(LIB) -lmpi_f77
> #rm -f *.o
> 
> $(SRC1).o : $(SRC1).f
> $(F77) $(FFLAGS) $(INCLUDE) -c $(SRC1).f
> 
> So I am wondering if this is something that is an issue with the current 
> build of openMPI , if I am missing something or if it's my convoluted 
> environment. Attached is the source and makefile of what is above and then my 
> built .exe and a libgcc_s_sjlj-1.dll to run

Re: [OMPI users] Myid changes to 0 after using a mpi_recv

2012-04-05 Thread Anton Morgan 
Some things to add. I installed Microsoft MPI and this issue did not occur
and gave me the correct rank/myid numbers when running this program. So it
seems something might be incorrect in Open MPI. I would still like to use
Open MPI, so I would like to help and see a resolution to this.

Also to add in the example Makefile. change pikaia to mpihello to make
correctly.

Thanks.

On Thu, Apr 5, 2012 at 3:39 PM, Anton Morgan wrote:

> My setup is kinda convoluted unfortunately so this also might be an issue,
> but just keep that in the back of your mind for now and assume that is not
> the problem. I am using Windows 7 64-bit, with cygwin and compiling using
> x86_64-w64-mingw32-gfortran and installed open MPI via
> OpenMPI_v1.5.5-1_win64.exe. I have compiled and ran some mpi test programs
> I made, but first time using the mpi_send and mpi_recv commands I ran into
> this error, or what seems to be an error to me.
>
> Back story: I am trying to run Parallel Pikaia, which is an open source
> Genetics Algorithm in Fortran that uses MPI. It should run out of the box
> fine, but it does run all processes properly. So I started to troubleshoot
> and found that after the first mpi_recv command on the slaves, the myid
> changes to 0, but right before the command it is the appropriate myid/rank.
> So I made a simple fortran code to test if it was Pikaia or MPI and it
> shows to be MPI.
>
> Fortran Code:
> c --
>
>   program mpi_hello
>
>   implicit none
>
>   include 'mpif.h'
>
>   integer ierr,myid,nproc,rc,flag,nrank,rank
>   integer status(MPI_STATUS_SIZE), flag2
>
> c --
> c Initialize MPI
> c --
>   call mpi_init( ierr )
>   call mpi_comm_rank( MPI_COMM_WORLD, myid, ierr )
>   call mpi_comm_size( MPI_COMM_WORLD, nproc, ierr )
>   nrank=nproc-1
>
> c --
> c Master portion
> c --
>   if (myid.eq.0) then
>  flag=1
>  flag2=2
> c send two integers to all slaves
>  do rank=1,nrank
>  call mpi_send( flag, 1, MPI_INTEGER, rank,
>  +   1, MPI_COMM_WORLD, ierr )
>  print 8, flag, myid
>8 format('Master says, Flag: ',i0.1, ' MyID: ', i0.1)
>  call mpi_send( flag2, 1, MPI_INTEGER, rank,
>  +   1, MPI_COMM_WORLD, ierr )
>  print 10, flag2, myid
>10format('Master says, Flag2: ',i0.1, ' MyID: ', i0.1)
>  enddo
> c --
> c Slave portion
> c --
>   elseif (myid.ne.0) then
> c to see ID before mpi_rcv
>  print *, 'Slave: ', myid
>  call mpi_recv( flag, 1, MPI_INTEGER, 0,
>  +   1, MPI_COMM_WORLD, status, ierr )
> c check myid after recv which turns to 0 on my environment
>  print 9, flag, myid
>9 format('Slave says, Flag: ',i0.1, ' MyID: ', i0.1)
>  call mpi_recv( flag2, 1, MPI_INTEGER, 0,
>  +   1, MPI_COMM_WORLD, status, ierr )
>  print 11, flag2, myid
>11format('Slave says, Flag2: ',i0.1, ' MyID: ', i0.1)
>   endif
>
>   call mpi_finalize(rc)
>   stop
>   end
> c --
>
> Simple makefile for my environment:
> #
> # MPI makefile
> #
> #INSTALL_DIR = ./
> F77= x86_64-w64-mingw32-gfortran
> # Progra~2 because it is located in Program Files (x86)
> LIB= -L/cygdrive/c/Progra~2/OpenMPI_v1.5.5-x64/bin
> INCLUDE= -I/cygdrive/c/Progra~2/OpenMPI_v1.5.5-x64/include
> FFLAGS=
> MAKE= make
> SHELL= /bin/sh
> #
> ### End User configurable options ###
>
> SRC1= mpihello
> OBJS= $(SRC1).o
>
> pikaia : $(OBJS)
> $(F77) $(FFLAGS) -o mpihello $(OBJS) $(LIB) -lmpi_f77
> #rm -f *.o
>
> $(SRC1).o : $(SRC1).f
> $(F77) $(FFLAGS) $(INCLUDE) -c $(SRC1).f
>
> So I am wondering if this is something that is an issue with the current
> build of openMPI , if I am missing something or if it's my convoluted
> environment. Attached is the source and makefile of what is above and then
> my built .exe and a libgcc_s_sjlj-1.dll to run the .exe.
>
> Thank you for the help
>
> --
> *AMorgan*
>



-- 
*Anton Morgan*
CAR Technologies LLC
amorgan.cart...@gmail.com
1305 Kinnear Rd.
Columbus, Oh 43212

[OMPI users] Myid changes to 0 after using a mpi_recv

2012-04-05 Thread Anton Morgan 
My setup is kinda convoluted unfortunately so this also might be an issue,
but just keep that in the back of your mind for now and assume that is not
the problem. I am using Windows 7 64-bit, with cygwin and compiling using
x86_64-w64-mingw32-gfortran and installed open MPI via
OpenMPI_v1.5.5-1_win64.exe. I have compiled and ran some mpi test programs
I made, but first time using the mpi_send and mpi_recv commands I ran into
this error, or what seems to be an error to me.

Back story: I am trying to run Parallel Pikaia, which is an open source
Genetics Algorithm in Fortran that uses MPI. It should run out of the box
fine, but it does run all processes properly. So I started to troubleshoot
and found that after the first mpi_recv command on the slaves, the myid
changes to 0, but right before the command it is the appropriate myid/rank.
So I made a simple fortran code to test if it was Pikaia or MPI and it
shows to be MPI.

Fortran Code:
c --

  program mpi_hello

  implicit none

  include 'mpif.h'

  integer ierr,myid,nproc,rc,flag,nrank,rank
  integer status(MPI_STATUS_SIZE), flag2

c --
c Initialize MPI
c --
  call mpi_init( ierr )
  call mpi_comm_rank( MPI_COMM_WORLD, myid, ierr )
  call mpi_comm_size( MPI_COMM_WORLD, nproc, ierr )
  nrank=nproc-1

c --
c Master portion
c --
  if (myid.eq.0) then
 flag=1
 flag2=2
c send two integers to all slaves
 do rank=1,nrank
 call mpi_send( flag, 1, MPI_INTEGER, rank,
 +   1, MPI_COMM_WORLD, ierr )
 print 8, flag, myid
   8 format('Master says, Flag: ',i0.1, ' MyID: ', i0.1)
 call mpi_send( flag2, 1, MPI_INTEGER, rank,
 +   1, MPI_COMM_WORLD, ierr )
 print 10, flag2, myid
   10format('Master says, Flag2: ',i0.1, ' MyID: ', i0.1)
 enddo
c --
c Slave portion
c --
  elseif (myid.ne.0) then
c to see ID before mpi_rcv
 print *, 'Slave: ', myid
 call mpi_recv( flag, 1, MPI_INTEGER, 0,
 +   1, MPI_COMM_WORLD, status, ierr )
c check myid after recv which turns to 0 on my environment
 print 9, flag, myid
   9 format('Slave says, Flag: ',i0.1, ' MyID: ', i0.1)
 call mpi_recv( flag2, 1, MPI_INTEGER, 0,
 +   1, MPI_COMM_WORLD, status, ierr )
 print 11, flag2, myid
   11format('Slave says, Flag2: ',i0.1, ' MyID: ', i0.1)
  endif

  call mpi_finalize(rc)
  stop
  end
c --

Simple makefile for my environment:
#
# MPI makefile
#
#INSTALL_DIR = ./
F77= x86_64-w64-mingw32-gfortran
# Progra~2 because it is located in Program Files (x86)
LIB= -L/cygdrive/c/Progra~2/OpenMPI_v1.5.5-x64/bin
INCLUDE= -I/cygdrive/c/Progra~2/OpenMPI_v1.5.5-x64/include
FFLAGS=
MAKE= make
SHELL= /bin/sh
#
### End User configurable options ###

SRC1= mpihello
OBJS= $(SRC1).o

pikaia : $(OBJS)
$(F77) $(FFLAGS) -o mpihello $(OBJS) $(LIB) -lmpi_f77
#rm -f *.o

$(SRC1).o : $(SRC1).f
$(F77) $(FFLAGS) $(INCLUDE) -c $(SRC1).f

So I am wondering if this is something that is an issue with the current
build of openMPI , if I am missing something or if it's my convoluted
environment. Attached is the source and makefile of what is above and then
my built .exe and a libgcc_s_sjlj-1.dll to run the .exe.

Thank you for the help

-- 
*AMorgan*


mpi_hello.rar
Description: application/rar