The SHARED directive specifies the common blocks that must be shared between processes running a parallel DO-loop. It takes the following form:
cPAR$ SHARED /[cb]/[,/[cb]/] . . .
SHARED directives can appear anywhere within declaration statements in the routine.
Common blocks that are declared SHARED cannot also be declared PRIVATE.
For details on how to use the SHARED directive, see Example 11-2.