Fortran MPI代码中的标准输出

if(rank==0) write(*,*) ...

program test

  use mpi

  implicit none

  integer :: ierr
  integer :: nproc
  integer :: rank

  integer :: stdout

  call mpi_init(ierr)
  call mpi_comm_rank(mpi_comm_world, rank, ierr)
  call mpi_comm_size(mpi_comm_world, nproc, ierr)

  select case(rank)
  case(0)
     stdout = 6
  case default
     stdout = 7
     open(unit=stdout, file=\'/dev/null\')
  end select

  write(stdout,*) \"Hello from rank=\", rank

  call mpi_finalize(ierr)

end program test

$ mpirun -n 10 ./a.out
Hello from rank=           0