<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content=text/html;charset=KOI8-R>
<META content="MSHTML 6.00.6000.16705" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#ffffff>
<DIV dir=ltr align=left><SPAN class=167243918-17092008><FONT face=Arial 
color=#0000ff size=2>That "no route to host" is what is likely causing the MPI 
program to hang as well. You may want to check with a system 
administrator.</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=167243918-17092008><FONT face=Arial 
color=#0000ff size=2></FONT></SPAN>&nbsp;</DIV>
<DIV dir=ltr align=left><SPAN class=167243918-17092008><FONT face=Arial 
color=#0000ff size=2>Rajeev</FONT></SPAN></DIV><BR>
<BLOCKQUOTE 
style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #0000ff 2px solid; MARGIN-RIGHT: 0px">
  <DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
  <HR tabIndex=-1>
  <FONT face=Tahoma size=2><B>From:</B> owner-mpich-discuss@mcs.anl.gov 
  [mailto:owner-mpich-discuss@mcs.anl.gov] <B>On Behalf Of </B>The 
  Source<BR><B>Sent:</B> Wednesday, September 17, 2008 12:18 PM<BR><B>To:</B> 
  mpich-discuss@mcs.anl.gov<BR><B>Subject:</B> Re: [mpich-discuss] Mpich2: 
  problems with communications<BR></FONT><BR></DIV>
  <DIV></DIV>That's stange. I fixed all errors mpdcheck reported (127.0.0.1) 
  problem. Now mpd listens on proper address. I also configured ssh so both 
  machines can access each other without password (like mentioned in 
  installation notes). I can connect two mpd's manually by launching them on 
  each machine:<BR>on machine 1 - mpd &amp;<BR>on machine 2 - mpd -h 
  &lt;hostname&gt; -p &lt;port&gt;<BR>mpdtrace -l shows both mpd's are running 
  and on the proper addresses.<BR>However automatic init by mpdboot doesn't 
  work. Sais it can't connect to remote mpd.<BR>All firewalls are disabled on 
  both machines. Selinuxes are also disabled.<BR>ssh and ping work in both 
  directions.<BR>I'm out of ideas.<BR>Except maybe some strange things happening 
  with my network: some programs like ssh or ping can access virtual machine, 
  and some like smbclient or rsh say 'no route to host'. That's really 
  weird.<BR><BR>Rajeev Thakur пишет: 
  <BLOCKQUOTE cite=mid:000c01c918e3$8f6b3360$860add8c@mcs.anl.gov type="cite">
    <META content="MSHTML 6.00.6000.16705" name=GENERATOR>
    <DIV dir=ltr align=left><SPAN class=125283516-17092008><FONT face=Arial 
    color=#0000ff size=2>Looks like the two processes are not able to connect to 
    each other. Is there a firewall or something in the networking configuration 
    on the two machines that may prevent that. You can use&nbsp;the mpdcheck 
    utility to diagnose the problem. See Appendix A.2 of the installation 
    guide.</FONT></SPAN></DIV>
    <DIV dir=ltr align=left><SPAN class=125283516-17092008></SPAN>&nbsp;</DIV>
    <DIV dir=ltr align=left><SPAN class=125283516-17092008><FONT face=Arial 
    color=#0000ff size=2>Rajeev</FONT></SPAN></DIV><BR>
    <BLOCKQUOTE 
    style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: rgb(0,0,255) 2px solid; MARGIN-RIGHT: 0px">
      <DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
      <HR tabIndex=-1>
      <FONT face=Tahoma size=2><B>From:</B> <A class=moz-txt-link-abbreviated 
      href="mailto:owner-mpich-discuss@mcs.anl.gov">owner-mpich-discuss@mcs.anl.gov</A> 
      [<A class=moz-txt-link-freetext 
      href="mailto:owner-mpich-discuss@mcs.anl.gov">mailto:owner-mpich-discuss@mcs.anl.gov</A>] 
      <B>On Behalf Of </B>The Source<BR><B>Sent:</B> Wednesday, September 17, 
      2008 10:46 AM<BR><B>To:</B> <A class=moz-txt-link-abbreviated 
      href="mailto:mpich-discuss@mcs.anl.gov">mpich-discuss@mcs.anl.gov</A><BR><B>Subject:</B> 
      Re: [mpich-discuss] Mpich2: problems with 
      communications<BR></FONT><BR></DIV>cpi starts and writes the 
      following:<BR>Process 0 of 2 is on WARZONE<BR>Process 1 of 2 is on 
      F9Virtual64<BR>Nothing more. It never exits. I didn't pass any parameters 
      to cpi. Should I?<BR><BR><PRE wrap="">MPI_Bcast(&amp;size, 1, MPI_INT, 0, MPI_COMM_WORLD) returns success, my program then prints that it is about to call next broadcast, but that's it, next broadcast never returns.
