|
Server : Apache System : Linux iad1-shared-b8-43 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64 User : dh_edsupp ( 6597262) PHP Version : 8.2.26 Disable Function : NONE Directory : /lib/python3/dist-packages/numpy/f2py/__pycache__/ |
Upload File : |
o
6��a�$ � @ 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 u r|}|| vrt | � td| � dS d| | vr*t | | � td| � dS | | d }|dkrDd| | v rDd|| | d f }i }d}d| | v rW| | d }d }nd
| | v re| | d
}d }d |v r�|r�|d d
v rvd| }nLd|||d f }nB|d dv r�d||d f }n3d||d f }n*d |v r�d||d f }d |v r�d||d f }nd| }n d |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�f90mode�vardef�selector�lk� r' �6/usr/lib/python3/dist-packages/numpy/f2py/func2subr.py�var2fixfortran sP
r) c s� t | �sJ �g � | d }| d D ]=}| d | }t|�dg ��D ],\}}|dkrLd||f }tddgd�}d ||f |d
< � �|� |||< ||d |< q q| d �� � t� �} d g}
|
fd d
�} | d } t| �}
t| �}d| }||vr�|| ||< |g| d dd � }n|g| d }t || ||�}|d d� 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 �argsr r � f2py_%s_d%s�integer�hide�r �intent�
shape(%s, %s)�=r c S � d|d | f |d< d S �Nz %s
%sr r' ��line�retr' r' r( �addb � z createfuncwrapper.<locals>.add�namez
%sf2pywrapr �
z
character*(*)zcharacter(len=10)z character*10r r r �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|�qS r' 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�boolr r r) r �split�lstrip�
startswithr r
r r )�rout� signaturer r! �v�i�d�dn�dv�need_interfacer6 r7 r9 � fortrannamer# �newnamer* �l�
charselect�sargsr5 � dumped_argsr' rL r( �createfuncwrapperN s�
��
�� �
�
�
�
�ri c s� t | �sJ �g � | d }| d D ]=}| d | }t|�dg ��D ],\}}|dkrLd||f }tddgd�}d ||f |d
< � �|� |||< ||d |< q q| d �� � t� �} d g}
|
fd d
�} | 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 ]}||v r�q�t|| �r�| t|||d�� |�|� q�|D ]}||v r�q�| t|||d�� q�| �r2|�r n&| d� | d �
d�D ]}|� � � d��r(d|v �r(�q| |� �q| d� d� � fd d �|D ��}|�sI| d |
|f � |�rZ| d | d | f � |
d! S | d � |
d! S )"Nr r* r r r+ r, r- r. r0 r1 r c S r2 r3 r' r4 r' r' r( r7 � r8 z createsubrwrapper.<locals>.addr9 r< r= r> r? r@ rA rB rC rD rE rF rG rH c rI r' r' rJ rL r' r( rN rO z%createsubrwrapper.<locals>.<listcomp>z call %s(%s)rP rQ r )r rR rS rT rU rV rW r r r rX rY rZ r r
r) )r[ r\ r r! r] r^ r_ r` ra rb r6 r7 r9 rc r# r* rg r5 rh r' rL r( �createsubrwrapper� s�
��
�� �
�
� �rj c C s6 t | �rxt| �}| d }td||f � t�| �} |}|}d| v r/| d }| d | | d |< | d | }t|�sed|vrAg |d< |d �d� d}|d D ] }|�d�rYd } nqN|re|d �d
| � |g| d | d d d �< | t| �fS t| �r�t| �}| d }td ||f � t�| �} | t | �fS | d
fS )Nr9 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
rU rZ ri r rj )r[ rc r9 �fname�rname�fvar�flagr^ r' r' r( �assubr sH �
� �
rr )NN)r )�__doc__� __version__� f2py_versionrm �auxfuncsr r r r r r
r r r
r r r r r) ri rj rr r' r' r' r( �<module> s <
1
j S