G [ r d Z ddlmZ ej ZddlmZmZmZm Z m
Z
ddlm Z ddlm Z ddl
mZ d
dZd Zd S ) aM
Build common block mechanism for f2py2e.
Copyright 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: 2005/05/06 10:57:33 $
Pearu Peterson
) __version__)hasbody hascommonhasnote
isintent_hideoutmess) capi_maps) func2subr) rmbadnamec g }t rG d D ]+\ }} fd|D }| |||f ,n-t r d D ]}|t |d z }|rEg }g }|D ]<} | d |vr0| | d | | =|S |S )Ncommonc . i | ]}|d | S )vars ).0vblocks k/builddir/build/BUILD/cloudlinux-venv-1.0.10/venv/lib64/python3.11/site-packages/numpy/f2py/common_rules.py
z$findcommonblocks.. s$ 888QQf
a(888 body )r itemsappendr findcommonblocks)
r topretkeyvaluevars_btretnamests
` r r r s
C / ///11 , ,JC8888%888E JJUE* + + + + ,
/v / /A(A...CC
At5 QqT""" A Jr c p
g g dgd}dg}|fd}dg}|fd}dg}|fd}dg}|fd} t | D ]\ }
} } |
}
g g }}| D ]B}t | | r| | -| | C|r@t d|
d d
| d d
| d n)t d|
d d
| d |d
|
z |d | D ] } |t
j | | !|
dk r" |dd
| z n$ |d|
dd
| |dd
| z |d |d|
z g }|D ]}t j | | }t j
| | }t j | }t j || | }|d r | d|d z n| d |d
}|sd} |d|d|d d |d |d |d |d t | }d
d! |D } |d"|
d#|d$ |d% |D ]} |d&|
d'|d( |d) d*|
v rd+}nd,} |d-|d.|
d/|
d0d
d1gt! | z d2 |d3|
z |d4|d.|
d/|
d5|
d6 |d7 |d8|
d9|
d6 |d: |d;|
z |d< |
d*d= } | d>|z | d? |D ]} | d@t j || | z t' | | rF| | dA }t) |t* rd | } | dB|z | dC |dD dE|
dd
t- dF || dG ||dH< ||dI< |dJ |dK< t! |dD dLk rd|dD< ||dJ fS )MNz"COMMON blocks:\n") commonhooksinitcommonhooksdocs c & |d d| |d< d S )Nr z
r liness r faddzbuildhooks..fadd4 s !"1tt,!r c & |d d| |d< d S Nr
r r+ s r caddzbuildhooks..cadd8 Q444&!r c & |d d| |d< d S r0 r r+ s r iaddzbuildhooks..iadd< r3 r c & |d d| |d< d S r0 r r+ s r daddzbuildhooks..dadd@ r3 r z) Constructing COMMON block support for "z "...
,z
Hidden: r1 z subroutine f2pyinit%s(setupfunc)zexternal setupfunc_BLNK_z common %szcommon /z/ zcall setupfunc(%s)zend
z'static FortranDataDef f2py_%s_def[] = {dimsz(%s)z-1z {"z",rankz,{{z}},z, z},z
{NULL}
};c g | ]}d |z S )zchar *r )r r- s r
z buildhooks..l s > > >1 > > >r zstatic void f2py_setup_(z) {z int i_f2py=0;z f2py_z_def[i_f2py++].data = ;}_ F_FUNC_USF_FUNCz extern void z (f2pyinitz ,F2PYINITz
)(void(*)(zchar*z));z static void f2py_init_%s(void) { z
)(f2py_setup_z);z}
z tmp = PyFortranObject_New(f2py_z_def,f2py_init_z if (tmp == NULL) return NULL;z= if (F2PyDict_SetItemString(d, "%s", tmp) == -1) return NULL;z Py_DECREF(tmp);z\_z&\subsection{Common block \texttt{%s}}
z\begin{description}z\item[]{{}\verb@%s@{}}notez--- %sz\end{description}r( z" /c | |z S )Nr )r ds r z buildhooks.. s
A r z\n"r& r' r latexdocr )r lowerr r r joinr
var2fixfortranr getctype
get_elsize
c2capi_map
getarrdimsstripr upperlenreplace
getarrdocsignr
isinstancelistmap) mr fwrapr. chooksr2 ihooksr5 docr7 namevnamesr
lower_namehnamesinamesnidimsctelsizeatdmdmsinames1 inames1_tpsrC tnamerE s r
buildhooksrm / s )* , ,C
DE - - - -TF ' ' ' 'TF ' ' ' '
$C ' ' ' ' 0 3 3 MY MY vtZZ\\
R ! !A T!W%%
!
a
a ) Gchhv&&&&(8(8(8(8:
;
;
;
;
Gchhv&&&&(
)
)
)
/$
6777
!""" 4 4A D)$22 3 3 3 3 8 D 0 01 2 2 2 2 DDTTT388F+;+;+;< = = =
!SXXf%5%5
6777 W
6$
?@@@
5
5A#DG,,B )$q'22F%b)B%aa11B&z
! Vr&z 23333 R V*""$$C
DDAAr&zzz333FFF4
5
5
5
5 ^ F##hh > >g > > >?? $$$
DEEE
C CA DDqqqA B B B B S * FF F
DJJLLLL'S\\122224 5 5 5
/$
6777
DJJLLLL$$$8 9 9 9 U ttt
TUUU
.///
O
!!! S%((
8E
BCCC
#$$$ ( (A D+)!T!W557
8
8
8tAw
(Awv dD)) + 99T??DX&'''
!""" F $chhs3E3Evu/U/U&V&V&V&V W Y Y Y Y C
#C!fC
O
3v;1 F a=r N)r )__doc__r) r version f2py_versionauxfuncsr r r r r r r
crackfortranr r rm r r r rs s
" # # # # # # (f f f f fr