Basic HTML version of Foils prepared August 29 98

Foil 60 Irregular Mesh: Sequential Program

From Designing and Building Parallel Programs 2: openMP Shared Memory Programming Language DoD Modernization Tutorial -- 1995-1998. by Ian Foster, Gina Goff, Ehtesham Hayder, Chuck Koelbel(Some foils prepared by Kuck & Associates, Inc.)
REAL x(nnode), y(nnode), flux
INTEGER iedge(nedge,2)
err = tol * 1e6
DO WHILE (err > tol)
  • DO i = 1, nedge
    • flux = (y(iedge(i,1))-y(iedge(i,2))) / 2
    • x(iedge(i,1)) = x(iedge(i,1)) - flux
    • x(iedge(i,2)) = x(iedge(i,2)) + flux
    • err = err + flux(i)*flux(i)
  • END DO
  • err = err / nedge
  • DO j = 1, nnode
    • y(i) = x(i)
  • END DO
END DO

© 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