Create map_file_singleton.f90