403Webshell
Server IP : 46.101.140.223  /  Your IP : 216.73.217.61
Web Server : nginx/1.22.1
System : Linux debian-s-1vcpu-1gb-fra1-01 6.1.0-49-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.174-1 (2026-05-26) x86_64
User : deploy-others ( 1001)
PHP Version : 8.2.33
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : OFF
Directory :  /usr/lib/python3/dist-packages/numpy/f2py/__pycache__/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/lib/python3/dist-packages/numpy/f2py/__pycache__/func2subr.cpython-311.pyc
�

���c�$��l�dZddlZddlmZmZmZmZmZmZm	Z	m
Z
mZmZm
Z
mZmZd	d�Zd
d�Zd
d�Zd�ZdS)aW

Rules for building C/API module with f2py2e.

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: 2004/11/26 11:13:06 $
Pearu Peterson

�N�)
�getfortranname�
isexternal�
isfunction�isfunction_wrap�isintent_in�isintent_out�islogicalfunction�ismoduleroutine�isscalar�issubroutine�issubroutine_wrap�outmess�showc��|�|}||vr#t|��td|z��dSd||vr)t||��td|z��dS||d}|dkrd||vr|�d||d�d�}i}d}d	||vr||d	}d
}nd||vr||d}d}d
|vrK|r"|d
dvrd|z}nu|�d|�d|d
�d�}nc|d
dvr|�d|d
�d�}nJ|�d
|d
��}n<d|vr&|�d|d��}d
|vr|�d|d
�d�}nd|z}nd
|vr|�d|d
�d�}|�d|��}d||vr'|�dd�||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       �6/usr/lib/python3/dist-packages/numpy/f2py/func2subr.py�var2fixfortranr,sN��	�z�
����}�}��T�
�
�
��D�q�H�I�I�I��r���a�� � ��T�!�W�
�
�
��B�Q�F�G�G�G��r�
�!�W�Z�
 �F�
