Update geo_file_singleton.f90