implicit none
integer :: n

n=5

call bonjour(n)

end
