summaryrefslogtreecommitdiffstats
path: root/plugins/snippets/data/fortran.xml
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--plugins/snippets/data/fortran.xml164
1 files changed, 164 insertions, 0 deletions
diff --git a/plugins/snippets/data/fortran.xml b/plugins/snippets/data/fortran.xml
new file mode 100644
index 0000000..205abe6
--- /dev/null
+++ b/plugins/snippets/data/fortran.xml
@@ -0,0 +1,164 @@
+<?xml version='1.0' encoding='utf-8'?>
+<snippets language="fortran">
+ <snippet id="c">
+ <text><![CDATA[character(len=${1:10}) :: $0]]></text>
+ <tag>c</tag>
+ <description>character</description>
+ </snippet>
+ <snippet id="cl">
+ <text><![CDATA[close(${1:unit}, status='${2:keep}')]]></text>
+ <tag>cl</tag>
+ <description>close</description>
+ </snippet>
+ <snippet id="do">
+ <text><![CDATA[do ${1:i}=$2, $3, ${4:1}
+ ${0:source}
+end do]]></text>
+ <tag>do</tag>
+ <description>do ... end do</description>
+ </snippet>
+ <snippet id="func">
+ <text><![CDATA[function ${1:name}( ${2:parameter} )
+ ${3:integer/real ::} $1
+ ${4:integer/real ::} $2
+
+ ${0:source}
+
+ $1 = !result
+end function]]></text>
+ <tag>func</tag>
+ <description>function</description>
+ </snippet>
+ <snippet id="ifel">
+ <text><![CDATA[if( $1 ) then
+ ${2:source}
+else
+ ${0:source}
+end if]]></text>
+ <tag>ifel</tag>
+ <description>if ... else ... end if</description>
+ </snippet>
+ <snippet id="if">
+ <text><![CDATA[if( $1 ) then
+ ${0:source}
+end if]]></text>
+ <tag>if</tag>
+ <description>if ... end if</description>
+ </snippet>
+ <snippet id="i">
+ <text><![CDATA[integer(kind=${1:4}) :: $0]]></text>
+ <tag>i</tag>
+ <description>integer</description>
+ </snippet>
+ <snippet id="ida">
+ <text><![CDATA[integer(kind=${1:4}), dimension(${2::}), allocatable :: $0]]></text>
+ <tag>ida</tag>
+ <description>integerdimalloc</description>
+ </snippet>
+ <snippet id="id">
+ <text><![CDATA[integer(kind=${1:4}), dimension(${2::}) :: $0]]></text>
+ <tag>id</tag>
+ <description>integerdim</description>
+ </snippet>
+ <snippet id="l">
+ <text><![CDATA[logical(kind=${1:1}) :: $0]]></text>
+ <tag>l</tag>
+ <description>logical</description>
+ </snippet>
+ <snippet id="mod">
+ <text><![CDATA[module ${1:name}
+ implicit none
+ ${2:integer/real ::} $3
+
+ ${4:contains}
+
+ ${0:source}
+end module]]></text>
+ <tag>mod</tag>
+ <description>module</description>
+ </snippet>
+ <snippet id="op">
+ <text><![CDATA[open(${1:unit}, file='${2:name}', status='${3:new}')]]></text>
+ <tag>op</tag>
+ <description>open</description>
+ </snippet>
+ <snippet id="prog">
+ <text><![CDATA[program ${1:name}
+ implicit none
+
+ ${0:source}
+end program]]></text>
+ <tag>prog</tag>
+ <description>program</description>
+ </snippet>
+ <snippet id="re">
+ <text><![CDATA[read(unit=${1:*},fmt=${2:*}) $0]]></text>
+ <tag>re</tag>
+ <description>read</description>
+ </snippet>
+ <snippet id="r">
+ <text><![CDATA[real(kind=${1:8}) :: $0]]></text>
+ <tag>r</tag>
+ <description>real</description>
+ </snippet>
+ <snippet id="rda">
+ <text><![CDATA[real(kind=${1:8}), dimension(${2::}), allocatable :: $0]]></text>
+ <tag>rda</tag>
+ <description>realdimalloc</description>
+ </snippet>
+ <snippet id="rd">
+ <text><![CDATA[real(kind=${1:8}), dimension(${2::}) :: $0]]></text>
+ <tag>rd</tag>
+ <description>realdim</description>
+ </snippet>
+ <snippet id="rec">
+ <text><![CDATA[recursive function ${1:name}( ${2:parameter} ) result( ${3:res} )
+ ${4:integer/real ::} $3
+ ${5:integer/real ::} $2
+
+ ${0:source}
+
+ $3 = !result
+end function]]></text>
+ <tag>rec</tag>
+ <description>recursivfunc</description>
+ </snippet>
+ <snippet id="sel">
+ <text><![CDATA[select case( $1 )
+ case( $2 )
+ ${3:source}
+ case default
+ ${0:source}
+end select]]></text>
+ <tag>sel</tag>
+ <description>select</description>
+ </snippet>
+ <snippet id="sub">
+ <text><![CDATA[subroutine ${1:name}( ${2:parameter} )
+ ${3:integer/real ::} $2
+
+ ${0:source}
+end subroutine]]></text>
+ <tag>sub</tag>
+ <description>subroutine</description>
+ </snippet>
+ <snippet id="t">
+ <text><![CDATA[type :: ${1:name}
+ ${2:integer/real ::} $0
+end type $1]]></text>
+ <tag>t</tag>
+ <description>type</description>
+ </snippet>
+ <snippet id="dow">
+ <text><![CDATA[do while( ${1} )
+ ${0:source}
+end do]]></text>
+ <tag>dow</tag>
+ <description>while</description>
+ </snippet>
+ <snippet id="wr">
+ <text><![CDATA[write(unit=${1:*},fmt=${2:*}) "$3", $0]]></text>
+ <tag>wr</tag>
+ <description>write</description>
+ </snippet>
+</snippets>