[mpich-discuss] MPI_Send Error

[Deniz DAL]

Hi Mandar,
Thanks for your prompt response. I finally found the problem. My /etc/hosts was messed up somehow. I removed the w privilige from the file after fixing it. Still I dont know why it happened.
Deniz.

--- On Wed, 2/2/11, Mandar Gurav <mandarwce at gmail.com> wrote:


From: Mandar Gurav <mandarwce at gmail.com>
Subject: Re: [mpich-discuss] MPI_Send Error
To: mpich-discuss at mcs.anl.gov
Date: Wednesday, February 2, 2011, 7:20 AM


Program is also fine... Working correctly at my end!

----Mandar Gurav


On Wed, Feb 2, 2011 at 5:47 PM, Mandar Gurav <mandarwce at gmail.com> wrote:

Try to execute the program using 
"mpiexec  -n 2 ./test.x" only

or can you tell what is there in your "hosts" (Described in command "mpiexec -f hosts -n 2 ./test.x") file

----Mandar Gurav





On Wed, Feb 2, 2011 at 4:38 PM, Deniz DAL <dendal25 at yahoo.com> wrote:









Hello everyone,
I created a small linux cluster with 4 compute nodes yesterday. I installed Fedora 14 OS to all machine and mpich2 v1.3.2 on the server node. But i have a serious problem. I can not even make a simple send and receive program work. below is the steps that i follow. You will see the error at the end. I can not run point to point and collective communication routines of mpi. I am suspecting that the problem might have sthg to do with the hydra. Any help is appreciated.
Deniz.
 
 
[ddal at admin mpi_uygulamalar]$ cat hosts 
admin
cn01
cn02
cn03
[ddal at admin mpi_uygulamalar]$ cat 01_Send_Receive_One_Message.cpp 
#include "mpi.h"
#include <iostream>
using namespace std;
#define TAG 25
int main(int argc, char* argv[])
{
 int myRank,
         size;
 char processorName[50];
 int nameLength;
 int a;//size of the send buffer
 int b;
 MPI_Status status;
 /* Initialize MPI */
 MPI_Init(&argc, &argv);
 /* Determine the size of the group */
 MPI_Comm_size(MPI_COMM_WORLD,&size);
 /* Determine the rank of the calling process */
 MPI_Comm_rank(MPI_COMM_WORLD,&myRank);
 MPI_Get_processor_name(processorName, &nameLength);
 if(size != 2 )
 {
  cout<<"Number of CPUs must be 2 !\n";
  MPI_Abort(MPI_COMM_WORLD, 99);
 }
 if(myRank == 0)/* Master Sends a Message */
 {
  a=25;
  MPI_Send(&a, 1, MPI_INT, 1, TAG, MPI_COMM_WORLD);
  printf("%s Sent Variable a Successfully\n",processorName);
 }
 else /* Process 1 Receives the Message */
 {
  MPI_Recv(&b, 1, MPI_INT, 0, TAG, MPI_COMM_WORLD, &status );
  printf("%s Received Variable a Successfully over b\n",processorName);
  printf("b=%d\n",b);
 }
 /* Terminate the MPI */
 MPI_Finalize();
 return 0;
}[ddal at admin mpi_uygulamalar]$ mpicxx 01_Send_Receive_One_Message.cpp -o test.x 
[ddal at admin mpi_uygulamalar]$ mpiexec -f hosts -n 2 ./test.x 
Fatal error in MPI_Send: Other MPI error, error stack:
MPI_Send(173)..............: MPI_Send(buf=0xbf928900, count=1, MPI_INT, dest=1, tag=25, MPI_COMM_WORLD) failed
MPID_nem_tcp_connpoll(1811): Communication error with rank 1: 
[mpiexec at admin] ONE OF THE PROCESSES TERMINATED BADLY: CLEANING UP
[proxy:0:1 at cn01] HYD_pmcd_pmip_control_cmd_cb (./pm/pmiserv/pmip_cb.c:868): assert (!closed) failed
[proxy:0:1 at cn01] HYDT_dmxu_poll_wait_for_event (./tools/demux/demux_poll.c:77): callback returned error status
[proxy:0:1 at cn01] main (./pm/pmiserv/pmip.c:208): demux engine error waiting for event
APPLICATION TERMINATED WITH THE EXIT STRING: Hangup (signal 1)
[ddal at admin mpi_uygulamalar]$ 

_______________________________________________
mpich-discuss mailing list
mpich-discuss at mcs.anl.gov
https://lists.mcs.anl.gov/mailman/listinfo/mpich-discuss




-- 
|||| Mandar Gurav ||||



-- 
|||| Mandar Gurav ||||

-----Inline Attachment Follows-----


_______________________________________________
mpich-discuss mailing list
mpich-discuss at mcs.anl.gov
https://lists.mcs.anl.gov/mailman/listinfo/mpich-discuss



      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.mcs.anl.gov/pipermail/mpich-discuss/attachments/20110202/205835c1/attachment-0001.htm>