ó
    SBìg:(  ã                   ó‚   • S r SSK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K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é   )ÚgetfortrannameÚ
isexternalÚ
isfunctionÚisfunction_wrapÚisintent_inÚisintent_outÚislogicalfunctionÚismoduleroutineÚisscalarÚissubroutineÚissubroutine_wrapÚoutmessÚshow)Úisoc_kindmapc                 ó¬  • Uc  UnX;  a  [        U 5        [        SU-  5        gSX   ;  a  [        X   5        [        SU-  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;   aL  U(       a!  US   S;   a  SU-  nOuU< SU< SUS   < S3nOcUS   S;   a  U< SUS   < S3nOLU< SUS   < 3nO?SU;   a&  U< SUS   < 3nS
U;   a  U< SUS
   < S3nOSU-  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$ )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          Ú6/usr/lib/python3/dist-packages/numpy/f2py/func2subr.pyÚvar2fixfortranr-      s•  € Ø	�zØˆØƒ}ÜˆTŒ
ÜÐDÀqÑHÔIØØ˜™Ó ÜˆT‰WŒÜÐBÀQÑFÔGØØ‰W�ZÑ €FØ�Ó˜J¨$©'Ó1Û# T¡W¨ZÔ%8Ð9ˆØ€HØ	€BØ˜™Ó Ø‘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‘gÓÛ# S§X¡X¨d©g°kÑ.BÖ%CÐDˆØ€Mó    c                 óœ   • SnU S   R                  5        H2  u  p#UR                  S0 5      R                  S5      nU[        ;   d  M2    g   U$ )NFr%   r   r   T)ÚitemsÚgetr   )ÚroutÚuseisocÚkeyÚvalueÚ
kind_values        r,   Úuseiso_c_bindingr7   F   sM   € Ø€GØ˜6‘l×(Ñ(Ö*‰
ˆØ—Y‘Y˜~¨rÓ2×6Ñ6°vÓ>ˆ
ØœÕ%Ùñ +ð €Nr.   c           	      óô  • [        U 5      (       d   e/ nU S   nU S    Hv  nU S   U   n[        UR                  S/ 5      5       HL  u  pgUS:X  d  M  SU< SU< 3n[        SS/S	9n	S
U< SU< S3U	S'   UR	                  U5        X“U'   X…S   U'   MN     Mx     U S   R                  U5        [        U5      n
S/nU4S jnU S   n[        U 5      n[        U 5      nSU-  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(       av  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        OJU" S#U< SU< S35        U(       a  U" S"5        U
(       d#  U" S$U-  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-  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(       d9  ['        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>.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   rK   Úfortrannamer(   Únewnamer9   Úl_tmplÚ
charselectÚl1Úrlr3   ÚsargsÚargrF   Údumped_argss                              r,   Úcreatefuncwrapperry   N   sƒ  € Ü�d×ÑÐÐà€JØ�‰<€DØ�&Œ\ˆØ�‰L˜‰OˆÜ˜aŸe™e K°Ó4Ö5‰DˆAØ�CŽxÛ&'ªÐ+�Ü 9°f°XÑ>‘Û-.³Ð2��3‘Ø×!Ñ! "Ô%Ø�R‘Ø$&�+‘˜qÓ!ó 6ñ ð 	ˆ�L×Ñ˜
Ô#Ü˜*Ó%€Nàˆ$€Càô 1à�‰<€DÜ  Ó&€KÜ˜dÓ#€GØ˜dÑ#€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‰ÚØ�,Ô££uð.ô 	/æÚ t¨LÔ'9º;ÐGÔHÞÙÐ#Ô$øâ«D³%Ð8Ô9ÞÙÐ#Ô$ÞÙ� Ñ-Ô.Ø—‘ ¨bÓ1°CÑ7¸+ÑEˆBæØÐ*Ñ+×1Ñ1°$Ö7ˆDØ�{‰{‹}×'Ñ'¨×/Ó/°JÀdÕ4JÙ�D–	ñ 8ð ��ˆ8€DØ€KÛˆÜ�d‘g×ÓÙ� Ñ#Ô$Ø×Ñ˜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×"Ñ"Ù«W³kÃ5ÐIÕJá£«+³uÐ=Ô>ÞÚ¨t°LÔ/AÂ4ÐHÔIð ˆq‰6€Mñ 	ˆEŒ
Øˆq‰6€MùòI 4ùòr ?s   Æ$
Q0Æ2Q0Ï*	Q5Ï7Q5c           	      ó¤  • [        U 5      (       d   e/ nU S   nU S    Hv  nU S   U   n[        UR                  S/ 5      5       HL  u  pgUS:X  d  M  SU< SU< 3n[        SS/S	9n	S
U< SU< S3U	S'   UR	                  U5        X“U'   X…S   U'   MN     Mx     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(       aB  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        O2U" SU< SU< S35        U(       a  U" S5        U
(       d  U" SU-  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-  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%   r9   r"   r   r:   r;   r<   r=   r>   r@   rA   r   r    r   c                 ó"   • US   < SU < 3US'   g rC   rD   rE   s     r,   rH   Úcreatesubrwrapper.<locals>.addÞ   rJ   r.   rK   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   rc   r   r   r7   r$   re   rf   rg   r   r   r-   )r2   rh   ri   r%   r&   rj   rk   rl   rm   rn   ro   rG   rH   rK   rp   r(   r9   r3   rv   rF   rx   s                        r,   Úcreatesubrwrapperr}   Ê   s#  € Ü˜×ÑÐÐà€JØ�‰<€DØ�&Œ\ˆØ�‰L˜‰OˆÜ˜aŸe™e K°Ó4Ö5‰DˆAØ�CŽxÛ&'ªÐ+�Ü 9°f°XÑ>‘Û-.³Ð2��3‘Ø×!Ñ! "Ô%Ø�R‘Ø$&�+‘˜qÓ!ó 6ñ ð 	ˆ�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–	ñ 8ð €KÛˆÜ�d‘g×ÓÙ� Ñ#Ô$Ø×Ñ˜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æÚ›[«%Ð0Ô1ÞÚ¨t°LÔ/AÂ4ÐHÔIð ˆq‰6€Mñ 	ˆEŒ
Øˆq‰6€Mùò ?s   Ë/	MË<M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-  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$ )NrK   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	   ra   rg   ry   r   r}   )r2   rp   rK   ÚfnameÚrnameÚfvarÚflagrk   s           r,   Úassubrr†   "  ss  € Ü�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   ry   r}   r†   rD   r.   r,   Ú<module>rŠ      sF   ðñ
ó ÷÷ ÷ õ õ $ô.ò`ôyôxUóp!r.   