ó ‡Uc@sdZddd!ZdZddlZddlZddlZejjZej jZ ejZ ddl Tddd„Zdd „Zd „ZdS( sV 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 s$Revision: 1.16 $i iÿÿÿÿs See `f2py -v`N(t*cCsN|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 charselectortlenRt: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,(RR s(*)(RR (tNonetshowtoutmesstjoin(tvarstatfatf90modetvardeftselectortlk((s8/usr/lib/python2.7/site-packages/numpy/f2py/func2subr.pytvar2fixfortransP            $icCs5t|ƒst‚dg}|d„}|d}t|ƒ}t|ƒ}d|}|d}||kr||||<|g|dd} n|g|d} t||||ƒ} d} | d d kr,d} |rèd | d } nd | d } ||d } | jddƒdkr,d| ds        0 B