1j.& l d Z ddlZddlmZmZmZmZmZmZm Z m
Z
m Z m Z m
Z
mZmZ d dZd
dZd
dZd ZdS ) aW
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
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-