Team Ai
Datasetpublic

codekingpro/portable-devtools

sourceHugging Faceupdated 5mo agoView on Hugging Face
1likes14kdownloads
fortran.cpython-313.pyc62 linesDownload Raw Back to __pycache__
1�

2�j�(���SrSSKrSSKJrJrJrJrJrJr SSK	J3r4JrJrJ
r
JrJrJrJrJr SS/r"SS\5r"SS\5rg)	z�5pygments.lexers.fortran6~~~~~~~~~~~~~~~~~~~~~~~7 8Lexers for Fortran languages.9 10:copyright: Copyright 2006-present by the Pygments team, see AUTHORS.11:license: BSD, see LICENSE for details.12�N)�13RegexLexer�bygroups�include�words�using�default)	�Text�Comment�Operator�Keyword�Name�String�Number�Punctuation�Generic�FortranLexer�FortranFixedLexerc��\rSrSrSrSrSrSS/r/SQrS/r	S	r14\R\R-rS15\R 4S\4\"S5\"S
5S\4\"S5S\R(4/S\"\\R(\54S\"\\R(\54\"SSSS9\4\"SSSS9\R04S\4S\R44S\4\"SSSS9\R84S\R84S\R:4/16S\R>4S\R@4/S \!RD4S!\!RF4S"\!RF4S#\!RF4/S$.r$S%r%g&)'r�z17Lexer for FORTRAN 90 code.18�Fortran�https://fortran-lang.org/�fortran�f90)z*.f03z*.f90z*.F03z*.F90ztext/x-fortranz0.10z^#.*\nz!.*\n�strings�corez[a-z][\w$]*�numsz[\s]+z\b(DO)(\s+)(CONCURRENT)\bz\b(GO)(\s*)(TO)\b)�ABSTRACT�ACCEPT�ALL�ALLSTOP�ALLOCATABLE�ALLOCATE�ARRAY�ASSIGN�	ASSOCIATE�ASYNCHRONOUS�	BACKSPACE�BIND�BLOCK�	BLOCKDATA�BYTE�CALL�CASE�CLASS�CLOSE�CODIMENSION�COMMON�19CONTIGUOUS�CONTAINS�CONTINUE�CRITICAL�CYCLE�DATA�20DEALLOCATE�DECODE�DEFERRED�	DIMENSION�DO�	ELEMENTAL�ELSE�ELSEIF�ENCODE�END�ENDASSOCIATE�ENDBLOCK�ENDDO�ENDENUM�	ENDFORALL�ENDFUNCTION�ENDIF�ENDINTERFACE�	ENDMODULE�21ENDPROGRAM�	ENDSELECT�ENDSUBMODULE�
ENDSUBROUTINE�ENDTYPE�ENDWHERE�ENTRY�ENUM�22ENUMERATOR�EQUIVALENCEz23ERROR STOP�EXIT�EXTENDS�EXTERNAL�	EXTRINSIC�FILE�FINAL�FORALL�FORMAT�FUNCTION�GENERIC�IF�IMAGES�IMPLICIT�IMPORT�IMPURE�INCLUDE�INQUIRE�INTENT�	INTERFACE�	INTRINSIC�IS�LOCK�MEMORY�MODULE�NAMELIST�NULLIFY�NONE�
NON_INTRINSIC�NON_OVERRIDABLE�NOPASS�ONLY�OPEN�OPTIONAL�OPTIONS�	PARAMETER�PASS�PAUSE�POINTER�PRINT�PRIVATE�PROGRAM�	PROCEDURE�	PROTECTED�PUBLIC�PURE�READ�	RECURSIVE�RESULT�RETURN�REWIND�SAVE�SELECT�SEQUENCE�STOP�	SUBMODULE�24SUBROUTINE�SYNC�SYNCALL�25SYNCIMAGES�26SYNCMEMORY�TARGET�THEN�TYPE�UNLOCK�USE�VALUE�VOLATILE�WHERE�WRITE�WHILEz\bz\s*\b)�prefix�suffix)%�	CHARACTER�COMPLEXzDOUBLE PRECISIONzDOUBLE COMPLEX�INTEGER�LOGICAL�REAL�C_INT�C_SHORT�C_LONG�C_LONG_LONG�
C_SIGNED_CHAR�C_SIZE_T�C_INT8_T�	C_INT16_T�	C_INT32_T�	C_INT64_T�C_INT_LEAST8_T�C_INT_LEAST16_T�C_INT_LEAST32_T�C_INT_LEAST64_T�
C_INT_FAST8_T�C_INT_FAST16_T�C_INT_FAST32_T�C_INT_FAST64_T�27C_INTMAX_T�28C_INTPTR_T�C_FLOAT�C_DOUBLE�
C_LONG_DOUBLE�C_FLOAT_COMPLEX�C_DOUBLE_COMPLEX�C_LONG_DOUBLE_COMPLEX�C_BOOL�C_CHAR�C_PTR�C_FUNPTRz$(\*\*|\*|\+|-|\/|<|>|<=|>=|==|\/=|=)z(::)z[()\[\],:&%;.](1�Abort�Abs�Access�AChar�ACos�ACosH�AdjustL�AdjustR�AImag�AInt�Alarm�All�	Allocated�ALog�AMax�AMin�AMod�And�ANInt�Any�ASin�ASinH�29Associated�ATan�ATanH�
Atomic_Define�30Atomic_Ref�BesJ�BesJN�	Bessel_J0�	Bessel_J1�	Bessel_JN�	Bessel_Y0�	Bessel_Y1�	Bessel_YN�BesY�BesYN�BGE�BGT�BLE�BLT�Bit_Size�BTest�CAbs�CCos�Ceiling�CExp�Char�ChDir�ChMod�CLog�Cmplx�Command_Argument_Count�Complex�Conjg�Cos�CosH�Count�CPU_Time�CShift�CSin�CSqRt�CTime�C_Loc�C_Associated�31C_Null_Ptr�
C_Null_Funptr�C_F_Pointer�C_F_ProcPointer�C_Null_Char�C_Alert�C_Backspace�C_Form_Feed�C_FunLoc�C_Sizeof�32C_New_Line�C_Carriage_Return�C_Horizontal_Tab�C_Vertical_Tab�DAbs�DACos�DASin�DATan�
Date_and_Time�DbesJ�DbesJN�DbesY�DbesYN�Dble�DCos�DCosH�DDiM�DErF�DErFC�DExp�Digits�DiM�DInt�DLog�DMax�DMin�DMod�DNInt�Dot_Product�DProd�DSign�DSinH�DShiftL�DShiftR�DSin�DSqRt�DTanH�DTan�DTime�EOShift�Epsilon�ErF�ErFC�ErFC_Scaled�ETime�Execute_Command_Line�Exit�Exp�Exponent�Extends_Type_Of�FDate�FGet�FGetC�FindLoc�Float�Floor�Flush�FNum�FPutC�FPut�Fraction�FSeek�FStat�FTell�Gamma�GError�GetArg�Get_Command�Get_Command_Argument�Get_Environment_Variable�GetCWD�GetEnv�GetGId�GetLog�GetPId�GetUId�GMTime�HostNm�Huge�Hypot�IAbs�IAChar�IAll�IAnd�IAny�IArgC�IBClr�IBits�IBSet�IChar�IDate�IDiM�IDInt�IDNInt�IEOr�IErrNo�IFix�Imag�ImagPart�Image_Index�Index�Int�IOr�IParity�IRand�IsaTty�IShft�IShftC�ISign�
Iso_C_Binding�
Is_Contiguous�
Is_Iostat_End�
Is_Iostat_Eor�ITime�Kill�Kind�LBound�LCoBound�Len�Len_Trim�LGe�LGt�Link�LLe�LLt�LnBlnk�Loc�Log�	Log_Gamma�Logical�Long�LShift�LStat�LTime�MaskL�MaskR�MatMul�Max�MaxExponent�MaxLoc�MaxVal�MClock�Merge�33Merge_Bits�34Move_Alloc�Min�MinExponent�MinLoc�MinVal�Mod�Modulo�MvBits�Nearest�New_Line�NInt�Norm2�Not�Null�35Num_Images�Or�Pack�Parity�PError�	Precision�Present�Product�Radix�Rand�
Random_Number�Random_Seed�Range�Real�RealPart�Rename�Repeat�Reshape�	RRSpacing�RShift�Same_Type_As�Scale�Scan�Second�Selected_Char_Kind�Selected_Int_Kind�Selected_Real_Kind�Set_Exponent�Shape�ShiftA�ShiftL�ShiftR�Short�Sign�Signal�SinH�Sin�Sleep�Sngl�Spacing�Spread�SqRt�SRand�Stat�Storage_Size�Sum�SymLnk�System�System_Clock�Tan�TanH�Time�36This_Image�Tiny�TrailZ�Transfer�	Transpose�Trim�TtyNam�UBound�UCoBound�UMask�Unlink�Unpack�Verify�XOr�ZAbs�ZCos�ZExp�ZLog�ZSin�ZSqRtz\.(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*))?)�rootrrr�N)&�__name__�37__module__�__qualname__�__firstlineno__�__doc__�name�url�aliases�	filenames�	mimetypes�
version_added�re�38IGNORECASE�	MULTILINE�flagsr39�Preprocrr
r	�40Whitespacerrr�Typer�Declarationr�Builtin�Wordr�Double�Singler�IntegerrA�tokens�__static_attributes__r���]D:\code\apps\devtools\python\user_packages\Python313\site-packages\pygments/lexers/fortran.pyrrs�����D�41%�C��%� �G�4�I�!�"�I��M��M�M�B�L�L�(�E�����(�
�w���I���F�O�
�T�"��F�O�
�t���'�42�*�8�G�T�_�_�g�+V�W�
!�8�G�T�_�_�g�#N�O�
�7�*@E�X�+W�,�-
�2�R� ��	2��\�\�43
�5�h�?�
�g�)�)�*�
��,�
�2)�d27�x�e2I�f�\�\�g3
�l!�$�,�,�/�
;�X�]�]�K�Uk44�\.�v�}�}�=�
-�v�}�}�=�45�0����@�
@�&�,�,�O�
@�&�,�,�O�
@�&�,�,�O�	46�yB�Fr
c�D�\rSrSrSrSrS/rSS/rSrSr	\47RrSS48jr
S\4S\R4S
\4S\R"S4S\"\54/S\S4S\S4S\R,S4/S\"\
\\R05S4S\"\
\R05S4\"S5/S.rSrg	)r�z!49Lexer for fixed format Fortran.50�FortranFixed�fortranfixedz*.fz*.Frz2.1Nc#�# �[5nURS5S-nURU5H&upVnURSS5nUS:wdM XVU4v� M( g7f)z8Lex a line just as free form fortran without line break.r�51�N)r�group�get_tokens_unprocessed�replace)�self�match�ctx�lexer�text�index�token�values        r�_lex_fortran�FortranFixedLexer._lex_fortran�s[�������{�{�1�~��$��#(�#?�#?��#E��E�%��M�M�$��+�E���{��E�)�)�$F�s�AA�Az[C*].*\nz#.*\nz {0,4}!.*\nz(.{5})�	cont-charz.*\n� �code�0�.z(.{66})(.*)(\n)r�z(.*)(\n))r�r#r%r�)N)r�r�r�r�r�r�r�r�r�r�r�r�rr!r52rr
�Labelrrr	r�Strongrrrrrr�r
rrr�s�����D���G����I�53%�C��M��M�M�E�*��'�"�
�w���'�
�W�%�
��54�55�K�0�
�e�L�)�*�56��$���
�'�6�"�
�'�.�.�&�)�57� �
�l�G�T�_�_�
=�v�
G�
�(�<����A�6�J��F�O�	58��Fr
)r�r��pygments.lexerrrrrrr�pygments.tokenr	r59rrr
rrrr�__all__rrr�r
r�<module>r-sL���60�O�O�!�!�!��.�61/��U�:�U�p(�62�(r

codekingpro/portable-devtools · Team Ai