Hacked By AnonymousFox

Current Path : /opt/cloudlinux/venv/lib64/python3.11/site-packages/numpy/f2py/__pycache__/
Upload File :
Current File : //opt/cloudlinux/venv/lib64/python3.11/site-packages/numpy/f2py/__pycache__/crackfortran.cpython-311.pyc

�

�܋fn!����dZddlZddlZddlZddlZddlZddlZddlZddlZddl	m
Z
	ddlZn
#e$rdZYnwxYwddl
mZddlTddl
mZejadadadadad	ad
ad
adadadagad
ad
ada ia!d
a"da#da$da%tJgia&d
a'ga(da)ga*da+da,ga-ga.ga/d�Z0d�d
�Z1de_2iZ3dD]	Z4ddie3e4<�
dD]	Z4ddie3e4<�
iZ5iZ6dD]Z7e7dze5e7<e7e6e7dz<�d�Z8d�Z9d�Z:d�Z;ej<dej=��j>Z?ej<dej=��j>Z@ej<dej=��j>ZAej<dej=��jBZCgd�ZDgd�ZEd �ZFd!�ZGeHdfd"�ZId#ZJd$ZKej<eJd
eKeKd%fzej=��d&fZLej<eJd
eKd'zeKd'zd%fzej=��ZMej<eJd(zej=��d)fZNej<eJd*zej=��d)fZOd+ZPej<eJd
ePePd%fzej=��d)fZQePd,zd-zZRej<eJd
eReRd%fzej=��d)fZSd.ZTej<eJd
eTeTd%fzej=��d/fZUd0ZVej<eJd1eVeVd%fzej=��d2fZWd3ZXej<eJd
eXeXd%fzej=��d4fZYej<eJd5zej=��d6fZZej<eJd7zej=��d8fZ[ej<eJd9zej=��d:fZ\ej<eJd;zej=��d<fZ]ej<eJd=zej=��d>fZ^ej<eJd?zej=��d@fZ_ej<eJdAzej=��dBfZ`ej<eJdCzej=��dDfZaej<eJdEzej=��dFfZbej<eJdGzej=��dHfZcej<eJdIzej=��dJfZdej<eJdKzej=��dLfZeej<eJdMzej=��dNfZfej<eJdOzej=��dPfZgej<eJdQzej=��dRfZhej<eJdSzej=��dTfZiej<eJdUzej=��dVfZjej<eJdWzej=��dXfZkej<eJdYzej=ejlz��dZfZmej<d[ejl��d\fZnd]�Zod^�Zpej<d_ej=��Zqd�d`�Zrda�Zsd�dc�Ztdd�Zud�de�Zvej<dfej=��Zwej<dgej=��Zxej<dhej=��Zyej<diej=��Zzej<djej=��Z{ej<dk��Z|ej<dl��Z}ej<dmej=��Z~dn�Zdo�Z�dp�Z�dq�Z�dr�Z�ds�Z�ej<dtej=��Z�ej<duej=��Z�ej<dvej=��Z�ej<dwej=��Z�ej<dxej=��Z�dy�Z�dz�Z�d{�Z�d|�Z�d�d}�Z�d�d~�Z�d�d�Z�d�d��Z�d��Z�d��Z�d�d��Z�d�d��Z�d�d��Z�d��Z�d��Z�d�d��Z�d��Z�d�d��Z�ej<d�ej=��Z�d��Z�ej<d�ej=��Z�d��Z�d��Z�d��Z�d��Z�d��Z�d�d��Z�ifd��Z�d��Z�ej<d���jBZ�d��Z�d��Z�ej<d�ej=��Z�gfd��Z�d��Z�ej<d�ej=��Z�ej<d�ej=��Z�ej<d�ej=��Z�ej<d�ej=��Z�ej<d�ej=��Z�d��Z�ifd��Z�d�d��Z�d�d��Z�d�d��Z�d��Z�d�d��Z�ga�d��Z�d��Z�d��Z�gdfd��Z�d��Z��tr��e���e�d�k�r�gZ�gZ�dZ�dZ�dZ�dZ�ej�dd�D�]1Z�e�d
kr�
e�dd�krdZÌe�d�krdada�$e�d�krd�ada�/e�d�krt&re1d�d��dada�Me�d�krda�Ve�d�krda�_e�d�krdada�je�d�krdad�ada�we�d�krdZČ�e�d�krdZƌ�e�d�krdZŌ�e�dd�kre�d�e�eȦ�z����e�rdZ�e�a��e�rdZ�e�a��e�rV	e�eȦ�����e���eȦ���#e�$rZ�e�d�eΛd����YdZ�[ΐ�dZ�[�wwxYwe �eȦ���3t&st2rt4se1d�d��e�e���Z�t0rfe1d�e�t0��zd��e�eϦ�Z�e�t0dĦ�5Z�eà�eЦ�ddd��n#1swxYwYe�reHeϦ�dSdSdS)�a*
crackfortran --- read fortran (77,90) code and extract declaration information.

Copyright 1999-2004 Pearu Peterson all rights reserved,
Pearu Peterson <pearu@ioc.ee>
Permission to use, modify, and distribute this software is given under the
terms of the NumPy License.

NO WARRANTY IS EXPRESSED OR IMPLIED.  USE AT YOUR OWN RISK.
$Date: 2005/09/27 07:13:49 $
Pearu Peterson


Usage of crackfortran:
======================
Command line keys: -quiet,-verbose,-fix,-f77,-f90,-show,-h <pyffilename>
                   -m <module name for f77 routines>,--ignore-contains
Functions: crackfortran, crack2fortran
The following Fortran statements/constructions are supported
(or will be if needed):
   block data,byte,call,character,common,complex,contains,data,
   dimension,double complex,double precision,end,external,function,
   implicit,integer,intent,interface,intrinsic,
   logical,module,optional,parameter,private,public,
   program,real,(sequence?),subroutine,type,use,virtual,
   include,pythonmodule
Note: 'virtual' is mapped to 'dimension'.
Note: 'implicit integer (z) static (z)' is 'implicit static (z)' (this is minor bug).
Note: code after 'contains' will be ignored until its scope ends.
Note: 'common' statement is extended: dimensions are moved to variable definitions
Note: f2py directive: <commentchar>f2py<line> is read as <line>
Note: pythonmodule is introduced to represent Python module

Usage:
  `postlist=crackfortran(files)`
  `postlist` contains declaration information read from the list of files `files`.
  `crack2fortran(postlist)` returns a fortran code to be saved to pyf-file

  `postlist` has the following structure:
 *** it is a list of dictionaries containing `blocks':
     B = {'block','body','vars','parent_block'[,'name','prefix','args','result',
          'implicit','externals','interfaced','common','sortvars',
          'commonvars','note']}
     B['block'] = 'interface' | 'function' | 'subroutine' | 'module' |
                  'program' | 'block data' | 'type' | 'pythonmodule' |
                  'abstract interface'
     B['body'] --- list containing `subblocks' with the same structure as `blocks'
     B['parent_block'] --- dictionary of a parent block:
                             C['body'][<index>]['parent_block'] is C
     B['vars'] --- dictionary of variable definitions
     B['sortvars'] --- dictionary of variable definitions sorted by dependence (independent first)
     B['name'] --- name of the block (not if B['block']=='interface')
     B['prefix'] --- prefix string (only if B['block']=='function')
     B['args'] --- list of argument names if B['block']== 'function' | 'subroutine'
     B['result'] --- name of the return value (only if B['block']=='function')
     B['implicit'] --- dictionary {'a':<variable definition>,'b':...} | None
     B['externals'] --- list of variables being external
     B['interfaced'] --- list of variables being external and defined
     B['common'] --- dictionary of common blocks (list of objects)
     B['commonvars'] --- list of variables used in common blocks (dimensions are moved to variable definitions)
     B['from'] --- string showing the 'parents' of the current block
     B['use'] --- dictionary of modules used in current block:
         {<modulename>:{['only':<0|1>],['map':{<local_name1>:<use_name1>,...}]}}
     B['note'] --- list of LaTeX comments on the block
     B['f2pyenhancements'] --- optional dictionary
          {'threadsafe':'','fortranname':<name>,
           'callstatement':<C-expr>|<multi-line block>,
           'callprotoargument':<C-expr-list>,
           'usercode':<multi-line block>|<list of multi-line blocks>,
           'pymethoddef:<multi-line block>'
           }
     B['entry'] --- dictionary {entryname:argslist,..}
     B['varnames'] --- list of variable names given in the order of reading the
                       Fortran code, useful for derived types.
     B['saved_interface'] --- a string of scanned routine signature, defines explicit interface
 *** Variable definition is a dictionary
     D = B['vars'][<variable name>] =
     {'typespec'[,'attrspec','kindselector','charselector','=','typename']}
     D['typespec'] = 'byte' | 'character' | 'complex' | 'double complex' |
                     'double precision' | 'integer' | 'logical' | 'real' | 'type'
     D['attrspec'] --- list of attributes (e.g. 'dimension(<arrayspec>)',
                       'external','intent(in|out|inout|hide|c|callback|cache|aligned4|aligned8|aligned16)',
                       'optional','required', etc)
     K = D['kindselector'] = {['*','kind']} (only if D['typespec'] =
                         'complex' | 'integer' | 'logical' | 'real' )
     C = D['charselector'] = {['*','len','kind','f2py_len']}
                             (only if D['typespec']=='character')
     D['='] --- initialization expression string
     D['typename'] --- name of the type if D['typespec']=='type'
     D['dimension'] --- list of dimension bounds
     D['intent'] --- list of intent specifications
     D['depend'] --- list of variable names on which current variable depends on
     D['check'] --- list of C-expressions; if C-expr returns zero, exception is raised
     D['note'] --- list of LaTeX comments on the variable
 *** Meaning of kind/char selectors (few examples):
     D['typespec>']*K['*']
     D['typespec'](kind=K['kind'])
     character*C['*']
     character(len=C['len'],kind=C['kind'], f2py_len=C['f2py_len'])
     (see also fortran type declaration statement formats below)

Fortran 90 type declaration statement format (F77 is subset of F90)
====================================================================
(Main source: IBM XL Fortran 5.1 Language Reference Manual)
type declaration = <typespec> [[<attrspec>]::] <entitydecl>
<typespec> = byte                          |
             character[<charselector>]     |
             complex[<kindselector>]       |
             double complex                |
             double precision              |
             integer[<kindselector>]       |
             logical[<kindselector>]       |
             real[<kindselector>]          |
             type(<typename>)
<charselector> = * <charlen>               |
             ([len=]<len>[,[kind=]<kind>]) |
             (kind=<kind>[,len=<len>])
<kindselector> = * <intlen>                |
             ([kind=]<kind>)
<attrspec> = comma separated list of attributes.
             Only the following attributes are used in
             building up the interface:
                external
                (parameter --- affects '=' key)
                optional
                intent
             Other attributes are ignored.
<intentspec> = in | out | inout
<arrayspec> = comma separated list of dimension bounds.
<entitydecl> = <name> [[*<charlen>][(<arrayspec>)] | [(<arrayspec>)]*<charlen>]
                      [/<init_expr>/ | =<init_expr>] [,<entitydecl>]

In addition, the following attributes are used: check,depend,note

TODO:
    * Apply 'parameter' attribute (e.g. 'integer parameter :: i=2' 'real x(i)'
                                   -> 'real x(2)')
    The above may be solved by creating appropriate preprocessor program, for example.

