Ë
|
Kñúhm ã ó\ d Z ddlZddlZddlZddlZddlmZ ddlmZm Z ddl m
|
Z
|
g d¢Z ej Z ej Zi Zg ZdZd Zd Zd
|
Zd Zd Zd Zd Zd Zd Zd Zd Z d Z d Z d Z d Z d Z!d Z"d Z#d Z$d Z%d Z&d Z'd Z(d Z)d Z*d! Z+d" Z,d# Z-d$ Z.d% Z/d& Z0d' Z1d( Z2d) Z3d* Z4d+ Z5d, Z6d- Z7d. Z8d/ Z9d0 Z:d1 Z;d2 Z<d3 Z=d4 Z>d5 Z?d6 Z@d7 ZAd8 ZBd9 ZCd: ZDd; ZEd< ZFd= ZGd> ZHd? ZId@ ZJdA ZKdB ZLdC ZMdD ZNdE ZOdF ZPdG ZQdH ZRdI ZSdJ ZTdK ZUdL ZVdM ZWdN ZXdO ZYdP ZZdQ Z[dR Z\dS Z]dT Z^dU Z_eQdVeRdWeSdXeTdYeWdZeVd[eLd\e[d]e]d^e^d_e_d`i Z`da Zadb Zbdc Zcdd Zdde Zedf Zfdg Zgdh Zhdi Zidj Zjdk Zkdl Zldm Zmdn Zndo Zo G dp dqep« Zq G dr ds« Zrdt Zsdu Ztdv Zudw Zvdx ZwddyZxdz Zyi fd{Zzd| Z{d} Z|d~ Z}d Z~d Zd Zd Zd Zd Zdd
Zd Z
i fdZ ej dej « j Z ej dej « j Zd Zd ZddZy)a9
|
Auxiliary functions for f2py2e.
|
|
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 (BSD style) LICENSE.
|
|
NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK.
|
é N)Úreduceé )Ú __version__Úcfuncs)Úerrmess)`Ú
|
applyrulesÚ debugcapiÚ
|
dictappendr ÚgentitleÚgetargs2ÚgetcallprotoargumentÚgetcallstatementÚgetfortrannameÚgetpymethoddefÚ
|
getrestdocÚ getusercodeÚ getusercode1Ú getdimensionÚhasbodyÚhascallstatementÚ hascommonÚ hasexternalsÚ hasinitvalueÚhasnoteÚ hasresultnoteÚ isallocatableÚisarrayÚisarrayofstringsÚ ischaracterÚischaracterarrayÚ ischaracter_or_characterarrayÚ iscomplexÚiscstyledirectiveÚiscomplexarrayÚiscomplexfunctionÚiscomplexfunction_warnÚisdoubleÚisdummyroutineÚ
|
isexternalÚ
|
isfunctionÚisfunction_wrapÚisint1Ú isint1arrayÚ isintegerÚ isintent_auxÚ
|
isintent_cÚisintent_callbackÚ isintent_copyÚ isintent_dictÚ isintent_hideÚ isintent_inÚisintent_inoutÚisintent_inplaceÚisintent_nothideÚ isintent_outÚisintent_overwriteÚ islogicalÚislogicalfunctionÚislong_complexÚ islong_doubleÚislong_doublefunctionÚ islong_longÚislong_longfunctionÚismoduleÚismoduleroutineÚ
|
isoptionalÚ isprivateÚ
|
isvariableÚ
|
isrequiredÚ isroutineÚisscalarÚissigned_long_longarrayÚisstringÚ isstringarrayÚisstring_or_stringarrayÚisstringfunctionÚ issubroutineÚget_f2py_modulenameÚissubroutine_wrapÚ isthreadsafeÚ
|
isunsignedÚisunsigned_charÚisunsigned_chararrayÚisunsigned_long_longÚisunsigned_long_longarrayÚisunsigned_shortÚisunsigned_shortarrayÚl_andÚl_notÚl_orÚoutmessÚreplaceÚshowÚ
|
stripcommaÚ throw_errorÚ isattr_valueÚ getuseblocksÚprocess_f2cmap_dictÚcontainscommonÚcontainsderivedtypesc óp t j dd« r t j j | « y y )NÚverboser )ÚoptionsÚgetÚsysÚstdoutÚwrite)Úts úFH:\Change_password\venv_build\Lib\site-packages\numpy/f2py/auxfuncs.pyr] r] ; s' Ü{{9aÔ Ü
|
|
×ÑÕð !ó c ó dt v S )NÚcapi)Ú debugoptions©Úvars ro r r @ s Ø \Ð !Ð!rp c ó: d| v xr | d dk( xr t | « S ©NÚtypespecÚ character©r) rt s ro Ú _ischaracterr{ D ó. Ø Ð ò Z¡ °KÑ!?ò Ü#Ð ð rp c ó: d| v xr | d dk( xr t | « S rw rz rt s ro Ú _isstringr~ I r| rp c ó$ t | « xr d| vS ©NÚ charselector©r{ rt s ro r! r! N s Ü Ó Ò : °sÐ!:Ð:rp c ó4 t | « xr t | « S ©N©r! r rt s ro r r R s Ü (¨Ó -Ò B´g¸c³lÐ2BÐBrp c ó2 t | « xr t | « S r r
rt s ro r r V s Ü (¨Ó -Ò >´'¸#³,Ð>rp c ó$ t | « xr d| v S r r rt s ro rM rM Z s Ü Ó Ò 6 °3Ð!6Ð6rp c ó4 t | « xr t | « S r ©rM r rt s ro rK rK ^ s Ü " 3Ó 'Ò <´¸³ Ð,<Ð<rp c ó2 t | « xr t | « S r r rt s ro rL rL b s Ü " 3Ó 'Ò 8¬G°C«LÐ8rp c ó2 t | « xr | d d dk( S )NÚ dimensionéÿÿÿÿz(*))rL rt s ro r r f s# ô Ó Ò ? # kÑ"2°2Ñ"6¸%Ñ"?Ð?rp c ó& d| v xr t | « S ©Nr rz rt s ro r r l s Ø #Ð Ò 5¤j°£oÐ"5Ð5rp c óN t | « xs t | « xs t | « S r )r rK r) rt s ro rI rI p s! Ü Ò@¤¨£ Ò@´¸C³ Ð AÐArp c óB t | « xr | j d« dv S ©Nrx )Úcomplexzdouble complex©rI rj rt s ro r" r" t s' Ü C=ò @Ø 77:Ó Ð"?Ð ?ð@rp c óD t | « xr | j d« dk( S )Nrx Úlogicalr rt s ro r; r; y ó Ü C=Ò =SWW ZÓ 0°IÑ =Ð=rp c óD t | « xr | j d« dk( S )Nrx Úintegerr rt s ro r. r. } r rp c óD t | « xr | j d« dk( S )Nrx Úrealr rt s ro Úisrealr s Ü C=Ò :SWW ZÓ 0°FÑ :Ð:rp c ód | d d S # t $ r | d d cY S # t $ r Y Y y w xY ww xY w)NÚ kindselectorÚ*Úkind©ÚKeyErrorrt s ro Úget_kindr£
sM ðØ>Ñ" 3Ñ'Ð'øÜ ò ð Ø~Ñ& vÑ.Ò .øÜò Ú ð úðús
|
/ / +§/ª+«/c óf | j d« dk( xr t | « dk( xr t | « S ©Nrx r Ú1)rj r£ r rt s ro r, r, s8 Ø 77:Ó )Ñ +ò 6Ü SMSÑ ò 6Ü)0°« Ð%5ð6rp c ó^ t | « sy| j d« dvryt | « dk( S )Nr rx ©r r Ú8©rI rj r£ rt s ro r@ r@ s0 Ü C=ØØ
|
wwzÓÐ"8Ñ8ØÜ C=CÑ Ð rp c ó` t | « sy| j d« dk7 ryt | « dk( S )Nr rx r ú-1rª rt s ro rT rT ó/ Ü C=ØØ
|
wwzÓiÒ'ØÜ C=DÑ Ð rp c ó` t | « sy| j d« dk7 ryt | « dk( S )Nr rx r ú-2rª rt s ro rX rX ¤ r rp c ó` t | « sy| j d« dk7 ryt | « dk( S )Nr rx r ú-4rª rt s ro rS rS ¬ r rp c ó` t | « sy| j d« dk7 ryt | « dk( S )Nr rx r ú-8rª rt s ro rV rV ´ r rp c ó` t | « sy| j d« dk( syt | « dk( S )Nr rx r r© rª rt s ro r' r' ¼ s/ Ü C=ØØ 77:Ó &Ò (ØÜ C=CÑ Ð rp c ó` t | « sy| j d« dk( syt | « dk( S )Nr rx r Ú16rª rt s ro r> r> Ä s/ Ü C=ØØ 77:Ó &Ò (ØÜ C=DÑ Ð rp c ó6 t | « syt | « dk( S )Nr Ú32)r" r£ rt s ro r= r= Ì s Ü S>ØÜ C=DÑ Ð rp c óB t | « xr | j d« dv S r )r rj rt s ro r$ r$ Ò s' Ü 3<ò @Ø 77:Ó Ð"?Ð ?ð@rp c ód t | « xr$ | j d« dk( xr t | « dk( S r¥ ©r rj r£ rt s ro r- r- × s4 Ü 3<ò !CGG JÓ /°9Ñ <ò !Ü SMSÑ ð!rp c ób t | « xr# | j d« dv xr t | « dk( S )Nrx r¨ r¬ r» rt s ro rU rU Ü ó5 Ü 3<ò "CGG JÓ /Ð3IÐ Iò "Ü SMTÑ !ð"rp c ób t | « xr# | j d« dv xr t | « dk( S )Nrx r¨ r¯ r» rt s ro rY rY á r½ rp c ób t | « xr# | j d« dv xr t | « dk( S )Nrx r¨ r± r» rt s ro ÚisunsignedarrayrÀ æ r½ rp c ób t | « xr# | j d« dv xr t | « dk( S )Nrx r¨ r³ r» rt s ro rW rW ë r½ rp c ób t | « xr# | j d« dv xr t | « dk( S )Nrx r¨ r¦ r» rt s ro Úissigned_chararrayrà ð ó5 Ü 3<ò !CGG JÓ /Ð3IÐ Iò !Ü SMSÑ ð!rp c ób t | « xr# | j d« dv xr t | « dk( S )Nrx r¨ Ú2r» rt s ro Úissigned_shortarrayrÇ õ rÄ rp c ób t | « xr# | j d« dv xr t | « dk( S )Nrx r¨ Ú4r» rt s ro Úissigned_arrayrÊ ú rÄ rp c ób t | « xr# | j d« dv xr t | « dk( S )Nrx r¨ r© r» rt s ro rJ rJ ÿ rÄ rp c ó d| v xr d| d v S )NÚattrspecÚ allocatable© rt s ro r r s Ø Ð Ò A °#°j±/Ð!AÐArp c ó& d| vxs t | « S r )rK rt s ro Ú ismutablerÑ s Ø 3Ð&Ò7¬(°3«-Ð 8Ð8rp c ó
|
d| v S )NÚ
|
modulenamerÏ ©Úrouts ro rC rC s Ø 4Ð Ð rp c ó d| v xr d| d k( S )NÚblockÚmodulerÏ rÔ s ro rB rB s Ø d?Ò 8x¨4°©=Ñ 8Ð8rp c ó d| v xr d| d k( S )Nr× ÚfunctionrÏ rÔ s ro r* r* s Ø d?Ò :z¨T°'©]Ñ :Ð:rp c ó\ t | « ryt xr t | « xr t | « S ©Nr )r0 Ú wrapfuncsr* r) rÔ s ro r+ r+ s* Ü$ÔØÜ Ò D DÓ)Ò D´:¸dÓ3CÐ/CÐDrp c ó d| v xr d| d k( S )Nr× Ú
|
subroutinerÏ rÔ s ro rO rO s Ø d?Ò <|¨t°G©}Ñ <Ð<rp c óJ t | « ryt | « xr t | « S rÜ )r0 rO ÚhasassumedshaperÔ s ro rQ rQ " s" Ü$ÔØÜ Ó Ò 7¤/°$Ó"7Ð7rp c ó* d| j dg « v S )NÚvaluerÍ ©rj rt s ro rb rb ' s Ø cggj¨"Ó-Ð -Ð-rp c óª | j d« ry| d D ]9 }| d j |i « j dg « D ] }|dk( s d| d< y ; y)Nrá TÚargsÚvarsr ú:Frä )rÕ ÚaÚds ro rá rá + sl Ø xxÐ!Ô"ØØ &\ò Øf ×!Ñ! ! RÓ(×,Ñ,¨[¸"Ó=ò AØCxØ*.Ð&Ñ'Úñ ð ð
|
rp c ó2 t | « xs t | « S r )rC rá rÔ s ro Úrequiresf90wrapperrì 6 s Ü 4Ó Ò 9¤O°DÓ$9Ð9rp c ó2 t | « xs t | « S r )r* rO rÔ s ro rH rH : s Ü dÓ Ò 1|¨DÓ 1Ð1rp c ój t | « syd| v r| d }n| d }|| d v rt | d | « S y©Nr ÚresultÚnamerç )r* r; ©rÕ ré s ro r< r< > óI Ü dÔ ØØ4ÑØ Nà LØDLÑÜf a Ó)Ð)Ø rp c ój t | « syd| v r| d }n| d }|| d v rt | d | « S yrï )r* r@ rò s ro rA rA J sI Ü dÔ ØØ4ÑØ Nà LØDLÑÜ4 <¨?Ó+Ð+Ø rp c ój t | « syd| v r| d }n| d }|| d v rt | d | « S yrï )r* r> rò s ro r? r? V sI Ü dÔ ØØ4ÑØ Nà LØDLÑÜ T &\¨!_Ó-Ð-Ø rp c ój t | « syd| v r| d }n| d }|| d v rt | d | « S yrï )r* r" rò s ro r% r% b ró rp c ó2 t | « r t d« yy)Na **************************************************************
|
Warning: code with a function returning complex value
|
may not work correctly with your Fortran compiler.
|
When using GNU gcc/g77 compilers, codes should work
|
correctly for callbacks with:
|
f2py -c -DF2PY_CB_RETURNCOMPLEX
|
**************************************************************
|
r r )r% r] rÔ s ro r& r& n s! ÜÔ Üð Hô Ið Ø rp c ój t | « syd| v r| d }n| d }|| d v rt | d | « S yrï )r* rK rò s ro rN rN | sI Ü dÔ ØØ4ÑØ Nà LØDLÑÜV QÓ(Ð(Ø rp c ó d| v xr | d S )NÚ externalsrÏ rÔ s ro r r s Ø $Ð Ò 4 4¨ Ñ#4Ð4rp c ó d| v xr d| d v S )NÚf2pyenhancementsÚ
|
threadsaferÏ rÔ s ro rR rR s" Ø Ð %ò 4Ø 4Ð 2Ñ3Ð 3ð4rp c ó d| v xr | d S )Nrç rÏ rÔ s ro Ú hasvariablesrÿ s Ø T>Ò *d 6lÐ*rp c óH d| v xr d| d v xr d| d vxr t | « S )NrÍ ÚoptionalÚrequired)r8 rt s ro rD rD s? Ø #Ð ò . *°°J±Ð"?ò .Ø c *oÐ -ò IÜ3CÀCÓ3HðIrp c ó d| v xr d| d v S )NrÍ ÚexternalrÏ rt s ro r) r) s Ø Ð Ò > ¨s°:©Ð!>Ð>rp c ó dd| j « v r-t d | d D « « rt fd| d D « « S y y )Nz \((.*?)\)rÍ c 3 ó$ K | ] }d |v
|
yw)r NrÏ )Ú.0Úss ro ú <genexpr>z getdimension.<locals>.<genexpr>¡ s è ø Ò9 A{aÔ Ñ9ùs c 3 óJ K | ] }t j |« y wr )ÚreÚfindall)r ÚvÚ
|
dimpatterns ro r z getdimension.<locals>.<genexpr>¢ s øè ø ÒK°a
|
|
:¨q×1ÑKùs #)ÚkeysÚanyÚnext)ru r s @ro r r sG ø Ø JØSXXZÑ Ü Ñ9¨¨Z© Ô9Ô 9ÜÓK¸3¸z¹?ÔKÓKÐ Kð :ð rp c ó4 t | « xr t | « S r )rD r8 rt s ro rG rG ¥ s Ü#Ð Ò 8Ô#3°CÓ#8Ð8rp c ó4 h d£}t fd|D « « S )N> Ú pymethoddefÚ callstatementÚcallprotoargumentc 3 óB K | ] }|j « v y wr )Úlower)r Ú directiveÚ f2py_lines ro r z$iscstyledirective.<locals>.<genexpr>« s øè ø ÒJ°)yIOOÓ -Ô-ÑJùs )r )r Ú
|
directivess ` ro r# r# © s ø ÚFJÜ ÓJ¸zÔJÓ JÐJrp c ón d| vryd| d v ryd| d v ryd| d v ryd| d v ryd| d v ryd | d v ryy)
|
NÚintentr Úhider ÚinplaceÚinÚoutÚinoutÚoutinrÏ rt s ro r5 r5 ® sj ØsÑØØ X Ñ ØØCMÑ!ØØ s8}Ñ ØØ H Ñ ØØ#h-Ñ ØØ#h-Ñ ØØ rp c ód d| v xr+ d| d v xs d| d v xr d| d vxr d| d vxr d| d vS )Nr r" r# r r r rÏ rt s ro r6 r6 À sg Ø Oò K ¨C°©MÐ!9ò "%Ø s8}Ð $ò KØ*.°c¸(±mÐ*Cò Kà #h-Ð 'ò Kà,5¸SÀ¹]Ð,JðLrp c ó* d| j dg « v S )Nr! r rä rt s ro r9 r9 Æ ó Ø CGGH bÓ)Ð )Ð)rp c óz d| v xr6 d| d v xs- d| d v xr$ d| d vxr t t t « | « S )Nr r r! r )r\ r6 r7 rt s ro r4 r4 Ê s^ Ø Oò D ¨3¨x©=Ð!8ò "CØ c(mÐ #ò B¨°C¸±MÐ(Aò BØ;T.Ô*:Ó;¸CÓ@Ð@ðErp c ó t | « S r )r4 rt s ro r8 r8 Ð s Ü SÓ!Ð !Ð!rp c ó* d| j dg « v S )NÚcr rä rt s ro r0 r0 Ô s Ø #''( BÓ'Ð 'Ð'rp c ó* d| j dg « v S )NÚcacher rä rt s ro Úisintent_cacher- Ø s Ø cggh¨Ó+Ð +Ð+rp c ó* d| j dg « v S )NÚcopyr rä rt s ro r2 r2 Ü s Ø SWWX rÓ*Ð *Ð*rp c ó* d| j dg « v S )NÚ overwriter rä rt s ro r: r: à ó Ø #'' (¨BÓ/Ð /Ð/rp c ó* d| j dg « v S )NÚcallbackr rä rt s ro r1 r1 ä ó Ø ¨2Ó.Ð .Ð.rp c ó* d| j dg « v S )Nr r rä rt s ro r7 r7 è s Ø ¨"Ó-Ð -Ð-rp c ó* d| j dg « v S )NÚauxr rä rt s ro r/ r/ ì r& rp c ó* d| j dg « v S )NÚaligned4r rä rt s ro Úisintent_aligned4r; ð r5 rp c ó* d| j dg « v S )NÚaligned8r rä rt s ro Úisintent_aligned8r> ô r5 rp c ó* d| j dg « v S )NÚ aligned16r rä rt s ro Úisintent_aligned16rA ø r2 rp Ú INTENT_INÚ INTENT_INOUTÚ
|
INTENT_OUTÚ INTENT_HIDEÚ INTENT_CACHEÚINTENT_CÚOPTIONALÚINTENT_INPLACEÚINTENT_ALIGNED4ÚINTENT_ALIGNED8ÚINTENT_ALIGNED16c ó d| v xr d| d v S )NrÍ ÚprivaterÏ rt s ro rE rE s Ø Ð Ò = ¨c°*©oÐ!=Ð=rp c óJ t | « dk( rd| v r| d d dv rd}|S d}|S )Nr rÍ r )ÚpublicrN FT©Úlen)ru Úis_vars ro rF rF s> ä
|
3x1} sÑ*Ø
|
OAÑ Ð"7Ñ 7Øð Mð Ø Mrp c ó
|
d| v S )Nú=rÏ rt s ro r r s Ø #:Ðrp c ó. t | « sy| d d dv S )Nr rU )ú"ú')r rt s ro ÚhasinitvalueasstringrY s Ü Ô ØØ s8A;*Ð $Ð$rp c ó
|
d| v S )NÚnoterÏ rt s ro r r s Ø S=Ðrp c ój t | « syd| v r| d }n| d }|| d v rt | d | « S yrï )r* r rò s ro r r " sI Ü dÔ ØØ4ÑØ Nà LØDLÑÜtF| AÓ'Ð'Ø rp c ó
|
d| v S )NÚcommonrÏ rÔ s ro r r . s Ø tÐ Ðrp c ó` t | « ryt | « r| d D ] }t |« s y y©Nr Úbodyr )r r re ©rÕ Úbs ro re re 2 s6 ÜØÜt}Øf ò AÜ aÕ Ùð ð rp c ó d| v xr | d dk( S )Nr× ÚtyperÏ rÔ s ro Úhasderivedtypesrf < s Ø tOÒ 8 g¡ °&Ñ!8Ð8rp c ó` t | « ryt | « r| d D ] }t |« s y yr` )rf r rb s ro rf rf @ s7 ÜtÔ ØÜt}Øf ò AÜ qÕ!Ùð ð rp c ób t | « ryt | « sy| d D ] }t |« s y y)Nr r ra )rB r Úcontainsmodule)r× rc s ro ri ri J s9 ÜØÜ 5>ØØ 6]ò Ü !Õ Ùðð rp c ó
|
d| v S )Nra rÏ rÔ s ro r r U s Ø T>Ðrp c ó t | « d uS r )r rÔ s ro r r Y s Ü DÓ !¨Ð -Ð-rp c ó y)Nr rÏ rt s ro Úistruerm ] ó Ø rp c ó yrÜ rÏ rt s ro Úisfalserp a rn rp c ó e Zd Zy)Ú F2PYErrorN)Ú__name__Ú
|
__module__Ú __qualname__rÏ rp ro rr rr e s Ørp rr c ó e Zd Zd Zd Zy)ra c ó || _ y r )Úmess)Úselfrx s ro Ú__init__zthrow_error.__init__k s Ø rp c ó> d| d| j d}t |« )Nz
|
|
|
var = z
|
Message: ú
|
)rx rr )ry ru rx s ro Ú__call__zthrow_error.__call__n s$ Ø cU -°· ± ¨{¸"Ð=ÜoÐ rp N)rs rt ru rz r} rÏ rp ro ra ra i s òó rp ra c ó² dg }}t t | « « D ] }d|||fz }|j d|z « t | ddj |« « S )Núlambda vú %s,f%d=f[%d]úf%d(v)rè z and ©ÚrangerR ÚappendÚevalÚjoin©ÚfÚl1Úl2Úis ro rZ rZ s sd Ø BÜ 3q6]ò "Ø r 1 ajÑ (Ø
|
(a.Õ!ð"ô 2$a RÓ(Ð)Ð*Ó +Ð+rp c ó² dg }}t t | « « D ] }d|||fz }|j d|z « t | ddj |« « S )Nr r r rè z or r r s ro r\ r\ { sc Ø BÜ 3q6]ò "Ø r 1 ajÑ (Ø
|
(a.Õ!ð"ô 2$a BÐ(Ð)Ó *Ð*rp c ó t d« S )Nzlambda v,f=f:not f(v))r
)r s ro r[ r[ s Ü Ð'Ó (Ð(rp c ó8 | d d dk( S # t $ r Y yw xY w)Nrü Ú fortrannameÚ r r¡ rÔ s ro r( r( s/ ðØÐ&Ñ'¨ Ñ6¸"Ñ<Ð<øÜ ò Ùðús
|
c ó | d d }|dk( rt |st d| d d« t |S # t $ r | d }Y |S w xY w)Nrü r r z Failed to use fortranname from r| rñ )r¢ r )rÕ rñ s ro r r so ð ØÐ&Ñ'¨ Ñ6Ø 2:ÜNÙÜ Ð5°dÐ;MÑ6NÐ5OÈrÐRÔ SÜNð ð
|
Køô ò ØF|Ø Kð ús -2 ²AÁAc óª | d j |« }|sy |dkD rt |t « ry t |t « r|t |« k\ ry || }|d d dk( ri|r d|z dz t |« z dz |dd z }n|dd }|dd dk( r"|r|d d d z t |« z d
|
z }|S |d d }|S t | d t |« d « |S # t $ r Y y w xY w) Nrü r é z'''z
|
/* start z multiline (z) */
|
éýÿÿÿz
|
/* end multiline (z)*/z( multiline block should end with `'''`: r| )rj r¢ Ú
|
isinstanceÚstrÚlistrR Úreprr )rÕ Ú blocknameÚcommentÚcounterÚrs ro Úgetmultilineblockr s, ðØ Ð#Ñ $× (Ñ (¨Ó 3ñ ØØ{z !¤SÔ)ØÜ!TÔØ c!fÒ Ø Ø gJØ!u~Ù Ø Ñ)Ø ñ Ü!% g£ ñ/Ø19ñ:Ø<=¸a¸b¸EñBAð !"AØ RS6U?ÙØcrFÐ 5Ñ5¼¸W» ÑEÈÑMð
|
Hð crFð Hô ykÐ!IÌ$ÈqË'ÈÐRTÐUÔ VØ Høô/ ò Ùðús C à CÃCc ó t | d« S )Nr ©r rÔ s ro r r ¸ s Ü T ?Ó 3Ð3rp c ó~ t | dd¬« }|r|S t | « r t d« y ddlm} g g }} t t t t « « | « r|j ddg« | d D ]³ }| d
|
| }t |« r||v r || d z }n ||« } t t t t t « « |« rn t |« rnt! |« s|d z }t |« st# |« s t% |« r|j' d« |j' |« µ d j) ||z « } | sd} | S )Nr r )r z<warning: callstatement is defined without callprotoargument
|
r )Úgetctypezchar*Úsize_træ rç Ú_typedefr ú,Úvoid)r r r] Ú capi_mapsr¡ rZ rN r[ r+ Úextendr1 r0 r\ rI r" rK rb r rL r r )
|
rÕ Úcb_mapr r¡ Ú arg_typesÚ
|
arg_types2Únru ÚctypeÚ
|
proto_argss
|
ro r r ¼ s; Ü$Ð 3¸QÔ?AÙØÜÔ ÜØ Kô MàÝ#Ø zIØ6uÔ u¤_Ó 5Ó6°tÔ<Ø×Ñ' 8Ð,Ô-Ø &\ò Ø6l1oÜ SÔ !Ø Ø ;Ø1I
|
Ñ*Eá SMEØ;uZ¤¤h´ Ó!:Ó;¸CÔ@ØÜ# ØÜ! #Ô&Ø Ü Ü$ SÔ)Ü! #Ô&Ø×!Ñ! (Ô+Ø×ÑÕ ð% ð( ) jÑ0Ó1JÙ Ø
|
Ø Ðrp c ó t | d« S )NÚusercoder rÔ s ro r r â s Ü T :Ó .Ð.rp c ó t | dd¬« S )Nr¯ r )r r rÔ s ro r r æ s Ü T :°qÔ 9Ð9rp c ó t | d« S )Nr r rÔ s ro r r ê s Ü T =Ó 1Ð1rp c ó¸ g g }}d| v rO| d }d| v rA| d D ] }||v s|j |« |D ] }||vs|j |« ||fS | d }||fS )Nræ Úsortvars)r )rÕ Úsortargsræ ré s ro Úgetargsrµ î s ØdHØ ~ØF|Ø Ñ Ø*Ñ%ò 'Ø9Ø OO AÕ&ð 'ð ò 'ØHÒ$Ø OO AÕ&ð 'ð
|
>Ðð F|HØ >Ðrp c óL g | j dg « }}| d j « D cg c] }t | d | « s||vr| }}||z }d| v rA| d D ] }||v s|j |« |D ] }||vs|j |« ||fS || d z }||fS c c}w )Nræ rç r³ )rj r r/ r )rÕ r´ ræ ré Úauxvarss ro r r þ sÝ Ø &¨"Ó-dHØ v,×+Ñ+Ó-ö "Q´ ¸dÀ6¹lÈ1¹oÕ1NØD=ò ð "Gð "à T>DØTÑØjÑ!ò #AØDyØ Õ"ð #ð ò #AØÒ Ø Õ"ð #ð
|
>Ðð T &\Ñ)Ø >Ðùò"s ªB!ÁB!c ó^ d| vry d }| d dk( r
|
| d | d f}| d j |d « S )NÚf2pymultilinesr× z python modulerñ rä )rÕ Úks ro r r sI ØtÑ#ØØ AØ G}Ò'Ø M4 <Ð 'Ø Ð Ñ !× %Ñ % a¨Ó .Ð.rp c óN dt | « z
|
dz
|
dz }d|dz d| d|dz dS )NéP é é z/*r ú z*/rQ )rñ Úlns ro r r s< Ø
|
s4y.1Ñ
|
Ñ "BØ Sz4& " s¡( ¨2Ð .Ð.rp c óP t | t « rt t fd| g « S | gS )Nc ó | ||« z S r rÏ )ÚxÚyr s ro ú<lambda>zflatlist.<locals>.<lambda> s ¨q±1°Q³4©x rp )r r r Úflatlist)Úlsts ro rÆ rÆ s% Ü#tÔ Ü¤XÒ7¸¸bÓAÐAØ 5Lrp c ó$ | r | d dk( r| d d S | S )Nr r¤ rÏ )r s ro r` r` # s ÙQrUc\Ø"v Ø Hrp c
|
óü t |t « r|D cg c] }t | ||« c}S t | t « r| D cg c] }t |||« c}S dt |j « « z D ]| }|dk( r d|v r||d v r |d | }n|}t || t « r2| j d| d|j t || « « « } d| j d| d|| « } ~ | S c c}w c c}w )Nr¾ Ú separatorsforú#)r r r^ r r rÆ )r rê Ú
|
defaultsepÚ_mrº Úseps ro r^ r^ ) sý Ü!TÔØ78Ö9°R Õ,Ò9Ð9Ü#tÔ Ø58Ö9¨rAzÕ*Ò9Ð9Ø affh Ñ ò
|
.Ø Ò Ø Ø aÑ A¨¨?Ñ);Ñ$;ØOÑ$ QÑ'Cà CÜ adDÔ !Ø++ ! Ah¨¯©´¸!¸A¹$³ Ó(@ÓACà++ ! Ah¨¨!©Ó-Cð
|
.ð Jùò :ùâ9s C4Á C9c óZ t |t « r|D ] }t | |« } | S |j « D ]ò }|d dk( r || v rÛt | | t « r | | g| |< t | | t « r:t || t « r| | || z | |< a| | j || « yt | | t « st || t « s¡|dk( r/|| j « D ] }|| | vs || | | | |< Õt | | || « | |< ë|| | |< ô | S )Nr Ú_rÊ )r r r
|
r r r Údict)ÚrdÚarré rº Úk1s ro r
|
r
|
< sC Ü"dÔØò #AÜB Ó"Bð #à Ø WWYò Ø Q43;Ø Ø 7Ü"Q%¤Ô%ØA1Ü"Q%¤Ô&Ü b e¤TÔ*Ø qE B q¡EMBqEàqELL A¡Õ'ÜBqE¤4Õ(Ü b e¤TÕ*ØOÒ+Ø"$ Q¡%§*¡*£,ò 6BØ !¨¨A©Ø,.¨q©E°"©I 1¡ b¢ ñ6ô !+¨2¨a©5°"°Q±%Ó 81àqEBqEð)ð* Irp c ó: i }t | t « r)| D ]" }t |||« }t ||« }d|v s! |S |S d| v r | d |« s|S d| v r.t d| d i||« }d|v rt j
|
|d « | j « D ] }|dk( r | | ||< t | | t « rt | | |« ||< nt | | t « r<g ||< | | D ]- }t ||i||« } || v s|| j | | « / nC|d dk( rt | | t « r g ||< | | j « D ]ï }
|
t |
|
t j « s |
|
|« s't | | |
|
t « r]| | |
|
D ]Q }t |t « r!t d|i||« }|j dd « }|| j t ||« « S | | |
|
}t |t « r t d|i|« }|j dd « }|| j t ||« « ñ nt d
|
t | | « d « t || t « sàt! || « d k( r || d ||< || g k( s||= |S ) NÚ_breakÚ_checkÚneedÚneedsrÊ r rÐ Ú supertextr zapplyrules: ignoring rule z.
|
r )r r r r
|
r Ú append_needsr r r^ r rÑ ÚtypesÚ FunctionTyperj r r rR ) Úrulesrê ru Úretr ÚrrÚresrº r rÓ rÔ s ro r r Y sÀ Ø
|
CÜ%Ô Øò AÜAq #Ó&BÜ S "Ó%CØ2~ØØ
|
ð ð
|
|
Ø5Ñ / %¨¡/°#Ô"6Ø
|
Ø Ü' 5¨¡=Ð1°1°cÓ:Ø c>Ü × Ñ G¡ Ô -à ZZ\ó $Ø Ò Ø1XCFØ Ü eAh¤Ô $Ü U 1X qÓ)CFÜ a¤$Ô 'ØCFØ1Xò )Ü A ¨¨3Ó/Ø7ØFMM " Q¡%Õ(ò )ð qTS[Ø Ü a¤$Õ 'ØCFØAhmmoò 5Ü b¤%×"4Ñ"4Õ5¹"¸S½'Ü! %¨¡(¨2¡,´Ô5Ø!& q¡¨"¡ ò 9AÜ )¨!¬TÔ 2Ü&0°+¸qÐ1AÀ1ÀcÓ&J Ø$'§G¡G¨K¸Ó$< Ø FMM¬'°!°Q«-Õ 8ñ 9ð " !H RLÜ% a¬Ô.Ü",¨k¸1Ð-=¸qÓ"ACØ #§¡¨ °RÓ 8AØA ¤g¨a°£mÕ4ñ 5ô Ð0´°e¸A±h³ Ð0@ÀÐDÔ EÜ c!fdÖ #Ü3q6{aÒ Ø Q AØ1v|ØFðI$ðJ Jrp z%\s*python\s*module\s*(?P<name>[\w_]+)z4\s*python\s*module\s*(?P<name>[\w_]*?__user__[\w_]*)c ó² d }t | « 5 }|D ]. }t |« }|st |« r |j d« } n d d d « |S # 1 sw Y |S xY w)Nrñ )ÚopenÚ_f2py_module_name_matchÚ _f2py_user_module_name_matchÚgroup)Úsourcerñ r ÚlineÚms ro rP rP se Ø DÜ f ð Øò DÜ'¨Ó-AÚÜ/°Ô5Ø ØwwvÙð ÷ð K÷ð Kús A ¢ A Á Ac óâ g }| d D ]_ }|d D ]U }|j d« s|j |j d« j « D cg c] }d|vs| c}« W a |S c c}w )Nra ÚuseÚ__)rj r§ r )ÚpymodÚall_usesÚinnerÚmodblockrà s ro rc rc ¢ sz ØHØv ò ZØ f ò ZHØ||EÕ"بH¯L©L¸Ó,?×,DÑ,DÓ,FÖ X qÈ$ÐVWÊ-¢Ò XÕYñ ZðZð Oùò !Ys Á A, ÁA, c óf g }i }|j « D ]I \ }}|j « D ci c] \ }} |j « | }
|
}} |
|
||j « < K |j « D ]µ \ }}|| vri | |< |j « D ] \ }} | |v rV|| | v r t d|d|d| | | d| d « | | | |< |rt d| d| d| d « |j | « `|sct d
|
|d|d| d | d t |j « « d « · | |fS c c} }w )aê
|
Update the Fortran-to-C type mapping dictionary with new mappings and
|
return a list of successfully mapped C types.
|
|
This function integrates a new mapping dictionary into an existing
|
Fortran-to-C type mapping dictionary. It ensures that all keys are in
|
lowercase and validates new entries against a given C-to-Python mapping
|
dictionary. Redefinitions and invalid entries are reported with a warning.
|
|
Parameters
|
----------
|
f2cmap_all : dict
|
The existing Fortran-to-C type mapping dictionary that will be updated.
|
It should be a dictionary of dictionaries where the main keys represent
|
Fortran types and the nested dictionaries map Fortran type specifiers
|
to corresponding C types.
|
|
new_map : dict
|
A dictionary containing new type mappings to be added to `f2cmap_all`.
|
The structure should be similar to `f2cmap_all`, with keys representing
|
Fortran types and values being dictionaries of type specifiers and their
|
C type equivalents.
|
|
c2py_map : dict
|
A dictionary used for validating the C types in `new_map`. It maps C
|
types to corresponding Python types and is used to ensure that the C
|
types specified in `new_map` are valid.
|
|
verbose : boolean
|
A flag used to provide information about the types mapped
|
|
Returns
|
-------
|
tuple of (dict, list)
|
The updated Fortran-to-C type mapping dictionary and a list of
|
successfully mapped C types.
|
z Warning: redefinition of {'z':{'z':'z'->'z'}}
|
z
|
Mapping "z(kind=z)" to "z"
|
z Ignoring map {'z'}}: 'z ' must be in r| )Úitemsr r] r r r r ) Ú
|
f2cmap_allÚnew_mapÚc2py_maprh Ú f2cmap_mappedÚ new_map_lowerrº Úd1rÔ Úv1Úd1_lowers ro rd rd ª sO ðL MàMØ ò ,2Ø13·±³×<¡v r¨2BHHJ NÐ<Ñ<Ø#+ aggiÒ ð,ð ×$Ñ$Ó&ò 2Ø JÑ Ø JqMàhhjò FBØX~Ø A Ñ&Ýâ b *¨Q¡-°Ó"3²Rð9ôð %'
|
1 bÑ!ÙÜk¨!¨¨F°2°$°g¸b¸TÀÐ FÔGØ ×$Ñ$ RÕ(ÚÝâ"b¢"¤d¨8¯=©=«?Õ&;ð=õñ ð ð* }Ð $Ð$ùó1 =s ®D-)r r )r )F)Ú__doc__Úpprintr rk rÜ Ú functoolsr r r r r Ú__all__ÚversionÚ f2py_versionr_ ri rs rÝ r] r r{ r~ r! r r rM rK rL r r rI r" r; r. r r£ r, r@ rT rX rS rV r' r> r= r$ r- rU rY rÀ rW rà rÇ rÊ rJ r rÑ rC rB r* r+ rO rQ rb rá rì rH r< rA r? r% r& rN r rR rÿ rD r) r rG r# r5 r6 r9 r4 r8 r0 r- r2 r: r1 r7 r/ r; r> rA r3 rE rF r rY r r r re rf rf ri r r rm rp Ú Exceptionrr ra rZ r\ r[ r( r r r r r r r rµ r r r rÆ r` r^ r
|
r ÚcompileÚIÚmatchrä rå rP rc rd rÏ rp ro ú<module>r sL ðñ ó Û Û
|
Û Ý ç !Ý ò ð: ×"Ñ" ð }}à
|
Ø Ø ò ò
|
"ò ò
|
ò
|
;òCò?ò7ò=ò9ò@ò 6òBò@ò
|
>ò>ò;òò6ò
|
ò!ò!ò!ò!ò ò!ò!ò @ò
|
!ò
|
"ò
|
"ò
|
"ò
|
"ò
|
!ò
|
!ò
|
!ò
|
!ò
|
Bò9ò ò9ò;òEò =ò8ò
|
.òò:ò2ò ò ò ò ò ò ò5ò4ò
|
+òIò
|
?òLò9òKò
|
ò$Lò *òEò "ò(ò,ò+ò0ò/ò.ò*ò/ò/ò0ð k¨>¸>Ø |¨]¸MØ ØZ¨°ZØ!Ð#3Ø"Ð$5Ø"Ð$5Ø#Ð%7ð ò>òòò%ò ò ò ò ò9ò ò òò.ò ò ô ô ÷ ñ ò,ò+ò)òò
|
ó ò:4ð ')ó #òL/ò:ò2ò ò ò"/ò/ò
|
ò ó ò&ð: ó 5ðp %"**Ð%MØ%'§T¢Tó+ß+0ª5ð à )rzzð +=Ø>@¿dºdó DßDIÂEð ò
|
òôB%rp
|
