MPI Send( buf, m/2, MPI INT, myid-l, myid-I if(myid!=o)&&(midl=p-1)) MPI COMM WORLD) if(myid==p-l)&&(myid%2==0)) MPI Send(&(a(0, 0)), m/2*N MPI FLOAT, myid+I IPI Send(&(a( m/2,0), m/2*N, MPI FLOAT, myid-l, myid-1 MPI COMM WORLD) MPI COMM WORLD) MPI Send(&(e(0,0), m/2*N MPI Send(&l(e(m/2, 0)), m/2N MPI FLOAT, myid+1 MPI FLOAT, myid-1, myid-I myd+I MPI COMM WORLD) MPI COMM WORLD: MPI Send( &b(m/2), m/2, MPI Send(&b(0), m/2, MPI INT, myid-1, myid-1 MPI INT, myid+1, MPI COMM WORLD) 1, MPI COMM WORLD) for(F0: j<N: j++) MPI Send(&(a(m/2, 0), m/2* a(+m2)3)=a(1j) N, MPI FLOAT, myid-1 for(i=0,i<m2;+) myid-I MPI COMM WORLD) e(Hm2))=e(j); MPI Send( &(e(m/2, 0), m/2* b(+m2)b(i) N, MPI FLOAT, myid-I mvid-I MPI Recv(&(a(0,0), m/2*N MPI COMM ORLD); MPI FLOAT, myid-1, myid MPI COMM WORLD MPI Send(&b(m/2), m/2, &status), MPI INT, myid-I myid-I MPI Recv(&(e(0,0), m/2*N MPI COMM WORLD) MPI FLOAT, myid-1, myid, MPI COMM WORLD MPI Recv(&(a(0, 0), m/2*N &status); MPI FLOAT, myid-I MPI Recv(&b(0), m/2, MPI COMM WORLD MPI INT, myid-1, myid, MPI COMM WORLD &status) MPI Recv(&(e(0, 0),m/2*NMPI_Send(buf,m/2,MPI_INT, myid-1, myid-1, MPI_COMM_WORLD); } if ((myid==p-1)&&(myid%2==0)) { MPI_Send(&(a(m/2,0)),m/2*N, MPI_FLOAT,myid-1,myid-1, MPI_COMM_WORLD); MPI_Send(&(e(m/2,0)),m/2*N, MPI_FLOAT,myid-1,myid-1, MPI_COMM_WORLD); MPI_Send(&b(m/2),m/2, MPI_INT,myid-1,myid-1, MPI_COMM_WORLD); for(i=0;i<m/2;i++) for(j=0;j<N;j++) a((i+m/2),j)=a(i,j); for(i=0;i<m/2;i++) for(j=0;j<N;j++) e((i+m/2),j)=e(i,j); for(i=0;i<m/2;i++) b(i+m/2)=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); } if ((myid!=0)&&(myid!=p-1)) { if(myid%2==0) { MPI_Send(&(a(0,0)),m/2*N, MPI_FLOAT,myid+1, myid+1, MPI_COMM_WORLD); MPI_Send(&(e(0,0)),m/2*N, MPI_FLOAT,myid+1, myid+1, MPI_COMM_WORLD); MPI_Send(&b(0),m/2, MPI_INT,myid+1, myid+1, MPI_COMM_WORLD); MPI_Send(&(a(m/2,0)),m/2* N, MPI_FLOAT,myid-1, myid-1, MPI_COMM_WORLD); MPI_Send(&(e(m/2,0)),m/2* N, MPI_FLOAT,myid-1, myid-1, MPI_COMM_ ORLD); MPI_Send(&b(m/2),m/2, MPI_INT,myid-1, myid-1, MPI_COMM_WORLD); 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