�N)�Path�)�__version__)�*)�symbolic�fix�    ����c�|�dadadadadadadadadada	ga
datgiada
dadagaiadadadagagagagadadS)Nrrrr	r
r)�	strictf77�sourcecodeform�quiet�verbose�tabchar�pyffilename�
f77modulename�
skipemptyends�ignorecontains�dolowercase�debug�groupcounter�	grouplist�neededmodule�expectbegin�skipblocksuntil�usermodules�
f90modulevars�gotnextfile�filepositiontext�currentfilename�
skipfunctions�	skipfuncs�	onlyfuncs�
include_paths�previous_context���j/builddir/build/BUILD/cloudlinux-venv-1.0.6/venv/lib64/python3.11/site-packages/numpy/f2py/crackfortran.py�reset_global_f2py_varsr*�s����I��N�
�E��G��G��K��M��M��N��K��E��L��r�"�I��L��K��O��K��M��K����O��M��I��I��M����r(c��tsdStsG|r$tj�t
��tj�|��dSdS�N)rr�sys�stdout�writer )�line�flags  r)�outmessr2�s^���������	/��J���-�.�.�.��
����������r(�2zabcdefghopqrstuvwxyz$_�typespec�real�ijklmn�integer)3�int�double�float�char�short�long�void�case�while�return�signed�unsigned�if�for�typedef�sizeof�union�struct�static�register�new�break�do�goto�switch�continue�else�inline�extern�delete�const�auto�len�rank�shape�index�slen�size�_i�max�min�flen�fshape�string�complex_double�float_double�stdin�stderrr.�type�default�_bnc�t�|tvr.td|�dt|�d���t|S|S)Nzrmbadname1: Replacing "�" with "�".
)�badnames�errmess��names r)�
rmbadname1rr
sF���x��������x��~�~�~�'�	(�	(�	(���~���Kr(c��d�|D��S)Nc�,�g|]}t|����Sr')rr��.0�_ms  r)�
<listcomp>zrmbadname.<locals>.<listcomp>s��+�+�+�r�J�r�N�N�+�+�+r(r'��namess r)�	rmbadnamer{s��+�+�U�+�+�+�+r(c�t�|tvr.td|�dt|�d���t|S|S)Nzundo_rmbadname1: Replacing "rlrm)�invbadnamesrorps r)�undo_rmbadname1r~sJ���{������4�4��T�*�*�*�,�	-�	-�	-��4� � ��Kr(c��d�|D��S)Nc�,�g|]}t|����Sr')r~rus  r)rxz"undo_rmbadname.<locals>.<listcomp>"s ��0�0�0�B�O�B���0�0�0r(r'rys r)�undo_rmbadnamer�!s��0�0�%�0�0�0�0r(z-\*-\s*fortran\s*-\*-z-\*-\s*f90\s*-\*-z-\*-\s*fix\s*-\*-z[^c*]\s*[^\s\d\t])z.f90z.f95z.f03z.f08)z.forz.ftnz.f77z.fc�`�t�,tj|�����j}n�t	dt
j�|����}t|d��5}|�	|��}|�
tj��rd}n^|�
tj
tjf��rd}n0|�
tjtjf��rd}nd}ddd��n#1swxYwYt|||���S)	aNEnsures that filename is opened with correct encoding parameter.

    This function uses charset_normalizer package, when available, for
    determining the encoding of the file to be opened. When charset_normalizer
    is not available, the function detects only UTF encodings, otherwise, ASCII
    encoding is used as fallback.
    N� �rbz	UTF-8-SIGzUTF-32zUTF-16�ascii)�encoding)�charset_normalizer�	from_path�bestr�r`�os�path�getsize�open�read�
startswith�codecs�BOM_UTF8�BOM_UTF32_LE�BOM_UTF32_BE�BOM_LE�BOM_BE)�filename�moder��nbytes�fhandle�raws      r)�openhookr�/sB���%�%�/��9�9�>�>�@�@�I����R������2�2�3�3��
�(�D�
!�
!�
	#�W��,�,�v�&�&�C��~�~�f�o�.�.�
#�&�������!4�f�6I� J�K�K�
#�#���������
� >�?�?�
#�#���#��
	#�
	#�
	#�
	#�
	#�
	#�
	#�
	#�
	#�
	#�
	#����
	#�
	#�
	#�
	#���$��2�2�2�2s�1BD�D�Dc�(�d}t|��j���tvrd}t	|d��5}|���}d}t
|��rd}nt|��rd}d}|dkrw|ru|ddkrM|���r9|dz}|ddkrt|d	d
���s|dd�d
krd}n|���}|dkr|�ud	d	d	��n#1swxYwY|S)z(Check if file is in free format Fortran.FT�r�r�!r�	N����r�&)
r�suffix�lower�COMMON_FREE_EXTENSIONSr��readline�
_has_f_header�_has_f90_header�strip�_free_f90_start)�fname�resultr�r0�ns     r)�is_free_formatr�Nsj���F��E�{�{����!�!�%;�;�;���	�%��	�	�&�����!�!��������	��A�A�
�T�
"�
"�	��A��F��!�e�e��e��A�w�#�~�~�$�*�*�,�,�~��Q�����G�t�O�O���R�a�R��(A�(A�O�d�2�b�5�k�UX�FX�FX�!�F���#�#�%�%�D�
�!�e�e��e�&�&�&�&�&�&�&�&�&�&�&����&�&�&�&��Ms�B9D�D�Dc
�$�|s8tttttt
tttf	}|gkrdSt}d}d}d}tj
dtj��}tj
d��}	tj
d��}
tj
d��}|r|dd��d	\}}d
gd�td��D��z}
datj|t�
��}		|���}nO#t"$rB}t%d|����d|����d|�d����d}~wwxYw|s�n	|����rda|���ada|}dadat,j�t��d}t3t��j���t8vr!t;|��st=|��sdan%t?t��rt=|��sdatrt@antBatEdtGt���dt�trdpd�d���|�$���%dd
��}|dks|ddvrn|dd�}|dk�tsYtM|d��\}}|d
z
}|dd����dkr!tM|d z|dd�zd��\}}|�'��dkrtdkrnd}��^tdk�r�|dd!vr2|dd����d"krd#|dd�z}n(d}���trtQ|��d$kr
|dd$�}|d|
vrt%d%tG|��z���|rtr2tQ|��dkr|dd
ks||d&d�z}d}d}�n�ts�|	�)|��}|r|�*d'��}|r0||
�)|���*d'��z}d}d}n*d#|dd�z}|r|���}n|}|}|}|du}�nTd#|dd�z}|r|���}n|}|}|}�n(tdkr�|sw|d(krq|�)|��r\|d)z}	|���}|stWd*��n||z}|�)|��rn�B|�,��}|	�)|��}|r|�*d'��}|r0||
�)|���*d'��z}d}d}n|r|���}n|}|}|}|du}n$t[d+tGt��z���d,|�.��dz
t|fza|�)|��}|�r|�*d-��}t,j�/|��rta||d�.��n�t,j�1t��gtdz}d}|D]W}t,j�3||��}t,j�/|��rd}ta||d�.��n�X|s@tEd/tG|���d0t,j4�3|���d1���n||��|}��r|r|���}n|}|}d,|�.��dz
t|fza|�)|��}|�r|�*d-��}t,j�/|��rta||d�.��n�t,j�1t��gtdz}d}|D]W}t,j�3||��}t,j�/|��rd}ta||d�.��n�X|s@tEd/tG|���d0t,j4�3|���d1���n||��da|�5��|r|dd��dS|\	aaaaaaaaadS)2z�
    Read fortran codes from files and
     1) Get rid of comments, line continuations, and empty lines; lower cases.
     2) Call dowithline(line) on every line.
     3) Recursively call itself when statement "include '<filename>'" is met.
    NFr
z*\s*include\s*(\'|")(?P<name>[^\'"]*)(\'|")z(?P<line>.*)&\s*\Zz(\s*&|)(?P<line>.*)z.*?'''r)r
r
� c�,�g|]}t|����Sr')�strrus  r)rxz#readfortrancode.<locals>.<listcomp>�s��7�7�7�r�3�r�7�7�7�7�7r(�
)r�Tzreadfortrancode: reading �#z
 failed with
zu.
It is likely that installing charset_normalizer package will help f2py determine the input file encoding correctly.rrr�freez	Reading file z	 (format:z,strict�)
� z

r�r�z!f2pyr	)r�cr��Cr��f2pyz     �Hzxreadfortrancode: Found non-(space,digit) char in the first column.
	Are you sure that this code is in fix form?
	line=%s�r0�.pyf�
z.Unexpected end of file when reading multiline
z6Flag sourcecodeform must be either 'fix' or 'free': %szLine #%d in %s:"%s"
	rq)�
dowithline�istopz-readfortrancode: could not find include file z in �. Ignoring.
)6rr r!rr
�beginpatternrrr�re�compile�I�range�	fileinput�	FileInputr�r��UnicodeDecodeError�	Exceptionr��lineno�isfirstliner�r��splitextrr�r��COMMON_FIXED_EXTENSIONSr��_has_fix_headerr��beginpattern77�beginpattern90r2�repr�
expandtabs�replace�split_by_unquotedr�rX�match�groupro�rstrip�
ValueError�
filelineno�isfile�readfortrancode�dirnamer%�join�pathsep�close)�ffiler�r��saveglobals�localdolowercase�cont�	finalline�ll�includeline�cont1�cont2�
mline_mark�l1�spacedigits�fin�l�msg�ext�rl�_�
origfinalliner��lc�m�fn�include_dirs�	foundfile�inc_dir�fn1s                             r)r�r�hs�	���6�!�#3�_�n�V_��%��+�6����{�{���"���D��I�	�B��*�5�r�t�=�=�K��J�,�-�-�E��J�-�.�.�E���I�&�&�J����
�2�r����
�F�B���%�7�7�U�2�Y�Y�7�7�7�7�K���
�
�e�h�
7�
7�
7�C�a�	������A�A��!�	�	�	���C�L�L�N�N���S�Z�Z�\�\���!$������
�����	�����	���?�?���	7�!��!�l�l�n�n�O��K��B��I�"�N��'�"�"�?�3�3�A�6�C��O�$�$�+�1�1�3�3�7N�N�N�(��+�+�O�/>�q�/A�/A�O��	�	���0�0�
(���9K�9K�
(�!'���
.�-���-���G��O�,�,�,�,�n�n� �.�Y�4�"�4�4�6�
7�
7�
7�
�L�L�N�N�"�"�6�3�/�/���r�'�'���u�H�$�$���#�2�#��A��r�'�'��	D�'��3�/�/�G�Q��
��H�A��"�1�"�v�|�|�~�~��(�(�(��W��r�!�"�"�v�)=�s�C�C���1��7�7�9�9��?�?���'�'�
�����U�"�"���t�0�0�0��Q�q�S�6�<�<�>�>�V�+�+��!�A�B�B�%��A�A� �D���
��q�6�6�B�;�;��#�2�#��A��a�D�K�'�'��!G�IM�a���!Q�R�R�R��!
�I�!
�C��F�F�Q�J�J�q��t�s�{�{��!�A�B�B�%�Z���	� "�
�
� �����A���A��,��G�G�F�O�O�����%�+�+�a�.�.�"6�"6�v�">�">�>��$&�	�(*�
�
�$�a����e�O��+�+�(*���
�
�I�I�(*�I�(*�
����T�M�D�D� �!�A�B�B�%��A�'�'�$&�H�H�J�J�	�	�$&�	�$&�M��B�B�
�v�
%�
%��
�C�6�M�M�j�.>�.>�q�.A�.A�M���H��������B����M�O�O�O���B��A�!�'�'��+�+�����H�H�J�J�����A���A��
$��G�G�F�O�O���

��%�+�+�a�.�.�.�.�v�6�6�6���	� "�
�
�#�#� "���
�
�I�I� "�I� "�
����T�M�D�D��H�4�P^�K_�K_�_�a�a�
a�4��N�N���q� �/�2�87�7�����m�,�,���	"�������B��w�~�~�b�!�!�
B���z��C�C�C�C�C��G�O�O�O�4�4� 6�8E� F���	�+���G��'�,�,�w��3�3�C��w�~�~�c�*�*��$%�	�'��
�!�L�L�L�L����!�B��G��R�����"�*�/�/�,�"?�"?�"?�"?�A�B�B�B��
�J�y�!�!�!�
��Ca�D���H�H�J�J�	�	��	��M�0������1��o�r�43�3�����-�(�(�A���
�W�W�V�_�_��
�7�>�>�"���
	>��B�:�Q�?�?�?�?�?��G�O�O�O�<�<�=�
�M�L��I�'�
�
���g�l�l�7�B�/�/���7�>�>�#�&�&�� !�I�#�C�J�a�H�H�H�H��E���
>�����H�H�H�H�b�j�o�o�l�;�;�;�;�=�>�>�>��	�
�9�������I�I�K�K�K��D��
�2�q������9D�	6��%���	��%��+�+�+s�:D�
E�=E�EzN\s*(?P<before>%s(?=\s*(\b(%s)\b)))\s*(?P<this>(\b(%s)\b))\s*(?P<after>%s)\s*\Zzqcharacter|logical|integer|real|complex|double\s*(precision\s*(complex|)|complex)|type(?=\s*\([\w\s,=(*)]*\))|byte�.*rhz|static|automatic|undefined)z([a-z]+[\w\s(=*+-/)]*?|)�functionr�r��begin)z	[a-z\s]*?�
subroutiner�r�zprogram|block\s*dataz@|module(?!\s*procedure)|python\s*module|(abstract|)\s*interface|z
type(?!\s*\()z\end|endprogram|endblockdata|endmodule|endpythonmodule|endinterface|endsubroutine|endfunction�endzJend\s*(if|do|where|select|while|forall|associate|block|critical|enum|team)z[\w]*?�endifzmodule\s*procedure�moduleprocedure)r
�implicitrr�r)r
�dimension|virtualrr��	dimension)r
�externalrr�r)r
�optionalrr�r)r
�requiredrr�r)r
�publicr	r�r	)r
�privater
r�r
)r
�	intrinsicrr�r)r
�intent|depend|note|checkrz\s*\(.*?\).*�intent)r
�	parameterrz\s*\(.*r)r
�datarr�r)r
�callrr�r)r
�entryrr�r)r
�callfunrr�r)r
�commonrr�r)r
�userr�r)r
�containsrr
r)r
�formatrr�r)r
�Kthreadsafe|fortranname|callstatement|callprotoargument|usercode|pymethoddefrr��f2pyenhancementsz2\s*(?P<before>''')(?P<this>.*?)(?P<after>''')\s*\Z�	multilinec
��td��t|��zr
Jd���tjd�d�tj|����d�tj|����dd�����}|�|��}|r$|���}|d	|d
fS|dfS)z�
    Splits the line into (line[:i], line[i:]),
    where i is the index of first occurrence of one of the characters
    not within quotes, or len(line) if no such index exists
    z"'zcannot split by unquoted quoteszR\A(?P<before>({single_quoted}|{double_quoted}|{not_quoted})*)(?P<after>{char}.*)\Zz[^"'{}]z[{}]z('([^'\\]|(\\.))*')z("([^"\\]|(\\.))*"))�
not_quotedr;�
single_quoted�
double_quoted�before�afterr
)�setr�r�r�escaper��	groupdict)r0�
charactersr�r��ds     r)r�r��s����E�
�
�S��_�_�,�P�P�/P�P�P�-�
�
�	!�!'��!�(�(���:�)>�)>�?�?����r�y��4�4�5�5�0�0�	"(�"2�"2�	3�	3�A�	
����
�
�A��)�
�K�K�M�M���(��Q�w�Z�(�(��"�:�r(c���g}t|���d��D]2}dD]}|�|d��}�|�|���3d�|��S)N�@,@z(),r��,)�markoutercomma�splitr��appendr�)�argsline�ar�r�s    r)�
_simplifyargsr-�sq��
�A�
�H�
%�
%�
+�
+�E�
2�
2�����	"�	"�A��	�	�!�S�!�!�A�A�	���������8�8�A�;�;�r(z"\s*(?P<result>\b[a-z]+\w*\b)\s*=.*c�n�t|d��\}}|r�td�|��s�td�|��sq|dksJt	|�����t|d��\}}|r-t||��t|dd�d��\}}|�-t||��dS|dkrwdatdiatiiatgia	gttd<ittd<dttd<dttd	<d
a
d
adS|dk�r
d}trttkrd}t|kr�tdt	t���d
t	t���d���td��ttdz
�tt��ttttdz
d
d<tt=tdz
at|k��t�rttkr�ttdz
�tt��ttttdz
d
d<tt=tdz
attdz
�tt��ttttdz
d
d<tt=tdz
ad
a
dS|dkrdSd}tt t"t$t&t(t*t,t.t0t2t4t6t8t:t<t>t@tBtDtFtHtJtttLfD]&}|d�|��}|rn|dz}�'|�s�tN}	dtcxkrtkrnndSdttv�rattdD�]G}
|
tPvr
tP|
}
dttvr|
ttdvr�HtSjd|
ztU|��tRj+��}|r�|	�|�,d����}t[|�,d����}
|r d|
�d|
�d|�,d���d�}n	d|
�d|
�d�}t\d�|��}|s"tdt	|��z��dSt_|d|��dS��It`dks7t`dkrEtb�2���3d��rda4tdtz��dS|ddk�r�dtcxkrtkrnntdz
attkrdStdkrtkdtz���t8d�|��}|r�|�,d ��ttksZtkd!t	|�,d �����d"t	tt���d#tl�����ttkrd
attdz
�tt��ttttdz
d
d<tt=tdz
atnsda8dSdS|dd$krCdtcxkrtkrnntdzadSda9t_||d|��da8dS|dd%krdS|dd&krt_||d|��dS|dd'kr.ttrdSdtcxkrtkrnndStadSdtcxkrtkrnndSt_||d|��dS)(z�
    reset=-1  --- initialize
    reset=0   --- crack the line
    reset=1   --- final check if mismatch of blocks occurred

    Cracked data is saved in grouplist[0].
    �;rrNr
�body�vars�blockrqr�zcrackline: groupcounter=z groupname=r�zYcrackline: Mismatch of blocks encountered. Trying to fix it by assuming "end" statement.
�	externals�
interfacedz5(?P<before>[^"]*)\b%s\b\s*@\(@(?P<args>[^@]*)@\)@.*\Zr�argszcallfun �(z
) result (r��)z8crackline: could not resolve function call for line=%s.
rr�z"crackline:%d: No pattern for line
rz>crackline: groupcounter(=%s) is nonpositive. Check the blocks.�thiszcrackline: End group z* does not match with previous Begin group z
	r�rrr);r��f2pyenhancementspatternr��multilinepatternr��	crackliner�	groupname�
groupcacherrrrr2r*�dimensionpattern�externalpattern�
intentpattern�optionalpattern�requiredpattern�parameterpattern�datapattern�
publicpattern�privatepattern�intrinsicpattern�endifpattern�
endpattern�
formatpatternr��functionpattern�subroutinepattern�implicitpattern�typespattern�
commonpattern�callpattern�
usepattern�containspattern�entrypattern�moduleprocedurepattern�crackline_re_1r}r��markouterparenr�r�r-�callfunpattern�analyzelinerr!r��endswithr&r�r rrrr)r0�resetr��
has_semicolon�semicolon_line�flr1�patr��re_1rq�m1�m2r,s              r)r<r<�sQ��)��s�3�3��A�}��
�5�a�8�>�>�t�D�D�
�/��2�8�8��>�>�
���z�z�z�4��;�;�z�z�z�0��s�;�;���n��	N��d�E�"�"�"�#4�^�A�B�B�5G��#M�#M� �D�.��	N�	�$��������q�y�y���!�2�&�	�"�B�'�
�!�2�&�	�+-�
�<� ��(�+-�
�<� ��(�,.�
�<� ��)�+-�
�<� ��(��������q�y�y�
���	�\�\�9�9��B��R����G��,�'�'�'�'��i�����:�
;�
;�
;��l�
n�
n�
n��l�Q�&�'�.�.�z�,�/G�H�H�H�6?��6M�I�l�Q�&�'��+�F�3��,�'�'�!�+�L��R����		�\�\�9�9��l�Q�&�'�.�.�z�,�/G�H�H�H�6?��6M�I�l�Q�&�'��+�F�3��,�'�'�!�+�L��l�Q�&�'�.�.�z�,�/G�H�H�H�6?��6M�I�l�Q�&�'��+�F�3��,�'�'�!�+�L��L����r�z�z����D� �/�=�/�� �+�}�n� ��j���o�/@���}��Z���'� �&�
����
��F�L�L������	��E��a�x����K%�����/�/�/�/�<�/�/�/�/�/��F��*�\�2�2�2�"�<�0��=�
�
���;�&�&�&�t�,�D��:�l�#;�;�;��
�S_�H`�am�Hn�@n�@n���X�L�t�S�Uc�dh�Ui�Ui�km�ko�q�q�������B�H�H�X�$6�$6�7�7�B�%�b�h�h�v�&6�&6�7�7�A��<�<� �D�D�!�!�!�R�X�X�h�%7�%7�%7�%7� 9���<�48�4�4����;��&�q�)�/�/��5�5�A����W�Z^�_c�Zd�Zd�d�f�f�f������9�d�3�3�3��F�F���Q�;�;�7�a�<�<�O�,A�,A�,C�,C�,L�,L�V�,T�,T�<�#���9�\�J�K�K�K���	�Q��5�����.�.�.�.�,�.�.�.�.�.�'�!�+�L��,�.�.����1����0�+�-�.�.�
.��!�_�
"�
"�D�
*�
*���	����&�)�)�Y�|�-D�D�D��)�!�"�(�(�6�"2�"2�3�3�3�3�T�)�L�:Q�5R�5R�5R�5R�-�-�/���
�
�l�*�*� �O��,��"�#�*�*�:�l�+C�D�D�D�2;�L�2I�	�,��"�#�B�'��/��l�#�#�a�'���	��K�K�K�	�	�	�Q��7�	�	���/�/�/�/�<�/�/�/�/�/�'�!�+�L��F����A�s�1�v�t�$�$�$�����	�Q��7�	�	���	�Q��$�	$�	$��A�s�1�v�t�$�$�$�$�$�	�Q��:�	�	��	��F���/�/�/�/�<�/�/�/�/�/��F�&������/�/�/�/�<�/�/�/�/�/��F��A�s�1�v�t�$�$�$�$�$r(c��d}d}|D]6}|dkr|dz}|dkr|dz}�n|dkr|dz
}|dkr|dz}�1||z}�7|S)Nr
rr7r�@(@r8�@)@r')r0r��fr�s    r)rWrW[s���
�A�	�A�
������8�8��A��A��A�v�v���I�����#�X�X��A��A��A�v�v���I���
��E����Hr(r'c�b�d}d}t||dz��\}}||z
}|rq|d|kr|dkr|d|zdzz
}n.||dz
}|ddkr|dz
}n|ddkr|dz}t|dd�|dz��\}}||z
}|�q|rJt|||f�����|S)Nr
rz()�@r7rr8)r�r�)r0�commar�rfrrs      r)r(r(ms���
�A�	�A�%�d�E�D�L�9�9�M�F�E���K�A�
�
��!�H����A��F�F�
��u��s�"�"�A�A�
��q��M�A��Q�x�3����Q�����q��S����Q���)�%����)�U�T�\�B�B�
���	�V����
��$�$�$��4��|�$�$�$�$�5��Hr(c�Z�|�dd���dd��}|S)Nrdr7rer8)r�)r0r�s  r)�unmarkouterparenrk�s*�����U�C� � �(�(���4�4�A��Hr(c��|si}|s|S||ur|St|�����D]�}|dkr|s||vr||||<�|dkr||D]}t|||��}��=|dkrt||||��}�[|dkrt	||||��}�y|dvr|s||vr||||<��|dkr��|dvrtd|z����t
d	t|��z���|S)
Nr4�attrspec�kindselector�charselector)�=�typename�note)r
�checkrrr�dependz"appenddecl: "%s" not implemented.
z-appenddecl: Unknown variable definition key: )�list�keys�setattrspec�setkindselector�setcharselectorror�r�)�decl�decl2�force�kr�s     r)�
appenddeclr~�so�����������u�}�}���
�%�*�*�,�,�
�
�$�$���
�?�?��
#���
�
���(��Q���
�*�_�_��1�X�
3�
3��"�4��E�2�2���
3�
�.�
 �
 �"�4��q��5�9�9�D�D�
�.�
 �
 �"�4��q��5�9�9�D�D�
�#�
#�
#��
#���
�
���(��Q���
�&�[�[��
�)�)�)��9�A�=�>�>�>�>��K���F�F�#�$�$�
$��Kr(zD\s*(?P<this>(@\(@.*?@\)@|\*[\d*]+|\*\s*@\(@.*?@\)@|))(?P<after>.*)\Zz[(?:,(?P<attributes>[\w(),]+))?(::)?(?P<name>\b[a-z$_][\w$]*\b)(?:\((?P<params>[\w,]*)\))?\Zz�\s*(?P<name>\b[\w$]+\b)\s*(@\(@\s*(?P<args>[\w\s,]*)\s*@\)@|)\s*((result(\s*@\(@\s*(?P<result>\b[\w$]+\b)\s*@\)@|))|(bind\s*@\(@\s*(?P<bind>(?:(?!@\)@).)*)\s*@\)@))*\s*\ZzF\s*(?P<scheme>(operator|assignment))@\(@\s*(?P<name>[^)]+)\s*@\)@\s*\Zz9\s*(?P<name>\b[\w$]+\b)\s*@\(@\s*(?P<args>.*)\s*@\)@\s*\Zz4([-+]?(?:\d+(?:\.\d*)?|\d*\.\d+))[dD]((?:[-+]?\d+)?)zA([-+]?((?:\d+(?:\.\d*)?|\d*\.\d+))[eE]((?:[-+]?\d+)?)|(\d+\.\d*))zintent\s*\(.*?\bcallback\bc�r�|�dg��D]}t�|��rdS� dS)Nrmrr)�get�_intentcallbackpatternr�)�vdeclr,s  r)�_is_intent_callbackr��sF��
�Y�Y�z�2�
&�
&����!�'�'��*�*�	��1�1�	��1r(c�x�d�|�����}t�|��}t	||��|rc|�d��}|rd�|�d��D��ng}|�d��||�d��fSdgdfS)Nr
�
attributesc�6�g|]}|�����Sr')r�)rvr,s  r)rxz*_resolvetypedefpattern.<locals>.<listcomp>�s ��5�5�5�q������5�5�5r(r'rq�params)r�r)�typedefpatternr��printr�)r0ra�attrss   r)�_resolvetypedefpatternr��s���
�7�7�4�:�:�<�<� � �D�	�	�	�d�	#�	#�B�	�$��O�O�O�	�;�����&�&��9>�F�5�5�E�K�K��$4�$4�5�5�5�5�B���x�x���������(:�(:�:�:���T�>�r(c�>�t|��}t�|��}|rR|�d��|�d��|�d��|�d��fSt�|��}|r7|�d��dz|�d��zdz}|gddfSt
�|��}|r,|�d��|�d��ddfSdgddfS)Nrqr6r��bind�schemer7r8)rW�nameargspatternr�r��operatorpattern�callnameargspattern)r0rarqs   r)�_resolvenameargspatternr��s���$���D�	�	�	�t�	$�	$�B�	�X��x�x�������&�!1�!1�2�8�8�H�3E�3E�r�x�x�PV�GW�GW�W�W�	�	�	�t�	$�	$�B�	�$��x�x��!�!�C�'�"�(�(�6�*:�*:�:�S�@���R��t�#�#�	�	"�	"�4�	(�	(�B�	�>��x�x�������&�!1�!1�4��=�=���T�4��r(c
�dB�|�d��}|dkrdat�r
|dv�rts�tdkr�t
j�t���	d��d}td|z��datdzadtt<itt<gtt<gttd	<ittd
<dttd<|ttd<d
ttd<da|dv�
r�|���}t!jd|t j��rd}nEt!jd|t j��rd}n"t!jd|t j��rd}|dkrTt'|�d����\}}}t)|���ttd
|<g}d}	n't+|�d����\}}}	}|�|dkrd}nd}|dvrtd��||tfa|r:t-d�t/|���	d��D����}ng}d|vr,d|vr|�d��d|v�td��d}
d}|d vrd}d!ttvrdS|ttd!vrdSttD]}|d|krdS�|ttd"vrdSd#d$d �|}t2r(t4d%krtdkrtd&zad}
|d'vrd}tdzaitt<gtt<|
r�t6dkr%td(t9t2��zd��d)tt<dttd<t2ttd<dttd<gttd	<gttd*<gttd"<ittd
<tdzaitt<gtt<|�r$t6dkrtd+tzd��d,tt<d,ttd<d-ttd<ttdz
d�d.ttdz
d��ttd<gttd	<gttd*<gttd"<ittd
<tdzaitt<gtt<|tt<|ttd<|sd/|�d0d1��z}|�d2��ttd3<t=|��ttd<|	ttd4<tdkrtttd<n�t2rDtd5kr9ttdz
d�d.t��ttd<nLttdz
d�d.ttdz
d��ttd<t?tt� ����D]-}
tt|
stt|
=�.|ttd!<gttd	<gttd*<gttd"<ittd
<ittd6<|dkrgttd7<|d vr�|ttd&z
d*vr.ttd&z
d*�!|��tEj#ttd&z
d
��ttd
<	ttd
|ttd
|d8�$d9��=n#tJ$rYnwxYw|d:v�r?	tMttd
|ttd&z
d
d��ttd
|<n#tJ$rYnwxYw|d;kr�|	r�|	ttd
vrg||	ksatMttd
|ttd
|	��ttd
|<	ttd&z
d"�!|��n#tJ$rYnwxYw|d$kr�tNd�|�d2��d0z|z��}|rMtQ|�d��|�d����\}}}}tS||||��|d vr�ttdz
�!tt��ttttdz
d%d	<tt=tdz
attdz
�!tt��ttttdz
d%d	<tt=tdz
adSdS|d6kr�t+|�d����\}}}	}|�~|r:t-d<�t/|���	d��D����}ng}|	�Jt9|	�����|ttd6|<d6|tfadSdS|dkrJtQ||�d����\}}}}tS||||��}|�d=|tfadSdS|d>v�r
ttd
}|�d���*��}|�+d?��}|dkr�|d@kr�tY|���+dA��d&z
}|d|dz�d?z||dzd�z}|�+d?��}||d�d?krrd!ttvr^tdB|�d���|d|��dC���|dD�-ttd!��z}|dkrd}d}n)|d|��*��}||d&zd�}t/|���	d��}t]|��dkr5|d}tdEdD�-|dd���z��d}dF�t/|���	d��D��D�]�}t^�|��}|sL|dGvrd}
ngta|�1����tdH|�dIt9|���dJ����kt=|�d����}
|dGvr$|
dKks|
dLkr|
|�d��z
}
|
|vri||
<|dMkr||�d��z}|d@k�r|�d��|z}td�|��r�|
ttd!vr�tdkr�dNttd&z
dvrtdO��|
ttdkrWtdP|
�dQttd�dR���ttd!�!|
��n%tgdS|
z��ntgdT|
z��|dUvr|}d8||
vr"||
d8�!|��n|g||
d8<|d9kr�ttddkrtdV����p|
ttd!vr���d*ttvrgttd*<ttd*�!|
��|
}���|ttd
<|�d=|tfadSdS|dWkrGdX�|�d���	dD��D��ttdY<dS|dZk�r<ttd
}|�d���*��dd%�}d}t/|���	d��D�]�}	d[�|�	d\��D��\}
}n&#tJ$rtd]|�d^|�d_���Y�IwxYwti|��}t=|
��}
|
|vri||
<d\||
vr7||
d\|ks%td`|
�da||
d\�db|�dc���tk||��}|�rB|�6dd��dekr�t?|��}tn�8|��D]�}t?||�9��|�:�������dfdg����||�9��|�:���<��d�-|��}n]|�6dd��dhkrD|dd�����dfdg���dDdi��}	tw|i|��}n;#txtzt|f$r!} tgdj|�dk| �dC���Yd} ~ ��Pd} ~ wwxYwt9|��||
d\<d8||
vr"||
d8�!dZ��ndZg||
d8<|
}���|ttd
<|�d=|tfadSdS|dlk�r |�d���*�����dmkrdttdl<dS|�d���r�dlttvrttdl}!ni}!|!�tdn��i}!t/|�d�����	d��D�]$}i}"t!jdo|t j��}|stdp|z���:t~�|�d����}#|#stdq|z���|tQ|#�d��|#�d����\}}}}t�||��\}$}%}&||"dd<|$|"dr<|%|"ds<|&|"dt<t?|"� ����D]
}
|"|
s|"|
=�t/|�d�����	d��D]�}'du|'vrF	dv�|'�	du��D��\}(})n8#tJ$rtdw|'z��Y�HwxYw|'�*��x}(})t]|(��t]|)��cxkrdksntdx|'z����t�t�|(��t�|)��dz��D]}*|"|!t�|*��<����&|!ttdl<dSdS|dyk�rKg}d}+d},d}-d}.d}/|�d��D]�}0|/s|0dzkr|.}.|0d{kr|.r|-dz}-�|0d|kr|/dz}/n|0d}kr|/dz
}/|-dkr|+|0z}+�>|-dkr|,|0z},�J|-d&krb|+�*��}+|+�DdD��r|+dd��*��}+|�!|+|,g��|0}+d},d}-��|-d&kr\|+�*��}+|+�DdD��r|+dd��*��}+|�!|+|,g��i}1d
ttvrttd
}1d}|D�]�}2d~�|2D��}2|2dddDkr|2ddd�|2d<|2ddd|krtd|2dz���_d}d}3t]|2d��}4t-d��t/|2d���	d��D����D�]}|dd|krtd|z���"d}.||4krH|.s|2d|dDks4|2d|dzkr|.}.|dz}||4kr|.�"|2d|dDk�4|dz}||1vri|1|<d\|1|vrY|1|d\|2d|3|dz
�ks6td�|�da|1|d\�d�|2d|3|dz
��d_���|2d|3|dz
�|1|d\<|}3|}�����|1ttd
<|�d=|tfadSdS|d�k�r�|�d���*��}|dd{ksd�|z}g}5d}-d}6d}7|D]\}0|0d{kr|-dz}-�|-d5kr8|6�*��}6|6sd�}6|5�!|6|7g��|-d&z
}-d}6d}7|-d&zr|6|0z}6�W|7|0z}7�]|6�*��}6|6sd�}6|5�!|6|7g��i}8d�ttvrttd�}8|5D]o}0|0d|8vrg|8|0d<d��t/|0d���	d��D��D]%}|r!|8|0d�!|���&�p|8ttd�<d�|6tfadS|d�k�rt!jd�|�d��t j��}|�r�|�1��}9d�ttvrittd�<|�d��}ittd�|<d}:d�|9v�r"|9d���d�|9vr
|9d��d}:|:ttd�|d�<d��|9d��	dD��D��}i};|D]�}2d\|2vr�t!jd�|2t j��}#|#rP|#�d����*��|;|#�d����*��<n%td�t9|2��z��n|2|;|2<|;ttd�|d�<��dSdSta|�1����td���dS|d�vr�d�ttvrittd�<ttd�}<|�d��d�kr[d�|<vrWt�|<d�t���r|<d�g|<d�<|<d��!|�d����dS|�d��|<|�d��<dS|dkrdt�t6rtd���dSt}=t�t|=tdd&�|�d����dSt6dkr2ta|�1����td���dSdS)�Nr9r)r�rrrhr�.rzBanalyzeline: no group yet. Creating program group with name "%s".
�programr0r1r2rq�fromsky�from)r�rrzblock\s*data�
block datazpython\s*module�
python modulezabstract\s*interface�abstract interfacerhr)rm�_BLOCK_DATA_r
)�	interfacer�r�z2analyzeline: No name/args pattern found for line.
c�6�g|]}|�����Sr'�r��rv�xs  r)rxzanalyzeline.<locals>.<listcomp>s6��J�J�J�"#� �g�g�i�i�J�J�Jr(r&z<analyzeline: argument list is malformed (missing argument).
)rrr6r5r�r�rr3�r�r�z&analyzeline: Creating module block %s
�moduler4zDanalyzeline: Creating additional interface block (groupcounter=%s).
r��unknown_interface�:�unknown_r�r�r�prefixr��r�varnamesrmr�r�r�rc�6�g|]}|�����Sr'r�r�s  r)rxzanalyzeline.<locals>.<listcomp>�s6��"N�"N�"N�&'�#$�'�'�)�)�"N�"N�"Nr(�variable)rr
rrrr	r
r�::r
rez"All arguments will have attribute r�r'zXanalyzeline: cannot handle multiple attributes without type specification. Ignoring %r.
c�6�g|]}|�����Sr'r�r�s  r)rxzanalyzeline.<locals>.<listcomp>�s ��E�E�E��!�'�'�)�)�E�E�Er(�r	r
z&analyzeline: no name pattern found in z statement for z. Skipping.
�operator�
assignmentr�__user__z8analyzeline: missing __user__ module (could be nothing)
z(analyzeline: appending intent(callback) � to z arguments
z,analyzeline: intent(callback) %s is ignored
z=analyzeline: intent(callback) %s is already in argument list
)rrr	rr
rz(analyzeline: ignoring program arguments
rc�6�g|]}|�����Sr'r�r�s  r)rxzanalyzeline.<locals>.<listcomp>�s ��<�<�<�1�Q�W�W�Y�Y�<�<�<r(�
implementedbyrc�6�g|]}|�����Sr'r�r�s  r)rxzanalyzeline.<locals>.<listcomp>s ��?�?�?�Q�q�w�w�y�y�?�?�?r(rpzAanalyzeline: could not extract name,expr in parameter statement "�" of "�"
z1analyzeline: Overwriting the value of parameter "�" ("z	") with "rmr4r5r$�e�complexz+1j*(z analyzeline: Failed to evaluate z. Ignoring: r�nonez<analyzeline: Overwriting earlier "implicit none" statement.
z9\s*(?P<this>.*?)\s*(\(\s*(?P<after>[a-z-, ]+)\s*\)\s*|)\ZzDanalyzeline: could not extract info of implicit statement part "%s"
zManalyzeline: could not extract types pattern of implicit statement part "%s"
rnrorq�-c�6�g|]}|�����Sr'r�r�s  r)rxzanalyzeline.<locals>.<listcomp>Os ��)J�)J�)J��!�'�'�)�)�)J�)J�)Jr(zZanalyzeline: expected "<char>-<char>" instead of "%s" in range list of implicit statement
z^analyzeline: expected "<char>-<char>" instead of "%s" in range list of implicit statement (2)
r�'�/r7r8c�6�g|]}|�����Sr'r�r�s  r)rxzanalyzeline.<locals>.<listcomp>�s ��&�&�&�q������&�&�&r(z>analyzeline: implied-DO list "%s" is not supported. Skipping.
c�6�g|]}|�����Sr'r�r�s  r)rxzanalyzeline.<locals>.<listcomp>�s ��U�U�U�a����	�	�U�U�Ur(z*analyzeline: changing init expression of "�") to "rz//�_BLNK_c�6�g|]}|�����Sr'r�r�s  r)rxzanalyzeline.<locals>.<listcomp>�s ��K�K�K�A�a�g�g�i�i�K�K�Kr(rzR\A\s*(?P<name>\b\w+\b)\s*((,(\s*\bonly\b\s*:|(?P<notonly>))\s*(?P<list>.*))|)\s*\Zru�notonly�onlyc�6�g|]}|�����Sr'r�r�s  r)rxzanalyzeline.<locals>.<listcomp>�s ��?�?�?�A�a�g�g�i�i�?�?�?r(z7\A\s*(?P<local>\b\w+\b)\s*=\s*>\s*(?P<use>\b\w+\b)\s*\Z�localz0analyzeline: Not local=>use pattern found in %s
�mapz0analyzeline: Could not crack the use statement.
)rr�usercodez-analyzeline: No context for multiline block.
z+analyzeline: No code implemented for line.
)Hr�r&rrrr�r��basenamer!r)r2rr=r>rr�r�r�r�r��dictr�r{r(�removerrrr�r�rrrurvr*�copy�deepcopyr[r�r~rO�cracktypespec0�
updatevarsr��findrWr�rX�namepatternr�r"r�ro�get_parameters�determineexprtyper��
real16pattern�finditer�startr�eval�SyntaxError�	NameError�	TypeError�typespattern4implicit�
cracktypespecr��ord�chrr��
isinstancer��appendmultiline)>r�r?r0r2�newnamerqr�r�r6r��
needmodule�
needinterface�itr}�tr4�selector�attr�edeclr��	last_namer��i�pl�chr�ra�ap�initexprr��tt�vr��implrzrb�
kindselect�
charselectrqr��begc�endc�o�dl�ilrf�fc�inpr�r1r��j�llen�cl�bn�ol�	commonkey�mm�isonlyr�r$�gcs>                                                              r)rYrY�s"��

�G�G�F�O�O�E��{�������t�#G�G�G��H�!-��!1�!1��'�"�"�?�3�3�9�9�#�>�>�q�A���Q�T[�[�	]�	]�	]���#�a�'��"+�	�,��#%�
�<� �"$�	�,��+-�
�<� ��(�+-�
�<� ��(�,5�
�<� ��)�+2�
�<� ��(�+4�
�<� ��(����+�+�+����
�
��
�8�O�U�B�D�1�1�	)� �E�E�
�X�(�%���
6�
6�	)�#�E�E�
�X�-�u�b�d�
;�
;�	)�(�E��F�?�?�3�A�G�G�G�4D�4D�E�E�N�D�%��59�U�5K�5K�5K�J�|�$�V�,�T�2��D��F�F�$;�A�G�G�G�<L�<L�$M�$M�!�D�$����<���$�$�%������M�M�M��M�N�N�N�!�4��6���	��J�J�'5�d�';�';�'A�'A�%�'H�'H�J�J�J�K�K�D�D��D�
��:�:���*�*����B������*�*��O�
Q�
Q�
Q��
��
��&�&�&��M��Z��5�5�5����:�l�3�F�;�;�;�����-�
�
���f�:��%�%��F�F�&��z�,�/��=�=�=���)�j�A�A�$�G�E��	"�\�R�/�/�L�A�4E�4E�'�!�+�L��J��?�?�?� !�
�#�a�'��#%�
�<� �"$�	�,���	)���{�{��A��]�+�+�,�-.�0�0�0�&.�I�l�#�0?�J�|�$�W�-�/<�J�|�$�V�,�/1�J�|�$�V�,�/1�J�|�$�V�,�46�J�|�$�[�1�57�J�|�$�\�2�/1�J�|�$�V�,�'�!�+�L�')�J�|�$�&(�I�l�#��	)���{�{��_� �"�#$�&�&�&�&1�I�l�#�0;�J�|�$�W�-�/B�J�|�$�V�,��<�!�+�,�V�4�4�4�j��PQ�AQ�6R�SY�6Z�6Z�0\�J�|�$�V�,�/1�J�|�$�V�,�46�J�|�$�[�1�57�J�|�$�\�2�/1�J�|�$�V�,�'�!�+�L�')�J�|�$�&(�I�l�#�"'�	�,��,1�
�<� ��)��	8���
�
�c�3� 7� 7�7�D�-.�W�W�X�->�->�
�<� ��*�+5�d�+;�+;�
�<� ��(�-3�
�<� ��*��1���/>�J�|�$�V�,�,��
`���!2�!2��|�a�/�0��8�8�8�/�/�4K�
�<�(��0�0��|�a�/�0��8�8�8�*�\�TU�EU�:V�W]�:^�:^�4`�
�<�(��0��j��.�3�3�5�5�6�6�	0�	0�A��l�+�A�.�
0��|�,�Q�/��+/�
�<� ��(�+-�
�<� ��(�02�
�<� ��-�13�
�<� ��.�+-�
�<� ��(�,.�
�<� ��)��F�?�?�35�J�|�$�Z�0��&�&�&��:�l�Q�&6�7��D�D�D��<�!�+�,�[�9�@�@��F�F�F�/3�}��<�!�+�,�V�4�06�06�J�|�$�V�,�
��|�,�V�4�T�:��|�,�V�4�T�:�:�F�L�L�Z�X�X�Z�Z���
�
�
���
�����.�.�.�
�9C��|�,�V�4�T�:�J�|�VW�GW�<X�Y_�<`�ac�<d�:f�:f�
�<�(��0��6�6���
�
�
���
�����y� � ��n�f�
�<�(@��(H�H�H��6�>�>�AK�&�|�4�V�<�T�B�J�|�D\�]c�Dd�ek�Dl�Bn�Bn�
�<�0��8��>�
��<�!�+�,�\�:�A�A�$�G�G�G�G���
�
�
���
�����J����Q��%�%�a�g�g�h�&7�&7�#�&=��&D�E�E�A��
<�2@��G�G�F�O�O�Q�W�W�W�%5�%5�37�37�/��(�D�%��8�X�t�U�;�;�;��&�&�&��l�Q�&�'�.�.�z�,�/G�H�H�H�6?��6M�I�l�Q�&�'��+�F�3��,�'�'�!�+�L��l�Q�&�'�.�.�z�,�/G�H�H�H�6?��6M�I�l�Q�&�'��+�F�3��,�'�'�!�+�L�L�L�'�&�
����#:�1�7�7�7�;K�;K�#L�#L� ��d�F�D����
� �"N�"N�+9�$�+?�+?�+E�+E�e�+L�+L�"N�"N�"N�O�O������>�>�4��<�<�>�>�>�6:�J�|�$�W�-�d�3� '��|�<������
����*8��1�7�7�7�#�#�+%�+%�'��(�D�%��x��4��?�?�	�� � *�I�|�D����!� �	
�n�	n�	n��<�(��0��
�W�W�W�
�
�
#�
#�
%�
%���G�G�D�M�M���q�5�5�T�X�%�%��r�"�"�'�'��.�.��2�A��F�Q��U�F��d�"�R��A����Z�/�B�����
�
�A��!�"�"�v��~�~�&�J�|�,D�"D�"D����������"�R�a�R�&�&�&�2�3�3�3��#�(�(�:�l�#;�F�#C�D�D�D���q�5�5��A��B�B��B�Q�B������B��A��E�F�F��B�
�B�
�
�
%�
%�e�
,�
,���r�7�7�Q�;�;��A��B��o�����A�B�B�� � �"�
#�
#�
#��	�E�E�^�B�%7�%7�%=�%=�e�%D�%D�E�E�E�5	�5	�A��"�"�1�%�%�B��	
1��0�0�0��A�A��!�+�+�-�-�(�(�(��G����d�1�g�g�g�g�'�(�(�(���r�x�x��/�/�0�0���,�,�,��Z���1��#4�#4��R�X�X�g�&�&�&����~�~���a���{�"�"��B�H�H�W�-�-�-���x����W�W�V�_�_�r�)��)�/�/��3�3�=��
�<� 8�� @�@�@�'�!�+�+�)��L�1�<L�1M�f�1U�U�U� '�$_�!a�!a�!a� !�J�|�$<�V�$D�D�D� '��@A���:�l�C[�\b�Cc�Cc�Cc�)e�!f�!f�!f� *�<� 8�� @� G� G�� J� J� J��#� O�ST� U�W�W�W�W� �!6�9:�!<�=�=�=��]�]�]����U�1�X�%�%��a���$�+�+�B�/�/�/�/�(*�t��a���$��z�!�!��l�+�G�4�	�A�A��G�H�H�H���J�|�4�V�<�<�<���j��&>�>�>�<>�J�|�,�[�9��<�(��5�<�<�Q�?�?�?��I�I�+0�
�<� ��(�� � *�I�|�D����!� �	
�"�	"�	"�<�<����� 0� 0� 6� 6�s� ;� ;�<�<�<�	�<� ��1�1�1�	
��	�	��<�(��0��
�W�W�W�
�
�
#�
#�
%�
%�a��d�
+���	���#�#�)�)�%�0�0�$	�$	�A�
�?�?�!�'�'�#�,�,�?�?�?���8�8���
�
�
���hi�hi�hi�km�km�km�n�p�p�p���
����$�E�*�*�F��1�
�
�A���~�~���a���e�A�h����a���
��(A�(A����A�A�u�Q�x��}�}�}�h�h�h�0�1�1�1�!�(�F�3�3�A��	
.��5�5��$�$��.�.��h���B�*�3�3�H�=�=�S�S��04�$�Q�W�W�Y�Y�q�u�u�w�w�%6�7�=�=�?�?�G�G��S�Q�Q�1S�1S��1�7�7�9�9�Q�U�U�W�W�,�-�-�!�w�w�r�{�{�H�H��U�U�:�&�&�)�3�3�'����|�1�1�3�3�;�;�C��E�E����W�-�-��
���2�v�.�.������I�6�
�
�
���#�8�8�S�S�S�*�+�+�+����������
����!��G�G�E�!�H�S�M��U�1�X�%�%��a���$�+�+�K�8�8�8�8�(3�}��a���$��I�I�+0�
�<� ��(�� � *�I�|�D����!� �	
��	�	��7�7�7���!�!�#�#�)�)�+�+�v�5�5�37�J�|�$�Z�0�0�0�
�W�W�W�
�
�1	8��Z��5�5�5�!�,�/�
�;������|��S�U�U�U���#�A�G�G�G�$4�$4�5�5�;�;�E�B�B�'
,�'
,�����X�P�RS�UW�UY�[�[�����_�cd�e�g�g�g��*�0�0����&�1A�1A�B�B�����h�lm�n�p�p�p��2@��H�H�V�$�$�b�h�h�w�&7�&7�39�39�/��(�D�%�3@��h�4(�4(�0�
�J��#+��Z� �'1��^�$�'1��^�$�#+��Z� ��d�i�i�k�k�*�*�$�$�A���7�$� ��G��'�����(9�(9�:�:�@�@��G�G�,�,�A��a�x�x�%�)J�)J�Q�W�W�S�\�\�)J�)J�)J�J�D�$�$��(�%�%�%�#� }�AB�!B�C�C�C�$�H�%����
'(�g�g�i�i�/��t��t�9�9��D�	�	�6�6�6�6�Q�6�6�6�6��}�AB�B�C�C�C� �"�3�t�9�9�c�$�i�i�!�m�<�<�,�,��'+��S��V�V���,�,� 48�J�|�$�Z�0�0�0�c1	8�1	8�d
����
��
��
��
��
��������!�!�	�	�A��
���8�8���B���8�8��8��A��A���C�x�x��A�g����c����A�g���A�v�v��!�V����a����!�V����a����X�X�Z�Z���=�=��%�%�(��A�B�B������B��	�	�2�r�(�#�#�#����������6�6������B��}�}�S�!�!�
$�����V�\�\�^�^���I�I�r�2�h�������Z��-�-�-��l�+�F�3�D��	�� 	� 	�A�&�&�A�&�&�&�A���t�A�w�#�~�~���t�A�B�B�x��!����t�A�w�#�~�~��U�XY�Z[�X\�\�^�^�^���A��A��q��t�9�9�D��U�U�>�!�A�$�3G�3G�3M�3M�e�3T�3T�U�U�U�V�V�
�
���Q�4�3�;�;��Y�\]�]�_�_�_�
����4�x�x�b�x��!��Q��3�����t�A�w�#�~�~�!#�V���A��A��4�x�x�b�x��!��Q��3�����E���D�=�=� �D��G��$�q�'�>�>�$�q�'�#�,�!�A�$�q��Q��w�-�*G�*G��G����4��7�3�<�<�<��1��a��A��g����8�9�9�9� ��t�A�a�!�e�G�}��Q�������	�	�+
�,,0�
�<� ��(�� � *�I�|�D����!� �	
��	�	��w�w�w���%�%�'�'���A�w�#�~�~��$�;�D�
��
��
��
���	�	�A��C�x�x���E����A�v�v��X�X�Z�Z���"�!�B��	�	�2�r�(�#�#�#���E�������1�u�
��!�V����!�V���
�X�X�Z�Z���	��B�
�	�	�2�r�(�����	��z�,�/�/�/�"�<�0��:�I��	.�	.�A���t�9�$�$�"$�	�!�A�$��K�K���!��)=�)=�)C�)C�E�)J�)J�K�K�K�
.�
.���.��a��d�O�*�*�1�-�-�-��
.�.7�
�<� ��*�$�b�,�7����	
����
�X�a�cd�cj�cj�kr�cs�cs�uw�uy�{�{��
�	I������B��J�|�4�4�4�24�
�<�(��/��8�8�F�#�#�D�46�J�|�$�U�+�D�1��F���|�|��6�
� 6���?�?�r�)�}�'<��F�@F�
�<�(��/��5�f�=�?�?��F��)9�)9�#�)>�)>�?�?�?�����F�F�A��a�x�x��X�V�XY�[]�[_�a�a���_�<>�H�H� %�='�='�',�u�w�w��r�x�x��0�0�6�6�8�8�9�9�$� S�VZ�[\�V]�V]� ]�_�_�_�_�!"��1��CE�J�|�,�U�3�D�9�%�@�@�F�F����!�+�+�-�-� � � ��G�H�H�H�H�H�	
�%�	%�	%��Z��%=�=�=�;=�J�|�$�%7�8��|�$�%7�8���7�7�6�?�?�j�(�(�Z�1�_�_��!�J�-��-�-�
0�!"�:����*�
�
�j�M� � �����!1�!1�2�2�2�2�2�!"����!1�!1�A�a�g�g�f�o�o����	
��	�	��#��
J��H�I�I�I��F�
���
�2��(��!��,�������	)�	)�	)�	)�	)��Q�;�;��!�+�+�-�-� � � ��B�C�C�C�C�C��;s��3Ad�
d�d�A$f�
f�f�.i�
i�i�K"AK#�K# AL�LAL�SAS�SAT�S0AT�TAT�^?"A_"�_"A`�`A`c�p�d|vri|d<|d}||vrg||<||�|��dS)N�f2pymultilines�r*)r��context_name�mlr$s    r)r�r�
sT���u�$�$�"$����
���A��1�����,���l�O���2����
�Fr(c��d}d}tjd|tj��rd}nItjd|tj��rd}n&|������}t
�t
|����}|std��dS|���}t|�
����D]}t||��||<�|dvr|d}|d}|�d	��}|d
kr)|d|����}||dzd�}||||fS)Nzdouble\s*complex�double complexzdouble\s*precisionzdouble precisionz>cracktypespec0: no kind/char_selector pattern found for line.
)r�r7�logicalr5�	characterrhr9rr�rr3)
r�r�r�r�r��
selectpatternrWr2r"rurvrkr�)r4r�r�r�rar$r}r�s        r)r�r�sS���H��D�	�x�#�X�r�t�4�4�,�#���	��'��2�4�	8�	8�,�%����>�>�#�#�)�)�+�+��	�	�	�^�B�/�/�	0�	0�B�
���M�	O�	O�	O���
�����A�
�!�&�&�(�(�^�^�&�&����!��%�%��!����Q�Q�Q��V�9��
�w�Z��
����
�
�A��A�v�v��"�1�"�v�|�|�~�~��
��A����Z���X�t�R�'�'r(z)\s*(?P<name>\b\w+\b)\s*(?P<after>.*)\s*\ZzB\s*(\(\s*(kind\s*=)?\s*(?P<kind>.*)\s*\)|\*\s*(?P<kind2>.*?))\s*\Zz2\s*(\((?P<lenkind>.*)\)|\*\s*(?P<charlen>.*))\s*\Zz�\s*(kind\s*=\s*(?P<kind>.*?)\s*(@,@\s*len\s*=\s*(?P<len>.*)|)|(len\s*=\s*|)(?P<len2>.*?)\s*(@,@\s*(kind\s*=\s*|)(?P<kind2>.*)|(f2py_len\s*=\s*(?P<f2py_len>.*))|))\s*\Zz�\s*(@\(@\s*(?!/)\s*(?P<array>.*?)\s*@\)@\s*\*\s*(?P<len>.*?)|(\*\s*(?P<len2>.*?)|)\s*(@\(@\s*(?!/)\s*(?P<array2>.*?)\s*@\)@|))\s*(=\s*(?P<init>.*?)|(@\(@|)/\s*(?P<init2>.*?)\s*/(@\)@|)|)\s*\Zc�(�|���}t|��dkr|S|d}tdt|��dz
��D]4}||dkr||dzdvs
||dz
dvr�)|||z}�5||dz}|S)Nrrr�z()[]{}=+-/* r)r�rXr�)�expr�expr2r�s   r)�removespacesr;s����:�:�<�<�D�
�4�y�y�A�~�~�����G�E�
�1�c�$�i�i�!�m�
$�
$� � ����G�s�N�N��1�q�5�k�^�+�+��a�!�e���.�.����Q������D��H��E��Lr(c��d}d}d}d}|D];}|dkr|dvr||z
}|}�|s|dvr|}||kr|}n|dkr|r|dz
}�4||z
}|}�<|S)	a(
    The function replace all spaces in the input variable line which are 
    surrounded with quotation marks, with the triplet "@_@".

    For instance, for the input "a 'b c'" the function returns "a 'b@_@c'"

    Parameters
    ----------
    line : str

    Returns
    -------
    str

    r
FN�\)rr��")r�rr��@_@r')r0�fragment�inside�
current_quote�escapedr�s      r)�markinnerspacesrJs��� �H�
�F��M��G�
�
�
���d�?�?�q�$5�5�5���M�H��G���	�!�{�*�*��M��
����Z�F�F�
�#�X�X�&�X����H���A�
������Or(c���d}t||��\}}}|r�d�t|���d��D��}g}tjd��}	|D]r}
|
s�|	�|
��}|rA|�d�����}||
t|��d�z}
|�	|
���s|}d�t|���d��D��}
g}|
D]x}d�ttt|����d����d	��D��D]-}|r)|�	|�d
d�����.�y|D�]�}t�|��}|s tdt|��z���?t!|�d����}i}|t"t$d
v�r^t"t$d
|���}d|v}|r||d<n-|r+||dkstd|�d|d�d|�d���d|vrt'j|��|d<n�|r�t)|�����D]v}||dvrG|||d|ks/td|�d|�d|d|�d||�d�	���St'j||��|d|<�wd|vr!|r|r||d<n�t-d|�d|�d���n�|r�t)|�����D]v}||dvrG|||d|ks/td|�d|�d|d|�d||�d�	���St'j||��|d|<�wd|vr||d<n-|r+|d|kstd|�d|d�d|�d���d|vrt'j|��|d<n�|r*|D]'}
|
|dvr|d�	|
���(nat'j|��|d<t'j|��|d<t'j|��|d<||d<t'j|��|d<d|�d��pgvrn|t"t$dvrTd t"t$vrgt"t$d <t"t$d �	|��|�d!���rt0�t3|�d!������}|�r|���}d"D]!}||d#z�||d#z||<||d#z=�"t)|�����D]&}||�t7||��||<�#||=�'d$|vrh|d%vr&d|vs|dsi|d<|d$|dd&<|d$=n>|d'kr8d|vs|dsi|d<d$|dvr	|dd$=|d$|dd&<|d$=d(|vrGd)|vr8|d)|d(ks&td*|�d|d)�d|d(�d���n|d(|d)<d$|vr^d+|vrZ|d$d,kr|d+|d$<|d+=n?|d+d-z|d$z|d+<|d$=t-d.|�d|�d/|�d|�d0|d+�d1���d+|vr|d2|d+z}d|vs|ds|g|d<n�|d�	|��|dD]:}|dd3�d4kr*||kr$|dd5=t-d|�d6|�d7|�d���n�;n(td8||�d!��zz��t)|�����D]
}||s||=�|t"t$d
|<d9t"t$vr+t"t$d9�	|��|}���|S):Nc�6�g|]}|�����Sr'r�r�s  r)rxzupdatevars.<locals>.<listcomp>us ��M�M�M�!�A�G�G�I�I�M�M�Mr(r&z(?P<start>[a-zA-Z]+)r�c�6�g|]}|�����Sr'r�r�s  r)rxzupdatevars.<locals>.<listcomp>�s ��	E�	E�	E��!�'�'�)�)�	E�	E�	Er(c�6�g|]}|�����Sr'r�r�s  r)rxzupdatevars.<locals>.<listcomp>�s ��o�o�o��1�7�7�9�9�o�o�or(r��riz@ @rz;updatevars: no name pattern found for entity=%s. Skipping.
rqr1r4z+updatevars: attempt to change the type of "r�r�z
". Ignoring.
rnz0updatevars: attempt to change the kindselector "r�rozupdatevars:z*: attempt to change empty charselector to r�z0updatevars: attempt to change the charselector "rqz/updatevars: attempt to change the typename of "rmrr6r4r)rX�array�init�2rX�r�r7r
r5rrr#rpz6updatevars: attempt to change the init expression of "r"r
r'z
updatevars: "z" is mapped to "r7z)"
�
dimension(%s)�	rrz: attempt to change r�z?updatevars: could not crack entity declaration "%s". Ignoring.
r�)r�r(r)r�r�r�r�r�rXr*rrr�r�r2r�rrr>rr�rurvror��lenarraypatternrWr"rk)r4r�rm�
entitydeclr�r�r�rqr�r�r,r��s�el�el1r��e1�enamer��not_has_typespecr}ra�d1�lk�dm�dm1s                          r)r�r�os,
���I�'4�X�x�'H�'H�$�J�
�H���M�M�~�h�'?�'?�'E�'E�e�'L�'L�M�M�M�����J�.�/�/���	�	�A��
������
�
�A��
#��G�G�G�$�$�*�*�,�,����#�a�&�&�'�'�
�N��
�H�H�Q�K�K�K�K���	E�	E�^�J�7�7�=�=�e�D�D�	E�	E�	E�B�
�C�
�3�3��o�o�n�\�/�RS�BT�BT�5U�5U�]`�&a�&a�&a�&g�&g�hm�&n�&n�o�o�o�	3�	3�B��
3��
�
�2�:�:�e�S�1�1�2�2�2��	3��~�~�����a� � ���	��N�RV�WX�RY�RY�Z�
\�
\�
\���1�7�7�6�?�?�+�+�����J�|�,�V�4�4�4��|�,�V�4�U�;�@�@�B�B�E�)��6���
9�$,��j�!�!��
9�8�u�Z�/@�#@�#@����E�E�5��,�,�,�h�h�h�8�9�9�9��U�*�*�(,�	�*�(=�(=��n�%�%��
L��j�o�o�/�/�0�0�L�L�A��E�.�1�1�1�:�a�=�E�R`�La�bc�Ld�;d�;d����A�A�u�u�u�e�N�&;�A�&>�&>�&>�
�1�
�
�
�!O�P�P�P�P�48�9�Z��]�3K�3K��n�-�a�0�0��U�*�*�z�*�#�3�,6�E�.�)�)��G�$�u�u�j�j�j�2�3�3�3�3��
L��j�o�o�/�/�0�0�L�L�A��E�.�1�1�1�:�a�=�E�R`�La�bc�Ld�;d�;d����A�A�u�u�u�e�N�&;�A�&>�&>�&>�
�1�
�
�
�!O�P�P�P�P�48�9�Z��]�3K�3K��n�-�a�0�0���&�&�$,��j�!�!��
9�5��#4��#@�#@����E�E�5��,�,�,�h�h�h�8�9�9�9���&�&�$(�I�h�$7�$7��j�!�!��
4�!�4�4�A���j� 1�1�1��j�)�0�0��3�3�3��� $�	�(� 3� 3�E�*��$(�I�j�$9�$9�E�.�!�$(�I�j�$9�$9�E�.�!� (�E�*�� $�	�(� 3� 3�E�*���%�)�)�J�/�/�5�2�6�6�1�
�<�@X�Y_�@`�;`�;`��*�\�":�:�:�8:�
�<�(��5��|�$�[�1�8�8��;�;�;��7�7�7���<	/� �&�&�~�a�g�g�g�6F�6F�'G�'G�H�H�B��:
/��\�\�^�^��2�)�)�B��"�s�(�|�/�!#�B��H���2���r�C�x�L���b�g�g�i�i���"�"�A��!�u�(� 0��A�� 7� 7��1����q�E�E��B�;�;��#L�L�L�*�%�7�7��~�AV�7�46�E�.�1�57��Y��n�-�c�2��u�I�I�!�[�0�0�*�%�7�7��~�AV�7�46�E�.�1� �E�.�$9�9�9� %�n� 5�e� <�57��Y��n�-�c�2��u�I��R�<�<��e�|�|�U�3�Z�2�f�:�-E�-E���!�E�E�5��:�:�:�r�&�z�z�z�!;�<�<�<�<�&(��Z��c�
��B�;�;�7�b�=�=��%�y�B���$&�w�K��5�	��w�K�K�&(��k�C�&7�"�U�)�&C��7���u�I���$�H�H�a�a�a����5�5�5�"�W�+�+�+�!G�H�H�H��b�=�=�(�2�g�;�6�B�!��.�.�u�Z�7H�.�-/�D��j�)�)��j�)�0�0��4�4�4�#(��#4�&�&�C�"�2�A�2�w�+�5�5�#��)�)�$)�*�$5�b�$9� '��+0�5�5�#�#�#�r�r�r�);�!<�!<�!<� %�����Z��A�G�G�G�,�,�,�.�/�/�/��e�j�j�l�l�#�#�	�	�A���8�
��!�H��27�
�<� ��(��/���L�1�1�1��|�$�Z�0�7�7��>�>�>��	�	��r(c�r�d}d}d}|�r�|dvr�t�|��}|s!tdt|��z��dS|���}|d|d<|d=t|�����D]
}||s||=�t|�����D]\}}t|��||<��n�|dk�rVt�|��}|s!tdt|��z��dS|���}|d|d<|d=|dr�t�t|d����}|���}d	D],}||d
zr||d
z||<||||<||d
z=�-|d�|d|d<|d=t|�����D]
}||s||=�t|�����D]\}}t|��||<�n�|dkr[tjd
|tj
��}|r|�d��}nBtdt||z��z��ntdt|��z��|||fS)Nr%z4cracktypespec: no kindselector pattern found for %s
�kind2rrz4cracktypespec: no charselector pattern found for %s
�charlen�lenkind)rX�kindr$�f2py_lenrhz\s*\(\s*(?P<name>\w+)\s*\)rqz'cracktypespec: no typename found in %s
z'cracktypespec: no selector used for %s
)rnr�r2r�r"rurv�itemsrrro�lenkindpatternr(r�r�r�)	r4r�r�r�rqr}r�r7r1s	         r)r�r�	s;���J��J��H��3&��@�@�@�%�+�+�H�5�5�J��
��K�t�T\�~�~�^�`�`�`���#�-�-�/�/�J�(��1�J�s�O��7�#��*�/�/�+�+�,�,�
&�
&��!�!�}�&�"�1�
���Z�-�-�/�/�0�0�
.�
.���1� *�1�
�
�
�1�
�
�
.�
��
$�
$�%�+�+�H�5�5�J��
��K�t�T\�~�~�^�`�`�`���#�-�-�/�/�J�(��3�J�s�O��9�%��)�$�
A�(�.�.�"�:�i�#8�9�9�;�;��!�+�+�-�-��)�*�*�B��r�C�x�(�8�&-�b�3�h�&7����%,�R�[�J�r�N���S��)�)��:�&�2�-4�Z�-@�J�z�*��9�%��*�/�/�+�+�,�,�
&�
&��!�!�}�&�"�1�
���Z�-�-�/�/�0�0�
.�
.���1� *�1�
�
�
�1�
�
�
.�
��
�
��x� =�x���N�N�H��
5�#�>�>�&�1�1����B��h��1�2�2�4�5�5�5�5�
�>��(�^�^�%�
&�
&�
&��z�8�+�+r(c��|si}|s|Sd|vr|g|d<|S|r|d�|��||dvr|S|dkr&d|dvr|d�|��n�|dkr&d|dvr|d�|��ns|dkr&d|dvr|d�|��nG|dkr&d|dvr|d�|��n|d�|��|S)NrmrJ�	automaticr	r
r)rzr�r|s   r)rwrwEsb�������������� �6��Z�����&��Z�����%�%�%��t�J�������x���K�t�J�/?�?�?��Z�����%�%�%�%�	
��	�	���j�1A�!A�!A��Z�����%�%�%�%�	
��	�	��D��,�,�,����#�#�D�)�)�)��	
��	�	��4�
�+�+�+����#�#�D�)�)�)���Z�����%�%�%��Kr(c��|si}|s|Sd|vr||d<|St|�����D]}|s
||dvr|||d|<� |S)Nrn�rurv�rz�selr|r}s    r)rxrx`s������������T�!�!�"��^����
�#�(�(�*�*�
�
�-�-���	-�A�T�.�1�1�1�&)�!�f�D�� ��#���Kr(c��|si}|s|Sd|vr||d<|St|�����D]}|s
||dvr|||d|<� |S)Nror?r@s    r)ryryns������������T�!�!�"��^����
�#�(�(�*�*�
�
�-�-���	-�A�T�.�1�1�1�&)�!�f�D�� ��#���Kr(�unknownc��d|vr|dS|S)Nrqr')r2rCs  r)�getblocknamerE}s��
�����V�}���Nr(c�R�d|d�d|d�d�adS#t$rYdSwxYw)NzIn: r�r�rqr�)r r�)r2s r)�setmesstextrG�sJ��
�,1�&�M�M�M�5��=�=�=�I������
�
�
����
���s��
&�&c�z�i}d|vrt|d��}d|vr|�|d��|S)N�parent_blockr)�get_usedict�update)r2�usedicts  r)rJrJ�sH���G������e�N�3�4�4����~�~����u�U�|�$�$�$��Nr(c
�6�|�i}t|��}|s|St|�����D]�\}}|���}|tvr*td|�d|�d���d����Lt|}t|��}|s�k|rtd|z��t|�����D]>\}}||vr0tdt|���dt|���d���|||<�?��|S)Nzget_useparameters: no module z info used by rqr�z,get_useparameters: mapping for %s not impl.
z(get_useparameters: overriding parameter z with value from module )
rJrur:r�rr2r�r�ror�)	r2�	param_maprL�usename�mapping�mvarsr�r}r�s	         r)�get_useparametersrR�sV�����	��%� � �G����� ������1�1�������-�-�/�/���-�'�'��G��W�W�e�i�i��/�/�/�/�1�
2�
2�
2���g�&����&�&���	���	Q��C�w�O�P�P�P�������(�(�	�	�D�A�q��I�~�~���59�!�W�W�W�W�d�7�m�m�m�m�M�N�N�N��I�a�L�L�		��r(c�����ts|St|t��r��fd�|D��}|St|��t	��d|d�d�d����t|�����_d|vr[|d}t|�����D]1}||}d|vr#|d}d|vr|d}|�vr�||d<�2��fd	�|d
D��}	|	|d
<|S)Nc�:��g|]}t|�dz������S�r�)�tabrN��
postcrack2)rv�grNrVs  ��r)rxzpostcrack2.<locals>.<listcomp>�s<��������!��t��y�A�A�A���r(�Block: rqr�rr1rnr8c�:��g|]}t|�dz������SrUrW)rv�brNrVs  ��r)rxzpostcrack2.<locals>.<listcomp>�s<���(�(�(���1�#��*�	�B�B�B�(�(�(r(r0)rr�rurGr2rRrv)
r2rVrN�retr1r��varr8�val�new_bodys
 ``       r)rXrX�sW���������%����������������
�������s�s�s�E�&�M�M�M�2�A�6�6�6���%�e�,�,�	����5����V�}���d�i�i�k�k�"�"�	6�	6�A��q�'�C���$�$��>�*���T�>�>��v�,�C��i�'�'�'0��~��V���(�(�(�(�(��v��(�(�(�H��E�&�M��Lr(c��t|t��rjg}g}|D]^}t|��t||dz���}d|vr d|dvr|�|���I|�|���_||zSt|��t|t
��s#d|vrt
dt|��z���d|vr(|ddkst|�d|d�d	�d
��t|��}t|��}t|��|d<t|d��|d<d
|vr|d
r|d
}t|||���|d<g}d|vrF|d}t|�����D]}d|vr|�|���ni}d}	d|vr|d}	d|v�r�|d�r�g}
d|vr|d}
tj|d��}|	r|	dz}nd}||vr d}
d||
fz|vr|
dz}
d||
fz|v�d||
fz}dgi|	dzd�}|dD]�}||
vr�g}d}|dD]}|dz}|ddkrld}
|dD]6}|
dz}
d|vr+|d|krtj|��}|d|
=n�7|r)|ds	|d|=|
|
�|��=n��|d�|����||vr&t#||��s|||d|<��|ds|dr3|
|d<d|gi||dd�}i||<t$�|��|r||d<|S)zi
    TODO:
          function return values
          determine expression types if in argument list
    r��rVrqr�r2z0postcrack: Expected block dictionary instead of r�rZr�rr1�sortvarsr6r0rr
