Файловый менеджер - Редактировать - /home/digitalm/venv/lib/python3.7/site-packages/numpy/f2py/__pycache__/func2subr.cpython-37.pyc
Назад
B �5�g�$ � @ s� d Z ddd� ZdZddlZddlmZmZmZmZm Z m Z m Z m Z m Z mZmZmZmZ dd d �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 z$Revision: 1.16 $� ���z See `f2py -v`� N� ) �getfortranname� isexternal� isfunction�isfunction_wrap� isintent_in� isintent_out�islogicalfunction�ismoduleroutine�isscalar� issubroutine�issubroutine_wrap�outmess�showc C s� |d kr |}|| kr,t | � td| � dS d| | krTt | | � td| � dS | | d }|dkr�d| | kr�d|| | d f }i }d}d| | kr�| | d }d }n d | | kr�| | d }d }d |k�r6|�r|d d kr�d| }nd|||d f }n0|d dk�r$d||d f }nd||d f }nZd |k�rvd||d f }d |k�rld||d f }nd| }nd |k�r�d||d f }d||f }d| | k�r�d|d�| | d �f }|S )Nz1var2fixfortran: No definition for argument "%s". � �typespecz/var2fixfortran: No typespec for argument "%s". �type�typenamez%s(%s)Z kindselector�kind� charselector�len�*)r �:z(*)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# �J/home/digitalm-up/venv/lib/python3.7/site-packages/numpy/f2py/func2subr.py�var2fixfortran sP r% c s� t | �s t�g � | d }x�| d D ]~}| d | }xlt|�dg ��D ]X\}}|dkrDd||f }tddgd�}d ||f |d < � �|� |||< ||d |< qDW q"W | d �� � t� �} d g} | fd d �} | d } t| �} t | �}d| }||k�r|| ||< |g| d dd � }n|g| d }t || ||�}|d d� dk�r�|�r`d|dd � }nd|dd � }|| d }|�dd �dk�r�d|d< d� |�}|�r�| d| d | |f � |�s| d | d | f � n.| d | |f � | �s| d | � |d | }| �rHx:| d � d �D ](}|� � �d!��r d"|k�r | |� �q W |dd � }g }x2|D ]*}t|| ��r^| d | � |�|� �q^W xF|D ]>}||k�r��q�t|| ��r�| t |||d#�� |�|� �q�W xF|D ]>}||k�r�q�t|| ��r�| t |||d#�� |�|� �q�W x.|D ]&}||k�r4�q"| t |||d#�� �q"W | |� | �r�|�rbn | d$� | | d � � � | d%� d� � fd&d'�|D ��}|�s�t| ��r�| d(|| |f � n| d)|| |f � |�r�| d*| d | f � n| d+� | d, S )-Nr �argsr r z f2py_%s_d%s�integer�hide)r �intentz shape(%s, %s)�=r c S s d|d | f |d< d S )Nz %s %sr r# )�line�retr# r# r$ �addb s z createfuncwrapper.<locals>.add�namez %sf2pywrapr � z character*(*)zcharacter(len=10)z character*10r r z(*)�10z, z subroutine f2pywrap_%s_%s (%s)� modulenamezuse %s, only : %szsubroutine f2pywrap%s (%s)z external %s�saved_interface� zuse �__user__)r! � interfacez end interfacec s g | ]}|� kr|�qS r# r# )�.0r )� extra_argsr# r$ � <listcomp>� s z%createfuncwrapper.<locals>.<listcomp>z%s = .not.(.not.%s(%s))z %s = %s(%s)z end subroutine f2pywrap_%s_%s�endr )r �AssertionError� enumerate�get�dict�append�extend�boolr r r% r �split�lstrip� startswithr r r r )�rout� signaturer r �v�i�d�dn�dv�need_interfacer, r- r. � fortrannamer! Znewnamer& �lZ charselect�sargsr+ � dumped_argsr# )r7 r$ �createfuncwrapperN s� rP c s� t | �s t�g � | d }x�| d D ]~}| d | }xlt|�dg ��D ]X\}}|dkrDd||f }tddgd�}d ||f |d < � �|� |||< ||d |< qDW q"W | d �� � t� �} d g} | fd d �} | d } t| �} t | �}| d }d� |�}|�r.| d| d | |f � |�sP| d| d | f � n"| d| |f � | �sP| d| � | �r�x:| d � d�D ](}|� � � d��rfd|k�rf| |� �qfW g }x2|D ]*}t|| ��r�| d| � |�|� �q�W xF|D ]>}||k�r�q�t|| ��r�| t|||d�� |�|� �q�W x.|D ]&}||k�r*�q| t|||d�� �qW | �r�|�rPnP| d� x>| d � d�D ],}|� � � d��r�d|k�r��qh| |� �qhW | d� d� � fd d �|D ��}|�s�| d | |f � |�r�| d | d | f � n| d � | d! S )"Nr r& r r z f2py_%s_d%sr' r( )r r) z shape(%s, %s)r* r c S s d|d | f |d< d S )Nz %s %sr r# )r+ r, r# r# r$ r- � s z createsubrwrapper.<locals>.addr. z, z subroutine f2pywrap_%s_%s (%s)r1 zuse %s, only : %szsubroutine f2pywrap%s (%s)z external %sr2 r3 zuse r4 )r! r5 z end interfacec s g | ]}|� kr|�qS r# r# )r6 r )r7 r# r$ r8 s z%createsubrwrapper.<locals>.<listcomp>z call %s(%s)z end subroutine f2pywrap_%s_%sr9 r )r r: r; r< r= r> r? r@ r r r rA rB rC r r r% )rD rE r r rF rG rH rI rJ rK r, r- r. rL r! r& rN r+ rO r# )r7 r$ �createsubrwrapper� s� rQ c C s: t | �r�t| �}| d }td||f � t�| �} |}|}d| kr^| d }| d | | d |< | d | }t|�s�d|kr�g |d< |d �d� d}x |d D ]}|�d�r�d }P q�W |r�|d �d | � |g| d | d d d �< | t| �fS t| ��r2t| �}| d }td ||f � t�| �} | t | �fS | d fS )Nr. z6 Creating wrapper for Fortran function "%s"("%s")... �resultr r) �outr zout=r zout=%sr& z8 Creating wrapper for Fortran subroutine "%s"("%s")... r ) r r r �copyr r> rC rP r rQ )rD rL r. �fname�rnameZfvar�flagrG r# r# r$ �assubr sB rX )NN)r )r )�__doc__� __version__Z f2py_versionrT Zauxfuncsr r r r r r r r r r r r r r% rP rQ rX r# r# r# r$ �<module> s < 1 j S
| ver. 1.4 |
Github
|
.
| PHP 8.3.23 | Генерация страницы: 0.05 |
proxy
|
phpinfo
|
Настройка