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