<?xml version="1.0" encoding="UTF-8"?><!DOCTYPE language><language name="Fortran (Fixed Format)" version="11" kateversion="5.62" section="Sources" extensions="*.f;*.F;*.for;*.FOR;*.fpp;*.FPP;" mimetype="text/x-fortran-src" casesensitive="0" author="Franchin Matteo (fnch@libero.it)" license="MIT" priority="9"><highlighting><list name="keywords"><item>allocate</item><item>assignment</item><item>break</item><item>call</item><item>common</item><item>continue</item><item>cycle</item><item>deallocate</item><item>elemental</item><item>elsewhere</item><item>entry</item><item>equivalence</item><item>exit</item><item>external</item><item>for</item><item>forall</item><item>go</item><item>goto</item><item>if</item><item>implicit</item><item>include</item><item>interface</item><item>intrinsic</item><item>namelist</item><item>none</item><item>nullify</item><item>only</item><item>operator</item><item>pause</item><item>procedure</item><item>pure</item><item>record</item><item>recursive</item><item>result</item><item>return</item><item>stop</item><item>to</item><item>use</item><item>where</item><item>while</item></list><list name="io_functions"><item>access</item><item>backspace</item><item>close</item><item>format</item><item>inquire</item><item>open</item><item>print</item><item>read</item><item>rewind</item><item>write</item></list><list name="io_keywords"><item>advance</item><item>end</item><item>eor</item><item>err</item><item>fmt</item><item>iostat</item><item>size</item><item>status</item><item>unit</item></list><list name="open_keywords"><item>access</item><item>action</item><item>blank</item><item>delim</item><item>err</item><item>file</item><item>form</item><item>iostat</item><item>pad</item><item>position</item><item>recl</item><item>status</item><item>unit</item></list><list name="inquire_keywords"><item>access</item><item>action</item><item>blank</item><item>delim</item><item>direct</item><item>err</item><item>exist</item><item>file</item><item>form</item><item>formatted</item><item>iostat</item><item>name</item><item>named</item><item>nextrec</item><item>number</item><item>opened</item><item>pad</item><item>position</item><item>read</item><item>readwrite</item><item>recl</item><item>sequential</item><item>unformatted</item><item>unit</item><item>write</item></list><list name="types"><item>allocatable</item><item>optional</item><item>parameter</item><item>pointer</item><item>private</item><item>public</item><item>save</item><item>sequence</item><item>target</item></list><list name="elemental_procs"><item>abs</item><item>achar</item><item>acos</item><item>adjustl</item><item>adjustr</item><item>aimag</item><item>aint</item><item>alog</item><item>alog10</item><item>amax0</item><item>amax1</item><item>amin0</item><item>amin1</item><item>amod</item><item>anint</item><item>aprime</item><item>asin</item><item>atan</item><item>atan2</item><item>btest</item><item>cabs</item><item>ccos</item><item>ceiling</item><item>cexp</item><item>char</item><item>clog</item><item>cmplx</item><item>conjg</item><item>cos</item><item>cosh</item><item>csin</item><item>csqrt</item><item>dabs</item><item>dacos</item><item>dasin</item><item>datan</item><item>datan2</item><item>dble</item><item>dcmplx</item><item>dconjg</item><item>dcos</item><item>dcosh</item><item>ddim</item><item>ddmim</item><item>dexp</item><item>dfloat</item><item>dim</item><item>dimag</item><item>dint</item><item>dlog</item><item>dlog10</item><item>dmax1</item><item>dmin1</item><item>dmod</item><item>dnint</item><item>dprod</item><item>dreal</item><item>dsign</item><item>dsin</item><item>dsinh</item><item>dsqrt</item><item>dtan</item><item>dtanh</item><item>exp</item><item>exponent</item><item>float</item><item>floor</item><item>fraction</item><item>iabs</item><item>iachar</item><item>iand</item><item>ibclr</item><item>ibits</item><item>ibset</item><item>ichar</item><item>idim</item><item>idint</item><item>idnint</item><item>ieor</item><item>ifix</item><item>index</item><item>int</item><item>ior</item><item>ishft</item><item>ishftc</item><item>isign</item><item>len_trim</item><item>lge</item><item>lgt</item><item>lle</item><item>llt</item><item>log</item><item>log10</item><item>logical</item><item>max</item><item>max0</item><item>max1</item><item>merge</item><item>min</item><item>min0</item><item>min1</item><item>mod</item><item>modulo</item><item>mvbits</item><item>nearest</item><item>nint</item><item>not</item><item>rand</item><item>real</item><item>rrspacing</item><item>scale</item><item>scan</item><item>set_exponent</item><item>sign</item><item>sin</item><item>sinh</item><item>sngl</item><item>spacing</item><item>sqrt</item><item>tan</item><item>tanh</item><item>verify</item></list><list name="inquiry_fn"><item>allocated</item><item>associated</item><item>bit_size</item><item>digits</item><item>epsilon</item><item>huge</item><item>kind</item><item>lbound</item><item>len</item><item>maxexponent</item><item>minexponent</item><item>precision</item><item>present</item><item>radix</item><item>range</item><item>shape</item><item>size</item><item>tiny</item><item>ubound</item></list><list name="transform_fn"><item>all</item><item>any</item><item>count</item><item>cshift</item><item>dot_product</item><item>eoshift</item><item>findloc</item><item>matmul</item><item>maxloc</item><item>maxval</item><item>minloc</item><item>minval</item><item>pack</item><item>product</item><item>repeat</item><item>reshape</item><item>selected_int_kind</item><item>selected_real_kind</item><item>spread</item><item>sum</item><item>transfer</item><item>transpose</item><item>trim</item><item>unpack</item></list><list name="non_elem_subr"><item>date_and_time</item><item>random_number</item><item>random_seed</item><item>system_clock</item></list><contexts><context name="default" attribute="Normal Text"><IncludeRules context="find_preprocessor"/><IncludeRules context="find_comments"/><IncludeRules context="find_strings"/><IncludeRules context="find_decls"/><IncludeRules context="find_intrinsics"/><IncludeRules context="find_io_stmnts"/><IncludeRules context="find_op_and_log"/><IncludeRules context="find_numbers"/><IncludeRules context="find_continue"/><IncludeRules context="find_symbols"/><IncludeRules context="find_begin_stmnts"/><IncludeRules context="find_end_stmnts"/><IncludeRules context="find_mid_stmnts"/></context><context name="comment" attribute="Comment" lineEndContext="#pop"><IncludeRules context="##Comments"/></context><context name="end_of_string" attribute="String" fallthroughContext="#pop#pop"><DetectSpaces/><RegExpr String="&amp;\s*$" attribute="Keyword"/><DetectChar char="&amp;" attribute="Keyword" context="#pop" firstNonSpace="1"/><AnyChar String="cC*" attribute="Comment" context="comment" column="0"/><DetectChar char="!" attribute="Comment" context="comment" firstNonSpace="1"/></context><context name="find_strings" attribute="String"><DetectChar char="'" attribute="String" context="string_1"/><DetectChar char='"' attribute="String" context="string_2"/></context><context name="find_intrinsics" attribute="Normal Text"><keyword String="keywords" attribute="Keyword"/><keyword String="elemental_procs" attribute="Elemental Procedure"/><keyword String="inquiry_fn" attribute="Inquiry Function"/><keyword String="transform_fn" attribute="Transformational Function"/><keyword String="non_elem_subr" attribute="Non elemental subroutine"/></context><context name="find_numbers" attribute="Normal Text"><RegExpr String="[0-9]*+\.[0-9]++(?:[de][+-]?[0-9]+)?(?:[_](?:[0-9]++|[a-z][\w_]*))?|\b[0-9]++\.[0-9]*+(?:[de][+-]?[0-9]+)?(?:[_](?:[0-9]++|[a-z][\w_]*))?(?![a-z])|\b[0-9]++[de][+-]?[0-9]++(?:[_](?:[0-9]++|[a-z][\w_]*))?" attribute="Float" insensitive="1"/><RegExpr String="\b[0-9]++(?:[_](?:[0-9]++|[a-zA-Z][\w_]*))?|\b[bozx](?:['][0-9a-fA-F]++[']|[&#34;][0-9a-fA-F]++[&#34;])" attribute="Decimal"/></context><context name="find_symbols" attribute="Normal Text"><StringDetect String="**" attribute="Keyword"/><StringDetect String="(/" attribute="Keyword"/><StringDetect String="/)" attribute="Keyword"/><AnyChar String="&amp;+-*/=?[]^{|}~" attribute="Keyword"/><AnyChar String="()," attribute="Symbol"/></context><context name="preprocessor" attribute="Preprocessor" lineEndContext="#pop"/><context name="find_paren" attribute="Data Type" lineEndContext="#pop"><DetectChar char="(" attribute="Data Type" context="find_paren"/><DetectChar char=")" attribute="Data Type" context="#pop"/></context><context name="format_stmnt" attribute="Normal Text"><DetectChar char="(" attribute="IO Function" context="format_stmnt"/><DetectChar char=")" attribute="IO Function" context="#pop"/><RegExpr String="[0-9]*/" attribute="IO Function" insensitive="1"/><DetectChar char=":" attribute="IO Function"/><IncludeRules context="find_strings"/><IncludeRules context="find_symbols"/></context><context name="inside_func_paren" attribute="Normal Text"><DetectChar char="(" attribute="Normal Text" context="inside_func_paren"/><DetectChar char=")" attribute="Normal Text" context="#pop"/><IncludeRules context="find_strings"/><IncludeRules context="find_intrinsics"/><IncludeRules context="find_numbers"/></context><context name="find_begin_stmnts" attribute="Normal Text"><RegExpr String="\bmodule\s+procedure\b" attribute="Keyword" insensitive="1"/><RegExpr String="\b(?:subroutine|function|block\s*data|program|module)\b" attribute="Keyword" beginRegion="Routine" insensitive="1"/><RegExpr String="\b(?:then|do|select\s+case)\b" attribute="Keyword" beginRegion="Block" insensitive="1"/></context><context name="find_comments" attribute="Normal Text"><AnyChar String="cC*" attribute="Comment" context="comment" column="0"/><DetectChar char="!" attribute="Comment" context="comment"/><RegExpr String="." attribute="Comment" context="comment" column="72"/></context><context name="find_continue" attribute="Normal Text"><RegExpr String="^     [^0-9\s]" attribute="Continuation character" column="0"/></context><context name="find_decls" attribute="Normal Text"><RegExpr String="\b(?:integer|real|complex)[\*]\d{1,2}|\bend\s*type\b" attribute="Data Type" insensitive="1"/><keyword String="types" attribute="Data Type"/><WordDetect String="data" attribute="Data Type" insensitive="1" firstNonSpace="1"/><RegExpr String="\bcharacter[*][0-9]+\b" attribute="Data Type" insensitive="1"/><RegExpr String="\b(?:type|integer|real|complex|character|logical|intent|dimension)\s*[(]" attribute="Data Type" context="find_paren" insensitive="1"/><RegExpr String="\b(?:type|integer|real|complex|character|logical|double\s*precision|intent|dimension)\b" attribute="Data Type" insensitive="1"/><StringDetect String="::" attribute="Data Type"/></context><context name="find_end_stmnts" attribute="Normal Text"><RegExpr String="\bend\s*(?:subroutine|function|block\s*data|program|module)\b" attribute="Keyword" endRegion="Routine" insensitive="1"/><RegExpr String="\bend\s*(?:do|if)\b" attribute="Keyword" endRegion="Block" insensitive="1"/><RegExpr String="\bend\s*(?:select|where|forall|interface)\b" attribute="Keyword" insensitive="1"/><RegExpr String="\belse\s*if\b" attribute="Keyword" endRegion="Block" insensitive="1"/><WordDetect String="end" attribute="Keyword" endRegion="Routine" insensitive="1"/></context><context name="find_io_paren" attribute="Normal Text"><DetectChar char="*" attribute="IO Function"/><DetectChar char="(" attribute="Normal Text" context="inside_func_paren"/><DetectChar char=")" attribute="IO Function" context="#pop"/><keyword String="io_keywords" attribute="IO Function"/><keyword String="inquire_keywords" attribute="IO Function"/><keyword String="open_keywords" attribute="IO Function"/><IncludeRules context="find_strings"/><IncludeRules context="find_intrinsics"/><IncludeRules context="find_numbers"/><IncludeRules context="find_symbols"/></context><context name="find_io_stmnts" attribute="Normal Text"><RegExpr String="\b(?:read|write|backspace|rewind|end\s*file|close|open|inquire)\s*[(]" attribute="IO Function" context="find_io_paren" insensitive="1"/><RegExpr String="\bformat\s*[(]" attribute="IO Function" context="format_stmnt" insensitive="1"/><RegExpr String="\bend\s*file\b" attribute="IO Function" insensitive="1"/><keyword String="io_functions" attribute="IO Function"/></context><context name="find_mid_stmnts" attribute="Normal Text"><WordDetect String="else" attribute="Keyword" beginRegion="Block" endRegion="Block" insensitive="1"/><RegExpr String="\bcase(?:\s+default)?\b" attribute="Keyword" beginRegion="Block" endRegion="Block" insensitive="1"/><WordDetect String="contains" attribute="Keyword" beginRegion="Routine" endRegion="Routine" insensitive="1"/></context><context name="find_op_and_log" attribute="Normal Text"><StringDetect String=".true." attribute="Logical" insensitive="1"/><StringDetect String=".false." attribute="Logical" insensitive="1"/><RegExpr String="\.[A-Za-z]+\." attribute="Operator"/><StringDetect String="==" attribute="Operator"/><StringDetect String="/=" attribute="Operator"/><StringDetect String="&lt;=" attribute="Operator"/><StringDetect String=">=" attribute="Operator"/><AnyChar String="&lt;>%" attribute="Operator"/></context><context name="find_preprocessor" attribute="Normal Text"><DetectChar char="#" attribute="Preprocessor" context="preprocessor" column="0"/><StringDetect String="cDEC$" attribute="Preprocessor" context="preprocessor" column="0"/><StringDetect String="CDEC$" attribute="Preprocessor" context="preprocessor" column="0"/></context><context name="string_1" attribute="String" fallthroughContext="#pop"><RegExpr String="[^']*'" attribute="String" context="#pop"/><RegExpr String="&amp;\s*$" attribute="Keyword" context="end_of_string"/><RegExpr String=".*(?=&amp;\s*$)" attribute="String" context="end_of_string"/></context><context name="string_2" attribute="String" fallthroughContext="#pop"><RegExpr String='[^"]*"' attribute="String" context="#pop"/><RegExpr String="&amp;\s*$" attribute="Keyword" context="end_of_string"/><RegExpr String=".*(?=&amp;\s*$)" attribute="String" context="end_of_string"/></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="Float" defStyleNum="dsFloat"/><itemData name="String" defStyleNum="dsString"/><itemData name="Comment" defStyleNum="dsComment"/><itemData name="Symbol" defStyleNum="dsNormal"/><itemData name="Preprocessor" defStyleNum="dsOthers"/><itemData name="Operator" defStyleNum="dsOperator" bold="1" italic="0"/><itemData name="Logical" defStyleNum="dsConstant" bold="1" italic="0"/><itemData name="IO Function" defStyleNum="dsFunction" bold="0" italic="0"/><itemData name="Elemental Procedure" defStyleNum="dsBuiltIn" bold="1" italic="0"/><itemData name="Continuation character" defStyleNum="dsBuiltIn" bold="1" italic="0"/><itemData name="Inquiry Function" defStyleNum="dsFunction" bold="1" italic="1"/><itemData name="Transformational Function" defStyleNum="dsFunction" bold="1" italic="0"/><itemData name="Non elemental subroutine" defStyleNum="dsFunction" bold="1" italic="0"/></itemDatas></highlighting><general><comments><comment name="singleLine" start="c"/></comments><keywords casesensitive="0"/></general></language>