ó ‡Uc@s¬dZddd!ZddlZejZddlZddlZejjZej jZ ejZ ddl Tddl Z ddlZddlmZdd„Zd „ZdS( sL 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 s$Revision: 1.19 $i iÿÿÿÿN(t*(t rmbadnameic Csg}t|ƒrx¡|djƒD]U}i}x(|d|D]}|d|||W|j||d||fƒq#Wn7t|ƒr¶x(|dD]}|t|dƒ}q–Wn|rg}g}x?|D]7} | d|krÏ|j| dƒ|j| ƒqÏqÏW|S|S(Ntcommontvarstbodyi(t hascommontkeystappendthasbodytfindcommonblocks( tblockttoptrettnRtvtbttrettnamestt((s;/usr/lib/python2.7/site-packages/numpy/f2py/common_rules.pyR !s& %  c Csigd6gd6dgd6}dg}|d„}dg}|d„}dg}|d„}dg}|d „} x:t|ƒD],\} } } | jƒ} gg}}x;| D]3}t| |ƒrÔ|j|ƒq®|j|ƒq®W|rtd | d j|ƒd j|ƒfƒntd | d j|ƒfƒ|d | ƒ|dƒx$| D]}|tj| |ƒƒqSW| dkr™|dd j| ƒƒn|d| d j| ƒfƒ|dd j|ƒƒ|dƒ|d| ƒg}x°|D]¨}tj | |ƒ}tj |}tj || |ƒ}|drP|jd|dƒn |jdƒ|dj ƒ}|s|d}n|d||d||fƒqòW|dƒt |ƒ}d jtd„|ƒƒ}|d| |fƒ|dƒx"|D]}|d| |fƒqôW|dƒd | kr1d!}nd"}|d#|| | jƒd jd$gt|ƒƒfƒ|d%| ƒ|d&|| | jƒ| fƒ|d'ƒ|d(| | | fƒ| jd d)ƒ}| d*|ƒ| d+ƒx…|D]}}| d,tj|| |ƒƒt| |ƒrí| |d-}t|ƒtgƒkrYd.j|ƒ}n| d/|ƒqíqíW| d0ƒ|djd1| d jtd2„||ƒƒfƒqW||d<||d<|d3|d4assstatic void f2py_setup_%s(%s) {s int i_f2py=0;s! f2py_%s_def[i_f2py++].data = %s;t}t_t F_FUNC_UStF_FUNCs3extern void %s(f2pyinit%s,F2PYINIT%s)(void(*)(%s));schar*s static void f2py_init_%s(void) {s* %s(f2pyinit%s,F2PYINIT%s)(f2py_setup_%s);s} sP F2PyDict_SetItemString(d, "%s", PyFortranObject_New(f2py_%s_def,f2py_init_%s));s\_s&\subsection{Common block \texttt{%s}} s\begin{description}s\item[]{{}\verb@%s@{}}tnotes s--- %ss\end{description}s " /%s/ %s\n"cSs||S(N((Rtd((s;/usr/lib/python2.7/site-packages/numpy/f2py/common_rules.pyR!}sitlatexdoci(R tlowert isintent_hideRtoutmesstjoint func2subrtvar2fixfortrant capi_mapstgetctypet c2capi_mapt getarrdimststripRtmaptuppertlentreplacet getarrdocsignthasnotettype(tmR tfwrapRtchooksRtihooksRtdocRtnametvnamesRt lower_namethnamestinamesR tidimstcttattdmtdmstinames1t inames1_tpsR%ttnameR&((s;/usr/lib/python2.7/site-packages/numpy/f2py/common_rules.pyt buildhooks6sœ           ,         "       !    7   (t__doc__t __version__tversiont f2py_versiontpprinttsyststderrtwriteterrmesststdoutR+tshowtauxfuncsR/R-t crackfortranRR RM(((s;/usr/lib/python2.7/site-packages/numpy/f2py/common_rules.pyts