logical function is_Real(z)
complex(4) z

is_Real =imag(z) ==0.0

end
