program main
  implicit none

  print*, 'call run'
  call run()


contains

subroutine run()
  implicit none
  !(declaration)

  print*, 'subroutine run'

  !(do something...)

  return
end subroutine run

end program main