ó
    Eñi='  ã                   ó‚   • S r SSKrSSKJr  SSKJrJrJrJrJ	r	J
r
JrJrJrJrJrJrJr  SS jrS rSS jrSS	 jrS
 rg)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                 óŠ  • Uc  UnX;  a  [        U 5        [        SU S35        gSX   ;  a  [        X   5        [        SU S35        gX   S   nUS:X  a  SX   ;   a  U SX   S    S	3n0 nSnS
X   ;   a
  X   S
   nSnOSX   ;   a	  X   S   nSnSU;   aE  U(       a  US   S;   a  U S3nOhU SU SUS    S	3nOYUS   S;   a  U SUS    S	3nODU SUS    3nO9SU;   a"  U SUS    3nSU;   a  U SUS    S	3nOU S	3nOSU;   a  U SUS    S	3nU SU 3nSX   ;   a  U SSR                  X   S   5       S	3nU$ )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          ÚQ/home/mande/repo/quber/.venv/lib/python3.13/site-packages/numpy/f2py/func2subr.pyÚvar2fixfortranr-       së  € Ø	�zØˆØƒ}ÜˆTŒ
ÜÐ>¸q¸cÀÐFÔGØØ˜™Ó ÜˆT‰WŒÜÐ<¸Q¸C¸tÐDÔEØØ‰W�ZÑ €FØ�Ó˜J¨$©'Ó1Ø�8˜1˜T™W ZÑ0Ð1°Ð3ˆØ€HØ	€BØ˜™Ó Ø‘7˜>Ñ*ˆØ‰Ø	˜4™7Ó	"Ø‘7˜>Ñ*ˆØˆØ
ˆhƒÞØ˜‰}Ð 1Ó1Ø"˜8 7Ð+‘à"˜8 1 R D¨¨(°3©-¨¸Ð:‘Ø�c‰]˜jÓ(Ø�x˜r (¨3¡- °Ð2‰Fà�x˜q ¨#¡ Ð0‰FØ	�(Ó	Ø�8˜5 ¨%¡Ð 1Ð2ˆØ�XÓØ�x˜v h¨vÑ&6Ð%7°qÐ9‰Fà�x˜q�\‰FØ	�8Ó	Ø�8˜6 (¨6Ñ"2Ð!3°1Ð5ˆàˆx�q˜˜Ð€FØ�d‘gÓØ�8˜1˜SŸX™X d¡g¨kÑ&:Ó;Ð<¸AÐ>ˆØ€Mó    c                 ó˜   • SnU S   R                  5        H0  nUR                  S0 5      R                  S5      nU[        ;   d  M0    g   U$ )NFr%   r   r   T)ÚvaluesÚgetr   )ÚroutÚuseisocÚvalueÚ
kind_values       r,   Úuseiso_c_bindingr6   N   sK   € Ø€GØ�f‘×$Ñ$Ö&ˆØ—Y‘Y˜~¨rÓ2×6Ñ6°vÓ>ˆ
ØœÕ%Ùñ 'ð €Nr.   c           	      óÄ  • [        U 5      (       d   e/ nU S   nU S    Hm  nU S   U   n[        UR                  S/ 5      5       HC  u  pgUS:X  d  M  SU SU 3nSS/S	.n	S
U SU S3U	S'   UR                  U5        X“U'   X…S   U'   ME     Mo     U S   R	                  U5        [        U5      n
S/nU4S jnU S   n[        U 5      n[        U 5      nU S3nUU;  a  X=   UU'   U/U S   SS  -   nO	U/U S   -   n[        X=SU5      nUS S S:X  a:  U(       a	  SUSS  -   nOSUSS  -   nX=   S   nUR                  SS5      S:X  a  SUS'   UR                  SU5      nS n[        U 5      nSR                  U5      nU(       aq  UR                  U S3S5      nU Vs/ s H  nUU:w  d  M  UPM     nnUU S'   U" SU S    SU SU S35        U(       d  U" S U S    S!U 35        U(       a  U" S"5        OHU" S#U SU S35        U(       a  U" S"5        U
(       d#  U" S$U 35        UR                  SS5      S%-   U-   nU
(       aQ  U S&   R                  S'5       H9  nUR                  5       R                  S 5      (       d  M)  S(U;  d  M1  U" U5        M;     USS  n/ nU H3  n[        X4   5      (       d  M  U" S$U 35        UR                  U5        M5     U H@  nUU;   a  M  [!        X4   5      (       d  M  U" [        X4US)95        UR                  U5        MB     U H@  nUU;   a  M  [#        X4   5      (       d  M  U" [        X4US)95        UR                  U5        MB     U H  nUU;   a  M  U" [        X4US)95        M     U" U5        Ub  U" U5        U
(       a1  U(       a  O)U" S*5        U" U S&   R                  5       5        U" S+5        SR                  U Vs/ s H  oDU;  d  M
  UPM     sn5      nU(       d3  [%        U 5      (       a  U" U S,U S-U S.35        OU" U S/U S-U S35        U(       a  U" S0U S    SU 35        US2   $ U" S15        US2   $ s  snf s  snf )3Nr%   Úargsr"   r   Úf2py_Ú_dÚintegerÚhide©r   Úintentúshape(ú, r   r    r   c                 ó   • US    SU  3US'   g ©Nr   z
      © ©ÚlineÚrets     r,   ÚaddÚcreatefuncwrapper.<locals>.addj   ó   € Ø˜‘F�8˜8 D 6Ð*ˆˆAŠr.   ÚnameÚf2pywrapr   z
@@@NAME@@@é   zcharacter*(*)zcharacter(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-   Úreplacer6   r$   ÚsplitÚlstripÚ
startswithr   r   r	   r   )r2   Ú	signatureÚ
extra_argsr%   r&   ÚvÚiÚdÚdnÚdvÚneed_interfacerF   rG   rJ   Úfortrannamer(   Únewnamer8   Úl_tmplÚ
charselectÚl1Úrlr3   ÚsargsÚargrE   Údumped_argss                              r,   Úcreatefuncwrapperrx   V   sÙ  € Ü�d×ÑÐÐà€JØ�‰<€DØ�&Œ\ˆØ�‰L˜‰OˆÜ˜aŸe™e K°Ó4Ö5‰DˆAØ�C�xØ˜Q˜C˜r ! Ð%�Ø"+¸°xÑ@�Ø" 1 # R¨ s¨!Ð,��3‘Ø×!Ñ! "Ô%Ø�R‘Ø$&�+‘˜qÓ!ó 6ñ ð 	ˆ�L×Ñ˜
Ô#Ü˜*Ó%€Nàˆ$€Càô +à�‰<€DÜ  Ó&€KÜ˜dÓ#€GØ��hÐ€Gà�dÓØ™
ˆˆW‰Øˆy˜4 ™<¨¨Ð+Ñ+‰àˆy˜4 ™<Ñ'ˆä˜D¨°gÓ>€FØˆcˆr€{�oÓ%ÞØ(¨6°"°#¨;Ñ6‰Fà# f¨R¨S kÑ1ˆFØ‘Z Ñ/ˆ
Ø�>‰>˜#˜rÓ" eÓ+Ø"ˆJ�s‰Oà	�‰˜ gÓ	.€BØ	€Bä˜tÓ$€GØ�I‰I�d‹O€EÞð —‘   b˜k¨2Ó.ˆÙ#Ó3št˜ s¨d¡{—™tˆÐ3ØˆˆV‰ÙÐ" 4¨Ñ#5Ð"6°a¸°v¸RÀ¸wÀaÐHÔIÞÙ�$�t˜LÑ)Ð*¨)°K°=ÐAÔBÞÙÐ#Ô$øáÐ! $  r¨%¨°Ð2Ô3ÞÙÐ#Ô$ÞÙ�)˜K˜=Ð)Ô*Ø—‘ ¨bÓ1°CÑ7¸+ÑEˆBæØÐ*Ñ+×1Ñ1°$Ö7ˆDØ�{‰{‹}×'Ñ'¨×/Ó/°JÀdÕ4JÙ�D–	ñ 8ð ��ˆ8€DØ€KÛˆÜ�d‘g×ÓÙ�)˜A˜3�Ô Ø×Ñ˜qÖ!ñ ó ˆØ�ÓÙÜ�D‘G×ÓÙ”˜t°Ñ8Ô9Ø×Ñ˜qÖ!ñ ó ˆØ�ÓÙÜ�t‘w×ÓÙ”˜t°Ñ8Ô9Ø×Ñ˜qÖ!ñ ó ˆØ�ÓÙÙŒN˜4¨GÑ4Ö5ñ ñ
 ˆ„GØ	�~ÙˆBŒæÞàá�ÔÙ�Ð&Ñ'×.Ñ.Ó0Ô1Ù�Ô à�I‰I¡$Ó>¢$˜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ð ˆq‰6€Mñ 	ˆEŒ
Øˆq‰6€MùòG 4ùòp ?s   Æ
QÆ)QÏ	QÏ'Qc           	      ó|  • [        U 5      (       d   e/ nU S   nU S    Hm  nU S   U   n[        UR                  S/ 5      5       HC  u  pgUS:X  d  M  SU SU 3nSS/S	.n	S
U SU S3U	S'   UR                  U5        X“U'   X…S   U'   ME     Mo     U S   R	                  U5        [        U5      n
S/nU4S jnU S   n[        U 5      n[        U 5      nU S   n[        U 5      nSR                  U5      nU(       a=  U" SU S    SU SU S35        U(       a  U" S5        U(       d  U" SU S    SU 35        O0U" SU SU S35        U(       a  U" S5        U
(       d  U" SU 35        U
(       aQ  U S   R                  S5       H9  nUR                  5       R                  S5      (       d  M)  SU;  d  M1  U" U5        M;     / nU H3  n[        X4   5      (       d  M  U" SU 35        UR                  U5        M5     U H@  nUU;   a  M  [        X4   5      (       d  M  U" [        X4US95        UR                  U5        MB     U H  nUU;   a  M  U" [        X4US95        M     U
(       ag  U(       a  O_U" S5        U S   R                  S5       H7  nUR                  5       R                  S5      (       a  SU;   a  M/  U" U5        M9     U" S5        SR                  U Vs/ s H  oDU;  d  M
  UPM     sn5      nU(       d  U" S U S!U S35        U(       a  U" S"U S    SU 35        US$   $ U" S#5        US$   $ s  snf )%Nr%   r8   r"   r   r9   r:   r;   r<   r=   r?   r@   r   r    r   c                 ó   • US    SU  3US'   g rB   rC   rD   s     r,   rG   Úcreatesubrwrapper.<locals>.addå   rI   r.   rJ   rN   rO   rP   rQ   rT   rR   rS   rU   rV   rW   rX   rY   rZ   r[   r\   zcall r   r]   r^   r   )r   r_   r1   r`   ra   rb   r   r   r6   r$   rd   re   rf   r   r   r-   )r2   rg   rh   r%   r&   ri   rj   rk   rl   rm   rn   rF   rG   rJ   ro   r(   r8   r3   ru   rE   rw   s                        r,   Úcreatesubrwrapperr|   Ñ   si  € Ü˜×ÑÐÐà€JØ�‰<€DØ�&Œ\ˆØ�‰L˜‰OˆÜ˜aŸe™e K°Ó4Ö5‰DˆAØ�C�xØ˜Q˜C˜r ! Ð%�Ø"+¸°xÑ@�Ø" 1 # R¨ s¨!Ð,��3‘Ø×!Ñ! "Ô%Ø�R‘Ø$&�+‘˜qÓ!ó 6ñ ð 	ˆ�L×Ñ˜
Ô#Ü˜*Ó%€Nàˆ$€Càô +à�‰<€DÜ  Ó&€KÜ˜dÓ#€Gà�‰<€Dä˜tÓ$€GØ�I‰I�d‹O€EÞÙÐ" 4¨Ñ#5Ð"6°a¸°v¸RÀ¸wÀaÐHÔIÞÙÐ#Ô$ÞÙ�$�t˜LÑ)Ð*¨)°K°=ÐAÔBøáÐ! $  r¨%¨°Ð2Ô3ÞÙÐ#Ô$ÞÙ�)˜K˜=Ð)Ô*æØÐ*Ñ+×1Ñ1°$Ö7ˆDØ�{‰{‹}×'Ñ'¨×/Ó/°JÀdÕ4JÙ�D–	ñ 8ð €KÛˆÜ�d‘g×ÓÙ�)˜A˜3�Ô Ø×Ñ˜qÖ!ñ ó ˆØ�ÓÙÜ�D‘G×ÓÙ”˜t°Ñ8Ô9Ø×Ñ˜qÖ!ñ ó ˆØ�ÓÙÙŒN˜4¨GÑ4Ö5ñ ö
 Þàá�ÔØÐ.Ñ/×5Ñ5°dÖ;�Ø—;‘;“=×+Ñ+¨F×3Ñ3¸
ÀdÓ8JÙÙ�D–	ñ <ñ �Ô à�I‰I¡$Ó>¢$˜Q°:Ñ*=—q¡$Ñ>Ó?€EæÙˆe�K�=  % ¨Ð*Ô+ÞÙÐ& t¨LÑ'9Ð&:¸!¸D¸6ÐBÔCð ˆq‰6€Mñ 	ˆEŒ
Øˆq‰6€Mùò ?s   Ë	L9Ë,L9c                 ó¸  • [        U 5      (       að  [        U 5      nU S   n[        SU< SU< S35        [        R                  " U 5      n UnUnSU ;   a  U S   nU S   U   U S   U'   U S   U   n[	        U5      (       de  SU;  a  / US'   US   R                  S5        S	nUS    H  nUR                  S
5      (       d  M  Sn  O   U(       a  US   R                  S
U 35        U/U S   -   U S   S S & U [        U 5      4$ [        U 5      (       aG  [        U 5      nU S   n[        SU< SU< S35        [        R                  " U 5      n U [        U 5      4$ U S4$ )NrJ   z)		Creating wrapper for Fortran function "z"("z")...
Úresultr%   r>   Úoutr   zout=r   r8   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…   (  st  € Ü�t×ÑÜ$ TÓ*ˆØ�F‰|ˆÝÛ“+ðô 	 ä�yŠy˜‹ˆØˆØˆØ�tÓØ˜‘NˆEØ"& v¡,¨uÑ"5ˆD�‰L˜ÑØ�F‰|˜EÑ"ˆÜ˜D×!Ñ!Ø˜tÓ#Ø!#��X‘Ø�‰N×!Ñ! %Ô(ØˆDØ˜(”^�Ø—<‘< ×'Ó'Ø�DÙñ $ö Ø�X‘×%Ñ%¨¨U¨G nÔ5Ø ˜' D¨¡LÑ0ˆˆV‰‘QˆØÔ& tÓ,Ð,Ð,Ü˜×ÑÜ$ TÓ*ˆØ�F‰|ˆÝÛ›ð&ô 	'ä�yŠy˜‹ˆØÔ& tÓ,Ð,Ð,Ø�ˆ8€Or.   )NN)r   )Ú__doc__r€   Ú	_isocbindr   Úauxfuncsr   r   r   r   r	   r
   r   r   r   r   r   r   r   r-   r6   rx   r|   r…   rC   r.   r,   Ú<module>r‰      sD   ðñ
ó å #÷÷ ÷ õ ô",ò\ôxôvTón!r.   