<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE language SYSTEM "language.dtd">
<language name="Fortran" section="Sources" extensions="*.f;*.F;*.x" mimetype="text/x-fortran-src">
  <highlighting>
    <list name="keywords">
      <item> break </item>
      <item> common </item>
      <item> continue </item>
      <item> date </item>
      <item> default </item>
      <item> dimension </item>
      <item> do </item>
      <item> else </item>
      <item> enddo </item>
      <item> endif </item>
      <item> for </item>
      <item> goto </item>
      <item> go </item>
      <item> to </item>
      <item> if </item>
      <item> then </item>
      <item> return </item>
      <item> end </item>
      <item> format </item>
      <item> write </item>
      <item> read </item>
      <item> subroutine </item>
      <item> function </item>
      <item> switch </item>
      <item> program </item>
      <item> call </item>
      <item> while </item>
      <item> &per;gt&per; </item>
      <item> &per;lt&per; </item>
      <item> &per;ge&per; </item>
      <item> &per;le&per; </item>
      <item> &per;eq&per; </item>
      <item> &per;ne&per; </item>
    </list>
    <list name="types">
      <item> character </item>
      <item> complex </item>
      <item> double </item>
      <item> precision </item>
      <item> real </item>
      <item> real*8 </item>
      <item> integer </item>
      <item> common </item>
      <item> logical </item>
      <item> implicit </item>
      <item> dimension </item>
      <item> external </item>
      <item> parameter </item>
    </list>
    <contexts>
      <context attribute="Normal Text" lineEndContext="0">
        <keyword attribute="Keyword" context="0" String="keywords"/>
        <keyword attribute="Data Type" context="0" String="types"/>
        <Float attribute="Float" context="0">
          <AnyChar attribute="Float" context="0" String="fFdD"/>
        </Float>
        <HlCOct attribute="Octal" context="0"/>
        <HlCHex attribute="Hex" context="0"/>
        <Int attribute="Decimal" context="0" />
        <HlCChar attribute="Char" context="0"/>
        <DetectChar attribute="String" context="1" char="&quot;"/>
        <RegExpr attribute = "Comment" context="0" String="^[cC].*$"/>
        <RegExpr attribute = "Preprocessor" context="0" String="^[\*#].*$"/>
        <AnyChar attribute="Symbol" context="0" String="!%&amp;()+,-&lt;=&gt;?[]^{|}~"/>
      </context>
      <context attribute="String" lineEndContext="0">
        <HlCStringChar attribute="String Char" context="1"/>
        <DetectChar attribute="String" context="0" char="&quot;"/>
      </context>
    </contexts>
    <itemDatas>
      <itemData name="Normal Text" defStyleNum="dsNormal"/>
      <itemData name="Keyword"  defStyleNum="dsKeyword"/>
      <itemData name="Data Type"  defStyleNum="dsDataType"/>
      <itemData name="Decimal"  defStyleNum="dsDecVal"/>
      <itemData name="Octal"  defStyleNum="dsBaseN"/>
      <itemData name="Hex"  defStyleNum="dsBaseN"/>
      <itemData name="Float"  defStyleNum="dsFloat"/>
      <itemData name="Char"  defStyleNum="dsChar"/>
      <itemData name="String"  defStyleNum="dsString"/>
      <itemData name="String Char"  defStyleNum="dsChar"/>
      <itemData name="Comment"  defStyleNum="dsComment"/>
      <itemData name="Symbol"  defStyleNum="dsNormal"/>
      <itemData name="Preprocessor"  defStyleNum="dsOthers"/>
      <itemData name="Prep. Lib"  defStyleNum="dsOthers"/>
    </itemDatas>
  </highlighting>
  <general>
    <keywords casesensitive="0" />
    <comments>
      <comment name="singleLine" start="c" />
    </comments>
  </general>
</language>