3.2.4 DO Loop Example with PCF Directives

The following example shows the use of the PARALLEL REGION and the PARALLEL DO directives in a simple loop: 
C*KAP* PARALLEL REGION
C*KAP*& SHARED(A,B,C) LOCAL(I)
C*KAP* PARALLEL DO
      do 10 i=1,n
          a(i) = b(i) * c(i)
 10   continue
C*KAP* END PARALLEL REGION

Previous Page|Next Page|Contents|Index|
Command-Line Switches

Copyright © Digital Equipment Corporation. 1997. All Rights Reserved.