fortran 简单并行计算出错

Rplay

各位大神，小弟最近写了一个极为简单的并行程序，但是始终报错，小弟新手也找不出原因，求各位大神看看，小弟不胜感激。

PROGRAM MAIN
    USE MPI
    IMPLICIT NONE

    INTEGER myid,rc,ierr,i,j,ii,jj,status
    INTEGER,PARAMETER:: numprocs=3,nx=9,master=0

    CALL MPI_INIT(ierr)
    CALL MPI_COMM_RANK(MPI_COMM_WORLD,myid,ierr)
    CALL MPI_COMM_SIZE(MPI_COMM_WORLD,numprocs,ierr)

        DO j=1,2
            IF(myid==master) THEN
                ii=2
                CALL MPI_SEND(ii,1,MPI_INTEGER,j,j,MPI_COMM_WORLD,ierr)
            ELSE
                CALL MPI_RECV(ii,1,MPI_INTEGER,master,j,MPI_COMM_WORLD,status,ierr)
                print*, ii
            ENDIF
        ENDDO

    CALL MPI_FINALIZE(rc)

    END

报错如图