File indexing completed on 2024-05-12 04:02:07
0001 <!DOCTYPE html> 0002 <html><head> 0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> 0004 <title>highlight.f</title> 0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (Fortran (Fixed Format)) - Theme (Breeze Light)"/> 0006 </head><body style="background-color:#ffffff;color:#1f1c1b"><pre> 0007 <span style="color:#898887">* This file is an example to test the syntax highlighting file fortran-fixed.xml</span> 0008 <span style="color:#898887">* (for fortran, fixed format)</span> 0009 0010 <span style="color:#898887">c <-- this is a comment in the old fortran 77 style (fixed form)</span> 0011 <span style="color:#898887">c In the free form file, so we shouldn't use this kind of comments!</span> 0012 <span style="color:#898887">c But fortran 90 still understands fixed form, when parsing sources with</span> 0013 <span style="color:#898887">c the *.f extension.</span> 0014 0015 <span style="color:#898887">* this 'c' shouldn't be highlighted as a comment!</span> 0016 c 0017 0018 <span style="color:#898887">* Prints the values of e ** (j * i * pi / 4) for i = 0, 1, 2, ..., 7</span> 0019 <span style="color:#898887">* where j is the imaginary number sqrt(-1)</span> 0020 0021 <span style="font-weight:bold">PROGRAM</span> CMPLXD 0022 <span style="font-weight:bold">IMPLICIT</span> <span style="color:#0057ae">COMPLEX(X)</span> 0023 <span style="color:#0057ae">PARAMETER</span> (PI <span style="font-weight:bold">=</span> <span style="color:#b08000">3.141592653589793</span>, XJ <span style="font-weight:bold">=</span> (<span style="color:#b08000">0</span>, <span style="color:#b08000">1</span>)) <span style="color:#898887">this text should be highlighted as a comment because it is after the 72th column (ignored by the compiler)</span> 0024 <span style="font-weight:bold">DO</span> <span style="color:#b08000">1</span>, I <span style="font-weight:bold">=</span> <span style="color:#b08000">0</span>, <span style="color:#b08000">7</span> 0025 X <span style="font-weight:bold">=</span> <span style="color:#644a9b;font-weight:bold">EXP</span>(XJ <span style="font-weight:bold">*</span> I <span style="font-weight:bold">*</span> PI <span style="font-weight:bold">/</span> <span style="color:#b08000">4</span>) 0026 <span style="font-weight:bold">IF</span> (<span style="color:#644a9b;font-weight:bold">AIMAG</span>(X)<span style="color:#ca60ca;font-weight:bold">.LT.</span><span style="color:#b08000">0</span>) <span style="font-weight:bold">THEN</span> 0027 <span style="color:#644a9b">PRINT</span> <span style="color:#b08000">2</span>, <span style="color:#bf0303">'e**(j*'</span>, I, <span style="color:#bf0303">'*pi/4) = '</span>, <span style="color:#898887">! I am an in-line comment</span> 0028 <span style="color:#644a9b;font-weight:bold"> *</span> <span style="color:#0057ae">REAL(X)</span>, <span style="color:#bf0303">' - j'</span>,<span style="font-weight:bold">-</span><span style="color:#644a9b;font-weight:bold">AIMAG</span>(X) <span style="color:#898887">! the character at the 6th column indicate a continuation line and should be highlighted as a continuation character</span> 0029 <span style="font-weight:bold">ELSE</span> 0030 <span style="color:#644a9b">PRINT</span> <span style="color:#b08000">2</span>, <span style="color:#bf0303">'e**(j*'</span>, I, <span style="color:#bf0303">'*pi/4) = '</span>, 0031 <span style="color:#644a9b;font-weight:bold"> *</span> <span style="color:#0057ae">REAL(X)</span>, <span style="color:#bf0303">' + j'</span>, <span style="color:#644a9b;font-weight:bold">AIMAG</span>(X) 0032 <span style="font-weight:bold">END IF</span> 0033 <span style="color:#644a9b">FORMAT (</span>A, I1, A, F10.7, A, F9.7<span style="color:#644a9b">)</span> 0034 <span style="font-weight:bold">CONTINUE</span> 0035 <span style="font-weight:bold">ENDDO</span> 0036 <span style="font-weight:bold">STOP</span> 0037 <span style="font-weight:bold">END</span> 0038 </pre></body></html>