y
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
isfunctionisfunction_wrap isintent_in isintent_outislogicalfunctionismoduleroutineisscalar issubroutineissubroutine_wrapoutmessshowc ||}|| vr#t | t d|z dS d| | vr)t | | t d|z dS | | d }|dk r d| | v r|d| | d d}i }d}d | | v r| | d }d
}nd | | v r| | d }d }d
|v rK|r"|d
dv rd|z }nu|d|d|d
d}nc|d
dv r|d|d
d}nJ|d
|d
}n*
47 " "7>*
h ;} 111$/(.HSMMMB}
**&,ffhsmmm<$*FFHSMM: H $*FFHUOO.>.>?F
#Fd1g #VVSXXd1gk.B%C%C%C%CD M c l t | sJ g | d }| d D ]}| d | }t | dg D ]V\ }}|dk rKd|d|}t ddg }d
|d |d |d
< | |||< ||d |< W| d t
} dg}
|
fd} | d t | } t | }
dz }||vr | ||< |g| d dd z }n |g| d z }t |d|
}|d d dk rJ|
rd|dd z }n
d|dd z }| d }| dd dk rd|d< |
d| }d }d | }|
ra|
d d }fd |D }|| d< | d | d d d |d |s | d!| d d"| n> | d#d |d | s* | d$| z |
dd d%z | z }| rT| d& d' D ]8}|
d! rd(|vr | | 9|dd }g }|D ]:}t || r# | d$|z | | ;|D ]L}||v rt! || r0 | t |||
) | | M|D ]L}||v rt# || r0 | t |||
) | | M|D ]"}||v r | t |||
) # | | | | | | r<|
rn9 | d* | | d&
| d+ d fd,|D }|s8t% | r | |d-| d.|d/ n | |d0| d.|d |
r | d1| d d n | d2 |
d3 S )4Nr$ argsr! r f2py__dintegerhider intentshape(, r r r c & |d d| |d< d S Nr z
linerets r+ addz createfuncwrapper..add^ #&q666440Ar- namez
%sf2pywrapr z
@@@NAME@@@
z
character*(*)zcharacter(len=10)z character*10r r r 10c g | ]
}|k | S r: r: ).0argr@ s r+
z%createfuncwrapper..~ s 333sd{{{{{r- subroutine f2pywrap_
modulename_ (use , only : subroutine f2pywrap external %sr saved_interface
__user__r' interface
end interfacec g | ]}|v| S r: r: rD r%
extra_argss r+ rF z%createfuncwrapper.. # >>>Q!:*=*=q*=*=*=r- z = .not.(.not.r z))z = end subroutine f2pywrap_endr )r enumerategetdictappendextendboolr r r, replacer# splitlstrip
startswithr r r r
)rout signaturer$ r% viddndvneed_interfacer= r> fortrannamer' newnamer/ l_tmpl
charselectl1rlsargsr< dumped_argsrW r@ s @@r+ createfuncwrapperru J sS d J >>-.QQ23!!"%%% R$&+q! ' L
###*%%N
$C 1 1 1 1
>F
crc{o%% 2(6"##;6FF#fRSSk1F$Z/
>>#r " "e + + "JsO g . .B
B IIdOOE F
kkk2..3333t333V
,
uuu
. / / / I CCtL'9'9'9;;G H H H DDD%%% 8999 F C
- . . . b11C7+EB *+11$77 D{{}}''//
Jd4J4JD 8DK
" " d1g " C
# $ $ $ q ! ! !
" " DG " CtQ888 9 9 9 q ! ! !
" " tAw " CtQ888 9 9 9 q ! ! !
6 6 N4G 4 4 45555CGGG ~ B ! ! C C&'..00 1 1 1 C II>>>>$>>> ? ?E ? T " " ? CWWWkkk555I J J J J C+++uuu= > > > tL/A/A/A44 HIIII E
q6Mr- c t | sJ g | d }| d D ]}| d | }t | dg D ]V\ }}|dk rKd|d|}t ddg }d
|d |d |d
< | |||< ||d |< W| d t
} dg}
|
fd} | d } t | }
t | }| d }d | }|r5 | d| d d| d|d |s | d| d d|
n" | d| d|d | s | d|
z | rT| d
d D ]8}| d rd|vr | | 9g }|D ]:}t || r# | d|z | | ;|D ]L}||v rt || r0 | t ||| | | M|D ]"}||v r | t ||| #| rn|rnk | d | d
d D ]9}| d rd|v r. | | : | d d fd |D }|s | d |
d!|d |r | d"| d d| n | d# |
d$ S )%Nr$ r/ r! r r0 r1 r2 r3 r4 r6 r7 r r r c & |d d| |d< d S r9 r: r; s r+ r> z createsubrwrapper..add r? r- r@ rG rH rI rJ rK rL rM rN rO rP rQ rR rS rT c g | ]}|v| S r: r: rV s r+ rF z%createsubrwrapper.. rX r- zcall r rY rZ r )r
r[ r\ r] r^ r_ r` r r r# rb rc rd r r r, )re rf r$ r% rg rh ri rj rk rl r= r> r@ rm r' r/ rs r< rt rW s @r+ createsubrwrapperry s J >>-.QQ23!!"%%% R$&+q! ' L
###*%%N
$C 1 1 1 1 >>>$>>> ? ?E 2 [[[%%% 0111 tL/A/A/A44 HIIII E
q6Mr- c t | rt | }| d }t d|d|d t j | } |}|}d| v r | d }| d | | d |< | d | }t | sjd|vrg |d< |d d d }|d D ]}| d
rd } n |r |d d |z |g| d
z | d
d d < | t | fS t | rRt | }| d }t d|d|d t j | } | t | fS | dfS )Nr@ z) Creating wrapper for Fortran function "z"("z")...
resultr$ r5 outr zout=r zout=%sr/ z+ Creating wrapper for Fortran subroutine "r )
r r r copyr r^ rd ru r ry )re rm r@ fnamernamefvarflagrh s r+ assubrr s t -$T** F| DD+++ y t NE"&v,u"5DL F|E"D!!
:t##!#X N ! !% ( ( (D(^
<<'' DE
:X%%h%&8999 'DL0V QQQ&t,,,, -$T** F|44& ' ' 'y&t,,,, 8Or- )NN)r )__doc__r} auxfuncsr r r r r r r
r r r
r r r r, ru ry r r: r- r+ r s
. . . .bt t t tnP P P Pf! ! ! ! !r-