Basic HTML version of Foils prepared August 29 98

Foil 43 Example -- Critical/Ordered Section

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.)


if (ncycle.eq.0) then
do 60 i=lft,llt
dt2=amin1(dtx(i),dt2)
if (dt2.eq.dtx(i)) then
ielmtc=128*(ndum-1)+i
ielmtc=nhex(ielmtc)
ityptc=1
endif
ielmtd=128*(ndum-1)+i
ielmtd=nhex(ielmtd)
write (13,90) ielmtd,dtx(i)
write (13,100)ielmtc
60 continue
endif
do 70 i=lft,llt
70 dt2=amin1(dtx(i),dt2)
if (mess.ne.'sw2.') return
do 80 i=lft,llt
if (dt2.eq.dtx(i)) then
ielmtc=128*(ndum-1)+i
ielmtc=nhex(ielmtc)
ityptc=1
endif
80 continue



© 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