/L20"Fortran" FORTRAN_LANG Nocase Line Comment = ! File Extensions = FOR FTN F F90 F77
/Delimiters = ~!@#$%^&*()_-+={}[]|\;:'" 	<>,.?/
/Function String = "% +^([ a-zA-Z]+Function[a-zA-Z0-9 ]+(*^)$"
/Function String 1 = "% +^(^{Subroutine^}^{Program^}*^)$"
/Indent Strings = "Then" "Do"
/Unindent Strings = "End If" "EndIf" "End Do" "EndDo"
/C1"Structure"
Block
Contains
End
Function
Interface
Module
Program
Subroutine
Use
/C2"InOut"
Pause
Return
Stop
/C3"Supplied Functions"
Abs Achar Acos AcosD AdjustL AdjustR Aimag Aint All Allocated Anint Any ASin ASinD Associated Atan AtanD Atan2 Atan2D
BTest
Ceiling Char Cmplx Conjg Cos CosD CosH Cotan CoTanD Count CShift
Dble Dcmplx DFloat Digits Dim Dprod DReal DImag
EOF EOShift Epsilon Exp Exponent
Float Floor Fraction
Huge
IAbs IAchar Iand IBclr IBits IBset Ichar Ieor Index Int Ior Ishft Ishftc IsNaN
Kind
LBound Len LGE LGT LLE LLT Log Log10
MatMul Max MaxExponent MaxLoc MaxVal Merge Min MinExponent MinLoc MinVal Mod Modulo MvBits
Nearest Nint Null
Pack Present Product
Qcmplx Qext Qfloat Qreal
Radix Ran Randu Range Repeat Reshape RRspacing
Scale Scan Shape Sign Sin SinD SinH Size SizeOf Spacing Spread Sngl Sqrt Sum
Tan TanD TanH Tiny Transfer Transpose Trim
UBound Unpack UCase
Verify
/C4"Declarations"
Allocatable
Character Common Complex
Data Dimension Double
Equivalence External
Implicit Include Integer
Logical
Optional
Parameter Precision Private
Quadruple
Real Record Recursive
Save Sequence
/C5"Statements"
Accept Allocate Assign
Backspace
Call Case Close Continue Cycle
Deallocate Default Do
Else ElseIf ElseWhere EndDo EndFile EndIf Exit
For ForAll Format
Go GoTo
If Inquire
Nullify
Open
Print
Read Rewind
Select
Then To Type
Where While Write
/C6"Operators"
*
+
-
.
// /
:
<
=
>
and
eq eqv
ge gt
le lt
ne neqv not
or
/C7"Defined constants"
false
true
/C8"File I/O keywords"
Access Action AssociateVariable
Blank BlockSize BufferCount Buffered
CarriageControl Convert
DefaultFile Delim Direct Disp Dispose
Err Exist ExtendSize
File Fmt Form Formatted From
InitialSize IOStat
Key
Location
MaxRec
Name Named NextRec NoSpanBlocks Number
Opened Organization
Pad Position
ReadOnly Rec Recl RecordSize RecordType
Sequential Shared Status
Unformatted Unit UserOpen