+ eiR&csRtR^ R tRt^RIt^RIHtHt^RI5^RI H t H t /t Rt R]P!4P,tR tR tR tR#) 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_rmbadnameundo_rmbadname1cs\V4'dV.#\V4'g.#.pVR,F9p\V4'dVPV4K'V\V4,pK; V#)body)Zismodulehasbodyappendfindf90modules)mretbs& >/usr/lib64/python3.14/site-packages/numpy/f2py/f90mod_rules.pyrrs_{{s 1:: C vYY A;; JJqMq))C  Ja 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))cs.^RIHpR.R.R.RRR.RR R R R /R R .R./pR.pV3RlpR.pV3Rlp\V4p\V4E Fp....VR,..3wrrr.p.p.p\ V4'd)VR,FpV P VR,4K VR,P 4FspVR,V,pVV 9gK\V4'gK/\\\4!V4'dKQVP V4VP V4Ku \RVR, R24\V4^8Xd8\V 4^8Xd(VR,V 9d\RVR, R24EKBVR,V9d+\V4'd\RVR, R24EKzVR,V9d+\V4'd\RVR, R24EKV'd\RRPV4 R 24R.pV3RlpR.pV3Rlp\ P"!V4pV!RVR,,4V!RVR,,4\%V4'd9VR ,p\'V\(4'dR PV4pV!V4V'd V!R!4VEFpVR,V,pV P V4\ P*!V4p\ P,V,p\ P.!VV4pVR",P1R#R$4P34pVP1R%R$4P34pV'gR$p\4pV!R&\7V4: R'VR(,: R)V: R*V: R+\ P8!V4: R,2 4V!R-\ P:!VV4,4\%V4'd<VR ,p\'V\(4'dR PV4pV!R.V 24\=V4'EdDV P R/VR, R0V 24V P V Rs,4V P R1V R224VP R34V!R4VR, R5V R624V!R7V Rs, R824V!R9VR, R:\7V4 R 24V!R;4V^,\>,V^&\A^\CVR(,4^,4pT!RV ,NK up 4,4V^,V,V^&V!R?V Rs, 24EKV P V4V P R@V 24VP RA4V!R4VR, RBV R624EK V'd V!RC4\ V4'Ed:VR,EF+p\EV4'g#\RDVRE, RVR, R 24K7V P VR, RF24VR,VRG&VPGV4wp!p"\IV4'daV^,V",V^&V P RHVR, RIVR, 24VP \JPL!V^RJ74MV"'daV^,V",V^&V P RHVR, RIVR, 24VP \JPN!V^RJ74M0V P VR,4VP V Rs,4.V!RK&\QV!V4p#.V#R &.V#RL&\SVV#4pV!R&VR,: RMVR,: RIVR,: RNVR,: RIVR,: R,2 4V P R@VR, 24VP R@4V!R4VR, RBVR, R624EK. V!RO4V!RP4RQVR,: RRR=PV 4: RSV^,: 2V^&RIVR,9dRTp$MRp$V!RUV$: RVVR,: RWVR,PU4: RXR=PV4: RY2 4V!RZVR,,4V!R[V$: RVVR,: RWVR,PU4: R\VR,: R]2 4V!R^4VR,V,V,VR&R_VR,: R`VR,: RaVR,: RY2.VR,,VR&V!R4V!RbVR, Rc24V'd(\WV4Fp%V!R9VR, RdV% 24K V'd(V!RPRe.V,44V!Rf4V!Rg4V 'd\WV 4Fp%V!RhV% 24K V!RiR=P\WV 44 Rj24V!RkVR, R 24V!R PVR,4P1RlRm44.VR&VR ,P RnVR, RoR=P\WV 44 Rp24E K RVRq&.VRr&.VRL&V^,VR&\VR ,4^8:dRVR &W#^,3#uup i)ti)rulesZ f90modhooksZinitf90modhooksrZneedF_FUNCz arrayobject.hZ separatorsforZ includes0 ZincludesZdocsz"Fortran 90/95 modules:\n"Zlatexdocc(V^, RV 2V^&R#)z NZlineZs&&r faddZbuildhooks..fadd[sA$xv&!r crrrNrrrr daddZbuildhooks..dadd_sA$r$ !r ZnameZvarsz' Constructing F90 module support for "z"... 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: Z crrrrrr caddZbuildhooks..cadddV2dV$AaDr crrrrrr iaddZbuildhooks..iaddrr z'static FortranDataDef f2py_%s_def[] = {z.\subsection{Fortran 90/95 module \texttt{%s}} notez\begin{description}Zdimsrz-1Z:z {"z",Zrankz,{{z}},z, z},z\item[]{{}\verb@%s@{}}z--- Zf2py_Z _getdims_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;z subroutine z(r,s,f2pysetdata,flag)zuse z , only: d => z integer flag z allocate(d(%s)) Z,zs(%s)zend subroutine zchar *zchar*z_def[i_f2py++].data = z\end{description}z"f90mod_rules.buildhooks: skipping Zblockz()Z modulenameZ f2pywrap_Z_)Z signatureZexternroutinesZdocshortz4",-1,{{-1}},0,0,NULL,(void *)f2py_rout_#modulename#_z,doc_f2py_rout_#modulename#_z {NULL} }; Z}zstatic void f2py_setup_Z(z) { int i_f2py=0;Z F_FUNC_USz extern void z (f2pyinitz ,F2PYINITz )(void (*)(z));z static void f2py_init_%s(void) {Z z )(f2py_setup_z);z} z PyDict_SetItemString(d, "z", PyFortranObject_New(f2py_z_def,f2py_init_zsubroutine f2pyinitz(f2pysetupfunc)z , only : Z interfacez end interfacezexternal f2pysetupfuncz external zcall f2pysetupfunc(Z)zend subroutine f2pyinitz \subsection{z\subsubsection{z" z --- Z"Z routine_defsdoc),rrZ getuseblocksrrrZkeysZ isvariableZl_orZ isintent_hideZ isprivateZoutmessZlenZcontainscommonZcontainsderivedtypesZjoinrZ modsign2mapZhasnoteZ isinstanceZlistZgetctypeZ c2capi_mapZ getarrdimsZreplaceZstrip fgetdims2rZ get_elsizeZ getarrdocsignZ isallocatable fgetdims1ZrangeZintZ isroutineZbuildapiZ isfunctionrZcreatefuncwrapperZcreatesubrwrapperZ applyrulesZ dictappendZupperr)&Zpymodrr ZfhooksrrrZusenamesr ZsargsZfargsZefargsZmodobjsZnotvarsZonlyvarsZsargspZifargsZmfargsr ZnZvarZchooksrZihooksrZvrdrZctZatZdmZdmsZ use_fgetdims2ZiZapiZwrapZarrZas&& r buildhooksr"Rs  "/VR Ho. [$ DA 12 r  C TF' $C!E"H E ";=r2r fIL<8fw 1::vYYqy)6!AF)A,C Z__tMS\?]^a?b?b" a "  ? % %##A& 6!F) DE @AfI NO 1::V9D$%%yy J  ' (AF)A,C NN1 ##C(B%%b)B%%a-BV*$$S$/557C++c4(..0C%M !!$bjj#r&&s+- . +))!S13 4s||6{dD))99T?DtD6]#S!! uQvYKy<= eBi( aS OPR VWwqyk)?s!DE{59+-CDEtAfI;mOA4F3GrJK%&"1I 1q As2f:23)hhS9S! S9:<="1I 5q uRyk23 Q vaS\* g&wqyk)?s!DEST  % & 1::vYY ||))*7 Aai[DE!F)B/0"#F),!NN1- Ta== &q D 0F1ILL9QvYKq6 !DEMM)"="=a1"MN &q D 0F1ILL9QvYKq6 !DEMM!33ACELL6+MM%),(*$%S)6 !#: b)& 1V99aii6AfIIOP vai[12 h'wqyk)?& {!LM?@  S fIIsxxq 3q !F)  FF & 1V9??#4chhv6FH I /1V9 => & 1V9??#4aiiA B U  /&86AM fIIqyy!F))#-".034E0F"G  R "1V9+_ => #F+tAfI;is34,  ;-&01 2  ! %& #F+y_%, "388N5,A#B"C1 EF &qyk 45 TYYs: ' / / /1 2J F T!F)E#((>';R2S1TTVWXE#HCCJC O!fC O 3v;1F q >o :slr)Z__doc__Z __version__Z f2py_versionZnumpyZnprrrZauxfuncsZ crackfortranrrZoptionsrZintpZitemsizer!r Z fgetdims2_sar"rr r r#sg ""R(  " 9   7 :<9K9K! L $ *  * {r