The SHARED_ALL directive forces all common blocks to have SHARED defaults among processes that use the parallel DO-loop. It takes the following form:
cPAR$ SHARED_ALL
This directive affects only default behavior. Individual common blocks can still be declared PRIVATE.