U
    M»{jMz  ã                   @   sv  d Z ddlmZ ejZddlZddlZddlZddlm	Z	 ddlm
Z
 ddlT dd	d
dddddddddgZdZg Zi ai ZdddddddddddddddddœZddddddd d!d"d#d$d$d%d&d&dd'œZerôddd(dddd d!d"d#d$d)d*d+d%d&d&dd,œZd-d.d-d/d/d0d1d2d3d4d5d6d7d8d8d9d:œZe�rJd-d.d;d0d<d0d=d>d3d?d5d6d@dAd7d8dBdCd,œZd-d.d0d0d=d3d5d6dDdDdDdEdFœZdddGdHdHdIœddJdKddLdMdNdOdPdQœ	dRdRdSdTdTdUœdRdRdSdTdTdIœddVdKddLdWœdXdSidXdGidXdVidXdidYœ	ae t¡ZdZd[„ Zd\d\d]d^d^d_d`dad^dbdcdddcdededfdgdhœZdid„ Zdjd	„ Zdudkd
„Zdld„ Zdmd„ Zdnd„ Zdod„ Z dpd„ Z!dqd„ Z"dvdrd„Z#dsd„ Z$dtd„ Z%dS )wa)  

Copyright 1999,2000 Pearu Peterson all rights reserved,
Pearu Peterson <pearu@ioc.ee>
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.
$Date: 2005/05/06 10:57:33 $
Pearu Peterson

é   )Ú__version__é    N)Úmarkoutercomma)Úcb_rules)Ú*ÚgetctypeÚgetstrlengthÚ
getarrdimsÚgetpydocsignÚgetarrdocsignÚgetinitÚsign2mapÚroutsign2mapÚmodsign2mapÚcb_sign2mapÚcb_routsign2mapÚcommon_sign2mapTÚfloatÚintÚlongÚcomplexÚstring)Údoubler   Úlong_doubleÚcharÚsigned_charÚunsigned_charÚshortÚunsigned_shortr   r   Ú	long_longÚunsignedÚcomplex_floatÚcomplex_doubleÚcomplex_long_doubler   Z
NPY_DOUBLEZ	NPY_FLOATZ
NPY_STRINGZ	NPY_UBYTEZNPY_BYTEZ	NPY_SHORTZ
NPY_USHORTZNPY_INTZNPY_UINTZNPY_LONGZ
NPY_CFLOATZNPY_CDOUBLE)r   r   r   r   r   r   r   r   r   r    r   r   r!   r"   r#   r   ZNPY_LONGDOUBLEZ	NPY_ULONGZNPY_LONGLONGZNPY_ULONGLONG)r   r   r   r   r   r   r   r   r   r    r   Úunsigned_longr   Úunsigned_long_longr!   r"   r#   r   ÚdÚfÚ1ÚbÚsÚwÚiÚuÚlÚLÚFÚDÚc)r   r   r   r   r   r   r   r   r   r    r   r   r!   r"   r#   r   ÚgÚBÚhÚHÚIÚqÚQÚGÚSÚNÚy)r   r   r   r   r   r   r   r   r!   r"   r#   r   r   r   )Ú Ú4Ú8Z12Ú16r   r   r   r   r   r    r%   )	r>   r(   Ú2r?   r@   ú-1z-2z-4z-8r!   r"   r#   )r>   r@   rA   Z24Z32r   )r>   r(   rB   r?   r@   r>   )	ÚrealÚintegerr   ZcomplexkindZlogicalzdouble complexzdouble precisionÚbyteÚ	characterc                 C   s°  t  t¡a| d kr&d} tj | ¡s&d S �zRtd | ¡ƒ t	| dƒ�}t
| ¡ i i ƒ}W 5 Q R X | ¡ D ]6\}}| ¡ D ]}|| || ¡ < qv|| || ¡ < qf| ¡ D ]È}|tkrºi t|< ||  ¡ D ]¦}|| | tk�r>|t| k�rtd||t| | || | f ƒ || | t| |< td|||| | f ƒ qÆtd|||| | || | tt ¡ ƒf ƒ qÆq¦tdƒ W n0 tk
�rª } ztd| ƒ W 5 d }~X Y nX d S )	Nz.f2py_f2cmapzReading f2cmap from {!r} ...
Úrz3	Warning: redefinition of {'%s':{'%s':'%s'->'%s'}}
z	Mapping "%s(kind=%s)" to "%s"
z5	Ignoring map {'%s':{'%s':'%s'}}: '%s' must be in %s
z1Successfully applied user defined f2cmap changes
z;Failed to apply user defined f2cmap changes: %s. Skipping.
)ÚcopyÚdeepcopyÚf2cmap_defaultÚ
f2cmap_allÚosÚpathÚisfileÚoutmessÚformatÚopenÚevalÚreadÚitemsÚkeysÚlowerÚc2py_mapÚerrmessÚlistÚ	Exception)Zf2cmap_filer'   r&   ÚkZd1Zk1Úmsg© r^   úS/var/www/html/bwave/python/venv/lib/python3.8/site-packages/numpy/f2py/capi_maps.pyÚload_f2cmap_file®   sL    
ÿÿ  
 
 
ÿÿr`   z%gz%Lgz%dz%hhuz%hdz%huz%uz%ldz%luz(%g,%g)z	(%Lg,%Lg)ú%s)r   r   r   r   r   r   r   r   r   r    r   r$   r   r!   r"   r#   r   c                 C   sÔ  d}t | ƒrRd| kr| d }n| d }|| d krBt| d | ƒS td| ƒ �n~t| ƒr^|S d| k�rº| d  ¡ tk�rº| d  ¡ }t| }|d }d| k�rÐd	| d kröz|| d d	  }W n2 tk
rò   td
| d d	| d d	 f ƒ Y nX nÂd| d k�rÐ|d tk�rt|d  }z|| d d  }W n„ tk
�r¶   |tk�rVt| }z|t| d d ƒ }W nB tk
�r°   td|| d d ||| d d t 	¡ f ƒ Y nX Y nX nt
| ƒ�sÐtd|  ƒ |S )z
    Determines C type
    ÚvoidÚresultÚnameÚvarsú,getctype: function %s has no return value?!
Útypespecr>   Zkindselectorr   z$getctype: "%s %s %s" not supported.
Úkindz}getctype: "%s(kind=%s)" is mapped to C "%s" (to override define dict(%s = dict(%s="<C typespec>")) in %s/.f2py_f2cmap file).
z2getctype: No C-type found in "%s", assuming void.
)Ú
isfunctionr   rY   ZissubroutinerW   rL   ÚKeyErrorÚstrrM   ÚgetcwdÚ
isexternal)ÚvarÚctypeÚarg   Zf2cmapr^   r^   r_   r   ï   sV    

ÿ
 
 ÿÿ
c                 C   sÐ   t | ƒrJd| kr| d }n| d }|| d kr>t| d | ƒS td| ƒ t| ƒsbtdt| ƒ ƒ d}d| kr˜| d }d|krˆ|d }nd	|kr˜|d	 }t d
|¡s°t d|¡rÌt| ƒrÈtdt| ƒ ƒ d}|S )Nrc   rd   re   z0getstrlength: function %s has no return value?!
z;getstrlength: expected a signature of a string but got: %s
r(   Zcharselectorr   Úlenz\(\s*(\*|:)\s*\)z(\*|:)zMgetstrlength:intent(hide): expected a string with defined length but got: %s
rC   )Úisstringfunctionr   rY   ÚisstringÚreprÚreÚmatchÚisintent_hide)rn   rp   rq   r^   r^   r_   r     s2    

ÿ
ÿc           	      C   sˆ  i }t |ƒr8t|ƒs8t|ƒ|d< |d |d< d|d< �nLt|ƒr\d|d< d|d< d|d< �n(t|ƒ�r„t |d ¡}d |¡|d< ztt|d ƒƒ|d< W n tk
r®   Y nX d	 |¡|d< tt	|ƒƒ|d< tt	|ƒd
g ƒdd
… |d< t
t	|ƒƒD ]|}g }|| tk�r|| g}n,tD ]&}t d| || ¡�r| |¡ �q|D ](}t |¡t | ¡k�rJd||<  qø�qJqød\|d< }|D ].}|d }|dk�r†d|d ||f |d< �q†|d �rÔ|d d d
… |d< d\|d< }|d D ]|}|d }|dk�rd|d ||f |d< nLt|ƒ�rDtd| ƒ d|d |df |d< n|�rètdt| ƒt|ƒf ƒ �qè|d �r„|d d d
… |d< |S )NZdimsÚsizer(   ÚrankÚ0r>   Ú	dimensionr   ú,éÿÿÿÿr   z	rank*[-1]z.*?\b%s\b.*)r>   r}   Zsetdims)r   ú:z(*)z(:)z%s#varname#_Dims[%d]=%s,Z	cbsetdimsz?getarrdims:warning: assumed shape array, using 0 instead of %r
r   z]getarrdims: If in call-back function: array argument %s must have bounded dimensions: got %s
)rs   Úisarrayr   ÚisscalarrI   Újoinrt   rS   r[   rq   ÚrangeÚdepargsru   rv   ÚappendÚindexÚisintent_inrP   rY   )	rp   rn   ÚverboseÚretÚdimr,   ÚvÚvar&   r^   r^   r_   r	   :  s„    


  ÿ

  ÿ
ÿ  ÿÿ
c                 C   sŠ  t |ƒrPd|kr|d }n|d }||d kr@t||d | ƒS td| ƒ dS | |  }}d}t|ƒrld}nt|ƒrxd}| }t|ƒr²|d	 D ]$}|d d
… dkrŒ|d
d … } q²qŒd}t|ƒ}	t|ƒrÜt| |ƒ\}}
d|
 }t	|ƒ�r4t|ƒ�rd| |t
|	 t|	 |f }nd| |t
|	 |f }d|t
|	 f }�nNt|ƒ�r„t|ƒ�r^d| |t|ƒ|f }nd| |t|ƒ|f }d|t|ƒf }nþt|ƒ�r|d }tt|ƒƒ}d| ||t|	 d |¡|f }| |k�ræd| |t|	 d |¡f }nd||t|	 d |¡| f }n~t|ƒ�rvd}| tk�rdt|  tk�rddtt|   k�rdtt|   d }|| k�s`d| }nd}d| |f }|}ntd|  ƒ ||fS )Nrc   rd   re   rf   ©r>   r>   r>   Úinputz	in/outputÚintenté   úout=z, optional\n    Default: %sz%s : %s rank-0 array(%s,'%s')%sz%s : %s %s%sz%s : %sz*%s : %s rank-0 array(string(len=%s),'c')%sz%s : %s string(len=%s)%sz%s : string(len=%s)r{   z.%s : %s rank-%s array('%s') with bounds (%s)%sr|   ú)%s : rank-%s array('%s') with bounds (%s)z8%s : rank-%s array('%s') with bounds (%s) and %s storageÚargnamez => %sz%s : call-back function%sz7getpydocsign: Could not resolve docsignature for "%s".
)ri   r
   rY   r†   Úisintent_inoutÚisintent_outr   Úhasinitvaluer   r€   rX   Úc2pycode_maprs   r   r   rt   rq   r�   rm   Úlcb_mapÚlcb2_map)rp   rn   ÚafÚsigZsigoutÚoptÚout_ar\   Úinitro   Úshowinitr‰   ry   Zuar^   r^   r_   r
   w  sœ    



 ÿ

   ÿ   ÿ
