package Ġorg . jetbrains . fortran . ide . highlighter Ċ Ċ import Ġcom . intellij . openapi . options . colors . Color Descriptor Ċ import Ġcom . intellij . openapi . options . colors . Color Settings Page Ċ Ċ class ĠFor tran Color Settings Page Ġ: ĠColor Settings Page Ġ{ ĊĠĠĠ Ġprivate Ġval ĠATTRIBUT ES Ġ= ĠFor tran Highlighting Colors . values (). map Ġ{ Ġit . attributes Descriptor Ġ}. to Typed Array () ĊĊĠĠĠ Ġprivate Ġval ĠAN NOT ATOR _ TAGS Ġ= ĠFor tran Highlighting Colors . values (). associate By ({ Ġit . name Ġ}, Ġ{ Ġit . text Attributes Key Ġ}) ĊĊĠĠĠ Ġoverride Ġfun Ġget DisplayName () Ġ= Ġ" For tran " ĊĠĠĠ Ġoverride Ġfun Ġget Icon () Ġ= Ġnull ĊĠĠĠ Ġoverride Ġfun Ġget Attribute Descriptors () Ġ= ĠATTRIBUT ES ĊĠĠĠ Ġoverride Ġfun Ġget Color Descriptors (): ĠArray < Color Descriptor > Ġ= ĠColor Descriptor . EMPTY _ ARRAY ĊĠĠĠ Ġoverride Ġfun Ġget Highlight er () Ġ= ĠFor tran High Light er ( false ) ĊĠĠĠ Ġoverride Ġfun Ġget Additional Highlighting Tag To Descriptor Map () Ġ= ĠAN NOT ATOR _ TAGS ĊĠĠĠ Ġoverride Ġfun Ġget Demo Text () Ġ: ĠString Ġ= Ġ""" # include Ġ' include . f 9 5 ' Ċ ! comment Ċ < KEYWORD > data </ KEYWORD > Ġ< IDENTIFIER > binary </ IDENTIFIER > Ġ/ ĠB ' 1 0 1 '/ Ċ < KEYWORD > data </ KEYWORD > Ġ< IDENTIFIER > oct al </ IDENTIFIER > Ġ Ġ/ ĠO ' 7 6 5 '/ Ċ < KEYWORD > data </ KEYWORD > Ġ< IDENTIFIER > hex </ IDENTIFIER > ĠĠĠ Ġ/ ĠZ ' 4 ' Ġ Ġ/ Ċ < KEYWORD > real </ KEYWORD > Ġ< IDENTIFIER > W </ IDENTIFIER >( 1 0 0 , 1 0 0 )[ 0 : 2 ,* ] Ċ < KEYWORD > integer </ KEYWORD >, Ġ< KEYWORD > dimension </ KEYWORD >( 2 ) Ġ:: Ġ< IDENTIFIER > array </ IDENTIFIER > Ġ= Ġ(/ Ġ 1 , Ġ 2 Ġ/ ) Ċ < KEYWORD > logical </ KEYWORD > Ġ< IDENTIFIER > b </ IDENTIFIER > Ġ= Ġ. true . Ċ < KEYWORD > format </ KEYWORD > Ġ( 1 PE 1 2 . 4 , ĠI 1 0 ) Ċ < KEYWORD > if </ KEYWORD > Ġ(< IDENTIFIER > a </ IDENTIFIER > Ġ. le . Ġ 1 0 Ġ. and . Ġ< IDENTIFIER > b </ IDENTIFIER > Ġ> Ġ 1 2 Ġ. or . Ġ< IDENTIFIER > c </ IDENTIFIER >) ĊĠĠ Ġ< IDENTIFIER > c </ IDENTIFIER > Ġ= Ġ( 1 2 ** 2 Ġ+ Ġ 1 2 . 3 d 0 Ġ< Ġ< IDENTIFIER > v </ IDENTIFIER >% < IDENTIFIER > res </ IDENTIFIER >) Ġ. eq v . Ġ. not . Ġ(< IDENTIFIER > a </ IDENTIFIER > Ġ. defined operator . Ġ< IDENTIFIER > b </ IDENTIFIER >) Ċ < KEYWORD > else </ KEYWORD > ĊĠĠ Ġ< KEYWORD > write </ KEYWORD >( *, *) Ġ" Test Ġoutput " Ċ < KEYWORD > endif </ KEYWORD > Ċ < KEYWORD > end </ KEYWORD > """ Ċ Ċ } ĊĊ