2024-02-26 17:40:47 -05:00
|
|
|
subroutine ai_synchronize (level)
|
2024-02-15 21:03:09 -05:00
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
integer, intent (in) :: level
|
2024-02-26 17:40:47 -05:00
|
|
|
write (*, '(a)', advance='no') "Heyo Fortran! "
|
|
|
|
|
print *, level
|
2024-02-15 21:03:09 -05:00
|
|
|
|
2024-02-26 17:40:47 -05:00
|
|
|
end subroutine ai_synchronize
|