ÿ ý
ÿÿ
*

ÿc                 C   s„   t |ƒ}t|ƒr*t|ƒs*d| t|ƒf }nVt|ƒrJd| t| t| f }n6t|ƒr€|d }tt|ƒƒ}d| |t| d 	|¡f }|S )Nz%%s : rank-0 array(string(len=%s),'c')z%s : rank-0 array(%s,'%s')r{   r‘   r|   )
r   rs   r   r   r€   rX   r–   rt   rq   r�   )rp   rn   ro   rš   r‰   ry   r^   r^   r_   r   Á  s&    ÿ
ÿÿýc                 C   sN  t |ƒrd\}}nd\}}t|ƒ�rF|d }|}t|ƒs@t|ƒrêi }zb|d }d|krzt|dd… ƒ d¡\|d< |d	< n*t|i i ƒ}t|jƒt|j	ƒ |d< |d	< W n$ t
k
rÊ   td
|| f ƒ‚Y nX t|ƒrèd|d |d	 f }n\t |ƒ�rF|�sd\}}|d dk�r(d|dd…  dd¡ }|d dk�rFd|dd…  }||fS )N)z""z''rŒ   ú=r|   r   r}   ú@,@úinit.rúinit.izMgetinit: expected complex number `(r,i)' but got `%s' as initial value of %r.z (capi_c.r=%s,capi_c.i=%s,capi_c)r   ú'z"%s"ú"z\"z'%s')rs   r•   Ú	iscomplexÚiscomplexarrayr   ÚsplitrS   rk   rD   Úimagr[   Ú
ValueErrorr   Úreplace)rp   rn   r�   rž   rˆ   rŠ   r^   r^   r_   r   Ó  sF    


