ó 2ÄÈ[c@`sÍdZddlmZmZmZddd!ZdZddlZdd lm Z m Z m Z m Z m Z mZmZmZmZmZmZmZmZddd „Zdd „Zdd „Zd „ZdS(sW Rules for building C/API module with f2py2e. Copyright 1999,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: 2004/11/26 11:13:06 $ Pearu Peterson i(tdivisiontabsolute_importtprint_functions$Revision: 1.16 $i iÿÿÿÿs See `f2py -v`Ni( tgetfortrannamet isexternalt isfunctiontisfunction_wrapt isintent_int isintent_outtislogicalfunctiontismoduleroutinetisscalart issubroutinetissubroutine_wraptoutmesstshowcC`sN|dkr|}n||kr=t|ƒtd|ƒdSd||krmt||ƒtd|ƒdS||d}|dkr²d||kr²d|||df}ni}d}d||krå||d}d }n'd ||kr ||d }d }nd |kr“|rU|d dkr;d|}qd|||d f}q|d dkr|d||d f}qd||d f}nsd |krãd||d f}d |krÖd||d f}qd|}n#d |krd||d f}nd||f}d||krJd|dj||dƒf}n|S(Ns1var2fixfortran: No definition for argument "%s". tttypespecs/var2fixfortran: No typespec for argument "%s". ttypettypenames%s(%s)t kindselectortkindt charselectortlent*t:s(*)s %s(len=*)s %s(%s=%s)s%s*(%s)s%s*%ss %s(len=%ss %s,kind=%s)s%s)s %s(kind=%s)s%s %st dimensiont,(RRs(*)(RR(tNoneRRtjoin(tvarstatfatf90modetvardeftselectortlk((s3/tmp/pip-build-fiC0ax/numpy/numpy/f2py/func2subr.pytvar2fixfortransP            $cC`st|ƒst‚g}|d}x¹|dD]­}|d|}x–t|jdgƒƒD]|\}}|dkrZd||f}tdddd gƒ} d ||f| d <|j|ƒ| ||<||d|R?R@RRRARBRCRDRERFR,R-R.RGR!R&RKR+RL((s3/tmp/pip-build-fiC0ax/numpy/numpy/f2py/func2subr.pytcreatesubrwrapperºs| %                 . cC`sžt|ƒr?t|ƒ}|d}td||fƒtj|ƒ}|}|}d|kr€|d}|d||d|RGR.tfnametrnametfvartflagRB((s3/tmp/pip-build-fiC0ax/numpy/numpy/f2py/func2subr.pytassubr sB           (t__doc__t __future__RRRt __version__t f2py_versionRQtauxfuncsRRRRRRR R R R R RRRR%RMRNRV(((s3/tmp/pip-build-fiC0ax/numpy/numpy/f2py/func2subr.pyts  X1 j P