Файловый менеджер - Редактировать - /opt/imh-python/lib/python3.9/site-packages/numpy/f2py/__pycache__/func2subr.cpython-39.pyc
Ðазад
a e�hm( � @ s� d Z ddlZddlmZmZmZmZmZmZm Z m Z m Z m Z m Z mZmZ ddlmZ ddd�Zdd � Zdd d �Zdd d �Zdd� 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�show)� isoc_kindmapc C s� |d u r |}|| vr,t | � td| � dS d| | vrTt | | � td| � dS | | d }|dkr�d| | v r�d|| | d f }i }d}d| | v r�| | d }d }n d | | v r�| | d }d }d |v �r6|�r|d d v r�d| }nd|||d f }n0|d dv �r$d||d f }nd||d f }nZd |v �rvd||d f }d |v �rld||d f }nd| }nd |v �r�d||d f }d||f }d| | v �r�d|d�| | d �f }|S )Nz1var2fixfortran: No definition for argument "%s". � �typespecz/var2fixfortran: No typespec for argument "%s". �type�typenamez%s(%s)� kindselector�kind� charselector�len�*)r �:�(*)z %s(len=*)z %s(%s=%s))r r z%s*(%s)z%s*%sz %s(len=%sz %s,kind=%s)z%s)z %s(kind=%s)z%s %s� dimension�,)r r �join)�vars�a�fa�f90modeZvardef�selectorZlk� r$ ��/root/rpmbuild/BUILDROOT/imh-python39-modules-3.9.7-92.el8.x86_64/opt/imh-python/lib/python3.9/site-packages/numpy/f2py/func2subr.py�var2fixfortran sP r& c C s> d}| d � � D ](\}}|�di ��d�}|tv r dS q|S )NFr r r T)�items�getr )�rout�useisoc�key�valueZ kind_valuer$ r$ r% �useiso_c_bindingJ s r- c sZ t | �s J �g � | d }| d D ]z}| d | }t|�dg ��D ]X\}}|dkr@d||f }tddgd�}d ||f |d < � �|� |||< ||d |< q@q | d �� � t� �} d g} | fd d �} | d �t| �} t| �} d� }||v�r|� ||< |g| d dd � }n|g| d }t |�d| �}|d d� dk�r�| �rXd|dd � }nd|dd � }|� d }|�dd �dk�r�d|d< |� d|�}d }t | �}d� |�}| �r"|� �� d�d �}�fdd �|D �}|| d< | d | d �|f � |�s| d | d | f � |�rf| d � nD| d!�|f � |�r@| d � | �sf| d"| � |� dd �d# | }| �r�| d$ � d%�D ](}|�� �d&��rzd'|v�rz| |� �qz|dd � }g }|D ]*}t|| ��r�| d"| � |�|� �q�|D ]>}||v �r��q�t|| ��r�| t ||| d(�� |�|� �q�|D ]>}||v �r>�q,t|| ��r,| t ||| d(�� |�|� �q,|D ]&}||v �r��qp| t ||| d(�� �qp| |� |d u�r�| |� | �r�| �r�n | d)� | | d$ �� � | d*� d� � fd+d �|D ��}|�s.t| ��r | d,|| |f � n| d-|| |f � | �rJ| d.| d �f � n| d/� | d0 S )1Nr �argsr r � f2py_%s_d%s�integer�hide�r �intent� shape(%s, %s)�=r c S s d|d | f |d< d S �Nz %s %sr r$ ��line�retr$ r$ r% �addf s z createfuncwrapper.<locals>.add�namez %sf2pywrapr z @@@NAME@@@� z character*(*)zcharacter(len=10)z character*10r r r �10�, c s g | ]}|� kr|�qS r$ r$ )�.0�arg)r; r$ r% � <listcomp>� � z%createfuncwrapper.<locals>.<listcomp>� subroutine f2pywrap_%s_%s (%s)� modulename�use %s, only : %s�use iso_c_binding�subroutine f2pywrap%s (%s)� external %s� �saved_interface� �use �__user__�r" � interface� end interfacec s g | ]}|� vr|�qS r$ r$ �r? r �� extra_argsr$ r% rA � rB z%s = .not.(.not.%s(%s))z %s = %s(%s)� end subroutine f2pywrap_%s_%s�endr )r � enumerater( �dict�append�extend�boolr r r& �replacer- r �split�lstrip� startswithr r r r )r) � signaturer r �v�i�d�dn�dv�need_interfacer9 r: � fortrannamer" Znewnamer. Zl_tmplZ charselect�l1Zrlr* �sargsr8 � dumped_argsr$ )rS r; r% �createfuncwrapperR s� � rj c s t | �s J �g � | d }| d D ]z}| d | }t|�dg ��D ]X\}}|dkr@d||f }tddgd�}d ||f |d < � �|� |||< ||d |< q@q | d �� � t� �} d g} | fd d �} | d } t| �} t| �}| d }t | �}d� |�}|�r<| d| d | |f � |�r | d� |�sl| d| d | f � n0| d| |f � |�rZ| d� | �sl| d| � | �r�| d � d�D ](}|� � � d��r�d|v�r�| |� �q�g }|D ]*}t|| ��r�| d| � |�|� �q�|D ]>}||v �r�q�t|| ��r�| t|||d�� |�|� �q�|D ]&}||v �r8�q&| t|||d�� �q&| �r�|�r\nL| d� | d � d�D ],}|� � � d��r�d|v �r��qr| |� �qr| d � d� � fd d �|D ��}|�s�| d | |f � |�r�| d | d | f � n| d!� | d" S )#Nr r. r r r/ r0 r1 r2 r4 r5 r c S s d|d | f |d< d S r6 r$ r7 r$ r$ r% r: � s z createsubrwrapper.<locals>.addr; r> rC rD rF rE rG rH rJ rK rL rM rN rO rP c s g | ]}|� vr|�qS r$ r$ rQ rR r$ r% rA rB z%createsubrwrapper.<locals>.<listcomp>z call %s(%s)rT rU r )r rV r( rW rX rY rZ r r r- r r\ r] r^ r r r& )r) r_ r r r` ra rb rc rd re r9 r: r; rf r" r. r* rh r8 ri r$ rR r% �createsubrwrapper� s� � rk c C s8 t | �r�t| �}| d }td||f � t�| �} |}|}d| v r^| d }| d | | d |< | d | }t|�s�d|vr�g |d< |d �d� d}|d D ]}|�d�r�d } q�q�|r�|d �d | � |g| d | d d d �< | t| �fS t| ��r0t| �}| d }td ||f � t�| �} | t | �fS | d fS )Nr; z6 Creating wrapper for Fortran function "%s"("%s")... �resultr r3 �outr zout=r zout=%sr. z8 Creating wrapper for Fortran subroutine "%s"("%s")... r ) r r r �copyr rX r^ rj r rk )r) rf r; �fname�rnameZfvar�flagra r$ r$ r% �assubr& sF � � rr )NN)r )r )�__doc__rn Zauxfuncsr r r r r r r r r r r r r Z _isocbindr r& r- rj rk rr r$ r$ r$ r% �<module> s < 0 | X
| ver. 1.1 | |
.
| PHP 8.3.30 | Ð“ÐµÐ½ÐµÑ€Ð°Ñ†Ð¸Ñ Ñтраницы: 0 |
proxy
|
phpinfo
|
ÐаÑтройка