f90-mode/purefunc


1
2
3
4
5
6
7
8
9
10
11
12

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

  $0

end function $1