Removed set_r_dis procedure