<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Word 14 (filtered medium)">
<style><!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri","sans-serif";}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="EN-US" link="blue" vlink="purple">
<div class="WordSection1">
<p class="MsoNormal">Hi Wesley,<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Here is my server.c and client.c.<o:p></o:p></p>
<p class="MsoNormal">I have explicitly added ‘assert(0);’ in client.c.<o:p></o:p></p>
<p class="MsoNormal">However my receive hangs in server and does not complete.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Could you please enlighten on this more.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Thanks,<o:p></o:p></p>
<p class="MsoNormal">Hirak<o:p></o:p></p>
<div style="mso-element:para-border-div;border:none;border-bottom:solid windowtext 1.0pt;padding:0in 0in 1.0pt 0in">
<p class="MsoNormal" style="border:none;padding:0in"><o:p> </o:p></p>
</div>
<p class="MsoNormal"><span style="font-family:"Courier New""><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include <sys/types.h><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include <unistd.h><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include "mpi.h"<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include <stdio.h><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include <assert.h><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include <stdlib.h><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include <fcntl.h><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">int main (int argc, char* argv[])<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">{<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Init (&argc, &argv);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Errhandler_set(MPI_COMM_WORLD,MPI_ERRORS_RETURN);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> <o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> char portname[MPI_MAX_PORT_NAME];<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Open_port(MPI_INFO_NULL, portname);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Publish_name("RandomSession", MPI_INFO_NULL, portname);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> printf ("Successfully published portname : %s\n", portname);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Comm newComm ;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Comm_accept (portname, MPI_INFO_NULL, 0, MPI_COMM_SELF, &newComm);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> printf ("Successfully connected to client\n");<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Errhandler_set(newComm, MPI_ERRORS_RETURN);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> <o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> printf ("Waiting on receive\n");<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> int val = 0 ;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Status status;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> int errcode = MPI_Recv(&val, 1, MPI_INT, 0, 99, newComm, &status);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> int errclass ;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Error_class(errcode, &errclass);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> if (errclass == MPI_SUCCESS) {<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> printf ("Received a message with tag 99\n");<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Comm_disconnect (&newComm);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> printf ("Disconnected client\n");<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> } else {<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> printf ("Receive error\n");<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> }<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Unpublish_name("RandomSession", MPI_INFO_NULL, portname);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Close_port(portname);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Finalize();<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""><o:p> </o:p></span></p>
<div style="mso-element:para-border-div;border:none;border-bottom:solid windowtext 1.0pt;padding:0in 0in 1.0pt 0in">
<p class="MsoNormal" style="border:none;padding:0in"><span style="font-family:"Courier New"">}<o:p></o:p></span></p>
</div>
<p class="MsoNormal"><span style="font-family:"Courier New""><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include <sys/types.h><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include <unistd.h><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include "mpi.h"<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include <stdio.h><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include <assert.h><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include <stdlib.h><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">#include <fcntl.h><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">int main (int argc, char* argv[])<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">{<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Init (&argc, &argv);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Errhandler_set(MPI_COMM_WORLD,MPI_ERRORS_RETURN);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> <o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> char portname[MPI_MAX_PORT_NAME];<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> if (MPI_Lookup_name("RandomSession", MPI_INFO_NULL, portname) == MPI_SUCCESS) {<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> printf ("Successfully got portname : %s\n", portname);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Comm newComm ;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Comm_connect (portname, MPI_INFO_NULL, 0, MPI_COMM_SELF, &newComm);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> printf ("Successfully connected to server\n");<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Errhandler_set(newComm, MPI_ERRORS_RETURN);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> <o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> <b> assert (0);<o:p></o:p></b></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> int val = 0 ;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Send(&val, 1, MPI_INT, 0, 99, newComm);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> printf ("Send a message with tag 99\n");<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Comm_disconnect (&newComm);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> printf ("Disconnected client\n");<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> }<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New""> MPI_Finalize();<o:p></o:p></span></p>
<div style="mso-element:para-border-div;border:none;border-bottom:solid windowtext 1.0pt;padding:0in 0in 1.0pt 0in">
<p class="MsoNormal" style="border:none;padding:0in"><span style="font-family:"Courier New"">}<o:p></o:p></span></p>
</div>
<p class="MsoNormal"><span style="font-family:"Courier New"">MPICH Version: 3.0.4<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">MPICH Release date: Wed Apr 24 10:08:10 CDT 2013<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">MPICH Device: ch3:sock<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">MPICH configure: --prefix /home/jlevitt/local/mpich-3.0.4/linux_x86_64 --disable-f77 --disable-fc --disable-f90modules --disable-cxx --enable-fast=nochkmsg --enable-fast=notiming --enable-fast=ndebug
--enable-fast=O3 --with-device=ch3:sock CFLAGS=-O3 -fPIC CXXFLAGS=-O3 -fPIC<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">MPICH CC: /u/prod/gnu/gcc/20121129/gcc-4.5.0-linux_x86_64/bin/gcc -O3 -fPIC -O3<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">MPICH CXX: no -O3 -fPIC
<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">MPICH F77: no <o:p>
</o:p></span></p>
<p class="MsoNormal"><span style="font-family:"Courier New"">MPICH FC: no <o:p></o:p></span></p>
</div>
</body>
</html>