Basic HTML version of Foils prepared 19 September 98

Foil 75 Jacobi Iteration: Fortran MPI Program

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


PARAMETER(nxblock=nx/nxp, nyblock=ny/nyp, nxlocal=nxblock+1, nylocal=nyblock+1)
REAL u(0:nxlocal,0:nylocal),
unew(0:nxlocal,0:nylocal),
f(0:nxlocal,0:nylocal)
REAL coord(1:2), dims(1:2), periods(1,2)
dims(1) = nxp; dims(2) = nyp;
periods(1) = .false.;
periods(2) = .false.
reorder = .true.
ndim = 2



© 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