Ë
    ¡eh:(  ã                   ó|   — d Z ddlZddlmZmZmZmZmZmZm	Z	m
Z
mZmZmZmZmZ ddlmZ dd„Zd„ Zdd„Zdd	„Zd
„ Zy)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é   )ÚgetfortrannameÚ
isexternalÚ
isfunctionÚisfunction_wrapÚisintent_inÚisintent_outÚislogicalfunctionÚismoduleroutineÚisscalarÚissubroutineÚissubroutine_wrapÚoutmessÚshow)Úisoc_kindmapc                 ó`  — |€|}|| vrt        | «       t        d|z  «       yd| |   vrt        | |   «       t        d|z  «       y| |   d   }|dk(  rd| |   v r|›d| |   d   ›d�}i }d}d	| |   v r| |   d	   }d
}nd| |   v r
| |   d   }d}d|v r<|r|d   dv rd|z  }n`|›d|›d|d   ›d�}nQ|d   dv r|›d|d   ›d�}n>|›d|d   ›�}n3d|v r |›d|d   ›�}d
|v r|›d|d
   ›d�}nd|z  }nd
|v r|›d|d
   ›d�}|›d|›�}d| |   v r|›ddj                  | |   d   «      ›d�}|S )Nz1var2fixfortran: No definition for argument "%s".
Ú Útypespecz/var2fixfortran: No typespec for argument "%s".
ÚtypeÚtypenameú(ú)ÚkindselectorÚkindÚcharselectorÚlenÚ*)r   ú:ú(*)z	%s(len=*)ú=)r   r   z*(z(len=z,kind=z%s)z(kind=ú Ú	dimensionú,)r   r   Újoin)ÚvarsÚaÚfaÚf90modeÚvardefÚselectorÚlks          úR/var/www/skyplay_api_hub/venv/lib/python3.12/site-packages/numpy/f2py/func2subr.pyÚvar2fixfortranr-      s­  € Ø	€zØˆØ��}ÜˆTŒ
ÜÐDÀqÑHÔIØØ˜˜a™Ñ ÜˆT�!‰WŒÜÐBÀQÑFÔGØØ�!‰W�ZÑ €FØ�Ò˜J¨$¨q©'Ñ1Ú# T¨!¡W¨ZÓ%8Ð9ˆØ€HØ	€BØ˜˜a™Ñ Ø˜‘7˜>Ñ*ˆØ‰Ø	˜4 ™7Ñ	"Ø˜‘7˜>Ñ*ˆØˆØ
ˆh�ÙØ˜‰}Ð 1Ñ1Ø$¨Ñ/‘â(.²°H¸S³MÐB‘à˜‰} 
Ñ*Ú&,¨h°s«mÐ<‘â$*¨H°SªMÐ:‘à�HÑÚ$*¨H°UªOÐ<ˆFØ˜Ñ!Ú*0°(¸6Ó2BÐC‘à &Ñ)‘Ø�xÑÚ&,¨h°vÓ.>Ð?ˆFâ¡Ð#€FØ�d˜1‘gÑÚ# S§X¡X¨d°1©g°kÑ.BÕ%CÐDˆØ€Mó    c                 ó–   — d}| d   j                  «       D ]0  \  }}|j                  di «      j                  d«      }|t        v sŒ0 y |S )NFr%   r   r   T)ÚitemsÚgetr   )ÚroutÚuseisocÚkeyÚvalueÚ
kind_values        r,   Úuseiso_c_bindingr7   F   sT   € Ø€GØ˜6‘l×(Ñ(Ó*ò ‰
ˆˆUØ—Y‘Y˜~¨rÓ2×6Ñ6°vÓ>ˆ
ØœÒ%Ùðð €Nr.   c           	      óô  — t        | «      sJ ‚g }| d   }| d   D ]s  }| d   |   }t        |j                  dg «      «      D ]K  \  }}|dk(  sŒd|›d|›�}t        ddg¬	«      }	d
|›d|›d�|	d<   |j	                  |«       |	||<   ||d   |<   ŒM Œu | d   j                  |«       t        |«      }
dg}|fd„}| d   }t        | «      }t        | «      }d|z  }||vr||   ||<   |g| d   dd  z   }n	|g| d   z   }t        ||d|«      }|d d dk(  r5|r	d|dd  z   }nd|dd  z   }||   d   }|j                  dd«      dk(  rd|d<   |j                  d|«      }d }t        | «      }dj                  |«      }|rb|j                  |› d�d«      }|D �cg c]
  }||k7  sŒ	|‘Œ }}|| d<    |d| d   ›d|›d|›d�«       |s |d | d   ›d!|›�«       |rG |d"«       n> |d#|›d|›d�«       |r |d"«       |
