3 C This program hangs when run with the version of MPICH (1.1.2) distributed
4 C by Myricom using their ch_gm device. I've added it to our collection
5 C on general principle; note that it hasn't been put into a form usable
9 integer comm_size,comm_rank,status(mpi_status_size)
10 integer at_number,chunk
17 call mpi_comm_size(mpi_comm_world,comm_size,ierror)
18 call mpi_comm_rank(mpi_comm_world,comm_rank,ierror)
19 CALL MPI_BCAST(at_number,1,mpi_integer,0,mpi_comm_world,ierr)
20 CALL MPI_BCAST(chunk,1,mpi_integer,0,mpi_comm_world,ierr)
21 CALL MPI_BCAST(T0,1,mpi_double_precision,0,mpi_comm_world,ierr)
22 CALL MPI_BCAST(D,1,mpi_double_precision,0,mpi_comm_world,ierr)
24 write(6,*) 'Rank=3D',comm_rank,' finished bcast'
32 write(6,*) 'Rank=3D',comm_rank,' finished calculations'
33 call mpi_finalize(ierror)
36 C Run with mpirun -np 16 test