DO Loop Example with PCF Directives

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 Qualifiers