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