MPI FLOAT, myid-1 MPI FLOAT, myid-1, myid MPI COMM WORLD MPI COMM WORLD &status); &status) MPI Recv(&b(0), m/2, MPI Recv(&b(o), m/2, PI INT, myid -1, myid, PI INT, myid-1, myid, MPI COMM WORLD, MPI COMM WORLD &status) MPI Recv(&(a(m/, 0), m/2+ MPI Recv(&(a(m/2, 0)), m/2 N, MPI FLOAT, myid N, MPI FLOAT, myid+ myid, MPI COMM WORLD, &status) MP COMM WORLD &status) MPI Recv(&(e(m/2, 0)), m/2* N, MPI FLOAT, myid+ MPI Recv(&(e(m/2, 0)), m/2* , myid, MPI COMM N, MPI FLOAT,myid+I WORLD, &status); myid MPI COMM WORLD MPI INT,myid+ 1, myid, MPI COMM WORLD MPI Recv(&b(m/2), m/2 MPI INT, myid+ l, myid, MPI COMM WORLD if( myid%21=0) MPI Send(&(buffer(0, 0), m/2 I FLOAT, for( F0 <N j++) myid+1. myid+1 ffer(ij=a(ij) MPI COMM WORLD for(F=0;i<m;计++ for(=0 j<N:j++) MPI Send(&(buffet(0, 0), m/2 for(i=0;<m;i++) myid+1, buf(=b(i); MPI COMM WORLD) MPI Recv(&(a(0, 0)), m/2"N MPI Send(&buf[o], m/2, MPI MPI FLOAT, myid-1 INT, myid+ 1, myid+1 MPI COMM WORLD) MPI COMM WORLD MPI Send(&(buffer(m/2, 0)), 22*N MPI FLOAT. MPI Recv(&(e(0,0), m/2*N myid-l, myid-1MPI_FLOAT,myid-1, myid, MPI_COMM_WORLD, &status); MPI_Recv(&b(0),m/2, MPI_INT,myid-1,myid, MPI_COMM_WORLD, &status); MPI_Recv(&(a(m/2,0)),m/2* N, MPI_FLOAT,myid+1, myid, MPI_COMM_ WORLD,&status); MPI_Recv(&(e(m/2,0)),m/2* N, MPI_FLOAT,myid+1 ,myid, MPI_COMM_ WORLD, &status); MPI_Recv(&b(m/2),m/2, MPI_INT,myid+1,myid, MPI_COMM_WORLD, &status); } if(myid%2!=0) { for(i=0;i<m;i++) for(j=0;j<N;j++) buffer(i,j)=a(i,j); for(i=0;i<m;i++) for(j=0;j<N;j++) buffee(i,j)=e(i,j); for(i=0;i<m;i++) buf[i]=b(i); MPI_Recv(&(a(0,0)),m/2*N, MPI_FLOAT,myid-1, myid, MPI_COMM_WORLD, &status); MPI_Recv(&(e(0,0)),m/2*N, MPI_FLOAT,myid-1, myid, MPI_COMM_WORLD, &status); MPI_Recv(&b(0),m/2, MPI_INT,myid-1,myid, MPI_COMM_WORLD, &status); MPI_Recv(&(a(m/2,0)),m/2* N, MPI_FLOAT,myid+1, myid, MPI_COMM_WORLD, &status); MPI_Recv(&(e(m/2,0)),m/2* N, MPI_FLOAT,myid+1, myid, MPI_COMM_WORLD, &status); MPI_Recv(&b(m/2),m/2, MPI_INT,myid+1,myid, MPI_COMM_WORLD, &status); MPI_Send(&(buffer(0,0)),m/2 *N,MPI_FLOAT, myid+1,myid+1, MPI_COMM_WORLD); MPI_Send(&(buffee(0,0)),m/2 *N,MPI_FLOAT,myid+1 ,myid+1, MPI_COMM_WORLD); MPI_Send(&buf[0],m/2,MPI_ INT,myid+1,myid+1, MPI_COMM_WORLD); MPI_Send(&(buffer(m/2,0)),m /2*N,MPI_FLOAT, myid-1,myid-1