§
    `Štj='  ã                   ó~   — d Z ddlZddlm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„Zd„ Zdd„Zdd	„Zd
„ ZdS )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                 ó"  — |€|}|| vr$t          | ¦  «         t          d|› d�¦  «         dS d| |         vr*t          | |         ¦  «         t          d|› d�¦  «         dS | |         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 rK|r"|d         dv r|› d�}nu|› d|› d|d         › d	�}nc|d         dv r|› d|d         › d	�}nJ|› d|d         › �}n<d|v r&|› d|d         › �}d|v r|› d|d         › d	�}n|› d	�}nd|v r|› d|d         › d	�}|› d|› �}d| |         v r'|› dd                     | |         d         ¦  «        › d	�}|S )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          úR/var/www/html/CA-Chatbot/venv/lib/python3.11/site-packages/numpy/f2py/func2subr.pyÚvar2fixfortranr-       sz  € Ø	€zØˆØ�€}€}ÝˆT‰
Œ
ˆ
ÝÐF¸qÐFÐFÐFÑGÔGÐGØˆrØ˜˜aœÐ Ð ÝˆT�!ŒW‰ŒˆÝÐD¸QÐDÐDÐDÑEÔEÐEØˆrØ�!ŒW�ZÔ €FØ�ÒÐ˜J¨$¨q¬'Ð1Ð1ØÐ3Ð3˜T !œW ZÔ0Ð3Ð3Ð3ˆØ€HØ	€BØ˜˜aœÐ Ð Ø˜”7˜>Ô*ˆØˆˆØ	˜4 œ7Ð	"Ð	"Ø˜”7˜>Ô*ˆØˆØ
ˆh€€Øð 	1Ø˜Œ}Ð 1Ð1Ð1Ø"Ð+Ð+Ð+��à"Ð:Ð: RÐ:Ð:¨(°3¬-Ð:Ð:Ð:��Ø�cŒ]˜jÐ(Ð(ØÐ2Ð2 (¨3¤-Ð2Ð2Ð2ˆFˆFàÐ0Ð0 ¨#¤Ð0Ð0ˆFˆFØ	�(Ð	Ð	ØÐ2Ð2 ¨%¤Ð2Ð2ˆØ�XÐÐØÐ9Ð9 h¨vÔ&6Ð9Ð9Ð9ˆFˆFà�\�\�\ˆFˆFØ	�8Ð	Ð	ØÐ5Ð5 (¨6Ô"2Ð5Ð5Ð5ˆàÐÐ˜ÐÐ€FØ�d˜1”gÐÐØÐ>Ð>˜SŸXšX d¨1¤g¨kÔ&:Ñ;Ô;Ð>Ð>Ð>ˆØ€Mó    c                 ó®   — d}| d                               ¦   «         D ]7}|                     di ¦  «                             d¦  «        }|t          v r dS Œ8|S )NFr%   r   r   T)ÚvaluesÚgetr   )ÚroutÚuseisocÚvalueÚ
kind_values       r,   Úuseiso_c_bindingr6   N   sc   € Ø€GØ�f”×$Ò$Ñ&Ô&ð ð ˆØ—Y’Y˜~¨rÑ2Ô2×6Ò6°vÑ>Ô>ˆ
Ø�Ð%Ð%Ø�4�4ð &à€Nr.   c           	      ó¦	  ‡‡— t          | ¦  «        sJ ‚g Š| d         }| d         D ]~}| d         |         }t          |                     dg ¦  «        ¦  «        D ]J\  }}|dk    r?d|› d|› �}ddgd	œ}d
|› d|› d�|d<   ‰                     |¦  «         |||<   ||d         |<   ŒKŒ| d                              ‰¦  «         t          ‰¦  «        }	dg}
|
fd„}| d         Št          | ¦  «        }t          | ¦  «        }‰› d�}||vr |‰         ||<   |g| d         dd …         z   }n|g| d         z   }t          |‰d|¦  «        }|d d…         dk    rJ|rd|dd …         z   }nd|dd …         z   }|‰         d         }|                     dd¦  «        dk    rd|d<   | 	                    d|¦  «        }d }t          | ¦  «        }d                     |¦  «        }|rn| 	                    ‰› d�d¦  «        }ˆfd„|D ¦   «         }|| d<    |d| d         › d‰› d |› d�¦  «         |s |d!| d         › d"|› �¦  «         |r |d#¦  «         nK |d$‰› d |› d�¦  «         |r |d#¦  «         |	s* |d%|› �¦  «         | 	                    dd¦  «        d&z   |z   }|	rT| d'                              d(¦  «        D ]8}|                     ¦   «                              d!¦  «        rd)|vr ||¦  «         Œ9|dd …         }g }|D ]:}t          ||         ¦  «        r# |d%|› �¦  «         |                     |¦  «         Œ;|D ]L}||v rŒt!          ||         ¦  «        r0 |t          |||¬*¦  «        ¦  «         |                     |¦  «         ŒM|D ]L}||v rŒt#          ||         ¦  «        r0 |t          |||¬*¦  «        ¦  «         |                     |¦  «         ŒM|D ]"}||v rŒ |t          |||¬*¦  «        ¦  «         Œ# ||¦  «         |� ||¦  «         |	r<|rn9 |d+¦  «          || d'                              ¦   «         ¦  «          |d,¦  «         d                     ˆfd-„|D ¦   «         ¦  «        }|s8t%          | ¦  «        r ||› d.|› d/|› d0�¦  «         n ||› d1|› d/|› d�¦  «         |r |d2| d         › d‰› �¦  «         n |d3¦  «         |
d4         S )5Nr%   Úargsr"   r   Úf2py_Ú_dÚintegerÚhide©r   Úintentúshape(ú, r   r    r   c                 ó&   — |d         › d| › �|d<   d S ©Nr   z
      © ©ÚlineÚrets     r,   Úaddzcreatefuncwrapper.<locals>.addj   ó!   € Ø˜”FÐ*Ð* DÐ*Ð*ˆˆA‰ˆˆr.   ÚnameÚf2pywrapr   z
@@@NAME@@@é   zcharacter*(*)zcharacter(len=10)zcharacter*10r   r   r   Ú10c                 ó    •— g | ]
}|‰k    ¯|‘ŒS rC   rC   )Ú.0ÚargrI   s     €r,   ú
<listcomp>z%createfuncwrapper.<locals>.<listcomp>‹   s   ø€ Ð3Ð3Ð3˜ s¨d¢{ {� { { {r.   úsubroutine f2pywrap_Ú
modulenameÚ_ú (úuse ú	, only : úuse iso_c_bindingúsubroutine f2pywrapú	external r!   Úsaved_interfaceú
Ú__user__©r(   Ú	interfaceúend interfacec                 ó   •— g | ]}|‰v¯|‘Œ	S rC   rC   ©rN   r&   Ú
extra_argss     €r,   rP   z%createfuncwrapper.<locals>.<listcomp>Ã   ó#   ø€ Ð>Ð>Ð>˜Q¨!°:Ð*=Ð*=�qÐ*=Ð*=Ð*=r.   z = .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   Ú	signaturer%   r&   ÚvÚiÚdÚdnÚdvÚneed_interfacerF   rG   Úfortrannamer(   Únewnamer8   Úl_tmplÚ
charselectÚl1Úrlr3   ÚsargsrE   Údumped_argsrb   rI   s                           @@r,   Úcreatefuncwrapperr}   V   s®  øø€ Ý�dÑÔÐÐÐà€JØ�Œ<€DØ�&Œ\ð 	'ð 	'ˆØ�ŒL˜ŒOˆÝ˜aŸeše K°Ñ4Ô4Ñ5Ô5ð 	'ð 	'‰DˆAˆqØ�CŠxˆxØ%˜QÐ%Ð% !Ð%Ð%�Ø"+¸°xÐ@Ð@�Ø, 1Ð,Ð,¨Ð,Ð,Ð,��3‘Ø×!Ò! "Ñ%Ô%Ð%Ø��R‘Ø$&��+”˜qÑ!øð	'ð 	ˆ„L×Ò˜
Ñ#Ô#Ð#Ý˜*Ñ%Ô%€Nàˆ$€Càð +ð +ð +ð +à�Œ<€DÝ  Ñ&Ô&€KÝ˜dÑ#Ô#€GØÐÐÐ€Gà�dÐÐØ˜Tœ
ˆˆW‰Øˆy˜4 œ<¨¨¨Ô+Ñ+ˆˆàˆy˜4 œ<Ñ'ˆå˜D $¨°gÑ>Ô>€FØˆcˆrˆc„{�oÒ%Ð%Øð 	2Ø(¨6°"°#°#¬;Ñ6ˆFˆFà# f¨R¨S¨S¤kÑ1ˆFØ˜$”Z Ô/ˆ
Ø�>Š>˜#˜rÑ"Ô" eÒ+Ð+Ø"ˆJ�s‰Oà	�Š˜ gÑ	.Ô	.€BØ	€Bå˜tÑ$Ô$€GØ�IŠI�d‰OŒO€EØð Fð —’ ˜k˜k˜k¨2Ñ.Ô.ˆØ3Ð3Ð3Ð3˜tÐ3Ñ3Ô3ˆØˆˆV‰ØˆÐH 4¨Ô#5ÐHÐH¸ÐHÐHÀÐHÐHÐHÑIÔIÐIØð 	CØˆCÐA�t˜LÔ)ÐAÐA°KÐAÐAÑBÔBÐBØð 	%ØˆCÐ#Ñ$Ô$Ð$øàˆÐ2 $Ð2Ð2¨%Ð2Ð2Ð2Ñ3Ô3Ð3Øð 	%ØˆCÐ#Ñ$Ô$Ð$Øð 	FØˆCÐ)˜KÐ)Ð)Ñ*Ô*Ð*Ø—’ ¨bÑ1Ô1°CÑ7¸+ÑEˆBàð ØÐ*Ô+×1Ò1°$Ñ7Ô7ð 	ð 	ˆDØ�{Š{‰}Œ}×'Ò'¨Ñ/Ô/ð °JÀdÐ4JÐ4JØ��D‘	”	�	øà���Œ8€DØ€KØð "ð "ˆÝ�d˜1”gÑÔð 	"ØˆC�˜A��Ñ Ô Ð Ø×Ò˜qÑ!Ô!Ð!øØð "ð "ˆØ�ÐÐØÝ�D˜”GÑÔð 	"ØˆC•˜t Q°Ð8Ñ8Ô8Ñ9Ô9Ð9Ø×Ò˜qÑ!Ô!Ð!øØð "ð "ˆØ�ÐÐØÝ�t˜A”wÑÔð 	"ØˆC•˜t Q°Ð8Ñ8Ô8Ñ9Ô9Ð9Ø×Ò˜qÑ!Ô!Ð!øØð 6ð 6ˆØ�ÐÐØØˆ�N˜4 ¨GÐ4Ñ4Ô4Ñ5Ô5Ð5Ð5à€Cˆ�G„G€GØ	€~ØˆˆB‰Œˆàð !Øð 	!ààˆC�ÑÔÐØˆC�Ð&Ô'×.Ò.Ñ0Ô0Ñ1Ô1Ð1ØˆC�Ñ Ô Ð à�IŠIÐ>Ð>Ð>Ð> $Ð>Ñ>Ô>Ñ?Ô?€Eàð 7Ý˜TÑ"Ô"ð 	7ØˆC�7ÐAÐA¨+ÐAÐA¸ÐAÐAÐAÑBÔBÐBÐBàˆC�7Ð5Ð5˜{Ð5Ð5¨UÐ5Ð5Ð5Ñ6Ô6Ð6Øð ØˆÐB t¨LÔ'9ÐBÐB¸DÐBÐBÑCÔCÐCÐCàˆˆE‰
Œ
ˆ
ØˆqŒ6€Mr.   c           	      óì  ‡— t          | ¦  «        sJ ‚g Š| d         }| d         D ]~}| d         |         }t          |                     dg ¦  «        ¦  «        D ]J\  }}|dk    r?d|› d|› �}ddgd	œ}d
|› d|› d�|d<   ‰                     |¦  «         |||<   ||d         |<   ŒKŒ| d                              ‰¦  «         t          ‰¦  «        }	dg}
|
fd„}| d         }t          | ¦  «        }t          | ¦  «        }| d         }t          | ¦  «        }d 	                    |¦  «        }|rB |d| d         › d|› d|› d�¦  «         |r |d¦  «         |s |d| d         › d|› �¦  «         n/ |d|› d|› d�¦  «         |r |d¦  «         |	s |d|› �¦  «         |	rT| d          
                    d¦  «        D ]8}|                     ¦   «                              d¦  «        rd|vr ||¦  «         Œ9g }|D ]:}t          ||         ¦  «        r# |d|› �¦  «         |                     |¦  «         Œ;|D ]L}||v rŒt          ||         ¦  «        r0 |t          |||¬¦  «        ¦  «         |                     |¦  «         ŒM|D ]"}||v rŒ |t          |||¬¦  «        ¦  «         Œ#|	rn|rnk |d¦  «         | d          
                    d¦  «        D ]9}|                     ¦   «                              d¦  «        rd|v rŒ. ||¦  «         Œ: |d¦  «         d 	                    ˆfd „|D ¦   «         ¦  «        }|s |d!|› d"|› d�¦  «         |r |d#| d         › d|› �¦  «         n |d$¦  «         |
d%         S )&Nr%   r8   r"   r   r9   r:   r;   r<   r=   r?   r@   r   r    r   c                 ó&   — |d         › d| › �|d<   d S rB   rC   rD   s     r,   rG   zcreatesubrwrapper.<locals>.addå   rH   r.   rI   rQ   rR   rS   rT   rW   rU   rV   rX   rY   rZ   r[   r\   r]   r^   r_   c                 ó   •— g | ]}|‰v¯|‘Œ	S rC   rC   ra   s     €r,   rP   z%createsubrwrapper.<locals>.<listcomp>  rc   r.   zcall r   rd   re   r   )r   rf   r1   rg   rh   ri   r   r   r6   r$   rk   rl   rm   r   r   r-   )r2   rn   r%   r&   ro   rp   rq   rr   rs   rt   rF   rG   rI   ru   r(   r8   r3   r{   rE   r|   rb   s                       @r,   Úcreatesubrwrapperr�   Ñ   sÖ  ø€ Ý˜ÑÔÐÐÐà€JØ�Œ<€DØ�&Œ\ð 	'ð 	'ˆØ�ŒL˜ŒOˆÝ˜aŸeše K°Ñ4Ô4Ñ5Ô5ð 	'ð 	'‰DˆAˆqØ�CŠxˆxØ%˜QÐ%Ð% !Ð%Ð%�Ø"+¸°xÐ@Ð@�Ø, 1Ð,Ð,¨Ð,Ð,Ð,��3‘Ø×!Ò! "Ñ%Ô%Ð%Ø��R‘Ø$&��+”˜qÑ!øð	'ð 	ˆ„L×Ò˜
Ñ#Ô#Ð#Ý˜*Ñ%Ô%€Nàˆ$€Càð +ð +ð +ð +à�Œ<€DÝ  Ñ&Ô&€KÝ˜dÑ#Ô#€Gà�Œ<€Då˜tÑ$Ô$€GØ�IŠI�d‰OŒO€EØð +ØˆÐH 4¨Ô#5ÐHÐH¸ÐHÐHÀÐHÐHÐHÑIÔIÐIØð 	%ØˆCÐ#Ñ$Ô$Ð$Øð 	CØˆCÐA�t˜LÔ)ÐAÐA°KÐAÐAÑBÔBÐBøàˆÐ2 $Ð2Ð2¨%Ð2Ð2Ð2Ñ3Ô3Ð3Øð 	%ØˆCÐ#Ñ$Ô$Ð$Øð 	+ØˆCÐ)˜KÐ)Ð)Ñ*Ô*Ð*àð ØÐ*Ô+×1Ò1°$Ñ7Ô7ð 	ð 	ˆDØ�{Š{‰}Œ}×'Ò'¨Ñ/Ô/ð °JÀdÐ4JÐ4JØ��D‘	”	�	øà€KØð "ð "ˆÝ�d˜1”gÑÔð 	"ØˆC�˜A��Ñ Ô Ð Ø×Ò˜qÑ!Ô!Ð!øØð "ð "ˆØ�ÐÐØÝ�D˜”GÑÔð 	"ØˆC•˜t Q°Ð8Ñ8Ô8Ñ9Ô9Ð9Ø×Ò˜qÑ!Ô!Ð!øØð 6ð 6ˆØ�ÐÐØØˆ�N˜4 ¨GÐ4Ñ4Ô4Ñ5Ô5Ð5Ð5àð 
!Øð 		!ààˆC�ÑÔÐØÐ.Ô/×5Ò5°dÑ;Ô;ð ð �Ø—;’;‘=”=×+Ò+¨FÑ3Ô3ð ¸
ÀdÐ8JÐ8JØØ��D‘	”	�	�	ØˆC�Ñ Ô Ð à�IŠIÐ>Ð>Ð>Ð> $Ð>Ñ>Ô>Ñ?Ô?€Eàð ,ØˆÐ*�KÐ*Ð* %Ð*Ð*Ð*Ñ+Ô+Ð+Øð ØˆÐB t¨LÔ'9ÐBÐB¸DÐBÐBÑCÔCÐCÐCàˆˆE‰
Œ
ˆ
ØˆqŒ6€Mr.   c                 ó  — t          | ¦  «        �rt          | ¦  «        }| d         }t          d|›d|›d�¦  «         t          j        | ¦  «        } |}|}d| v r| d         }| d         |         | d         |<   | d         |         }t	          |¦  «        sjd|vrg |d<   |d                              d¦  «         d	}|d         D ]}|                     d
¦  «        rd} nŒ|r|d                              d
|› �¦  «         |g| d         z   | d         d d …<   | t          | ¦  «        fS t          | ¦  «        rRt          | ¦  «        }| d         }t          d|›d|›d�¦  «         t          j        | ¦  «        } | t          | ¦  «        fS | dfS )NrI   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
   rg   rm   r}   r   r�   )r2   ru   rI   ÚfnameÚrnameÚfvarÚflagrp   s           r,   ÚassubrrŠ   (  sã  € Ý�tÑÔñ -Ý$ TÑ*Ô*ˆØ�FŒ|ˆÝˆØˆDˆD�+�+�+ðñ 	 ô 	 ð 	 åŒy˜‰ŒˆØˆØˆØ�tÐÐØ˜”NˆEØ"& v¤,¨uÔ"5ˆD�ŒL˜ÑØ�FŒ|˜EÔ"ˆÝ˜DÑ!Ô!ð 
	6Ø˜tÐ#Ð#Ø!#��X‘Ø�ŒN×!Ò! %Ñ(Ô(Ð(ØˆDØ˜(”^ð ð �Ø—<’< Ñ'Ô'ð Ø�DØ�Eðð ð 6Ø�X”×%Ò% n¨U n nÑ5Ô5Ð5Ø ˜' D¨¤LÑ0ˆˆVŒ�Q�Q�Q‰ØÕ& tÑ,Ô,Ð,Ð,Ý˜ÑÔð -Ý$ TÑ*Ô*ˆØ�FŒ|ˆÝˆØ�4�4˜˜˜ð&ñ 	'ô 	'ð 	'åŒy˜‰ŒˆØÕ& tÑ,Ô,Ð,Ð,Ø�ˆ8€Or.   )NN)r   )Ú__doc__r…   Ú	_isocbindr   Úauxfuncsr   r   r   r   r	   r
   r   r   r   r   r   r   r   r-   r6   r}   r�   rŠ   rC   r.   r,   ú<module>rŽ      s1  ðð
ð 
ð €€€à #Ð #Ð #Ð #Ð #Ð #ðð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð",ð ,ð ,ð ,ð\ð ð ðxð xð xð xðvTð Tð Tð Tðn!ð !ð !ð !ð !r.   