/usr/lib/rads/venv/lib/python3.13/site-packages/pygments/lexers/__pycache__
Edit: /usr/lib/rads/venv/lib/python3.13/site-packages/pygments/lexers/__pycache__/fortran.cpython-313.pyc (8731B)
j( S r SSKrSSKJrJrJrJrJrJr SSK J
r
J r J r J
r
JrJrJrJrJr SS/r " S S\5 r " S S\5 rg) z
pygments.lexers.fortran
~~~~~~~~~~~~~~~~~~~~~~~
Lexers for Fortran languages.
:copyright: Copyright 2006-2025 by the Pygments team, see AUTHORS.
:license: BSD, see LICENSE for details.
N)
RegexLexerbygroupsincludewordsusingdefault) TextCommentOperatorKeywordNameStringNumber PunctuationGeneric FortranLexerFortranFixedLexerc \ rS rSrSrSrSrSS/r/ SQrS/r S r
\ R \ R - rS
\R 4S \4\" S 5 \" S
5 S\4\" S5 S\R( 4/S\" \\R( \5 4S\" \\R( \5 4\" SSSS9\4\" SSSS9\R0 4S\4S\R4 4S\4\" SSSS9\R8 4S \R8 4S \R: 4/
S \ R> 4S \ R@ 4/S \!RD 4S!\!RF 4S"\!RF 4S#\!RF 4/S$.r$S%r%g&)'r z
Lexer for FORTRAN 90 code.
Fortranhttps://fortran-lang.org/fortranf90)z*.f03z*.f90z*.F03z*.F90ztext/x-fortranz0.10z^#.*\nz!.*\nstringscorez [a-z][\w$]*numsz[\s]+z\b(DO)(\s+)(CONCURRENT)\bz\b(GO)(\s*)(TO)\b)ABSTRACTACCEPTALLALLSTOP ALLOCATABLEALLOCATEARRAYASSIGN ASSOCIATE ASYNCHRONOUS BACKSPACEBINDBLOCK BLOCKDATABYTECALLCASECLASSCLOSE CODIMENSIONCOMMON
CONTIGUOUSCONTAINSCONTINUECRITICALCYCLEDATA
DEALLOCATEDECODEDEFERRED DIMENSIONDO ELEMENTALELSEELSEIFENCODEEND ENDASSOCIATEENDBLOCKENDDOENDENUM ENDFORALL ENDFUNCTIONENDIF ENDINTERFACE ENDMODULE
ENDPROGRAM ENDSELECT ENDSUBMODULE
ENDSUBROUTINEENDTYPEENDWHEREENTRYENUM
ENUMERATOR EQUIVALENCEz
ERROR STOPEXITEXTENDSEXTERNAL EXTRINSICFILEFINALFORALLFORMATFUNCTIONGENERICIFIMAGESIMPLICITIMPORTIMPUREINCLUDEINQUIREINTENT INTERFACE INTRINSICISLOCKMEMORYMODULENAMELISTNULLIFYNONE
NON_INTRINSICNON_OVERRIDABLENOPASSONLYOPENOPTIONALOPTIONS PARAMETERPASSPAUSEPOINTERPRINTPRIVATEPROGRAM PROCEDURE PROTECTEDPUBLICPUREREAD RECURSIVERESULTRETURNREWINDSAVESELECTSEQUENCESTOP SUBMODULE
SUBROUTINESYNCSYNCALL
SYNCIMAGES
SYNCMEMORYTARGETTHENTYPEUNLOCKUSEVALUEVOLATILEWHEREWRITEWHILEz\bz\s*\b)prefixsuffix)% CHARACTERCOMPLEXzDOUBLE PRECISIONzDOUBLE COMPLEXINTEGERLOGICALREALC_INTC_SHORTC_LONG C_LONG_LONG
C_SIGNED_CHARC_SIZE_TC_INT8_T C_INT16_T C_INT32_T C_INT64_TC_INT_LEAST8_TC_INT_LEAST16_TC_INT_LEAST32_TC_INT_LEAST64_T
C_INT_FAST8_TC_INT_FAST16_TC_INT_FAST32_TC_INT_FAST64_T
C_INTMAX_T
C_INTPTR_TC_FLOATC_DOUBLE
C_LONG_DOUBLEC_FLOAT_COMPLEXC_DOUBLE_COMPLEXC_LONG_DOUBLE_COMPLEXC_BOOLC_CHARC_PTRC_FUNPTRz$(\*\*|\*|\+|-|\/|<|>|<=|>=|==|\/=|=)z(::)z[()\[\],:&%;.](1 AbortAbsAccessACharACosACosHAdjustLAdjustRAImagAIntAlarmAll AllocatedALogAMaxAMinAModAndANIntAnyASinASinH
AssociatedATanATanH
Atomic_Define
Atomic_RefBesJBesJN Bessel_J0 Bessel_J1 Bessel_JN Bessel_Y0 Bessel_Y1 Bessel_YNBesYBesYNBGEBGTBLEBLTBit_SizeBTestCAbsCCosCeilingCExpCharChDirChModCLogCmplxCommand_Argument_CountComplexConjgCosCosHCountCPU_TimeCShiftCSinCSqRtCTimeC_Loc C_Associated
C_Null_Ptr
C_Null_Funptr C_F_PointerC_F_ProcPointer C_Null_CharC_Alert C_Backspace C_Form_FeedC_FunLocC_Sizeof
C_New_LineC_Carriage_ReturnC_Horizontal_TabC_Vertical_TabDAbsDACosDASinDATan
Date_and_TimeDbesJDbesJNDbesYDbesYNDbleDCosDCosHDDiMDErFDErFCDExpDigitsDiMDIntDLogDMaxDMinDModDNInt Dot_ProductDProdDSignDSinHDShiftLDShiftRDSinDSqRtDTanHDTanDTimeEOShiftEpsilonErFErFC ErFC_ScaledETimeExecute_Command_LineExitExpExponentExtends_Type_OfFDateFGetFGetCFindLocFloatFloorFlushFNumFPutCFPutFractionFSeekFStatFTellGammaGErrorGetArg Get_CommandGet_Command_ArgumentGet_Environment_VariableGetCWDGetEnvGetGIdGetLogGetPIdGetUIdGMTimeHostNmHugeHypotIAbsIACharIAllIAndIAnyIArgCIBClrIBitsIBSetICharIDateIDiMIDIntIDNIntIEOrIErrNoIFixImagImagPart Image_IndexIndexIntIOrIParityIRandIsaTtyIShftIShftCISign
Iso_C_Binding
Is_Contiguous
Is_Iostat_End
Is_Iostat_EorITimeKillKindLBoundLCoBoundLenLen_TrimLGeLGtLinkLLeLLtLnBlnkLocLog Log_GammaLogicalLongLShiftLStatLTimeMaskLMaskRMatMulMax MaxExponentMaxLocMaxValMClockMerge
Merge_Bits
Move_AllocMin MinExponentMinLocMinValModModuloMvBitsNearestNew_LineNIntNorm2NotNull
Num_ImagesOrPackParityPError PrecisionPresentProductRadixRand
Random_Number Random_SeedRangeRealRealPartRenameRepeatReshape RRSpacingRShift Same_Type_AsScaleScanSecondSelected_Char_KindSelected_Int_KindSelected_Real_Kind Set_ExponentShapeShiftAShiftLShiftRShortSignSignalSinHSinSleepSnglSpacingSpreadSqRtSRandStat Storage_SizeSumSymLnkSystem System_ClockTanTanHTime
This_ImageTinyTrailZTransfer TransposeTrimTtyNamUBoundUCoBoundUMaskUnlinkUnpackVerifyXOrZAbsZCosZExpZLogZSinZSqRtz\.(true|false)\.z+\.(eq|ne|lt|le|gt|ge|not|and|or|eqv|neqv)\.z "(\\[0-7]+|\\[^0-7]|[^"\\])*"z '(\\[0-7]+|\\[^0-7]|[^'\\])*'z \d+(?![.e])(_([1-9]|[a-z]\w*))?z0[+-]?\d*\.\d+([ed][-+]?\d+)?(_([1-9]|[a-z]\w*))?z0[+-]?\d+\.\d*([ed][-+]?\d+)?(_([1-9]|[a-z]\w*))?z0[+-]?\d+(\.\d*)?[ed][-+]?\d+(_([1-9]|[a-z]\w*))?)rootr r r N)&__name__
__module__ __qualname____firstlineno____doc__nameurlaliases filenames mimetypes
version_addedre
IGNORECASE MULTILINEflagsr
Preprocr r
r
Whitespacer r r Typer Declarationr BuiltinWordr DoubleSingler IntegerrA tokens__static_attributes__r J/usr/lib/rads/venv/lib/python3.13/site-packages/pygments/lexers/fortran.pyr r s D
%C% G4I!"IM MMBLL (E (
w I FO
T " FO
t '
*8GT__g+V W
!8GT__g#N O
7* @EX+W, -
2 R 2 \\
5h ?
g)) *
,
2)d 27xe2If \\g3
l !$,, /
;X]] KUk
\ .v}} =
-v}} =
0 @
@&,, O
@&,, O
@&,, O
yBFr
c D \ rS rSrSrSrS/rSS/rSrSr \
R r SS
jr
S \4S \R 4S
\4S\R" S4S\" \5 4/S\S4S\S4S\R, S4/S\" \
\\R0 5 S4S\" \
\R0 5 S4\" S5 /S.rSrg )r z!
Lexer for fixed format Fortran.
FortranFixed fortranfixedz*.fz*.Fr z2.1Nc # # [ 5 nUR S5 S- nUR U5 H& u pVnUR SS5 nUS:w d M XVU4v M( g7f)z8Lex a line just as free form fortran without line break.r
N)r groupget_tokens_unprocessedreplace)selfmatchctxlexertextindextokenvalues r _lex_fortran FortranFixedLexer._lex_fortran s[ {{1~$#(#?#?#E E%MM$+E{E)) $Fs A A A z[C*].*\nz#.*\nz {0,4}!.*\nz(.{5}) cont-charz.*\n code0.z(.{66})(.*)(\n)r z(.*)(\n))r r# r% r )N) r r r r r r r r r r r r r r! r
r r
Labelr r r r Strongr r r r r r r
r r r s D GI
%CM MME* ' "
w '
W %
K 0
eL) *
$
'6 "
'..& )
lGT__
=v
G
(< A6 J FO
Fr
)r r pygments.lexerr r r r r r pygments.tokenr r
r r r
r r r r __all__r r r r
r
r- sL
O O! ! ! .
/U: Up(
(r