r4r5�__user__routines�unknown__user__routinesrz%s_%ir��_user_interface)r2r0r1rqrr�)r2r0r1rqr5)r�rurG�	postcrackr*r�r�r�r2�analyzeargs�
analyzecommon�analyzevars�sortvarnames�analyzebodyrvr�r[�
isexternalr)r2r6rV�gret�uretrY�
userisdefined�useblockr}rqr5rQ�mnamer�r�r��edefr�r\�bb�mblocks                     r)rgrg�st���%����������	�	�A���N�N�N��!��t��,�,�,�A���{�{�z�Q�v�Y�6�6����A��������A������d�{��������e�T�"�"�$�w�e�';�';��J��E�
�
�#�$�$�	$�
����u�V�}�0C�C�C��3�3�3��f�
�
�
�6��:�:�:�����E��%� � �E���&�&�E�&�M�$�U�6�]�3�3�E�*��
����5��=���V�}����t��5�5�5�E�&�M��M���~�~���<���h�m�m�o�o�&�&�	(�	(�A��Q����$�$�Q�'�'�'��	(���
�D�
�����V�}���e����k� 2���
��5� � ��|�,�J��	�%��-�(�(���	.��-�-�E�E�-�E��M�!�!��A��U�A�J�&�-�7�7���E���U�A�J�&�-�7�7��u�a�j�(�E�)�2���0A�)A�C�C�	��{�#�	4�	4�A��J��������v��"�"�A��A��A���z�[�0�0���"#�F�)�&�&�B� !�A��A�%��|�|��6�
�a���'+�y��}�}��$%�f�I�a�L� %����"�#$�V�9�5�$)�&�M�!�$4� *�:�+;�+;�A�+>�+>� ?�!�E���&�!�(�(��.�.�.�.���:�:�j��q��&:�&:�:�+0��8�I�f�%�a�(���V��	'�	�&� 1�	'�",�E�,��.��9�$&��U�;�EW�Y�Y�F� �H�U�O����v�&�&�&�� ���e���Lr(c�P�g}g}t|�����D]E}d||vr$||dr|�|���0|�|���Ft|��}d}|r�|d}d}|dd�D]}|||dvrd}n�|rH|dd�|gz}|dz}||kr.t	dd�|��zdz��||z}n3n0|�|��|dd�}t|��}d}|��|S)NrtrrzTsortvarnames: failed to compute dependencies because of cyclic dependencies between �, r�)rurvr*rXror�)r1�indep�depr�r�r�r^�ws        r)rkrk5s|���E�
�C�
�$�)�)�+�+�
�
�����t�A�w���4��7�8�#4���J�J�q�M�M�M�M��L�L��O�O�O�O��C���A�	�A�

����F��
���Q�R�R��	�	�A��D��G�H�%�%�%�����&��
	��a�b�b�'�Q�C�-�C��A��A��1�u�u��;��)�)�C�.�.�)�+/�0�1�1�1�������
�L�L��O�O�O��a�b�b�'�C��C���A��A�)��*�Lr(c	�B�t|��s|Sg}t|d�����D�]�}g}|d|D�]�}tjd|tj��}|�rWg}|�d��r?d�t|�d�����d��D��}t|�d���
����}||dvrwd|d|vr>|d|d�d	d
�|��z��n[d	d
�|��zg|d|d<n2|r%dd	d
�|��zgi|d|<ni|d|<||vr|�|��n|}td|�d|�d
���|�|�����||d|<���d|vr||d<n|d|z|d<|S)Nrz2\A\s*\b(?P<name>.*?)\b\s*(\((?P<dims>.*?)\)|)\s*\Z�dimsc�6�g|]}|�����Sr'r�r�s  r)rxz!analyzecommon.<locals>.<listcomp>cs6��S�S�S� !��G�G�I�I�S�S�Sr(r&rqr1rmr&r'z:analyzecommon: failed to extract "<name>[(<dims>)]" from "z
" in common /z/.
�
commonvars)�	hascommonrurvr�r�r�r�r(r)rrr�r*r�ro)r2r~r}�comvarsr�r�r|r�s        r)ririWs����U�������J�
�%��/�&�&�(�(�
)�
)�%�%�����x���#�	�	�A���E�q�"�$�P�P�A��
p����7�7�6�?�?�S�S�S�%3�A�G�G�F�O�O�%D�%D�%J�%J�5�%Q�%Q�S�S�S�D��q�w�w�v���4�4�6�6�7�7����f�
�%�%�!�U�6�]�1�%5�5�5��f�
�a�(��4�;�;�+�s�x�x��~�~�>�@�@�@�@�,�s�x�x��~�~�>�8@��f�
�a�(��4�4��.�&��C�H�H�T�N�N�)K�(L�,N��f�
�a�(�(�,.��f�
�a�(��J�&�&��%�%�a�(�(�(������ij�ij�ij�lm�lm�lm�n�p�p�p��N�N�1�����$��h������5� � �(��l���#�L�1�J�>��l���Lr(c�0�t|��d�|d���D��}g}|dD�]V}||d<|ddvr�|�|d|vr�|d}|d|���vr t�|d��|dtvr�st
r|dt
vr��t
|d	d
���|d<n|}t|||d
z���}|ddvr"|ds|�d��sd|vr��|d�	dd��dkrt�|����|ddkr|dt|d<|�|����X|S)Nc�6�i|]\}}d|vs
d|dv�||��S)rmr	r')rv�key�values   r)�
<dictcomp>zanalyzebody.<locals>.<dictcomp>�sB������C���U�"�"�h�e�J�6G�&G�&G�	�U�&G�&G�&Gr(r1r0rIr2r�rqr6z
      T��as_interface�saved_interfacer�rbr�r�rr�r
�pythonmoduler�)rGr:rvr#r*r$�crack2fortrangenrgr�r�rr)r2r6rV�
maybe_privater0r\�as_s       r)rlrl�s������������-�-�-�/�/����M��D�
�6�]����!��.���W�:�3�3�3���A�f�I�T�$9�$9����i����y�M�.�.�0�0�0�0�� � ��6��+�+�+���y�I�%�%���
�Q�v�Y�i�7�7��#3��>��$6�$6�$6�A�� � ��C��a��#��*�-�-�-���W�:�<�<�<���y�=�!"����!7�!7�=�!��*�*���W�:���c�2�&�&�.�8�8����q�!�!�!�!���z�X�%�%�+,�V�9�
�a��i�(��K�K��N�N�N�N��Kr(c��t|��t}i}d|vr�|d�3d}tdkr%tdt	|d��z��nvt|d�����D]N}|d|�d��dvr|d|||<�7|d|d||<�O||fS)Nrrz6buildimplicitrules: no implicit rules for routine %s.
rqr4)rJr=)rG�defaultimplicitrulesrr2r�rurvr�)r2�
implicitrules�	attrrulesr}s    r)�buildimplicitrulesr��s��������(�M��I��U������$� �M���{�{��M�PT�UZ�[a�Ub�Pc�Pc�c�e�e�e���%�
�+�0�0�2�2�3�3�
D�
D����$�Q�'�+�+�J�7�7�?V�V�V�',�Z�'8��';�M�!�$�$�#(��#4�Q�#7�
�#C�I�a�L�L��)�#�#r(c��t|||��}t|��ttfvr|St	d|z���)z2 Like `eval` but returns only integers and floats zr=%r)r�rhr8r:r�)r�rYr�r�s    r)�myevalr��s=���Q��1�
�
�A��A�w�w�3��,�����
�V�q�\�
"�
"�"r(z\A\b\w+\b\Zc��	tt|ii����}d|dfS#t$rYnwxYwt�|��rdd|fSt|��}|D�]b}t|��|kr�t
jd|zdz|��r�3t
jd|zdztj	��}|�|��}|�r�	|�|��}|rG|�
d���d	d�d
|�
d����}|�|��}|�Gt|ii��}	|�|��}|rG|�
d���d	d�d
|�
d����}|�|��}|�Gt|ii��|	z
}
|�|��}|rG|�
d���d	d�d
|�
d����}|�|��}|�Gt|ii��}|�|��}|rG|�
d���d	d
�d
|�
d����}|�|��}|�Gt|ii��}|
dz|	z|kr|
d
z|	z|kr|
|	|fcSn#t$rYnwxYwn��ddS)a
    Obtain ``a`` and ``b`` when ``e == "a*x+b"``, where ``x`` is a symbol in
    xset.

    >>> getlincoef('2*x + 1', {'x'})
    (2, 1, 'x')
    >>> getlincoef('3*x + x*2 + 2 + 1', {'x'})
    (5, 3, 'x')
    >>> getlincoef('0', {'x'})
    (0, 0, None)
    >>> getlincoef('0*x', {'x'})
    (0, 0, 'x')
    >>> getlincoef('x*x', {'x'})
    (None, None, None)

    This can be tricked by sufficiently complex expressions

    >>> getlincoef('(x - 0.5)*(x - 1.5)*(x - 1)*x + 2*x + 3', {'x'})
    (2.0, 3.0, 'x')
    rNrz\w\s*\([^)]*\b�\b�(?P<before>.*?)\b�\b(?P<after>.*)rr7r8rg�?g�?)NNN)r8r�r��getlincoef_re_1r�rXr��searchr�r�r�)r��xsetr��len_er�r`r�ra�eer\r,�c2s            r)�
getlincoefr��s?��*
���q�"�b�!�!�"�"���!�T�z����
�
�
���
�������Q�����!�Q�w����F�F�E�
�'�'���q�6�6�E�>�>��
�9�&��*�U�2�A�6�6�	���z�.��2�5G�G���N�N���J�J�q�M�M���	�
��Z�Z��]�]���(�����*�*�*�*�A�A�A�r�x�x��/@�/@�/@�B�B����B���B��(��2�r�2�&�&���Z�Z��]�]���(�����*�*�*�*�A�A�A�r�x�x��/@�/@�/@�B�B����B���B��(��2�r�2�&�&��*���Z�Z��]�]���(�����*�*�*�*�C�C�C����'�1B�1B�1B�D�B����B���B��(��2�r�2�&�&���Z�Z��]�]���(�����*�*�*�*�C�C�C����'�1B�1B�1B�D�B����B���B��(��B��B�'�'����G�a�K�1�$�$��S��1���):�):��a��7�N�N�N����
�
�
���
�����E�?	�@�s�"%�
2�2�GJ5�5
K�Kz\b[a-z][\w$]*\bc�
�||vr�||�dg��}d||vrat||��sLt�||d��D]%}||vr||vr||kr|�|���&|dd�D]E}|�|g��pt|||��D]}||vr|�|����Fn!t
dt|��z��g}|||<|S)Nrtrpz,_get_depend_dict: no dependence info for %s
)r��isstring�word_pattern�findallr*�_get_depend_dictr2r�)rqr1�deps�words�wordrzs      r)r�r�	s1���t�|�|��T�
���x��,�,���$�t�*���X�d�4�j�%9�%9��$�,�,�T�$�Z��_�=�=�
'�
'���u�$�$�����$�$�,�,��L�L��&�&�&���!�!�!�H�	$�	$�D��X�X�d�B�'�'�:�'��d�D�9�9�
$�
$���E�>�>��L�L��O�O�O��
$�	$�	�?�4��:�:�N�O�O�O����D��J��Lr(c�x�t|�����}i}|D]}t|||���|Sr,)rurvr�)r1rz�depend_dictr�s    r)�_calc_depend_dictr�-	sF����������E��K�
�/�/����D�+�.�.�.�.��r(c�~���t����g}t������D]"}�|s|�|���|=�#�rWt������D]3\}}�fd�|D��}|s|�|���|=�.|�|<�4��W�fd�|D��S)z
    c���g|]}|�v�|��	Sr'r')rvr�r�s  �r)rxz$get_sorted_names.<locals>.<listcomp>@	s#���:�:�:�Q��k�)9�)9�q�)9�)9�)9r(c���g|]}|�v�|��	Sr'r')rvrqr1s  �r)rxz$get_sorted_names.<locals>.<listcomp>F	s���3�3�3�T�d�d�l�l�D�l�l�lr()r�rurvr*r:)r1rzrq�lst�new_lstr�s`    @r)�get_sorted_namesr�5	s����$�D�)�)�K��E��[�%�%�'�'�(�(�"�"���4� �	"��L�L������D�!��
�,��k�/�/�1�1�2�2�	,�	,�I�D�#�:�:�:�:�#�:�:�:�G��
,����T�"�"�"���%�%�$+��D�!�!��,�4�3�3�3�U�3�3�3�3r(c��|ddvr
|dd�}t�|��rdSt�|��rdSd|zdzS)	Nr�'"rr��zkind(r8)r�r��real8pattern)rcs r)�
_kind_funcr�I	sd��
�a�y�E�����"�������6�"�"���q�	�	�	�F�	#�	#���q��V��c�!�!r(c�f�d|z}|dkrdS|dkrdS|dkrdS|dkrd	S|dd
zkrdSdS)
Nr��rir3lr�lr���rr')r�r�s  r)�_selected_int_kind_funcr�T	sZ��
�a��A��F�{�{��q��G�|�|��q��G�|�|��q��G�|�|��q��A��H�}�}��r�
�2r(c���|dkrdS|dkrdStj�����}|�d��r	|dkrdSn|dkrdS|dkrdSd	S)
N�r�r�r�)�aarch64�arm64�power�ppc�riscv�s390x�sparc�!�r�r)�platform�machiner�r�)�pr��radixr�s    r)�_selected_real_kind_funcr�d	s���	�1�u�u��q��2�v�v��q��� � �&�&�(�(�G����Y�Z�Z����7�7��2��
�r�6�6��2�
�"�W�W��2�
�2r(c
�j	�tj|��}tj|��}dtfdtfdtffD]\}}||vr|||<�g}t	|��D]1}d||vr%d||dvr|�|���2t
jdtj��}t
jdtj��}	t
jdtj��}
|D�]�}d	||v�r{||d	}t||��r#|�
��}d
D]}|j|�}�
|�d|��}|	�d|��}d
}
d||vr]d||dvrMt|��}|�d||ddzd��}t|��|k}
|
s�|
�|��s�|�d��}t|��dkr[d�|dd����
���|d�
��d��}t#||��r�t%|��}t&�|��D]�}t%||���|�����
���dd����||���|����<��d�|��}n(t/||��rt1d|�d���t&�|��rd}nt4�|��rd}	t7|||��||<n?#t8$r2}|||<t1d|�dt;|���d���Yd}~nd}~wwxYwt=||��r3t?||t@��rtC||��||<|�
��}||kr||||<���tE||��t1dt;|��z�����|S)Nr8�selected_int_kind�selected_real_kindrmrz \bkind\s*\(\s*(?P<value>.*)\s*\)z-\bselected_int_kind\s*\(\s*(?P<value>.*)\s*\)z4\bselected_(int|real)_kind\s*\(\s*(?P<value>.*)\s*\)rp))z.false.�False)z.true.�Truez
kind("\1")zselected_int_kind(\1)Frnr�r
rrr$r�zAget_parameters[TODO]: implement evaluation of complex expression r�r�r�zget_parameters: got "z" on z2get_parameters:parameter %s does not have value?!
)#r�r�r�r�r�r*r�r�r��	islogicalr�r��subrXr�r)r��isdoublerur�r�r�r�	iscomplexr2r�r�r�r�r�r�r�r8r�r�)r1�
global_paramsr��g_paramsrq�func�param_namesr��kind_re�selected_int_kind_re�selected_kind_rer��repl�is_replaced�
orig_v_len�v_r�r�r��nls                    r)r�r�w	s���
�Y�}�
%�
%�F��y��'�'�H��
�+�+�-D�E�,�.F�G�K�"�"�
��d��x���!�H�T�N���K�
�d�
#�
#�"�"����a�� � �[�D��G�J�4G�%G�%G����q�!�!�!���j�<�b�d�C�C�G��:�8�"�$�@�@���z�?���G�G��
�IS�IS���$�q�'�>�>��Q����A���a��!�!�
)��G�G�I�I���)�)�D�
"��	�4�(�A�A����M�1�-�-�A�$�(�(�)A�1�E�E�A� �K���a��(�(��T�!�W�^�4�4�4�!$�Q���J��	�	�#��Q���(?��(G�"G��L�L�A�#&�a�&�&�:�"5�K��
Q�'�-�-�a�0�0�Q�������B��2�w�w��{�{��G�G�B�s��s�G�,�,�2�2�4�4�<�<�R��V�\�\�^�^�R�P�P����Q�� � �	
M��!�W�W��&�/�/��2�2�H�H�A�,0��!�'�'�)�)�A�E�E�G�G�+�,�2�2�4�4�<�<�S�#�F�F�-H�-H�B�q�w�w�y�y������(�)�)��G�G�B�K�K����4��7�#�#�
M��L�FG�L�L�L�M�M�M�
�#�#�A�&�&�
�����$�$�Q�'�'�
���
M� ��H�f�5�5��q�	�	���
M�
M�
M���q�	���c�c�c�4��7�7�7�7�K�L�L�L�L�L�L�L�L�����
M������Q�� � �
+�Z��q�	�3�%?�%?�
+���q�	�N�N��q�	������B��Q�w�w�#�A�Y��r�
���$�q�'�N�N�N��E��a���Q�
S�
S�
S�
S��Ms�:O�
P�(P�Pc�.�|dvrdSt||��S)N)z(:)�(*)rr�)�_eval_scalar)�lengthr�s  r)�_eval_lengthr��	s#��
�$�$�$��u����'�'�'r(z\d+_c��t|��r|�d��d}	t|i|��}t|t��rt
nt|��}ni#tttf$r|cYSt$rB}td|�d|�dt|������d���Yd}~nd}~wwxYw|S)Nr�rrz" in evaluating z (available names: r�)
�_is_kind_numberr)r�r�r�r�r�r�r�r�rorurv)r�r�r�s   r)r�r��	s���u���$����C� � ��#��	5��U�B��'�'��8��E�3�/�/�8���S�%�@�@�����{�I�.���������5�5�5����3�3����t�F�K�K�M�M�2�2�2�2�4�	5�	5�	5�	5�	5�	5�	5�	5�����5�����Ls�=A*�*C�	C�8C�Cc�)�@�A�B�t|��t|��\}}tj|d���B|ddkr|d�Bvri�B|d<d|dvr��Bd=d|ddvrv|ddd}t�B��td�|dD����zD]2}d	D]-}||vr't	�B�|i��|���B|<�.�3g}|d
}|D]0}	�B||�|���!#t$rY�-wxYwt�B�	����D]}||vr|�|���t�Bt|����}	i}
tj
d��j}t�B�	����D]�}||��}
|
rr||
���|
����}	|
|�G#t$r-tj
d|ztj��j|
|<Y�}wxYw��|D�] }|d
t|�	����vr%t	�B|||d
���B|<d�B|vr�d�B|vrd�B|dvs�|r�|d
���}t||�	����D]m}|dkr|||dkr�|�B|vr|||�B||<�=|dkr*|||D]}t	�B||���B|<��nn3||d
vr)t'dt)|���d|d�d���d�B|vred�B|dvrU�B|dd}	t+t-|i|	����}n#t.$rYnwxYw|�B|dd<d�B|vred�B|dvrU�B|dd}	t+t-|i|	����}n#t.$rYnwxYw|�B|dd<i}d�B|v�r_�B|d}|���g�B|d<d\}}}}}|D�]}|dd�dkr%|dd����dd�}n�|dd�dkr%|dd����dd�}n�|dd�dkr%|dd����dd�}n|dd �d!kr%|d d����dd�}nL|dd"�d#kr%|d"d����dd�}nt	�B||���B|<|r�d�B|vrg�B|d<d$�t5|���d%��D��D]I}|�d&d��}|�B|dvr!�B|d�|���Jd}|rf|�d'd(��}|�d)d*��}d#�B|vr
|g�B|d#<n!�B|d#�|��d}|��d�B|vrg�B|d<t;d+�t5|���d%��D����D]3}|�B|dvr!�B|d�|���4d}|�wd!�B|vrg�B|d!<d,�t5|���d%��D��D]3}|�B|d!vr!�B|d!�|���4d}��|�rd�B|v�rg�B|d<t;d-�t5|���d%��D����D�]�}|d.krd.nd/}||	vrt+|	|��}|	D]�}tj
d0|zd1ztj��}|�|��}
|
rX|
�d2��t+|	|��z|
�d3��z}|�|��}
|
�X��||kr|g}n#t5|d.���d4��}t?|��d5kr	d/|vrd/g}d/}t?|��dkr|d
|kr
d6|d
g}t?|��d5k�r[tAtBj"j#|��\}}||z
dz} | �$tBj%j&�7��}i}!|dD]�}tCj'|��}"| �(|"��r�	| �)|"��\}}#||#fd8�}$t|�*����}%|%�+|#�*����n:#tX$r-}&d}$t| �*����}%Yd}&~&nd}&~&wwxYwt�Bfd9�|%D����}'|$t|'��f|!|<��|!||<�B|d�|�����d!�B|v�rKd
|v�rF||d
v�r;�B|�dg��}(g})t[t\t^t`���B|��}*tc�B|���r�te�B|d��D�]�\}+}|�|���@�@��n�|*�r��@�3��D�]�\}\},}-�@�Afd:��At��}.�A||.��||(vsd;�B|vs
d�B|vr�B|,��||.vr�d<}/|,tCj'd=|�d>|+�d?�����}0|0�$tBj%j&�7��}0|0�B|d;<|g|-z�B|d<d!�B|vrd=|�d>|+�d@|��g�B|d!<n{dA}/d�B|vrg�B|d<dB�B|dvr!�B|d�dB��|(�|��|)�d=|�d>|+�d@|�����B|�dg��}1dC|1vsdD|1vs|1�|/rdDndC��|1r|1�B|d<����@���@�3��D]�\}\},}-�B|�dg��}'�B|�dg��D]n}2|2�4d��rWd�5|2�����}2|'�6|2dEd��dF�����o|'r%tt|'�����B|d<||'vr|(�|������n�to�B|��r�d�B|vr�d/�B|dvr4tq�B|dd/|	��}3|3�B|dd/<nRd�B|dvrBtq�B|dd|	��}3�B|dd=|3�B|dd/<|)r|)�B|d!<|(r%tt|(�����B|d<d;�B|v�rd�B|vrg�B|d<dC�B|dvr1dD�B|dvr!�B|d�dC��d�B|vr�g�B|d<t|
�3����D]=\}}
|
�B|d;��r!�B|d�|���>�B|ds	�B|d=ts�B|��r%tu�B|d;|	���B|d;<��"t�B�	����D�]}||dk�r�d#�B|vr�B|d#|d#<|ddk�r�dG|vr/|dG�Bvr%tw�B|�B|dG���B|<dH|v�r�|dH}4|4�dId��}5|4|5k}6|5�dJd��}4|4|5k}7txd
�|4��}
|
�rt{|
�dK��|
�d3����\}8}9}}:t}|8|9��\};}<}=|8�B|d<	|dGr|8�B|dGd<n#t.$rYnwxYw|;r;d|;vr,	t-|;di|	��|;d<n#t.$rYnwxYw|;�B|d<|<r|<�B|d<|=r|=�B|dL<|6rt	�B|dI���B|<|7rt	�B|dJ���B|<���t'dMt)|dH��z����|ddNv�rdO|vr$tj|d
|dOz��}>ntj|d
��}>t�B�	����D]@}t[t~t����B|��r|>�|���AdP|vr�|>�6t|dP�	������t|dP�	����D],}|dP|D]}||>vr|>�|����-|ddkr;dG|vr|>�|dG��n|>�|d��|ddQvr'|d}?|?�Bvrd�B|?vr�B|?d|d<|ddRkr4|>�6t�B�	������t�B�	����D]	}||>vr�B|=�
�BS)SNr1r2r�rqr
rmc3�&K�|]}|dV��
dS)rqNr')rvr\s  r)�	<genexpr>zanalyzevars.<locals>.<genexpr>�	s&����$F�$F�1�Q�v�Y�$F�$F�$F�$F�$F�$Fr(r0r�r6z[A-Za-z][\w$]*z.*\b%s\brr4r�	undefinedz"analyzevars: typespec of variable z is not defined in routine z.
rorXrnr8)NNNNNr'rrrr�r
rtr�rsr�rrc�6�g|]}|�����Sr'r�r�s  r)rxzanalyzevars.<locals>.<listcomp>O
s ��U�U�U�A�a�g�g�i�i�U�U�Ur(r&r�z\n\nz

z\n r�c�6�g|]}|�����Sr'r�r�s  r)rxzanalyzevars.<locals>.<listcomp>`
s ��'_�'_�'_�a����	�	�'_�'_�'_r(c�6�g|]}|�����Sr'r�r�s  r)rxzanalyzevars.<locals>.<listcomp>g
s ��T�T�T�A�a�g�g�i�i�T�T�Tr(c�6�g|]}|�����Sr'r�r�s  r)rxzanalyzevars.<locals>.<listcomp>m
s ��#X�#X�#X�!�A�G�G�I�I�#X�#X�#Xr(r�rr�r�rrz@:@r3�1)�languagec��||z
|zSr,r')r*r,r\s   r)�solve_vzanalyzevars.<locals>.solve_v�
s��01�A���{�(:r(c3�8�K�|]}|j�v�|jV��dSr,)r)rvr*r1s  �r)r�zanalyzevars.<locals>.<genexpr>�
s9�����-7�-7�/0�'(�v��~�~�%&�F�'5�~�~�~�-7�-7r(c�����|dgg��dD]'}||vr!|�|���||���(dS)Nr)r��add)r�r��v1�coeffs_and_deps�compute_depss   ��r)r�z!analyzevars.<locals>.compute_deps�
s`���*9�*=�*=�a�$���*L�*L�Q�*O�!?�!?�B�')��~�~�(,�������(4��R��(>�(>�(>��!?�!?r(rpFzshape(rwr8z) == T�inrrr�r'r�r��pure�	recursiver9rqz'analyzevars: prefix (%s) were not used
)r�r�r�r�r~r)r�r�rh)ArGr�r�r rwr�r*�KeyErrorrurvr�rRr�r�r�r�rr�r�r2r�r�r�r��reverser�r(r)r�r{r�rXr�r�Expr�parse�tostring�Languager��	as_symbolr�linear_solve�symbolsrK�RuntimeError�l_or�isintent_in�isintent_inout�isintent_inplace�isarray�	enumerater:r�r��extendr�r��isscalarr�r~rOr�r��isintent_callback�isintent_aux)Cr2r�r��genr�r}�svarsr6r,r��dep_matches�
name_matchr�r��ln0r��dimension_exprsr��dimr
rtrsrrr��tmpr$�starr�r`r�r0�d2�dsize�solver_and_depsr*r\r��all_symbolsr��v_deps�n_deps�n_checks�
n_is_inputr��solverr��all_deps�is_requiredr#�v_attr�aar��pr�pr1�ispure�isrecr4r�r�r�r�rq�
neededvarsrqr�r�r1sC                                                                @@@r)rjrj�	s�����������1�%�8�8��M�9��9�U�6�]�#�#�D��W�~��#�#��f�
�T�(A�(A� ��U�6�]��	�U�6�]�����H���v��r�*�*�*���-��#�J�/�C���Y�Y��$F�$F��f�
�$F�$F�$F�!F�!F�F�
B�
B��.�B�B�A��C�x�x�"-�d�h�h�q�"�o�o�q�"A�"A��Q���B�
�E���=�D�
����	���G�G��L�L��O�O�O�O���	�	�	��D�	����
�$�)�)�+�+�
�
�����D�=�=��L�L��O�O�O��
�D�"3�E�":�":�
;�
;�F��K���-�.�.�4�J�
�$�)�)�+�+�
�
�K�K���J�q�M�M���	K��!�'�'�)�)�A�E�E�G�G�#�$�A�
K��A������
K�
K�
K�!#��K�1�,=�r�t�!D�!D�!J��A����
K����		K��JB�JB���Q�4�4�	���(�(�)�)�)�)�!�$�q�'�9�Q�q�T�?�;�;�D��G��T�!�W�$�$���a��(�(�Z�4��7�:�;N�-N�-N� �1��A�$�*�*�,�,�C�!�-��"4�"9�"9�";�";�<�<�B�B���
�?�?�}�S�/A�!�/D��/S�/S�$��D��G�+�+�)6�s�);�A�)>�D��G�A�J�J��*�_�_�%2�3�%7��%:�B�B��*5�d�1�g�q�*A�*A��Q����B��%��-�'�'��G��Q������v����0�1�1�1��T�!�W�$�$���Q���/�/�/���G�N�+�E�2����D��B��/�/�0�0�A�A�� �����D�����12��Q���'��.��T�!�W�$�$���a���0�0�0���G�N�+�F�3����D��B��/�/�0�0�A�A�� �����D�����23��Q���'��/�����a�� � ���7�:�&�D��L�L�N�N�N�"$�D��G�J��/K�,�C������+
!�+
!���R�a�R�5�K�'�'��Q�R�R�5�;�;�=�=�!�B�$�/�C�C��r��r�U�h�&�&�����e�k�k�m�m�Q�r�T�2�F�F��r��r�U�h�&�&�����e�k�k�m�m�Q�r�T�2�F�F��r��r�U�g�%�%��q�r�r�U�[�[�]�]�A�b�D�1�E�E��r��r�U�f�_�_��a�b�b�E�K�K�M�M�1�R�4�0�D�D�)�$�q�'�1�5�5�D��G��"��t�A�w�.�.�,.��Q���)�U�U���1G�1G�1M�1M�e�1T�1T�U�U�U�:�:���i�i��R�0�0���d�1�g�h�&7�7�7� ��G�H�-�4�4�S�9�9�9��!�F�� ��<�<��&�9�9�D��<�<���5�5�D��T�!�W�,�,�+/�&��Q������Q����.�.�t�4�4�4��D��%��t�A�w�.�.�,.��Q���)�&�'_�'_�>�&�;Q�;Q�;W�;W�X]�;^�;^�'_�'_�'_�`�`�8�8���D��G�H�$5�5�5� ��G�H�-�4�4�Q�7�7�7��!�F��$��d�1�g�-�-�+-��Q���(�T�T���1F�1F�1L�1L�U�1S�1S�T�T�T�7�7���D��G�G�$4�4�4� ��G�G�,�3�3�A�6�6�6�� �E���>
3�{�$�q�'�1�1�')��Q���$�"�#X�#X�~�c�7J�7J�7P�7P�QV�7W�7W�#X�#X�#X�Y�Y�<3�<3�A�"#�s�(�(�3�3��D��F�{�{���q�	�N�N��#�.�.��!�z�*>��*B�EW�*W�Y[�Y]�^�^�� �J�J�q�M�M���.� !���� 1� 1� #�F�1�I���!/�12����1A�1A�!B�A� $�
�
�1�
�
�A� �.��
�D�y�y�"�V���+�A�s�3�3�9�9�%�@�@���2�w�w�!�|�|��r�	�	�!�U�����2�w�w�!�|�|��1���
�
�!�2�a�5�\���2�w�w�!�|�|�!$�X�]�%8�"�!=�!=���B� "�R��!���!�N�N�H�4E�4G�N�H�H��+-��!&�v��K�K�A� (� 2�1� 5� 5�A�$�~�~�a�0�0�K�!G�+0�+=�+=�a�+@�+@�D�A�q�56�!�%;�%;�%;�%;�36�a�i�i�k�k�2B�2B�K�$/�$6�$6�q�y�y�{�{�$C�$C�$C�$C��'3�!G�!G�!G�/3�G�25�e�m�m�o�o�2F�2F�K�K�K�K�K�K�����!G����*-�-7�-7�-7�-7�4?�-7�-7�-7�*7�*7��6=�d�6�l�l�5J��� 2��.=���*���G�K�(�/�/��2�2�2�2��$�q�'�!�!�f��o�o�!�u�V�}�:L�:L�
�!�W�[�[��2�.�.�F��H�0��k�>�.�0�0�04�Q��9�9�J��t�A�w���W
>�%�d�1�g�k�&:�;�;�K1�K1�D�A�q�&5�&9�&9�!�&<�&<�O�&�.��#�:=�2A�1F�1F�1H�1H�6=�6=�-�A�~���?�?�?�?�?�?�
(+�u�u�H�(�L��H�5�5�5�!"�f���$'�4��7�N�N�$,��Q��$7�$7�
!)�%�1�a�x�6G�6G�/4��'-�v�h�.@�$6�Q�$6�$6�!�$6�$6�$6�/8�/8�(9�(9��'+�}�}�-5�->�-@�(5�(B�(B��/3��Q����67�C�$�J��Q��� 1�#*�$�q�'�#9�#9�)B��(A�(A�a�(A�(A�a�(A�(A�8C�D��G�G�$4��/3��#+�4��7�#:�#:�8:�D��G�H�$5�#'�t�A�w�x�/@�#@�#@�$(��G�H�$5�$<�$<�T�$B�$B�$B� &�
�
�a� 0� 0� 0� (���$=�Q�$=�$=�!�$=�$=�!�$=�$=�!?�!?�!?�%)�!�W�[�[��R�%@�%@�F�$.�&�$8�$8�'1�V�';�';� &�
�
�2=�$M�J�J�:�!O�!O�!O�%�=�6<��Q��
� 3��&�2�1@�1F�1F�1H�1H�	1�	1�-�A�~���%)�!�W�[�[��2�%>�%>�F�&*�1�g�k�k�*�b�&A�&A�G�G��#%�=�=��#:�#:�!G�)+��������)<�)<�B�$*�M�M�"�Q�r�T�(�.�.��2E�2E�$F�$F�$F��%�F�48��V���4E�4E��Q��� 1� ���� &�
�
�a� 0� 0� 0���WK1�X�$�q�'�"�"�

>�!�T�!�W�,�,��d�1�g�n�5�5�5�!-�d�1�g�n�.E�c�.J�.4�"6�"6��7=��Q���/��4�4��$�q�'�.�"9�9�9�!-�d�1�g�n�.E�e�.L�.4�"6�"6�� ��G�N�3�E�:�7=��Q���/��4��
,�#+��Q��� ��
6�$(��V���$5�$5��Q���!��$�q�'�>�>���a��(�(�&(��Q��
�#��$�q�'�*�"5�5�5��$�q�'�*�"5�5�5��Q��
�#�*�*�:�6�6�6��t�A�w�&�&�$&��Q���!� ��!2�!2�!4�!4�5�5�4�4�D�A�q��q��a������4��Q���)�0�0��3�3�3���A�w�x�(�*��Q���)���Q�� � �
B�+�D��G�C�L�&�A�A��Q�����
�$�)�)�+�+�
�
�+`�+`����f�
�����a�� � � $�Q�����f�
��W�~��+�+��u�$�$��x��D�)@�)@�(��a��$�u�X��2G�H�H�D��G��u�$�$��x��B��*�*�V�R�0�0�C�"$��)�m�F����[�"�5�5�B�!#�s��]�E�$�Q��-�-�b�1�1�A��`�:H��G�G�F�O�O�Q�W�W�W�-=�-=�;?�;?�7��(�D�%�;H�$�h�<0�<0�8�
�J��.6��Q��
�+�!�$�X��M�DL��U�8�_� 5�j� A���(�!�!�!� �D�!����%�A�%��3�3�!)�9=�(2�6�(:�B��:H�:H�J�v�$6�$6��'0�!)�!)�!)�$(�D�!)����6@�D��G�N�3�%�A�6@�D��G�N�3�#�;�2:�D��G�J�/�!�C�&1�$�q�'�6�&B�&B�D��G� �H�&1�$�q�'�;�&G�&G�D��G���F��e�T\�o�I^�I^�^�`�`�`����>�V�V�V��5� � ���5��=�5��3F�#F�G�G�J�J���5��=�1�1�J��d�i�i�k�k�"�"�	%�	%�A�4�t�%�|�4�4�T�!�W�=�=�
%��!�!�!�$�$�$���e������d�5��>�#6�#6�#8�#8�9�9�:�:�:��%��.�-�-�/�/�0�0�
-�
-���w���*�-�-�A��
�*�*�"�)�)�!�,�,�,��-���>�Z�'�'��5� � ��!�!�%��/�2�2�2�2��!�!�%��-�0�0�0���>�7�7�7���=�D��t�|�|��D��J� 6� 6�"&�t�*�X�"6��h����>�V�#�#����d�4�9�9�;�;�/�/�0�0�0��d�i�i�k�k�"�"�	�	�A��
�"�"���G���Ks��D � 
D-�,D-�H
�
4I�I�O2�2
O?�>O?�Q!�!
Q.�-Q.�5A&i�
j	�&#j	�j	�F=AG�G
AG$�G#AG$�G.AH	�H	
AH�HAHz\A[a-z]+[\w$]*\Zc�(�|}t�|��}|r�t|��\}}t||d|��}d}|D]8}	|	���}	|	t
jt
jzvrd}	||	z}�9|ddkr|dz}n|dz}|}||dvs
||dvr|dz}||dv�||dv�||vrAd	}
|t|
��z|vr|
d	z}
|t|
��z|v�|t|
��z}|r||d|<ns||dvr-||dvr|d||d|<ni|d|<d
|vr8||d
|dzvr%t|d|d��|d|<|S)
Nr1�e_r�rr��_er6r�rr4r5r)
�analyzeargs_re_1r�r�r�r�rc�ascii_lowercase�digitsr�rw)r,r2r6�orig_a�	a_is_exprr�r��at�nar�r}s           r)�	expr2namer5ns���
�F�$�*�*�1�-�-�-�I���#5�e�#<�#<� �
�y�
�q�%��-��
?�
?��
���	�	�A����	�	�A���.���>�>�>����a��B�B�
�b�6�S�=�=��c��B�B��d��B����5��=� � �A��v��$6�$6��C��A��5��=� � �A��v��$6�$6��D�y�y�
���#�a�&�&�j�D� � ��A��A��#�a�&�&�j�D� � �
��A���J���	I���f�
�a����E�&�M�!�!���v��&�&�#(��=��#8��f�
�a� � �#%��f�
�a� ��%���F�e�K�.@�5��CV�.V�$V�$V�*�5��=��+;�Z�H�H�E�&�M�!���Hr(c�H�t|��t|��\}}d|vrg|d<g}|dD](}t|||��}|�|���)||d<d|vrGt	|d�����D]\}}|D]}||dvri|d|<�� |dD]F}|d|vr:d|vrg|d<|d|dvr!|d�|d���Gd|vr!|d|dvri|d|d<|S)Nr6rr1r0rqr4r�)rGr�r5r*rur:)r2r�r�r6r,r}�args1r\s        r)rhrh�s��������)�%�0�0��M�1�
�U�����f�
�
�D�
�6�]�����a���%�%�����A������E�&�M��%����U�7�^�1�1�3�3�4�4�	*�	*�H�A�u��
*�
*���E�&�M�)�)�')�E�&�M�!�$��
*��6�]�5�5���V�9�����%�'�'�%'��k�"���y��k� 2�2�2��k�"�)�)�!�F�)�4�4�4���5���U�8�_�E�&�M�A�A�)+��f�
�e�H�o�&��Lr(z\A\(.+?,.+?\)\Zz\A[+-]?\d+(_(?P<name>\w+)|)\Zz*\A[+-]?[\d.]+[-\d+de.]*(_(?P<name>\w+)|)\Zz
\A\(.*\)\Zz\A(?P<name>\w+)\s*\(.*?\)\s*\Zc��t|t��rddiSt|t��rddiSt|t��rddiSt|t��r|Stt
|�����)Nr4r7r5r�)r�r8r:r�r��AssertionErrorr�)r�s r)�_ensure_exprdictr:�s����!�S���'��I�&�&��!�U���$��F�#�#��!�W���'��I�&�&��!�T������
��a���
!�
!�!r(c���||vrt||��S|���}t�|��rddiSt�|��}|rNd|���vr4|�d��rtdt|��z��ddiSt�|��}|rNd|���vr4|�d��rtdt|��z��ddiSdD]V}d�t||�	���d
|zd
z��D��D]}||vrt||��ccS� �Wi}t�|��rt|dd�||��}n�t�|��}|ri|�d��}t|�d��||��}|rd
|vr|d
=|s%|d|vrt||d��S|ddvrdddid�S|stdt|��z��|S)Nr4r�rqz:determineexprtype: selected kind types not supported (%s)
r7r5)�+r�rr�c�6�g|]}|�����Sr'r�r�s  r)rxz%determineexprtype.<locals>.<listcomp>�s ��Z�Z�Z��!�'�'�)�)�Z�Z�Zr(r!rhrrrmrr�rr)r4roz>determineexprtype: could not determine expressions (%s) type.
)r:r��determineexprtype_re_1r��determineexprtype_re_2r"r�r2r��determineexprtype_re_3r(r)�determineexprtype_re_4r��determineexprtype_re_5)rr1�rulesr��opr�r��rns        r)r�r��s����t�|�|���T�
�+�+�+��:�:�<�<�D��#�#�D�)�)�'��I�&�&��$�$�T�*�*�A��'��Q�[�[�]�]�"�"�q�w�w�v���"��M�PT�UY�PZ�PZ�Z�
\�
\�
\��I�&�&��$�$�T�*�*�A��$��Q�[�[�]�]�"�"�q�w�w�v���"��M�PT�UY�PZ�PZ�Z�
\�
\�
\��F�#�#�"�1�1��Z�Z�^�D��%C�%C�%C�%I�%I�#�PR�(�UX�.�%Y�%Y�Z�Z�Z�	1�	1�A��D�y�y�'��Q��0�0�0�0�0�0�0��	1�	�A��#�#�D�)�)�:��d�1�R�4�j�$��6�6���"�(�(��.�.���	:�������B�!�!�'�'�&�/�/�4��?�?�A��
"�Z�1�_�_��j�M��
:��a�5�E�>�>�+�E�"�Q�%�L�9�9�9��A�w�%���'�#�s��D�D�D��^��M�QU�VZ�Q[�Q[�\�	^�	^�	^��Hr(r�Fc�l�t|��d}t|t��rO|D]J}|r1|ddvr'|dtvr�tr|dtvr�5|t|||���z}�K|Sd}d}d}|d}|dkrdSg}	d|vr|d}d|vrt|d}
|dD]=}t
|||	��}t|
|��s|	�|���>|dd	ks|	rd
d�	|	��z}d}d|vrIt|d�
����D]!}
|�|tz�|
�d
|d|
��}�"|�dg��dd�}|d	krd|vr|�
d��|r'|�|tz�dd�	|���d|��}d}d|vrt|d|tz��}d}d|vrt|d|tz��}|dkrd}d}d|vr0d|dz}|d|	vr|	�|d��t|d|tz|���}t!||d|	|tz|���}
d}d|vr
|sd|dz}d|vr\d}t|d�����D]-\}
}|�|tz�d|
�dd�	|���d�}�.||z}|dkr|dkrd}|�|�|�d
|�|�|�d
|�|�|�|
�|�|�|�d |�d
|��}|S)!Nr
r2r�rqr�r�r6r1r�z(%s)r'rr�r
�callback�intent(z) rrr�r�z result (%s)r0r�z! in %srzentry r7r8r�r�zend )rGr�rur#r$r�r5rr*r�rvrr�r��use2fortran�common2fortran�vars2fortranr:)r2rVr�r]rYr�rqr6�	blocktype�argslr1r,rr}�
intent_lstrrr�r0�mess�entry_stmtsr�s                      r)r�r��sB�������
�C��%������	L�	L�A��
�Q�w�Z�#=�=�=��V�9�	�)�)�����6��)�!;�!;���(��C�l�K�K�K�K�C�C��
�
�F�
�D�
�D��g��I��I����r��E�
�����V�}��
�����V�}���v��	 �	 �A��!�U�E�*�*�A�$�T�!�W�-�-�
 ����Q�������>�Z�'�'�5�'��C�H�H�U�O�O�+�D����U�"�"��e�.�/�4�4�6�6�7�7�	R�	R�A� � �#��-�-����E�:L�4M�a�4P�4P� R������8�R�(�(����+�J��J���:��#;�#;����*�%�%�%��8�,�,�c�G�m�m�m��H�H�Z�0�0�0�0�$�$�8��
