<?xml version="1.0" encoding="UTF-8"?><!DOCTYPE language><language name="Fortran (Free Format)" version="5" kateversion="5.62" section="Sources" extensions="*.f90;*.F90;*.f95;*.F95;*.f03;*.F03;*.f08;*.F08;" mimetype="text/x-fortran-src" casesensitive="0" author="Franchin Matteo (fnch@libero.it), Janus Weil" license="MIT" priority="10"><highlighting><list name="keywords"><item>associate</item><item>import</item><item>impure</item><include>keywords##Fortran (Fixed Format)</include></list><list name="io_functions"><include>io_functions##Fortran (Fixed Format)</include></list><list name="io_keywords"><include>io_keywords##Fortran (Fixed Format)</include></list><list name="open_keywords"><include>open_keywords##Fortran (Fixed Format)</include></list><list name="inquire_keywords"><include>inquire_keywords##Fortran (Fixed Format)</include></list><list name="types"><item>abstract</item><item>asynchronous</item><item>bind</item><item>contiguous</item><item>deferred</item><item>enum</item><item>enumerator</item><item>final</item><item>generic</item><item>non_overridable</item><item>nopass</item><item>protected</item><include>types##Fortran (Fixed Format)</include><item>value</item><item>volatile</item></list><list name="elemental_procs"><item>acosh</item><item>asinh</item><item>atanh</item><item>bessel_j0</item><item>bessel_j1</item><item>bessel_jn</item><item>bessel_y0</item><item>bessel_y1</item><item>bessel_yn</item><include>elemental_procs##Fortran (Fixed Format)</include><item>erf</item><item>erfc</item><item>erfc_scaled</item><item>gamma</item><item>hypot</item><item>log_gamma</item></list><list name="inquiry_fn"><item>extends_type_of</item><item>image_index</item><include>inquiry_fn##Fortran (Fixed Format)</include><item>lcobound</item><item>same_type_as</item><item>storage_size</item><item>ucobound</item></list><list name="transform_fn"><item>iall</item><item>iany</item><item>iparity</item><item>num_images</item><item>parity</item><item>selected_char_kind</item><item>this_image</item><include>transform_fn##Fortran (Fixed Format)</include></list><list name="non_elem_subr"><item>cpu_time</item><item>execute_command_line</item><item>get_environment_variable</item><include>non_elem_subr##Fortran (Fixed Format)</include></list><contexts><context name="default" attribute="Normal Text"><IncludeRules context="find_strings"/><IncludeRules context="find_io_stmnts"/><IncludeRules context="find_op_and_log##Fortran (Fixed Format)"/><IncludeRules context="find_numbers##Fortran (Fixed Format)"/><IncludeRules context="find_preprocessor##Fortran (Fixed Format)"/><IncludeRules context="find_comments"/><IncludeRules context="find_symbols##Fortran (Fixed Format)"/><IncludeRules context="find_begin_stmnts"/><IncludeRules context="find_mid_stmnts"/><IncludeRules context="find_end_stmnts"/><IncludeRules context="find_decls"/><IncludeRules context="find_intrinsics"/></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"/><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_paren" attribute="Data Type" lineEndContext="#pop"><AnyChar String="([" attribute="Data Type" context="find_paren"/><AnyChar String=")]" attribute="Data Type" context="#pop"/></context><context name="comment" attribute="Comment" lineEndContext="#pop"><IncludeRules context="##Comments"/></context><context name="format_stmnt" attribute="Normal Text"><DetectChar char="(" attribute="IO Function" context="format_stmnt"/><DetectChar char=")" attribute="IO Function" context="#pop"/><IncludeRules context="find_strings"/><IncludeRules context="format_stmnt##Fortran (Fixed Format)"/></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##Fortran (Fixed Format)"/></context><context name="find_begin_stmnts" attribute="Normal Text"><WordDetect String="submodule" attribute="Keyword" beginRegion="Routine" insensitive="1"/><RegExpr String="\b(?:do\s*[,\s]\s*concurrent|select\s+type|block|critical)\b" attribute="Keyword" beginRegion="Block" insensitive="1"/><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"><DetectChar char="!" attribute="Comment" context="comment"/></context><context name="find_decls" attribute="Normal Text"><RegExpr String="\b(?:class|extends|procedure|pass|codimension)\s*[(]" attribute="Data Type" context="find_paren" insensitive="1"/><WordDetect String="codimension" attribute="Data Type" insensitive="1"/><WordDetect String="procedure" attribute="Data Type" insensitive="1"/><WordDetect String="pass" attribute="Data Type" insensitive="1"/><keyword String="types" attribute="Data Type"/><RegExpr String="\b(?:type|integer|real|complex|character|logical|intent|dimension)\s*[(]" attribute="Data Type" context="find_paren" insensitive="1"/><IncludeRules context="find_decls##Fortran (Fixed Format)"/></context><context name="find_end_stmnts" attribute="Normal Text"><RegExpr String="\bend\s*(?:procedure|submodule)\b" attribute="Keyword" endRegion="Routine" insensitive="1"/><RegExpr String="\bend\s*(?:block|critical)\b" attribute="Keyword" endRegion="Block" insensitive="1"/><RegExpr String="\bend\s*(?:associate)\b" attribute="Keyword" insensitive="1"/><RegExpr String="\bend\s*(?:type|enum)\b" attribute="Data Type" insensitive="1"/><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##Fortran (Fixed Format)"/><IncludeRules context="find_symbols##Fortran (Fixed Format)"/></context><context name="find_io_stmnts" attribute="Normal Text"><RegExpr String="\b(?:flush|wait|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"><RegExpr String="\b(?:type\s+is|class\s+(?:is|default))\b" attribute="Keyword" beginRegion="Block" endRegion="Block" insensitive="1"/><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="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="String" defStyleNum="dsString"/><itemData name="Comment" defStyleNum="dsComment"/><itemData name="IO Function" defStyleNum="dsFunction" bold="0" italic="0"/><itemData name="Elemental Procedure" 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="!"/></comments><keywords casesensitive="0"/></general></language>