Yes, I am comparing original x new implementation.

The original implementation is as follows.

c-----------------------------------------------------------------------
      subroutine my_receiver_original
c     ------------------------------------------------------------------
      (...)

c     Local
c     -----
      integer*4 m_stat(MPI_STATUS_SIZE)
      character card*(zbuf)      ! buffer for messages received

      do while( keep_receiving )
        call MPI_RECV(card, zbuf, MPI_CHARACTER,
     .                MPI_ANY_SOURCE, M_RECCSV, MY_COMM,
     .                m_stat, m_ierr )

c       Process message: disk IO
c       ---------------
        <DO SOMETHING>
        if( SOMETHING_ELSE ) then
          keep_receiving = .false.
        end if
      end do

      (...)

      return
      end

Regards,
Luiz

On 16 January 2014 16:19, Balaji, Pavan <balaji@mcs.anl.gov> wrote:

On Jan 16, 2014, at 12:16 PM, Luiz Carlos da Costa Junior <lcjunior@ufrj.br> wrote:
> 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.

What are the two cases you are comparing?  Original implementation vs. new implementation?  What’s the original implementation?

  — Pavan

_______________________________________________
discuss mailing list     discuss@mpich.org
To manage subscription options or unsubscribe:
https://lists.mpich.org/mailman/listinfo/discuss