�C���~�~��%��,��g�
�6�6��
�F��5�����h���w��?�?���"�"�"���
�F��5����%��/�1����?�%�'�'��L�L��x��)�)�)��E�&�M�3��=�|�T�T�T�D��
�u�V�}�e�S�7�]��O�O�O�D�
�D�
����|���5��=�(���%�������w��-�-�/�/�0�0�	I�	I�D�A�q�(�[�#��-�-�-����C�H�H�Q�K�K�K�K�I�K�K��k�!���L� � �T�^�%;�%;�����V�V�Y�Y�Y���d�d�F�F�F�D�D�:J�:J�C�C�QU�QU�W]�W]�_c�_c�eh�eh�eh�js�js�js�uy�uy�{�C��Jr(c
���d}t|�����D]P}|dkr#|�|�dd�||����}�+|�|�d|�dd�||����}�Q|S)Nr
r�zcommon r'zcommon /z/ )rurvr�)rrVr]r}s    r)rJrJ9s���
�C�
�&�+�+�-�-�
 �
 �L�L����=�=�%(�S�#�#�#�s�x�x��q�	�/B�/B�/B�C�C�C�*-�#�s�s�s�A�A�A�s�x�x��q�	�7J�7J�7J�K�C�C��Jr(c�2�d}t|�����D]�}|�|�d|�d�}||ikr|r|ddkr
|dd�}�1d||vr||drd|z}d||vr�||drtd}t||d�����D]D}|||d|kr|�|�|��}d}�%|�|�|�d	||d|��}d}�E|r|ddkr
|dd�}��|S)
Nr
zuse r'rr�z%s only:r�r�z=>r?)rrVr]r�r�r}s      r)rIrICsa��
�C�
�#�(�(�*�*�
�
����"�s�C�C�C����+���q�6�R�<�<��
�s�2�w�#�~�~��#�2�#�h����S��V����A��v�����$�C��C��F�?�?�s�1�v�e�}�?��A��#�a�&��-�,�,�.�.�/�/�
�
����A��u�
�a�(�(�(�&)�c�1�1�a�a�0�C��A�A�*-�#�q�q�!�!�!�S��V�E�]�1�5E�5E�F�C��A�A��	�3�r�7�c�>�>��c�r�c�(�C���Jr(c��|d}g}|D]J}	t��d|z}||��r|�|���;#t$rY�GwxYw|S)Nr
zisintent_%s)�globalsr*r�)r^r�r]r
rfs     r)�true_intent_listrU[s���

�h�-�C�
�C��#�#��	#��	�	�-�&�0�1�A��q��v�v�
#��
�
�6�"�"�"���	�	�	�	��D�	����
�Js�A�
A�Ac	��	�t|��d}g}|D]!}||dvr|�|���"d|vr;|dD]2}||vr||vr|�|��� td|z���3d|vr|�|d��|s=t	|�����D]}||vr|�|���|D�]}d||vrE||dD]6}||vr0d||vr&|||dvrtd|�d|�d	����7d
|vr�||d
vr�t
||��r	|�|�d|��}|�|�d|��}t||��r	|�|�d
|��}||vrd||vr��d}	|dD]}
||
dkr|
ddkrd}	n�|	r��||vr#t|��td|z����||dkr#|ddks|�
d��r��6d||vrRd||vrd||dvr||vr	|�|�d|��}��it||��td|z�����||d}|dkrd||vr|�d||d�d�}i}d||vr||d}nd||vr||d}d |vr'|d d!vr|�d"|d �d�}nJ|�d |d ��}n<d#|vr&|�d$|d#��}d%|vr|�d&|d%�d�}nd'|z}nd%|vr|�d(|d%�d�}d)}
d||vrUd*�||dD��}|rd+|vrd,|vr|�d,��|r|�d-d.�|����}d.}
d/||vr+|�|
�d0d.�||d/���d�}d.}
d1||vr6t||��}|r|�|
�d2d.�|���d�}d.}
d3||vr+|�|
�d4d.�||d3���d�}d.}
d||vr+|�|
�d5d.�||d���d�}d.}
d6||vr]||d6}||dd7vr4	t|��}d|j�d.|j�d�}n#t"$rYnwxYw|�d8|�d6|��}n|�d8|��}|�|�|��}��|S)9z&
    TODO:
    public sub
    ...
    r
