rA d Z ddlZddlZddlZddlmZ ddlmZ ddlmZ g dZ ej
Z ej j
Zej Zi Zg ZdZd Zd Zd
Zd Zd Zd
Zd Zd Zd Zd Z d Z d Z d Z d Z d Z!d Z"d Z#d Z$d Z%d Z&d Z'd Z(d Z)d Z*d Z+d! Z,d" Z-d# Z.d$ Z/d% Z0d& Z1d' Z2d( Z3d) Z4d* Z5d+ Z6d, Z7d- Z8d. Z9d/ Z:d0 Z;d1 Zd4 Z?d5 Z@d6 ZAd7 ZBd8 ZCd9 ZDd: ZEd; ZFd< ZGd= ZHd> ZId? ZJd@ ZKdA ZLdB ZMdC ZNdD ZOdE ZPdF ZQdG ZRdH ZSdI ZTdJ ZUdK ZVdL ZWdM ZXdN ZYdO ZZdP Z[dQ Z\dR Z]dS Z^ePdTeQdUeRdVeSdWeVdXeUdYeMdZeZd[e\d\e]d]e^d^i Z_d_ Z`d` Zada Zbdb Zcdc Zddd Zede Zfdf Zgdg Zhdh Zidi Zjdj Zk G dk dlel Zm G dm dn Zndo Zodp Zpdq Zqdr Zrds ZsddtZtdu Zui fdvZvdw Zwdx Zxdy Zydz Zzd{ Z{d| Z|d} Z}d~ Z~d ZddZd Zi fdZdS )aW
Auxiliary functions for 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 (BSD style) LICENSE.
NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK.
$Date: 2005/07/24 19:01:55 $
Pearu Peterson
N)reduce ) __version__)cfuncs)X
applyrules debugcapi
dictappenderrmessgentitlegetargs2getcallprotoargumentgetcallstatementgetfortrannamegetpymethoddef
getrestdoc getusercode getusercode1hasbodyhascallstatement hascommon hasexternals hasinitvaluehasnote
hasresultnote
isallocatableisarrayisarrayofstrings ischaracterischaracterarray ischaracter_or_characterarray iscomplexiscomplexarrayiscomplexfunctioniscomplexfunction_warnisdoubleisdummyroutine
isexternal
isfunctionisfunction_wrapisint1 isint1array isinteger isintent_aux
isintent_cisintent_callback
isintent_copy
isintent_dict
isintent_hide isintent_inisintent_inoutisintent_inplaceisintent_nothide isintent_outisintent_overwrite islogicalislogicalfunctionislong_complex
islong_doubleislong_doublefunction islong_longislong_longfunctionismoduleismoduleroutine
isoptional isprivate
isrequired isroutineisscalarissigned_long_longarrayisstring
isstringarrayisstring_or_stringarrayisstringfunction issubroutineissubroutine_wrap isthreadsafe
isunsignedisunsigned_charisunsigned_chararrayisunsigned_long_longisunsigned_long_longarrayisunsigned_shortisunsigned_shortarrayl_andl_notl_oroutmessreplaceshow
stripcomma throw_error isattr_valuec ~ t dd r!t j | d S d S )Nverboser )optionsgetsysstdoutwrite)ts g/builddir/build/BUILD/cloudlinux-venv-1.0.10/venv/lib64/python3.11/site-packages/numpy/f2py/auxfuncs.pyrY rY A s> {{9a
c dt v S )Ncapi) debugoptionsvars rg r r F s
\ !!rh c B d| v o| d dk ot | S Ntypespec characterr' rl s rg _ischaracterrs J 0 Z K!? # rh c B d| v o| d dk ot | S ro rr rl s rg _isstringrv O rt rh c ( t | od| vS N charselectorrs rl s rg r r T s : s!::rh c @ t | ot | S Nr r rl s rg r r X s ( - - Bgcll2BBrh c > t | ot | S r| r} rl s rg r r \ s ( - - >'#,,>rh c ( t | od| v S rx rz rl s rg rJ rJ ` s 6 3!66rh c @ t | ot | S r| rJ r rl s rg rH rH d s "3 ' ' < ,< t | ot | S r| r rl s rg rI rI h s "3 ' ' 8GCLL8rh c D t | o| d d dk S )N dimensionz(*))rI rl s rg r r l s& ?#k"22"6%"??rh c * d| v ot | S Nr rr rl s rg r r r s # 5joo"55rh c ^ t | p t | pt | S r| )r rH r' rl s rg rF rF v s' @
@C AArh c N t | o| d dv S Nrp )complexzdouble complexrF rb rl s rg r! r! z s, C== @ 77: "? ?@rh c R t | o| d dk S )Nrp logicalr rl s rg r9 r9 $ C== =SWWZ 0 0I ==rh c R t | o| d dk S )Nrp integerr rl s rg r, r, r rh c R t | o| d dk S )Nrp realr rl s rg isrealr s$ C== :SWWZ 0 0F ::rh c | d d S # t $ r$ | d d cY S # t $ r Y Y d S w xY ww xY w)N kindselector*kindKeyErrorrl s rg get_kindr sq >"3'' ~&v. . . . DDD s
>
+>
:>:>c z | d dk o"t | dk ot | S Nrp r 1)rb r r rl s rg r* r* s? 77: ) + 6 SMMS 6)0 %56rh c | t | sdS | d dvrdS t | dk S )Nr rp r r 8rF rb r rl s rg r> r> sC C== q
wwz"888q C==C rh c t | sdS | d dk rdS t | dk S )Nr rp r -1r rl s rg rP rP B C== q
wwzi''q C==D rh c t | sdS | d dk rdS t | dk S )Nr rp r -2r rl s rg rT rT r rh c t | sdS | d dk rdS t | dk S )Nr rp r -4r rl s rg rO rO r rh c t | sdS | d dk rdS t | dk S )Nr rp r -8r rl s rg rR rR r rh c t | sdS | d dk sdS t | dk S )Nr rp r r r rl s rg r% r% sB C== q 77: & ( (q C==C rh c t | sdS | d dk sdS t | dk S )Nr rp r 16r rl s rg r< r< sB C== q 77: & ( (q C==D rh c J t | sdS t | dk S )Nr 32)r! r rl s rg r; r; s& S>> q C==D rh c N t | o| d dv S r )r rb rl s rg r" r" s, 3<< @ 77: "? ?@rh c x t | o+| d dk ot | dk S r r rb r rl s rg r+ r+ s; 3<< !CGGJ / /9 < ! SMMS !rh c t t | o)| d dv ot | dk S )Nrp r r r rl s rg rQ rQ < 3<< "CGGJ / /3I I " SMMT !"rh c t t | o)| d dv ot | dk S )Nrp r r r rl s rg rU rU r rh c t t | o)| d dv ot | dk S )Nrp r r r rl s rg isunsignedarrayr r rh c t t | o)| d dv ot | dk S )Nrp r r r rl s rg rS rS r rh c t t | o)| d dv ot | dk S )Nrp r r r rl s rg issigned_chararrayr < 3<< !CGGJ / /3I I ! SMMS !rh c t t | o)| d dv ot | dk S )Nrp r 2r rl s rg issigned_shortarrayr r rh c t t | o)| d dv ot | dk S )Nrp r 4r rl s rg issigned_arrayr r rh c t t | o)| d dv ot | dk S )Nrp r r r rl s rg rG rG r rh c d| v o d| d v S )Nattrspec allocatable rl s rg r r
s A #j/!AArh c * d| vpt | S r )rH rl s rg ismutabler s 3&7(3-- 88rh c
d| v S )N
modulenamer routs rg rA rA s
4 rh c " d| v o d| d k S )Nblockmoduler r s rg r@ r@ s d? 8x4= 88rh c " d| v o d| d k S )Nr functionr r s rg r( r( s d? :zT'] ::rh c p t | rdS t o t | ot | S Nr )r. wrapfuncsr( r' r s rg r) r) s: $ q DD)) D:d3C3C/CDrh c " d| v o d| d k S )Nr
subroutiner r s rg rL rL $ s d? <|tG} < t | pt | S r| )rA r r s rg requiresf90wrapperr < s 4 9OD$9$99rh c > t | pt | S r| )r( rL r s rg rE rE @ s d 1|D 1 11rh c t | sdS d| v r | d }n| d }|| d v rt | d | S dS Nr resultnamer )r( r9 r r s rg r: r: D ` d q4 N LDLf a ))) 1rh c t | sdS d| v r | d }n| d }|| d v rt | d | S dS r )r( r> r s rg r? r? P s` d q4 N LDL4<?+++ 1rh c t | sdS d| v r | d }n| d }|| d v rt | d | S dS r )r( r< r s rg r= r= \ s` d q4 N LDL T&\!_--- 1rh c t | sdS d| v r | d }n| d }|| d v rt | d | S dS r )r( r! r s rg r# r# h r rh c F t | rt d dS dS )Na **************************************************************
Warning: code with a function returning complex value
may not work correctly with your Fortran compiler.
When using GNU gcc/g77 compilers, codes should work
correctly for callbacks with:
f2py -c -DF2PY_CB_RETURNCOMPLEX
**************************************************************
r r )r# rY r s rg r$ r$ t s9 H I I I q 1rh c t | sdS d| v r | d }n| d }|| d v rt | d | S dS r )r( rH r s rg rK rK s` d q4 N LDLV Q((( 1rh c d| v o| d S )N externalsr r s rg r r s $ 44 #44rh c d| v o d| d v S )Nf2pyenhancements
threadsafer r s rg rN rN s" % 4 4 23 34rh c d| v o| d S )Nr r r s rg hasvariablesr s T> *d6l*rh c P d| v o"d| d v od| d vot | S )Nr optionalrequired)r6 rl s rg rB rB sB #
.*J"?
. c*o - I3CC3H3HIrh c d| v o d| d v S )Nr externalr rl s rg r' r' s >s:!>>rh c @ t | ot | S r| )rB r6 rl s rg rD rD s # 8#3C#8#88rh c d| vrdS d| d v rdS d| d v rdS d| d v rdS d| d v rdS d| d v rdS d | d v rdS dS )
Nintentr hider inplaceinoutinoutoutinr rl s rg r3 r3 s sq
X qCM!!q s8} q H
q#h- q#h- q 1rh c n d| v o1d| d v s
d| d v o d| d vod| d vo d| d vS )Nr r r r r r r rl s rg r4 r4 sg O
KCM!9 "% s8} $
K*.c(m*C
K #h- '
K,5S],JLrh c 2 d| dg v S )Nr r r rl s rg r7 r7 CGGHb)) ))rh c d| v oAd| d v p7d| d v o-d| d vo# t t t | S )Nr r r r )rX r4 r5 rl s rg r2 r2 sd O
D3x=!8 "C
c(m
# BCM(A B;T.*:;;C@@@Erh c " t | S r| )r2 rl s rg r6 r6 s S!! !!rh c 2 d| dg v S )Ncr r rl s rg r. r. s #''(B'' ''rh c 2 d| dg v S )Ncacher r rl s rg isintent_cacher s cggh++ ++rh c 2 d| dg v S )Ncopyr r rl s rg r0 r0 s SWWXr** **rh c 2 d| dg v S )N overwriter r rl s rg r8 r8 #''(B// //rh c 2 d| dg v S )Ncallbackr r rl s rg r/ r/ 2.. ..rh c 2 d| dg v S )Nr r r rl s rg r5 r5 s "-- --rh c 2 d| dg v S )Nauxr r rl s rg r- r- r rh c 2 d| dg v S )Naligned4r r rl s rg isintent_aligned4r r rh c 2 d| dg v S )Naligned8r r rl s rg isintent_aligned8r r rh c 2 d| dg v S )N aligned16r r rl s rg isintent_aligned16r# r rh INTENT_IN INTENT_INOUT
INTENT_OUT INTENT_HIDE INTENT_CACHEINTENT_COPTIONALINTENT_INPLACEINTENT_ALIGNED4INTENT_ALIGNED8INTENT_ALIGNED16c d| v o d| d v S )Nr privater rl s rg rC rC s =c*o!==rh c
d| v S )N=r rl s rg r r s #:rh c D t | sdS | d d dv S )Nr r2 )"')r rl s rg hasinitvalueasstringr6 s* q s8A;* $$rh c
d| v S )Nnoter rl s rg r r s S=rh c t | sdS d| v r | d }n| d }|| d v rt | d | S dS r )r( r r s rg r r s` d q4 N LDLtF|A''' 1rh c
d| v S )Ncommonr r s rg r r s
t rh c t | rdS t | r | d D ]}t | r dS dS )Nr bodyr )r r containscommon)r bs rg r> r> # sW qt}} f A a
qq
1rh c t | rdS t | sdS | d D ]}t | r dS dS )Nr r r= )r@ r containsmodule)r r? s rg rA rA - s\ q 5>> q
6] ! 11 1rh c
d| v S )Nr= r r s rg r r 8 s T>rh c $ t | d uS r| )r r s rg r r < s D ! ! --rh c dS )Nr r rl s rg istruerE @ 1rh c dS r r rl s rg isfalserH D rF rh c e Zd ZdS ) F2PYErrorN)__name__
__module__ __qualname__r rh rg rJ rJ H s Drh rJ c e Zd Zd Zd ZdS )r] c || _ d S r| )mess)selfrP s rg __init__zthrow_error.__init__N s
rh c < d|d| j d}t | )Nz
var = z
Message:
)rP rJ )rQ rm rP s rg __call__zthrow_error.__call__Q s$ 47CCCoo rh N)rK rL rM rR rU r rh rg r] r] L s2 rh r] c dg }}t t | D ]"}d|||fz }| d|z #t |dd | S )Nlambda v %s,f%d=f[%d]f%d(v)r z and rangelenappendevaljoinfl1l2is rg rV rV V su
B
3q66]] " "
r1aj
(
(a.!!!! 222w||B / / /0 1 11rh c dg }}t t | D ]"}d|||fz }| d|z #t |dd | S )NrW rX rY r z or rZ r` s rg rX rX ^ sr
B
3q66]] " "
r1aj
(
(a.!!!! 222v{{2/ 0 00rh c t d S )Nzlambda v,f=f:not f(v))r^ )ra s rg rW rW f s ' ( ((rh c J | d d dk S # t $ r Y dS w xY w)Nr fortranname r r r s rg r& r& j s? &'
6"<< qqs
""c | d d }|dk rt |s t d| d z t n# t $ r | d }Y nw xY w|S )Nr rh ri z"Failed to use fortranname from %s
r )r r
)r r s rg r r q s &'
6 2::N 9,-/
0
0
0N F| Ks rh c < g dg c} fd d D }|z d v rC d D ]}|v r| | D ]}||vr| | n | d z }|fS )Nr c R g | ]#}t d | r|v!|$S )r )r- ).0r r r s rg
z getargs2.. s@ " " "Q d6l1o1N1N "D== ==rh r r )rb keysr] )r r auxvarsr r s ` @rg r r s &"--NHd" " " " "$v,++-- " " "G T>DTj! # #ADyy""" # #A """ # T&\) >rh c d| vrd S d }| d dk r| d | d f}| d |d S )Nf2pymultilinesr z
python moduler r )r ks rg r r sT t##t A G}'' M4< ' ! % %a . ..rh c V dt | z
dz
dz }d|dz d| d|dz dS )NP z/*r z*/)r\ )r lns rg r r s>
s4yy.1
"BB #XXXtttR#XXX 66rh c d t | t rt t fd| g S | gS )Nc | || z S r| r )xyra s rg zflatlist.. s q11Q44x rh )rn rp r flatlist)lsts rg r r s7 #t BX777bAAA 5Lrh c 6 | r| d dk r
| d d S | S )Nr r r )ss rg r\ r\ s( QrUc\\"v
Hrh ri c
* t t r fdD S t t rfd D S dt z D ]}|dk r dv r|d v rd | }n}t | t r@ d|z | t | d|z | S )Nc 2 g | ]}t | S r rZ )r _m
defaultsepro s rg r zreplace.. s% 999R,,999rh c 2 g | ]}t | S r r )r r r r s rg r zreplace.. s% 999rAz**999rh r
separatorsforz#%s#)rn rp r rZ r_ r )ro r r r seps ``` rg rZ rZ s* !T :99999q9999#t :99999S9999
affhh
2
2 a A?);$;$;O$Q'CC C adD ! ! 2++flCHHXad^^,D,DEECC++flAaD11CC Jrh c , t |t r|D ]}t | | } | S | D ]Q}|d dk r|| v r1t | | t r | | g| |< t | | t rRt || t r| | || z | |< | | || t | | t rt || t re|dk r@|| D ]#}|| | vr|| | | | |< $%t | | || | |< F|| | |< S| S )Nr _r )rn rp r r ro r] dict)rdarr r k1s rg r r " s "d # #AB""BB
WWYY Q43;; 77"Q%%%
A1"Q%&&
9 beT** ( qEBqEMBqEEqELLA''''BqE4((
9 beT** 9O++"$Q%**,, 6 6B !A,.qE"I1b 6 !+2a5"Q% 8 81qEBqEE
Irh c i }t | t r.| D ])}t ||| }t || }d|v r n*|S d| v r | d | s|S d| v r7t d| d i|| }d|v rt j |d | D ]}|dk r | | ||< t | | t rt | | | ||< nt | | t rJg ||< | | D ]:}t ||i|| } || v r!|| | | ;n|d dk rt | | t rLg ||< | | D ]*}
t |
t j r |
| r t | | |
t rr| | |
D ]b}t |t r"t d|i|| }d|v r |d }nd }|| t || c| | |
}t |t r!t d|i| }d|v r |d }nd }|| t || ,n%t d
t | | z t || t r9t || d k r|| d ||< || g k r||= |S ) N_break_checkneedneedsr r r supertextri z applyrules: ignoring rule %s.
r )rn rp r r r append_needsr ro rZ r] r types FunctionTyper
rq r\ ) rulesr rm retru rrresr rd r r s rg r r ? s
C% AAq#&&B S"%%C2~~
5/%/#"6"6
'5=11c:: c>> G - - -
ZZ\\ * * 1XCF eAh $ $ ! H U1Xq))CFF
a$
'
' HCF1X
)
) A3//77FMM"Q%(((
) qTS[[
a$
'
' HCFAhmmoo
5
5 b%"455 5""S'' 5!%(2,55 5!&q" 9 9A )!T 2 2 +&0+q1A1c&J&J#.##5#5(+K(8AA(*A FMM'!Q-- 8 8 8 89 "!HRL%a.. '",k1-=q"A"AC *c 1 1$' $4$&A
gamm444'
5*
5U1XF G G G c!fd # # 3q6{{a QA1v||F Jrh )r r )ri )__doc__pprintrc r functoolsr ri r r __all__version f2py_versionstderrre r
r[ ra rk r rY r rs rv r r r rJ rH rI r r rF r! r9 r, r r r* r> rP rT rO rR r% r< r; r" r+ rQ rU r rS r r r rG r r rA r@ r( r) rL rM r^ r r rE r: r? r= r# r$ rK r rN r rB r' rD r3 r4 r7 r2 r6 r. r r0 r8 r/ r5 r- r r r# r1 rC r r6 r r r r> rA r r rE rH ExceptionrJ r] rV rX rW r& r rv r r
r r r r r r r r r\ rZ r r r rh rg r s
: " *
}
" " "
; ; ;C C C? ? ?7 7 7= = =9 9 9@ @ @ 6 6 6B B B@ @ @
> > >> > >; ; ; 6 6 6
! ! !! ! !! ! !! ! ! ! ! !! ! ! @ @ @
! ! !
" " "
" " "
" " "
" " "
! ! !
! ! !
! ! !
! ! !
B B B9 9 9 9 9 9; ; ;E E E = = =8 8 8
. . . : : :2 2 2
5 5 54 4 4
+ + +I I I
? ? ?9 9 9
$L L L * * *E E E " " "( ( (, , ,+ + +0 0 0/ / /. . .* * */ / // / /0 0 0 k>> |]M ZZ!#3"$5"$5#%7
> > > % % %
. . .
2 2 21 1 1) ) )
<4 4 4 ') $ $ $ $N/ / /: : :2 2 2
"/ / /7 7 7
& : ; ; ; ; ; ;rh