s# |d$|z  «       |j                  dd«      d%z   |z   }|
rF| d&   j                  d'«      D ]/  }|j                  «       j                  d «      sŒ#d(|vsŒ( ||«       Œ1 |dd  }g }|D ]-  }t!        ||   «      sŒ |d$|z  «       |j	                  |«       Œ/ |D ];  }||v rŒt#        ||   «      sŒ |t        |||¬)«      «       |j	                  |«       Œ= |D ];  }||v rŒt%        ||   «      sŒ |t        |||¬)«      «       |j	                  |«       Œ= |D ]  }||v rŒ |t        |||¬)«      «       Œ  ||«       |� ||«       |
r,|rn) |d*«        || d&   j                  «       «        |d+«       dj                  |D �cg c]	  }||vsŒ|‘Œ c}«      }|s.t'        | «      r ||›d,|›d-|›d.�«       n ||›d/|›d-|›d�«       |r |d0| d   ›d|›�«       |d2   S  |d1«       |d2   S c c}w c c}w )3Nr%   Úargsr"   r   Úf2py_Ú_dÚintegerÚhide©r   Úintentúshape(ú, r   r    r   c                 ó   — |d   ›d| ›�|d<   y ©Nr   z
      © ©ÚlineÚrets     r,   Úaddzcreatefuncwrapper.<locals>.addb   ó   € Ø#& q£6©4Ð0ˆˆAŠr.   Únamez
%sf2pywrapr   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 %sr!   Úsaved_interfaceú
Ú__user__©r(   Ú	interfaceúend interfacez = .not.(.not.r   z))z = úend subroutine f2pywrap_Úendr   )r   Ú	enumerater1   ÚdictÚappendÚextendÚboolr   r   r-   Úreplacer7   r$   ÚsplitÚlstripÚ
startswithr   r   r   r
   )r2   Ú	signatureÚ
