Last commit before tagging and releasing

This commit is contained in:
capitaomorte
2009-08-29 17:59:02 +00:00
parent 15c7703b5b
commit b8dcf61367
640 changed files with 4360 additions and 77 deletions

View File

@@ -0,0 +1,10 @@
# -*- mode: snippet -*-
# key: alloc
# contributor: Translated from TextMate Snippet
# name: Allocate and Deallocate array
# --
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"