HEX

File: //lib/python3/dist-packages/numpy/f2py/__pycache__/func2subr.cpython-310.pyc
o

6��a�$�@s�dZddd�ZdZddlZddlmZmZmZmZm	Z	m
Z
mZmZm
Z
mZmZmZmZdd	d
�Zddd�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�showcCs�|dur|}||vrt|�td|�dSd||vr*t||�td|�dS||d}|dkrDd||vrDd|||df}i}d}d||vrW||d}d	}nd
||vre||d
}d}d|vr�|r�|dd
vrvd|}nLd|||df}nB|ddvr�d||df}n3d||df}n*d|vr�d||df}d	|vr�d||d	f}nd|}nd	|vr�d||d	f}d||f}d||vr�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))rrz%s*(%s)z%s*%sz	%s(len=%sz%s,kind=%s)z%s)z%s(kind=%s)z%s %s�	dimension�,)rr�join)�vars�a�fa�f90mode�vardef�selector�lk�r'�6/usr/lib/python3/dist-packages/numpy/f2py/func2subr.py�var2fixfortransP

r)cs�t|�sJ�g�|d}|dD]=}|d|}t|�dg��D],\}}|dkrLd||f}tddgd�}d	||f|d
<��|�|||<||d|<q q|d���t��}	dg}
|
fdd
�}|d}t|�}
t|�}d|}||vr�||||<|g|ddd�}n|g|d}t	||||�}|dd�dkr�|r�d|dd�}nd|dd�}||d}|�dd�dkr�d|d<d�
|�}|r�|d|d||f�|s�|d|d|
f�n|d||f�|	s�|d|
�|d|
}|	�r|d�d �D]}|���
d!��rd"|v�r||��q|dd�}g}|D]}t||��r5|d|�|�|��q!|D]}||v�rB�q9t||��rW|t	|||d#��|�|��q9|D]}||v�rd�q[t||��ry|t	|||d#��|�|��q[|D]}||v�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�|
d,S|d+�|
d,S)-Nr �argsrr�f2py_%s_d%s�integer�hide�r�intent�
shape(%s, %s)�=rcS�d|d|f|d<dS�Nz%s
      %srr'��line�retr'r'r(�addb�zcreatefuncwrapper.<locals>.add�namez
%sf2pywrapr�
z
character*(*)zcharacter(len=10)zcharacter*10rrr�10�, �subroutine f2pywrap_%s_%s (%s)�
modulename�use %s, only : %s�subroutine f2pywrap%s (%s)�external %s�saved_interface�
�use �__user__�r#�	interface�
end interfacec�g|]}|�vr|�qSr'r'��.0r!��
extra_argsr'r(�
<listcomp>��z%createfuncwrapper.<locals>.<listcomp>z%s = .not.(.not.%s(%s))z%s = %s(%s)�end subroutine f2pywrap_%s_%s�endr)r�	enumerate�get�dict�append�extend�boolrrr)r�split�lstrip�
startswithrr
r	r)�rout�	signaturer r!�v�i�d�dn�dv�need_interfacer6r7r9�fortrannamer#�newnamer*�l�
charselect�sargsr5�dumped_argsr'rLr(�createfuncwrapperNs�
��
���
�

�

�

�rics�t|�sJ�g�|d}|dD]=}|d|}t|�dg��D],\}}|dkrLd||f}tddgd�}d	||f|d
<��|�|||<||d|<q q|d���t��}	dg}
|
fdd
�}|d}t|�}
t|�}|d}d�	|�}|r�|d|d||f�|s�|d|d|
f�n|d||f�|	s�|d|
�|	r�|d�
d�D]}|���d�r�d|vr�||�q�g}|D]}t
||�r�|d|�|�|�q�|D]}||vr�q�t||�r�|t|||d��|�|�q�|D]}||vr�q�|t|||d��q�|	�r2|�rn&|d�|d�
d�D]}|���d��r(d|v�r(�q||��q|d�d�	�fdd�|D��}|�sI|d|
|f�|�rZ|d|d|f�|
d!S|d �|
d!S)"Nr r*rrr+r,r-r.r0r1rcSr2r3r'r4r'r'r(r7�r8zcreatesubrwrapper.<locals>.addr9r<r=r>r?r@rArBrCrDrErFrGrHcrIr'r'rJrLr'r(rNrOz%createsubrwrapper.<locals>.<listcomp>zcall %s(%s)rPrQr)rrRrSrTrUrVrWrrrrXrYrZrr
r))r[r\r r!r]r^r_r`rarbr6r7r9rcr#r*rgr5rhr'rLr(�createsubrwrapper�s�
��
���
�
��rjcCs6t|�rxt|�}|d}td||f�t�|�}|}|}d|vr/|d}|d||d|<|d|}t|�sed|vrAg|d<|d�d�d}|dD]}|�d�rYd	}nqN|re|d�d
|�|g|d|ddd�<|t|�fSt|�r�t|�}|d}td||f�t�|�}|t	|�fS|d
fS)Nr9z6		Creating wrapper for Fortran function "%s"("%s")...
�resultr r/�outrzout=rzout=%sr*z8		Creating wrapper for Fortran subroutine "%s"("%s")...
r)
rrr�copyr
rUrZrirrj)r[rcr9�fname�rname�fvar�flagr^r'r'r(�assubrsH�

��
rr)NN)r)�__doc__�__version__�f2py_versionrm�auxfuncsrrrrr	r
rrr
rrrrr)rirjrrr'r'r'r(�<module>s<

1
jS