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__/f90mod_rules.cpython-311.pyc
�

���c�$���dZddd�ZdZddlZddlmZdd	lmZdd
lm	Z	m
Z
ddlTiZd�Z
d
ej��jzZdZdZd�ZdS)aJ

Build F90 module support for f2py2e.

Copyright 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: 2005/02/03 19:30:23 $
Pearu Peterson

z$Revision: 1.27 $�
���z
See `f2py -v`�N�)�	capi_maps)�	func2subr)�undo_rmbadname�undo_rmbadname1)�*c���t|��r|gSt|��sgSg}|dD]9}t|��r|�|���'|t|��z}�:|S)N�body)�ismodule�hasbody�append�findf90modules)�m�ret�bs   �9/usr/lib/python3/dist-packages/numpy/f2py/f90mod_rules.pyrr"sz����{�{���s�
��1�:�:���	�
�C�
�v�Y�*�*���A�;�;�	*��J�J�q�M�M�M�M���q�)�)�)�C�C��J�a�      external f2pysetdata
      logical ns
      integer r,i
      integer(%d) s(*)
      ns = .FALSE.
      if (allocated(d)) then
         do i=1,r
            if ((size(d,i).ne.s(i)).and.(s(i).ge.0)) then
               ns = .TRUE.
            end if
         end do
         if (ns) then
            deallocate(d)
         end if
      end if
      if ((.not.allocated(d)).and.(s(1).ge.1)) thenz�      end if
      if (allocated(d)) then
         do i=1,r
            s(i) = size(d,i)
         end do
      end if
      flag = 1
      call f2pysetdata(d,allocated(d))z�      end if
      if (allocated(d)) then
         do i=1,r
            s(i) = size(d,i)
         end do
         !s(r) must be equal to len(d(1))
      end if
      flag = 2
      call f2pysetdata(d,allocated(d))c��ddlm}gggddgddd�dggd�}d	g}|fd
�}d	g}|fd�}t|��D�	]�}gggg|dggf\}}	}
}}}
g}g}g}t|��r&|d
D]}|�|d���|d���D]a}|d|}||vrMt
tt��|��s*|
�|��|�|���btd|dz��|
r%tdd�
|
��z��d	g}|fd�}d	g}|fd�}tj|��}|d|dz��|d|dz��t|��r=|d}t|t��rd�
|��}||��|
r|d��|
D�])}|d|}|�|��tj|��}tj|}tj||��}|d�dd�����}|�dd�����}|sd}t*}|dt-|���d|d�d|�d |�d!tj|���d"���|d#tj||��z��t|��r@|d}t|t��rd�
|��}|d$|z��t3|���rM|	�d%|d�d&|����|
�|	d'��|�d(|z��|�d)��|d*|d�d+|�d,���|d-|	d'z��|d.|d�d/t-|���d���|d0��|d1t4z|d1<t7dt9|d��dz��}|d2d3�
d4�|D����z��|d1|z|d1<|d5|	d'z�����|	�|��|�d6|z��|�d7��|d*|d�d8|�d,�����+|
r|d9��t|���r>|d
D�]4}t;|��s#td:|d;�d|d�d����5|�d<|dz��|d|d=<|�|��\}} t?|��r_|d1| z|d1<|	�d>|d�d?|d����|�tAj!|d�@����n�| r_|d1| z|d1<|	�d>|d�d?|d����|�tAj"|d�@����n6|	�|d��|�|	d'��g|dA<tG||��}!g|!dB<g|!dC<tI||!��}|d|d�dD|d�d?|d�dE|d�d?|d�d"���|�d6|dz��|�dF��|d*|d�d8|d�d,�����6|dG��|dH��dI|d�dJd3�
|���dK|d1��|d1<d?|dvrdL}"nd}"|dM|"�dN|d�dO|d�%���dPd3�
|���dQ�	��|dR|dz��|dS|"�dN|d�dO|d�%���dT|d�dU�	��|dV��|dW|z|z|dW<dX|d�dY|d�dZ|d�dQ�g|d[z|d[<|d	��|d\|dz��|r)tM|��D]}#|d.|d�d]|#�����|r-|d�
d^g|z����|d_��|d`��|
r tM|
��D]}#|da|#z���|dbd3�
tM|	����z��|dc|dz��|d�
|dd���dedf����g|dd<|dB�dg|d�dhd3�
tM|�����di����	��d	|dj<g|dk<g|dC<|d1|dd<tO|dB��dkrd	|dB<||d1fS)lNr)�rules�F_FUNCz
arrayobject.h�
)�	includes0�includesz"Fortran 90/95 modules:\n")�f90modhooks�initf90modhooksr�need�
separatorsfor�docs�latexdoc�c�&�|d�d|��|d<dS)Nrz
      ���line�ss  r�faddzbuildhooks.<locals>.fadd`s��!"�1����t�t�,��!���rc�&�|d�d|��|d<dS�Nrrr$r%s  r�daddzbuildhooks.<locals>.daddds���Q�4�4�4���&��!���r�namer�varsz.		Constructing F90 module support for "%s"...
