如果你想象编写的代码没有任何MPI东西，你会看到每个处理器都以大小为1000的B数组开始，因为你这样声明：

integer b(1000)

MPI_Init和MPI_Finalise都不参与分配或取消分配此存储器中的任何一个。

同样，你可以在运行时（C）分配一个数组，它会一直存在直到你明确取消分配它为止：

PROGRAM main
use mpi
implicit none

integer myr, numpr, ier
integer b(1000)
INTEGER, ALLOCATABLE :: C(:)



call MPI_INIT(ier)
call MPI_COMM_RANK(MPI_COMM_WORLD, myr, ier)
call MPI_COMM_SIZE(MPI_COMM_WORLD, numpr, ier)

ALLOCATE(C(1000))

if (myr .eq. 0) then
  b = 100  ! Set all values to 100
  c = 99   ! Ditto 99
endif 

call MPI_BCAST(b, 1000, MPI_INTEGER, 0, MPI_COMM_WORLD, ier)
call MPI_BCAST(c, 1000, MPI_INTEGER, 0, MPI_COMM_WORLD, ier)

call MPI_FINALIZE(ier)

PRINT *, myr, B(200)
PRINT *, myr, C(200)


DEALLOCATE(C)

END PROGRAM main

产生输出：

           1         100
           1          99
           0         100
           0          99

另外，请注意，你在初始代码中输入了错字（我认为）。你只发送B的前100个成员（大小为1000）。