Ë
|
Kñúh_' ã ó d Z ddd ZdZddlZddlmZmZ dd l dd
|
l m
|
Z
|
m Z i Z d Z d ej « j z Zd ZdZd Zy)a2
|
Build F90 module support 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 License.
|
|
NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK.
|
z$Revision: 1.27 $é
|
éÿÿÿÿz See `f2py -v`é Né )Ú capi_mapsÚ func2subr)Ú*)Úundo_rmbadnameÚundo_rmbadname1c óª t | « r| gS t | « sg S g }| d D ]- }t |« r|j |« |t |« z }/ |S )NÚbody)ÚismoduleÚhasbodyÚappendÚfindf90modules)ÚmÚretÚbs úJH:\Change_password\venv_build\Lib\site-packages\numpy/f2py/f90mod_rules.pyr r s\ Ü{Øs
|
Ü 1:Ø Ø
|
CØ vYò *Ü A;Ø JJqMà qÓ)Ñ)Cð *ð
|
Jó a external f2pysetdata
|
logical ns
|
integer r,i
|
integer(%d) s(*)
|
ns = .FALSE.
|
if (allocated(d)) then
|
do i=1,r
|
if ((size(d,i).ne.s(i)).and.(s(i).ge.0)) then
|
ns = .TRUE.
|
end if
|
end do
|
if (ns) then
|
deallocate(d)
|
end if
|
end if
|
if ((.not.allocated(d)).and.(s(1).ge.1)) thenz« end if
|
if (allocated(d)) then
|
do i=1,r
|
s(i) = size(d,i)
|
end do
|
end if
|
flag = 1
|
call f2pysetdata(d,allocated(d))zÕ end if
|
if (allocated(d)) then
|
do i=1,r
|
s(i) = size(d,i)
|
end do
|
!s(r) must be equal to len(d(1))
|
end if
|
flag = 2
|
call f2pysetdata(d,allocated(d))c ó² ddl m} g g g ddgddddgg d}d g}|fd
|
}d g}|fd }t | « }t | « D ]_ }g g g g |d gg f\ } }
|
} } } }g }g }g }t |« r |d D ] }| j |d « |d j « D ]X }|d | }|| vst |« s t t t « |« r7|j |« |j |« Z t d|d d« t |« dk( r(t | « dk( r|d | v rt d|d d« ü|d |v r t |« rt d|d d« "|d |v r t |« rt d|d d« H|r t ddj |« d« d g}|fd}d g}|fd}t! j" |« } |d|d z « |d|d z « t% |« r.|d }t' |t( « rdj |« } ||« |r |d « |D ] }|d | }| j |« t! j* |« }t j, | } t! j. ||« } | d j1 d d « j3 « } | j1 d!d « j3 « } | sd } t4 } |d"t7 |« d#| d$ d%| d&| d't! j8 |« d( « |d)t! j: ||« z « t% |« r1|d }t' |t( « rdj |« } |d*| « t= |« r|
|
j d+|d d,| « | j |
|
d- « | j d.| d/« |j d0« |d1|d d2| d3« |d4|
|
d- d5« |d6|d d7t7 |« d« |d8« |d t> z |d< tA dtC | d$ « dz « } |d9d:j | D cg c] } d;| z c} « z « |d | z |d< |d<|
|
d- « N|
|
j |« | j d=| « |j d>« |d1|d d?| d3« |r |d@« t |« rÁ|d D ]¸ }tE |« st dA|dB d|d d« (| j |d dC« |d |dD< |jG |« \ }!}"tI |« rO|d |"z |d< |
|
j dE|d dF|d « |j tK jL |d¬G« « ny|"rO|d |"z |d< |
|
j dE|d dF|d « |j tK jN |d¬G« « n(|
|
j |d « |j |
|
d- « g |!dH< tQ |!|« }#g |#dI< g |#dJ< tS ||#« } |d"|d dK|d dF|d dL|d dF|d d( « | j d=|d « |j d=« |d1|d d?|d d3« » |dM« |dN« dO|d dPd:j | « dQ|d |d< dF|d v rdR}$nd}$ |dS|$dT|d dU|d jU « dVd:j |« dW « |dX|d z « |dY|$dT|d dU|d jU « dZ|d d[ « |d\« |d] |z |z |d]< d^|d d_|d d`|d dWg|da z |da< |d « |db|d dc« |r!tW |« D ] }% |d6|d dd|% « |r# |dj deg|z « « |df« |dg« | rtW | « D ] }% |dh|% « |did:j tW |
|
« « dj« |dk|d d« |dj |dl « j1 dmdn« « g |dl< |dI j do|d dpd:j tW | « « dq« b d |dr< g |ds< g |dJ< |d |dl< t |dI « dk rd |dI< ||d fS c c} w )tNr )ÚrulesÚF_FUNCz arrayobject.hú
|
)Ú includes0Úincludesz"Fortran 90/95 modules:\n")Ú f90modhooksÚinitf90modhooksr ÚneedÚ separatorsforÚdocsÚlatexdocÚ c ó |d d| |d< y )Nr z
|
© ©ÚlineÚss r Úfaddzbuildhooks.<locals>.fadd[ s ØA$x vÐ&!r c ó |d d| |d< y ©Nr r r$ r% s r Údaddzbuildhooks.<locals>.dadd_ s ØA$r$Ð !r Únamer Úvarsz' Constructing F90 module support for "z"...
|
r z Skipping z7 since there are no public vars/func in this module...
|
z5 since it is in 'use' and contains a common block...
|
z5 since it is in 'use' and contains a derived type...
|
z Variables: ú c ó |d d| |d< y r* r$ r% s r Úcaddzbuildhooks.<locals>.cadd ó ØdV2dVÐ$AaDr c ó |d d| |d< y r* r$ r% s r Úiaddzbuildhooks.<locals>.iadd r1 r z'static FortranDataDef f2py_%s_def[] = {z.\subsection{Fortran 90/95 module \texttt{%s}}
|
Únotez\begin{description}Údimsr z-1ú:z {"z",Úrankz,{{z}},z, z},z\item[]{{}\verb@%s@{}}z--- Úf2py_Ú _getdims_r zvoid (*z/)(int*,npy_intp*,void(*)(char*,npy_intp*),int*)z6void (*)(int*,npy_intp*,void(*)(char*,npy_intp*),int*)z f2py_z_def[i_f2py++].func = ú;z subroutine z(r,s,f2pysetdata,flag)zuse z , only: d => z integer flag
|
z allocate(d(%s))
|
ú,zs(%s)zend subroutine zchar *zchar*z_def[i_f2py++].data = z\end{description}z"f90mod_rules.buildhooks: skipping Úblockz()Ú
|
modulenameÚ f2pywrap_Ú_)Ú signatureÚexternroutinesr Údocshortz4",-1,{{-1}},0,0,NULL,(void *)f2py_rout_#modulename#_z ,doc_f2py_rout_#modulename#_z {NULL}
|
};
|
ú}zstatic void f2py_setup_ú(z) {
|
int i_f2py=0;Ú F_FUNC_USz extern void z (f2pyinitz ,F2PYINITz )(void (*)(z));z static void f2py_init_%s(void) {ú z )(f2py_setup_z);z}
|
r z PyDict_SetItemString(d, "z ", PyFortranObject_New(f2py_z_def,f2py_init_r zsubroutine f2pyinitz(f2pysetupfunc)z , only : Ú interfacez end interfacezexternal f2pysetupfuncz external zcall f2pysetupfunc(ú)zend subroutine f2pyinitr! z \subsection{z\subsubsection{z" z --- ú"Ú routine_defsÚdoc),r" r Ú getuseblocksr r r ÚkeysÚ
|
isvariableÚl_orÚ isintent_hideÚ isprivateÚoutmessÚlenÚcontainscommonÚcontainsderivedtypesÚjoinr Ú modsign2mapÚhasnoteÚ
|
isinstanceÚlistÚgetctypeÚ
|
c2capi_mapÚ
|
getarrdimsÚreplaceÚstripÚ fgetdims2r
|
Ú
|
get_elsizeÚ getarrdocsignÚ isallocatableÚ fgetdims1ÚrangeÚintÚ isroutineÚbuildapiÚ
|
isfunctionr ÚcreatefuncwrapperÚcreatesubrwrapperÚ
|
applyrulesÚ
|
dictappendÚupperr )&Úpymodr r Úfhooksr( rK r+ Úusenamesr ÚsargsÚfargsÚefargsÚmodobjsÚnotvarsÚonlyvarsÚsargspÚifargsÚmfargsr ÚnÚvarÚchooksr0 Úihooksr3 Úvrdr4 ÚctÚatÚdmÚdmsÚ use_fgetdims2ÚiÚapiÚwrapÚarr Úas& r Ú
|
buildhooksr R sÙ ÝØ °¸RØ oÐ.Ø*.¸DÑ AØ1Ð2Øñ Cð
|
TFàó 'à $Càó !ô EÓ"HÜ EÓ "ó bYØ;=¸rÀ2ÀrØ fIðLØð<Ñ8ufg w°àØØÜ 1:ØvYò *Øq yÕ)ð *à6 Ó!ò !AØF)A,CàÒ ¤Z°¥_Ð?]¼tÄMÔS\Ó?]Ð^aÕ?bØ Ô"Ø aÕ ð !ô Ð<¸Q¸v¹Y¸KÀwÐOÔPÜ x=AÒ ¤# g£,°!Ò"3¸¸&¹ ÀWÑ8LÜ o a¨¡i [Ð0hÐiÔ jØ ð V9Ñ ¤^°AÔ%6Ü o a¨¡i [Ð0fÐgÔ hÙ à V9Ñ Ô%9¸!Ô%<Ü o a¨¡i [Ð0fÐgÔ hÙ Ù Ü Ð'¨¯©°Ó(:Ð';¸2Ð>Ô ?Øà ó %àà ó %ô ×#Ñ# AÓ&Ù Ð 6¸!¸F¹)Ñ DÔEÙ Ð @ÀAÀfÁIÑ NÔOÜ 1:ØV9DÜ$¤Ô%Øyy Ù JÙ Ù Ð'Ô (Øó ) FAØF)A,CØ NN1Ô Ü×#Ñ# CÓ(BÜ×%Ñ% bÑ)BÜ×%Ñ% a¨Ó-BØV*×$Ñ$ S¨$Ó/×5Ñ5Ó7CØ++c 4Ó(×.Ñ.Ó0CÙØÜ %MÚ Ü! !Õ$ b¨£j²#²rÜ×&Ñ& sÕ+ð-ô .ñ Ð+Ü×)Ñ)¨!¨SÓ1ñ3ô 4äs|Ø6{Ü d¤DÔ)Ø 99 T?DÙtD6]Ô#Ü SÕ!Ø u Q v¡Y K¨y¸¸Ð <Ô=Ø e BiÔ(Ø Ø aSÐ OÐPôRà Ð VÔWÙwq ykÐ)?À¸sÀ!ÐDÔEÙ{ 5¨¡9 +Ð-CÐDÔEÙtAfI; m´OÀAÓ4FÐ3GÀrÐJÔKÙÐ%Ô&Ø " 1I¬ Ñ 1q ÜAs 2 f¡:°Ñ 2Ó3ÙÐ)Øhh°SÖ 9° ¨!£ Ò 9Ó:ñ<ô =à " 1I¨ Ñ 5q Ù u¨R¡y kÐ2Ö3à QØ v a S\Ô*Ø gÔ&Ùwq ykÐ)?À¸sÀ!ÐDÖEðS) FñT Ù Ð%Ô &Ü 1:ØvYó NÜ |Üð )Ø)*¨7©¨ °A°a¸±i°[Àð Dô Eà Ø ! F¡) ¨BÐ /Ô0Ø"# F¡),Ø !NN¨1Ó - TÜ a=Ø & q¡ ¨DÑ 0F1IØLL 9¨Q¨v©Y¨K°q¸¸6¹¸ Ð!DÔEØMM¤)×"=Ñ"=¸aÈ1Ô"MÕNÙØ & q¡ ¨DÑ 0F1IØLL 9¨Q¨v©Y¨K°q¸¸6¹¸ Ð!DÔEØMMÜ!×3Ñ3°AÀÔCõEð LL 6¡Ô+ØMM %¨¡)Ô,Ø(*Ð$Ñ%Ü SÓ)Ø 6
|
Ø!#:Ü bÓ)Úð & 1 V£9¨a°«i¸¸6»ÀAÀfÃIðOô Pð v a¨¡i [Ð 1Ô2Ø hÔ'Ùwq ykÐ)?ÀÀ&Á ¸{È!ÐLÖMð? Nñ@ Ð Ô Ù S à fIsxx ¨¨qª ð3q à !F)Ñ Ø Fà FÚ Ú& 1 V¡9§?¡?Õ#4°c·h±h¸vÕ6FðHô Iá Ð /°1°V±9Ñ =Ô>Ú Ú& 1 V¡9§?¡?Õ#4°a¸³iðAô Bá U Ø Ñ /°&Ñ 8¸6Ñ AMÒà fIqy ! F£)ð#-ð ".Ø03Ð4EÑ0Fñ"GÐ Ñ á RÙ Ð" 1 V¡9 +¨_Ð =Ô>Ù Ü# FÓ+ò 5ÙtAfI; i°¨sÐ3Õ4ð 5á Ù ;-¨&Ñ0Ó1Ô 2Ù Ô !Ù Ð %Ô&Ù Ü# FÓ+ò &Ùy _Õ%ð &á Ð" 3§8¡8¬N¸5Ó,AÓ#BÐ"CÀ1Ð EÔFÙ Ð& q¨¡y k°Ð 4Ô5á TYYs:Ó '× /Ñ /Ø Ð /ó1ô 2ð JØ F ×ÑT ! F¡) ¨E°#·(±(¼>È'Ó;RÓ2SÐ1TÐTVÐWÖXðEbYðH CÑØCJØC
|
OØ!fC
|
OÜ
|
3v;Ó1Ò ØF Ø q >Ðùòo :s Ñ c)Ú__doc__Ú __version__Ú f2py_versionÚnumpyÚnpr" r r ÚauxfuncsÚ crackfortranr r
|
Úoptionsr ÚintpÚitemsizerd r` Ú fgetdims2_sar r$ r r ú<module>r sj ðñ ð " " RÐ( à ã ç "ô
|
ß 9à
|
ò ð 7ð :A¸¿¹»×9KÑ9Kñ! L ð$ * ð * ó{r
|
