+
    eiA'  c                   s    R t ^ RIt^RIHt ^RIHtHtHtHtH	t	H
t
HtHtHtHtHtHtHt R	R ltR tR
R ltR
R ltR tR# )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                 sl   Vf   TpW9  d   \        V 4       \        RV R24       R# RW,          9  d#   \        W,          4       \        RV R24       R# W,          R,          pVR8X  d#   RW,          9   d   V RW,          R,           R	2p/ pRpR
W,          9   d   W,          R
,          pRpMRW,          9   d   W,          R,          pRpRV9   d]   V'       d(   VR,          R9   d   V R2pMV RV RVR,           R	2pMuVR,          R9   d   V RVR,           R	2pMWV RVR,           2pMHRV9   d,   V RVR,           2pRV9   d   V RVR,           R	2pMV R	2pMRV9   d   V RVR,           R	2pV RV 2pRW,          9   d%   V RRP                  W,          R,          4       R	2pV# )Nz,var2fixfortran: No definition for argument "z".
 typespecz*var2fixfortran: No typespec for argument "ZtypeZtypename()kindselectorkindcharselectorZlen*z(len=*)=z*(z(len=z,kind=z(kind= 	dimensionZ,)r   :(*))r   r   )r   r   join)varsaZfaf90modeZvardefZselectorZlks   &&&&   ;/usr/lib64/python3.14/site-packages/numpy/f2py/func2subr.pyvar2fixfortranr        s   	z}T
>qcFG TW<QCtDEWZ FJ$'181TWZ013H	B 7>*	47	"7>*
h} 11"87+"81RD(3-:c]j(xr(3-2Fxq#0F	(	85% 12Xxvhv&6%7q9Fxq\F	8	86(6"2!315xqFdg81SXXdgk&:;<A>M    c                 s    R pV R,          P                  4        F4  w  r#VP                  R/ 4      P                  R4      pV\        9   g   K3   R# 	  V# )Fr   r   r   T)Zitemsgetr    )routuseisocZkeyZvalueZ
kind_values   &    r   useiso_c_bindingr%   N   sM    G6l((*
YY~r266v>
% + Nr!   c           	      s
   \        V 4      '       g   Q h. pV R ,          pV R,           F{  pV R ,          V,          p\        VP                  R. 4      4       FI  w  rgVR8X  g   K  RV RV 2pRRRR	./p	R
V RV R2V	R&   VP                  V4       WV&   WR,          V&   KK  	  K}  	  V R,          P	                  V4       \        V4      p
R.pV3R lpV R,          p\        V 4      p\        V 4      pV R2pVV9  d%   W=,          VV&   V.V R,          R,          ,           pMV.V R,          ,           p\        W=RV4      pVR,          R8X  dU   V'       d   RVR,          ,           pMRVR,          ,           pW=,          R,          pVP                  RR4      R8X  d   RVR&   VP                  RV4      pRp\        V 4      pRP                  V4      pV'       d|   VP                  V R2R4      pV Uu. uF  pVV8w  g   K  VNK  	  ppVV R&   V! RV R,           R V R!V R24       V'       g   V! R"V R,           R#V 24       V'       d	   V! R$4       MRV! R%V R!V R24       V'       d	   V! R$4       V
'       g,   V! R&V 24       VP                  RR4      R',           V,           pV
'       dX   V R(,          P                  R)4       F;  pVP                  4       P                  R"4      '       g   K*  R*V9  g   K3  V! V4       K=  	  VR,          p. pV F8  p\        W4,          4      '       g   K  V! R&V 24       VP                  V4       K:  	  V FI  pVV9   d   K  \!        W4,          4      '       g   K%  V! \        W4VR+7      4       VP                  V4       KK  	  V FI  pVV9   d   K  \#        W4,          4      '       g   K%  V! \        W4VR+7      4       VP                  V4       KK  	  V F  pVV9   d   K  V! \        W4VR+7      4       K!  	  V! V4       Ve	   V! V4       V
'       d7   V'       d   M-V! R,4       V! V R(,          P                  4       4       V! R-4       RP                  V Uu. uF  qDV9  g   K  VNK  	  up4      pV'       g5   \%        V 4      '       d   V! V R.V R/V R024       MV! V R1V R/V R24       V'       d   V! R2V R,           R V 24       V^ ,          # V! R34       V^ ,          # u upi u upi )4r   argsr   r   f2py__dr   integerintenthideshape(, r   r   r   c                 (    V^ ,           RV  2V^ &   R#     z
      N lineret   &&r   addZcreatefuncwrapper.<locals>.addj       F88D6*Ar!   nameZf2pywrap:i   NNz
@@@NAME@@@:N   Nzcharacter*(*)zcharacter(len=10):r9   NNzcharacter*10r   r   r   Z10N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_end)r   	enumerater"   appendextendboolr   r   r    Zreplacer%   r   splitlstrip
startswithr   r	   r   r   )r#   	signature
extra_argsr   r   viddndvneed_interfacer4   r6   r8   fortrannamer   Znewnamer&   Zl_tmplZ
charselectZl1Zrlr$   sargsZargr3   dumped_argss   &&                         r   createfuncwrapperr]   V   s   dJ<D&\\LOaeeK45DACxQCr!% )Xx@"1#Rs!,3!!"%R$&+q! 6  	L
#*%N$C +<D &Kd#GhGd
Wy4<++y4<'Dg>Fc{o%(6#;6F#fSk1FZ/
>>#r"e+"JsO	g	.B	Bt$GIIdOE bk2.#3tsd{t3V"4#5"6avRwaHI$tL)*)K=AB#$!$r%23#$)K=)*b1C7+EB*+11$7D{{}''//Jd4JD	 8 8DKdg)A3 q!  DGt89q!  twt89q!  N4G45 
 G	~B&'..01 II$>$Q:*=qq$>?ET""7)>+awbAB7)3{m1UG156&tL'9&:!D6BC q6M 	E
