93 lines
1.7 KiB
Text
93 lines
1.7 KiB
Text
snippet impl
|
|
implicit none
|
|
$0
|
|
snippet prog
|
|
program ${1:main}
|
|
$0
|
|
end program $1
|
|
snippet mod
|
|
module ${1:modulename}
|
|
$0
|
|
end module $1
|
|
snippet proc
|
|
procedure ${1:name}
|
|
${0}
|
|
end procedure $1
|
|
snippet iface
|
|
interface ${1:name}
|
|
${0}
|
|
end interface $1
|
|
snippet doc
|
|
! """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
|
|
! File: ${2:`vim_snippets#Filename('$1')`}
|
|
! Author: `g:snips_author`
|
|
! Email: `g:snips_email`
|
|
! Github: `g:snips_github`
|
|
! Description: $1
|
|
! """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
|
|
$0
|
|
# Variables definitions
|
|
# Boolean
|
|
snippet bool
|
|
logical :: $0
|
|
# Integer
|
|
snippet int
|
|
integer :: $0
|
|
snippet real
|
|
real :: $0
|
|
# Double Precision
|
|
snippet double
|
|
double precision :: $0
|
|
# Char
|
|
snippet str
|
|
character(len=${1:*}) :: ${0:}
|
|
# Types
|
|
snippet type
|
|
type(${1:name})
|
|
$0
|
|
end type
|
|
snippet const
|
|
${1:type}, parameter :: $2 = $0
|
|
snippet arr
|
|
${1:type}, allocatable, dimension(${2::}) :: $0
|
|
snippet intent
|
|
${1:type}, intent(inout) :: $0
|
|
# Array
|
|
snippet /
|
|
(/ $1 /) ${2:,&} $0
|
|
snippet if
|
|
if (${1:condition}) then
|
|
$2
|
|
end if
|
|
snippet case
|
|
select case (${1:expr})
|
|
case ($2)
|
|
case default
|
|
$3
|
|
end select $0
|
|
snippet do
|
|
do ${1:i} = ${2:start},${3:end}, ${4:incr}
|
|
$4
|
|
end do
|
|
snippet dow
|
|
do while (${1:condition})
|
|
$2
|
|
end do
|
|
snippet sub
|
|
subroutine ${1:name}($2)
|
|
$0
|
|
end subroutine $1
|
|
snippet func
|
|
function ${1:name}($2) result($3)
|
|
$0
|
|
end function $1
|
|
snippet pr
|
|
write(*,*) $0
|
|
snippet read
|
|
read( unit = ${1:fp}, file = ${2:filename}${3:, iostat = IERR }) $0
|
|
snippet write
|
|
write( unit = ${1:fp}, file = ${2:filename}${3:, iostat = IERR }) $0
|
|
snippet open
|
|
open (unit = ${1:fp}, file = ${2:filename}, status = unknown${3:, iostat = IERR }) $0
|
|
snippet close
|
|
close ( unit = ${1:fp} ) $0
|