Team Ai
Datasetpublic

codekingpro/portable-devtools

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

2z�j�(���SrSSKrSSKJr SSKJrJrJrJrJ	r	J3r4JrJrJ
r
JrJrJrJr SSjrSrSSjrSS	jrS5rg)
a;6 7Rules for building C/API module with f2py2e.8 9Copyright 1999 -- 2011 Pearu Peterson all rights reserved.10Copyright 2011 -- present NumPy Developers.11Permission to use, modify, and distribute this software is given under the12terms of the NumPy License.13 14NO WARRANTY IS EXPRESSED OR IMPLIED.  USE AT YOUR OWN RISK.15�N�)�isoc_kindmap)
�getfortranname�16isexternal�17isfunction�isfunction_wrap�isintent_in�isintent_out�islogicalfunction�ismoduleroutine�isscalar�issubroutine�issubroutine_wrap�outmess�showc��UcUnX;a[U5 [SUS35 gSX;a[X5 [SUS35 gXSnUS:XaSX;a
USXSS	3n0nSnS18X;a19XS20nSnOSX;a	XSnS
nSU;aEU(aUSS;aUS3nOhUSUSUSS	3nOYUSS;aUSUSS	3nODUSUS3nO9S
U;a"USUS
3nSU;aUSUSS	3nOUS	3nOSU;aUSUSS	3nUSU3nSX;aUSSRXS5S	3nU$)Nz,var2fixfortran: No definition for argument "z".21��typespecz*var2fixfortran: No typespec for argument "�type�typename�(�)�kindselector�kind�charselector�len�*)r�:�(*)z(len=*)�=)rrz*(z(len=z,kind=z(kind=� �	dimension�,)rr�join)�vars�a�fa�f90mode�vardef�selector�lks       �ZD:\code\apps\devtools\python\user_packages\Python313\site-packages\numpy/f2py/func2subr.py�var2fixfortranr- s���	�z�
���}��T�22��>�q�c��F�G����� ��T�W�
��<�Q�C�t�D�E��
�W�Z�
 �F�
���J�$�'�1��8�1�T�W�Z�0�1��3���H�	�B���� ��7�>�*��
��	�4�7�	"��7�>�*��
��23�h�����}� 1�1�"�8�7�+��"�8�1�R�D��(�3�-���:��
�c�]�j�
(��x�r�(�3�-���2�F��x�q��#���0�F�	�(�	��8�5��%�� 1�2���X���x�v�h�v�&6�%7�q�9�F��x�q�\�F�	�8�	��8�6�(�6�"2�!3�1�5���x�q���
�F��d�g���8�1�S�X�X�d�g�k�&:�;�<�A�>���M�c��SnUSR5H0nURS05RS5nU[;dM0 g U$)NFr%rrT)�values�getr)�rout�useisoc�value�24kind_values    r,�useiso_c_bindingr6NsK���G��f��$�$�&���Y�Y�~�r�2�6�6�v�>�25���%��'��Nr.c	���[U5(de/nUSnUSHmnUSUn[URS/55HCupgUS:XdM
SUSU3nSS/S	.n	S26USUS3U	S
'URU5 X�U'X�SU'ME Mo USR	U5 [U5n27S/nU4SjnUSn
[
U5n[U5nU
S3nUU;aX=UU'U/USSS-nO	U/US-n[X=SU5nUSSS:Xa:U(a	SUSS-nOSUSS-nX=SnURSS5S:XaSUS'URSU5nSn[U5nSRU5nU(aqURU
S3S5nUVs/sH
nUU
:wdMUPM nnUUS'U"SUSSU
SUS35 U(dU"S USS!U35 U(aU"S"5 OHU"S#U
SUS35 U(aU"S"5 U28(d#U"S$U35 URSS5S%-U-nU29(aQUS&RS'5H9nUR5RS 5(dM)S(U;dM1U"U5 M; USSn/nUH3n[X45(dMU"S$U35 URU5 M5 UH@nUU;aM[!X45(dMU"[X4US)95 URU5 MB UH@nUU;aM[#X45(dMU"[X4US)95 URU5 MB UHnUU;aMU"[X4US)95 M U"U5 UbU"U5 U30(a1U(aO)U"S*5 U"US&R55 U"S+5 SRUVs/sHoDU;dM31UPM sn5nU(d3[%U5(aU"US,US-US.35 OU"US/US-US35 U(aU"S0USSU
35 US2$U"S15 US2$s snfs snf)3Nr%�argsr"r�f2py_�_d�integer�hide�r�intent�shape(�, rr rc��USSU3US'g�Nrz32      ���line�rets  r,�add�createfuncwrapper.<locals>.addj�����F�8�8�D�6�*��A�r.�name�f2pywraprz33@@@NAME@@@�
z
character*(*)zcharacter(len=10)zcharacter*10rrr�10�subroutine f2pywrap_�34modulename�_� (�use �	, only : �use iso_c_binding�subroutine f2pywrap�	external r!�saved_interface�35�__user__�r(�	interface�
end interfacez = .not.(.not.rz))z = �end subroutine f2pywrap_�endr)r�	enumerater1�append�extend�boolrrr-�replacer6r$�split�lstrip�36startswithrr
r	r)r2�	signature�37extra_argsr%r&�v�i�d�dn�dv�need_interfacerFrGrJ�fortrannamer(�newnamer8�l_tmpl�38charselect�l1�rlr3�sargs�argrE�dumped_argss                           r,�createfuncwrapperrxVs����d������J���<�D�
�&�\����L��O���a�e�e�K��4�5�D�A��C�x��Q�C�r�!��%��"+��x�@��"�1�#�R��s�!�,��3���!�!�"�%��R��$&�+��q�!�6��	��L���39�#��*�%�N�
�$�C��+���<�D� ��&�K��d�#�G���h��G��d���40��W�
��y�4��<���+�+���y�4��<�'��
�D��g�
>�F�
�c�r�{�o�%��(�6�"�#�;�6�F�#�f�R�S�k�1�F��Z��/�41��>�>�#�r�"�e�+�"�J�s�O�	����g�	.�B�	
�B��t�$�G��I�I�d�O�E���
�
���b�k�2�.��#�3�t��s�d�{��t��3���V���"�4��#5�"6�a��v�R��w�a�H�I���$�t�L�)�*�)�K�=�A�B���#�$���!�$��r�%���2�3���#�$���)�K�=�)�*�����b�1�C�7�+�E�B���*�+�1�1�$�7�D��{�{�}�'�'��/�/�J�d�4J��D�	�8����8�D��K�
���d�g����)�A�3�� ����q�!���������D�G�����t��8�9����q�!���������t�w�����t��8�9����q�!���������N�4�G�4�5��42��G�	�~��B����������&�'�.�.�0�1��� ��I�I�$�>�$�Q�:�*=�q�$�>�?�E���T�"�"��7�)�>�+��a��w�b�A�B��7�)�3�{�m�1�U�G�1�5�6���&�t�L�'9�&:�!�D�6�B�C��q�6�M�	�E�43��q�6�M��G4��p?s�44Q�)Q�	Q�'Qc	�|�[U5(de/nUSnUSHmnUSUn[URS/55HCupgUS:XdM
SUSU3nSS/S	.n	S45USUS3U	S
'URU5 X�U'X�SU'ME Mo USR	U5 [U5n46S/nU4SjnUSn
[
U5n[U5nUSn[U5nSRU5nU(a=U"SUSSU
SUS35 U(aU"S5 U(dU"SUSSU35 O0U"SU
SUS35 U(aU"S5 U47(dU"SU35 U48(aQUSRS5H9nUR5RS5(dM)SU;dM1U"U5 M; /nUH3n[X45(dMU"SU35 URU5 M5 UH@nUU;aM[X45(dMU"[X4US95 URU5 MB UHnUU;aMU"[X4US95 M U49(agU(aO_U"S5 USRS5H7nUR5RS5(aSU;aM/U"U5 M9 U"S5 SRUVs/sHoDU;dM50UPM sn5nU(dU"S US!US35 U(aU"S"USSU
35 US$$U"S#5 US$$s snf)%Nr%r8r"rr9r:r;r<r=r?r@rr rc��USSU3US'grBrCrDs  r,rG�createsubrwrapper.<locals>.add�rIr.rJrNrOrPrQrTrRrSrUrVrWrXrYrZr[r\zcall rr]r^r)rr_r1r`rarbrrr6r$rdrerfrr
r-)r2rgrhr%r&rirjrkrlrmrnrFrGrJror(r8r3rurErws                     r,�createsubrwrapperr|�si���������J���<�D�
�&�\����L��O���a�e�e�K��4�5�D�A��C�x��Q�C�r�!��%��"+��x�@��"�1�#�R��s�!�,��3���!�!�"�%��R��$&�+��q�!�6��	��L���51�#��*�%�N�
�$�C��+���<�D� ��&�K��d�#�G���<�D��t�$�G��I�I�d�O�E���"�4��#5�"6�a��v�R��w�a�H�I���#�$���$�t�L�)�*�)�K�=�A�B���!�$��r�%���2�3���#�$���)�K�=�)�*���*�+�1�1�$�7�D��{�{�}�'�'��/�/�J�d�4J��D�	�8��K�
���d�g����)�A�3�� ����q�!���������D�G�����t��8�9����q�!���������N�4�G�4�5��52�������.�/�5�5�d�;���;�;�=�+�+�F�3�3�53�d�8J���D�	�<�
�� ��I�I�$�>�$�Q�:�*=�q�$�>�?�E���e�K�=��%���*�+���&�t�L�'9�&:�!�D�6�B�C��q�6�M�	�E�54��q�6�M��?s�	L9�,L9c��[U5(a�[U5nUSn[SU<SU<S35 [R"U5nUnUnSU;aUSnUSUUSU'USUn[	U5(deSU;a/US'USRS5 S	nUSHnUR
S555(dMSn O U(aUSRS56U35 U/US-USSS&U[U54$[U5(aG[U5nUSn[S
U<SU<S35 [R"U5nU[U54$US4$)NrJz)		Creating wrapper for Fortran function "z"("z")...57�resultr%r>�outrzout=rr8z+		Creating wrapper for Fortran subroutine "r)58rrr�copyr59r`rfrxrr|)r2rorJ�fname�rname�fvar�flagrjs        r,�assubrr�(st���t���$�T�*���F�|����+��	 ��y�y���������t����N�E�"&�v�,�u�"5�D��L����F�|�E�"���D�!�!��t�#�!#��X����N�!�!�%�(��D��(�^���<�<��'�'��D��$���X��%�%��U�G�n�5� �'�D��L�0��V��Q���&�t�,�,�,�����$�T�*���F�|�����&�	'��y�y�����&�t�,�,�,���8�Or.)NN)r)�__doc__r��	_isocbindr�auxfuncsrrrrr	r60rrr
rrrrr-r6rxr|r�rCr.r,�<module>r�sD��61��#�����",�\�x�vT�n!r.
codekingpro/portable-devtools · Team Ai