Skip to content
Browse files

New snippets from jiho.

git-svn-id: http://svn.textmate.org/trunk/Bundles/Fortran.tmbundle@8686 dfb7d73b-c2ec-0310-8fea-fb051d288c6d
  • Loading branch information...
1 parent 61c9592 commit 9d1050b52d60e9d0e66feb620ba533855f4977a1 @infininight infininight committed
Showing with 1,729 additions and 7 deletions.
  1. +18 −0 Snippets/Allocate Array.tmSnippet
  2. +20 −0 Snippets/Allocate and Deallocate array.tmSnippet
  3. +16 −0 Snippets/And.tmSnippet
  4. +16 −0 Snippets/Character.tmSnippet
  5. +18 −0 Snippets/Close File.tmSnippet
  6. +16 −0 Snippets/Custom Type.tmSnippet
  7. +17 −0 Snippets/Deallocate Array.tmSnippet
  8. +16 −0 Snippets/Dot Product of Vectors.tmSnippet
  9. +16 −0 Snippets/Equal.tmSnippet
  10. +16 −0 Snippets/Equality.tmSnippet
  11. +16 −0 Snippets/Greater Than.tmSnippet
  12. +16 −0 Snippets/Greater or Equal.tmSnippet
  13. +16 −0 Snippets/Implied do.tmSnippet
  14. +16 −0 Snippets/Index of Maximum.tmSnippet
  15. +16 −0 Snippets/Index of Minimum.tmSnippet
  16. +18 −0 Snippets/Input File.tmSnippet
  17. +16 −0 Snippets/Inquire (by Filename).tmSnippet
  18. +16 −0 Snippets/Inquire (by Unit).tmSnippet
  19. +16 −0 Snippets/Integer.tmSnippet
  20. +16 −0 Snippets/Less Than.tmSnippet
  21. +16 −0 Snippets/Less or Equal.tmSnippet
  22. +17 −0 Snippets/Line Continuation.tmSnippet
  23. +16 −0 Snippets/Logical.tmSnippet
  24. +16 −0 Snippets/Lower Bound.tmSnippet
  25. +16 −0 Snippets/Matrix Multiplication.tmSnippet
  26. +16 −0 Snippets/Maximum Value.tmSnippet
  27. +16 −0 Snippets/Minimum Value.tmSnippet
  28. +16 −0 Snippets/Non-Equality.tmSnippet
  29. +16 −0 Snippets/Not.tmSnippet
  30. +18 −0 Snippets/Open File.tmSnippet
  31. +16 −0 Snippets/Or.tmSnippet
  32. +18 −0 Snippets/Output File.tmSnippet
  33. +16 −0 Snippets/Product of Elements.tmSnippet
  34. +16 −0 Snippets/Quick Character.tmSnippet
  35. +16 −0 Snippets/Quick Custom Type.tmSnippet
  36. +16 −0 Snippets/Quick Integer.tmSnippet
  37. +16 −0 Snippets/Quick Logical.tmSnippet
  38. +17 −0 Snippets/Quick Open.tmSnippet
  39. +16 −0 Snippets/Quick Read.tmSnippet
  40. +16 −0 Snippets/Quick Real.tmSnippet
  41. +17 −0 Snippets/Quick Write.tmSnippet
  42. +16 −0 Snippets/Random Number.tmSnippet
  43. +16 −0 Snippets/Random Seed.tmSnippet
  44. +16 −0 Snippets/Real.tmSnippet
  45. +18 −0 Snippets/Scratch File.tmSnippet
  46. +16 −0 Snippets/Size.tmSnippet
  47. +16 −0 Snippets/Sum of Elements.tmSnippet
  48. +18 −0 Snippets/Type Definition.tmSnippet
  49. +16 −0 Snippets/Upper Bound.tmSnippet
  50. +16 −0 Snippets/Wrap Selection in Array Brackets.tmSnippet
  51. +16 −0 Snippets/_FALSE_.tmSnippet
  52. +16 −0 Snippets/_TRUE_.tmSnippet
  53. +16 −0 Snippets/all.tmSnippet
  54. +16 −0 Snippets/any.tmSnippet
  55. +17 −0 Snippets/case.tmSnippet
  56. +16 −0 Snippets/count.tmSnippet
  57. +16 −0 Snippets/cycle.tmSnippet
  58. +16 −0 Snippets/data.tmSnippet
  59. +18 −0 Snippets/do while.tmSnippet
  60. +18 −0 Snippets/do.tmSnippet
  61. +17 −0 Snippets/elseif.tmSnippet
  62. +20 −0 Snippets/function.tmSnippet
  63. +16 −0 Snippets/if (single line).tmSnippet
  64. +18 −0 Snippets/if.tmSnippet
  65. +17 −0 Snippets/implicit none.tmSnippet
  66. +18 −0 Snippets/interface.tmSnippet
  67. +16 −0 Snippets/max.tmSnippet
  68. +16 −0 Snippets/merge.tmSnippet
  69. +16 −0 Snippets/min.tmSnippet
  70. +16 −0 Snippets/module procedure.tmSnippet
  71. +22 −0 Snippets/module.tmSnippet
  72. +18 −0 Snippets/named: do.tmSnippet
  73. +19 −0 Snippets/named: select case.tmSnippet
  74. +16 −0 Snippets/pack.tmSnippet
  75. +3 −3 Snippets/print.tmSnippet
  76. +22 −0 Snippets/program.tmSnippet
  77. +18 −0 Snippets/read (Sequential Access).tmSnippet
  78. +18 −0 Snippets/read.tmSnippet
  79. +16 −0 Snippets/reshape.tmSnippet
  80. +19 −0 Snippets/select case.tmSnippet
  81. +16 −0 Snippets/spread.tmSnippet
  82. +16 −0 Snippets/stop.tmSnippet
  83. +19 −0 Snippets/subroutine.tmSnippet
  84. +16 −0 Snippets/unpack.tmSnippet
  85. +16 −0 Snippets/where (single line).tmSnippet
  86. +18 −0 Snippets/where.tmSnippet
  87. +18 −0 Snippets/write (Sequental Access).tmSnippet
  88. +282 −4 info.plist
