<div dir="ltr">Yes, I am comparing original x new implementation.<div><br></div><div>The original implementation is as follows.</div><div><br></div><div><span style="font-family:'courier new',monospace">c-----------------------------------------------------------------------</span><br>

</div><div><div><font face="courier new, monospace">      subroutine my_receiver_original</font></div><div><font face="courier new, monospace">c     ------------------------------------------------------------------</font></div>

<div><font face="courier new, monospace">      (...)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">c     Local</font></div><div><font face="courier new, monospace">c     -----</font></div>

<div><font face="courier new, monospace">      integer*4 m_stat(MPI_STATUS_SIZE)</font></div><div><font face="courier new, monospace">      character card*(zbuf)      ! buffer for messages received</font></div><div><font face="courier new, monospace"><br>

</font></div><div><font face="courier new, monospace">      do while( keep_receiving )</font></div><div><font face="courier new, monospace">        call MPI_RECV(card, zbuf, MPI_CHARACTER,</font></div><div><font face="courier new, monospace">     .                MPI_ANY_SOURCE, M_RECCSV, MY_COMM,</font></div>

<div><font face="courier new, monospace">     .                m_stat, m_ierr )</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">c       Process message: disk IO</font></div>

<div><font face="courier new, monospace">c       ---------------</font></div><div><font face="courier new, monospace">        <DO SOMETHING></font></div><div><font face="courier new, monospace">        if( SOMETHING_ELSE ) then</font></div>

<div><font face="courier new, monospace">          keep_receiving = .false.</font></div><div><font face="courier new, monospace">        end if</font></div><div><font face="courier new, monospace">      end do</font></div>

<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">      (...)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">      return</font></div>

<div><font face="courier new, monospace">      end</font></div></div><div class="gmail_extra"><br>Regards,</div><div class="gmail_extra">Luiz</div><div class="gmail_extra"><br><div class="gmail_quote">On 16 January 2014 16:19, Balaji, Pavan <span dir="ltr"><<a href="mailto:balaji@mcs.anl.gov" target="_blank">balaji@mcs.anl.gov</a>></span> wrote:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="im"><br>
On Jan 16, 2014, at 12:16 PM, Luiz Carlos da Costa Junior <<a href="mailto:lcjunior@ufrj.br">lcjunior@ufrj.br</a>> wrote:<br>
> No, these failures don't occur all the time. I have a successful run (with my original implementation) which I am using as the base case for comparison.<br>
<br>
</div>What are the two cases you are comparing?  Original implementation vs. new implementation?  What’s the original implementation?<br>
<div class="HOEnZb"><div class="h5"><br>
  — Pavan<br>
<br>
_______________________________________________<br>
discuss mailing list     <a href="mailto:discuss@mpich.org">discuss@mpich.org</a><br>
To manage subscription options or unsubscribe:<br>
<a href="https://lists.mpich.org/mailman/listinfo/discuss" target="_blank">https://lists.mpich.org/mailman/listinfo/discuss</a><br>
</div></div></blockquote></div><br></div></div>