Update header_singleton.f90