Update inp_file_singleton.f90