COMMON / EXCH_L / exchNeedsMemSync, exchUsesBarrier,
LOGICAL exchNeedsMemSync
IF ( exchNeedsMemSync ) CALL MEMSYNC