????

Your IP : 3.144.152.239


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

�

�܋f���&�dZddlmZejZddlZddlZddlZddlm	Z	ddlm
Z
ddlTgd�Zd	Z
gZiaiZid
d�dd�dd�d
d�dd�dd�dd�dd�dd�dd�dd�dd�dd�dd�dd�dd�dd�Zid
d�dd�dd�d
d�dd �dd!�dd"�dd#�dd$�dd%�dd&�dd&�dd'�dd(�dd(�dd�dd)�Ze
r:id
d�dd�dd*�d
d!�dd �dd!�dd"�dd#�dd$�dd%�dd&�d+d,�dd-�d.d/�dd'�dd(�dd(�ddd0��Zid
d1�dd2�dd1�d
d3�dd3�dd4�dd5�dd6�dd7�dd8�dd9�dd:�dd;�dd<�dd<�dd=�dd=�Ze
r:id
d1�dd2�dd>�d
d4�dd?�dd4�dd@�ddA�dd7�ddB�dd9�d+d:�ddC�d.dD�dd;�dd<�ddE�dFd=d0��Zd1d2d4d4d@d7d9d:dGdGdGdHd=dI�
Zddd
dddJ�ddddddddd.dK�	ddddddL�ddddddJ�dd
ddddM�dNdidNd
idNd
idO�aejt*��ZgZdP�Zid
dQ�ddQ�ddR�d
dS�ddS�ddT�ddU�ddV�ddS�ddW�ddX�d+dY�ddX�ddZ�ddZ�dd[�dd\�dd]i�Zd^�Zd_�Zd`�Zdlda�Zdb�Zdc�Z dd�Z!de�Z"df�Z#dg�Z$dh�Z%dmdi�Z&dj�Z'dk�Z(dS)na)

Copyright 1999,2000 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/05/06 10:57:33 $
Pearu Peterson

�)�__version__�N)�markoutercomma)�cb_rules)�*)�getctype�getstrlength�
getarrdims�getpydocsign�
getarrdocsign�getinit�sign2map�routsign2map�modsign2map�cb_sign2map�cb_routsign2map�common_sign2mapT�double�float�long_double�char�int�signed_char�
unsigned_char�short�unsigned_short�long�	long_long�unsigned�
complex_float�complex�complex_double�complex_long_double�string�	character�bytes�
NPY_DOUBLE�	NPY_FLOAT�
NPY_STRING�	NPY_UBYTE�NPY_BYTE�	NPY_SHORT�
NPY_USHORT�NPY_INT�NPY_UINT�NPY_LONG�
NPY_CFLOAT�NPY_CDOUBLE�NPY_CHAR�NPY_LONGDOUBLE�
unsigned_long�	NPY_ULONG�NPY_LONGLONG�unsigned_long_long�
NPY_ULONGLONG)r$r%�d�f�1�b�s�w�i�u�l�L�F�D�c�g�B�h�H�I�q�Q�G�S�N�y)
rrrrrrrrr r"r#r$r%)��4�8�12�16)	rRr<�2rSrT�-1z-2z-4z-8)rRrTrV�24�32)rRr<rWrSrTrR)�real�integerr!�complexkind�logicalzdouble complexzdouble precision�bytec��tjt��a|�#d}tj�|��sdS	td�|����t|��5}t|������ii��}ddd��n#1swxYwY|�
��D]V\}}|���D]}||||���<� ||||���<�W|���D�]U}|tvr
it|<||���D�]#}|||tvr�|t|vr9td|�d|�dt||�d|||�d�	��|||t||<td|�d	|�d
|||�d���t �|||����t%d|�d|�d|||�d
|||�dt't������d�����%��Wtd��dS#t($r}t%d|z��Yd}~dSd}~wwxYw)Nz.f2py_f2cmapzReading f2cmap from {!r} ...
z	Warning: redefinition of {'z':{'z':'z'->'z'}}
z
	Mapping "�(kind=z)" to "z"
z	Ignoring map {'z'}}: 'z
' must be in �
z1Successfully applied user defined f2cmap changes
z;Failed to apply user defined f2cmap changes: %s. Skipping.
)�copy�deepcopy�f2cmap_default�
f2cmap_all�os�path�isfile�outmess�format�open�eval�read�lower�items�keys�c2py_map�
f2cmap_mapped�append�errmess�list�	Exception)�f2cmap_filer;r:�k�d1�k1�msgs       �g/builddir/build/BUILD/cloudlinux-venv-1.0.6/venv/lib64/python3.11/site-packages/numpy/f2py/capi_maps.py�load_f2cmap_filer~�sO����~�.�.�J���$���w�~�~�k�*�*�	��F�T��0�7�7��D�D�E�E�E�
�+�
�
�	/�!��Q�V�V�X�X�^�^�%�%�r�2�.�.�A�	/�	/�	/�	/�	/�	/�	/�	/�	/�	/�	/����	/�	/�	/�	/��W�W�Y�Y�	 �	 �E�A�r��g�g�i�i�
(�
(��!#�B���2�8�8�:�:����Q�4�A�a�g�g�i�i�L�L������	K�	K�A��
�"�"� "�
�1�
���d�i�i�k�k�
K�
K���Q�4��8�x�'�'��Z��]�*�*���WX�WX�WX�Z\�Z\�Z\�^h�ij�^k�ln�^o�^o�^o�qr�st�qu�vx�qy�qy�qy�z�|�|�|�()�!��R��J�q�M�"�%��G��Q�Q����A�a�D��H�H�H�.�/�/�/�!�(�(��1��b��2�2�2�2��G����2�2�2�q��t�B�x�x�x��1��b����4��
�
���3H�3H�3H�3H�J�K�K�K�K�
K�	�D�E�E�E�E�E���T�T�T��J�c�R�	T�	T�	T�	T�	T�	T�	T�	T�	T�����T���s=�1J%�16B3�'J%�3B7�7J%�:B7�;G(J%�%
K�/K�Kz%gz%Lgz%dz%hhuz%hdz%huz%uz%ldz%luz(%g,%g)z	(%Lg,%Lg)z\"%s\"z'%c'c��d}t|��rNd|vr	|d}n|d}||dvrt|d|��Std|z���n�t|��r|St	|��rdSt|��rdSd|v�r�|d���tv�rr|d���}t|}|d	}d
|v�r=d|d
vrS	||d
d}�n>#t$r/td|d�d
d�d
|d
d�d���Y�nwxYwd|d
vr�|dztvrt|dz}	||d
d}n�#t$r�|tvr
t|}	|t|d
d��}n[#t$rNtd|�d|d
d�d|�d|�d|d
d�dtj���d�
��YnwxYwYn&wxYwn!t|��std|z��|S)z
    Determines C type
    �void�result�name�vars�,getctype: function %s has no return value?!
r%r$�typespecrR�kindselectorrzgetctype: "� z" not supported.
�kindraz)" is mapped to C "z" (to override define dict(z = dict(z="<C typespec>")) in z/.f2py_f2cmap file).
z2getctype: No C-type found in "%s", assuming void.
)
�
isfunctionrru�issubroutine�ischaracter_or_characterarray�isstring_or_stringarrayrorf�KeyError�strrg�getcwd�
isexternal)�var�ctype�ar��f2cmaps     r}rr�s��
�E��#���*Q��s�?�?��H�
�A�A��F��A���F�����C��K��N�+�+�+��C�a�G�H�H�H�H�	�c�	�	�!Q���	&�s�	+�	+�Q��{�	 ��	%�	%�Q��x�	�s�	�	�s�:��4�4�6�6�*�D�D��z�?�(�(�*�*���H�%���r�
���S� � ��c�.�)�)�)�N�"�3�~�#6�s�#;�<�E�E���N�N�N��G� ��_�_�_�c�c�c�3�~�3F�s�3K�3K�3K�M�N�N�N�N�N�N�����3�~�.�.�.��f�$�
�2�2�'��6�(9�:�F�
X�"�3�~�#6�v�#>�?�E�E���X�X�X��:�-�-�!+�H�!5��X� &�s�3�~�+>�v�+F�'G�'G� H����#�X�X�X���#+�8�8�S��-@��-H�-H�-H�%�%�%�#+�8�8�S��-@��-H�-H�-H�"�)�+�+�+�+�!W�X�X�X�X�X�X������X������#���	Q��I�C�O�P�P�P��LsI�9D�5E�E�2F� H(�(!G
�	H(�
AH"�H(�!H"�"H(�'H(c�2�tjdd|��}|S)a^Rewrite Fortran expression as f2py supported C expression.

    Due to the lack of a proper expression parser in f2py, this
    function uses a heuristic approach that assumes that Fortran
    arithmetic expressions are valid C arithmetic expressions when
    mapping Fortran function calls to the corresponding C function/CPP
    macros calls.

    z\blen\b�	f2py_slen)�re�sub)�exprs r}�f2cexprr�+s���6�*�k�4�0�0�D��K�c�4�t|��rLd|vr	|d}n|d}||dvrt|d|��Std|z��t|��stdt	|��z��d}d|vr.|d}d|vr	|d}nd	|vrt|d	��}t
jd
|��st
jd|��r0t|��rtdt	|��z��d
}|S)Nr�r�r�z0getstrlength: function %s has no return value?!
z;getstrlength: expected a signature of a string but got: %s
r<�charselectorr�lenz\(\s*(\*|:)\s*\)z(\*|:)zMgetstrlength:intent(hide): expected a string with defined length but got: %s
rX)	�isstringfunctionr	ru�isstring�reprr�r��match�
isintent_hide)r�r�r�s   r}r	r	:sI������M��s�?�?��H�
�A�A��F��A���F������F��A��/�/�/��G�!�K�L�L�L��C�=�=�Z��J�d�SV�i�i�X�	Z�	Z�	Z�

�C����������!�8�8��C�&�C�C�
�a�Z�Z��!�E�(�#�#�C�	�x�#�S�)�)��R�X�i��-E�-E������	��d��S�	�	��
�
�
����Jr�c	���i}t|��r-t|��st|��|d<d|d<d|d<�n�t|��rd|d<d|d<d|d<�n�t|���rtt	j|d��}d�|��|d<	t
t|d����|d<n#t$rYnwxYwd	�|��|d<t
t|����|d<t
t|��d
gz��dd
�|d<tt|����D]�}g}||tvr
||g}n=tD]5}tj
d
|z||��r|�|���6|D]?}t�|��t�|��krd||<n�@��d\|d<}|D]}|dz}|dvrd|d||fz|d<�|dr|ddd
�|d<d\|d<}|dD]�}|dz}|dvrd|d||fz|d<�t!|��r$t#d|z��d|d|dfz|d<�P|r0t%dt
|���dt
|���d�����|dr|ddd
�|d<|S)N�size�0�rankrR�dimsr<�	dimensionr�,���rz	rank*[-1]z.*?\b%s\b.*)rRr��setdims)r�:z(*)z(:)z%s#varname#_Dims[%d]=%s,�	cbsetdimsz?getarrdims:warning: assumed shape array, using 0 instead of %r
rz5getarrdims: If in call-back function: array argument z# must have bounded dimensions: got rb)r��isarrayr	�isscalarrc�joinr�rmrwr��range�depargsr�r�rt�index�isintent_inrjru)	r�r��verbose�ret�dimr@�v�var:s	         r}r
r
Vs���
�C���}�}�55�W�S�\�\�55�"�3�'�'��F����F����F���	�#���15���F����F����F���	����-5��i��K�(�)�)���h�h�s�m�m��F��	��t�C��K�0�0�1�1�C��K�K���	�	�	��D�	�����h�h�s�m�m��F���3�s�8�8�n�n��F����C���B�4��0�0��2��6��K���s�3�x�x���	�	�A��A��1�v�� � ���V�H���!�%�%�B��x��� 3�S��V�<�<�%����������
�
���=�=��$�$�w�}�}�Q�'7�'7�7�7� �C��F��E�8��#���I����	*�	*�A��A��A��0�0�0�!;��	�N�A�q�?*�"*��I����y�>�	1� ��^�C�R�C�0�C�	�N�$���K��!��[�!�	K�	K�A��A��A��0�0�0�#=���$�a��A,�$,��K� � ��S�!�!�
K��Z������#=���$�a��A,�$,��K� � ��
K���x|�}~�x�x�x�x�BF�GH�BI�BI�BI�BI�J�K�K�K���{��	5�"�;�/����4�C����Js�"%C�
C�Cc�V�t|��rOd|vr	|d}n|d}||dvrt||d|��Std|z��dS||}}d}t|��rd}nt	|��rd}|}t|��r%|d	D]}|dd
�dkr|d
d�}n�d}t
|��}	t|��rt||��\}}
d|
z}t|��rat	|��r'|�d
|�dt|	�dt|	�d|��	}n|�d
|�dt|	�|��}|�d
t|	��}�n�t|��r[t	|��r|�d
|�dt|���d|��}n|�d
|�dt|���d|��}|�dt|���d�}�nWt|��r�|d}tt!|����}|�d
|�d|�dt|	�dd�|���d|��}||kr-|�d|�dt|	�dd�|���d�}n�|�d|�dt|	�dd�|���d|�d�
}n�t%|��rod}
|t&vrZt&|t(vrFdt(t&|vr,t(t&|d}
|
|ksd |
z}
nd}
|�d!|
��}|}ntd"|z��||fS)#Nr�r�r�r��rRrRrR�inputz	in/output�intent��out=z, optional\n    Default: %sz : z rank-0 array(�,'�')r�z rank-0 array(string(len=�),'c')z string(len=�)z : string(len=r�z rank-� array('�') with bounds (r�� : rank-z) and z storage�argnamez => %sz : call-back functionz7getpydocsign: Could not resolve docsignature for "%s".
)r�rrur��isintent_inout�isintent_outr�hasinitvaluer
r�rr�c2pycode_mapr�r	r�r�r�r�r��lcb_map�lcb2_map)r�r��af�sig�sigout�opt�out_ary�initr��showinitr�r��uas              r}rr�s����#���	��s�?�?��X��B�B��V��B�
��V������C��K��O�4�4�4��C�b�H�I�I�I��v��Q��C�
�C��3�������	��	�	����
�E��C�����X��	�	�A���!��u�����!�"�"�������D��S�M�M�E��C���9� ��C�����h�-��8����}�}�(L��#���	C�9:���C�C�C��%����9E�e�9L�9L�9L�d�d�T�C�C�%&�A�A�s�s�s�H�U�O�O�T�T�B�C�#�e�e�X�e�_�_�5���	�#���!L��#���	1����3�3�3��S�)�)�)�)�4�4�1�C�C����3�3�3��S�)�)�)�)�4�4�1�C�*/�%�%��c�1B�1B�1B�1B�C���	����L��+����C��H�H�~�~��DE�A�A�s�s�s�D�D�D�DP�HM�EO�EO�EO�DG�H�H�S�M�M�M�M�SW�SW�Y��
��:�:��1�1�d�d�d�L��/�/�/����#�����@�F�F��5�5�$�$�$��U� 3� 3� 3�S�X�X�c�]�]�]�]�A�A�A�G�F�F�	�C���L�
����<�<�G�A�J�(�2�2�y�H�W�UV�Z�DX�7X�7X��'�!�*�%�i�0�B���7�7���]�����-.�Q�Q���3������F��J�	L�	L�	L���;�r�c	��t|��}t|��r%t|��s|�dt|���d�}n�t	|��r"|�dt
|�dt|�d�}n_t|��rP|d}tt|����}|�d|�dt|�d	d
�	|���d�}|S)Nz : rank-0 array(string(len=r�z : rank-0 array(r�r�r�r�r�r�r�r�)
rr�r�r	r�rrr�r�r�r�)r�r�r�r�r�r�s      r}rr�s����S�M�M�E���}�}�N�g�c�l�l�N�;<�1�1�;G��;L�;L�;L�;L�N���	�#���	N�01���8�E�?�?�?�0<�U�0C�0C�0C�F���	����N��+����C��H�H�~�~��?@�q�q�$�$�$�?K�CH�@J�@J�@J�?B�x�x��}�}�}�}�N���Jr�c��t|��rd\}}nd\}}t|���rQ|d}|}t|��st|��r�i}	|d}d|vr4t	|dd����d��\|d<|d	<n@t
|ii��}t|j��t|j	��c|d<|d	<n$#t$rtd
|�d|�d����wxYwt|��rd
|d�d|d	�d�}n\t|��rM|sd\}}|ddkr!d|dd��
dd��z}|ddkr
d|dd�z}||fS)N)z""z''r��=r�rr��@,@�init.r�init.iz2getinit: expected complex number `(r,i)' but got `z' as initial value of �.z
(capi_c.r=z
,capi_c.i=z,capi_c)r�'z"%s"�"z\"z'%s')r�r��	iscomplex�iscomplexarrayr�splitrmr�r[�imagrw�
ValueErrorr��replace)r�r�r�r�r�r�s      r}r
r
�s�����}�}� �#���h�h����h��C���1��3�x�����S�>�>�	1�^�C�0�0�	1��C�

