求助，mpi消息传递的问题

crasywind

求助版上高人，程序里面消息传递的流程如图，程序如下。运行的时候，mpi老是没反应，不知道是出了什么问题，求指教。谢谢!
**************0的交接面的交换信息
IF(MYID.EQ.0) THEN      
        CALL MPI_RECV(TEMP(1),3000,MPI_REAL,2,20,MPI_COMM_WORLD,STATU
     & S,IERR)
        CALL MPI_RECV(TEMP3(1),3000,MPI_REAL,1,10,MPI_COMM_WORLD,STATU
     & S,IERR)
        END IF
***************2的交接面的交换信息
      IF(MYID.EQ.2) THEN
      CALL MPI_SEND(TEMP5(1),3000,MPI_REAL,0,20,MPI_COMM_WORLD,IERR)
        CALL MPI_RECV(TEMP7(1),3000,MPI_REAL,0,2,MPI_COMM_WORLD,STATU
     & S,IERR)
        CALL MPI_RECV(TEMP6(1),7000,MPI_REAL,1,12,MPI_COMM_WORLD,STATU
     & S,IERR)       
      END IF
***************1的交接面的交换信息
      IF(MYID.EQ.1) THEN
      CALL MPI_SEND(TEMP9(1),3000,MPI_REAL,0,10,MPI_COMM_WORLD,IERR)
      CALL MPI_SEND(TEMP10(1),7000,MPI_REAL,2,12,MPI_COMM_WORLD,IERR)
               
        CALL MPI_RECV(TEMP11(1),3000,MPI_REAL,0,1,MPI_COMM_WORLD,STATU
     & S,IERR)       
        CALL MPI_RECV(TEMP12(1),7000,MPI_REAL,2,21,MPI_COMM_WORLD,STATU
     & S,IERR）
      END IF

**************0 SEND TO 1AND 2
        IF(MYID.EQ.0) THEN
        CALL MPI_SEND(TEMP2(1),3000,MPI_REAL,2,2,MPI_COMM_WORLD,IERR)
        CALL MPI_SEND(TEMP4(1),3000,MPI_REAL,1,1,MPI_COMM_WORLD,IERR)
        END IF
       
**************2 SEND TO 1
        IF(MYID.EQ.2) THEN
        CALL MPI_SEND(TEMP81),7000,MPI_REAL,1,21,MPI_COMM_WORLD,IERR)
        END IF

yahoo2006

期待高手来解决啊