is_one_double function

Determines if the argument is a double