validRange = .FALSE.
IF ( validRange ) THEN
IF ( validRange .AND. val .NE. 0. ) THEN
LOGICAL validRange
IF ( fRange .GT. small ) validRange = .TRUE.
& .AND. validRange ) THEN