29.01.2015 Views

Dr. David Cronk Innovative Computing Lab University of ... - It works!

Dr. David Cronk Innovative Computing Lab University of ... - It works!

Dr. David Cronk Innovative Computing Lab University of ... - It works!

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Collective Communication:<br />

Gatherv (cont)<br />

nprocs<br />

….<br />

nprocs<br />

CALL MPI_COMM_SIZE(MPI_COMM_WORLD, nprocs, ierr)<br />

CALL MPI_COMM_RANK(MPI_COMM_WORLD, myrank, ierr)<br />

scount = myrank+1<br />

displs(1) = 0<br />

rcounts(1) = 1<br />

DO I=2,nprocs<br />

displs(I) = displs(I-1) + I – 1<br />

rcounts(I) = I<br />

ENDDO<br />

CALL MPI_GATHERV(sbuff, scount, MPI_INT, rbuff, rcounts,<br />

displs, MPI_INT, root, MPI_COMM_WORL, ierr)<br />

<strong>David</strong> <strong>Cronk</strong> 95

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!