????
Current Path : /opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/__pycache__/ |
Current 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 <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 | � � 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.7/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 <