Path: utzoo!attcan!uunet!samsung!zaphod.mps.ohio-state.edu!tut.cis.ohio-state.edu!usenet.ins.cwru.edu!eagle!news
From: xxrich@alliant1 (Rich Rinehart)
Newsgroups: comp.sys.alliant
Subject: inter-loop locking
Message-ID: <1990Mar27.132340.4243@eagle.lerc.nasa.gov>
Date: 27 Mar 90 13:23:40 GMT
Reply-To: xxrich@alliant1.lerc.nasa.gov (Rich Rinehart)
Organization: NASA/Lewis Research Center
Lines: 21


I would like to force some MIMD like operation on the following 
loop but am having troubles figuring out the synchronization.
Can anyone be of help?  The problem is something like this....

cvd$ concur
	do 100 I=1,100
		call sub1
		call sub2
c do sub3 only after sub1 and 2 have completed
		call sub3
100	contiue

Do I need to use the lock system call or is there another way?  Anyone 
have any examples?  It's been a while since the optimization class...

--
-----------------------------------------------------------------------------
Rich Rinehart                  |     phone: 216-433-5211
NASA Lewis Research Center     |     email: xxrich@alliant1.lerc.nasa.gov
-----------------------------------------------------------------------------