Path: utzoo!attcan!uunet!bu.edu!xylogics!merk!alliant!jac
From: jac@Alliant.COM (Jim Chmura)
Newsgroups: comp.sys.alliant
Subject: Re: Local storage within concurrent loop
Message-ID: <4210@alliant.Alliant.COM>
Date: 27 Sep 90 14:36:10 GMT
References: <385@kaos.MATH.UCLA.EDU>
Reply-To: jac@alliant.Alliant.COM (Jim Chmura)
Organization: Alliant Computer Systems, Marietta, GA
Lines: 28


	The trick here, which gives you 8 copies of the array, is to
declare the array to be dimensioned (n,0:7) and then use the library routine
lib_processor_number to determine which processor a particular iteration
is running on.  This ensures that each processor works in a separate copy:

	       dimension array(n,0:7)
		   .
		   .
	cvd$ cncall
	       do i=1,100000
		   .
		   .
		 np=lib_processor_number()
		 call sub(...array(1,np)...)
		   .
		   .
	       enddo

	Be sure to include -lcommon in your link string to pick up the
lib_processor_number routine.

Regards,
Jim Chmura

Area Analyst Manager
Alliant - Marietta GA