s���H���!�8�8�3A��!�B�$��4!�4!�!&��u���1�C��M�3�x�=�=��Q��B���A�36�q�v�;�;��A�F���0�C��M�3�x�=����
s�
s�
s� �j�im�im�im�op�op�op�q�s�s�s�
s�����s�|�|�
2�
2���M�M�M�3�x�=�=�=�2���
�c�]�]�	1��
,�!+���h��A�w�#�~�~���a��d��!3�!3�C��!?�!?�@���A�w�#�~�~�!�T�!�B�$�Z�0����>�s
�BC�!C8c���t|��st|��r-t|��}|d�d|��}|St	|��st|��rdSdS)Nr��f2py_lenr<)r��
isstringarrayr	�get�ischaracter�ischaracterarray)r��elsizes  r}�
get_elsizer�sw����}�}��
�c�*�*���c�"�"���^�$�(�(��V�<�<���
��3����+�C�0�0���s��3r�c
�F�|}t|��r%|dD]}|dd�dkr|dd�}n�||t|��d�}g}t���D](\}}||��r|�d|z���)|rd�|��|d<nd|d<t
|��rd	|d
<n+|dtvrt|d|d
<nd|d
<t||��\|d
<|d<t|��rWt|��rHt
|��s9t|d
dd����d��\|d<|d<t|��r�||d<|tvr�t||d<tt|d|d<tt|d|d<tt|d|d<tt|d|d<n?||d<t!d|�dt#t������d���t'|��rt)|��|d<t
|��r8t+|t-||����}t/j|d ��}|dt0vr(t0|d|d!<t3|��|d"<t5|���r�gt6�d#�t�d$�t8�d%�t:�d&�t<�d'�t>�d(�t�d)�tAtBtEt�����d*�t&�d+�t�d,�tF�d-�tH�d.�tJ�d/�tAtLtEtJ�����d0�t�d1�tN�d1�tP�d2�}	g}
tSd3tU|	��d4��D]1}|	||��r|
�|	|dz���2t'|��r!|
�d5|�d6|d����t
|��rCd7�tWd8�|d |����}|
�d9|z��t|��r(d:|�d;|d�d<d7�|
����|d=<n0d:|d�d>|�d?|d�d<d7�|
����|d=<tC|��r+|dtXvrd:|�d?tX|d��|d@<t'|��rdA|�dB|�dC�|d@<t|��rdD|z|d@<|dtXvr5dE|�d?tX|d��|dF<dGtX|dz|dH<t'|��rdI|�dB|�dC�|dF<t[||��\|dJ<|dK<t]|��r|dL|dL<|S)Mz�
    varname,ctype,atype
    init,init.r,init.i,pytype
    vardebuginfo,vardebugshowvalue,varshowvalue
    varrformat

    intent
    r�Nr�r�)�varname�
outvarnamer�zF2PY_%s�|�F2PY_INTENT_INrP�
varrformatr��Or�r�rr�r�r�r��	cbnamekey�cbname�
maxnofargs�
nofoptargs�docstr�cbdocstr�latexdocstr�
cblatexdocstrzsign2map: Confused: external z is not in lcb_mapz.
�lengthr��atyper�r��output�inoutput�required�optional�hiddenzcomplex scalar�scalarr$�arrayz
complex arrayzstring arrayzcomplex function�function�callback�	auxiliaryr�zslen(z)=r�c��|�d|��S)Nr��)�xrQs  r}�<lambda>zsign2map.<locals>.<lambda>ns��A�A�A�q�q�!1�r�zdims(%s)�debug-capi:z=>r��vardebuginfor�r��vardebugshowvalue�debug-capi:slen(�)=%d �=\"%s\"zdebug-capi:%s=%%pz#name#:�varshowvalue�%s�showvalueformatz#name#:slen(�	pydocsign�pydocsignout�note)/r�r�
isintent_dictrprtr�r��c2buildvalue_mapr
r�r�rr�r�r�r�rurvrqr�r	�
dictappendr
rc�
c2capi_mapr��	debugcapir�r��
isrequired�
isoptionalr��l_andr��l_notr�r��iscomplexfunctionr��isintent_callback�isintent_auxr�r��map�cformat_mapr�hasnote)
r�r�r�ryr��intent_flagsr;r>r��il�rlr@�ddims
             r}rr s��
�E��C�����X��	�	�A���!��u�����!�"�"�������u�x��}�}�
E�
E�C��L��#�#�%�%�/�/���1��1�S�6�6�	/����	�A�
�.�.�.���)�����.�.��H�
�
�(��H�
��s�|�|� ���L���	�W��)�	)�	)�,�S��\�:��L�����L��#*�1�c�?�?� �C��K��Z���C���,�Y�s�^�^�,�G�C�L�L�,�'5���K��"���(�(�$�u�U�|�|�	%��H�
�s�8�}��#���*���K����<�<�#�A�J�C��M� (���� 4�\� B�C��� (���� 4�\� B�C���&�w�q�z�2�8�<�C�
�O�#+�G�A�J�#7�
�#F�C�� � ��C��M��G����4������'�'�'�'�)�
*�
*�
*���}�}�*�$�S�)�)��H�
��s�|�|�*���j��C�0�0�1�1���i��K�(�)�)��
�7�|�z�!�!�!�#�g�,�/��G��"�3����H�
���~�~�&A��k��7��L��(����(��*4��6@����$��&3��5=����*���H�e�I�.�.�/�/�	�2:�	�
��
!��
#*��
,3���
�.�
�0=�
�?M�
� ��"4���J��&7� 8� 8�9�9��<F����%�� ��",����(������q�#�b�'�'�1�%�%�	%�	%�A��r�!�u�S�z�z�
%��	�	�"�Q��U�)�$�$�$���C�=�=�	:��I�I�I�q�q�q�#�h�-�-�8�9�9�9��3�<�<�	)��8�8��1�1�3�{�3C�S�I�I�K�K�D��I�I�j�4�'�(�(�(��c�?�?�	@�	@����3�x�=�=�=�#�(�(�2�,�,�,�#0�C����	@�
�G����a�a�a��Z����#�(�(�2�,�,�,�#@�C����C�=�=�	2��7�|�{�*�*�*��A�A�{�3�w�<�0�0�,2��'�(��C�=�=�	�	����1�1�1�(�C�#�$��c�?�?�	A�':�a�'@�C�#�$�
�7�|�{�"�"�"�01���;�s�7�|�3L�3L�M��N��!%��S��\�)B�!C������}�}�J�J�DE�A�A�q�q�q�I��N��,8��C�,@�,@�)�C���c�.�)��s�|�|�"��&�k��F���Jr�c
�`�|d}t|��}||�dd��|���|���t	|��t	d|z��||���t|��pdt
|��pdt|��pdd�}d|vrd|d<nd|d<d|vrd	|d
<nd
|d
<iad|vr�|d�	��D]�}|tjvr�tj|D]{}|d}d
|d|vrQ|d|d
�	��D]*}|d|d
||dkr|}n�+|dt|<�|��n;d|vr7|dr/td|d�dt|d���d���t|t��pd|d<t|���r�d|vr	|d}n|d}||d<t!||��\|d<|d<t#|d|��|d<t%|��r)|d|d|d<dg|d|d<|dt&vrt&|d|d<n*d|d<tdt|d��z��t)|��rF|dt*vrd |�d!t*|d��|d"<t-|��rd#|�d$|�d%�|d"<t-|��rTt/|d|��|d&<|d&d'kr*td(t|d��z��d)|d&<t1|��r|d|d<dg|d<|S)*zV
    name,NAME,begintitle,endtitle
    rname,ctype,rformat
    routdebugshowvalue
    r��_�\_�	end of %srR)r��texname�
name_lower�NAME�
begintitle�endtitle�fortranname�FORTRANNAME�
callstatement�usercode�	usercode1�	F_FUNC_US�F_FUNC�F_WRAPPEDFUNC_US�
F_WRAPPEDFUNC�userr&r�	externalsz!routsign2map: Confused: function z has externals z but no "use" statement.
�callprotoargumentr��rnamerrr�r�r�
resultnote�See elsewhere.�rformatr�z.routsign2map: no c2buildvalue key for type %s
rr��routdebugshowvaluerrr�rlengthrXzzroutsign2map: expected explicit specification of the length of the string returned by the fortran function %s; taking 10.
�10)�getfortrannamer�ro�upper�gentitle�getcallstatement�getusercode�getusercode1r�rqr�cb_maprur��getcallprotoargumentr�rr�
hasresultnoterrr'r�r	r()	�routr��fnamer�rA�un�lnryr�s	         r}rr�s7����<�D��4� � �E���l�l�3��.�.�������:�:�<�<�!�$�����d� 2�3�3���+�+�-�-�,�T�2�2�8�b�"�4�(�(�.�B�$�T�*�*�0�b�
�
�C��e�|�|�#��H�
�
� ��H�
�
�d�{�{�1��O���.��O���G���}�}��e��!�!�#�#�		(�		(�A��H�O�#�#�"�/�!�,�(�(�B��A��B���U��A��.�.�!%�e��Q���!6�!;�!;�!=�!=�&�&�A�#�E�{�1�~�e�4�Q�7�2�a�5�@�@�%&�� %�� A�#%�Q�%�G�B�K�K��		(�
��	�	��k�!2�	�����K�K�K��d�;�/�0�0�0�0�2�	3�	3�	3�3�D�'�B�B�H�b�C����$���&��t����X��A�A��V��A���G��0<�Q��0E�0E�-��K��#�n�-���V��Q��0�0��G������	9� $�V��Q��� 7�C���'7�&8�D��L��O�F�#��w�<�+�+�+�-�c�'�l�;�C�	�N�N� �C�	�N��E��#�g�,�'�'�)�
*�
*�
*��T�?�?�	��7�|�{�*�*�*��A�A�{�3�w�<�0�0�-2��(�)���%�%�
�
��A�A�q�q�q�-��(�)��D�!�!�	&�)�$�v�,�q�/�:�:�C�	�N��9�~��%�%��V���f��&�&�(�)�)�)�!%��I���t�}�}�*��6�l��F��(�)��V���Jr�c��t|��r?|d|d���|d�dd��d�}n>|d|d���|d�dd��d�}t|��pg|d<t	|��r|d|d<t|��pd|d	<t
|��pd|d
<|dr!t|dd��pd|d
<nd|d
<t|��pd|d<d|vr|d|d<d|vr|d|d<|S)z
    modulename
    r�r.r/)�
f90modulename�
F90MODULENAME�texf90modulename)�
modulename�
MODULENAME�
texmodulename�restdocrrRr9r:�bodyr�interface_usercode�pymethoddef�coutput�f2py_wrapper_output)�ismodulerJr��
getrestdocr(rMrN�getpymethoddef)�mr�s  r}rr�sp����{�{�?� !�&�	� !�&�	��� 1� 1�#$�V�9�#4�#4�S�%�#@�#@�B�B����v�Y��v�Y�_�_�.�.� !�&�	� 1� 1�#�u� =� =�?�?�� ��]�]�(�b�C�	�N��q�z�z� ���i��F��!�!�n�n�*��C�
�O�#�A���,�"�C�����y�'�$/��&�	�!��$=�$=�$C��� �!�!�$&�� �!�'��*�*�0�b�C�
���A�~�~��9���I����!�!�%&�'<�%=��!�"��Jr�c���d|i}|d|d<t|��|d<|dtvr(t|d|d<t|��|d<|dtvrdt|dz|d<t	|��rt|t
||����}t||��\|d<|d	<t|��r|d
|d
<dg|d
<|S)Nr��	varname_ir�r�r�rrrrrrD)	rrr�r'r�rr
rr()r�r�r�r�s    r}rr�s����a�.�C��9�~�C����C�=�=�C��L�
�7�|�z�!�!�!�#�g�,�/��G��"�3����H�
�
�7�|�{�"�"�!%��S��\�)B�!C�����s�|�|�2���j��C�0�0�1�1��,8��C�,@�,@�)�C���c�.�)��s�|�|�)��&�k��F��'�(��F���Jr�c��d|d�d|��dd�}t|��rSd|dvrd}nd}|�d	|d����d
|d����d�|d<d
|d<n|d|d<d|d<|d|d<t|d��|d<td|dz��|d<t	|��|d<d|d<|ddkrd|d<n|d|d<|ddkrt|��rd|d<nd|d<|dtvrdt|dz|d<t|��rt|��|d<t|��r�d|vr	|d}n|d}t|d|��r)|d|d|d<d g|d|d<||d!<t||��\|d"<|d#<t|��rd$|d<n t|��r|d|d<d g|d<d%}d%}d&|vrYd|vrU|d&D]L}|d|}ttt��|��r|d'z}t|��r|d'z}�Mt!|��|d(<t!|��|d)<t|��r$t|��rd|vr|d|d*<d g|d<|S)+z\
    name,begintitle,endtitle,argname
    ctype,rctype,maxnofargs,nofoptargs,returncptr
    �cb_r��_in_rR)r��
returncptrr.r;r<�(r�r��callbackname�extern�staticr�r4r0r5r�r��rctyper$z3
#ifdef F2PY_CB_RETURNCOMPLEX
return_value=
#endif
rlz
return_value=rr�	strlengthr�r�rrDrBrrz8
#ifdef F2PY_CB_RETURNCOMPLEX
#ctype#
#else
void
#endif
r�argsrr�r��routnote)r$rorJrKrr#r'r�r	r�r(r�l_orr�r�r r�)rR�umr�r<r��nofargsr�r�s        r}rr
sx���
%)��L�L�L�"�"�5����C�����
!��$�v�,��� �F�F��F�!'���!%�f��!3�!3�!5�!5�!5�!5�!%�f��!3�!3�!5�!5�!5�!5�#��N��
!��H�
�
�!�&�k��N�� ��H�
��&�\�C�	�N� ��V��-�-�C����{�S��[�8�9�9�C�
�O��D�>�>�C��L��C��M�
�7�|�x�����H�
�
��G���H�
�
�8�}�����T�"�"�	0�!�C����!0�C���
�7�|�{�"�"�!%��S��\�)B�!C��������.�'��-�-��K���$���.��t����X��A�A��V��A��4��<��?�#�#�	9��v�,�q�/�&�1�C��K�'7�&8�D��L��O�F�#���G��0<�Q��0E�0E�-��K��#�n�-��T�"�"�	��C��M���4�=�=�	.��v�,�C��K�,�-�D��L��G��J�
��~�~�&�D�.�.��f��	0�	0�A��v�,�q�/�C�0�t�K��0�0��5�5�
0�!�A�+���c�?�?�0�!+�a��J���W�
�
�C����Z�(�(�C����t�}�}�*��D�)�)�*�h�$�.>�.>��v�,��J��(�)��V���Jr�c�P�|t|��d�}t|��rd|d<|dtvr(t|d|d<t|��|d<|dtvrdt|dz|d<t|��rt
|t||����}n&t|��rt|��|d<d	|d
<t||��\|d<|d<t|��r|d
|d
<dg|d
<t||��|d<|S)N)r�r�rr�r�r�rrr�r<r�rrrrD�	arrdocstr)
rr�rr�r'r�rr
r�r	rr(r)r�r�r�s   r}rr\s5���(�3�-�-�
0�
0�C��S������G��
�7�|�z�!�!�!�#�g�,�/��G��"�3����H�
�
�7�|�{�"�"�!%��S��\�)B�!C�����s�|�|����j��C�0�0�1�1���	�#����"�3�'�'��F����F��,8��C�,@�,@�)�C���c�.�)��s�|�|�)��&�k��F��'�(��F��$�Q��,�,�C����Jr�)r)N))�__doc__rRr�version�f2py_versionrcr�rg�crackfortranrr�auxfuncs�__all__�
using_newcorer�r�r�rrrr�rrfrdrersr~r'rr�r	r
rrr
r�rrrrrrrr�r}�<module>r�s������������"������	�	�	�	�	�	�	�	�(�(�(�(�(�(�������
���������
�
��
��
���H�g���W���7��
�E��
�5�	�

�U��
�U�
�
�e��
�5��
�E��
���
���
�Y��
�i��
"�9��
�h�� 
��!��$'�h��'��{�'��\�'��l�'��{�	'�
�Z�'��{�
'���'��Y�'��*�'��j�'��:�'��|�'��
�'�$�]�'���'� �:�!'�
�(�-�-�(�L�-��;�-��!1�-��*�-�"�;�	-�
 ��-��;�
-�#�L�-���-��j�-��*�-�"�;�-��~�-�'��-�"�<�-�#�M�-� (��!-�")�+�%-�-�-�J�(��#������s������s�	�
 �����
�!�#���s���C������S�� ���!�#��&�s���#�� �S�!��&�&�&�H�c�&��S�&�!�3�&��C�&�$�S�	&�
"�3�&��S�
&�%�c�&��3�&���&��C�&�$�S�&� ��&�)�#�&�$�S�&�%�c�&� *�3�!&�""�!$�%&�&�&�L�,"� ��#&� ���!$�%(�&)�+.�!�!$�&�&��#��x�*�-�A�A�#�-�g�$�;� /�7G� *�2F�H�H�.�O� 0�8M� 5�7�7�#2��#3�;P�$9�;�;�$�&�w�U�*�,�,�!#�%5� 6�#%�x�.��6�l�!��
�&���z�*�*���
�*T�*T�*T�X�x�������e���t���d�	�
�����
� ����d���4���u������E���	�� ���%�k�� ��!�"�F�#���.0�0�0�f������8:�:�:�:�zG�G�G�T���$ � � �F���g�g�g�TN�N�N�b���:����$O�O�O�d����r