r1r~z7vars2fortran: Confused?!: "%s" is not defined in vars.
r�rtz;vars2fortran: Warning: cross-dependence between variables "z" and "r�r4zintent(callback) z	external z	optional r4rr0rqr2r�rz/vars2fortran: No definition for argument "%s".
r�rmrz-vars2fortran: No typespec for argument "%s".
rhrqr7r8rnror)rr�z*(rXz(len=r8z,kind=z%s)z(kind=r�c��g|]}|dv�|��	S))rr')rvr�s  r)rxz vars2fortran.<locals>.<listcomp>�s,��.�.�.�!���,�,��,�,�,r(z
intent(in)zintent(out)rwr'rz
dimension(r
rHrszcheck(zdepend(rp)r�rz :: )rGr*rorrurvr�
isoptional�showr2r�r�r�rUr�r5�imagr�)r2r1r6rVr�r]�noutr,r$r�r\�vardefr�r�r�r�r�s                 r)rKrKis��������
�C�
�D�
������f�
����K�K��N�N�N���u����|�$�	T�	T�A��D�y�y��D�=�=��K�K��N�N�N���N�QR�R�T�T�T�T��U������E�*�%�&�&�&����d�i�i�k�k�"�"�	�	�A���}�}����A�����
�g,�g,���t�A�w����!�W�X�&�
n�
n����9�9��T�!�W�!4�!4��d�1�g�h�>O�9O�9O��G�gh�gh�gh�jk�jk�jk�l�n�n�n���%���A��{�);�$;�$;� ��a��)�)�
@�36�3����Q�Q�?��'*�s�C�C�C���3�C��$�q�'�"�"�
8�+.�3����Q�Q�7���D�y�y�Z�t�A�w�6�6���D��6�]�
�
����&�	�>�>�a��j�J�&>�&>��D��E���
���D�=�=���J�J�J��F��J�K�K�K����f�
����W�~��+�+�u�y�y��/B�/B�+�
��T�!�W�$�$��T�!�W�$�$��t�A�w�z�7J�)J�)J���9�9�/2�s�C�C�C���;�C����a��M�M�M��D�q�H�I�I�I���a���$���V���
�d�1�g� 5� 5�!'����a���)<�)<�)<�=�F����T�!�W�$�$��A�w�~�.�H�H�
�t�A�w�
&�
&��A�w�~�.�H��(�?�?���}�
�*�*�&,�f�f�h�s�m�m�m�<���$*�F�F�H�S�M�M�:����� � �(.�������@���X�%�%�.4�f�f�h�v�6F�6F�6F�G�F�F�"�f�-�F�F��8�#�#�*0�&�&�(�6�2B�2B�2B�C������a�� � �.�.�t�A�w�z�2�.�.�.�D��
+��� 4� 4��$�9N�9N����M�*�*�*��
�%+�V�V�S�X�X�d�^�^�^�<�����$�q�'�!�!������3�8�8�D��G�K�$8�9�9�9�9�;�F��A��t�A�w���"�4��7�+�+�C��
G�-3�V�Q�Q�Q�����
�
�
�
�F���A��d�1�g���(.�����3�8�8�D��G�G�<L�3M�3M�3M�3M�N�F��A��t�A�w��������3�8�8�D��G�H�$5�6�6�6�6�8�F��A��$�q�'�>�>��Q����A��A�w�z�"�&C�C�C���Q���A�A�%&�V�V�V�Q�V�V�V�4�A�A�� �����D�����&,�f�f�a�a�a���3�F�F�#)�6�6�1�1�-�F��#�s�s�F�F�+����Js�"S�
S�
Sc�|�tdd��t|t��tdd��gat	t
d��}tdd��tD]+}td|j�d�d��t||��}�,tdd��t|��}t|zS)NzReading fortran codes...
rzPost-processing...
z"Applying post-processing hooks...
z  r�zPost-processing (stage 2)...
)
r2r�r<rrgr�post_processing_hooks�__name__�traverserX)�files�postlist�hooks   r)�crackfortranrd�s����(�!�,�,�,��E�9�%�%�%��"�A�&�&�&��K���1��&�&�H��1�1�5�5�5�%�,�,���&�T�]�&�&�&��*�*�*��H�d�+�+����,�a�0�0�0��(�#�#�H���!�!r(c�N�t|��dz}d}dtz}||z|zS)Nr�zE!    -*- f90 -*-
! Note: the context of this file is case sensitive.
z�
! This file was auto-generated with f2py (version:%s).
! See:
! https://web.archive.org/web/20140822061353/http://cens.ioc.ee/projects/f2py2e
)r��f2py_version)r2�pyf�header�footers    r)�
crack2fortranrj
s?���5�
!�
!�D�
(�C��F���	�F�
�C�<�&� � r(c��t|t��o4t|��dko!t|dttf��S)Nr3r)r��tuplerXr8r�)�objs r)�_is_visit_pairrn
s@���s�E�"�"�
/��C���A�
�
/��3�q�6�C��:�.�.�0r(c�8�t|��r9|ddkr|S||||g|�Ri|��}|�t|��sJ�|S|}|\}}nd|f}d}t|t��rLg}t|��D]9\}	}
t	|	|
f|g|�R||gz|d�|��\}}|�|�|���:ndt|t��rMt
��}|���D])\}
}
t	|
|
f|g|�R||gz|d�|��\}}|�|||<�*n|}|�|S||fS)a�Traverse f2py data structure with the following visit function:

    def visit(item, parents, result, *args, **kwargs):
        """

        parents is a list of key-"f2py data structure" pairs from which
        items are taken from.

        result is a f2py data structure that is filled with the
        return value of the visit function.

        item is 2-tuple (index, value) if parents[-1][1] is a list
        item is 2-tuple (key, value) if parents[-1][1] is a dict

        The return value of visit must be None, or of the same kind as
        item, that is, if parents[-1] is a list, the return value must
        be 2-tuple (new_index, new_value), or if parents[-1] is a
        dict, the return value must be 2-tuple (new_key, new_value).

        If new_index or new_value is None, the return value of visit
        is ignored, that is, it will not be added to the result.

        If the return value is None, the content of obj will be
        traversed, otherwise not.
        """
    rrIN)�parentsr�)rnr�rurr`r*r�r:)rm�visitrpr�r6�kwargs�
new_result�parent�
result_keyr[r��	new_index�new_itemr��new_key�	new_values                r)r`r`
s���8�c�����q�6�^�#�#��J��U�3���A�$�A�A�A�&�A�A�
��!�!�*�-�-�-�-�-�������
�C�C������
��#�t�����
�%�c�N�N�	,�	,�L�E�5�"*�E�5�>�5�#K�;?�#K�#K�3:�f�X�3E�28�#K�#K�CI�#K�#K��I�x��$��!�!�(�+�+�+��	,�
�C��	�	�	��V�V�
��)�)�+�+�	0�	0�J�C��!)�3��,��"J�:>�"J�"J�29�V�H�2D�17�"J�"J�BH�"J�"J��G�Y��"�&/�
�7�#��	0��
������z�!�!r(c�b�|d\}}|\}}d�}	|dvr#|dddksJ�|dd}
n+|dkr#|d	ddksJ�|d	d}
nd
}
d
}|
�8|}|
���D] \}}
t|
��r|	||��}�!nd|dkr^|d	dd}
|}|
���D]3\}}
t|
��rtjd|zd
zd|z|��}�4|�'||krt	d|�d|�d|�d|�d�	d��||fSd
S)a�Previously, Fortran character was incorrectly treated as
    character*1. This hook fixes the usage of the corresponding
    variables in `check`, `dimension`, `=`, and `callstatement`
    expressions.

    The usage of `char*` in `callprotoargument` expression can be left
    unchanged because C `character` is C typedef of `char`, although,
    new implementations should use `character*` in the corresponding
    expressions.

    See https://github.com/numpy/numpy/pull/19388 for more information.

    rc�v�tjd|zdz||��}tjd|zdz||��}|S)Nz[*]\s*\br�z\b\s*[\[]\s*0\s*[\]])r�r�)�varnamer�s  r)�	fix_usagez8character_backward_compatibility_hook.<locals>.fix_usagen
sF����{�W�,�u�4�g�u�E�E����u�w��)@�@���'�'���r()rrs���rr1rrpr�N�
callstatementz
(?<![&])\br�r�zcharacter_bc_hook[r�z
]: replaced `z` -> `z`
)r:�ischaracterr�r�r2)�itemrpr�r6rr�
parent_key�parent_valuer�r�r}�	vars_dictryr|�vds              r)�%character_backward_compatibility_hookr�\
s��� '�r�{��J���J�C������+�+�+��r�{�1�~��'�'�'�'��B�K��N�	�	�	�����r�{�1�~��'�'�'�'��B�K��N�	�	��	��I����	�$�?�?�,�,�	:�	:�K�G�R��2���
:�%�I�g�y�9�9�	��	:�

��	�	��B�K��N�6�*�	��	�$�?�?�,�,�	O�	O�K�G�R��2���
O��F�!�G�+�e�3�S�7�]�I�O�O�	��������

�>��>�>�c�>�>�"'�>�>�/8�>�>�>�?@�
B�
B�
B��Y����r(�__main__r�z-quietz-verboser3z-fixz?Use option -f90 before -fix if Fortran 90 code is in fix form.
z-skipemptyendsz--ignore-containsz-f77z-f90r�z-hz-showz-mr�zUnknown option %s
z	OSError: a  Warning: You have specified module name for non Fortran 77 code that
  should not need one (expect if you are scanning F90 code for non
  module blocks but then you should use flag -skipemptyends and also
  be sure that the files do not contain programs without program
  statement).
z Writing fortran code to file %s
rz)r)r)r')rCr,)r
N)Nr
)r
)NN)rr)r�F)r
F)��__doc__r-rcr�r�r�r�r�r��pathlibrr��ImportErrorr
r�auxfuncsr�versionrfr
rrrrrrrrrrr�r!rrr rr>rrr=r%rr$r&rr#r"rr*r2�	_MAXCACHEr�r�rnr}r�rrr{r~r�r�r�r�r�r�r�r�r�r�r�r�r�rYr��beforethisafter�fortrantypesrOr�rLrM�
groupbegins77r��
groupbegins90r��	groupendsrJ�endifsrI�moduleproceduresrUrNr?r@rBrCrFrGrHrArDrErQrTrXrPrRrSrK�Sr:r;r�r-rVr<rWr(rkr~rr�r�r�r�r�r�r�r�r�r�rYr�r�r�rnror;r(rrr�r�rwrxryrErGrJrRrXrgrkrirlr�r�r�r�r�r�r�r�r�r�r�r�r�r�r�rjr.r5rhr>r?r@rArBr:r�r�rJrIrUrKr^rdrjrnr`r�r*r_ra�funcsrf�f2�f3�
showblocklist�argvr�ror�r�r��OSError�detailrbrgr/r'r(r)�<module>r�s���K�K�X�
�
�
�
�
�
�
�����	�	�	�	�	�	�	�	���������
�
�
�
��������������������������������
�����������"��
�	���	��
��
�����
��
�����
���������
�����
�
���
�2��	��	��
����	������	��
���#�#�#�L���������	!�3�3�A�)�6�2�����	�6�6�A�)�9�5�����
����
�
�
�A��e�)�H�Q�K��K��E�	������,�,�,����1�1�1���
�3�R�T�:�:�A�
��"�*�1�2�4�8�8�?���"�*�1�2�4�8�8�?���"�*�1�2�4�8�8�>��:�9�9��8�8�8��3�3�3�>���4'+�!�bD�bD�bD�bD�J��D���r�z��r�<��t�<�<�b�d�D�D�EK�L��"��
�?���4�4�l�Eb�6b�dh�6j�$j�km�ko�q�q���"�*�_�0?�?�@B��F�F�GN�O���B�J��24� 4�57�T�;�;�<C�D��(�
�����r�=�-��>�>���F�F�GN�O���G�H���
�����r�=�-��>�>���F�F�GN�O��7�	�
�R�Z��r�9�i��6�6���>�>�?D�E�
�
 ���r�z��y�&�&�$�7�7���?�?�@G�H��)��#����r�+�-=�t�D�D�b�d�L�L�����"�*��8�8�"�$�@�@�AK�L���2�:�o�18�8�9;��?�?�@K�L���"�*��8�8�"�$�@�@�AK�L���"�*��8�8�"�$�@�@�AK�L���"�*��8�8�"�$�@�@�AK�L����
