Hi,<br><br>I found the problem.<br>It was not the firewall.<br><br>The process hangs at MPI_Finalize.<br>When i abort the process I Get correct the results.<br><br>I think the MPI_Send causes this problem.<br>I tried using non-blocking send but ran in to the same issue.<br>
I have the same issue when i try running the CPi.c example <br>on multiple hosts.<br><br>The following is the code.<br>I don&#39;t see anything wrong with it.<br>What do you think causes this issue.<br><br><u>Program</u><br>
<br>#include &lt;<span class="il">mpi</span>.h&gt;<br>#include 
&lt;iostream&gt;<br>#include &lt;stdio.h&gt;  /* printf and BUFSIZ 
defined there */<br>#include &lt;stdlib.h&gt; /* exit defined there */<br><br><br>using
 namespace std;<br>
<br>int _tmain(int argc, char * argv[])<br>{<br>   int numtasks, rank, 
dest, source, rc, tag=1;  <br>    char inmsg, outmsg=&#39;F&#39;;<br>    
MPI_Status Stat;<br>    <br>    <br><br><br>    
MPI_Init(&amp;argc,&amp;argv);<br>
    MPI_Comm_size(MPI_COMM_WORLD, &amp;numtasks);<br>    
MPI_Comm_rank(MPI_COMM_WORLD, &amp;rank);<br><br>    if (rank == 0) {<br>   
       dest = 1;<br>          printf(&quot; Process %d: testing \n&quot;,rank);<br>   
      <br>
          rc = MPI_Send(&amp;outmsg, 1, MPI_CHAR, dest, tag, 
MPI_COMM_WORLD);<br>         printf(&quot; Process %d: sent \n&quot;,rank);<br><br>   
   } <br><br>    else if (rank == 1) {<br>      source = 0;<br>       
printf(&quot; Process %d: testing \n&quot;,rank);<br>
      rc = MPI_Recv(&amp;inmsg, 1, MPI_CHAR, source, tag, 
MPI_COMM_WORLD,&amp;Stat);<br><br>      printf(&quot;Process %d: Received %c 
char(s) from task %d with tag %d \n&quot;,<br>      rank, inmsg, 
Stat.MPI_SOURCE, Stat.MPI_TAG);<br>
<br>      <br>      }<br>    <br>    MPI_Finalize();<br>    return 0;<br>}<br><br>-Regards<br>-shridhar<br><br><br>