ÿÿ"
ÿ
 ÿ
c              "   C   s<  | }t |ƒr:|d D ]$}|dd… dkr|dd… } q:q| |t|ƒdœ}g }t ¡ D ]\}}||ƒrV| d| ¡ qV|rŠd |¡|d< nd|d< t|ƒr¤d	|d
< n&|d tkrÂt|d  |d
< nd|d
< t| |ƒ\|d< |d< t	|ƒ�r$t
|ƒ�r$t|ƒ�s$t|d dd… ƒ d¡\|d< |d< t|ƒ�r¾| |d< | tk�ržt|  |d< tt|   d |d< tt|   d |d< tt|   d |d< tt|   d |d< n | |d< td| tt ¡ ƒf ƒ t|ƒ�rÔt|ƒ|d< t|ƒ�rüt|t| |ƒƒ}t |d ¡}|d tk�rt|d  |d< t|ƒ�r¸td t d!td"td#td$td%t
d&tt t!t
ƒƒd'td(td)t"d*t#d+t$d,tt%t!t$ƒƒd-td.t&d.t'd/g"}	g }
t(d0t)|	ƒd1ƒD ]&}|	| |ƒ�r”|
 |	|d  ¡ �q”t|ƒ�rÜ|
 d2| |d f ¡ t|ƒ�rd3 t*d4d5„ |d |ƒ¡}|
 d6| ¡ t|ƒ�r6d7| |d d3 |
