April 01, 2004
CxC Parallel Programming
Listing 5: The barrier statement.
program ComputePI
{
double IntervalLink:Val;
// buffer to gather computed values
barrier; // synchronize with compute units
// retrieve the results from the ZeroToOne PPUs
Val.fanin( Interval );
println("PI Result: " , sum(Val)/ NUM_PPUS );
}
|
 |
|
|||||||||||||||||||||||||||
|
|
|
