机群应用开发并行编程原理及程序设计讲义.ppt

* MPI并行程序设计 */217 MPI_Type_commit( onerow ); begin_row=1; end_row=myarysize; up=myid-1; if (up0) up=MPI_PROC_NULL; down=myid+1; if (down3) down=MPI_PROC_NULL; if (myid == 0) begin_row=2; if (myid == 3) end_row=myarysize-1; for (n=0; nnsteps; n++) { MPI_Sendrecv(a[1][0],1,onerow,up,1000,a[myarysize+1][0],1,onerow,down,1000,MPI_COMM_WORLD,status); MPI_Sendrecv(a[myarysize][0],1,onerow,down,1000,a[0][0],1,onerow,up,1000,MPI_COMM_WORLD,status); * MPI并行程序设计 */217 for (i=begin_row;i=end_row;i++ ) for ( j=1;jarysize-1;j++) b[i][j] = (a[i][j+1]+a[i][j-1