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.