My second node is virtual Fedora 9 x86_64 (VMWare), running on server node (real Fedora 9 x86_64). Could it be the problem?
    </PRE><BR><BR>Rajeev Thakur пишет: 
      <BLOCKQUOTE cite=mid:8EAC407BE372431588B26E0455101FC7@thakurlaptop 
      type="cite"><PRE wrap="">Does the cpi example from the examples directory run? 

Does this program fail after the very first broadcast, i.e.,
  </PRE>
        <BLOCKQUOTE type="cite"><PRE wrap="">    if(MPI_Bcast(&amp;size, 1, MPI_INT, 0, MPI_COMM_WORLD)!=MPI_SUCCESS)
    </PRE></BLOCKQUOTE><PRE wrap=""><!---->
Rajeev

  </PRE>
        <BLOCKQUOTE type="cite"><PRE wrap="">-----Original Message-----
From: <A class=moz-txt-link-abbreviated href="mailto:owner-mpich-discuss@mcs.anl.gov" moz-do-not-send="true">owner-mpich-discuss@mcs.anl.gov</A> 
[<A class=moz-txt-link-freetext href="mailto:owner-mpich-discuss@mcs.anl.gov" moz-do-not-send="true">mailto:owner-mpich-discuss@mcs.anl.gov</A>] On Behalf Of The Source
Sent: Wednesday, September 17, 2008 7:45 AM
To: <A class=moz-txt-link-abbreviated href="mailto:mpich-discuss@mcs.anl.gov" moz-do-not-send="true">mpich-discuss@mcs.anl.gov</A>
Subject: [mpich-discuss] Mpich2: problems with communications

I'm using mpich2 1.0.7. I installed and configured it on 2 
machines, started daemons.
The problems begin when I launch my program: first MPI_Bcast 
succeeds, but the second one (or any other communication 
function) hangs. Source code is attached.

Also when I call MPI_Bcast, second machine deamon prints the 
following:
F9Virtual64_mpdman_1 (run282): invalid msg from lhs; 
expecting ringsize
got: {}

Can anyone look at the code and tell me what's wrong?

#include &lt;mpi.h&gt;
#include &lt;stdio.h&gt;
#include &lt;string.h&gt;
#include &lt;math.h&gt;
#include &lt;sys/time.h&gt;