z		  Variables: %s
� c�&�|d�d|��|d<dSr*r$r%s  r�caddzbuildhooks.<locals>.caddz��� ��t�t�t�T�T�*�A�a�D�D�Drc�&�|d�d|��|d<dSr*r$r%s  r�iaddzbuildhooks.<locals>.iadd~r1rz'static FortranDataDef f2py_%s_def[] = {z.\subsection{Fortran 90/95 module \texttt{%s}}
�notez\begin{description}�dimsr
z-1�:z	{"z",�rankz,{{z}},z, z},z\item[]{{}\verb@%s@{}}z--- %s�f2py_�	_getdims_rz.void (*%s)(int*,int*,void(*)(char*,int*),int*)z,void (*)(int*,int*,void(*)(char*,int*),int*)z	f2py_z_def[i_f2py++].func = �;z#subroutine %s(r,s,f2pysetdata,flag)zuse z
, only: d => z
integer flag
rz allocate(d(%s))
�,c��g|]}d|z��S)zs(%s)r$)�.0�is  r�
<listcomp>zbuildhooks.<locals>.<listcomp>�s��9�9�9���!��9�9�9rzend subroutine %szchar *%szchar*z_def[i_f2py++].data = z\end{description}z"f90mod_rules.buildhooks: skipping �blockz%s()�
modulename�	f2pywrap_�_)�	signature�externroutinesr �docshortz4",-1,{{-1}},0,0,NULL,(void *)f2py_rout_#modulename#_z,doc_f2py_rout_#modulename#_zchar *z	{NULL}
};
�}zstatic void f2py_setup_�(z) {
	int i_f2py=0;�	F_FUNC_USzextern void z	(f2pyinitz	,F2PYINITz)(void (*)(z));z static void f2py_init_%s(void) {�	z
)(f2py_setup_z);z}
rz	PyDict_SetItemString(d, "z", PyFortranObject_New(f2py_z_def,f2py_init_rz$subroutine f2pyinit%s(f2pysetupfunc)z	, only : �	interfacez
end interfacezexternal f2pysetupfunczexternal %szcall f2pysetupfunc(%s)zend subroutine f2pyinit%s
r!z\subsection{z\subsubsection{z"	z --- �"�routine_defs�doc)(r"rrrr�keys�l_or�
isintent_hide�	isprivate�outmess�joinr�modsign2map�hasnote�
isinstance�list�getctype�
c2capi_map�
getarrdims�replace�strip�	fgetdims2r	�
get_elsize�
getarrdocsign�
isallocatable�	fgetdims1�range�int�	isroutine�buildapi�
isfunctionr�createfuncwrapper�createsubrwrapper�
applyrules�
dictappend�upperr�len)$�pymodrr�fhooksr(rNr+r�sargs�fargs�efargs�modobjs�notvars�onlyvars�sargsp�ifargs�mfargsr�n�var�chooksr0�ihooksr3�vrdr4�ct�at�dm�dms�
use_fgetdims2�api�wrap�arr�as$                                    r�
buildhooksr�Ws�����������R��o�.�*.�D�A�A�1�2��	��C�
�T�F��-�-�-�-�
�$�C��'�'�'�'�
�E�
"�
"�ZR�ZR��;=�r�2�r�
�f�I�L��<�8��u�f�g�w���������1�:�:�	*��v�Y�
*�
*�����q��y�)�)�)�)��6����!�!�	!�	!�A��F�)�A�,�C��� � �+I�4�
�y�+I�+I�#�+N�+N� �����"�"�"��
�
�a� � � ���C��6���	�	�	��	D��+�s�x�x��/A�/A�B�C�C�C�����	+�	+�	+�	+�����	+�	+�	+�	+��#�A�&�&����
6�!�F�)�
D�E�E�E���
@�A�f�I�
N�O�O�O��1�:�:�	��V�9�D��$��%�%�
'��y�y������D��J�J�J��	)��D�'�(�(�(��*	L�*	L�A��F�)�A�,�C��N�N�1�����#�C�(�(�B��%�b�)�B��%�a��-�-�B��V�*�$�$�S�$�/�/�5�5�7�7�C��+�+�c�4�(�(�.�.�0�0�C��
���%�M��D�D�!�!�$�$�$�$�b��j�j�j�#�#�#�r�r�r��&�s�+�+�+�+�-�
.�
.�
.�
�D�+��)�!�S�1�1�3�
4�
4�
4��s�|�|�
(��6�{���d�D�)�)�+��9�9�T�?�?�D���X��&�'�'�'��S�!�!�
L�����Q�v�Y�Y�Y���B�C�C�C��
�
�e�B�i�(�(�(����D��J�L�L�L��
�
�L�M�M�M����Q�v�Y�Y�Y����J�K�K�K���:�e�B�i�H�I�I�I������i�i�i���!3�!3�!3�!3�5�6�6�6���%�&�&�&�"�1�I�	�1��q�	��A�s�2�f�:����2�3�3����)��h�h�9�9�S�9�9�9�:�:�<�=�=�=�"�1�I�
�5��q�	���(�E�"�I�6�7�7�7�7����Q�������Z�1�-�.�.�.��
�
�g�&�&�&����Q�v�Y�Y�Y����J�K�K�K�K��	'��D�%�&�&�&��1�:�:�"	-��v�Y�!
-�!
-�� ��|�|���D�)*�7��D�D�67��i�D�D�D�E�E�E�����v��6��3�4�4�4�"#�F�)��,��!�N�N�1�-�-�	��T��a�=�=�1� &�q�	�D� 0�F�1�I��L�L�L�Q�v�Y�Y�Y��&�	�	�!J�K�K�K��M�M�)�"=�a�1�"M�"M�"M�N�N�N�N��1�$*�1�I��$4��q�	������6����A�f�I�I�%N�O�O�O��
�
�%�7��Q�G�G�G�I�I�I�I����Q�v�Y�/�/�/��
�
�e�B�i�0�0�0�(*��$�%���S�)�)����6�
�!#��:�� ��b�)�)������&�	�	�	�1�V�9�9�9�a��i�i�i��6����A�f�I�I�I�O�P�P�P����Z�1�V�9�5�6�6�6��
�
�h�'�'�'������i�i�i��6����,�-�-�-�-���
������S�	�	�	�	�
�f�I�I�I�s�x�x�������q�	�	�3��q�	��!�F�)��� �F�F��F��������&�	�	�	�1�V�9�?�?�#4�#4�#4�#4�c�h�h�v�6F�6F�6F�6F�H�	I�	I�	I���
/�1�V�9�
=�>�>�>��������&�	�	�	�1�V�9�?�?�#4�#4�#4�#4�a��i�i�i�A�	B�	B�	B���U���� ��/�&�8�6�A��M���
�f�I�I�I�q��y�y�y�!�F�)�)�)�#-�".�03�4E�0F�"G������R������
3�q��y�
A�B�B�B��	;�#�F�+�+�
;�
;�����A�f�I�I�I�q�q�9�:�:�:�:��	"��D����;�-�&�0�1�1�2�2�2��D��!�!�!���
%�&�&�&��	*�#�F�+�+�
*�
*����]�a�(�)�)�)�)���
%����.��2G�2G�)H�)H�
I�J�J�J���
*�a��i�
8�9�9�9���T�Y�Y�s�:��
'�
'�
/�
/��/�1�1�	2�	2�	2���J���F�����a��i�i�i�.1�h�h�~�g�7N�7N�.O�.O�.O�.O�Q�	R�	R�	R�	R��C����C��J��C�
�O��!�f�C�
�O�
�3�v�;���1�����F����q�	�>�r)�__doc__�__version__�f2py_version�numpy�npr"rr�crackfortranrr	�auxfuncs�optionsr�intp�itemsizerbr^�fgetdims2_sar�r$rr�<module>r�s���
�
�"�"�R�%�(��������������������9�9�9�9�9�9�9�9�
����
�����
7� :A�����9K�!
L�	�$
*�	�	*��q�q�q�q�qr

Youez - 2016 - github.com/yon3zu
LinuXploit