Fortran snippets finished

This commit is contained in:
guneysus 2014-12-14 03:27:11 +02:00
parent d70a75bd65
commit 511c42177f

View File

@ -1,64 +1,93 @@
snippet impl snippet impl
IMPLICIT NONE implicit none
${0} $0
snippet prog snippet prog
PROGRAM ${1:main} program ${1:main}
${0} $0
END PROGRAM $1 end program $1
snippet mod snippet mod
MODULE ${1:modulename} module ${1:modulename}
$0
end module $1
snippet proc
procedure ${1:name}
${0} ${0}
END MODULE $1 end procedure $1
snippet iface
interface ${1:name}
${0}
end interface $1
snippet doc snippet doc
! """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" ! """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
! File: ${2:`vim_snippets#Filename('$1')`} ! File: ${2:`vim_snippets#Filename('$1')`}
! Author: `g:snips_author` ! Author: `g:snips_author`
! Email: `g:snips_email` ! Email: `g:snips_email`
! Github: `g:snips_github` ! Github: `g:snips_github`
! Description: ${1} ! Description: $1
! """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" ! """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
${0} $0
# Variables definitions
# Variables defs
# Boolean # Boolean
snippet logic snippet bool
logical :: ${0:names} logical :: $0
# Integer # Integer
snippet int snippet int
integer :: ${0:names} integer :: $0
snippet intp
integer, parameter :: ${0:names}
snippet inta
integer, allocatable, dimension(${1::}) :: ${0:names}
# Real
snippet real snippet real
real :: ${0:names} real :: $0
snippet realp
real,parameter :: ${0:names}
snippet reala
real, allocatable, dimension(${1::}) :: ${0:names}
# Double Precision # Double Precision
snippet double snippet double
double precision :: ${0:names} double precision :: $0
snippet doublep
double precision, parameter :: ${0:names}
snippet doublea
double precision, allocatable, dimension(${1::}) :: ${0:names}
# Char # Char
snippet char snippet str
character(len=${1:*}) :: ${0:names} character(len=${1:*}) :: ${0:}
# Types # Types
snippet type snippet type
type(${1:name}) :: ${0:names} type(${1:name})
$0
# Array end type
snippet const
${1:type}, parameter :: $2 = $0
snippet arr snippet arr
(/ (${0:}) /) ${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