& inAdMode, inAdTrue, inAdFalse, inAdExact
LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact
IF ( inAdMode ) THEN
IF (inAdMode) THEN
if ( .NOT. inAdMode ) then
IF ( .NOT. inAdMode ) THEN
inAdMode = inAdFALSE
inAdMode = .FALSE.
inAdMode = .false.