y
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.12/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