fume-manage-python.git

U  
P±d&ã@srdZddlZddlmZmZmZmZmZmZm    Z    m
Z
mZmZm Z mZmZd ddZdddZdd    d
ZddZdS)aW
 
Rules for building C/API module with f2py2e.
 
Copyright 1999,2000 Pearu Peterson all rights reserved,
Pearu Peterson <pearu@ioc.ee>
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: 2004/11/26 11:13:06 $
Pearu Peterson
 
éNé) ÚgetfortrannameÚ
isexternalÚ
isfunctionÚisfunction_wrapÚisintent_inÚisintent_outÚislogicalfunctionÚismoduleroutineÚisscalarÚissubroutineÚissubroutine_wrapÚoutmessÚshowcCsÈ|dkr|}||kr,t|td|dSd||krTt||td|dS||d}|dkrd||krd|||df}i}d}d||kr®||d}d    }nd
||krÊ||d
}d}d|kr6|r|dd krðd|}nd|||df}n0|ddkr$d||df}nd||df}nZd|krvd||df}d    |krld||d    f}nd|}nd    |krd||d    f}d||f}d||krÄd|d ||d¡f}|S)Nz1var2fixfortran: No definition for argument "%s".
ÚÚtypespecz/var2fixfortran: No typespec for argument "%s".
ÚtypeÚtypenamez%s(%s)ZkindselectorÚkindÚcharselectorÚlenÚ*)rú:ú(*)z    %s(len=*)z    %s(%s=%s))rrz%s*(%s)z%s*%sz    %s(len=%sz%s,kind=%s)z%s)z%s(kind=%s)z%s %sÚ    dimensionú,)rrÚjoin)ÚvarsÚaÚfaÚf90modeZvardefÚselectorZlk©r"úKd:\z\workplace\vscode\pyvenv\venv\Lib\site-packages\numpy/f2py/func2subr.pyÚvar2fixfortransP
 
 
 
 
 
r$cs
t|stg|d}|dD]z}|d|}t| dg¡D]X\}}|dkr@d||f}tddgd}d    ||f|d
< |¡|||<||d|<q@q |d ¡t}    dg}
|
fdd }|d}t|} t    |}d|}||kr||||<|g|ddd}n|g|d}t
||d|}|dddkr|rXd|dd}nd|dd}||d}| dd¡dkrd|d<| d|¡}d}d |¡}|rà|d|d||f|s|d|d| fn6|d||f|    s|d| | dd¡d | }|    rT|d!  d"¡D](}| ¡ d#¡r*d$|kr*||q*|dd}g}|D]*}t||rh|d|| |¡qh|D]>}||krªqt||r|t
|||d%| |¡q|D]>}||krîqÜt||rÜ|t
|||d%| |¡qÜ|D]&}||kr2q |t
|||d%q |||dk    rb|||    r|rpn |d&||d! ¡|d'd fd(d)|D¡}|sÞt|rÌ|d*|| |fn|d+|| |f|rú|d,|d|fn|d-|
d.S)/NrÚargsrrúf2py_%s_d%sÚintegerÚhide©rÚintentú shape(%s, %s)ú=rcSsd|d|f|d<dS©Nz%s
      %srr"©ÚlineÚretr"r"r#Úadd^szcreatefuncwrapper.<locals>.addÚnamez
%sf2pywraprz
@@@NAME@@@é z character*(*)zcharacter(len=10)zcharacter*10rrrÚ10ú, úsubroutine f2pywrap_%s_%s (%s)Ú
modulenameúuse %s, only : %súsubroutine f2pywrap%s (%s)úexternal %sú Úsaved_interfaceÚ
úuse Ú__user__©r Ú    interfaceú end interfacecsg|]}|kr|qSr"r"©Ú.0r©Ú
extra_argsr"r#Ú
<listcomp>sz%createfuncwrapper.<locals>.<listcomp>z%s = .not.(.not.%s(%s))z%s = %s(%s)úend subroutine f2pywrap_%s_%sÚendr)rÚAssertionErrorÚ    enumerateÚgetÚdictÚappendÚextendÚboolrr
r$ÚreplacerÚsplitÚlstripÚ
startswithrrrr    )ÚroutÚ    signaturerrÚvÚiÚdÚdnÚdvÚneed_interfacer0r1r2Úfortrannamer Znewnamer%Zl_tmplZ
charselectÚl1ZrlÚsargsr/Údumped_argsr"rEr#ÚcreatefuncwrapperJs´
 
 
ÿ
 
 
 
 
racsÞt|stg|d}|dD]z}|d|}t| dg¡D]X\}}|dkr@d||f}tddgd}d    ||f|d
< |¡|||<||d|<q@q |d ¡t}    dg}
|
fdd }|d}t|} t    |}|d}d 
|¡}|r&|d|d||f|sH|d|d| fn"|d||f|    sH|d| |    r|d d¡D](}| ¡  d¡r\d|kr\||q\g}|D]*}t||r|d|| |¡q|D]>}||krÐq¾t||r¾|t|||d| |¡q¾|D]&}||krq|t|||dq|    r|r8nL|d|d d¡D],}| ¡  d¡rpd|krpqN||qN|dd 
fdd|D¡}|s²|d| |f|rÎ|d|d|fn|d |
d!S)"Nrr%rrr&r'r(r)r+r,rcSsd|d|f|d<dSr-r"r.r"r"r#r1Ïszcreatesubrwrapper.<locals>.addr2r5r6r7r8r9r:r<r=r>r?r@rArBcsg|]}|kr|qSr"r"rCrEr"r#rGsz%createsubrwrapper.<locals>.<listcomp>zcall %s(%s)rHrIr)rrJrKrLrMrNrOrPrr
rrRrSrTrrr$)rUrVrrrWrXrYrZr[r\r0r1r2r]r r%r_r/r`r"rEr#Úcreatesubrwrapper»s
 
ÿ
 
rbcCs8t|rðt|}|d}td||ft |¡}|}|}d|kr^|d}|d||d|<|d|}t|sÊd|krg|d<|d d¡d}|dD]}| d¡rd    }q´q|rÊ|d d
|¡|g|d|ddd<|t|fSt|r0t|}|d}td||ft |¡}|t    |fS|d fS)Nr2z6        Creating wrapper for Fortran function "%s"("%s")...
Úresultrr*Úoutrzout=rzout=%sr%z8        Creating wrapper for Fortran subroutine "%s"("%s")...
r)
rrrÚcopyrrNrTrar rb)rUr]r2ÚfnameÚrnameZfvarÚflagrXr"r"r#ÚassubrsHÿ
 
 
ÿ
ri)NN)r)r)Ú__doc__reZauxfuncsrrrrrrr    r
rrr rrr$rarbrir"r"r"r#Ú<module>s<
1
q
S