Ë
|
Kñúh( ã ó| d Z ddlZddlmZ ddlmZmZmZmZm Z m
|
Z
|
m Z m Z m Z mZmZmZmZ d dZd Zd dZd d Zd
|
Zy) a;
|
|
Rules for building C/API module with 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 License.
|
|
NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK.
|
é Né )Ú isoc_kindmap) ÚgetfortrannameÚ
|
isexternalÚ
|
isfunctionÚisfunction_wrapÚ isintent_inÚ isintent_outÚislogicalfunctionÚismoduleroutineÚisscalarÚ issubroutineÚissubroutine_wrapÚoutmessÚshowc ód ||}|| vrt | « t d| d« yd| | vr t | | « t d| d« y| | d }|dk( rd| | v r| d| | d d }i }d}d
|
| | v r | | d
|
}d }nd | | v r
|
| | d }d }d|v r<|r |d dv r| d}n`| d| d|d d }nQ|d dv r | d|d d }n>| d|d }n3d |v r | d|d }d |v r | d|d d }n| d }nd |v r | d|d d }| d| }d| | v r | ddj | | d « d }|S )Nz,var2fixfortran: No definition for argument "z".
|
Ú Útypespecz*var2fixfortran: No typespec for argument "ÚtypeÚtypenameú(ú)Ú kindselectorÚkindÚ charselectorÚlenÚ*)r ú:ú(*)z(len=*)ú=)r r z*(z(len=z,kind=z(kind=ú Ú dimensionú,)r r Újoin)ÚvarsÚaÚfaÚf90modeÚvardefÚselectorÚlks úGH:\Change_password\venv_build\Lib\site-packages\numpy/f2py/func2subr.pyÚvar2fixfortranr- s Ø zØ Ø}Ü T
|
ÜÐ>¸q¸cÀÐFÔGØØaÑ Ü T!W ÜÐ<¸Q¸C¸tÐDÔEØØ !WZÑ FØ ÒJ¨$¨q©'Ñ 1Ø81T !W ZÑ 0Ð 1°Ð3ØHØ BØaÑ Ø7>Ñ*Ø Ø 4 7Ñ "Ø7>Ñ*Ø Ø
|
hÙ Ø}Ð 1Ñ1Ø "8 7Ð+à "8 1 R D¨¨(°3©-¨ ¸Ð:Ø c]jÑ (Ø xr (¨3¡- °Ð2Fà xq ¨#¡ Ð0FØ (Ñ Ø85 ¨%¡ Ð 1Ð2Ø XÑ Ø xv h¨vÑ&6Ð%7°qÐ9Fà xq\FØ 8Ñ Ø86 (¨6Ñ"2Ð!3°1Ð5àxqÐ FØd1gÑ Ø81SXX d¨1¡g¨kÑ&:Ó ;Ð <¸AÐ>Ø Mó c ó d}| d j « D ]0 \ }}|j di « j d« }|t v s0 y |S )NFr% r r T)ÚitemsÚgetr )ÚroutÚuseisocÚkeyÚvalueÚ
|
kind_values r, Úuseiso_c_bindingr7 N sT ØGØ6l×(Ñ(Ó*ò
|
UØYY~¨rÓ2×6Ñ6°vÓ>
|
Ø Ò %Ùðð Nr. c óä t | « sJ g }| d }| d D ]k }| d | }t |j dg « « D ]C \ }}|dk( s d| d| }ddgd } d
|
| d | d | d < |j |« | ||< ||d |< E m | d j |« t |« }
|
dg} | fd} | d } t | « }t | « }| d}||vr|| ||< |g| d dd z }n |g| d z }t || d|« }|d d dk( r5|r d|dd z }nd|dd z }|| d }|j dd« dk( rd|d< |j d|« }d }t | « }d j |« }|rb|j | d d« }|D cg c]
|
}|| k7 s | }}|| d< | d | d d | d | d « |s | d | d d!| « |rG | d"« n> | d#| d | d « |r | d"« |
|
s# | d$| « |j dd« d%z |z }|
|
rF| d& j d'« D ]/ }|j « j d « s#d(|vs( | |« 1 |dd }g }|D ]- }t || « s | d$| « |j |« / |D ]; }||v rt! || « s | t |||¬)« « |j |« = |D ]; }||v rt# || « s | t |||¬)« « |j |« = |D ] }||v r | t |||¬)« « | |« | | |« |
|
r,|rn) | d*« | | d& j « « | d+« d j |D cg c] }||vs| c}« }|s.t% | « r | | d,| d-| d.« n | | d/| d-| d « |r | d0| d d | « | d2 S | d1« | d2 S c c}w c c}w )3Nr% Úargsr" r Úf2py_Ú_dÚintegerÚhide©r Úintentúshape(ú, r r r c ó |d d| |d< y ©Nr z
|
© ©ÚlineÚrets r, Úaddz createfuncwrapper.<locals>.addj ó ØF88 D 6Ð*Ar. ÚnameÚf2pywrapr z
|
@@@NAME@@@é z character*(*)zcharacter(len=10)z character*10r r r Ú10úsubroutine f2pywrap_Ú
|
modulenameÚ_ú (úuse ú , only : úuse iso_c_bindingúsubroutine f2pywrapú external r! Úsaved_interfaceú
|
Ú__user__©r( Ú interfaceú end interfacez = .not.(.not.r z))z = úend subroutine f2pywrap_Úendr )r Ú enumerater1 ÚappendÚextendÚboolr r r- Úreplacer7 r$ ÚsplitÚlstripÚ
|
startswithr r r r )r2 Ú signatureÚ
|
extra_argsr% r& ÚvÚiÚdÚdnÚdvÚneed_interfacerG rH rJ Ú fortrannamer( Únewnamer9 Úl_tmplÚ
|
charselectÚl1Úrlr3 ÚsargsÚargrF Ú dumped_argss r, Úcreatefuncwrapperrx V sþ Ü dÔ ÐÐ àJØ <DØ &\ò 'Ø LOÜ aee K°Ó 4Ó5ò 'DAqØCxØ QCr ! Ð%Ø"+¸°xÑ@Ø " 1 # R¨ s¨!Ð,3Ø×!Ñ! "Ô%Ø RØ$&+qÒ!ñ 'ð 'ð L×Ñ
|
Ô#Ü*Ó%Nà $Càó +à <DÜ Ó&KÜ dÓ#GØhÐ GàdÑØ T
|
W Øy4 <¨¨Ð+Ñ+ày4 <Ñ'ä D $¨ °gÓ >FØ cr{oÒ%Ù Ø(¨6°"°#¨;Ñ6Fà# f¨R¨S kÑ1FØ$Z Ñ/
|
Ø >>#rÓ " eÒ +Ø "JsOà gÓ .BØ Bä tÓ$GØ IIdOEÙð bk¨2Ó.Ø #Ö3 s¨d£{Ð3Ð3ØV Ù Ð" 4¨ Ñ#5Ð"6°a¸°v¸RÀ¸wÀaÐ HÔIÙÙ $tLÑ)Ð*¨)°K°=ÐAÔ BÙ Ù Ð#Õ $á Ð! $ r¨%¨°Ð 2Ô3Ù Ù Ð#Ô $Ù Ù )K=Ð)Ô *Ø ¨bÓ1°CÑ7¸+ÑEBáØÐ*Ñ+×1Ñ1°$Ó7ò DØ{{}×'Ñ'¨Õ/°JÀdÒ4JÙD ð ð 8DØKØ ò "Ü d1gÕ Ù )A3Ô Ø × Ñ qÕ !ð"ð ò "Ø Ñ Ø Ü DGÕ Ù t Q°Ô8Ô 9Ø × Ñ qÕ !ð "ð ò "Ø Ñ Ø Ü tAwÕ Ù t Q°Ô8Ô 9Ø × Ñ qÕ !ð "ð ò 6Ø Ñ Ø Ù N4 ¨GÔ 4Õ5ð6ñ
|
GØ ~Ù BáÙ à á Ô Ù Ð&Ñ'×.Ñ.Ó0Ô 1Ù Ô à II $Ö>Q¨!°:Ò*=qÒ>Ó ?Eá Ü TÔ "Ù 7)>¨+¨ °a¸°w¸bÐAÕ Bá 7)3{m¨1¨U¨G°1Ð5Ô 6ÙÙ Ð& t¨LÑ'9Ð&:¸!¸D¸6Ð BÔCð q6Mñ E
|
Ø q6MùòG 4ùòp ?s Æ
|
O(ÆO(Í> O-ÎO-c ó¶ t | « sJ g }| d }| d D ]k }| d | }t |j dg « « D ]C \ }}|dk( s d| d| }ddgd } d
|
| d | d | d < |j |« | ||< ||d |< E m | d j |« t |« }
|
dg} | fd} | d } t | « }t | « }| d }t | « }d j |« }|r3 | d| d d| d| d « |r | d« |s8 | d| d d| « n& | d| d| d « |r | d« |
|
s | d| « |
|
rF| d j d« D ]/ }|j « j d« s#d |vs( | |« 1 g }|D ]- }t || « s | d| « |j |« / |D ]; }||v rt || « s | t |||¬ « « |j |« = |D ] }||v r | t |||¬ « « |
|
rX|rnU | d « | d j d« D ]. }|j « j d« rd |v r' | |« 0 | d « d j |D cg c] }||vs| c}« }|s | d | d!| d « |r | d"| d d| « | d$ S | d#« | d$ S c c}w )%Nr% r9 r" r r: r; r< r= r> r@ rA r r r c ó |d d| |d< y rC rD rE s r, rH z createsubrwrapper.<locals>.addå rI r. rJ rN rO rP rQ rT rR rS rU rV rW rX rY rZ r[ r\ zcall r r] r^ r )r r_ r1 r` ra rb r r r7 r$ rd re rf r r r- )r2 rg rh r% r& ri rj rk rl rm rn rG rH rJ ro r( r9 r3 ru rF rw s r, Úcreatesubrwrapperr{ Ñ s Ü Ô Ð Ð àJØ <DØ &\ò 'Ø LOÜ aee K°Ó 4Ó5ò 'DAqØCxØ QCr ! Ð%Ø"+¸°xÑ@Ø " 1 # R¨ s¨!Ð,3Ø×!Ñ! "Ô%Ø RØ$&+qÒ!ñ 'ð 'ð L×Ñ
|
Ô#Ü*Ó%Nà $Càó +à <DÜ Ó&KÜ dÓ#Gà <Dä tÓ$GØ IIdOEÙÙ Ð" 4¨ Ñ#5Ð"6°a¸°v¸RÀ¸wÀaÐ HÔIÙ Ù Ð#Ô $ÙÙ $tLÑ)Ð*¨)°K°=ÐAÕ Bá Ð! $ r¨%¨°Ð 2Ô3Ù Ù Ð#Ô $Ù Ù )K=Ð)Ô *áØÐ*Ñ+×1Ñ1°$Ó7ò DØ{{}×'Ñ'¨Õ/°JÀdÒ4JÙD ð ð KØ ò "Ü d1gÕ Ù )A3Ô Ø × Ñ qÕ !ð"ð ò "Ø Ñ Ø Ü DGÕ Ù t Q°Ô8Ô 9Ø × Ñ qÕ !ð "ð ò 6Ø Ñ Ø Ù N4 ¨GÔ 4Õ5ð6ñ
|
Ù à á Ô Ø Ð .Ñ/×5Ñ5°dÓ;ò Ø;;=×+Ñ+¨FÔ3¸
|
ÀdÑ8JØ ÙD ð ñ Ô à II $Ö>Q¨!°:Ò*=qÒ>Ó ?Eá Ù eK= % ¨Ð *Ô+ÙÙ Ð& t¨LÑ'9Ð&:¸!¸D¸6Ð BÔCð q6Mñ E
|
Ø q6Mùò ?s Ê KÊKc ón t | « rØt | « }| d }t d|d|d« t j | « } |}|}d| v r| d }| d | | d |< | d | }t |« sWd|vrg |d< |d j d« d }|d D ] }|j d
|
« sd } n |r|d j d
|
| « |g| d z | d d d | t | « fS t | « rDt | « }| d }t d |d|d« t j | « } | t | « fS | dfS )NrJ z) Creating wrapper for Fortran function "z"("z")...
|
Úresultr% r? Úoutr zout=r r9 z+ Creating wrapper for Fortran subroutine "r )
|
r r r Úcopyr
|
r` rf rx r r{ )r2 ro rJ ÚfnameÚrnameÚfvarÚflagrj s r, Úassubrr ( sm ÜtÔ Ü$ TÓ* ØF|ÝÚ +ð ô äyyØØØ tÑ ØNEØ"& v¡,¨uÑ"5DLÑ ØF|EÑ"ÜDÔ!ØtÑ#Ø!#XØ N× !Ñ ! %Ô (ØDØ(^ò Ø<< Õ'Ø DÙð ñ ØX×%Ñ%¨¨U¨G nÔ5Ø ' D¨¡LÑ0V QØÔ& tÓ,Ð,Ð,ÜÔ Ü$ TÓ* ØF|ÝÚð&ô 'äyyØÔ& tÓ,Ð,Ð,Ø 8Or. )NN)r )Ú__doc__r Ú _isocbindr Úauxfuncsr r r r r r
|
r r r r r r r r- r7 rx r{ r rD r. r, ú<module>r sD ðñ
|
ó å #÷÷ ÷ õ ó",ò\óxóvTón!r.
|
