/usr/local/lib64/python3.6/site-packages/numpy/f2py/__pycache__
Edit: /usr/local/lib64/python3.6/site-packages/numpy/f2py/__pycache__/func2subr.cpython-36.pyc (6683B)
3
Eg# @ s d Z ddd ZdZddlZddlmZmZmZmZm Z m
Z
m Z m Z m
Z
mZmZmZmZ ddd 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
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
isfunctionisfunction_wrap isintent_in isintent_outislogicalfunctionismoduleroutineisscalar issubroutineissubroutine_wrapoutmessshowc C s |d kr |}|| kr,t | td| dS d| | krTt | | td| dS | | d }|dkrd| | krd|| | d f }i }d}d| | kr| | d }d }n d
| | kr| | d
}d }d |kr6|r|d dkrd| }nd|||d f }n0|d dkr$d||d f }nd||d f }nZd |krvd||d f }d |krld||d f }nd| }nd |krd||d f }d||f }d| | krd|dj| | d f }|S ) Nz1var2fixfortran: No definition for argument "%s".
typespecz/var2fixfortran: No typespec for argument "%s".
typetypenamez%s(%s)Z kindselectorkind charselectorlen*:(*)z %s(len=*)z %s(%s=%s)z%s*(%s)z%s*%sz %s(len=%sz %s,kind=%s)z%s)z %s(kind=%s)z%s %s dimension,)r r r )r r )r r join)varsafaf90modeZvardefselectorZlk r# @/usr/local/lib64/python3.6/site-packages/numpy/f2py/func2subr.pyvar2fixfortran sP
r% c s t | s tg | d }x| d D ]~}| d | }xlt|jdg D ]X\}}|dkrDd||f }tddgd}d ||f |d
< j| |||< ||d |< qDW q"W | d j t } d g}
|
fd d
} | d } t| }
t | }d| }||kr|| ||< |g| d dd }n|g| d }t
|| ||}|d d dkr|r`d|dd }nd|dd }|| d }|jdd dkrd|d< dj |}|r| d| d | |f |s| d | d |
f n.| d | |f | s| d |
|d |
}| r>x0| d j d D ] }|j
jd!r | | q W |dd }g }x2|D ]*}t|| rT| d | |j| qTW xF|D ]>}||krqt|| r| t
|||d" |j| qW xF|D ]>}||krqt|| r| t
|||d" |j| qW x.|D ]&}||kr*q| t
|||d" qW | | | rx|rXn | d# | | d j
| d$ dj fd%d&|D }|st| r| d'||
|f n| d(||
|f |r| d)| d | f n| d* |
d+ S ),Nr argsr r z f2py_%s_d%sintegerhide)r intentz
shape(%s, %s)=r c S s d|d | f |d< d S )Nz %s
%sr r# )lineretr# r# r$ addb s z createfuncwrapper..addnamez
%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 %ssaved_interface
zuse )r! interfacez
end interfacec s g | ]}| kr|qS r# r# ).0r )
extra_argsr# r$
s z%createfuncwrapper..z%s = .not.(.not.%s(%s))z %s = %s(%s)z end subroutine f2pywrap_%s_%sendr )r AssertionError enumerategetdictappendextendboolr r r% r splitlstrip
startswithr r r r
)rout signaturer r viddndvneed_interfacer, r- r. fortrannamer! Znewnamer& lZ
charselectsargsr+ dumped_argsr# )r6 r$ createfuncwrapperN s
rO c s t | s tg | d }x| d D ]~}| d | }xlt|jdg D ]X\}}|dkrDd||f }tddgd}d ||f |d
< j| |||< ||d |< qDW q"W | d j t } d g}
|
fd d
} | d } t| }
t | }| d }dj
|}|r.| d| d | |f |sP| d| d |
f n"| d| |f | sP| d|
| rx0| d j dD ] }|j j
drf| | qfW g }x2|D ]*}t|| r| d| |j| qW xF|D ]>}||krؐqt|| r| t|||d |j| qW x.|D ]&}||kr q| t|||d qW | rf|rFn | d | | d j | d dj
fdd |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..addr. z, z subroutine f2pywrap_%s_%s (%s)r1 zuse %s, only : %szsubroutine f2pywrap%s (%s)z external %sr2 r3 zuse )r! r4 z
end interfacec s g | ]}| kr|qS r# r# )r5 r )r6 r# r$ r7 s z%createsubrwrapper..z call %s(%s)z end subroutine f2pywrap_%s_%sr8 r )r
r9 r: r; r< r= r> r? r r r r@ rA rB r r r% )rC rD r r rE rF rG rH rI rJ r, r- r. rK r! r& rM r+ rN r# )r6 r$ createsubrwrapper s|
rP c C s: t | rt| }| d }td||f tj| } |}|}d| kr^| d }| d | | d |< | d | }t|sd|krg |d< |d jd d}x |d D ]}|jdrd }P qW |r|d jd
| |g| d | d d d < | t| fS t| r2t| }| d }td ||f tj| } | 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= rB rO r rP )rC rK r. fnamernameZfvarflagrF r# r# r$ assubr sB
rW )NN)r )r )__doc__ __version__Z f2py_versionrS Zauxfuncsr r r r r r r
r r r
r r r r% rO rP rW r# r# r# r$ s <
1
j
P