Update routine1.r