Basic HTML version of Foils prepared August 7 98

Foil 28 Irregular Mesh: Sequential Program

From DoD HPF Training -- 5. Parallel Programming in HPF DoD Training and Others -- 1995-98. by Chuck Koelbel -- Rice University
REAL x(nnode), flux(nedge)
INTEGER iedge(nedge,2)
err = tol * 1e6
DO WHILE (err > tol)
  • DO i = 1, nedge
    • flux(i) = (x(iedge(i,1))-x(iedge(i,2))) / 2
    • err = err + flux(i)*flux(i)
  • END DO
  • DO i = 1, nedge
    • x(iedge(i,1)) = x(iedge(i,1)) - flux(i)
    • x(iedge(i,2)) = x(iedge(i,2)) + flux(i)
  • END DO
  • err = err / nedge
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 Aug 16 1998