isit = .FALSE.
isit = .TRUE.
& isit = .TRUE.
subroutine AD_S_DIFFERENT_MULTIPLE( freq, val1, step, isit )
logical isit
subroutine OAD_S_DIFFERENT_MULTIPLE( freq, val1, step, isit )