add snippets for f90-mode from Li Zhu

snippets/text-mode/f90-mode/au

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : automatic
+# --
+automatic $0 

snippets/text-mode/f90-mode/bd

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : block data
+# --
+block data $0

snippets/text-mode/f90-mode/c

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : continue
+# --
+continue $0

snippets/text-mode/f90-mode/ch

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : character
+# --
+character $0

snippets/text-mode/f90-mode/cx

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : complex
+# --
+complex $0

snippets/text-mode/f90-mode/dc

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : double complex
+# --
+double complex $0

snippets/text-mode/f90-mode/do

@@ -0,0 +1,6 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : do while (...) end do
+# --
+do while (${1:condition})
+   $0
+end do

snippets/text-mode/f90-mode/dp

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : double precision
+# --
+double precision $0

snippets/text-mode/f90-mode/eq

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : equivalence
+# --
+equivalence $0

snippets/text-mode/f90-mode/ib

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit byte
+# --
+implicit byte $0

snippets/text-mode/f90-mode/ic

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit complex
+# --
+implicit complex $0

snippets/text-mode/f90-mode/ich

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit character
+# --
+implicit character $0

snippets/text-mode/f90-mode/if

@@ -0,0 +1,6 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : if then end if
+# --
+if ( ${1:condition} ) then
+   $0
+end if

snippets/text-mode/f90-mode/ii

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit integer 
+# --
+implicit integer $0

snippets/text-mode/f90-mode/il

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit logical
+# --
+implicit logical $0

snippets/text-mode/f90-mode/in

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit none
+# --
+implicit none

snippets/text-mode/f90-mode/inc

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : include
+# --
+include $0

snippets/text-mode/f90-mode/intr

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : intrinsic
+# --
+intrinsic $0

snippets/text-mode/f90-mode/ir

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : implicit real
+# --
+implicit real $0

snippets/text-mode/f90-mode/l

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : logical
+# --
+logical $0

snippets/text-mode/f90-mode/pa

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : parameter
+# --
+parameter $0

snippets/text-mode/f90-mode/pr

@@ -0,0 +1,6 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : program ... end program ...
+# --
+program ${1:name}
+  $0
+end program ${1:name}

snippets/text-mode/f90-mode/re

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : read (*,*)
+# --
+read (${1:*},${2:*}) $0

snippets/text-mode/f90-mode/st

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : structure
+# --
+structure $0

snippets/text-mode/f90-mode/su

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : subroutine
+# --
+subroutine $0

snippets/text-mode/f90-mode/wr

@@ -0,0 +1,4 @@
+#contributor: Li Zhu <http://www.zhuli.name>
+#name : write (*,*)
+# --
+write (${1:*},${2:*}) $0