logical function is_Complex(z)
complex(16) z

is_Complex =imag(z) /=0.

end