��4�4�b�d�<�<�=E�F�
�����6�6���>�>�?H�I���2�:��:�:�B�D�B�B�CN�O����
�?�.Q�Q�RT�RV�X�X�Ya�b�
��2�:��@�@�"�$�H�H�IT�U���b�j��0�0�"�$�8�8�9?�@���b�j��0�0�"�$�8�8�9?�@���r�z��2�2�B�D�:�:�;B�C������6�6���>�>�?H�I����
��4�4�b�d�<�<�=E�F�
�
�R�Z��.�.���6�6�7<�=�
��"�*��6�6���>�>�?I�J����
��4�4�b�d�<�<�=E�F�
�%�"�*�_�8M�&M�OQ�OS�VX�VZ�OZ�[�[�]o�o���2�:�9�2�4�A�A�BM�N�����(������A�2�4�H�H��\%�\%�\%�\%�~
�
�
�$
�
�
�
�&
�
�
�
����>��
�K�R�T�S�S�
����%�&(�d�,�,���"�*�r�tv�tx�y�y���"�*�*�+-�4�1�1��!�b�j�@�"�$�H�H����
�;�=�=�
��r�z�H�J�J��$���$A�2�4�H�H��
�
�
���� � � �nD�nD�nD�b���(�(�(�4�b�j�E�r�t�L�L���r�z�I�2�4�Q�Q���r�z�9�2�4�A�A�����2�35�4�9�9���"�*�G�IK�IM�N�N�����"�"�"�JW�W�W�t8,�8,�8,�x����6������������
�
�
��������<����@]�]�]�]�@���D(�(�(�V*�*�*�*�Z$�$�$�&#�#�#�#��"�*�^�R�T�2�2��E�E�E�P�r�z�,�b�d�3�3�����,���4�4�4�("�"�"�
�
�
� ����&(*�[�[�[�[�|(�(�(�
�"�*�W�%�%�+��
�
�
� |�|�|�|�2�:�1�2�4�8�8�� �"
�"
�"
�"
�J���4$���$6���=�=��#���$D�b�d�K�K��#���1�2�4�9�9��#���M�2�4�8�8��#���$E�r�t�L�L��	"�	"�	"�)+�(
�(
�(
�(
�ZH�H�H�H�V��������0���B�B�B�B�P��"�"�"�"!�!�!�0�0�0�"$�D�?"�?"�?"�?"�D9 �9 �9 �x���B�C�C�C��z����E��E�	�A�	
�B�	
�B��M�
�X�a�b�b�\�1�1����7�7��
�q�T�S�[�[��A�A�
�(�]�]��E��G�G�
�*�_�_��G��E�E�
�&�[�[��
[���V�XY�[�[�[��M�"�N�N�
�"�
"�
"��M�M�
�%�
%�
%��N�N�
�&�[�[��I�"�N�N�
�&�[�[��I�#�N��M�M�
�$�Y�Y��B�B�
�'�\�\��M�M�
�$�Y�Y��B�B�
�q�T�S�[�[��G�)�D�D��G�G�3�4�4�4�4�
�
	��B��K�K�
�
	��B��M�M�
�	�
2���Q���
�
�������Q�������
2�
2�
2���0�F�0�0�0�1�1�1�1�1�1�1�1�����
2����
�L�L��O�O�O�O�����}������
	�	�	��|�E�"�"�H�����3�d�d�;�6G�6G�G��K�K�K��m�H�%�%��
�T�+�s�
#�
#�	�q�
�G�G�C�L�L�L�	�	�	�	�	�	�	�	�	�	�	����	�	�	�	�����X������S��P�s6�/�9�9�2b�b0�b+�+b0�6e�e�e

Hacked By AnonymousFox1.0, Coded By AnonymousFox