三维ＦＯＲＴＲＡＮ＋ＭＰＩ在收集数据用ＭＰＩ＿ＧＡＴＨＥＲＶ函数
call MPI_GATHERV(Ex,N_N,MPI_REAL,E_x,recvcounts,displs,MPI_REAL,mainid,MPI_COMM3D,ierr)
if(myid==mainid)then
　　open(1,file="ex_jomin.txt")
    open(2,file="ex_jomax.txt")
            do i=iomin,iomax
            do k=komin,komax
                write(1,"(i5,4x,i5,4xf15.6)") i,k,Ｅ＿x(i,jomin,k)
                write(2,"(i5,4x,i5,4xf15.6)") i,k,Ｅ＿x(i,jomax,k)

            end do
        end do
endif

结果程序就卡在ＭＰＩ＿ＧＡＴＨＥＲＶ上，下面的就跑不下去啦，为什么？？？
请教高手，谢谢！！！