logical function is_Complex(z)
complex(8) z

is_Complex =imag(z) /=0.

end
