Ë
|
Kñúhªx ã óÌ d Z ddlmZ ej ZddlZddlZddlZddlmZ ddl m
|
Z
|
m Z m Z ddl ddlmZ g d ¢Zg Zi ai Zi d
|
d d d d d d ddddddddddddddddddddddddddd Zi d
|
d d d d d d d dd!dd dd"dd#dd$dd%dd&d'd(dd)d*d+dd,dd-dd-d.d.d/¥Zi d
|
d0d d1d d2d d3dd4dd3dd5dd6dd7dd8dd9d'd:dd;d*d<dd=dd>dd?d@dAd/¥Zd0d1d3d3d5d7d9d:dBdBdBdCdAdD Zd d d
|
d d dEddddddddd*dF ddddddGddddddEdd ddddHdIdidId
|
idId idJaej3 e « ej3 e
|
« et0 e e« \ aZ ej8 t0 « Z g a dK Z i d
|
dLd dLd dMd dNddNddOddPddQddNddRddSd'dTddSddUddUddVddWddXi¥Z dY Z!dZ Z"d[ Z#dgd\Z$d] Z%d^ Z&d_ Z'd` Z(da Z)db Z*dc Z+dhddZ,de Z-df Z.y)ia
|
Copyright 1999 -- 2011 Pearu Peterson all rights reserved.
|
Copyright 2011 -- present NumPy Developers.
|
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.
|
é )Ú __version__é N)Úcb_rules)Ú iso_c2py_mapÚiso_c_binding_mapÚisoc_c2pycode_map)Ú*)Úmarkoutercomma) ÚgetctypeÚ getstrlengthÚ
|
getarrdimsÚ getpydocsignÚ getarrdocsignÚgetinitÚsign2mapÚ routsign2mapÚ modsign2mapÚ cb_sign2mapÚcb_routsign2mapÚcommon_sign2mapÚprocess_f2cmap_dictÚdoubleÚfloatÚ long_doubleÚcharÚintÚ signed_charÚ unsigned_charÚshortÚunsigned_shortÚlongÚ long_longÚunsignedÚ complex_floatÚcomplexÚcomplex_doubleÚcomplex_long_doubleÚstringÚ characterÚbytesÚ
|
NPY_DOUBLEÚ NPY_FLOATÚNPY_LONGDOUBLEÚNPY_BYTEÚ NPY_UBYTEÚ NPY_SHORTÚ
|
NPY_USHORTÚNPY_INTÚNPY_UINTÚNPY_LONGÚ unsigned_longÚ NPY_ULONGÚ NPY_LONGLONGÚunsigned_long_longÚ NPY_ULONGLONGÚ
|
NPY_CFLOATÚ NPY_CDOUBLEÚ
|
NPY_STRING)r( r) ÚdÚfÚgÚbÚBÚhÚHÚiÚIÚlÚLÚqÚQÚFÚDÚGÚSÚcÚNÚy) r r r r r r r! r" r$ r& r' r( r) )Ú Ú4Ú8Ú12Ú16) rQ Ú1Ú2rR rS ú-1z-2z-4z-8)rQ rS rU Ú24Ú32)rQ rV rW rR rS rQ )ÚrealÚintegerr% Ú complexkindÚlogicalzdouble complexzdouble precisionÚbytec óÂ t j t « a| "d} t j
|
j | « sy t d| d« t | « 5 }t |j « j « i i « }d d d « t t t d« \ aat d« y # 1 sw Y .xY w# t $ r}t! d| d« Y d }~y d }~ww xY w)Nz .f2py_f2cmapzReading f2cmap from z ...
|
Tz1Successfully applied user defined f2cmap changes
|
z-Failed to apply user defined f2cmap changes: z . Skipping.
|
)ÚcopyÚdeepcopyÚf2cmap_defaultÚ
|
f2cmap_allÚosÚpathÚisfileÚoutmessÚopenÚevalÚreadÚlowerr Úc2py_mapÚ f2cmap_mappedÚ ExceptionÚerrmess)Ú f2cmap_filer> r= Úmsgs úGH:\Change_password\venv_build\Lib\site-packages\numpy/f2py/capi_maps.pyÚload_f2cmap_filert sÉ ô ~Ó.JàÐà$ Üww~~kÔ*Ø ðTÜÐ& { o°VÐ<Ô=Ü +Ó ð / !ÜQVVX^^Ó% r¨2Ó.A÷ /ä$7¼
|
ÀAÄxÐQUÓ$VÑ!
|
MÜÐDÕE÷ /ð /ûô ò TÜÐ?À¸uÀMÐR×SÑSûðTús/ ¿B< Á*B0Â,B< Â0B9Â5B< Â< C ÃCÃC z%gz%Lgz%dz%hhuz%hdz%huz%uz%ldz%luz(%g,%g)z (%Lg,%Lg)z\"%s\"z'%c'c óx d}t | « r8d| v r| d }n| d }|| d v rt | d | « S t d| d« |S t | « r|S t | « ryt | « ryd | v r| d j « t v rh| d j « }t | }|d
|
}d | v rAd | d v r || d d }|S d| d v r%|dz t v r t |dz } || d d }|S |S t | « st d| d« |S # t $ r" t d | d dd d| d d d« Y |S w xY w# t $ rv |t v r t | } |t | d d « }nK# t $ r? t d |d| d d d|d|d| d d dt j « d « Y nw xY wY |S w xY w)z
|
Determines C type
|
ÚvoidÚresultÚnameÚvarsúgetctype: function ú has no return value?!
|
r) r( ÚtypespecrQ Ú kindselectorr z getctype: "ú z" not supported.
|
Úkindz(kind=z)" is mapped to C "z" (to override define dict(z = dict(z="<C typespec>")) in z/.f2py_f2cmap file).
|
z getctype: No C-type found in "z", assuming void.
|
) Ú
|
isfunctionr rp Ú issubroutineÚ ischaracter_or_characterarrayÚisstring_or_stringarrayrl rd ÚKeyErrorÚstrre ÚgetcwdÚ
|
isexternal)ÚvarÚctypeÚar| Úf2cmaps rs r r ½ sA ð EÜ#Ø s?ØH AàF AØ F Ñ ÜC K¨NÓ+Ð +ä Ð)¨!¨Ð,DÐEÔ FðD LôC
|
cÔ Ø Ü & sÔ +ØÜ Ô %ØØ sÑ s :× 4Ñ 4Ó 6¼*Ñ DØz?×(Ñ(Ó*ÜHÑ%Ør
|
Ø SÑ Øc.Ñ)Ñ)ðNØ " 3 ~Ñ#6°sÑ#;Ñ <Eð( Lð! 3~Ñ.Ñ.ØfÑ$¬
|
Ñ2Ü '¨°6Ñ(9Ñ :Fð
|
XØ " 3 ~Ñ#6°vÑ#>Ñ ?Eð L5Lô _ÜÐ0°°Ð5HÐIÔJØ Løô' ò NÝØ _ªc°3°~Ñ3FÀsÓ3Kð Mõ Nð$ Lð'Nûô ò XØ ¤:Ñ-Ü!+¨HÑ!5ðXØ &¤s¨3¨~Ñ+>¸vÑ+FÓ'GÑ HøÜ#ò XÝ Ú#+¨S° Ñ-@ÀÓ-HÊ%Ú#+¨S° Ñ-@ÀÓ-HÌ"Ï)É)Í+ð!Wö XðXûð LðXúsI Â5 D Ã! D: Ä 'D7Ä6D7Ä:F9ÅE*Å)F9Å*AF2Æ/F9Æ1F2Æ2F9Æ8F9c ó4 t j dd| « } | S )a^ Rewrite Fortran expression as f2py supported C expression.
|
|
Due to the lack of a proper expression parser in f2py, this
|
function uses a heuristic approach that assumes that Fortran
|
arithmetic expressions are valid C arithmetic expressions when
|
mapping Fortran function calls to the corresponding C function/CPP
|
macros calls.
|
|
z\blen\bÚ f2py_slen)ÚreÚsub)Úexprs rs Úf2cexprr ï s ô 66*k¨4Ó 0DØ Kó c ó¼ t | « r6d| v r| d }n| d }|| d v rt | d | « S t d| d« t | « st dt | « d« d}d | v r!| d }d
|
|v r|d
|
}nd |v rt |d « }t j d |« st j d |« r$t | « rt dt | « z « d}|S )Nrw rx ry zgetstrlength: function r{ z8getstrlength: expected a signature of a string but got: ú
|
rV Ú charselectorr Úlenz\(\s*(\*|:)\s*\)z(\*|:)zMgetstrlength:intent(hide): expected a string with defined length but got: %s
|
rX ) Úisstringfunctionr rp ÚisstringÚreprr r ÚmatchÚ isintent_hide)r r r s rs r r þ s÷ ÜÔ Ø s?ØH AàF AØ F Ñ Ü F¡ ¨A¡Ó/Ð /ä Ð-¨a¨SÐ0HÐIÔ JÜ C=ÜØFÄtÈCÃyÀkÐQSÐ Tô Và
|
CØÑ Ø Ñ Ø !8ØC&CØ aZÜ!E(Ó#CÜ xxÐ# SÔ)¬R¯X©X°iÀÔ-EÜ Ô Ü ÐdÜS ñô àØ Jr c ó¸ i }t |« r%t |« st |« |d< d|d< d|d< |S t |« rd|d< d|d< d|d< |S t |« rït j |d « }dj |« |d< t t |d « « |d< d j |« |d< t t |« « |d< t t |« d
|
gz « d d
|
|d < t t |« « D ] }g }|| t v r|| g}n9t D ]0 }t j d |z || « s |j |« 2 |D ]4 }t j |« t j | « kD s/d||< d\ |d< }|D ] }|d z }|dvs d|d ||fz |d< |d r |d d d
|
|d< d\ |d< }|d D ]i }|d z }|dvrd|d ||fz |d< t! |« r t# d|z « d|d |dfz |d< C|sFt% dt | « dt |« d« k |d r |d d d
|
|d< |S # t $ r Y ¶w xY w)NÚsizeÚ0ÚrankrQ ÚdimsrV Ú dimensionr ú,éÿÿÿÿr z rank*[-1]z .*?\b%s\b.*)rQ r£ Úsetdims)r ú:z(*)z(:)z%s#varname#_Dims[%d]=%s,Ú cbsetdimsz?getarrdims:warning: assumed shape array, using 0 instead of %r
|
r z5getarrdims: If in call-back function: array argument z# must have bounded dimensions: got r )r Úisarrayr Úisscalarra Újoinr rj ro r ÚrangeÚdepargsr r ÚappendÚindexÚ isintent_inrh rp ) r r ÚverboseÚretÚdimrD ÚvÚvar= s rs r r s Ø
|
CÜ}W S\Ü" 3Ó'F ØF ØF ðj Jôi
|
# ØF ØF ØF ðb Jôa
|
ÜiiKÑ(Ó)ØhhsmF ð Ü t C¨¡KÓ 0Ó1CKð hhsmF Ü3s8nF Ü ¤ C£¨B¨4¡Ó0°°2Ð6KÑÜs3x ò AØAØ1vÑ ØVHä!ò %BÜxx °Ñ 3°S¸±VÕ<Ø ð%ð ò Ü== Ó$¤w§}¡}°QÓ'7Ó7Ø CFÙñ ð ð #ÑIØò *AØAAØÐ0Ò0Ø!;Ø N A qð?*ñ "*Ið *ð
|
y>Ø ^¨C¨RÐ 0C NØ $ÑKÑ!Ø[Ñ!ò EAØAAØÐ0Ñ0Ø#=Ø Ñ$ a¨ðA,ñ $,KÒ ä SÔ!ÜÐZØ ñ ô à#=Ø Ñ$ a¨ðA,ñ $,KÒ âÜØKÌDÐQRËGÈ9ÐTwÔx|Ð}~Óxð xAð ACð DõEð Eð {Ò Ø " ;Ñ /°°Ð 4C Ñ ð JøôW ò Ú ð ús ÂI É IÉIc ó t |« r8d|v r|d }n|d }||d v rt ||d | « S t d| d« y| | }}d}t |« rd}n t |« rd }| }t |« r|d
|
D ] }|d d d k( s |d d } n d}t |« } t |« rt | |« \ }}
|
d |
|
}t |« rOt |« r | d|dt | dt | d| }n| d| dt | | }| dt | }||fS t |« rMt |« r| d|dt |« d|}n| d| dt |« d| }| dt |« d}||fS t |« r|d } t t! | « « } | d|d| dt | dd j# | « d| }| |k( r(| d | dt | dd j# | « d}||fS |d | dt | dd j# | « d | d
|
}||fS t% |« rXd} | t& v rAt& | t( v r2d t( t& | v r t( t& | d } | | k( sd!| } nd} | d"| }|}||fS t d#| d$« ||fS )%Nrw rx ry rz r{ ©rQ rQ rQ Úinputz in/outputÚintenté úout=z, optional\n Default: z : z rank-0 array(ú,'ú')r~ z rank-0 array(string(len=ú),'c')z string(len=ú)z : string(len=r¡ z rank-ú array('ú') with bounds (r¢ ú : rank-z) and z storageÚargnamez => z : call-back functionz2getpydocsign: Could not resolve docsignature for "z".
|
)r r rp r® Úisintent_inoutÚ isintent_outr Ú hasinitvaluer r¨ rm Ú c2pycode_mapr r r§ r r r© r Úlcb_mapÚlcb2_map)r r ÚafÚsigÚsigoutÚoptÚout_aÚkÚinitr Úshowinitr± r Úuas rs r r W s ä#Ø s?ØX BàVBØ VÑ Ü C¨¡K°¡OÓ4Ð 4ä Ð)¨"¨Ð-EÐFÔ GØØQCØ
|
CÜ3ÔØÜ Ô ØØ EÜCÔØX ò AØ!uØ!"Ùð ð DÜ SMEäCÔÜ C hØ+¨H¨:Ð6Ü}Ü #Ô Ú9:ºCÄÈ%à Ü9EÀeÓ9LÉdðTCð Cs3%q¤¨%¡ Ð 1°$°Ð8CØ7#h uoÐ .Ð/ðD ;ÐôC
|
# Ü #Ô â3 SÕ)©4ð1Cð Cs3%|¬L¸Ó,=Ð+>¸aÀ¸vÐFCØ7.¬ °cÓ):Ð(;¸1Ð=ð6 ;Ðô5
|
Ø+Ñ ÜCH~ÚDEÂsÊDÜDPØHMóEOàDGÇHÁHÈSÅMÑSWðYð :âdL¨Ó /°·±¸#µ ð@Fð$ ;Ðò $¤ ¨UÓ 3°S·X±X¸cµ]ÂAðGFð ;Ðô
|
C Ø Ø <G AJ¬(Ñ 2°yÄHÌWÐUVÉZÑDXÑ7XÜ' !*Ñ% iÑ0BØ7ØB4[àØÐ(¨¨Ð-Øð ;Ðô Ø@ÀÀÀ4Ð Hô Jà ;Ðr c óJ t |« }t |« r t |« s| dt |« d}|S t |« r| dt
|
| dt | d}|S t |« r=|d }t t |« « }| d|dt | d d
|
j |« d }S ) Nz : rank-0 array(string(len=r¼ z : rank-0 array(rº r» r¡ rÀ r¾ r¿ r¢ r½ )
|
r r r§ r r¨ rm rÅ r r r© )r r r rÉ r± r s rs r r s¸ Ü SMEÜ}g clØÐ.¬|¸CÓ/@Ð.AÀÐJð Jô
|
# ØÐ#¤H¨U¡OÐ#4°C¼ ÀUÑ8KÐ7LÈCÐPð Jô
|
Ø+Ñ ÜCH~Ú?@Â$Ü?KØCHó@Jà?B¿x¹xȽ}ðNð Jr c óh t |« rd\ }}nd\ }}t |« rï|d }|}t |« s t |« ri } |d }d|v r't |dd « j d« \ |d< |d < n>t |i i « }t |j « t |j « c|d< |d < t |« rd |d d|d d}||fS t |« r8|sd\ }}|d dk( rd|dd j dd« z }|d dk( r d|dd d}||fS # t $ r t d
|
| d | d « w xY w)N)z""z''rµ ú=r¢ r r£ ú@,@úinit.rúinit.iz2getinit: expected complex number `(r,i)' but got `z' as initial value of ú.z
|
(capi_c.r=z
|
,capi_c.i=z,capi_c)r ú'z"%s"ú"z\")r rÄ Ú iscomplexÚiscomplexarrayr
|
Úsplitrj r
r[ Úimagro Ú
|
ValueErrorr§ Úreplace)r r rÎ rÏ r° r² s rs r r ° s Ü}Ø#hà hÜCÔØ3xØÜ S>^¨CÔ 0ØCð
|
oØHØ!8Ü3AØ!Bó4!ß!&¡ u£ ñ 1CM 3 x¢=ô Q BAÜ36°q·v±v³;ÄÀAÇFÁFà Ð0CM 3 x¡=ô s|Ø# C¨¡M ?°*¸SÀ¹]¸OÈ8ÐTð >Ðô c]ÙØ!+hØAw#~Ø a¨ ×!3Ñ!3°C¸Ó!?Ñ@ØAw#~Ø t A bzl¨!Ð,Ø >Ðøô ò oÜ ØIÈ$ÈÐOfÐghÐfkÐklÐmóoð oð oús ÁA.D Ä D1c ó¢ t | « s t | « r"t | « }| d j d|« }|S t | « s t | « ryy)Nr Úf2py_lenrV )r Ú isstringarrayr ÚgetÚ ischaracterÚischaracterarray)r Úelsizes rs Ú
|
get_elsizerç Ò sN Ü} cÔ*Ü cÓ"à^Ñ$×(Ñ(¨°VÓ<Ø Ü3ÔÔ+¨CÔ0Øð r c
|
ó | }t |« r|d D ] }|dd dk( s |dd } n | |t |« d}g }t j « D ]" \ }} ||« s|j d| « $ |rdj |« |d< nd|d< t |« rd |d
|
< n |d t v rt |d |d
|
< nd |d
|
< t | |« \ |d < |d< t |« r?t |« r4t |« s)t |d dd « j d« \ |d< |d< t |« r¤| |d< | t v ret | |d< t t | d |d< t t | d |d< t t | d |d< t t | d |d< n2| |d< t! d | d t# t j% « « d « t' |« rt) |« |d < t |« r.t+ |t- | |« « }t/ j. |d « }|d t0 v r t0 |d |d!< t3 |« |d"< t5 |« rg t6 d#t d$t8 d%t: d&t< d't> d(t d)tA tB tE t « « d*t& d+t d,tF d-tH d.tJ d/tA tL tE tJ « « d0t d1tN d1tP d2} g }
|
tS d3tU | « d4« D ]% } | | |« s|
|
j | | dz « ' t' |« r|
|
j d5| d6|d « t |« r5d7j tW d8 |d « « } |
|
j d9| d:« t |« r!d;| d<|d d=d7j |
|
« |d>< n&d;|d d?| d@|d d=d7j |
|
« |d>< tC |« r |d tX v rd;| d@tX |d |dA< t' |« r dB| dC| dD|dA< t |« r d;| dE|dA< |d tX v r%dF| d@tX |d |dG< tX |d |dH< t' |« r dI| dC| dD|dG< t[ | |« \ |dJ< |dK< t] |« r|dL |dL< |S )Mz
|
varname,ctype,atype
|
init,init.r,init.i,pytype
|
vardebuginfo,vardebugshowvalue,varshowvalue
|
varrformat
|
|
intent
|
r· Nr¸ r¹ )ÚvarnameÚ
|
outvarnamer ÚF2PY_ú|ÚF2PY_INTENT_INrO Ú
|
varrformatr ÚOrÎ rÏ r r£ rÔ rÕ rÖ Ú cbnamekeyÚcbnameÚ
|
maxnofargsÚ
|
nofoptargsÚdocstrÚcbdocstrÚ latexdocstrÚ cblatexdocstrz sign2map: Confused: external z is not in lcb_mapz.
|
Úlengthr¡ Úatyperæ r¶ ÚoutputÚinoutputÚrequiredÚoptionalÚhiddenzcomplex scalarÚscalarr( Úarrayz complex arrayz string arrayzcomplex functionÚfunctionÚcallbackÚ auxiliaryr é zslen(z)=r¢ c ó | d| S )Nrì © )ÚxrP s rs ú<lambda>zsign2map.<locals>.<lambda>. s A 3 a¨ s r zdims(r½ ú debug-capi:z=>r¥ Ú vardebuginfor~ rÓ Úvardebugshowvalueúdebug-capi:slen(ú)=%d ú=\"%s\"z=%pz#name#:Ú varshowvalueÚshowvalueformatz #name#:slen(Ú pydocsignÚ pydocsignoutÚnote)/rà r Ú isintent_dictÚitemsr¬ r© r§ Úc2buildvalue_mapr rÄ rÚ r
|
rÜ r rÆ rÇ rp ÚlistÚkeysr r Ú
|
dictappendr ra Ú
|
c2capi_maprç Ú debugcapir® r Ú
|
isrequiredÚ
|
isoptionalr Úl_andr¨ Úl_notrÛ râ Úiscomplexfunctionr Úisintent_callbackÚ isintent_auxrª r ÚmapÚ cformat_mapr Úhasnote) r r rÌ rÍ r° Ú intent_flagsr> Úsr± ÚilÚrlrD Úddims rs r r à s¶ ð EÜCÔØX ò AØ!uØ!"Ùð ð u´xÀ³}Ñ
|
ECØLÜ ×#Ñ#Ó%ò -1Ù S6Ø × Ñ %¨ s Õ ,ð-ñ à Ó.H à(H Üs|Ø LÒØ W Ô)Ñ )Ü ,¨S°©\Ñ :LÒà LÑÜ#*¨1¨c£?Ñ CKZ ÜCÔY s^´G¸C´LÜ'5Ø K"Ð ó( ß $u U|ñ %H s8}ä#Ø KÑØ <Ü # AJCMÜ (¬°©Ñ 4°\Ñ BC Ñ Ü (¬°©Ñ 4°\Ñ BC Ñ Ü &¤w¨q¡zÑ 2°8Ñ <C
|
OÜ#+¬G°A©JÑ#7¸ Ñ#FCÒ à CMÝ Ú4 Õ'ð)ô *ä}Ü$ SÓ)H Üs|Üj¨¨CÓ 0Ó1ÜiiKÑ(Ó)Ø
|
7|zÑ!Ü! # g¡,Ñ/G Ü" 3H ä
~ð kð 7ð ¤Lð °(ð Ü ð Ø (ð Ü*4ð Ø6@ð äð à$ð ä&3ð à5=ð ô ð ð *ð ô He¤IÓ .Ó/ð ð 2:ð ô
|
ð ð
|
!ð ô
|
#*ð ð
|
,3ð ô ð ð .ð ô 0=ð ð ?Mð ô ð ð "4ð ô J¤Ô&7Ó 8Ó9ð ð <Fð ô ð ð %ð ô ð ð ",ð ô ð ð (ð ð Üq#b' 1Ó%ò %AØr!uSzØ "Q U)Õ$ð %ô C=Ø IIaS 3 x¡= /Ð2Ô 3Ü 3<Ø88ÜÑ+¨S°Ñ-=¸sÓCóEDà IIdV 1oÔ &Ü c?Ø$/°¨s°"°S¸±]°OÀ1ÀSÇXÁXÈbÃ\ÀNÐ"SCÒ ð ð G a Z£ °#·(±(¸2´,ð#@CÑ ä C=Ø7|{Ñ*Ø-8¸¸¸1¼[ÈÈWÉ Ñ=VÐ<WÐ+XÐ'Ñ(Ü C=â1ð(CÐ#Ñ $ä c?Ø)4°Q°C°sÐ';CÐ#Ñ $Ø
|
7|{Ñ"Ø '¨ s¨!¬K¸¸G¹ Ñ,EÐ+FÐ GNÑÜ$/°°G± Ñ$=Ð#>Ð Ñ Ü
}ÚDEÂqÐ INÑÜ,8¸¸CÓ,@Ñ)C Ñc.Ñ)Üs|Ø&kF Ø Jr c óÄ | d }t | « }||j dd« |j « |j « t |« t d| « ||j « t | « xs dt | « xs dt | « xs dd }d|v rd|d< nd|d< d|v rd |d
|
< nd
|
|d
|
< i ad | v r| d j « D ]~ }|t j v st j | D ]S }|d }d | d | v r6| d | d j « D ] }| d | d | |d k( s|} n |d t |< U n2| j d« r!t d|d dt | d « d« t | t « xs d|d< t! | « r$d| v r| d }n| d }||d< t# || « \ |d< |d< t% | d | « |d< t' | « r| d | d |d< d g| d | d< |d t( v rt( |d |d < n d |d < t d t |d « z « t+ | « r7|d t, v rd |d!t, |d |d"< t/ | « r d#|d$|d%|d"< t/ | « r;t1 | d | « |d&< |d& d'k( r t d(t | d « z « d)|d&< t3 | « r| d |d< d g| d< |S )*zV
|
name,NAME,begintitle,endtitle
|
rname,ctype,rformat
|
routdebugshowvalue
|
rx Ú_ú\_úend of rQ ) rx ÚtexnameÚ
|
name_lowerÚNAMEÚ
|
begintitleÚendtitleÚ fortrannameÚ FORTRANNAMEÚ callstatementÚusercodeÚ usercode1Ú F_FUNC_USÚF_FUNCÚF_WRAPPEDFUNC_USÚ F_WRAPPEDFUNCÚuser r# r Ú externalsz!routsign2map: Confused: function z has externals z but no "use" statement.
|
Úcallprotoargumentrw Úrnamer r ry r r Ú
|
resultnoteúSee elsewhere.Úrformatrï z.routsign2map: no c2buildvalue key for type %s
|
r rÓ Úroutdebugshowvaluer r r ÚrlengthrX zzroutsign2map: expected explicit specification of the length of the string returned by the fortran function %s; taking 10.
|
Ú10)Úgetfortrannamerß rl ÚupperÚgentitleÚgetcallstatementÚ getusercodeÚ getusercode1rÆ r r Úcb_maprã rp r Úgetcallprotoargumentr r r Ú hasresultnoter r r$ r r r% ) Úroutrx Úfnamer° ÚuÚunÚlnrÍ r s rs r r H sW ð <DÜ 4Ó EØØll 3¨Ó.Ø Ø::<Ü! $ Ü '¨$¨Ð 0Ó1Ø Ø ++-Ü ,¨TÓ 2Ò 8°bÜ" 4Ó(Ò.¨BÜ$ TÓ*Ò0¨bñ Cð e|Ø#H à H Ø
|
d{Ø 1OÒ à .OÑ ØGØ }Øe×!Ñ!Ó#ò (AØHOOÒ#Ü"//¨!Ñ,ò (BØABØ U¡ ¨A¡Ñ.Ø!% e¡¨Q¡ °Ñ!6×!;Ñ!;Ó!=ò &AØ # E{¨1~¨eÑ 4°QÑ 7¸2¸a¹5Ó @Ø%& Ù %ð&ð #% Q¡%GBKñ(ñ (ð
|
+Ô ÝØ Kd ;Ñ /Õ0ð2ô 3ä 3°D¼'Ó BÒ HÀbCÐÑ Ü$ÕØ tÑ ØXAàV AØG Ü0<¸QÀÓ0EÑ-KÑ#nÑ-Ü V¡ ¨Q¡Ó0G Ü Ô Ø $ V¡ ¨Q¡°Ñ 7C Ñ Ø'7Ð&8DLOFÑ #Ø w<Ô+Ñ +Ü -¨c°'©lÑ ;C Nà C NÜ ÐEÜ#g,Ó'ñ)ô *ä T?Ø7|{Ò*â{ 3 w¡<Ò0ð-2Ð(Ñ)ä Õ%âqð-Ð(Ñ)ä DÔ !Ü )¨$¨v©,°q©/Ó :C NØ9~ Ò%Üð VÜf Ó&ñ(ô )à!%IÜt}Ø6lF Ø(Ð)V Ø Jr c ó t | « r.| d | d j « | d j dd« d}n-| d | d j « | d j dd« d}t | « xs g |d< t | « r| d |d< t | « xs d|d < t | « xs d|d
|
< | d rt | d d « xs d|d < nd|d < t | « xs d|d< d| v r| d |d< d| v r| d |d< d| v r| d |d< |S )z
|
modulename
|
rx r, r- )Ú f90modulenameÚ F90MODULENAMEÚtexf90modulename)Ú
|
modulenameÚ
|
MODULENAMEÚ texmodulenameÚrestdocr rQ r7 r8 Úbodyr Úinterface_usercodeÚ pymethoddefÚgil_usedÚcoutputÚf2py_wrapper_output)ÚismodulerH rß Ú
|
getrestdocr% rK rL Úgetpymethoddef)Úmr° s rs r r sD ô {Ø ! &¡ Ø ! &¡ §¡Ó 1Ø#$ V¡9×#4Ñ#4°S¸%Ó#@ñBð vYØ vY__Ó .Ø ! &¡ × 1Ñ 1°#°uÓ =ñ?ô ]Ò( bC NÜqzØiF Ü! !nÒ*¨C
|
OÜ# AÒ,¨"C ÑØyÜ$/°°&± ¸!± Ó$=Ò$CÀÐ Ò!à$&Ð Ñ!Ü'¨Ó*Ò0¨bC ÑØQØJ-JØA~Ø9 IØ Ñ!Ø%&Ð'<Ñ%=Ð !Ñ"Ø Jr c ó^ d| i}|d |d< t |« |d< |d t v r t |d |d< t |« |d< |d t v rt |d |d< t |« rt |t | |« « }t | |« \ |d< |d< t |« r|d |d < d
|
g|d < |S ) Nré Ú varname_ir rù ræ r r r r rB ) r r rç r$ r§ r r r r% )r r r r° s rs r r ¸ sÎ Ø a.CØ9~C ÑÜC=CLØ
|
7|zÑ!Ü! # g¡,Ñ/G Ü" 3H Ø
|
7|{Ñ"Ü$/°°G± Ñ$=Ð#>Ð Ñ Üs|Üj¨¨CÓ 0Ó1Ü,8¸¸CÓ,@Ñ)C Ñc.Ñ)Üs|Ø&kF Ø'Ð(F Ø Jr c ó^ d| d d| dd}t | « rBd| d v rd}nd}| d | d j « d
|
| d j « d |d < d |d< n |d |d < d|d< | d |d< t |d « |d< t d|d « |d< t | « |d< d|d< |d dk( rd|d< n|d |d< |d dk7 rt | « rd|d< nd|d< |d t v rt |d |d< t | « rt | « |d< t | « red | v r| d }n| d }t | d | « r| d | d |d < d g| d | d < ||d < t || « \ |d!< |d"< t | « r d#|d< nt | « r| d |d < d g| d < d$}d$}d%| v rGd | v rC| d% D ]; }| d | } t t t « |« s&|d&z }t |« s7|d&z }= t! |« |d'< t! |« |d(< t | « r t | « rd | v r| d |d)< d g| d < |S )*z\
|
name,begintitle,endtitle,argname
|
ctype,rctype,maxnofargs,nofoptargs,returncptr
|
Úcb_rx Ú_in_rQ )rx Ú
|
returncptrr, r9 r: ú(r¢ r½ Ú callbacknameÚexternÚstaticrÁ r2 r. r3 r rv Úrctyper( z3
|
#ifdef F2PY_CB_RETURNCOMPLEX
|
return_value=
|
#endif
|
rl z return_value=r Ú strlengthrw ry r rB r@ r r z8
|
#ifdef F2PY_CB_RETURNCOMPLEX
|
#ctype#
|
#else
|
void
|
#endif
|
r Úargsr rò ró Úroutnote)r! rl rH rI r r r$ r r r r% r Úl_orr® r r r )rP Úumr° r: r Únofargsró r s rs r r Ê sÚ ð
|
f d¨2¨$Ð/Øñ CäÔ Ø $v,Ñ Ø Fà FØ!' ¨¨$¨v©,×*<Ñ*<Ó*>Ð)?¸qÀÀfÁ ×ASÑASÓAUÐ@VÐVWÐ XNÑØ H à ! &kNÑØ H Ø&\C NÜ V¡Ó-C ÑÜ ¨¨V©¨ Ð 6Ó7C
|
OÜD>CLØCMØ
|
7|xÒ Ø H àG H Ø
|
8}Ò Ü TÔ "ð!C Ò ð !0C Ñ Ø
|
7|{Ñ"Ü$/°°G± Ñ$=Ð#>Ð Ñ ÜÔ Ü'¨Ó-KÑÜ$ÔØ tÑ ØXAàV AÜ 4< ?Ô #Ø v, q/¨&Ñ1CKØ'7Ð&8DLOFÑ #ØG Ü0<¸QÀÓ0EÑ-KÑ#nÑ-Ü TÔ "ð CMô
|
Ø6lF Ø(Ð)V ØGØJØ ~& D.Øf ò 0AØv,q/CØ0tK¤ Ó0°Õ5Ø! A+Ü c?Ø!+¨a¡ Jð 0ô W C ÑÜ ZÓ(C ÑÜt} DÔ)¨h¸$Ñ.>Ø v,JØ(Ð)V Ø Jr c óÂ | t |« d}t |« rd|d< |d t v r t |d |d< t |« |d< |d t v rt |d |d< t |« rt |t | |« « }n t |« rt |« |d< d|d < t | |« \ |d
|
< |d < t |« r|d |d < d g|d < t | |« |d< |S )N)ré r r r rù ræ r r rV r r r r rB Ú arrdocstr) r râ r rç r$ r§ r r r r r r% r )r r r° s rs r r sø ؤ(¨3£-Ñ
|
0CÜSÔØ G Ø
|
7|zÑ!Ü! # g¡,Ñ/G Ü" 3H Ø
|
7|{Ñ"Ü$/°°G± Ñ$=Ð#>Ð Ñ Üs|Üj¨¨CÓ 0Ó1Ü # Ü" 3Ó'F ØF Ü,8¸¸CÓ,@Ñ)C Ñc.Ñ)Üs|Ø&kF Ø'Ð(F ä$ Q¨Ó,C ÑØ Jr )r )N)/Ú__doc__rQ r ÚversionÚ f2py_versionra re r r Ú _isocbindr r r ÚauxfuncsÚ crackfortranr
|
Ú__all__r« rÆ rÇ rm r rÅ r rd Úupdater r, rb rc rn rt r$ r r r r r r r rç r r r r r r r r rs ú<module>r sý ðñõ à×"Ñ" ã Û Û å ß IÑ Iô
|
Ý (ò ð Ø
|
Ø ð Hgð Ø Wð à 7ð ð Eð ð 5ð ð
|
Uð ð Uð ð eð ð 5ð ð Eð ð ð ð ð ð Yð ð ið ð " 9ð ð hð ð ð! ð&+h ð +Øð+à Ð /ð+ð
|
ð+ð ð +ð
|
zð +ð ð +ð ! ,ð+ð yð+ð Jð+ð
|
ð+ð ð+ð ^ð+ð % oð+ð ð +ð ! -ð +ð & }ð!+ð" 'Ø )ò%+
|
ð("#ð "Øð"à sð"ð ð"ð ð "ð
|
sð "ð ð "ð ! #ð"ð sð"ð Cð"ð ð"ð ð"ð Sð"ð % cð"ð ð "ð ! #ð "ð & sð!"ð" Ø ò%" ð* "Ø Ø Ø#&Ø Ø Ø Ø!$Ø%(Ø&)Ø+.Ø !Ø!$ñ &Ð ð #¨°xØ *°-ñAà #¨-¸gØ $¨;Ø /Ð7GØ *Ð2FñHð .°OØ 0Ð8MØ 5ñ7ð #2¸Ø#3Ð;PØ$9ñ ;ð $¨&°wÀUØ *ñ,à!#Ð%5Ð 6Ø#% x .Ø6lñ!
|
ð( × Ñ Ð%Ô &Ø Ô Ù#¤JÐ0AÀ8ÓL
|
Aà zÓ*à òTð4xð Øðà eðð tðð dð ð
|
ð ð ð ð ðð dðð 4ðð uðð ðð Eðð ðð ð ð % kð ð ð!ð" Fñ# ò./òd ò ó8:òzFòR ò òD ò eòPNòb ó>ò$JóZr
|
