ok

Mini Shell

Direktori : /opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/__pycache__/
Upload File :
Current File : //opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/__pycache__/func2subr.cpython-311.pyc

�

�܋f.&��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       �g/builddir/build/BUILD/cloudlinux-venv-1.0.6/venv/lib64/python3.11/site-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	�l	���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�|��}|
ra|�
��d�d��}�fd�|D��}||d<|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||�d0|�d.|�d���|
r|d1|d�d�����n|d2��|
d3S)4Nr$�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�10c� ��g|]
}|�k�|��Sr:r:)�.0�argr@s  �r+�
<listcomp>z%createfuncwrapper.<locals>.<listcomp>~s���3�3�3��s�d�{�{��{�{�{r-�subroutine f2pywrap_�
modulename�_� (�use �	, only : �subroutine f2pywrap�external %sr �saved_interface�
�__user__�r'�	interface�
end interfacec���g|]}|�v�|��	Sr:r:�rDr%�
extra_argss  �r+rFz%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>�fortrannamer'�newnamer/�l_tmpl�
charselect�l1�rl�sargsr<�dumped_argsrWr@s                       @@r+�createfuncwrapperruJsS�����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��
�
��k�k�k�2�.�.��3�3�3�3�t�3�3�3����V�����
�,�
�
�
����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@rGrHrIrJrKrLrMrNrOrPrQrRrSrTc���g|]}|�v�|��	Sr:r:rVs  �r+rFz%createsubrwrapper.<locals>.<listcomp>	rXr-zcall rrYrZr)r
r[r\r]r^r_r`rrr#rbrcrdrrr,)rerfr$r%rgrhrirjrkrlr=r>r@rmr'r/rsr<rtrWs                   @r+�createsubrwrapperry�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^rdrurry)rermr@�fname�rname�fvar�flagrhs        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,ruryr�r:r-r+�<module>r�s��
�
�����������������������������������.�.�.�.�bt�t�t�t�nP�P�P�P�f!�!�!�!�!r-

Zerion Mini Shell 1.0