Create header_singleton.f90