RealNumberQ

RealNumberQ[expr]
returns True if expr is an explicit number with no imaginary component.