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,7 @@
# -*- mode: snippet -*-
# key: al
# contributor: Translated from TextMate Snippet
# name: Allocate Array
# --
allocate(${1:array}, stat=${2:err})
if ($2 /= 0) print *, "${1/(\w+).*/$1/}: Allocation request denied"

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"

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: deal
# contributor: Translated from TextMate Snippet
# name: Deallocate Array
# --
if (allocated($1)) deallocate(${1:array}, stat=${2:err})
if ($2 /= 0) print *, "$1: Deallocation request denied$0"

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: dot
# contributor: Translated from TextMate Snippet
# name: Dot Product of Vectors
# --
dot_product($1,$2)

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: maxloc
# contributor: Translated from TextMate Snippet
# name: Index of Maximum
# --
maxloc(${1:source}${2:, mask=${3:($1>0)}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: minloc
# contributor: Translated from TextMate Snippet
# name: Index of Minimum
# --
minloc(${1:source}${2:, mask=${3:$1>0}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: lbound
# contributor: Translated from TextMate Snippet
# name: Lower Bound
# --
lbound(${1:source}${2:, dim=${3:1}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: mat
# contributor: Translated from TextMate Snippet
# name: Matrix Multiplication
# --
matmul($1,$2)

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: maxval
# contributor: Translated from TextMate Snippet
# name: Maximum Value
# --
maxval(${1:source}${2:, dim=${3:1}}${4:, mask=${5:($1>0)}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: minval
# contributor: Translated from TextMate Snippet
# name: Minimum Value
# --
minval(${1:source}${2:, dim=${3:1}}${4:, mask=${5:($1>0)}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: prod
# contributor: Translated from TextMate Snippet
# name: Product of Elements
# --
product(${1:source}${2:, dim=${3:1}}${4:, mask=${5:($1>0)}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: size
# contributor: Translated from TextMate Snippet
# name: Size
# --
size(${1:source}${2:, dim=${3:1}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: sum
# contributor: Translated from TextMate Snippet
# name: Sum of Elements
# --
sum(${1:source}${2:, dim=${3:1}}${4:, mask=${5:($1>0)}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: ubound
# contributor: Translated from TextMate Snippet
# name: Upper Bound
# --
ubound(${1:source}${2:, dim=${3:1}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# contributor: Translated from TextMate Snippet
# name: Wrap Selection in Array Brackets
# binding: "@A"
# --
(/ `yas/selected-text`$0 /)

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: merge
# contributor: Translated from TextMate Snippet
# name: merge
# --
merge(${1:source}, ${2:alternative}, mask=(${2:$1>0}))

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: pack
# contributor: Translated from TextMate Snippet
# name: pack
# --
pack(${1:array}, mask=(${2:$1>0})${3:, vector=${4:destination vector}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: resh
# contributor: Translated from TextMate Snippet
# name: reshape
# --
reshape(${1:source}${2:, shape=(/$3/)}${4:, pad=(/$5/)}${6:, order=(/${7:2,1}/)})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: spread
# contributor: Translated from TextMate Snippet
# name: spread
# --
spread(${1:source}, dim=${2:1}, ncopies=$3)

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: unpack
# contributor: Translated from TextMate Snippet
# name: unpack
# --
unpack(${1:vector}, mask=(${2:$1>0}), field=${3:destination array})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: wh
# contributor: Translated from TextMate Snippet
# name: where (single line)
# --
where ( $1 ${2:==} $3 )

View File

@@ -0,0 +1,8 @@
# -*- mode: snippet -*-
# key: whe
# contributor: Translated from TextMate Snippet
# name: where
# --
where ( $1 ${2:==} $3 )
$0
end where

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: ido
# contributor: Translated from TextMate Snippet
# name: Implied do
# --
(${1:i}, $1 = ${2:1}, ${3:100}, ${4:1})$0

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: case
# contributor: Translated from TextMate Snippet
# name: case
# --
case ${1:default}
$0

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: cy
# contributor: Translated from TextMate Snippet
# name: cycle
# --
cycle

View File

@@ -0,0 +1,8 @@
# -*- mode: snippet -*-
# key: dow
# contributor: Translated from TextMate Snippet
# name: do while
# --
do while ( ${1:condition} )
$0
end do

View File

@@ -0,0 +1,8 @@
# -*- mode: snippet -*-
# key: do
# contributor: Translated from TextMate Snippet
# name: do
# --
do${1: ${2:i} = ${3:1}, ${4:100}, ${5:1}}
$0
end do

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: elif
# contributor: Translated from TextMate Snippet
# name: elseif
# --
elseif ( ${1:condition} ) then

View File

@@ -0,0 +1,8 @@
# -*- mode: snippet -*-
# key: for
# contributor: Translated from TextMate Snippet
# name: forall
# --
forall (${1:i=1:100}${2:, mask})
$0
end forall

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: if
# contributor: Translated from TextMate Snippet
# name: if (single line)
# --
if ( ${1:condition} )

View File

@@ -0,0 +1,8 @@
# -*- mode: snippet -*-
# key: if
# contributor: Translated from TextMate Snippet
# name: if
# --
if ( ${1:condition} ) then
$0
end if

View File

@@ -0,0 +1,8 @@
# -*- mode: snippet -*-
# key: ndo
# contributor: Translated from TextMate Snippet
# name: named: do
# --
${1:name}: do${2: ${3:i} = ${4:1}, ${5:100}, ${6:1}}
$0
end do $1

View File

@@ -0,0 +1,9 @@
# -*- mode: snippet -*-
# key: nsel
# contributor: Translated from TextMate Snippet
# name: named: select case
# --
${1:name}: select case ($2:variable)
case ($3:values) $1
$0
end select $1

View File

@@ -0,0 +1,9 @@
# -*- mode: snippet -*-
# key: sel
# contributor: Translated from TextMate Snippet
# name: select case
# --
select case ($1:variable)
case ($2:values)
$0
end select

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: stop
# contributor: Translated from TextMate Snippet
# name: stop
# --
stop "${1:message}"

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: close
# contributor: Translated from TextMate Snippet
# name: Close File
# --
close(unit=${1:iounit}, iostat=${2:ios}${3:, status="delete"})
if ( $2 /= 0 ) stop "Error closing file unit $1"

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: inq
# contributor: Translated from TextMate Snippet
# name: Inquire (by Filename)
# --
inquire(file=${1:filename}, opened=${2:ioopen}, exists=${3:ioexist}, number=${4:iounit})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: inq
# contributor: Translated from TextMate Snippet
# name: Inquire (by Unit)
# --
inquire(unit=${1:iounit}, opened=${2:ioopen}, name=${3:filename}, action=${4:ioaction})

View File

@@ -0,0 +1,8 @@
# -*- mode: snippet -*-
# key: open
# contributor: Translated from TextMate Snippet
# name: Open File
# --
open(unit=${1:iounit}, file=${2:name}, iostat=${3:ios}, &
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/}"

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: op
# contributor: Translated from TextMate Snippet
# name: Quick Open
# --
open(unit=${1:iounit}, file=${2:name}, iostat=${3:ios})
if ( $3 /= 0 ) stop "Error opening file ${2/[\"\'](.*)[\"\']/$1/}"

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: re
# contributor: Translated from TextMate Snippet
# name: Quick Read
# --
read*,

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: wr
# contributor: Translated from TextMate Snippet
# name: Quick Write
# --
write(unit=${1:iounit}, fmt=*) ${0:variables}

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: pr
# contributor: Translated from TextMate Snippet
# name: Quick Print
# --
print*,

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: read
# contributor: Translated from TextMate Snippet
# name: Read (Non Advancing Mode)
# --
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"

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: read
# contributor: Translated from TextMate Snippet
# name: Read
# --
read(unit=${1:iounit}, fmt="(${2:format string})", iostat=${3:istat}) ${4:variables}
if ( $3 /= 0 ) stop "Read error in file unit $1"

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: write
# contributor: Translated from TextMate Snippet
# name: Write
# --
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"

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# contributor: Translated from TextMate Snippet
# name: Line Continuation
# binding: "^
"
# --

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: rn
# contributor: Translated from TextMate Snippet
# name: Random Number
# --
call random_number($0)

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: rs
# contributor: Translated from TextMate Snippet
# name: Random Seed
# --
call random_seed(${1:size=${2:<int>}}${3:put=(/$4/)})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: max
# contributor: Translated from TextMate Snippet
# name: max
# --
max($1, $2${, $3:...})$0

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: min
# contributor: Translated from TextMate Snippet
# name: min
# --
min($1, $2${, $3:...})$0

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: open
# contributor: Translated from TextMate Snippet
# name: Input File
# --
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/}"

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: open
# contributor: Translated from TextMate Snippet
# name: Output File
# --
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/}"

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: open
# contributor: Translated from TextMate Snippet
# name: Scratch File
# --
open(unit=${1:iounit}, iostat=${3:ios}, status="${4:scratch}", action="${5:readwrite}")
if ( $3 /= 0 ) stop "Error opening scratch file on unit $1"

View File

@@ -0,0 +1,10 @@
# -*- mode: snippet -*-
# key: fun
# contributor: Translated from TextMate Snippet
# name: function
# --
function ${1:name}
${2:argument type}, intent(${3:inout}) :: ${1/\w+\((.*)\)|.*/$1/}
${4:function type} :: ${1/(\w+).*/$1/}
$0
end function ${1/(\w+).*/$1/}

View File

@@ -0,0 +1,8 @@
# -*- mode: snippet -*-
# key: interf
# contributor: Translated from TextMate Snippet
# name: interface
# --
interface ${1:name}
$0
end interface ! $1

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: mp
# contributor: Translated from TextMate Snippet
# name: module procedure
# --
module procedure ${0:name}

View File

@@ -0,0 +1,11 @@
# -*- mode: snippet -*-
# key: mod
# contributor: Translated from TextMate Snippet
# name: module
# --
module ${1:name}
implicit none
$0
end module $1

View File

@@ -0,0 +1,11 @@
# -*- mode: snippet -*-
# key: prog
# contributor: Translated from TextMate Snippet
# name: program
# --
program ${1:name}
implicit none
$0
end program $1

View File

@@ -0,0 +1,9 @@
# -*- mode: snippet -*-
# key: sub
# contributor: Translated from TextMate Snippet
# name: subroutine
# --
subroutine ${1:name}
${2:argument type}, intent(${3:inout}) :: ${1/\w+\((.*)\)|.*/$1/}
$0
end subroutine ${1/(\w+).*/$1/}

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: and
# contributor: Translated from TextMate Snippet
# name: And
# --
.and.

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: eq
# contributor: Translated from TextMate Snippet
# name: Equal
# --
.eq.

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: eqv
# contributor: Translated from TextMate Snippet
# name: Equality
# --
.eqv.

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: gt
# contributor: Translated from TextMate Snippet
# name: Greater Than
# --
.gt.

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: ge
# contributor: Translated from TextMate Snippet
# name: Greater or Equal
# --
.ge.

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: lt
# contributor: Translated from TextMate Snippet
# name: Less Than
# --
.lt.

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: le
# contributor: Translated from TextMate Snippet
# name: Less or Equal
# --
.le.

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: neqv
# contributor: Translated from TextMate Snippet
# name: Non-Equality
# --
.neqv.

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: not
# contributor: Translated from TextMate Snippet
# name: Not
# --
.not.

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: or
# contributor: Translated from TextMate Snippet
# name: Or
# --
.or.

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: F
# contributor: Translated from TextMate Snippet
# name: .FALSE.
# --
.FALSE.

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: T
# contributor: Translated from TextMate Snippet
# name: .TRUE.
# --
.TRUE.

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: all
# contributor: Translated from TextMate Snippet
# name: all
# --
all(${1:mask}${2:, dim=${3:1}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: any
# contributor: Translated from TextMate Snippet
# name: any
# --
any(${1:mask}${2:, dim=${3:1}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: count
# contributor: Translated from TextMate Snippet
# name: count
# --
count(${1:mask}${2:, dim=${3:1}})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: char
# contributor: Translated from TextMate Snippet
# name: Character
# --
character(len=$1${2:, kind=$3})${4:, ${5:attributes}} :: ${6:name}

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: typ
# contributor: Translated from TextMate Snippet
# name: Custom Type
# --
type(${1:type name})${2:, ${3:attributes}} :: ${4:name}

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: int
# contributor: Translated from TextMate Snippet
# name: Integer
# --
integer${1:(${2:kind})}${3:, ${4:attributes}} :: ${5:name}

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: log
# contributor: Translated from TextMate Snippet
# name: Logical
# --
logical${1:(${2:kind})}${3:, ${4:attributes}} :: ${5:name}

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: c
# contributor: Translated from TextMate Snippet
# name: Quick Character
# --
character(len=*) ::

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: t
# contributor: Translated from TextMate Snippet
# name: Quick Custom Type
# --
type(${1:type name}) ::

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: i
# contributor: Translated from TextMate Snippet
# name: Quick Integer
# --
integer ::

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: l
# contributor: Translated from TextMate Snippet
# name: Quick Logical
# --
logical ::

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: r
# contributor: Translated from TextMate Snippet
# name: Quick Real
# --
real ::

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: rea
# contributor: Translated from TextMate Snippet
# name: Real
# --
real${1:(${2:kind})}${3:, ${4:attributes}} :: ${5:name}

View File

@@ -0,0 +1,8 @@
# -*- mode: snippet -*-
# key: type
# contributor: Translated from TextMate Snippet
# name: Type Definition
# --
type ${1:type name}
$0
end type $1

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: data
# contributor: Translated from TextMate Snippet
# name: data
# --
data ${1:variable} / ${2:data} /

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: imp
# contributor: Translated from TextMate Snippet
# name: implicit none
# --
implicit none