yasnippet-snippets/snippets/f90-mode/subroutine

# -*- mode: snippet -*-
# contributor: Jonas Kalderstam <jonas@kalderstam.se>
# name: subroutine .. end subroutine
# key: subroutine
# --
subroutine ${1:name} (${2:arg})
  ${3:real, intent(in) :: $2}

  $0
end subroutine $1