¡f |d8< n"d9|d | |d d3 |
¡f |d8< t |ƒ�rˆ|d t+k�rˆd:| t+|d  f |d;< t|ƒ�r¢d<| | f |d;< t|ƒ�r¸d=|  |d;< |d t+k�ròd>| t+|d  f |d?< d@t+|d   |dA< t|ƒ�rdB| | f |d?< t,| |ƒ\|dC< |dD< t-|ƒ�r8|dE |dE< |S )Fz…
    varname,ctype,atype
    init,init.r,init.i,pytype
    vardebuginfo,vardebugshowvalue,varshowvalue
    varrfromat
    intent
    rŽ   Nr�   r�   )ÚvarnameZ
outvarnamero   zF2PY_%sú|ZF2PY_INTENT_INr<   Z
varrformatro   ÚOr�   rž   r   r}   r    r¡   r¢   Z	cbnamekeyZcbnameÚ
maxnofargsÚ
nofoptargsZdocstrZcbdocstrZlatexdocstrZcblatexdocstrz5sign2map: Confused: external %s is not in lcb_map%s.
Úlengthr{   Úatyper�   ÚoutputZinoutputÚrequiredÚoptionalZhiddenzcomplex scalarZscalarr   Úarrayzcomplex arrayzstring arrayzcomplex functionÚfunctionÚcallbackZ	auxiliaryr   é   zslen(%s)=%sr|   c                 S   s   d| |f S )Nz%s|%sr^   )Úxr=   r^   r^   r_   Ú<lambda>B  ó    zsign2map.<locals>.<lambda>zdims(%s)zdebug-capi:%s=>%s:%sZvardebuginfozdebug-capi:%s %s=%s:%súdebug-capi:%s=%sZvardebugshowvalueú"debug-capi:slen(%s)=%%d %s=\"%%s\"zdebug-capi:%s=%%pz#name#:%s=%sZvarshowvaluera   Úshowvalueformatz#name#:slen(%s)=%%d %s=\"%%s\"Ú	pydocsignÚpydocsignoutÚnote).r”   r   Zisintent_dictrU   r„   r�   r   Úc2buildvalue_mapr   r•   r¥   r   r§   rm   r—   r˜   rY   rZ   rV   rs   r   Ú
dictappendr	   rI   Ú
c2capi_mapÚ	debugcapir†   r“   Z
isrequiredÚ
isoptionalrw   Zl_andr€   Zl_notr¦   ÚisstringarrayÚiscomplexfunctionri   Úisintent_callbackZisintent_auxr‚   rq   ÚmapÚcformat_mapr
   Úhasnote)rp   rn   rœ   r\   rˆ   Zintent_flagsr'   r*   r‰   ÚilZrlr,   Zddimr^   r^   r_   r   ö  sø    
