Update swap_data.f90