OwlCyberSecurity - MANAGER
Edit File: func2subr.cpython-38.pyc
U �i]$ � @ s� d Z ddlmZmZmZ ddd� ZdZddlZdd lm Z m Z m Z m Z m Z mZmZmZmZmZmZmZmZ dd d �Zdd d �Zddd�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 � )�division�absolute_import�print_functionz$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 kindselectorZkind� 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�aZfa�f90modeZvardefZselectorZlk� r$ �6/usr/lib/python3/dist-packages/numpy/f2py/func2subr.py�var2fixfortran sP r& c s� t | �s t�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| }||k�r|| ||< |g| d dd � }n|g| d }t || ||�}|d d� dk�r�|�rXd|dd � }nd|dd � }|| d }|�dd �dk�r�d|d< d� |�}|�r�| d| d | |f � |�s�| d | d | f � n.| d | |f � | �s�| d | � |d | }| �r2| d � d �D ] }|� � �d!��r| |� �q|dd � }g }|D ]*}t|| ��rF| d | � |�|� �qF|D ]>}||k�r��qvt|| ��rv| t |||d"�� |�|� �qv|D ]>}||k�r̐q�t|| ��r�| t |||d"�� |�|� �q�|D ]&}||k�r�q�| t |||d"�� �q�| |� | �r\|�r<n | 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 � 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% �addd s z createfuncwrapper.<locals>.add�namez %sf2pywrapr � z character*(*)zcharacter(len=10)z character*10r r r Z10�, � subroutine f2pywrap_%s_%s (%s)� modulename�use %s, only : %s�subroutine f2pywrap%s (%s)� external %s�saved_interface� �use �r# � interface� end interfacec s g | ]}|� kr|�qS r$ r$ ��.0r" �Z extra_argsr$ r% � <listcomp>� s z%createfuncwrapper.<locals>.<listcomp>z%s = .not.(.not.%s(%s))z %s = %s(%s)� 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_interfacer2 r3 r4 � fortrannamer# Znewnamer' �lZ charselect�sargsr1 � dumped_argsr$ rD r% �createfuncwrapperP s� � r^ c s� t | �s t�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 }d� |�}|�r&| d| d | |f � |�sH| d| d | f � n"| d| |f � | �sH| d| � | �r|| d � d�D ] }|� � � d��r\| |� �q\g }|D ]*}t|| ��r�| d| � |�|� �q�|D ]>}||k�rƐq�t|| ��r�| t|||d�� |�|� �q�|D ]&}||k�r �q�| t|||d�� �q�| �rN|�r.n | d� | | d � � � | d� d� � fdd �|D ��}|�s|| d | |f � |�r�| d | d | f � n| d � | d S )!Nr! r' r r r( r) r* r+ r- r. r c S s d|d | f |d< d S r/ r$ r0 r$ r$ r% r3 � s z createsubrwrapper.<locals>.addr4 r6 r7 r8 r9 r: r; r< r= r> r? r@ rA c s g | ]}|� kr|�qS r$ r$ rB rD r$ r% rE � s z%createsubrwrapper.<locals>.<listcomp>z call %s(%s)rF rG r )r rH rI rJ rK rL rM rN r r r rO rP rQ r r r& )rR rS r! r" rT rU rV rW rX rY r2 r3 r4 rZ r# r' r\ r1 r] r$ rD r% �createsubrwrapper� s~ � r_ c C s8 t | �r�t| �}| d }td||f � t�| �} |}|}d| kr^| d }| d | | d |< | d | }t|�s�d|kr�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 )Nr4 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 rL rQ r^ r r_ )rR rZ r4 �fnameZrnameZfvar�flagrU r$ r$ r% �assubr sJ � � re )NN)r )r )�__doc__Z __future__r r r � __version__Z f2py_versionrb Zauxfuncsr r r r r r r r r r r r r r& r^ r_ re r$ r$ r$ r% �<module> s < 1 j P