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.)
1 if (ncycle.eq.0) then
2 do 60 i=lft,llt
3 dt2=amin1(dtx(i),dt2)
4 if (dt2.eq.dtx(i)) then
5 ielmtc=128*(ndum-1)+i
6 ielmtc=nhex(ielmtc)
7 ityptc=1
8 endif
9 ielmtd=128*(ndum-1)+i
10 ielmtd=nhex(ielmtd)
11 write (13,90) ielmtd,dtx(i)
12 write (13,100)ielmtc
13 60 continue
14 endif
15 do 70 i=lft,llt
16 70 dt2=amin1(dtx(i),dt2)
17 if (mess.ne.'sw2.') return
18 do 80 i=lft,llt
19 if (dt2.eq.dtx(i)) then
20 ielmtc=128*(ndum-1)+i
21 ielmtc=nhex(ielmtc)
22 ityptc=1
23 endif
24 80 continue
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