ÿÿ

 
ÿ


                   õ

ÿ
  ÿ   ÿ

 
ÿ

 ÿ



c           	      C   sø  | d }t | ƒ}|| dd¡| ¡ | ¡ t|ƒtd| ƒ|| ¡ t| ƒpJdt| ƒpTdt| ƒp^ddœ}d|krvd|d< nd|d< d|kr�d	|d
< nd
|d
< i ad| k�r:| d  	¡ D ]„}|t
jkr²t
j| D ]j}|d }d| d | k�r(| d | d  	¡ D ]*}| d | d | |d krü|} �q(qü|d t|< qÊq²n0d| k�rj| d �rjtd|d t| d ƒf ƒ t| tƒ�pxd|d< t| ƒ�rÔd| k�rœ| d }n| d }||d< t|| ƒ\|d< |d< t| d | ƒ|d< t| ƒ�r| d | d |d< dg| d | d< |d tk�r&t|d  |d< nd|d< tdt|d ƒ ƒ t| ƒ�rŒ|d tk�rrd|t|d  f |d< t| ƒ�rŒd ||f |d< t| ƒ�rÔt| d | ƒ|d!< |d! d"k�rÔtd#t| d ƒ ƒ d$|d!< t| ƒ�rô| d |d< dg| d< |S )%zV
    name,NAME,begintitle,endtitle
    rname,ctype,rformat
    routdebugshowvalue
    rd   Ú_ú\_ú	end of %sr>   )rd   ZtexnameZ
name_lowerÚNAMEÚ
begintitleÚendtitleZfortrannameZFORTRANNAMEZcallstatementÚusercodeÚ	usercode1Ú	F_FUNC_USÚF_FUNCZF_WRAPPEDFUNC_USZF_WRAPPEDFUNCZuser   rÊ   r   Z	externalszMroutsign2map: Confused: function %s has externals %s but no "use" statement.
Zcallprotoargumentrc   Úrnamer¿   rÀ   re   ro   rÁ   Z
resultnoteúSee elsewhere.Zrformatr­   z.routsign2map: no c2buildvalue key for type %s
r¼   Zroutdebugshowvaluer½   ZrlengthrC   zzroutsign2map: expected explicit specification of the length of the string returned by the fortran function %s; taking 10.
Ú10)Zgetfortrannamerª   rW   ÚupperÚgentitleZgetcallstatementÚgetusercodeÚgetusercode1r—   rV   r   Zcb_maprY   rt   Zgetcallprotoargumentri   r
   r   ZhasresultnoterÂ   rÅ   rË   rr   r   rÌ   )	Úroutrd   Úfnamerˆ   r-   ÚunÚlnr\   rp   r^   r^   r_   r   ^  s˜    




ö



 
ÿ




ÿ
 
ÿ

 ÿ


ÿ

c                 C   sü   t | ƒr.| d | d  ¡ | d  dd¡dœ}n$| d | d  ¡ | d  dd¡dœ}t| ƒp\g |d< t| ƒrv| d |d< t| ƒp€d|d	< t| ƒp�d|d
< | d r¸t| d d ƒp°d|d< nd|d< t| ƒpÊd|d< d| krä| d |d< d| krø| d |d< |S )z
    modulename
    rd   rÎ   rÏ   )Zf90modulenameZF90MODULENAMEZtexf90modulename)Ú
