subroutine world(w)
character(*), intent(out) :: w
w = 'Earth'
end subroutine world