����J�$�q�'�1�1�#�V�V�T�!�W�Z�%8�%8�%8�9���H�	�B���a�� � ���7�>�*��
���	�4��7�	"�	"���7�>�*��
��
�h����		;���}� 1�1�1�$��/���(.������H�S�M�M�M�B�����}�
�*�*�&,�f�f�h�s�m�m�m�<���$*�F�F�H�S�M�M�:����H���$*�F�F�H�U�O�O�<�F���!�!�*0�&�&�(�6�2B�2B�2B�C����&�)���
�x�
�
�&,�f�f�h�v�.>�.>�.>�?�F������
#�F��d�1�g���#�V�V�S�X�X�d�1�g�k�.B�%C�%C�%C�%C�D���M�c	�	��t|��sJ�g�|d}|dD]�}|d|}t|�dg����D]V\}}|dkrKd|�d|��}tddg�	��}d
|�d|�d�|d
<��|��|||<||d|<�W��|d����t
���}	dg}
|
fd�}|d}t|��}
t|��}d|z}||vr ||||<|g|ddd�z}n|g|dz}t||d|��}|dd�dkrJ|rd|dd�z}n
d|dd�z}||d}|�dd��dkrd|d<|�
d|��}d}d�|��}|r5|d|d�d|�d|�d���|s|d |d�d!|
����n>|d"|�d|�d���|	s*|d#|
z��|�
dd��d$z|
z}|	rT|d%�d&��D]8}|�
���d ��rd'|vr||���9|dd�}g}|D]:}t||��r#|d#|z��|�|���;|D]L}||vr�t!||��r0|t|||�(����|�|���M|D]L}||vr�t#||��r0|t|||�(����|�|���M|D]"}||vr�|t|||�(�����#||��|�||��|	r<|rn9|d)��||d%�
����|d*��d��fd+�|D����}|s8t%|��r||�d,|
�d-|�d.���n||�d/|
�d-|�d���|r|d0|d�d|����n|d1��|
d2S)3Nr$�argsr!r�f2py_�_d�integer�hide�r�intent�shape(�, rrrc�&�|d�d|��|d<dS�Nrz
      ���line�rets  r+�addzcreatefuncwrapper.<locals>.add^���#&�q�6�6�6�4�4�0��A���r-�namez
%sf2pywraprz
@@@NAME@@@�
z
character*(*)zcharacter(len=10)zcharacter*10rrr�10�subroutine f2pywrap_�
modulename�_� (�use �	, only : �subroutine f2pywrap�external %sr �saved_interface�
�__user__�r'�	interface�
end interfacec���g|]}|�v�|��	Sr:r:��.0r%�
extra_argss  �r+�
<listcomp>z%createfuncwrapper.<locals>.<listcomp>��#���>�>�>�Q�!�:�*=�*=�q�*=�*=�*=r-z = .not.(.not.rz))z = �end subroutine f2pywrap_�endr)r�	enumerate�get�dict�append�extend�boolrrr,�replacer#�split�lstrip�
startswithrrrr
)�rout�	signaturer$r%�v�i�d�dn�dv�need_interfacer=r>r@�fortrannamer'�newnamer/�l_tmpl�
charselect�l1�rl�sargsr<�dumped_argsrTs                        @r+�createfuncwrapperrsJs����d�������J���<�D�
�&�\�	'�	'����L��O���a�e�e�K��4�4�5�5�	'�	'�D�A�q��C�x�x�x�&'�a�a���+���9�f�X�>�>�>���-.�Q�Q����2��3���!�!�"�%�%�%���R��$&��+��q�!��	'�	��L���
�#�#�#��*�%�%�N�
�$�C��1�1�1�1���<�D� ��&�&�K��d�#�#�G��d�#�G��d����T�
��W�
��y�4��<����+�+����y�4��<�'��
�D�$��g�
>�
>�F�
�c�r�c�{�o�%�%��	2�(�6�"�#�#�;�6�F�F�#�f�R�S�S�k�1�F��$�Z��/�
��>�>�#�r�"�"�e�+�+�"�J�s�O�	����g�	.�	.�B�	
�B��I�I�d�O�O�E��	F����
�,�
�
�
����u�u�u�
.�	/�	/�	/��	I��C�C�t�L�'9�'9�'9�;�;�G�H�H�H�����D�D�D�%�%�%�8�9�9�9��	F��C�
��-�.�.�.�����b�1�1�C�7�+�E�B����*�+�1�1�$�7�7�	�	�D��{�{�}�}�'�'��/�/�
�J�d�4J�4J���D�	�	�	������8�D��K�
�"�"���d�1�g���	"��C�
��#�$�$�$����q�!�!�!��
�"�"��������D��G���	"��C��t�Q��8�8�8�9�9�9����q�!�!�!��
�"�"��������t�A�w���	"��C��t�Q��8�8�8�9�9�9����q�!�!�!��
�6�6���������N�4��G�4�4�4�5�5�5�5��C��G�G�G�	�~���B�����!��	!���C������C��&�'�.�.�0�0�1�1�1��C�� � � ��I�I�>�>�>�>�$�>�>�>�?�?�E��?��T�"�"�	?��C�W�W�W�k�k�k�5�5�5�I�J�J�J�J��C����+�+�+�u�u�u�=�>�>�>������t�L�/A�/A�/A�4�4�H�I�I�I�I���E�
�
�
��q�6�Mr-c	���t|��sJ�g�|d}|dD]�}|d|}t|�dg����D]V\}}|dkrKd|�d|��}tddg�	��}d
|�d|�d�|d
<��|��|||<||d|<�W��|d����t
���}	dg}
|
fd�}|d}t|��}
t|��}|d}d�	|��}|r5|d|d�d|�d|�d���|s|d|d�d|
����n"|d|�d|�d���|	s|d|
z��|	rT|d�
d��D]8}|����d��rd|vr||���9g}|D]:}t||��r#|d|z��|�|���;|D]L}||vr�t||��r0|t|||�����|�|���M|D]"}||vr�|t|||������#|	rn|rnk|d��|d�
d��D]9}|����d��rd|vr�.||���:|d��d�	�fd�|D����}|s|d |
�d!|�d���|r|d"|d�d|����n|d#��|
d$S)%Nr$r/r!rr0r1r2r3r4r6r7rrrc�&�|d�d|��|d<dSr9r:r;s  r+r>zcreatesubrwrapper.<locals>.add�r?r-r@rCrDrErFrGrHrIrJrKrLrMrNrOrPc���g|]}|�v�|��	Sr:r:rRs  �r+rUz%createsubrwrapper.<locals>.<listcomp>rVr-zcall rrWrXr)r
rYrZr[r\r]r^rrr#r`rarbrrr,)rcrdr$r%rerfrgrhrirjr=r>r@rkr'r/rqr<rrrTs                   @r+�createsubrwrapperrw�s������������J���<�D�
�&�\�	'�	'����L��O���a�e�e�K��4�4�5�5�	'�	'�D�A�q��C�x�x�x�&'�a�a���+���9�f�X�>�>�>���-.�Q�Q����2��3���!�!�"�%�%�%���R��$&��+��q�!��	'�	��L���
�#�#�#��*�%�%�N�
�$�C��1�1�1�1���<�D� ��&�&�K��d�#�#�G���<�D��I�I�d�O�O�E��/����
�,�
�
�
����u�u�u�
.�	/�	/�	/��	I��C�C�t�L�'9�'9�'9�;�;�G�H�H�H�����D�D�D�%�%�%�8�9�9�9��	/��C�
��-�.�.�.����*�+�1�1�$�7�7�	�	�D��{�{�}�}�'�'��/�/�
�J�d�4J�4J���D�	�	�	���K�
�"�"���d�1�g���	"��C�
��#�$�$�$����q�!�!�!��
�"�"��������D��G���	"��C��t�Q��8�8�8�9�9�9����q�!�!�!��
�6�6���������N�4��G�4�4�4�5�5�5�5��
!��		!���C������.�/�5�5�d�;�;�
�
���;�;�=�=�+�+�F�3�3��
�d�8J�8J����D�	�	�	�	��C�� � � ��I�I�>�>�>�>�$�>�>�>�?�?�E��2����[�[�[�%�%�%�0�1�1�1������t�L�/A�/A�/A�4�4�H�I�I�I�I���E�
�
�
��q�6�Mr-c��t|���rt|��}|d}td|�d|�d���tj|��}|}|}d|vr|d}|d||d|<|d|}t	|��sjd|vrg|d<|d�d��d	}|dD]}|�d
��rd}n�|r|d�d|z��|g|d
z|d
dd�<|t|��fSt|��rRt|��}|d}td|�d|�d���tj|��}|t|��fS|dfS)Nr@z)		Creating wrapper for Fortran function "z"("z")...
�resultr$r5�outrzout=rzout=%sr/z+		Creating wrapper for Fortran subroutine "r)
rrr�copyr	r\rbrsrrw)rcrkr@�fname�rname�fvar�flagrfs        r+�assubrr�s����t���-�$�T�*�*���F�|�����D�D�+�+�+��	 �	 �	 ��y����������t�����N�E�"&�v�,�u�"5�D��L����F�|�E�"���D�!�!�
	:��t�#�#�!#��X����N�!�!�%�(�(�(��D��(�^�
�
���<�<��'�'���D��E���
:��X��%�%�h�%�&8�9�9�9� �'�D��L�0��V��Q�Q�Q���&�t�,�,�,�,�����-�$�T�*�*���F�|�����4�4����&�	'�	'�	'��y������&�t�,�,�,�,���8�Or-)NN)r)�__doc__r{�auxfuncsrrrrrr	r
rrr
rrrr,rsrwr�r:r-r+�<module>r�s��
�
�����������������������������������.�.�.�.�bn�n�n�n�bP�P�P�P�f!�!�!�!�!r-

Youez - 2016 - github.com/yon3zu
LinuXploit