extra_argsr%   r&   ÚvÚiÚdÚdnÚdvÚneed_interfacerG   rH   rJ   Úfortrannamer(   Únewnamer9   Úl_tmplÚ
charselectÚl1Úrlr3   ÚsargsÚargrF   Údumped_argss                              r,   Úcreatefuncwrapperrx   N   s¨  € Ü�dÔÐÐà€JØ�‰<€DØ�&‰\ò 	'ˆØ�‰L˜‰OˆÜ˜aŸe™e K°Ó4Ó5ò 	'‰DˆAˆqØ�CŒxÚ&'©Ð+�Ü 9°f°XÔ>‘Ú-.²Ð2��3‘Ø×!Ñ! "Ô%Ø��R‘Ø$&��+‘˜qÒ!ñ	'ð	'ð 	ˆ�L×Ñ˜
Ô#Ü˜*Ó%€Nàˆ$€Càó 1à�‰<€DÜ  Ó&€KÜ˜dÓ#€GØ˜dÑ#€Gà�dÑØ˜T™
ˆˆ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˜ s¨d£{’Ð3ˆÐ3ØˆˆV‰ÚØ�,Ó¢¢uð.ô 	/áÚ t¨LÓ'9¹;ÐGÔHÙÙÐ#Õ$âªD²%Ð8Ô9ÙÙÐ#Ô$ÙÙ� Ñ-Ô.Ø—‘ ¨bÓ1°CÑ7¸+ÑEˆBáØÐ*Ñ+×1Ñ1°$Ó7ò 	ˆDØ�{‰{‹}×'Ñ'¨Õ/°JÀdÒ4JÙ�D•	ð	ð ��ˆ8€DØ€KØò "ˆÜ�d˜1‘gÕÙ� Ñ#Ô$Ø×Ñ˜qÕ!ð"ð ò "ˆØ�ÑØÜ�D˜‘GÕÙ”˜t Q°Ô8Ô9Ø×Ñ˜qÕ!ð"ð ò "ˆØ�ÑØÜ�t˜A‘wÕÙ”˜t Q°Ô8Ô9Ø×Ñ˜qÕ!ð"ð ò 6ˆØ�ÑØÙŒN˜4 ¨GÔ4Õ5ð6ñ
 ˆ„GØ	€~ÙˆBŒáÙàá�ÔÙ�Ð&Ñ'×.Ñ.Ó0Ô1Ù�Ô à�I‰I $Ö>˜Q¨!°:Ò*=’qÒ>Ó?€EáÜ˜TÔ"ÙªW²kÂ5ÐIÕJá¢ª+²uÐ=Ô>ÙÚ¨t°LÓ/AÁ4ÐHÔIð ˆq‰6€Mñ 	ˆEŒ
Øˆq‰6€MùòI 4ùòr ?s   Æ
O0ÆO0Î	O5ÎO5c           	      óÆ  — t        | «      sJ ‚g }| d   }| d   D ]s  }| d   |   }t        |j                  dg «      «      D ]K  \  }}|dk(  sŒd|›d|›�}t        ddg¬	«      }	d
|›d|›d�|	d<   |j	                  |«       |	||<   ||d   |<   ŒM Œu | d   j                  |«       t        |«      }
dg}|fd„}| d   }t        | «      }t        | «      }| d   }t        | «      }dj                  |«      }|r3 |d| d   ›d|›d|›d�«       |r |d«       |s8 |d| d   ›d|›�«       n& |d|›d|›d�«       |r |d«       |
s |d|z  «       |
rF| d   j                  d«      D ]/  }|j                  «       j                  d«      sŒ#d|vsŒ( ||«       Œ1 g }|D ]-  }t        ||   «      sŒ |d|z  «       |j	                  |«       Œ/ |D ];  }||v rŒt        ||   «      sŒ |t!        |||¬«      «       |j	                  |«       Œ= |D ]  }||v rŒ |t!        |||¬«      «       Œ |
rX|rnU |d«       | d   j                  d«      D ].  }|j                  «       j                  d«      rd|v rŒ' ||«       Œ0  |d«       dj                  |D �cg c]	  }||vsŒ|‘Œ c}«      }|s |d |›d!|›d�«       |r |d"| d   ›d|›�«       |d$   S  |d#«       |d$   S c c}w )%Nr%   r9   r"   r   r:   r;   r<   r=   r>   r@   rA   r   r    r   c                 ó   — |d   ›d| ›�|d<   y rC   rD   rE   s     r,   rH   zcreatesubrwrapper.<locals>.addÞ   rI   r.   rJ   rM   rN   rO   rP   rS   rQ   rR   rT   rU   rV   rW   rX   rY   rZ   r[   zcall r   r\   r]   r   )r   r^   r1   r_   r`   ra   rb   r   r   r7   r$   rd   re   rf   r   r   r-   )r2   rg   rh   r%   r&   ri   rj   rk   rl   rm   rn   rG   rH   rJ   ro   r(   r9   r3   ru   rF   rw   s                        r,   Úcreatesubrwrapperr{   Ê   sB  € Ü˜ÔÐÐà€JØ�‰<€DØ�&‰\ò 	'ˆØ�‰L˜‰OˆÜ˜aŸe™e K°Ó4Ó5ò 	'‰DˆAˆqØ�CŒxÚ&'©Ð+�Ü 9°f°XÔ>‘Ú-.²Ð2��3‘Ø×!Ñ! "Ô%Ø��R‘Ø$&��+‘˜qÒ!ñ	'ð	'ð 	ˆ�L×Ñ˜
Ô#Ü˜*Ó%€Nàˆ$€Càó 1à�‰<€DÜ  Ó&€KÜ˜dÓ#€Gà�‰<€Dä˜tÓ$€GØ�I‰I�d‹O€EÙÚØ�,Ó¢¢uð.ô 	/áÙÐ#Ô$ÙÚ t¨LÓ'9¹;ÐGÕHâªD²%Ð8Ô9ÙÙÐ#Ô$ÙÙ� Ñ-Ô.áØÐ*Ñ+×1Ñ1°$Ó7ò 	ˆDØ�{‰{‹}×'Ñ'¨Õ/°JÀdÒ4JÙ�D•	ð	ð €KØò "ˆÜ�d˜1‘gÕÙ� Ñ#Ô$Ø×Ñ˜qÕ!ð"ð ò "ˆØ�ÑØÜ�D˜‘GÕÙ”˜t Q°Ô8Ô9Ø×Ñ˜qÕ!ð"ð ò 6ˆØ�ÑØÙŒN˜4 ¨GÔ4Õ5ð6ñ
 Ùàá�ÔØÐ.Ñ/×5Ñ5°dÓ;ò �Ø—;‘;“=×+Ñ+¨FÔ3¸
