codekingpro/portable-devtools

1�

2z�j5��x�SrS
SK
Jr \RrS
SK
JrJr S
SKJrJ	r	J3r4JrJrJ
r
 S
SKJr S	Sj
rSrg)5a5
6Build common block mechanism for f2py2e.7 8Copyright 1999 -- 2011 Pearu Peterson all rights reserved.9Copyright 2011 -- present NumPy Developers.10Permission to use, modify, and distribute this software is given under the11terms of the NumPy License12 13NO WARRANTY IS EXPRESSED OR IMPLIED.  USE AT YOUR OWN RISK.14�
)
�__version__)�	capi_maps�	func2subr)�getuseblocks�hasbody�	hascommon�hasnote�
isintent_hide�outmess)
�	rmbadnamec�
�/n[
U5
(aHUS
R5H0up4UVs0sHoUUSU_M
 nnURX4U45
 M2 O+[U5
(aUSHnU[	US5-nM U
(a?/n/n	UH3n15U16SU	;
dMU	RU17S5
 URU185
 M5 U$U$s snf)N�common�vars�body�)r�items�appendr�findcommonblocks)�block�top�ret�key�value�
v�vars_�
b�tret�names�
ts           �]D:\code\apps\devtools\python\user_packages\Python313\site-packages\numpy/f2py/common_rules.pyrrs���19�C�������/�/�/�1�J�C�27�8�%�Q��f�
�a�(�(�%�E�8��J�J��E�*�+�2�20�����v��A��(��A�.�.�C��21������A���t�5� ����Q�q�T�"����A������J��9s�Cc
�	�//S
/
S.n
S/
nU4
Sj
nS/
nU4
Sj
nS/
nU4
Sj
nS/
nU4
Sj
n	[
U5
GHYup�nU22R5n
//p�UH:n[UU5
(aURU5
 M)URU5
 M< U(a7[	SU23<
S	S24RU5
<
SS25RU5
<
S35
 O#[	SU26<
S	S27RU5
<
S35
 U"S
U28S35
 [
U5
HnU"SU35
 M U"S5
 UH nU"[R"UU55
 M" U29S:XaU"SS30RU5
35
 OU"SU31SS32RU5
35
 U"SS33RU5
S35
 U"S5
 U"SU34-5
 /nUH�n[R"UU5
n[R"UU5
n[RUn[R"UUU5nUS(aURSUSS35
 OURS5
 USR5nU(dSnU"SU<
SUS<
SU<
S U<
S!U<
S"35
 M� U"S#5
 [U5
nS35RUVs/sHnS$U-PM36 sn5
nU"S%U37<
SU<
S&35
 U"S'5
 UHnU"S(U38S)US*35
 M U"S+5
 S,U
;aS-nOS.nU"S/U<
S0U
<
S1U39R!5<
S2S40RS3/
[#U5
-5
<
S43	5
 U"S5U41-5
 U"S6U<
S0U
<
S1U42R!5<
S7U43<
S83	5
 U"S95
 U"S:U44S;U45S835
 U"S<5
 U"S=U46S>35
 U"S?5
 U47R%S,S@5nU	"SAU-5
 U	"SB5
 UHtnU	"SC[R&"UUU5-5
 [)UU5
(dM;UUSDn[+U[,5(aSRU5
nU	"SEU35
 Mv U	"SF5
 U
SGRSHU48SS49R[/SIUU55
SJ35
 GM\ XASK'XaSL'USMU
SN'[#U
SG5
SO::aSU
SG'XSM4$s snf)PNz"COMMON blocks:\n")�commonhooks�initcommonhooks�docs�c��U
S
SU3U
S
'g)Nrz50      ���line�
ss  r �fadd�buildhooks.<locals>.fadd-s���A�$��x��v�&�
�!��c��U
S
SU3U
S
'g�Nr�
51r'r(s  r �cadd�buildhooks.<locals>.cadd1����A�$��r�$�� �
�!�r-c��U
S
SU3U
S
'gr/r'r(s  r �iadd�buildhooks.<locals>.iadd5r3r-c��U
S
SU3U
S
'gr/r'r(s  r �dadd�buildhooks.<locals>.dadd9r3r-z)		Constructing COMMON block support for "z	"...52		  �
,z
53		  Hidden: r0zsubroutine f2pyinitz(setupfunc)zuse zexternal setupfunc�_BLNK_zcommon zcommon /z/ zcall setupfunc(�
)zend54z'static FortranDataDef f2py_%s_def[] = {�dims�
(z-1z	{"z",�rankz,{{z}},z, z},z55	{NULL}56};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	,F2PYINITz57)(void(*)(zchar*z));z static void f2py_init_%s(void) {�
	z
)(f2py_setup_z);z}58z 	tmp = PyFortranObject_New(f2py_z_def,f2py_init_z	if (tmp == NULL) return NULL;z 	if (F2PyDict_SetItemString(d, "z", tmp) == -1) return NULL;z	Py_DECREF(tmp);z\_z&\subsection{Common block \texttt{%s}}59z\begin{description}z\item[]{{}\verb@%s@{}}�notez--- z\end{description}r$z"	/c�60�X
-$)
Nr')r�
ds  r �<lambda>�buildhooks.<locals>.<lambda>�s��a�er-z\n"r"r#r�latexdocr)r�lowerr61rr�joinrr�var2fixfortranr�getctype�62get_elsize�63c2capi_map�64getarrdims�stripr�upper�len�replace�
getarrdocsignr	�65isinstance�list�map)�
mr�fwrapr+�chooksr1�ihooksr5�docr8�name�vnamesr�66lower_name�hnames�inames�
n�usename�idims�ct�elsize�at�dm�dms�inames1r*�inames1_tpsrD�tnamerFs                              r �67buildhooksrp(s�����)�*�
,�C�
�D�E��
'��T�F��
!��T�F��
!�
�$�C��
!� 0�� 3���t��Z�Z�\�68��R���A��T�!�W�%�%��
�
�a� ��
�
�a� �	�69���c�h�h�v�&�����(8�
:�

;�
��c�h�h�v�&�
(�

)��"�4�&��
4�5�#�A��G��4��y�!�"�'��
!�"��A���)�)�$�
�2�3���8���7�3�8�8�F�+�,�-�.��8�D�6��C�H�H�V�$4�#5�6�7���s�x�x��/�0�
�
2�3��W�
��
6�$�
?�@����A��#�#�D��G�,�B��)�)�$�q�'�2�F��%�%�b�)�B��%�%�a��a��1�B��&�z����q��F���A�.�/����R� ��V�*�"�"�$�C������r�&�z�3��F�
4�

5��	
�^���F�#���h�h�g�>�g���1��g�>�?���$��
D�E��
���A��7�4�&� 6�q�c��;�<���S�	��*�� �F��F���70�D�J�J�L����'��S��\�1�2�4�	5�	
�
/�$�
6�7���71�D�J�J�L�$�
8�
	9��U���0���o�d�V�2�
N�O��
.�/��0���6Q�
R�S��
 �!����S�%�(���
8�E�
B�C��
#�$��A��+��)�)�!�T�!�W�5�
7�

8��t�A�w����A�w�v����d�D�)�)��9�9�T�?�D��t�D�6�]�#��	
�
!�"��F�����D�6��C�H�H�S�);�V�U�%K�L�M�U�S�
	U
�[!4�^ �
��#����!�f�C�72�O�73�3�v�;��1����F���a��=���Q
 ?s�1S74N)
r)�__doc__r%r�version�f2py_versionrr�auxfuncsrrrr	r75r�crackfortranrrrpr'r-r �<module>rv
s1�


�	
�
��"�"��"�W�W�#�
�(g

r-