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!
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
EXAMPLE<br />
REAL a(100,100), B(100,100)<br />
CALL MPI_COMM_RANK (MPI_COMM_WORLD, myrank, ierr)<br />
CALL MPI_TYPE_SIZE (MPI_REAL, size<strong>of</strong>real, ierr)<br />
CALL MPI_TYPE_VECTOR (100, 1, 100,MPI_REAL, rtype, ierr)<br />
CALL MPI_TYPE_CREATE_HVECTOR (100, 1, size<strong>of</strong>real, rtype,<br />
xpose, ierr)<br />
CALL MPI_TYPE_COMMIT (xpose, ierr)<br />
CALL MPI_SENDRECV (a, 1, xpose, myrank, 0, b, 100*100,<br />
MPI_REAL, myrank, 0, MPI_COMM_WORLD, status, ierr)<br />
<strong>David</strong> <strong>Cronk</strong> 133