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