a ;jg @spdZddlmZejZddlmZmZmZm Z m Z m Z ddlm Z ddlm Z ddlmZd ddZd d Zd S) a5 Build common block mechanism for f2py2e. Copyright 1999 -- 2011 Pearu Peterson all rights reserved. Copyright 2011 -- present NumPy Developers. 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. ) __version__)hasbody hascommonhasnote isintent_hideoutmess getuseblocks) capi_maps) func2subr) rmbadnamec sg}trFdD]*\}}fdd|D}||||fqn$trjdD]}|t|d}qV|rg}g}|D](} | d|vrz|| d|| qz|S|S)Ncommoncsi|]}|d|qS)vars).0vblockrA/usr/local/lib/python3.9/site-packages/numpy/f2py/common_rules.py z$findcommonblocks..body)ritemsappendrfindcommonblocks) rtopretkeyvalueZvars_bZtretnamestrrrrs"   rc Csggdgd}dg}|fdd}dg}|fdd}dg}|fdd }dg}|fd d } t|D]j\} } } | } gg}}| D]&}t| |r||q||q|rtd | d |d |fntd| d |f|d| t|D]}|d|q|d| D]}|t| |q| dkrL|dd | n|d| d | f|dd ||d|d| g}|D]}t | |}t | |}t j |}t || |}|dr|d|dn |d|d}|sd}|d||d|||fq|dt|}d dd|D}|d | |f|d!|D]}|d"| |fqf|d#d$| vrd%}nd&}|d'|| | d d(gt|f|d)| |d*|| | | f|d+|d,| | f|d-|d.| |d/| d$d0}| d1|| d2|D]Z}| d3t || |t| |r>| |d4}t|trd5|}| d6|q>| d7|d8d9| d td:d;||fq^||d<<||d=<|d>|d?<t|d8d@krd|d8<||d>fS)ANz"COMMON blocks:\n") commonhooksinitcommonhooksdocscSsd|d|f|d<dS)Nz %s %srrlinesrrrfadd/szbuildhooks..faddcSsd|d|f|d<dSNz%s %srrr&rrrcadd3szbuildhooks..caddcSsd|d|f|d<dSr*rr&rrriadd7szbuildhooks..iaddcSsd|d|f|d<dSr*rr&rrrdadd;szbuildhooks..daddzF Constructing COMMON block support for "%s"... %s Hidden: %s ,z7 Constructing COMMON block support for "%s"... %s z subroutine f2pyinit%s(setupfunc)zuse zexternal setupfuncZ_BLNK_z common %szcommon /%s/ %szcall setupfunc(%s)zend z'static FortranDataDef f2py_%s_def[] = {dimsz(%s)z-1z {"%s",%s,{{%s}},%s, %s},Zrankz {NULL} };cSsg|] }d|qS)zchar *r)rr(rrr irzbuildhooks..zstatic void f2py_setup_%s(%s) {z int i_f2py=0;z! f2py_%s_def[i_f2py++].data = %s;}_Z F_FUNC_USF_FUNCz3extern void %s(f2pyinit%s,F2PYINIT%s)(void(*)(%s));zchar*z static void f2py_init_%s(void) {z* %s(f2pyinit%s,F2PYINIT%s)(f2py_setup_%s);z} z5 tmp = PyFortranObject_New(f2py_%s_def,f2py_init_%s);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@{}}note z--- %sz\end{description}r$z " /%s/ %s\n"cSs||S)Nr)rdrrrrzbuildhooks..r"r#rZlatexdocr)rlowerrrrjoinrr Zvar2fixfortranr ZgetctypeZ get_elsizeZ c2capi_mapZ getarrdimsstripr upperlenreplaceZ getarrdocsignr isinstancelistmap)mrZfwrapr)Zchooksr+Zihooksr,docr-nameZvnamesr Z lower_nameZhnamesZinamesnZusenameZidimsctZelsizeatdmZdmsZinames1Z inames1_tpsr3Ztnamer4rrr buildhooks*s                            rHN)r)__doc__r%rversionZ f2py_versionZauxfuncsrrrrrrr r Z crackfortranr rrHrrrrs