6 INTEGER myid,IERR,NPROCS, stat(MPI_STATUS_SIZE)
10 CALL MPI_COMM_RANK(MPI_COMM_WORLD,myid,IERR)
11 CALL MPI_COMM_SIZE(MPI_COMM_WORLD,NPROCS,IERR)
21 CALL MPI_SEND(A(1,1),LDA*(J1-J0+1),MPI_COMPLEX,1,
22 + 0,MPI_COMM_WORLD,IERR)
24 CALL MPI_RECV(A(1,1),LDA*(J1-J0+1),MPI_COMPLEX,
25 + 0,MPI_ANY_TAG,MPI_COMM_WORLD,stat,IERR)
27 PRINT *,'A(1,1) = ',A(1,1),' A(1,2) = ',A(1,2)
28 PRINT *,'A(2,1) = ',A(2,1),' A(2,2) = ',A(2,2)
30 CALL MPI_FINALIZE(IERR)