File: //opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/__pycache__/func2subr.cpython-311.pyc
�
�z�b��� �l � d Z ddlZddlmZmZmZmZmZmZm Z m
Z
mZmZm
Z
mZmZ d 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 <[email protected]>
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 | � � t d|z � � dS d| | vr)t | | � � t d|z � � dS | | d }|dk rd| | v r|�d| | d �d�}i }d}d | | v r| | d }d
}nd| | v r| | d }d}d
|v rK|r"|d
dv rd|z }nu|�d|�d|d
�d�}nc|d
dv r|�d|d
�d�}nJ|�d
|d
��}n<d|v r&|�d|d ��}d
|v r|�d|d
�d�}nd|z }nd
|v r|�d|d
�d�}|�d|��}d| | v r'|�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=*)�=)r r z*(z(len=z,kind=z%s)z(kind=� � dimension�,)r r �join)�vars�a�fa�f90mode�vardef�selector�lks �g/builddir/build/BUILD/cloudlinux-venv-1.0.8/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 }| d D ]�}| d | }t |� dg � � � � D ]V\ }}|dk rKd|�d|��}t ddg� � � }d
|�d|�d�|d
<