Example — Critical/Ordered Section
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
Previous slide
Next slide
Back to first slide
View graphic version