The PRIVATE_ALL directive forces all symbols and common blocks to default to PRIVATE in each process that runs the parallel DO-loop. It takes the following form:
cPAR$ PRIVATE_ALL
The PRIVATE_ALL directive changes only default behavior. Individual common blocks can still be declared SHARED and individual symbols can still be declared CONTEXT_SHARED.