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 );
    }