Basic HTML version of Foils prepared 19 September 98

Foil 78 Jacobi Iteration: send guard values

From MPI Message Passing Interface Computational Science for Simulations -- Fall Semester 1998. by Geoffrey C. Fox, Nancy McCracken


1 DO WHILE (err > tol)
  • CALL MPI_SEND(u(1,1),
  • nxblock,MPI_REAL,nbrleft,0,comm2d, ierr)
  • CALL MPI_RECV(u(1,nylocal),
  • nxblock,MPI_REAL,nbrright,0,comm2d, ierr)
  • CALL MPI_SEND(u(1,nylocal),
  • nxblock,MPI_REAL, nbrright,1,comm2d, ierr)
  • CALL MPI_RECV(u(1,0),
  • nxblock,MPI_REAL,nbrleft,1,comm2d, ierr)
  • CALL MPI_SEND(u(1,1),
  • 1,rowtype,nbrtop,2,comm2d, ierr)
  • CALL MPI_RECV(u(nxlocal,1),
  • 1,rowtype,nbrbottom,2,comm2d, ierr)
  • CALL MPI_SEND(u(nxlocal-1,1),
  • 1,rowtype,nbrbottom,3,comm2d, ierr)
  • CALL MPI_RECV(u(0,1),1,rowtype,nbrtop,3,comm2d, ierr)

in Table To:


© Northeast Parallel Architectures Center, Syracuse University, npac@npac.syr.edu

If you have any comments about this server, send e-mail to webmaster@npac.syr.edu.

Page produced by wwwfoil on Sun Apr 11 1999