Update hash_singleton.f90