ÀdÑ8JØÙ�D•	ðñ �Ô à�I‰I $Ö>˜Q¨!°:Ò*=’qÒ>Ó?€EáÚš[ª%Ð0Ô1ÙÚ¨t°LÓ/AÁ4ÐHÔIð ˆq‰6€Mñ 	ˆEŒ
Øˆq‰6€Mùò ?s   Ê	KÊKc                 ón  — t        | «      rØt        | «      }| d   }t        d|›d|›d�«       t        j                  | «      } |}|}d| v r| d   }| d   |   | d   |<   | d   |   }t	        |«      sWd|vrg |d<   |d   j                  d«       d	}|d   D ]  }|j                  d
«      sŒd} n |r|d   j                  d|z  «       |g| d   z   | d   d d  | t        | «      fS t        | «      rDt        | «      }| d   }t        d|›d|›d�«       t        j                  | «      } | t        | «      fS | dfS )NrJ   z)		Creating wrapper for Fortran function "z"("z")...
Úresultr%   r?   Úoutr   zout=r   zout=%sr9   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„   "  sl  € Ü�tÔÜ$ TÓ*ˆØ�F‰|ˆÝÚ’+ðô 	 ä�y‰y˜‹ˆØˆØˆØ�tÑØ˜‘NˆEØ"& v¡,¨uÑ"5ˆD�‰L˜ÑØ�F‰|˜EÑ"ˆÜ˜DÔ!Ø˜tÑ#Ø!#��X‘Ø�‰N×!Ñ! %Ô(ØˆDØ˜(‘^ò �Ø—<‘< Õ'Ø�DÙðñ Ø�X‘×%Ñ% h°%Ñ&8Ô9Ø ˜' D¨¡LÑ0ˆˆV‰‘QˆØÔ& tÓ,Ð,Ð,Ü˜ÔÜ$ TÓ*ˆØ�F‰|ˆÝÚšð&ô 	'ä�y‰y˜‹ˆØÔ& tÓ,Ð,Ð,Ø�ˆ8€Or.   )NN)r   )Ú__doc__r   Úauxfuncsr   r   r   r   r   r	   r
   r   r   r   r   r   r   Ú	_isocbindr   r-   r7   rx   r{   r„   rD   r.   r,   ú<module>rˆ      sF   ðñ
ó ÷÷ ÷ õ õ $ó.ò`óyóxUóp!r.   