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
