# -*- 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
|