modulenameZ
MODULENAMEZtexmodulenameZrestdocrÁ   r>   rÔ   rÕ   Úbodyr   Zinterface_usercodeZpymethoddefZcoutputZf2py_wrapper_output)ÚismodulerÛ   rª   Z
getrestdocrÌ   rÝ   rÞ   Zgetpymethoddef)Úmrˆ   r^   r^   r_   r   ¯  s.    
þ
þc                 C   s¬   d| i}|d |d< t |ƒ|d< |d tkr<t|d  |d< |d tkr\dt|d   |d< t|ƒrtt|t| |ƒƒ}t| |ƒ\|d< |d< t|ƒr¨|d	 |d	< d
g|d	< |S )Nr«   Z	varname_iro   r±   ra   r¾   r¿   rÀ   rÁ   rÙ   )r   rÄ   rË   r   rÃ   r	   r
   rÌ   )rp   rn   r…   rˆ   r^   r^   r_   r   Ì  s    
c                 C   sœ  d| d |f ddœ}t | ƒr`d| d kr0d}nd}d|| d  ¡ | d  ¡ f |d	< d
|d< n|d |d	< d|d< | d |d< t|d ƒ|d< td|d  ƒ|d< t| ƒ|d< d|d< |d dkrÎd|d< n|d |d< |d dk�rt| ƒrúd|d< nd|d< |d tk�r$dt|d   |d< t| ƒ�r:t| ƒ|d< t	| ƒ�rÊd| k�rX| d }n| d }t
| d | ƒ�r˜| d | d |d< dg| d | d< ||d< t|| ƒ\|d< |d < t| ƒ�rêd!|d< n t
| ƒ�rê| d |d< dg| d< d"}d"}d#| k�rLd| k�rL| d# D ]<}| d | }tttƒ|ƒ�r|d$ }t|ƒ�r|d$ }�qt|ƒ|d%< t|ƒ|d&< t
| ƒ�r˜t	| ƒ�r˜d| k�r˜| d |d'< dg| d< |S )(z\
    name,begintitle,endtitle,argname
    ctype,rctype,maxnofargs,nofoptargs,returncptr
    zcb_%s_in_%srd   r>   )rd   Ú
returncptrrÎ   rÖ   r×   z	%s(%s,%s)ZcallbacknameZexternZstaticr’   rÒ   rÐ   rÓ   ro   rb   Zrctyper   z3
#ifdef F2PY_CB_RETURNCOMPLEX
return_value=
#endif
rç   zreturn_value=ra   r¾   Z	strlengthrc   re   rÁ   rÙ   rØ   r¿   rÀ   z8
#ifdef F2PY_CB_RETURNCOMPLEX
#ctype#
#else
void
#endif
r   Úargsr   r®   r¯   Zroutnote)rÉ   rW   rÛ   rÜ   r   rÈ   rË   rr   r   ri   rÌ   r
   Zl_orr†   r“   rÆ   rt   )rß   Zumrˆ   r×   rp   Znofargsr¯   rn   r^   r^   r_   r   Ý  sz    ÿ

þÿ












c                 C   sÖ   | t |ƒdœ}t|ƒrd|d< |d tkr:t|d  |d< |d tkrZdt|d   |d< t|ƒrtt|t| |ƒƒ}nt|ƒr�t|ƒ|d< d|d	< t	| |ƒ\|d
< |d< t
|ƒrÄ|d |d< dg|d< t| |ƒ|d< |S )N)r«   ro   r   ro   r±   ra   r¾   rx   r(   ry   r¿   rÀ   rÁ   rÙ   Z	arrdocstr)r   rÇ   rÄ   rË   r   rÃ   r	   rs   r   r
   rÌ   r   )rp   rn   rˆ   r^   r^   r_   r   /  s$    
)r   )N)&Ú__doc__r>   r   ÚversionZf2py_versionrI   ru   rM   Zcrackfortranr   r   ZauxfuncsÚ__all__Zusing_newcorerƒ   r—   r˜   rX   rÄ   r–   rÂ   rL   rJ   rK   r`   rË   r   r   r	   r
   r   r   r   r   r   r   r   r   r^   r^   r^   r_   Ú<module>   s~           ýññïñïõ ÿ   ý þ þÿï
+ð/
=J#hQ
R