I'm not quite clear what the problem is that you're running in to -- you just said that there is "some problem with MPI_barrier".
What problem, exactly, is happening with your code? Be as precise and specific as possible. It's kinda hard to tell what is happening in the code snippet below because there's a lot of variables used that are not defined in your snippet -- so we have no way of knowing what is going on just from these few lines of code. > On Aug 10, 2018, at 11:52 AM, Diego Avesani <diego.aves...@gmail.com> wrote: > > Dear all, > > I have a MPI program with three groups with some CPUs in common. > > I have some problem with MPI_barrier. > > I try to make my self clear. I have three communicator: > INTEGER :: MPI_GROUP_WORLD > INTEGER :: MPI_LOCAL_COMM > INTEGER :: MPI_MASTER_COMM > > when I apply: > IF(MPIworld%rank.EQ.0) WRITE(*,*) > > CALL MPI_Barrier(MPI_COMM_WORLD,MPIworld%iErr) > > IF(MPI_COMM_NULL .NE. MPI_MASTER_COMM)THEN > WRITE(*,'(A12,I3,A4,F10.5)') 'master rank',MPImaster%rank,'eff',eff > ENDIF > > CALL MPI_Barrier(MPI_COMM_WORLD,MPIworld%iErr) > > IF(MPIworld%rank.EQ.0) WRITE(*,*) > > What could be the problem? > Thanks a lot, > Diego > > > _______________________________________________ > users mailing list > users@lists.open-mpi.org > https://lists.open-mpi.org/mailman/listinfo/users -- Jeff Squyres jsquy...@cisco.com _______________________________________________ users mailing list users@lists.open-mpi.org https://lists.open-mpi.org/mailman/listinfo/users
