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
Copyright © Digital Equipment Corporation. 1999.
All Rights Reserved.