int main(int arg_c, char** arg_v)
{
    if(arg_c&lt;2)
    {
        printf("Input file not specified\n");
        return 0;
    }
    if(MPI_Init(&amp;arg_c, &amp;arg_v)!=MPI_SUCCESS)
    {
        printf("MPI initialization failed\n");
        return 0;
    }
    int ProcNum, ProcRank;
    MPI_Comm_size(MPI_COMM_WORLD, &amp;ProcNum);
    MPI_Comm_rank(MPI_COMM_WORLD, &amp;ProcRank);
   
    int size;
    double e;
    double* A;
    double* b;
    double* x, *xprev;
   
    FILE* f=0;
    if(!ProcRank)
    {
        f=fopen(arg_v[1], "r");
        if(!f)
        {
            printf("Error opening input file\n");
            MPI_Finalize();
            return 0;
        }
        fscanf(f, "%d", &amp;size);
        printf("Enter desired accuracy\n");
        scanf("%lf", &amp;e);
    }
    if(!ProcRank)
        printf("Broadcasting matrix size\n");
    if(MPI_Bcast(&amp;size, 1, MPI_INT, 0, MPI_COMM_WORLD)!=MPI_SUCCESS)
        if(!ProcRank)
            printf("Failed to broadcast matrix size\n");
    if(!ProcRank)
        printf("Broadcasting accuracy\n");
    if(MPI_Bcast(&amp;e, 1, MPI_DOUBLE, 0, MPI_COMM_WORLD)!=MPI_SUCCESS)
        if(!ProcRank)
            printf("Failed to broadcast accuracy\n");
    A=new double[size*size];
    b=new double[size];
    x=new double[size];
    xprev=new double[size];
   
    memset(x, 0, size*sizeof(double));
    memset(xprev, 0, size*sizeof(double));
   
    if(!ProcRank)
    {
        for(int i=0; i&lt;size; i++)
            for(int j=0; j&lt;size; j++)
                fscanf(f, "%lf", &amp;(A[i*size+j]));
        for(int i=0; i&lt;size; i++)
            fscanf(f, "%lf", &amp;(b[i]));
        fclose(f);
    }
   
    if(!ProcRank)
        printf("Waiting all processes to be initialized\n");
    MPI_Barrier(MPI_COMM_WORLD);
   
    if(!ProcRank)
        printf("Broadcasting matrix\n");
    MPI_Bcast(A, size*size, MPI_DOUBLE, 0, MPI_COMM_WORLD);
    if(!ProcRank)
        printf("Broadcasting b\n");
    MPI_Bcast(b, size, MPI_DOUBLE, 0, MPI_COMM_WORLD);
   
    double cursum, totalsum;
    int fin, itercount=0;
   
    if(!ProcRank)
        printf("Starting calculation\n");
    struct timeval tv1, tv2;
    gettimeofday(&amp;tv1, 0);
    do
    {
        MPI_Bcast(xprev, size, MPI_DOUBLE, 0, MPI_COMM_WORLD);
        itercount++;
        for(int i=0; i&lt;size; i++)
        {
            int snum=(size)/ProcNum;
            cursum=0.0;
            totalsum=0.0;
            for(int n=ProcRank*snum;
n&lt;((ProcRank==ProcNum-1)?(size):((ProcRank+1)*snum)); n++)
            {
                if(n&lt;=i-1)
                    cursum+=A[i*size+n]*x[n];
                else
                    cursum+=A[i*size+n]*xprev[n];
            }
            MPI_Barrier(MPI_COMM_WORLD);
            MPI_Reduce(&amp;cursum, &amp;totalsum, 1, MPI_DOUBLE, 
MPI_SUM, 0, MPI_COMM_WORLD);
            if(!ProcRank)
            {
                x[i]=xprev[i]-1.0/A[i*size+i]*(totalsum-b[i]);
            }
        }
        if(!ProcRank)
        {
            fin=1;
            for(int i=0; i&lt;size; i++)
                if(fabs(x[i]-xprev[i])&gt;e)
                    fin=0;
            if(!fin)
                memcpy(xprev, x, size*sizeof(double));
        }
        MPI_Bcast(&amp;fin, 1, MPI_INT, 0, MPI_COMM_WORLD);
    }
    while(!fin);
   
    gettimeofday(&amp;tv2, 0);
   
    if(!ProcRank)
    {
        printf("Matrix A:\n");
        for(int i=0; i&lt;size; i++)
        {
            for(int j=0; j&lt;size; j++)
                printf("%lf ", A[i*size+j]);
            printf("\n");
        }
        printf("\n");
        printf("Line b:\n");
        for(int i=0; i&lt;size; i++)
            printf("%lf ", b[i]);
        printf("\n");
       
        printf("Iteration number: %d\n", itercount);
        printf("Calculation time: %d microseconds\n", 
(tv2.tv_sec-tv1.tv_sec)*1000000+(tv2.tv_usec-tv1.tv_usec));
       
        printf("Results: \n");
        for(int i=0; i&lt;size; i++)
            printf("x%d=%lf\n", i+1, x[i]);
    }
   
    MPI_Barrier(MPI_COMM_WORLD);
   
    delete [] A;
    delete [] b;
    delete [] x;
    delete [] xprev;
   
    MPI_Finalize();
   
    return 0;
}


    </PRE></BLOCKQUOTE><PRE wrap=""><!---->

  </PRE></BLOCKQUOTE><BR></BLOCKQUOTE></BLOCKQUOTE><BR></BLOCKQUOTE></BODY></HTML>