【求助】麻烦各位高手看一下这个简单的程序错在哪儿？

allvic

一个简单的mpi+fortran程序
program hello
use mpi
integer :: myid,numprocs,rc,ierr
integer :: a(2),b(2)
call MPI_INIT(ierr)
call MPI_COMM_RANk(MPI_COMM_WORLD,myid,ierr)
call MPI_COMM_SIZE(MPI_COMM_WORLD,numprocs,ierr)
if (myid==0) then
  a(1)=1
  a(2)=2
  call MPI_SEND(a(1),2,MPI_INTEGER,1,99,MPI_COMM_WORLD,ierr)
else if (myid==1) then
  call MPI_RECV(b(1),2,MPI_INTEGER,0,99,MPI_COMM_WORLD,status,ierr)
  write(*,*) b(1),myid,"of",numprocs
end if
call MPI_FINALIZE(ierr)
end program
  得到的结果是：          0           1 of           2
请问为什么没有把a(1)的值传到b(1)呢？