View
18 Snippets/Allocate Array.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>allocate(${1:array}, stat=${2:err})
+if ($2 /= 0) print *, "${1/(\w+).*/$1/}: Allocation request denied"
+</string>
+ <key>name</key>
+ <string>Allocate Array</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>al</string>
+ <key>uuid</key>
+ <string>51F171BF-D317-4510-A0E1-22565AFFDF55</string>
+</dict>
+</plist>
View
20 Snippets/Allocate and Deallocate array.tmSnippet
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>allocate(${1:array}, stat=${2:err})
+if ($2 /= 0) print *, "${1/(\w+).*/$1/}: Allocation request denied"
+
+$0if (allocated(${1/(\w+).*/$1/})) deallocate(${1/(\w+).*/$1/}, stat=$2)
+if ($2 /= 0) print *, "${1/(\w+).*/$1/}: Deallocation request denied$0"</string>
+ <key>name</key>
+ <string>Allocate and Deallocate array</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>alloc</string>
+ <key>uuid</key>
+ <string>718929E8-73E2-4B9F-B430-0888D5971952</string>
+</dict>
+</plist>
View
16 Snippets/And.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>.and.</string>
+ <key>name</key>
+ <string>And</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>and</string>
+ <key>uuid</key>
+ <string>3537B123-DB04-475A-8B8A-A5D223872FC1</string>
+</dict>
+</plist>
View
16 Snippets/Character.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>character(len=$1${2:, kind=$3})${4:, ${5:attributes}} :: ${6:name}</string>
+ <key>name</key>
+ <string>Character</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>char</string>
+ <key>uuid</key>
+ <string>0D6B27F6-93D7-46FC-ABC5-658D26D13A2C</string>
+</dict>
+</plist>
View
18 Snippets/Close File.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>close(unit=${1:iounit}, iostat=${2:ios}${3:, status="delete"})
+if ( $2 /= 0 ) stop "Error closing file unit $1"
+</string>
+ <key>name</key>
+ <string>Close File</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>close</string>
+ <key>uuid</key>
+ <string>B011EFC4-3A9A-4A42-AEAC-B8766008B828</string>
+</dict>
+</plist>
View
16 Snippets/Custom Type.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>type(${1:type name})${2:, ${3:attributes}} :: ${4:name}</string>
+ <key>name</key>
+ <string>Custom Type</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>typ</string>
+ <key>uuid</key>
+ <string>C7F4ECBD-46FE-4E88-A6C6-2F645B319821</string>
+</dict>
+</plist>
View
17 Snippets/Deallocate Array.tmSnippet
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>if (allocated($1)) deallocate(${1:array}, stat=${2:err})
+if ($2 /= 0) print *, "$1: Deallocation request denied$0"</string>
+ <key>name</key>
+ <string>Deallocate Array</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>deal</string>
+ <key>uuid</key>
+ <string>8AA9DF85-9F20-417E-A71A-5B5BC555B0AA</string>
+</dict>
+</plist>
View
16 Snippets/Dot Product of Vectors.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>dot_product($1,$2)</string>
+ <key>name</key>
+ <string>Dot Product of Vectors</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>dot</string>
+ <key>uuid</key>
+ <string>F05CAEAE-2DBC-45F9-A83C-A41378159D5C</string>
+</dict>
+</plist>
View
16 Snippets/Equal.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>.eq.</string>
+ <key>name</key>
+ <string>Equal</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>eq</string>
+ <key>uuid</key>
+ <string>2316E789-8E34-4874-A517-6BF8E52ECC4C</string>
+</dict>
+</plist>
View
16 Snippets/Equality.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>.eqv.</string>
+ <key>name</key>
+ <string>Equality</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>eqv</string>
+ <key>uuid</key>
+ <string>0123B289-0889-41AA-839A-F7F2D6154723</string>
+</dict>
+</plist>
View
16 Snippets/Greater Than.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>.gt.</string>
+ <key>name</key>
+ <string>Greater Than</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>gt</string>
+ <key>uuid</key>
+ <string>7526D521-2CF7-4436-9D11-824B76D424F6</string>
+</dict>
+</plist>
View
16 Snippets/Greater or Equal.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>.ge.</string>
+ <key>name</key>
+ <string>Greater or Equal</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>ge</string>
+ <key>uuid</key>
+ <string>BFF92277-2A0B-40E1-A896-9DB8C1C69036</string>
+</dict>
+</plist>
View
16 Snippets/Implied do.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>(${1:i}, $1 = ${2:1}, ${3:100}, ${4:1})$0</string>
+ <key>name</key>
+ <string>Implied do</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>ido</string>
+ <key>uuid</key>
+ <string>35ECB83E-D696-4441-989A-AAAF9E63F156</string>
+</dict>
+</plist>
View
16 Snippets/Index of Maximum.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>maxloc(${1:source}${2:, mask=${3:($1&gt;0)}})</string>
+ <key>name</key>
+ <string>Index of Maximum</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>maxloc</string>
+ <key>uuid</key>
+ <string>5092CD14-3CCC-4EC2-B8F1-09A5277977F9</string>
+</dict>
+</plist>
View
16 Snippets/Index of Minimum.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>minloc(${1:source}${2:, mask=${3:$1&gt;0}})</string>
+ <key>name</key>
+ <string>Index of Minimum</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>minloc</string>
+ <key>uuid</key>
+ <string>F0A4E40E-C92B-44B8-AFD8-CB15E94C81F1</string>
+</dict>
+</plist>
View
18 Snippets/Input File.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>open(unit=${1:iounit}, file=${2:name}, iostat=${3:ios}, status="${4:old}", action="${5:read}")
+if ( $3 /= 0 ) stop "Error opening file ${2/[\"\'](.*)[\"\']/$1/}"
+</string>
+ <key>name</key>
+ <string>Input File</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>open</string>
+ <key>uuid</key>
+ <string>20CAACE7-E2D8-4233-8F1E-0ABA182047D4</string>
+</dict>
+</plist>
View
16 Snippets/Inquire (by Filename).tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>inquire(file=${1:filename}, opened=${2:ioopen}, exists=${3:ioexist}, number=${4:iounit})</string>
+ <key>name</key>
+ <string>Inquire (by Filename)</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>inq</string>
+ <key>uuid</key>
+ <string>1A5B5A09-1080-48CF-A4C3-3F81ACE69074</string>
+</dict>
+</plist>
View
16 Snippets/Inquire (by Unit).tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>inquire(unit=${1:iounit}, opened=${2:ioopen}, name=${3:filename}, action=${4:ioaction})</string>
+ <key>name</key>
+ <string>Inquire (by Unit)</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>inq</string>
+ <key>uuid</key>
+ <string>60090CCF-B104-47B5-BCB8-E2811EBA9CCF</string>
+</dict>
+</plist>
View
16 Snippets/Integer.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>integer${1:(${2:kind})}${3:, ${4:attributes}} :: ${5:name}</string>
+ <key>name</key>
+ <string>Integer</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>int</string>
+ <key>uuid</key>
+ <string>F3344347-B9EF-4574-B15E-22170D50D850</string>
+</dict>
+</plist>
View
16 Snippets/Less Than.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>.lt.</string>
+ <key>name</key>
+ <string>Less Than</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>lt</string>
+ <key>uuid</key>
+ <string>F8C2C9C2-B317-43E4-AEFD-AFF17B85728F</string>
+</dict>
+</plist>
View
16 Snippets/Less or Equal.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>.le.</string>
+ <key>name</key>
+ <string>Less or Equal</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>le</string>
+ <key>uuid</key>
+ <string>F19E59C4-7D5F-4EA8-A29A-F144F4F2AC85</string>
+</dict>
+</plist>
View
17 Snippets/Line Continuation.tmSnippet
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string> &amp;
+</string>
+ <key>keyEquivalent</key>
+ <string>^
+</string>
+ <key>name</key>
+ <string>Line Continuation</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>uuid</key>
+ <string>0B000E20-A4F2-495A-B0B1-242851333225</string>
+</dict>
View
16 Snippets/Logical.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>logical${1:(${2:kind})}${3:, ${4:attributes}} :: ${5:name}</string>
+ <key>name</key>
+ <string>Logical</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>log</string>
+ <key>uuid</key>
+ <string>6DBAE3F7-1B5A-4999-9246-E2A12A7C5555</string>
+</dict>
+</plist>
View
16 Snippets/Lower Bound.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>lbound(${1:source}${2:, dim=${3:1}})</string>
+ <key>name</key>
+ <string>Lower Bound</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>lbound</string>
+ <key>uuid</key>
+ <string>1757DE15-4544-482C-89DC-0781E39A7F87</string>
+</dict>
+</plist>
View
16 Snippets/Matrix Multiplication.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>matmul($1,$2)</string>
+ <key>name</key>
+ <string>Matrix Multiplication</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>mat</string>
+ <key>uuid</key>
+ <string>E8684191-D405-4BD8-BCEB-8BC9E150550B</string>
+</dict>
+</plist>
View
16 Snippets/Maximum Value.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>maxval(${1:source}${2:, dim=${3:1}}${4:, mask=${5:($1&gt;0)}})</string>
+ <key>name</key>
+ <string>Maximum Value</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>maxval</string>
+ <key>uuid</key>
+ <string>8781D199-2E4E-4D11-BFF3-F8729D9523C1</string>
+</dict>
+</plist>
View
16 Snippets/Minimum Value.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>minval(${1:source}${2:, dim=${3:1}}${4:, mask=${5:($1&gt;0)}})</string>
+ <key>name</key>
+ <string>Minimum Value</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>minval</string>
+ <key>uuid</key>
+ <string>4AD4A84B-5110-4B49-9E0F-88B08A5AAF97</string>
+</dict>
+</plist>
View
16 Snippets/Non-Equality.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>.neqv.</string>
+ <key>name</key>
+ <string>Non-Equality</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>neqv</string>
+ <key>uuid</key>
+ <string>3B8BB0B3-CEE1-496B-B844-465F49C038E6</string>
+</dict>
+</plist>
View
16 Snippets/Not.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>.not.</string>
+ <key>name</key>
+ <string>Not</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>not</string>
+ <key>uuid</key>
+ <string>76A04572-9358-499C-B2E3-5E96445441E2</string>
+</dict>
+</plist>
View
18 Snippets/Open File.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>open(unit=${1:iounit}, file=${2:name}, iostat=${3:ios}, &amp;
+ status="${4:old/new/replace/scratch/unknown}", action="${5:read/write/readwrite}", access="${7:sequential/direct}"${7/(direct)$|.*/(?1:, recl=)/}$0)
+if ( $3 /= 0 ) stop "Error opening file ${2/[\"\'](.*)[\"\']/$1/}"</string>
+ <key>name</key>
+ <string>Open File</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>open</string>
+ <key>uuid</key>
+ <string>48F02C1F-F6FA-444F-8CE7-7B81C7A7344B</string>
+</dict>
+</plist>
View
16 Snippets/Or.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>.or.</string>
+ <key>name</key>
+ <string>Or</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>or</string>
+ <key>uuid</key>
+ <string>536D0C28-DD04-4B0C-8B22-61649F607322</string>
+</dict>
+</plist>
View
18 Snippets/Output File.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>open(unit=${1:iounit}, file=${2:name}, iostat=${3:ios}, status="${4:new}", action="${5:write}")
+if ( $3 /= 0 ) stop "Error opening file ${2/[\"\'](.*)[\"\']/$1/}"
+</string>
+ <key>name</key>
+ <string>Output File</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>open</string>
+ <key>uuid</key>
+ <string>9AA512D2-E341-4F05-A2BB-EBB339E3B187</string>
+</dict>
+</plist>
View
16 Snippets/Product of Elements.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>product(${1:source}${2:, dim=${3:1}}${4:, mask=${5:($1&gt;0)}})</string>
+ <key>name</key>
+ <string>Product of Elements</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>prod</string>
+ <key>uuid</key>
+ <string>3D90E5F6-5002-4E48-B1C1-4C9E62DF24AF</string>
+</dict>
+</plist>
View
16 Snippets/Quick Character.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>character(len=*) :: </string>
+ <key>name</key>
+ <string>Quick Character</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>c</string>
+ <key>uuid</key>
+ <string>670364D4-4FAD-4A3B-949C-1A68F43FCDA1</string>
+</dict>
+</plist>
View
16 Snippets/Quick Custom Type.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>type(${1:type name}) :: </string>
+ <key>name</key>
+ <string>Quick Custom Type</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>t</string>
+ <key>uuid</key>
+ <string>1503AED6-304A-423E-AEC6-BE6836EBB720</string>
+</dict>
+</plist>
View
16 Snippets/Quick Integer.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>integer :: </string>
+ <key>name</key>
+ <string>Quick Integer</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>i</string>
+ <key>uuid</key>
+ <string>34C0C62D-B2EC-4C39-B072-CCA5EBEC9B8C</string>
+</dict>
+</plist>
View
16 Snippets/Quick Logical.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>logical :: </string>
+ <key>name</key>
+ <string>Quick Logical</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>l</string>
+ <key>uuid</key>
+ <string>C2434FF9-D70D-4C85-A93A-9CDC637FE633</string>
+</dict>
+</plist>
View
17 Snippets/Quick Open.tmSnippet
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>open(unit=${1:iounit}, file=${2:name}, iostat=${3:ios})
+if ( $3 /= 0 ) stop "Error opening file ${2/[\"\'](.*)[\"\']/$1/}"</string>
+ <key>name</key>
+ <string>Quick Open</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>op</string>
+ <key>uuid</key>
+ <string>B118C813-3B21-49DB-8EEB-323CBAADBE00</string>
+</dict>
+</plist>
View
16 Snippets/Quick Read.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>read*, </string>
+ <key>name</key>
+ <string>Quick Read</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>re</string>
+ <key>uuid</key>
+ <string>397592DB-34D9-45B6-AD23-F2E88FEB36C9</string>
+</dict>
+</plist>
View
16 Snippets/Quick Real.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>real :: </string>
+ <key>name</key>
+ <string>Quick Real</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>r</string>
+ <key>uuid</key>
+ <string>C5AD4DF9-76C8-45A2-9705-6A31AD084007</string>
+</dict>
+</plist>
View
17 Snippets/Quick Write.tmSnippet
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>write(unit=${1:iounit}, fmt=*) ${0:variables}
+</string>
+ <key>name</key>
+ <string>Quick Write</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>wr</string>
+ <key>uuid</key>
+ <string>87B37A6D-B542-4502-94CA-521A92E056D6</string>
+</dict>
+</plist>
View
16 Snippets/Random Number.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>call random_number($0)</string>
+ <key>name</key>
+ <string>Random Number</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>rn</string>
+ <key>uuid</key>
+ <string>2186372D-4DFE-424D-B7CC-81686816FBEB</string>
+</dict>
+</plist>
View
16 Snippets/Random Seed.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>call random_seed(${1:size=${2:&lt;int&gt;}}${3:put=(/$4/)})</string>
+ <key>name</key>
+ <string>Random Seed</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>rs</string>
+ <key>uuid</key>
+ <string>9D750E6B-948F-4913-9710-A3EAD3B9F804</string>
+</dict>
+</plist>
View
16 Snippets/Real.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>real${1:(${2:kind})}${3:, ${4:attributes}} :: ${5:name}</string>
+ <key>name</key>
+ <string>Real</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>rea</string>
+ <key>uuid</key>
+ <string>819B3AC9-225F-4699-A0F7-7ECBEE895AD2</string>
+</dict>
+</plist>
View
18 Snippets/Scratch File.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>open(unit=${1:iounit}, iostat=${3:ios}, status="${4:scratch}", action="${5:readwrite}")
+if ( $3 /= 0 ) stop "Error opening scratch file on unit $1"
+</string>
+ <key>name</key>
+ <string>Scratch File</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>open</string>
+ <key>uuid</key>
+ <string>3693BFC4-76F5-4ED3-837B-BD383BBAC5B0</string>
+</dict>
+</plist>
View
16 Snippets/Size.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>size(${1:source}${2:, dim=${3:1}})</string>
+ <key>name</key>
+ <string>Size</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>size</string>
+ <key>uuid</key>
+ <string>CA4E14B0-9F08-40F4-A7D9-61E9E7192FD4</string>
+</dict>
+</plist>
View
16 Snippets/Sum of Elements.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>sum(${1:source}${2:, dim=${3:1}}${4:, mask=${5:($1&gt;0)}})</string>
+ <key>name</key>
+ <string>Sum of Elements</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>sum</string>
+ <key>uuid</key>
+ <string>06C627D7-EB49-4FDF-A2B6-C9CC7CE97241</string>
+</dict>
+</plist>
View
18 Snippets/Type Definition.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>type ${1:type name}
+ $0
+end type $1</string>
+ <key>name</key>
+ <string>Type Definition</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>type</string>
+ <key>uuid</key>
+ <string>03298138-1221-4FF3-A6E6-C3F016CEA132</string>
+</dict>
+</plist>
View
16 Snippets/Upper Bound.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>ubound(${1:source}${2:, dim=${3:1}})</string>
+ <key>name</key>
+ <string>Upper Bound</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>ubound</string>
+ <key>uuid</key>
+ <string>EDA18DD2-F08C-44BF-90C1-A5FC7E55E909</string>
+</dict>
+</plist>
View
16 Snippets/Wrap Selection in Array Brackets.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>(/ $TM_SELECTED_TEXT$0 /)</string>
+ <key>keyEquivalent</key>
+ <string>@A</string>
+ <key>name</key>
+ <string>Wrap Selection in Array Brackets</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>uuid</key>
+ <string>E5E4BACF-96DD-43EF-A400-D7D3F6ABBF85</string>
+</dict>
+</plist>
View
16 Snippets/_FALSE_.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>.FALSE.</string>
+ <key>name</key>
+ <string>.FALSE.</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>F</string>
+ <key>uuid</key>
+ <string>EC40FA8C-65A9-40B6-9A5E-FC681755FADD</string>
+</dict>
+</plist>
View
16 Snippets/_TRUE_.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>.TRUE.</string>
+ <key>name</key>
+ <string>.TRUE.</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>T</string>
+ <key>uuid</key>
+ <string>9A5E1955-62E4-4BA4-937B-A76B402D0825</string>
+</dict>
+</plist>
View
16 Snippets/all.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>all(${1:mask}${2:, dim=${3:1}})</string>
+ <key>name</key>
+ <string>all</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>all</string>
+ <key>uuid</key>
+ <string>93FA9EEB-7A4E-4907-B723-A2B379FCA041</string>
+</dict>
+</plist>
View
16 Snippets/any.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>any(${1:mask}${2:, dim=${3:1}})</string>
+ <key>name</key>
+ <string>any</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>any</string>
+ <key>uuid</key>
+ <string>ABBFB45A-CA54-4812-A2AC-732C52D78953</string>
+</dict>
+</plist>
View
17 Snippets/case.tmSnippet
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>case ${1:default}
+ $0</string>
+ <key>name</key>
+ <string>case</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>case</string>
+ <key>uuid</key>
+ <string>9C4F8960-34D5-4BE1-9CC0-91E6C67E7622</string>
+</dict>
+</plist>
View
16 Snippets/count.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>count(${1:mask}${2:, dim=${3:1}})</string>
+ <key>name</key>
+ <string>count</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>count</string>
+ <key>uuid</key>
+ <string>73D0556C-56DB-4BCD-ABBC-456B77BEAB7E</string>
+</dict>
+</plist>
View
16 Snippets/cycle.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>cycle</string>
+ <key>name</key>
+ <string>cycle</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>cy</string>
+ <key>uuid</key>
+ <string>CDED87E6-BD6D-4EA4-8649-10B1D7103A6F</string>
+</dict>
+</plist>
View
16 Snippets/data.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>data ${1:variable} / ${2:data} /</string>
+ <key>name</key>
+ <string>data</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>data</string>
+ <key>uuid</key>
+ <string>A20B45D5-F448-410D-B9CD-FA6AC4F174D6</string>
+</dict>
+</plist>
View
18 Snippets/do while.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>do while ( ${1:condition} )
+ $0
+end do</string>
+ <key>name</key>
+ <string>do while</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>dow</string>
+ <key>uuid</key>
+ <string>6136E9F7-7683-43E8-94F8-535CBE8045CD</string>
+</dict>
+</plist>
View
18 Snippets/do.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>do${1: ${2:i} = ${3:1}, ${4:100}, ${5:1}}
+ $0
+end do</string>
+ <key>name</key>
+ <string>do</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>do</string>
+ <key>uuid</key>
+ <string>7A9D5F06-1CB9-46EF-9E93-C33A08BCC84D</string>
+</dict>
+</plist>
View
17 Snippets/elseif.tmSnippet
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>elseif ( ${1:condition} ) then
+ </string>
+ <key>name</key>
+ <string>elseif</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>elif</string>
+ <key>uuid</key>
+ <string>E3CB3696-76E6-45E5-B3BD-98D6C412FB8E</string>
+</dict>
+</plist>
View
20 Snippets/function.tmSnippet
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>function ${1:name}
+ ${2:argument type}, intent(${3:inout}) :: ${1/\w+\((.*)\)|.*/$1/}
+ ${4:function type} :: ${1/(\w+).*/$1/}
+ $0
+end function ${1/(\w+).*/$1/}</string>
+ <key>name</key>
+ <string>function</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>fun</string>
+ <key>uuid</key>
+ <string>F08951B5-CAC2-4373-9422-8588D0F1E742</string>
+</dict>
+</plist>
View
16 Snippets/if (single line).tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>if ( ${1:condition} ) </string>
+ <key>name</key>
+ <string>if (single line)</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>if</string>
+ <key>uuid</key>
+ <string>3EE70024-01D5-46E1-A8FE-15A02D31C999</string>
+</dict>
+</plist>
View
18 Snippets/if.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>if ( ${1:condition} ) then
+ $0
+end if</string>
+ <key>name</key>
+ <string>if</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>if</string>
+ <key>uuid</key>
+ <string>93DAD02F-8CF5-413A-8C43-8574AABEF998</string>
+</dict>
+</plist>
View
17 Snippets/implicit none.tmSnippet
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>implicit none
+</string>
+ <key>name</key>
+ <string>implicit none</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>imp</string>
+ <key>uuid</key>
+ <string>097FA6C9-28FE-4A55-9FC6-0116074ED962</string>
+</dict>
+</plist>
View
18 Snippets/interface.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>interface ${1:name}
+ $0
+end interface ! $1</string>
+ <key>name</key>
+ <string>interface</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>interf</string>
+ <key>uuid</key>
+ <string>358E0BE9-B020-4932-A421-79F269CE10A1</string>
+</dict>
+</plist>
View
16 Snippets/max.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>max($1, $2${, $3:...})$0</string>
+ <key>name</key>
+ <string>max</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>max</string>
+ <key>uuid</key>
+ <string>450D663B-E62D-45BA-B194-D2C560A886B8</string>
+</dict>
+</plist>
View
16 Snippets/merge.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>merge(${1:source}, ${2:alternative}, mask=(${2:$1&gt;0}))</string>
+ <key>name</key>
+ <string>merge</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>merge</string>
+ <key>uuid</key>
+ <string>61F063A9-1F71-4748-97ED-DB2E8DC4E8F5</string>
+</dict>
+</plist>
View
16 Snippets/min.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>min($1, $2${, $3:...})$0</string>
+ <key>name</key>
+ <string>min</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>min</string>
+ <key>uuid</key>
+ <string>8814A6E1-7A85-4313-A75A-1D83EC1A9CD7</string>
+</dict>
+</plist>
View
16 Snippets/module procedure.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>module procedure ${0:name}</string>
+ <key>name</key>
+ <string>module procedure</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>mp</string>
+ <key>uuid</key>
+ <string>212C550B-1D28-4713-BF75-F660254D04C4</string>
+</dict>
+</plist>
View
22 Snippets/module.tmSnippet
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>module ${1:name}
+
+ implicit none
+ $0
+
+end module $1
+</string>
+ <key>name</key>
+ <string>module</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>mod</string>
+ <key>uuid</key>
+ <string>BE566EAC-E0C9-4922-99CC-AE5349751A5C</string>
+</dict>
+</plist>
View
18 Snippets/named: do.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>${1:name}: do${2: ${3:i} = ${4:1}, ${5:100}, ${6:1}}
+ $0
+end do $1</string>
+ <key>name</key>
+ <string>named: do</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>ndo</string>
+ <key>uuid</key>
+ <string>5F5CE350-E65B-4A12-9DE4-7F520EA7CEDA</string>
+</dict>
+</plist>
View
19 Snippets/named: select case.tmSnippet
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>${1:name}: select case ($2:variable)
+ case ($3:values) $1
+ $0
+end select $1</string>
+ <key>name</key>
+ <string>named: select case</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>nsel</string>
+ <key>uuid</key>
+ <string>883F17D6-1CC0-4D5F-8F47-0A57E59BAEE5</string>
+</dict>
+</plist>
View
16 Snippets/pack.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>pack(${1:array}, mask=(${2:$1&gt;0})${3:, vector=${4:destination vector}})</string>
+ <key>name</key>
+ <string>pack</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>pack</string>
+ <key>uuid</key>
+ <string>BCB3E520-B100-4B1D-9DAE-62D0FEB1EA52</string>
+</dict>
+</plist>
View
6 Snippets/print.tmSnippet
@@ -1,11 +1,11 @@
<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
- <string>print ${1:*}, '$2'</string>
+ <string>print*, </string>
<key>name</key>
- <string>print</string>
+ <string>Quick Print</string>
<key>scope</key>
<string>source.fortran</string>
<key>tabTrigger</key>
View
22 Snippets/program.tmSnippet
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>program ${1:name}
+
+ implicit none
+ $0
+
+end program $1
+</string>
+ <key>name</key>
+ <string>program</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>prog</string>
+ <key>uuid</key>
+ <string>3CE33649-97AE-4497-BFA0-FA79AAEB5EE0</string>
+</dict>
+</plist>
View
18 Snippets/read (Sequential Access).tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>read(unit=${1:iounit}, fmt="(${2:format string})", iostat=${3:istat}, advance='NO', size=${4:number of characters}) ${5:variables}
+if ( $3 /= 0 ) stop "Read error in file unit $1"
+</string>
+ <key>name</key>
+ <string>Read (Non Advancing Mode)</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>read</string>
+ <key>uuid</key>
+ <string>C93DF526-E933-4560-B63A-8E1CE6196FB7</string>
+</dict>
+</plist>
View
18 Snippets/read.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>read(unit=${1:iounit}, fmt="(${2:format string})", iostat=${3:istat}) ${4:variables}
+if ( $3 /= 0 ) stop "Read error in file unit $1"
+</string>
+ <key>name</key>
+ <string>Read</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>read</string>
+ <key>uuid</key>
+ <string>C1A0A9D5-9D5D-479C-B079-7C4FB7ACD700</string>
+</dict>
+</plist>
View
16 Snippets/reshape.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>reshape(${1:source}${2:, shape=(/$3/)}${4:, pad=(/$5/)}${6:, order=(/${7:2,1}/)})</string>
+ <key>name</key>
+ <string>reshape</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>resh</string>
+ <key>uuid</key>
+ <string>41715FAB-5954-4B10-A092-3FC9FA3E3D67</string>
+</dict>
+</plist>
View
19 Snippets/select case.tmSnippet
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>select case ($1:variable)
+ case ($2:values)
+ $0
+end select</string>
+ <key>name</key>
+ <string>select case</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>sel</string>
+ <key>uuid</key>
+ <string>37641F82-864C-4FE5-B93B-7B9FC13166BB</string>
+</dict>
+</plist>
View
16 Snippets/spread.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>spread(${1:source}, dim=${2:1}, ncopies=$3)</string>
+ <key>name</key>
+ <string>spread</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>spread</string>
+ <key>uuid</key>
+ <string>7331B9EE-F03D-4472-9243-992184B260A6</string>
+</dict>
+</plist>
View
16 Snippets/stop.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>stop "${1:message}"</string>
+ <key>name</key>
+ <string>stop</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>stop</string>
+ <key>uuid</key>
+ <string>7F2C2B22-50AA-49D5-A432-C8CDE12EDB09</string>
+</dict>
+</plist>
View
19 Snippets/subroutine.tmSnippet
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>subroutine ${1:name}
+ ${2:argument type}, intent(${3:inout}) :: ${1/\w+\((.*)\)|.*/$1/}
+ $0
+end subroutine ${1/(\w+).*/$1/}</string>
+ <key>name</key>
+ <string>subroutine</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>sub</string>
+ <key>uuid</key>
+ <string>73DCA7B1-1444-418A-89ED-6F44B061538F</string>
+</dict>
+</plist>
View
16 Snippets/unpack.tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>unpack(${1:vector}, mask=(${2:$1&gt;0}), field=${3:destination array})</string>
+ <key>name</key>
+ <string>unpack</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>unpack</string>
+ <key>uuid</key>
+ <string>FFB7CA04-CB4B-4303-BF2A-CFD69A8665FA</string>
+</dict>
+</plist>
View
16 Snippets/where (single line).tmSnippet
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>where ( $1 ${2:==} $3 ) </string>
+ <key>name</key>
+ <string>where (single line)</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>wh</string>
+ <key>uuid</key>
+ <string>663FC26D-BEC6-4B64-8704-502E7348CABD</string>
+</dict>
+</plist>
View
18 Snippets/where.tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>where ( $1 ${2:==} $3 )
+ $0
+end where</string>
+ <key>name</key>
+ <string>where</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>whe</string>
+ <key>uuid</key>
+ <string>EDEB3A12-66A0-435B-A15D-28C18444A242</string>
+</dict>
+</plist>
View
18 Snippets/write (Sequental Access).tmSnippet
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+ <key>content</key>
+ <string>write(unit=${1:iounit}, fmt="(${2:format string})", iostat=${3:ios}${4:, advance='NO'}) ${5:variables}
+if ( $3 /= 0 ) stop "Write error in file unit $1"
+</string>
+ <key>name</key>
+ <string>Write</string>
+ <key>scope</key>
+ <string>source.fortran</string>
+ <key>tabTrigger</key>
+ <string>write</string>
+ <key>uuid</key>
+ <string>A96BC9D7-5A5C-413C-8F3D-8155F98CCC79</string>
+</dict>
+</plist>
View
286 info.plist
@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>contactEmailRot13</key>
@@ -10,28 +10,306 @@
<string>Support for the &lt;a href="http://en.wikipedia.org/wiki/Fortran"&gt;Fortran&lt;/a&gt; programming language.</string>
<key>mainMenu</key>
<dict>
+ <key>excludedItems</key>
+ <array>
+ <string>0B000E20-A4F2-495A-B0B1-242851333225</string>
+ </array>
<key>items</key>
<array>
<string>21AF6BCC-5AD2-4B47-8A6B-0EB7F27BD97C</string>
+ <string>EDD1628F-BB8C-4EC1-AFBD-90EC260F45B9</string>
<string>ED1485C9-393F-4B62-A8E8-62B242E4C7CF</string>
<string>------------------------------------</string>
- <string>B907E3F4-F0DD-41BF-8148-98486B9F7654</string>
+ <string>C70EA0DA-8A27-4356-B1AC-B65E6B9EF82C</string>
+ <string>6080DD81-D85B-419C-9A21-19774460DBD9</string>
+ <string>810B61BF-3971-41B8-A72E-34C03A9A7230</string>
+ <string>D0544DE9-FE32-4561-B4E7-40F3A2CD1765</string>
+ <string>93ADA3ED-35E8-42CC-8C64-9255AA737DF3</string>
+ <string>C13F20E8-106B-48CF-B0DD-95DE429A3B3B</string>
+ <string>E13A5799-05D2-4E49-9D16-E3B2890A1A11</string>
</array>
<key>submenus</key>
- <dict/>
+ <dict>
+ <key>501A9D50-1378-47D0-9964-7D3576E2B522</key>
+ <dict>
+ <key>items</key>
+ <array>
+ <string>20CAACE7-E2D8-4233-8F1E-0ABA182047D4</string>
+ <string>9AA512D2-E341-4F05-A2BB-EBB339E3B187</string>
+ <string>3693BFC4-76F5-4ED3-837B-BD383BBAC5B0</string>
+ </array>
+ <key>name</key>
+ <string>Open...</string>
+ </dict>
+ <key>6080DD81-D85B-419C-9A21-19774460DBD9</key>
+ <dict>
+ <key>items</key>
+ <array>
+ <string>097FA6C9-28FE-4A55-9FC6-0116074ED962</string>
+ <string>03298138-1221-4FF3-A6E6-C3F016CEA132</string>
+ <string>A20B45D5-F448-410D-B9CD-FA6AC4F174D6</string>
+ <string>------------------------------------</string>
+ <string>F3344347-B9EF-4574-B15E-22170D50D850</string>
+ <string>819B3AC9-225F-4699-A0F7-7ECBEE895AD2</string>
+ <string>6DBAE3F7-1B5A-4999-9246-E2A12A7C5555</string>
+ <string>0D6B27F6-93D7-46FC-ABC5-658D26D13A2C</string>
+ <string>C7F4ECBD-46FE-4E88-A6C6-2F645B319821</string>
+ <string>------------------------------------</string>
+ <string>34C0C62D-B2EC-4C39-B072-CCA5EBEC9B8C</string>
+ <string>C5AD4DF9-76C8-45A2-9705-6A31AD084007</string>
+ <string>C2434FF9-D70D-4C85-A93A-9CDC637FE633</string>
+ <string>670364D4-4FAD-4A3B-949C-1A68F43FCDA1</string>
+ <string>1503AED6-304A-423E-AEC6-BE6836EBB720</string>
+ </array>
+ <key>name</key>
+ <string>Variable Specification</string>
+ </dict>
+ <key>810B61BF-3971-41B8-A72E-34C03A9A7230</key>
+ <dict>
+ <key>items</key>
+ <array>
+ <string>93DAD02F-8CF5-413A-8C43-8574AABEF998</string>
+ <string>3EE70024-01D5-46E1-A8FE-15A02D31C999</string>
+ <string>E3CB3696-76E6-45E5-B3BD-98D6C412FB8E</string>
+ <string>------------------------------------</string>
+ <string>7A9D5F06-1CB9-46EF-9E93-C33A08BCC84D</string>
+ <string>6136E9F7-7683-43E8-94F8-535CBE8045CD</string>
+ <string>5F5CE350-E65B-4A12-9DE4-7F520EA7CEDA</string>
+ <string>CDED87E6-BD6D-4EA4-8649-10B1D7103A6F</string>
+ <string>35ECB83E-D696-4441-989A-AAAF9E63F156</string>
+ <string>------------------------------------</string>
+ <string>37641F82-864C-4FE5-B93B-7B9FC13166BB</string>
+ <string>883F17D6-1CC0-4D5F-8F47-0A57E59BAEE5</string>
+ <string>9C4F8960-34D5-4BE1-9CC0-91E6C67E7622</string>
+ <string>------------------------------------</string>
+ <string>7F2C2B22-50AA-49D5-A432-C8CDE12EDB09</string>
+ </array>
+ <key>name</key>
+ <string>Control Constructs</string>
+ </dict>
+ <key>93ADA3ED-35E8-42CC-8C64-9255AA737DF3</key>
+ <dict>
+ <key>items</key>
+ <array>
+ <string>B118C813-3B21-49DB-8EEB-323CBAADBE00</string>
+ <string>B907E3F4-F0DD-41BF-8148-98486B9F7654</string>
+ <string>87B37A6D-B542-4502-94CA-521A92E056D6</string>
+ <string>397592DB-34D9-45B6-AD23-F2E88FEB36C9</string>
+ <string>------------------------------------</string>
+ <string>48F02C1F-F6FA-444F-8CE7-7B81C7A7344B</string>
+ <string>501A9D50-1378-47D0-9964-7D3576E2B522</string>
+ <string>B011EFC4-3A9A-4A42-AEAC-B8766008B828</string>
+ <string>A96BC9D7-5A5C-413C-8F3D-8155F98CCC79</string>
+ <string>C1A0A9D5-9D5D-479C-B079-7C4FB7ACD700</string>
+ <string>C93DF526-E933-4560-B63A-8E1CE6196FB7</string>
+ <string>1A5B5A09-1080-48CF-A4C3-3F81ACE69074</string>
+ <string>60090CCF-B104-47B5-BCB8-E2811EBA9CCF</string>
+ <string>------------------------------------</string>
+ <string>46575B73-BDD7-4905-BFCB-2B1C9AA4673D</string>
+ </array>
+ <key>name</key>
+ <string>Input/Output</string>
+ </dict>
+ <key>C13F20E8-106B-48CF-B0DD-95DE429A3B3B</key>
+ <dict>
+ <key>items</key>
+ <array>
+ <string>E5E4BACF-96DD-43EF-A400-D7D3F6ABBF85</string>
+ <string>------------------------------------</string>
+ <string>EDEB3A12-66A0-435B-A15D-28C18444A242</string>
+ <string>663FC26D-BEC6-4B64-8704-502E7348CABD</string>
+ <string>------------------------------------</string>
+ <string>51F171BF-D317-4510-A0E1-22565AFFDF55</string>
+ <string>8AA9DF85-9F20-417E-A71A-5B5BC555B0AA</string>
+ <string>718929E8-73E2-4B9F-B430-0888D5971952</string>
+ <string>------------------------------------</string>
+ <string>41715FAB-5954-4B10-A092-3FC9FA3E3D67</string>
+ <string>BCB3E520-B100-4B1D-9DAE-62D0FEB1EA52</string>
+ <string>FFB7CA04-CB4B-4303-BF2A-CFD69A8665FA</string>
+ <string>61F063A9-1F71-4748-97ED-DB2E8DC4E8F5</string>
+ <string>7331B9EE-F03D-4472-9243-992184B260A6</string>
+ <string>------------------------------------</string>
+ <string>1757DE15-4544-482C-89DC-0781E39A7F87</string>
+ <string>EDA18DD2-F08C-44BF-90C1-A5FC7E55E909</string>
+ <string>CA4E14B0-9F08-40F4-A7D9-61E9E7192FD4</string>
+ <string>------------------------------------</string>
+ <string>06C627D7-EB49-4FDF-A2B6-C9CC7CE97241</string>
+ <string>3D90E5F6-5002-4E48-B1C1-4C9E62DF24AF</string>
+ <string>8781D199-2E4E-4D11-BFF3-F8729D9523C1</string>
+ <string>4AD4A84B-5110-4B49-9E0F-88B08A5AAF97</string>
+ <string>5092CD14-3CCC-4EC2-B8F1-09A5277977F9</string>
+ <string>F0A4E40E-C92B-44B8-AFD8-CB15E94C81F1</string>
+ <string>E8684191-D405-4BD8-BCEB-8BC9E150550B</string>
+ <string>F05CAEAE-2DBC-45F9-A83C-A41378159D5C</string>
+ </array>
+ <key>name</key>
+ <string>Arrays</string>
+ </dict>
+ <key>C70EA0DA-8A27-4356-B1AC-B65E6B9EF82C</key>
+ <dict>
+ <key>items</key>
+ <array>
+ <string>3CE33649-97AE-4497-BFA0-FA79AAEB5EE0</string>
+ <string>BE566EAC-E0C9-4922-99CC-AE5349751A5C</string>
+ <string>358E0BE9-B020-4932-A421-79F269CE10A1</string>
+ <string>212C550B-1D28-4713-BF75-F660254D04C4</string>
+ <string>73DCA7B1-1444-418A-89ED-6F44B061538F</string>
+ <string>F08951B5-CAC2-4373-9422-8588D0F1E742</string>
+ <string>8806B464-11D1-419E-B883-3727F144FCC5</string>
+ <string>0D6DE4E4-53AF-44E4-B8B8-D4F36FF96F77</string>
+ </array>
+ <key>name</key>
+ <string>Programming Units</string>
+ </dict>
+ <key>D0544DE9-FE32-4561-B4E7-40F3A2CD1765</key>
+ <dict>
+ <key>items</key>
+ <array>
+ <string>2316E789-8E34-4874-A517-6BF8E52ECC4C</string>
+ <string>F8C2C9C2-B317-43E4-AEFD-AFF17B85728F</string>
+ <string>F19E59C4-7D5F-4EA8-A29A-F144F4F2AC85</string>
+ <string>7526D521-2CF7-4436-9D11-824B76D424F6</string>
+ <string>BFF92277-2A0B-40E1-A896-9DB8C1C69036</string>
+ <string>------------------------------------</string>
+ <string>76A04572-9358-499C-B2E3-5E96445441E2</string>
+ <string>3537B123-DB04-475A-8B8A-A5D223872FC1</string>
+ <string>536D0C28-DD04-4B0C-8B22-61649F607322</string>
+ <string>0123B289-0889-41AA-839A-F7F2D6154723</string>
+ <string>3B8BB0B3-CEE1-496B-B844-465F49C038E6</string>
+ <string>------------------------------------</string>
+ <string>93FA9EEB-7A4E-4907-B723-A2B379FCA041</string>
+ <string>ABBFB45A-CA54-4812-A2AC-732C52D78953</string>
+ <string>73D0556C-56DB-4BCD-ABBC-456B77BEAB7E</string>
+ <string>------------------------------------</string>
+ <string>9A5E1955-62E4-4BA4-937B-A76B402D0825</string>
+ <string>EC40FA8C-65A9-40B6-9A5E-FC681755FADD</string>
+ </array>
+ <key>name</key>
+ <string>Relational &amp; Logical</string>
+ </dict>
+ <key>E13A5799-05D2-4E49-9D16-E3B2890A1A11</key>
+ <dict>
+ <key>items</key>
+ <array>
+ <string>2186372D-4DFE-424D-B7CC-81686816FBEB</string>
+ <string>9D750E6B-948F-4913-9710-A3EAD3B9F804</string>
+ <string>------------------------------------</string>
+ <string>450D663B-E62D-45BA-B194-D2C560A886B8</string>
+ <string>8814A6E1-7A85-4313-A75A-1D83EC1A9CD7</string>
+ </array>
+ <key>name</key>
+ <string>Math</string>
+ </dict>
+ </dict>
</dict>
<key>name</key>
<string>Fortran</string>
<key>ordering</key>
<array>
<string>21AF6BCC-5AD2-4B47-8A6B-0EB7F27BD97C</string>
+ <string>EDD1628F-BB8C-4EC1-AFBD-90EC260F45B9</string>
<string>ED1485C9-393F-4B62-A8E8-62B242E4C7CF</string>
+ <string>097FA6C9-28FE-4A55-9FC6-0116074ED962</string>
+ <string>F3344347-B9EF-4574-B15E-22170D50D850</string>
+ <string>819B3AC9-225F-4699-A0F7-7ECBEE895AD2</string>
+ <string>6DBAE3F7-1B5A-4999-9246-E2A12A7C5555</string>
+ <string>0D6B27F6-93D7-46FC-ABC5-658D26D13A2C</string>
+ <string>C7F4ECBD-46FE-4E88-A6C6-2F645B319821</string>
+ <string>34C0C62D-B2EC-4C39-B072-CCA5EBEC9B8C</string>
+ <string>C5AD4DF9-76C8-45A2-9705-6A31AD084007</string>
+ <string>C2434FF9-D70D-4C85-A93A-9CDC637FE633</string>
+ <string>670364D4-4FAD-4A3B-949C-1A68F43FCDA1</string>
+ <string>1503AED6-304A-423E-AEC6-BE6836EBB720</string>
+ <string>03298138-1221-4FF3-A6E6-C3F016CEA132</string>
+ <string>A20B45D5-F448-410D-B9CD-FA6AC4F174D6</string>
+ <string>3CE33649-97AE-4497-BFA0-FA79AAEB5EE0</string>
+ <string>BE566EAC-E0C9-4922-99CC-AE5349751A5C</string>
+ <string>73DCA7B1-1444-418A-89ED-6F44B061538F</string>
+ <string>F08951B5-CAC2-4373-9422-8588D0F1E742</string>
+ <string>358E0BE9-B020-4932-A421-79F269CE10A1</string>
+ <string>212C550B-1D28-4713-BF75-F660254D04C4</string>
+ <string>8806B464-11D1-419E-B883-3727F144FCC5</string>
+ <string>0D6DE4E4-53AF-44E4-B8B8-D4F36FF96F77</string>
+ <string>2186372D-4DFE-424D-B7CC-81686816FBEB</string>
+ <string>9D750E6B-948F-4913-9710-A3EAD3B9F804</string>
+ <string>450D663B-E62D-45BA-B194-D2C560A886B8</string>
+ <string>8814A6E1-7A85-4313-A75A-1D83EC1A9CD7</string>
<string>B907E3F4-F0DD-41BF-8148-98486B9F7654</string>
+ <string>87B37A6D-B542-4502-94CA-521A92E056D6</string>
+ <string>397592DB-34D9-45B6-AD23-F2E88FEB36C9</string>
+ <string>B118C813-3B21-49DB-8EEB-323CBAADBE00</string>
+ <string>48F02C1F-F6FA-444F-8CE7-7B81C7A7344B</string>
+ <string>20CAACE7-E2D8-4233-8F1E-0ABA182047D4</string>
+ <string>9AA512D2-E341-4F05-A2BB-EBB339E3B187</string>
+ <string>3693BFC4-76F5-4ED3-837B-BD383BBAC5B0</string>
+ <string>B011EFC4-3A9A-4A42-AEAC-B8766008B828</string>
+ <string>A96BC9D7-5A5C-413C-8F3D-8155F98CCC79</string>
+ <string>C1A0A9D5-9D5D-479C-B079-7C4FB7ACD700</string>
+ <string>C93DF526-E933-4560-B63A-8E1CE6196FB7</string>
+ <string>1A5B5A09-1080-48CF-A4C3-3F81ACE69074</string>
+ <string>60090CCF-B104-47B5-BCB8-E2811EBA9CCF</string>
+ <string>46575B73-BDD7-4905-BFCB-2B1C9AA4673D</string>
+ <string>93DAD02F-8CF5-413A-8C43-8574AABEF998</string>
+ <string>3EE70024-01D5-46E1-A8FE-15A02D31C999</string>
+ <string>E3CB3696-76E6-45E5-B3BD-98D6C412FB8E</string>
+ <string>7A9D5F06-1CB9-46EF-9E93-C33A08BCC84D</string>
+ <string>6136E9F7-7683-43E8-94F8-535CBE8045CD</string>
+ <string>5F5CE350-E65B-4A12-9DE4-7F520EA7CEDA</string>
+ <string>35ECB83E-D696-4441-989A-AAAF9E63F156</string>
+ <string>CDED87E6-BD6D-4EA4-8649-10B1D7103A6F</string>
+ <string>37641F82-864C-4FE5-B93B-7B9FC13166BB</string>
+ <string>883F17D6-1CC0-4D5F-8F47-0A57E59BAEE5</string>
+ <string>9C4F8960-34D5-4BE1-9CC0-91E6C67E7622</string>
+ <string>7F2C2B22-50AA-49D5-A432-C8CDE12EDB09</string>
+ <string>EDEB3A12-66A0-435B-A15D-28C18444A242</string>
+ <string>663FC26D-BEC6-4B64-8704-502E7348CABD</string>
+ <string>F05CAEAE-2DBC-45F9-A83C-A41378159D5C</string>
+ <string>E8684191-D405-4BD8-BCEB-8BC9E150550B</string>
+ <string>E5E4BACF-96DD-43EF-A400-D7D3F6ABBF85</string>
+ <string>41715FAB-5954-4B10-A092-3FC9FA3E3D67</string>
+ <string>BCB3E520-B100-4B1D-9DAE-62D0FEB1EA52</string>
+ <string>FFB7CA04-CB4B-4303-BF2A-CFD69A8665FA</string>
+ <string>61F063A9-1F71-4748-97ED-DB2E8DC4E8F5</string>
+ <string>7331B9EE-F03D-4472-9243-992184B260A6</string>
+ <string>51F171BF-D317-4510-A0E1-22565AFFDF55</string>
+ <string>718929E8-73E2-4B9F-B430-0888D5971952</string>
+ <string>8AA9DF85-9F20-417E-A71A-5B5BC555B0AA</string>
+ <string>5092CD14-3CCC-4EC2-B8F1-09A5277977F9</string>
+ <string>F0A4E40E-C92B-44B8-AFD8-CB15E94C81F1</string>
+ <string>06C627D7-EB49-4FDF-A2B6-C9CC7CE97241</string>
+ <string>3D90E5F6-5002-4E48-B1C1-4C9E62DF24AF</string>
+ <string>1757DE15-4544-482C-89DC-0781E39A7F87</string>
+ <string>EDA18DD2-F08C-44BF-90C1-A5FC7E55E909</string>
+ <string>CA4E14B0-9F08-40F4-A7D9-61E9E7192FD4</string>
+ <string>8781D199-2E4E-4D11-BFF3-F8729D9523C1</string>
+ <string>4AD4A84B-5110-4B49-9E0F-88B08A5AAF97</string>
+ <string>93FA9EEB-7A4E-4907-B723-A2B379FCA041</string>
+ <string>ABBFB45A-CA54-4812-A2AC-732C52D78953</string>
+ <string>73D0556C-56DB-4BCD-ABBC-456B77BEAB7E</string>
+ <string>2316E789-8E34-4874-A517-6BF8E52ECC4C</string>
+ <string>F8C2C9C2-B317-43E4-AEFD-AFF17B85728F</string>
+ <string>F19E59C4-7D5F-4EA8-A29A-F144F4F2AC85</string>
+ <string>7526D521-2CF7-4436-9D11-824B76D424F6</string>
+ <string>BFF92277-2A0B-40E1-A896-9DB8C1C69036</string>
+ <string>76A04572-9358-499C-B2E3-5E96445441E2</string>
+ <string>3537B123-DB04-475A-8B8A-A5D223872FC1</string>
+ <string>536D0C28-DD04-4B0C-8B22-61649F607322</string>
+ <string>0123B289-0889-41AA-839A-F7F2D6154723</string>
+ <string>3B8BB0B3-CEE1-496B-B844-465F49C038E6</string>
+ <string>9A5E1955-62E4-4BA4-937B-A76B402D0825</string>
+ <string>EC40FA8C-65A9-40B6-9A5E-FC681755FADD</string>
<string>45253F88-F7CC-49C5-9C32-F3FADD2AB579</string>
+ <string>016CA1B6-8351-4B17-9215-29C275D5D973</string>
<string>00465FB7-057F-4E7E-AFAC-B059DB0C03CF</string>
- <string>77FE8E31-891F-498D-990B-1B3AF6986DB6</string>
+ <string>3F504D8D-A4FA-4CB9-9469-FAE360409C1E</string>
+ <string>DF8B5C60-9DCD-4180-8FE0-6CEA5050EFE7</string>
+ <string>D3D60488-4BDD-468A-B1F4-19CC198D419A</string>
+ <string>A64DE2EC-3A2E-40E4-A26D-F53046DA8D42</string>
<string>3A48C5DB-0AB8-42FD-8F99-84C30C155168</string>
<string>98C10307-DA03-4243-A9BC-BE4C6708E5F5</string>
+ <string>77FE8E31-891F-498D-990B-1B3AF6986DB6</string>
+ <string>A5DF069E-A2A5-463A-A8A9-302A02B13DBC</string>
+ <string>661D40B0-ABA8-4F53-93B8-9A3C96B74B58</string>
</array>
<key>uuid</key>
<string>1F0EE883-C3DA-4AD4-82F2-6795F0B2CA7B</string>

0 comments on commit 9d1050b

Please sign in to comment.
Something went wrong with that request. Please try again.