q6MG 4p ?s   3	T T 3T Tc           	      s:   \        V 4      '       g   Q h. pV R ,          pV R,           F{  pV R ,          V,          p\        VP                  R. 4      4       FI  w  rgVR8X  g   K  RV RV 2pRRRR	./p	R
V RV R2V	R&   VP                  V4       WV&   WR,          V&   KK  	  K}  	  V R,          P	                  V4       \        V4      p
R.pV3R lpV R,          p\        V 4      p\        V 4      pV R,          p\        V 4      pRP                  V4      pV'       dH   V! RV R,           RV RV R24       V'       d	   V! R4       V'       g   V! RV R,           RV 24       M2V! RV RV R24       V'       d	   V! R4       V
'       g   V! RV 24       V
'       dX   V R,          P                  R4       F;  pVP                  4       P                  R4      '       g   K*  RV9  g   K3  V! V4       K=  	  . pV F8  p\        W4,          4      '       g   K  V! RV 24       VP                  V4       K:  	  V FI  pVV9   d   K  \        W4,          4      '       g   K%  V! \        W4VR7      4       VP                  V4       KK  	  V F  pVV9   d   K  V! \        W4VR7      4       K!  	  V
'       do   V'       d   MeV! R4       V R,          P                  R4       F9  pVP                  4       P                  R4      '       d
   RV9   d   K1  V! V4       K;  	  V! R4       RP                  V Uu. uF  qDV9  g   K  VNK  	  up4      pV'       g   V! R V R!V R24       V'       d   V! R"V R,           RV 24       V^ ,          # V! R#4       V^ ,          # u upi )$r   r&   r   r   r'   r(   r   r)   r*   r+   r,   r-   r   r   r   c                 r.   r/   r1   r2   r5   r   r6   Zcreatesubrwrapper.<locals>.add   r7   r!   r8   r:   r;   r<   r=   r@   r>   r?   rA   rB   rC   rD   rE   rF   rG   rH   zcall r   rI   rJ   )r
   rK   r"   rL   rM   rN   r   r   r%   r   rO   rP   rQ   r   r	   r    )r#   rR   rS   r   r   rT   rU   rV   rW   rX   rY   r4   r6   r8   rZ   r   r&   r$   r[   r3   r\   s   &&                   r   createsubrwrapperr^      sq   J<D&\\LOaeeK45DACxQCr!% )Xx@"1#Rs!,3!!"%R$&+q! 6  	L
#*%N$C +<D &Kd#G<Dt$GIIdOE"4#5"6avRwaHI#$$tL)*)K=AB!$r%23#$)K=)**+11$7D{{}''//Jd4JD	 8 Kdg)A3 q!  DGt89q!  N4G45 
 ./55d;;;=++F33
d8JD	 <  II$>$Q:*=qq$>?EeK=%*+&tL'9&:!D6BC q6M 	E
q6M ?s   0N=Nc                 s8   \        V 4      '       Ed*   \        V 4      pV R ,          p\        RV: RV: R24       \        P                  ! V 4      p TpTpRV 9   d$   V R,          pV R,          V,          V R,          V&   V R,          V,          p\	        V4      '       gu   RV9  d   . VR&   VR,          P                  R4       ^pVR,           F  pVP                  R4      '       g   K  ^ p M	  V'       d   VR,          P                  RV 24       V.V R	,          ,           V R	,          R
&   V \        V 4      3# \        V 4      '       dL   \        V 4      pV R ,          p\        RV: RV: R24       \        P                  ! V 4      p V \        V 4      3# V R3# )r8   z)		Creating wrapper for Fortran function "z"("z")...
Zresultr   r*   Zoutzout=r&   :NNNz+		Creating wrapper for Fortran subroutine "r   )
r   r   r   copyr   rL   rQ   r]   r   r^   )r#   rZ   r8   ZfnameZrnameZfvarZflagrU   s   &       r   assubrr`   (  sv   t$T*F|+ 	 yytNE"&v,u"5DLF|E"D!!t#!#XN!!%(D(^^<<''D $ X%%UGn5 'DL0VQ&t,,,$T*F|& 	'yy&t,,,8Or!   )NN)r0   )Z__doc__r_   Z	_isocbindr    Zauxfuncsr   r   r   r   r   r   r   r   r	   r
   r   r   r   r    r%   r]   r^   r`   r1   r!   r   <module>ra      sD   
  #   ",\xvTn!r!   