1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
# inspired/derived from
# https://github.com/hellolife/Vim/blob/b4b84f5e0685bdccf58474d5311c094e7eab5eb4/vimfiles/autoload/neosnippet/snippets/fortran.snip

snippet pr
abbr program
options head
	program ${1:main}
		${2}
	end program $1

snippet sua
abbr subroutine
options head
	subroutine ${1:`expand('%:r')`}(${2})
		use ${3:comvar}
		implicit none
		${4}
	end subroutine $1

snippet su
abbr subroutine
options head
	subroutine ${1:`expand('%:r')`}
		use ${2:comvar}
		implicit none
		${3}
	end subroutine $1

snippet mo
abbr module
options head
	module ${1:`expand('%:r')`}
		implicit none
		save
		${2}
	end module $1

snippet fu
abbr function
options head
	function ${1:}(${2})
		${3}
	end function $1

snippet inp
abbr integer parameter
options head
	integer, parameter :: 

snippet in
abbr integer
options head
	integer :: 

snippet ini
abbr integer intent(in)
options head
	integer, intent(in)  :: 

snippet ino
abbr integer intent(out)
options head
	integer, intent(out) :: 

snippet rep
abbr real parameter
options head
	real, parameter :: 

snippet re
abbr real
options head
	real :: 

snippet rei
abbr real intent(in)
options head
	real, intent(in)  :: 

snippet reo
abbr real intent(out)
options head
	real, intent(out) :: 

snippet ind
abbr integer dimension
options head
	integer, dimension(${1::})${2:#:, allocatable} :: ${3}

snippet indi
abbr integer dimension intent(in)
options head
	integer, dimension(${1}), intent(in)  :: ${2}

snippet indo
abbr integer dimension intent(out)
options head
	integer, dimension(${1}), intent(out) :: ${2}

snippet red
abbr real dimension
options head
	real, dimension(${1::})${2:#:, allocatable} :: ${3}

snippet redi
abbr real dimension intent(in)
options head
	real, dimension(${1}), intent(in)  :: ${2}

snippet redo
abbr real dimension intent(out)
options head
	real, dimension(${1}), intent(out) :: ${2}

snippet ch
abbr character
options head
	character(${1}) :: ${2}

snippet chd
abbr character dimension
options head
	character(${1}), dimension(${2}) :: ${3}

snippet lo
abbr logical
options head
	logical :: ${1:fileExsit}

snippet if
abbr if
options head
	if (${1}) ${2}

snippet ift
abbr if then
options head
	if (${1}) then
		${2}
	end if

snippet read
abbr read
options head
	read(${1:*},${2:*}) ${3}

snippet wr
abbr write
options head
	write(${1:*},${2:*}) ${3}

snippet op
abbr open
options head
	open(${1:11},file=${2},status=${3:#:old}${4:#:,position='append'})
	${5}
	close($1)

snippet se
abbr select case
options head
	select case (${1})
	${2}
	end select

snippet case
abbr case
options head
	case(${1})
		${2}

snippet do
abbr do
options head
	do ${1}
	end do

snippet ty
abbr type
options head
	type ${1:}
		${2}
	end type $1

snippet tyd
abbr type dimension
options head
	type(${1}), dimension(${2::}), allcatable :: ${3}