COMMON / EXCH_L / exchNeedsMemSync, exchUsesBarrier,
LOGICAL exchUsesBarrier
IF ( .NOT.exchUsesBarrier ) THEN
IF ( exchUsesBarrier ) THEN
& exchNeedsMemsync,exchUsesBarrier
exchUsesBarrier = .TRUE.
exchUsesBarrier = .FALSE.