| Server IP : 209.209.40.120 / Your IP : 216.73.217.112 Web Server : Microsoft-IIS/10.0 System : Windows NT NEWWWW 10.0 build 17763 (Windows Server 2019) i586 User : NEWWWW$ ( 0) PHP Version : 8.3.30 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/Python312/Lib/site-packages/numpy/f2py/__pycache__/ |
Upload File : |
�
�g� � �~ � d Z ddlmZ ej ZddlmZmZmZm Z m
Z
m Z ddlm Z ddlm
Z
ddlmZ d
d�Zd� Zy ) a5
Build common block mechanism for f2py2e.
Copyright 1999 -- 2011 Pearu Peterson all rights reserved.
Copyright 2011 -- present NumPy Developers.
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.
� )� __version__)�hasbody� hascommon�hasnote�
isintent_hide�outmess� getuseblocks)� capi_maps)� func2subr)� rmbadnamec �v � g }t | � rF| d j � D ]/ \ }}|D �ci c] }|| d | ��
}}|j |||f� �1 n$t | � r| d D ] }|t |d� z }� |r:g }g } |D ]/ }
|
d | vs� | j |
d � |j |
� �1 |S |S c c}w )N�common�vars�body� )r �items�appendr �findcommonblocks) �block�top�ret�key�value�v�vars_�b�tret�names�ts �9C:\Python312\Lib\site-packages\numpy/f2py/common_rules.pyr r s� � �
�C���� ��/�/�/�1� ,�J�C��27�8�Q�Q��f�
�a�(�(�8�E�8� �J�J��U�E�*� +� ,�
�� ��v� � /�A��(��A�.�.�C� /�
������ �A���t�5� �� � �Q�q�T�"�� � �A�� � � � �J�� 9s �B6c �� � g g dgd�}dg}|fd�}dg}|fd�}dg}|fd�}dg}|fd�} t | � D �] \ }
} } |
j � }
g g }}| D ]3 }t | | � r|j |� �#|j |� �5 |r4t d|
�d d
j |� �d d
j |� �d �� n!t d|
�d d
j |� �d �� |d
|
z � t
| � D ]
} |d|� �� � |d� | D ] } |t j | |� � � |
dk( r |dd
j | � z � n |d|
�dd
j | � ��� |dd
j |� z � |d� |d|
z � g }|D ]� }t j | | � }t j | | � }t j | }t j || | � }|d r|j d|d z � n|j d� |d j � }|sd} |d|�d|d �d |�d |�d |�d � � �� |d!� t |� }d
j |D �cg c] }d"|z �� c}� } |d#|
�d$|�d%�� |d&� |D ] } |d'|
�d(|�d)�� � |d*� d+|
v rd,}nd-} |d.|�d/|
�d0|
j! � �d1d
j d2gt# |� z � �d3� � |d4|
z � |d5|�d/|
�d0|
j! � �d6|
�d7� � |d8� |d9|
�d:|
�d7�� |d;� |d<|
z � |d=� |
j% d+d>� } | d?| z � | d@� |D ]g } | dAt j& || | � z � t) | | � s�4| | dB } t+ | t, � rd j | � } | dC| z � �i | dD� |dE j dF|
�dd
j t/ dG� ||� � �dH�� �� ||dI< ||dJ< |dK |dL< t# |dE � dMk rd|dE< ||dK fS c c}w )NNz"COMMON blocks:\n")� commonhooks�initcommonhooks�docs� c � � |d �d| ��|d< y )Nr z
� ��line�ss r �faddzbuildhooks.<locals>.fadd/ s � �!"�1��t�,��!�� c � � |d �d| ��|d< y �Nr �
r' r( s r �caddzbuildhooks.<locals>.cadd3 � � � �Q�4��&��!�r, c � � |d �d| ��|d< y r. r' r( s r �iaddzbuildhooks.<locals>.iadd7 r1 r, c � � |d �d| ��|d< y r. r' r( s r �daddzbuildhooks.<locals>.dadd; r1 r, z) Constructing COMMON block support for "z "...
�,z
Hidden: r/ z subroutine f2pyinit%s(setupfunc)zuse zexternal setupfunc�_BLNK_z common %szcommon /z/ zcall setupfunc(%s)zend
z'static FortranDataDef f2py_%s_def[] = {�dimsz(%s)z-1z {"z",�rankz,{{z}},z, z},z
{NULL}
};zchar *zstatic void f2py_setup_�(z) {z int i_f2py=0;z f2py_z_def[i_f2py++].data = �;�}�_� F_FUNC_US�F_FUNCz extern void z (f2pyinitz ,F2PYINITz
)(void(*)(zchar*z));z static void f2py_init_%s(void) {� z
)(f2py_setup_z);z}
z tmp = PyFortranObject_New(f2py_z_def,f2py_init_z if (tmp == NULL) return NULL;z= if (F2PyDict_SetItemString(d, "%s", tmp) == -1) return NULL;z Py_DECREF(tmp);z\_z&\subsection{Common block \texttt{%s}}
z\begin{description}z\item[]{{}\verb@%s@{}}�notez--- %sz\end{description}r$ z" /c � � | |z S )Nr' )r �ds r �<lambda>z buildhooks.<locals>.<lambda>� s
� ��A�� r, z\n"r" r# r �latexdocr )r �lowerr r r �joinr r �var2fixfortranr
�getctype�
get_elsize�
c2capi_map�
getarrdims�stripr �upper�len�replace�
getarrdocsignr �
isinstance�list�map) �mr �fwrapr+ �chooksr0 �ihooksr3 �docr5 �name�vnamesr �
lower_name�hnames�inames�n�usename�idims�ct�elsize�at�dm�dms�inames1r* � inames1_tpsr? �tnamerA s r �
buildhooksrj * s� � � ��)�*� ,�C�
�D�E�� -��T�F�� '��T�F�� '�
�$�C�� '� 0�� 3� OY� ��v�t��Z�Z�\�
��R���� !�A� �T�!�W�%��
�
�a� ��
�
�a� � !�
� ��c�h�h�v�&�����(8�:�
;�
��c�h�h�v�&�(�
)� �
/�$�
6�7�#�A�� #�G� �4��y�!� "� #� �
!�"�� 4�A� ��)�)�$��2� 3� 4� �8� � ������ 0�1� 2� �T�3�8�8�F�+;�<� =� �
!�S�X�X�f�%5�
6�7� �W�
� �
6�$�
?�@����
5�A��#�#�D��G�,�B� �)�)�$�q�'�2�F��%�%�b�)�B��%�%�a��a��1�B��&�z�� � �V�r�&�z� 2�3�� � �R� ��V�*�"�"�$�C���� ��r�&�z�3��F�4�
5�
5�
�^� ��F�#���h�h�g� >���1� � >�?� � �$� �
D�E� �
� �� C�A� ��q�A� B� C� �S� � �*� � �F� �F� ��
�D�J�J�L����'��S��\�1�2�4� 5�
�
/�$�
6�7� ��
�D�J�J�L�$�8� 9� �U� � ��t�
T�U� �
.�/� �
O��� � �
�!�� � �S�%�(�� �
8�E�
B�C� �
#�$�� (�A� �+��)�)�!�T�!�W�5�7�
8��t�A�w� ��A�w�v��� �d�D�)� �9�9�T�?�D��X��&�'� (�
�
!�"� �F� ��� $�c�h�h�s�3E�v�u�/U�&V� W� Y�]OY�` �C�
�� #�C����!�f�C�
�O�
�3�v�;��1� ���F� � ��a��=���S ?s � Q1
N)r )�__doc__r% r �version� f2py_version�auxfuncsr r r r r r r
r � crackfortranr r rj r' r, r �<module>rp s: �� � ��"�"� �� � � � #��(hr,