U mdXX@sdZddlZddlZddlZddlmZddlmZddlmZddd d d d d ddddddddddddddddddd d!d"d#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;dd?d@dAdBdCdDdEdFdGdHdIdJdKdLdMdNdOdPdQdRdSdTdUdVdWdXdYdZd[d\d]d^gXZ ej Z ej j ZejZiZgZdZd_dYZd`dZdadbZdcddZded ZdfdZdgdZdhdJZdidHZdjdIZdkdZdldZdmdFZdnd!Z dod9Z!dpd,Z"dqdrZ#dsdtZ$dud*Z%dvd>Z&dwdPZ'dxdTZ(dydOZ)dzdRZ*d{d%Z+d|d<Z,d}d;Z-d~d"Z.dd+Z/ddQZ0ddUZ1ddZ2ddSZ3ddZ4ddZ5ddZ6ddGZ7ddZ8ddZ9ddAZ:dd@Z;dd(ZddMZ?dd^Z@ddZAddZBddEZCdd:ZDdd?ZEdd=ZFdd#ZGdd$ZHddKZIddZJddNZKddZLddBZMdd'ZNddDZOdd3ZPdd4ZQdd7ZRdd2ZSdd6ZTdd.ZUddZVdd0ZWdd8ZXdd/ZYdd5ZZdd-Z[ddZ\ddZ]ddZ^ePdeQdeRdeSdeVdeUdeMdeZde\de]de^di Z_ddCZ`ddZaddɄZbddZcddZdddZedd΄ZfddЄZgddZhddZiddԄZjddքZkGdd؄delZmGdd]d]ZnddVZoddXZpddWZqdd&ZrddZsdddZtddZuifdd ZvddZwddZxddZyddZzdd Z{ddZ|dd Z}ddZ~dd\ZdddZZdd ZifddZdS)aW Auxiliary functions for 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 (BSD style) LICENSE. NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK. $Date: 2005/07/24 19:01:55 $ Pearu Peterson N)reduce) __version__)cfuncs applyrules debugcapi dictappenderrmessgentitlegetargs2getcallprotoargumentgetcallstatementgetfortrannamegetpymethoddef getrestdoc getusercode getusercode1hasbodyhascallstatement hascommon hasexternals hasinitvaluehasnote hasresultnote isallocatableisarrayisarrayofstrings ischaracterischaracterarrayischaracter_or_characterarray iscomplexiscomplexarrayiscomplexfunctioniscomplexfunction_warnisdoubleisdummyroutine isexternal isfunctionisfunction_wrapisint1 isint1array isinteger isintent_aux isintent_cisintent_callback isintent_copy isintent_dict isintent_hide isintent_inisintent_inoutisintent_inplaceisintent_nothide isintent_outisintent_overwrite islogicalislogicalfunctionislong_complex islong_doubleislong_doublefunction islong_longislong_longfunctionismoduleismoduleroutine isoptional isprivate isrequired isroutineisscalarissigned_long_longarrayisstring isstringarrayisstring_or_stringarrayisstringfunction issubroutineissubroutine_wrap isthreadsafe isunsignedisunsigned_charisunsigned_chararrayisunsigned_long_longisunsigned_long_longarrayisunsigned_shortisunsigned_shortarrayl_andl_notl_oroutmessreplaceshow stripcomma throw_error isattr_valuecCstddrtj|dS)Nverboser)optionsgetsysstdoutwrite)treL/home/sam/Atlas/atlas_env/lib/python3.8/site-packages/numpy/f2py/auxfuncs.pyrXAs cCsdtkS)NZcapi) debugoptionsvarrererfrFscCsd|ko|ddkot| SNtypespec characterr&rhrererf _ischaracterJsrncCsd|ko|ddkot| Srjrmrhrererf _isstringOsrocCst|od|kSNZ charselectorrnrhrererfrTscCst|ot| SNrrrhrererfrXscCst|ot|Srrrsrhrererfr\scCst|od|kSrprqrhrererfrI`scCst|ot| SrrrIrrhrererfrGdscCst|ot|SrrrtrhrererfrHhscCst|o|dddkS)N dimensionz(*))rHrhrererfrlscCsd|kot| SNrurmrhrererfrrscCst|pt|pt| Srr)rrGr&rhrererfrEvscCst|o|ddkSNrk)complexzdouble complexrEr`rhrererfr zs cCst|o|ddkS)Nrklogicalrzrhrererfr8scCst|o|ddkS)Nrkintegerrzrhrererfr+scCst|o|ddkS)Nrkrealrzrhrererfisrealsr~c CsPz|ddWStk rJz|ddWYStk rDYnXYnXdS)NZ kindselector*kindKeyErrorrhrererfget_kindsrcCs$|ddko"t|dko"t| SNrkr|1)r`rrrhrererfr)s  cCs*t|s dS|ddkrdSt|dkS)Nrrkr|r{8rEr`rrhrererfr=s cCs*t|s dS|ddkrdSt|dkS)Nrrkr|-1rrhrererfrOs cCs*t|s dS|ddkrdSt|dkS)Nrrkr|-2rrhrererfrSs cCs*t|s dS|ddkrdSt|dkS)Nrrkr|-4rrhrererfrNs cCs*t|s dS|ddkrdSt|dkS)Nrrkr|-8rrhrererfrQs cCs*t|s dS|ddksdSt|dkS)Nrrkr}rrrhrererfr$s cCs*t|s dS|ddksdSt|dkS)Nrrkr}Z16rrhrererfr;s cCst|s dSt|dkS)NrZ32)r rrhrererfr:scCst|o|ddkSrx)rr`rhrererfr!s cCs"t|o |ddko t|dkSrrr`rrhrererfr*s cCs"t|o |ddko t|dkS)NrkrrrrhrererfrPs cCs"t|o |ddko t|dkS)NrkrrrrhrererfrTs cCs"t|o |ddko t|dkS)Nrkrrrrhrererfisunsignedarrays rcCs"t|o |ddko t|dkS)NrkrrrrhrererfrRs cCs"t|o |ddko t|dkS)Nrkrrrrhrererfissigned_chararrays rcCs"t|o |ddko t|dkS)Nrkr2rrhrererfissigned_shortarrays rcCs"t|o |ddko t|dkS)Nrkr4rrhrererfissigned_arrays rcCs"t|o |ddko t|dkS)NrkrrrrhrererfrFs cCsd|kod|dkS)NattrspecZ allocatablererhrererfr scCsd|kpt| Srw)rGrhrererf ismutablesrcCsd|kS)N modulenamereroutrererfr@scCsd|kod|dkS)Nblockmodulererrererfr?scCsd|kod|dkS)Nrfunctionrerrererfr'scCs"t|r dSto t|o t| SNr)r- wrapfuncsr'r&rrererfr(scCsd|kod|dkS)NrZ subroutinererrererfrK$scCst|r dSt|ot|Sr)r-rKhasassumedshaperrererfrL(scCsd|dgkS)Nvaluerr`rhrererfr]-scCsV|drdS|dD]:}|d|idgD]}|dkr2d|d<dSq2qdS)NrTargsvarsru:Fr)radrererfr1s   rcCst|pt|Srr)r@rrrererfrequiresf90wrapper<srcCst|pt|Srr)r'rKrrererfrD@scCsFt|s dSd|kr|d}n|d}||dkrBt|d|SdSNrresultnamer)r'r8rrrererfr9Ds  cCsFt|s dSd|kr|d}n|d}||dkrBt|d|SdSr)r'r=rrererfr>Ps  cCsFt|s dSd|kr|d}n|d}||dkrBt|d|SdSr)r'r;rrererfr<\s  cCsFt|s dSd|kr|d}n|d}||dkrBt|d|SdSr)r'r rrererfr"hs  cCst|rtddSdS)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 ************************************************************** rr)r"rXrrererfr#tscCsFt|s dSd|kr|d}n|d}||dkrBt|d|SdSr)r'rGrrererfrJs  cCsd|ko|dS)NZ externalsrerrererfrscCsd|kod|dkS)Nf2pyenhancementsZ threadsafererrererfrMs cCsd|ko|dS)Nrrerrererf hasvariablessrcCs(d|ko&d|dko&d|dko&t|S)Nroptionalrequired)r5rhrererfrAs  cCsd|kod|dkS)NrZexternalrerhrererfr&scCst| ot|Srr)rAr5rhrererfrCscCspd|kr dSd|dkrdSd|dkr,dSd|dkrszgetargs2..rr)r`keysr)rrZauxvarsrrerrfr s   cCs<d|kr dSd}|ddkr,|d|df}|d|dS)NZf2pymultilinesrz python modulerr)rkrererfrs  cCs*dt|dd}d|d||dfS)NPz /*%s %s %s*/r)r)rlnrererfr scCs$t|trttfdd|gS|gS)NcSs |||Srrre)xyrrererfzflatlist..)rrrflatlist)lstrererfrs rcCs |r|ddkr|ddS|S)Nrvrre)srererfr[ s rc sttrfddDSttr<fddDSdtD]v}|dkrZqLdkr||dkr|d|}n}t|trd||t|qLd||qLS)Ncsg|]}t|qSrerYr_m) defaultseprrerfrszreplace..csg|]}t|qSrer r )rr rerfrsr separatorsforz#%s#)rrrrYrr)rrr rsepre)rr rrfrYs   cCs2t|tr"|D]}t||}q|S|D]}|ddkr>q*||kr t||trd||g||<t||trt||tr||||||<n||||ntt||tr,t||tr,|dkr||D]$}|||kr||||||<qnt||||||<q*||||<q*|S)Nr_r)rrrrrrdict)rdarrrk1rererfr"s.      c Csi}t|tr>|D]&}t|||}t||}d|krq:q|Sd|krV|d|sV|Sd|krtd|di||}d|krt|d|D]}|dkr||||<qt||trt|||||<nt||tr$g||<||D].}t||i||} || kr|| | |qn2|ddkr8qnt||t rBg||<||D]} t| t j r\| |r\t||| tr||| D]N}t|t rtd|i||}d|kr|d}nd }|| t||qnR||| }t|t r(td|i|}d|kr$|d}nd }|| t||q\nt d t||t||trt||d kr||d||<||gkr||=q|S) N_break_checkZneedZneedsrrrZ supertextrzapplyrules: ignoring rule %s. r)rrrrrZ append_needsrrrYrrtypes FunctionTyper rr) rulesrriretrrrresrrrrrererfr?sl             )rr)r)__doc__pprintrar functoolsrrrr__all__versionZ f2py_versionstderrrcr rZr_rgrrXrrnrorrrrIrGrHrrrEr r8r+r~rr)r=rOrSrNrQr$r;r:r!r*rPrTrrRrrrrFrrr@r?r'r(rKrLr]rrrDr9r>r<r"r#rJrrMrrAr&rCr2r3r6r1r5r-rr/r7r.r4r,rrrr0rBrrrrrrrrrrr Exceptionrr\rUrWrVr%rrr r rrrrr rr rr[rYrrrerererfs                 '