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

	�g�'���dZdddZdZddlZddlmZdd	lmZdd
lm	Z	m
Z
ddl�iZd�Z
d
ej�jzZdZdZd�Zy)a2
Build F90 module support for 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.
z$Revision: 1.27 $�
���z
See `f2py -v`�N�)�	capi_maps)�	func2subr)�undo_rmbadname�undo_rmbadname1)�*c��t|�r|gSt|�sgSg}|dD]-}t|�r|j|�� |t|�z}�/|S)N�body)�ismodule�hasbody�append�findf90modules)�m�ret�bs   �9C:\Python312\Lib\site-packages\numpy/f2py/f90mod_rules.pyrrs\����{��s�
��1�:��	�
�C�
�v�Y�*���A�;��J�J�q�M���q�)�)�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�X�ddlm}gggddgddd�dggd�}d	g}|fd
�}d	g}|fd�}t|�}t|�D�]2}gggg|dggf\}	}
}}}
}g}g}g}t	|�r|d
D]}|
j|d��|dj
�D]X}|d|}||
vs�t|�s�ttt�|�r�7|j|�|j|��Ztd|dz�t|�dk(r(t|
�dk(r|d|
vrtd|d�d����|d|vrt|�rtd|d�d����!|rtddj|�z�d	g}|fd�}d	g}|fd�}tj |�}|d|dz�|d|dz�t#|�r.|d}t%|t&�rdj|�}||�|r|d�|D�]�}|d|}|j|�tj(|�}tj*|}tj,||�}|dj/dd�j1�}|j/dd�j1�}|sd}t2}|d t5|��d!|d"�d#|�d$|�d%tj6|��d&��|d'tj8||�z�t#|�r1|d}t%|t&�rdj|�}|d(|z�t;|��r|
jd)|d�d*|���|j|
d+�|	jd,|z�|jd-�|d.|d�d/|�d0��|d1|
d+z�|d2|d�d3t5|��d��|d4�|dt<z|d<t?dtA|d"�dz�}|d5d6j|D� cgc]} d7| z��	c} �z�|d|z|d<|d8|
d+z���L|
j|�|	jd9|z�|jd:�|d.|d�d;|�d0�����|r|d<�t	|��r�|d
D�]�}tC|�std=|d>�d|d�d���(|jd?|dz�|d|d@<|jE|�\}!}"tG|�rO|d|"z|d<|
jdA|d�dB|d���|jtIjJ|d�C��ny|"rO|d|"z|d<|
jdA|d�dB|d���|jtIjL|d�C��n(|
j|d�|j|
d+�g|!dD<tO|!|�}#g|#dE<g|#dF<tQ||#�}|d |d�dG|d�dB|d�dH|d�dB|d�d&��|	jd9|dz�|jdI�|d.|d�d;|d�d0�����|dJ�|dK�dL|d�dMd6j|	��dN|d��|d<dB|dvrdO}$nd}$|dP|$�dQ|d�dR|djS��dSd6j|��dT�	�|dU|dz�|dV|$�dQ|d�dR|djS��dW|d�dX�	�|dY�|dZ|z|z|dZ<d[|d�d\|d�d]|d�dT�g|d^z|d^<|d	�|d_|dz�|r!tU|�D]}%|d2|d�d`|%����|r#|djdag|z��|db�|dc�|rtU|�D]
}%|dd|%z��|ded6jtU|
��z�|df|dz�|dj|dg�j/dhdi��g|dg<|dEjdj|d�dkd6jtU|���dl����5d	|dm<g|dn<g|dF<|d|dg<t|dE�dkrd	|dE<||dfScc} w)oNr)�rules�F_FUNCz
arrayobject.h�
)�	includes0�includesz"Fortran 90/95 modules:\n")�f90modhooks�initf90modhooksr�need�
separatorsfor�docs�latexdoc�c��|d�d|��|d<y)Nrz
      ���line�ss  r�faddzbuildhooks.<locals>.fadd[s��!"�1��t�,��!�rc��|d�d|��|d<y�Nrrr$r%s  r�daddzbuildhooks.<locals>.dadd_s���Q�4��&��!�r�namer�varsz.		Constructing F90 module support for "%s"...
rz			Skipping z7 since there are no public vars/func in this module...
z5 since it is in 'use' and contains a common block...
z		  Variables: %s
� c��|d�d|��|d<yr*r$r%s  r�caddzbuildhooks.<locals>.cadd���� ��t�T�*�A�a�Drc��|d�d|��|d<yr*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_rz8void (*%s)(int*,npy_intp*,void(*)(char*,npy_intp*),int*)z6void (*)(int*,npy_intp*,void(*)(char*,npy_intp*),int*)z	f2py_z_def[i_f2py++].func = �;z#subroutine %s(r,s,f2pysetdata,flag)zuse z
, only: d => z
integer flag
z allocate(d(%s))
�,zs(%s)zend 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"r�getuseblocksrrr�keys�
isvariable�l_or�
isintent_hide�	isprivate�outmess�len�containscommon�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)&�pymodrr�fhooksr(rJr+�usenamesr�sargs�fargs�efargs�modobjs�notvars�onlyvars�sargsp�ifargs�mfargsr�n�var�chooksr0�ihooksr3�vrdr4�ct�at�dm�dms�
use_fgetdims2�i�api�wrap�arr�as&                                      r�
buildhooksr�RsC	�����R��o�.�*.�D�A�1�2��	�C�
�T�F��-�
�$�C��'��E�"�H�
�E�
"�cR��;=�r�2�r�
�f�I�L��<�8��u�f�g�w���������1�:��v�Y�
*�����q��y�)�
*��6����!�	!�A��F�)�A�,�C��� �Z��_�?]�t�M�S\�?]�^a�?b�����"��
�
�a� �	!�	�C��6���	��x�=�A��#�g�,�!�"3��&�	�W�8L��o�a��i�[�0h�i�j��
�V�9�� �^�A�%6��o�a��i�[�0f�g�h����+�s�x�x��/A�B�C�����	+�����	+��#�#�A�&���
6�!�F�)�
D�E��
@�A�f�I�
N�O��1�:��V�9�D��$��%��y�y������J���'�(��*	L�A��F�)�A�,�C��N�N�1���#�#�C�(�B��%�%�b�)�B��%�%�a��-�B��V�*�$�$�S�$�/�5�5�7�C��+�+�c�4�(�.�.�0�C����%�M��!�!�$�b��j�#�r��&�&�s�+�-�
.�
�+��)�)�!�S�1�3�
4��s�|��6�{���d�D�)��9�9�T�?�D��X��&�'��S�!����Q�v�Y��B�C��
�
�e�B�i�(����N�RS�T�V��
�
�V�W��Q�v�Y��J�K��:�e�B�i�H�I����i���!3�5�6��%�&�"�1�I�	�1��q�	��A�s�2�f�:���2�3���)��h�h�S�9���!��9�:�<�=�"�1�I�
�5��q�	��(�E�"�I�6�7����Q�����Z�1�-�.��
�
�g�&��Q�v�Y��J�K�U*	L�V��%�&��1�:��v�Y�!
-�� ��|��)�)*�7���A�a��i�[��D�E�����v��6��3�4�"#�F�)��,��!�N�N�1�-�	��T��a�=� &�q�	�D� 0�F�1�I��L�L�Q�v�Y��&�	�!J�K��M�M�)�"=�"=�a�1�"M�N��$*�1�I��$4��q�	�����6��A�f�I�%N�O��
�
�%�7�7��Q�G�I����Q�v�Y�/��
�
�e�B�i�0�(*��$�%���S�)����6�
�!#��:�� ��b�)����&�	�1�V�9�a��i��6��A�f�I�O�P����Z�1�V�9�5�6��
�
�h�'����i��6��,�-�A!
-�D	
�
���S�	�
�f�I�s�x�x����q�	�3��q�	��!�F�)�� �F��F����&�	�1�V�9�?�?�#4�c�h�h�v�6F�H�	I��
/�1�V�9�
=�>����&�	�1�V�9�?�?�#4�a��i�A�	B��U�� ��/�&�8�6�A��M��
�f�I�q��y�!�F�)�#-�".�03�4E�0F�"G�����R���
3�q��y�
A�B��#�F�+�
;���A�f�I�q�9�:�
;������;�-�&�0�1�2���!��
%�&��#�F�+�
*���]�a�(�)�
*��
%����.��2G�)H�
I�J��
*�a��i�
8�9��T�Y�Y�s�:��
'�
/�
/��/�1�	2���J���F����a��i�.1�h�h�~�g�7N�.O�Q�	R�EcR�J�C����C��J��C�
�O��!�f�C�
�O�
�3�v�;��1����F����q�	�>���u :s�b')�__doc__�__version__�f2py_version�numpy�npr"rr�crackfortranrr	�auxfuncs�optionsr�intp�itemsizerbr^�fgetdims2_sar�r$rr�<module>r�sm��	�"�"�R�(�������9�
�
���
7� :A�����9K�9K�!
L�	�$
*�	�	*��|r

Youez - 2016 - github.com/yon3zu
LinuXploit