subroutine ai_synchronize (level)

 implicit none
 integer, intent (in) :: level
 write (*, '(a)', advance='no') "Heyo Fortran! "
 print *, level

end subroutine ai_synchronize