Create hash_singleton.f90