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
1 PARAMETER(nxblock=nx/nxp, nyblock=ny/nyp, nxlocal=nxblock+1, nylocal=nyblock+1)
2 REAL u(0:nxlocal,0:nylocal),
3 unew(0:nxlocal,0:nylocal),
4 f(0:nxlocal,0:nylocal)
5 REAL coord(1:2), dims(1:2), periods(1,2)
6 dims(1) = nxp; dims(2) = nyp;
7 periods(1) = .false.;
8 periods(2) = .false.
9 reorder = .true.
10 ndim = 2
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