& inAdMode, inAdTrue, inAdFalse, inAdExact
LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact
inAdmode = inAdTrue
inAdTrue = .FALSE.
inAdTrue = .TRUE.