; ***************************** Module Header ******************************\
;
; Module Name: fortran.hil
;
; Definitons of the Netlabs EPM Distribution Project
; for the syntax highlighting of the EPM mode "FORTRAN90"
;
; Among others these definitions implement the definitions of
; the respective epmkwds definitions file of the EPMBBS distributiuon.
;
; Original empkwds.f90 file provided by Jason Liao.
;
; Copyright (c) Netlabs EPM Distribution Project 2002
;
; $Id$
;
; ===========================================================================
;
; This file is part of the Netlabs EPM Distribution package and is free
; software.  You can redistribute it and/or modify it under the terms of the
; GNU General Public License as published by the Free Software
; Foundation, in version 2 as it comes in the "COPYING" file of the
; Netlabs EPM Distribution.  This library is distributed in the hope that it
; will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
; of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
; General Public License for more details.
;
; **************************************************************************/

[COMMENT]
; Start   End     Escape    StartPos
; string  string  character
  !
; 'c' and 'C' would match every keyword starting with 'c':
; c       NONE:   NONE:     1
; C       NONE:   NONE:     1
  *       NONE:   NONE:     1

[LITERAL]
; Start      End
; string     string
; real(kind= )
; (len=      )
  '          '
  "          "

[OPERATOR]
 +
 -
 *
 /
 /=
 <
 <=
 =
 ==
 >
 >=
 .and.
 .eq.
 .eqv.
 .false.
 .ge.
 .gt.
 .le.
 .lt.
 .neqv.
 .not.
 .or.
 .true.
 ::
 (
 )


[SPECIAL]
 :: LITERAL
 bit_size
 selected_int_kind
 selected_real_kind
 dot_product
 random_number
 random_seed
 data_and_time
 len_trim
 set_exponent
 system_clock

[DEFINITION]
 module
 program
 subroutine
 function

[KEYWORD]
; --- Fortran language keywords
 action
 advance
 allocatable
 allocate
 assign
 backspace
 block
 byte
 call
 case
 character
 close
 common
 complex
 contains
 continue
 cycle
 data
 deallocate
 default
 dimension
 do
 double
 else
 elsewhere
 elseif
 end
 enddo
 endfile
 endif
 entry
 equivalence
 exit
 external
 file
 format
 go
 if
 implicit
 in
 include
 inout
 inquire
 integer
 intent
 interface
 intrinsic
 iostat
 len
 logical
 namelist
 none
 nullify
 open
 optional
 out
 parameter
 pause
 pointer
 position
 precision
 print
 private
 public
 pure
 read
 readwrite
 real
 recursive
 result
 return
 rewind
 save
 select
 sequence
 status
 stop
 target
 then
 to
 type
 unit
 use
 where
 while
 write

[FUNCTION]
 abs
 achar
 acos
 adjustl
 adjustr
 aimag
 aint
 all
 allocated
 amint
 any
 asin
 associated
 atan
 atan2
 btest
 ceiling
 char
 cmplx
 conjg
 cos
 cosh
 count
 cshift
 dble
 digits
 dim
 dprod
 eoshift
 epsilon
 exp
 exponent
 floor
 fraction
 huge
 iachar
 iand
 ibclr
 ibits
 ibset
 ichar
 ieor
 index
 int
 ior
 ishft
 ishftc
 kind
 lbound
 lge
 lgt
 lle
 llt
 log
 log1
 matmul
 max
 maxexponent
 maxloc
 maxval
 merge
 min
 minexponent
 minloc
 minval
 mod
 mvbits
 nearest
 mint
 not
 pack
 present
 product
 radix
 range
 repeat
 reshape
 prspacing
 scale
 scan
 shape
 sign
 sin
 sinh
 size
 spacing
 spread
 sqrt
 sum
 tan
 tanh
 tiny
 transfer
 transpose
 trim
 ubound
 unpack
 verify